| D9F0 |
LD A,($E568) |
| D9F3 |
DEC A |
| D9F4 |
LD ($E56A),A |
| D9F7 |
LD A,($E56C) |
| D9FA |
LD B,A |
| D9FB |
PUSH BC |
| D9FC |
LD A,($E569) |
| D9FF |
DEC A |
| DA00 |
LD ($E56B),A |
| DA03 |
LD B,$04 |
| DA05 |
PUSH BC |
| DA06 |
LD A,($E56A) |
| DA09 |
LD B,A |
| DA0A |
LD A,($E56B) |
| DA0D |
LD C,A |
| DA0E |
CALL Calculate_ScreenBlockAddress |
| DA11 |
LD A,$08 |
| DA13 |
LD BC,$0004 |
| DA16 |
PUSH HL |
| DA17 |
POP DE |
| DA18 |
DEC DE |
| DA19 |
PUSH HL |
| DA1A |
PUSH HL |
| DA1B |
LDIR |
| DA1D |
DEC HL |
| DA1E |
LD (HL),C |
| DA1F |
POP HL |
| DA20 |
INC H |
| DA21 |
PUSH HL |
| DA22 |
POP DE |
| DA23 |
DEC DE |
| DA24 |
LD BC,$0004 |
| DA27 |
DEC A |
| DA28 |
JP NZ,$DA1A |
| DA2B |
POP HL |
| DA2C |
CALL Calculate_AttributeAddress |
| DA2F |
PUSH DE |
| DA30 |
POP HL |
| DA31 |
DEC DE |
| DA32 |
LD BC,$0005 |
| DA35 |
LDIR |
| DA37 |
LD A,$47 |
| DA39 |
DEC DE |
| DA3A |
LD (DE),A |
| DA3B |
LD HL,$E56A |
| DA3E |
INC (HL) |
| DA3F |
POP BC |
| DA40 |
DJNZ $DA05 |
| DA42 |
POP BC |
| DA43 |
PUSH BC |
| DA44 |
CALL $DB5D |
| DA47 |
LD A,($E568) |
| DA4A |
DEC A |
| DA4B |
LD ($E56A),A |
| DA4E |
LD HL,$E569 |
| DA51 |
DEC (HL) |
| DA52 |
POP BC |
| DA53 |
DJNZ $D9FB |
| DA55 |
RET |
