| 55689 |
LD A,(58728) |
| 55692 |
DEC A |
| 55693 |
LD (58730),A |
| 55696 |
LD A,(58732) |
| 55699 |
LD B,A |
| 55700 |
PUSH BC |
| 55701 |
LD A,(58729) |
| 55704 |
ADD A,2 |
| 55706 |
LD (58731),A |
| 55709 |
LD B,4 |
| 55711 |
PUSH BC |
| 55712 |
LD A,(58730) |
| 55715 |
LD B,A |
| 55716 |
LD A,(58731) |
| 55719 |
LD C,A |
| 55720 |
CALL Calculate_ScreenBlockAddress |
| 55723 |
LD A,8 |
| 55725 |
LD BC,4 |
| 55728 |
PUSH HL |
| 55729 |
POP DE |
| 55730 |
INC DE |
| 55731 |
PUSH HL |
| 55732 |
PUSH HL |
| 55733 |
LDDR |
| 55735 |
INC HL |
| 55736 |
LD (HL),C |
| 55737 |
POP HL |
| 55738 |
INC H |
| 55739 |
PUSH HL |
| 55740 |
POP DE |
| 55741 |
INC DE |
| 55742 |
LD BC,4 |
| 55745 |
DEC A |
| 55746 |
JP NZ,55732 |
| 55749 |
POP HL |
| 55750 |
CALL Calculate_AttributeAddress |
| 55753 |
PUSH DE |
| 55754 |
POP HL |
| 55755 |
INC DE |
| 55756 |
LD BC,5 |
| 55759 |
LDDR |
| 55761 |
LD A,71 |
| 55763 |
INC DE |
| 55764 |
LD (DE),A |
| 55765 |
LD HL,58730 |
| 55768 |
INC (HL) |
| 55769 |
POP BC |
| 55770 |
DJNZ 55711 |
| 55772 |
POP BC |
| 55773 |
PUSH BC |
| 55774 |
CALL 56157 |
| 55777 |
LD A,(58728) |
| 55780 |
DEC A |
| 55781 |
LD (58730),A |
| 55784 |
LD HL,58729 |
| 55787 |
INC (HL) |
| 55788 |
POP BC |
| 55789 |
DJNZ 55700 |
| 55791 |
RET |
