56039 |
LD A,(58729) |
56042 |
DEC A |
56043 |
LD (58731),A |
56046 |
LD A,(58732) |
56049 |
LD B,A |
56050 |
PUSH BC |
56051 |
LD A,(58728) |
56054 |
DEC A |
56055 |
LD (58730),A |
56058 |
LD B,4 |
56060 |
PUSH BC |
56061 |
LD A,(58730) |
56064 |
LD B,A |
56065 |
LD A,(58731) |
56068 |
LD C,A |
56069 |
CALL Calculate_ScreenBlockAddress |
56072 |
PUSH HL |
56073 |
DEC B |
56074 |
CALL Calculate_ScreenBlockAddress |
56077 |
PUSH HL |
56078 |
POP DE |
56079 |
POP HL |
56080 |
LD A,8 |
56082 |
LD BC,4 |
56085 |
PUSH HL |
56086 |
PUSH HL |
56087 |
PUSH DE |
56088 |
LDIR |
56090 |
DEC HL |
56091 |
PUSH HL |
56092 |
LD (HL),C |
56093 |
POP DE |
56094 |
DEC DE |
56095 |
LD BC,3 |
56098 |
LDDR |
56100 |
POP DE |
56101 |
POP HL |
56102 |
INC D |
56103 |
INC H |
56104 |
LD BC,4 |
56107 |
DEC A |
56108 |
JP NZ,56086 |
56111 |
POP HL |
56112 |
CALL Calculate_AttributeAddress |
56115 |
LD HL,65504 |
56118 |
ADD HL,DE |
56119 |
EX DE,HL |
56120 |
LD BC,4 |
56123 |
LDIR |
56125 |
LD BC,3 |
56128 |
LD A,71 |
56130 |
DEC HL |
56131 |
LD (HL),A |
56132 |
PUSH HL |
56133 |
POP DE |
56134 |
DEC DE |
56135 |
LDDR |
56137 |
LD HL,58730 |
56140 |
INC (HL) |
56141 |
POP BC |
56142 |
DJNZ 56060 |
56144 |
POP BC |
56145 |
PUSH BC |
56146 |
CALL 56157 |
56149 |
LD HL,58728 |
56152 |
DEC (HL) |
56153 |
POP BC |
56154 |
DJNZ 56050 |
56156 |
RET |
56157 |
LD HL,58732 |
56160 |
LD A,20 |
56162 |
SUB (HL) |
56163 |
LD C,B |
56164 |
SLA C |
56166 |
SLA C |
56168 |
ADD A,C |
56169 |
LD C,A |
56170 |
LD A,5 |
56172 |
LD B,C |
56173 |
SLA B |
56175 |
DJNZ 56175 |
56177 |
XOR 16 |
56179 |
OUT (254),A |
56181 |
DEC C |
56182 |
JP NZ,56172 |
56185 |
RET |
56186 |
OR B |
56187 |
LD H,B |
56188 |
EX (SP),HL |
56189 |
XOR D |