| D609 |
LD A,($E568) |
| D60C |
DEC A |
| D60D |
LD B,A |
| D60E |
LD A,($E569) |
| D611 |
DEC A |
| D612 |
LD C,A |
| D613 |
CALL Calculate_ScreenBlockAddress |
| D616 |
CALL Calculate_AttributeAddress |
| D619 |
PUSH DE |
| D61A |
LD IX,($D5AA) |
| D61E |
LD DE,$B765 |
| D621 |
ADD IX,DE |
| D623 |
LD D,$04 |
| D625 |
PUSH BC |
| D626 |
LD B,$08 |
| D628 |
PUSH BC |
| D629 |
LD B,$04 |
| D62B |
PUSH HL |
| D62C |
LD A,(IX+$00) |
| D62F |
LD (HL),A |
| D630 |
INC IX |
| D632 |
INC HL |
| D633 |
DJNZ $D62C |
| D635 |
POP HL |
| D636 |
INC H |
| D637 |
LD BC,$0010 |
| D63A |
ADD IX,BC |
| D63C |
POP BC |
| D63D |
DJNZ $D628 |
| D63F |
POP BC |
| D640 |
INC B |
| D641 |
CALL Calculate_ScreenBlockAddress |
| D644 |
DEC D |
| D645 |
JR NZ,$D625 |
| D647 |
LD IX,($D5AC) |
| D64B |
LD DE,$B765 |
| D64E |
ADD IX,DE |
| D650 |
POP HL |
| D651 |
LD B,$04 |
| D653 |
LD DE,$001C |
| D656 |
PUSH BC |
| D657 |
LD B,$04 |
| D659 |
LD A,(IX+$00) |
| D65C |
LD (HL),A |
| D65D |
INC IX |
| D65F |
INC HL |
| D660 |
DJNZ $D659 |
| D662 |
ADD HL,DE |
| D663 |
LD BC,$0010 |
| D666 |
ADD IX,BC |
| D668 |
POP BC |
| D669 |
DJNZ $D656 |
| D66B |
RET |
| D66C |
CP $1F |
| D66E |
JR Z,$D673 |
| D670 |
CP $21 |
| D672 |
RET NZ |
| D673 |
LD DE,$0784 |
| D676 |
LD ($D5AA),DE |
| D67A |
LD DE,$0AF4 |
| D67D |
LD ($D5AC),DE |
| D681 |
RET |
