8C01: Routine at 8C01
| 8C01 |
LD C,A |
| 8C02 |
PUSH HL |
| 8C03 |
CALL AttributeAddress |
| 8C06 |
LD A,C |
| 8C07 |
RRCA |
| 8C08 |
RRCA |
| 8C09 |
RRCA |
| 8C0A |
AND $1F |
| 8C0C |
JR Z,$8C1A |
| 8C0E |
LD B,A |
| 8C0F |
LD A,(HL) |
| 8C10 |
RLCA |
| 8C11 |
RLCA |
| 8C12 |
RLCA |
| 8C13 |
AND $38 |
| 8C15 |
OR (HL) |
| 8C16 |
LD (HL),A |
| 8C17 |
INC HL |
| 8C18 |
DJNZ $8C0F |
| 8C1A |
LD A,(HL) |
| 8C1B |
AND $C7 |
| 8C1D |
LD (HL),A |
| 8C1E |
EX DE,HL |
| 8C1F |
POP HL |
| 8C20 |
CALL ScreenAddress |
| 8C23 |
LD A,E |
| 8C24 |
AND $1F |
| 8C26 |
LD E,A |
| 8C27 |
LD A,L |
| 8C28 |
AND $E0 |
| 8C2A |
OR E |
| 8C2B |
LD L,A |
| 8C2C |
LD A,C |
| 8C2D |
AND $07 |
| 8C2F |
ADD A,$5B |
| 8C31 |
CALL PrintScreen |
| 8C34 |
LD A,C |
| 8C35 |
CPL |
| 8C36 |
AND $07 |
| 8C38 |
RET NZ |
| 8C39 |
LD A,$20 |
| 8C3B |
JP PrintScreen |
