81BA: Unused colour/attribute fill routine
81BA |
LD C,A |
81BB |
RLA |
81BC |
RLA |
81BD |
RLA |
81BE |
AND $38 |
81C0 |
LD B,A |
81C1 |
LD HL,$5842 |
81C4 |
LD DE,$0000 |
81C7 |
LD A,$07 |
81C9 |
LD ($8BB0),A |
81CC |
LD A,$1C |
81CE |
LD ($8BAF),A |
81D1 |
LD A,(HL) |
81D2 |
ADD A,C |
81D3 |
AND $07 |
81D5 |
LD E,A |
81D6 |
LD A,(HL) |
81D7 |
ADD A,B |
81D8 |
AND $38 |
81DA |
OR E |
81DB |
LD (HL),A |
81DC |
INC HL |
81DD |
LD A,($8BAF) |
81E0 |
DEC A |
81E1 |
JR NZ,$81CE |
81E3 |
LD A,(DE) |
81E4 |
INC DE |
81E5 |
OUT ($FE),A |
81E7 |
INC HL |
81E8 |
INC HL |
81E9 |
INC HL |
81EA |
INC HL |
81EB |
LD A,($8BB0) |
81EE |
DEC A |
81EF |
JR NZ,$81C9 |
81F1 |
RET |
81F2 |
RET |