| 55792 |
LD A,(58728) |
| 55795 |
DEC A |
| 55796 |
LD (58730),A |
| 55799 |
LD A,(58732) |
| 55802 |
LD B,A |
| 55803 |
PUSH BC |
| 55804 |
LD A,(58729) |
| 55807 |
DEC A |
| 55808 |
LD (58731),A |
| 55811 |
LD B,4 |
| 55813 |
PUSH BC |
| 55814 |
LD A,(58730) |
| 55817 |
LD B,A |
| 55818 |
LD A,(58731) |
| 55821 |
LD C,A |
| 55822 |
CALL Calculate_ScreenBlockAddress |
| 55825 |
LD A,8 |
| 55827 |
LD BC,4 |
| 55830 |
PUSH HL |
| 55831 |
POP DE |
| 55832 |
DEC DE |
| 55833 |
PUSH HL |
| 55834 |
PUSH HL |
| 55835 |
LDIR |
| 55837 |
DEC HL |
| 55838 |
LD (HL),C |
| 55839 |
POP HL |
| 55840 |
INC H |
| 55841 |
PUSH HL |
| 55842 |
POP DE |
| 55843 |
DEC DE |
| 55844 |
LD BC,4 |
| 55847 |
DEC A |
| 55848 |
JP NZ,55834 |
| 55851 |
POP HL |
| 55852 |
CALL Calculate_AttributeAddress |
| 55855 |
PUSH DE |
| 55856 |
POP HL |
| 55857 |
DEC DE |
| 55858 |
LD BC,5 |
| 55861 |
LDIR |
| 55863 |
LD A,71 |
| 55865 |
DEC DE |
| 55866 |
LD (DE),A |
| 55867 |
LD HL,58730 |
| 55870 |
INC (HL) |
| 55871 |
POP BC |
| 55872 |
DJNZ 55813 |
| 55874 |
POP BC |
| 55875 |
PUSH BC |
| 55876 |
CALL 56157 |
| 55879 |
LD A,(58728) |
| 55882 |
DEC A |
| 55883 |
LD (58730),A |
| 55886 |
LD HL,58729 |
| 55889 |
DEC (HL) |
| 55890 |
POP BC |
| 55891 |
DJNZ 55803 |
| 55893 |
RET |
