| D8CA |
LD A,($E568) |
| D8CD |
DEC A |
| D8CE |
LD ($E56A),A |
| D8D1 |
LD A,($E569) |
| D8D4 |
DEC A |
| D8D5 |
LD ($E56B),A |
| D8D8 |
LD B,$04 |
| D8DA |
HALT |
| D8DB |
PUSH BC |
| D8DC |
LD A,($E56A) |
| D8DF |
LD B,A |
| D8E0 |
LD A,($E56B) |
| D8E3 |
LD C,A |
| D8E4 |
CALL Calculate_ScreenBlockAddress |
| D8E7 |
PUSH HL |
| D8E8 |
LD A,$00 |
| D8EA |
LD B,$08 |
| D8EC |
PUSH BC |
| D8ED |
PUSH HL |
| D8EE |
LD B,$04 |
| D8F0 |
LD (HL),A |
| D8F1 |
INC HL |
| D8F2 |
DJNZ $D8F0 |
| D8F4 |
POP HL |
| D8F5 |
POP BC |
| D8F6 |
INC H |
| D8F7 |
DJNZ $D8EC |
| D8F9 |
POP HL |
| D8FA |
CALL Calculate_AttributeAddress |
| D8FD |
LD A,$47 |
| D8FF |
LD B,$04 |
| D901 |
LD (DE),A |
| D902 |
INC DE |
| D903 |
DJNZ $D901 |
| D905 |
POP BC |
| D906 |
LD HL,$E56A |
| D909 |
INC (HL) |
| D90A |
DJNZ $D8DB |
| D90C |
LD A,($D54F) |
| D90F |
CP $00 |
| D911 |
RET Z |
| D912 |
LD B,$03 |
| D914 |
PUSH BC |
| D915 |
LD A,$05 |
| D917 |
LD C,$1E |
| D919 |
LD B,$28 |
| D91B |
SLA B |
| D91D |
DJNZ $D91D |
| D91F |
XOR $10 |
| D921 |
OUT ($FE),A |
| D923 |
DEC C |
| D924 |
JR NZ,$D919 |
| D926 |
LD C,$14 |
| D928 |
LD B,$3C |
| D92A |
SLA B |
| D92C |
DJNZ $D92C |
| D92E |
XOR $10 |
| D930 |
OUT ($FE),A |
| D932 |
DEC C |
| D933 |
JR NZ,$D928 |
| D935 |
POP BC |
| D936 |
DJNZ $D914 |
| D938 |
RET |
