| 55894 |
LD A,(58729) |
| 55897 |
DEC A |
| 55898 |
LD (58731),A |
| 55901 |
LD A,(58732) |
| 55904 |
LD B,A |
| 55905 |
PUSH BC |
| 55906 |
LD A,(58728) |
| 55909 |
ADD A,2 |
| 55911 |
LD (58730),A |
| 55914 |
LD B,4 |
| 55916 |
PUSH BC |
| 55917 |
LD A,(58730) |
| 55920 |
LD B,A |
| 55921 |
LD A,(58731) |
| 55924 |
LD C,A |
| 55925 |
CALL Calculate_ScreenBlockAddress |
| 55928 |
PUSH HL |
| 55929 |
INC B |
| 55930 |
CALL Calculate_ScreenBlockAddress |
| 55933 |
PUSH HL |
| 55934 |
POP DE |
| 55935 |
POP HL |
| 55936 |
LD A,8 |
| 55938 |
LD BC,4 |
| 55941 |
PUSH HL |
| 55942 |
PUSH HL |
| 55943 |
PUSH DE |
| 55944 |
LDIR |
| 55946 |
DEC HL |
| 55947 |
PUSH HL |
| 55948 |
LD (HL),C |
| 55949 |
POP DE |
| 55950 |
DEC DE |
| 55951 |
LD BC,3 |
| 55954 |
LDDR |
| 55956 |
POP DE |
| 55957 |
POP HL |
| 55958 |
INC D |
| 55959 |
INC H |
| 55960 |
LD BC,4 |
| 55963 |
DEC A |
| 55964 |
JP NZ,55942 |
| 55967 |
POP HL |
| 55968 |
CALL Calculate_AttributeAddress |
| 55971 |
LD HL,32 |
| 55974 |
ADD HL,DE |
| 55975 |
EX DE,HL |
| 55976 |
LD BC,4 |
| 55979 |
LDIR |
| 55981 |
LD BC,3 |
| 55984 |
LD A,71 |
| 55986 |
DEC HL |
| 55987 |
LD (HL),A |
| 55988 |
PUSH HL |
| 55989 |
POP DE |
| 55990 |
DEC DE |
| 55991 |
LDDR |
| 55993 |
LD HL,58730 |
| 55996 |
DEC (HL) |
| 55997 |
POP BC |
| 55998 |
DJNZ 55916 |
| 56000 |
POP BC |
| 56001 |
PUSH BC |
| 56002 |
CALL 56157 |
| 56005 |
LD HL,58728 |
| 56008 |
INC (HL) |
| 56009 |
POP BC |
| 56010 |
DJNZ 55905 |
| 56012 |
RET |
