| 54793 |
LD A,(58728) |
| 54796 |
DEC A |
| 54797 |
LD B,A |
| 54798 |
LD A,(58729) |
| 54801 |
DEC A |
| 54802 |
LD C,A |
| 54803 |
CALL Calculate_ScreenBlockAddress |
| 54806 |
CALL Calculate_AttributeAddress |
| 54809 |
PUSH DE |
| 54810 |
LD IX,(54698) |
| 54814 |
LD DE,46949 |
| 54817 |
ADD IX,DE |
| 54819 |
LD D,4 |
| 54821 |
PUSH BC |
| 54822 |
LD B,8 |
| 54824 |
PUSH BC |
| 54825 |
LD B,4 |
| 54827 |
PUSH HL |
| 54828 |
LD A,(IX+0) |
| 54831 |
LD (HL),A |
| 54832 |
INC IX |
| 54834 |
INC HL |
| 54835 |
DJNZ 54828 |
| 54837 |
POP HL |
| 54838 |
INC H |
| 54839 |
LD BC,16 |
| 54842 |
ADD IX,BC |
| 54844 |
POP BC |
| 54845 |
DJNZ 54824 |
| 54847 |
POP BC |
| 54848 |
INC B |
| 54849 |
CALL Calculate_ScreenBlockAddress |
| 54852 |
DEC D |
| 54853 |
JR NZ,54821 |
| 54855 |
LD IX,(54700) |
| 54859 |
LD DE,46949 |
| 54862 |
ADD IX,DE |
| 54864 |
POP HL |
| 54865 |
LD B,4 |
| 54867 |
LD DE,28 |
| 54870 |
PUSH BC |
| 54871 |
LD B,4 |
| 54873 |
LD A,(IX+0) |
| 54876 |
LD (HL),A |
| 54877 |
INC IX |
| 54879 |
INC HL |
| 54880 |
DJNZ 54873 |
| 54882 |
ADD HL,DE |
| 54883 |
LD BC,16 |
| 54886 |
ADD IX,BC |
| 54888 |
POP BC |
| 54889 |
DJNZ 54870 |
| 54891 |
RET |
| 54892 |
CP 31 |
| 54894 |
JR Z,54899 |
| 54896 |
CP 33 |
| 54898 |
RET NZ |
| 54899 |
LD DE,1924 |
| 54902 |
LD (54698),DE |
| 54906 |
LD DE,2804 |
| 54909 |
LD (54700),DE |
| 54913 |
RET |
