| 55498 |
LD A,(58728) |
| 55501 |
DEC A |
| 55502 |
LD (58730),A |
| 55505 |
LD A,(58729) |
| 55508 |
DEC A |
| 55509 |
LD (58731),A |
| 55512 |
LD B,4 |
| 55514 |
HALT |
| 55515 |
PUSH BC |
| 55516 |
LD A,(58730) |
| 55519 |
LD B,A |
| 55520 |
LD A,(58731) |
| 55523 |
LD C,A |
| 55524 |
CALL Calculate_ScreenBlockAddress |
| 55527 |
PUSH HL |
| 55528 |
LD A,0 |
| 55530 |
LD B,8 |
| 55532 |
PUSH BC |
| 55533 |
PUSH HL |
| 55534 |
LD B,4 |
| 55536 |
LD (HL),A |
| 55537 |
INC HL |
| 55538 |
DJNZ 55536 |
| 55540 |
POP HL |
| 55541 |
POP BC |
| 55542 |
INC H |
| 55543 |
DJNZ 55532 |
| 55545 |
POP HL |
| 55546 |
CALL Calculate_AttributeAddress |
| 55549 |
LD A,71 |
| 55551 |
LD B,4 |
| 55553 |
LD (DE),A |
| 55554 |
INC DE |
| 55555 |
DJNZ 55553 |
| 55557 |
POP BC |
| 55558 |
LD HL,58730 |
| 55561 |
INC (HL) |
| 55562 |
DJNZ 55515 |
| 55564 |
LD A,(54607) |
| 55567 |
CP 0 |
| 55569 |
RET Z |
| 55570 |
LD B,3 |
| 55572 |
PUSH BC |
| 55573 |
LD A,5 |
| 55575 |
LD C,30 |
| 55577 |
LD B,40 |
| 55579 |
SLA B |
| 55581 |
DJNZ 55581 |
| 55583 |
XOR 16 |
| 55585 |
OUT (254),A |
| 55587 |
DEC C |
| 55588 |
JR NZ,55577 |
| 55590 |
LD C,20 |
| 55592 |
LD B,60 |
| 55594 |
SLA B |
| 55596 |
DJNZ 55596 |
| 55598 |
XOR 16 |
| 55600 |
OUT (254),A |
| 55602 |
DEC C |
| 55603 |
JR NZ,55592 |
| 55605 |
POP BC |
| 55606 |
DJNZ 55572 |
| 55608 |
RET |
