| DA56 |
LD A,($E569) |
| DA59 |
DEC A |
| DA5A |
LD ($E56B),A |
| DA5D |
LD A,($E56C) |
| DA60 |
LD B,A |
| DA61 |
PUSH BC |
| DA62 |
LD A,($E568) |
| DA65 |
ADD A,$02 |
| DA67 |
LD ($E56A),A |
| DA6A |
LD B,$04 |
| DA6C |
PUSH BC |
| DA6D |
LD A,($E56A) |
| DA70 |
LD B,A |
| DA71 |
LD A,($E56B) |
| DA74 |
LD C,A |
| DA75 |
CALL Calculate_ScreenBlockAddress |
| DA78 |
PUSH HL |
| DA79 |
INC B |
| DA7A |
CALL Calculate_ScreenBlockAddress |
| DA7D |
PUSH HL |
| DA7E |
POP DE |
| DA7F |
POP HL |
| DA80 |
LD A,$08 |
| DA82 |
LD BC,$0004 |
| DA85 |
PUSH HL |
| DA86 |
PUSH HL |
| DA87 |
PUSH DE |
| DA88 |
LDIR |
| DA8A |
DEC HL |
| DA8B |
PUSH HL |
| DA8C |
LD (HL),C |
| DA8D |
POP DE |
| DA8E |
DEC DE |
| DA8F |
LD BC,$0003 |
| DA92 |
LDDR |
| DA94 |
POP DE |
| DA95 |
POP HL |
| DA96 |
INC D |
| DA97 |
INC H |
| DA98 |
LD BC,$0004 |
| DA9B |
DEC A |
| DA9C |
JP NZ,$DA86 |
| DA9F |
POP HL |
| DAA0 |
CALL Calculate_AttributeAddress |
| DAA3 |
LD HL,$0020 |
| DAA6 |
ADD HL,DE |
| DAA7 |
EX DE,HL |
| DAA8 |
LD BC,$0004 |
| DAAB |
LDIR |
| DAAD |
LD BC,$0003 |
| DAB0 |
LD A,$47 |
| DAB2 |
DEC HL |
| DAB3 |
LD (HL),A |
| DAB4 |
PUSH HL |
| DAB5 |
POP DE |
| DAB6 |
DEC DE |
| DAB7 |
LDDR |
| DAB9 |
LD HL,$E56A |
| DABC |
DEC (HL) |
| DABD |
POP BC |
| DABE |
DJNZ $DA6C |
| DAC0 |
POP BC |
| DAC1 |
PUSH BC |
| DAC2 |
CALL $DB5D |
| DAC5 |
LD HL,$E568 |
| DAC8 |
INC (HL) |
| DAC9 |
POP BC |
| DACA |
DJNZ $DA61 |
| DACC |
RET |
