55228: Routine at 55228
| L55228 |
55228 |
LD A,(59678) |
|
55231 |
CP 1 |
|
55233 |
RET NZ |
|
55234 |
LD A,(59638) |
|
55237 |
CP 9 |
|
55239 |
JP C,L55228_0 |
|
55242 |
LD L,A |
|
55243 |
LD A,16 |
|
55245 |
SUB L |
| L55228_0 |
55246 |
LD L,A |
|
55247 |
SLA A |
|
55249 |
SLA A |
|
55251 |
ADD A,L |
|
55252 |
LD L,A |
|
55253 |
LD H,0 |
|
55255 |
LD DE,59593 |
|
55258 |
ADD HL,DE |
|
55259 |
LD A,(HL) |
|
55260 |
INC HL |
|
55261 |
LD C,(HL) |
|
55262 |
INC HL |
|
55263 |
LD B,(HL) |
|
55264 |
INC HL |
|
55265 |
LD E,(HL) |
|
55266 |
INC HL |
|
55267 |
LD D,(HL) |
|
55268 |
PUSH BC |
|
55269 |
LD BC,(59640) |
|
55273 |
SRL B |
|
55275 |
RR C |
|
55277 |
LD HL,60387 |
|
55280 |
ADD HL,BC |
|
55281 |
POP BC |
|
55282 |
ADD HL,BC |
|
55283 |
PUSH DE |
|
55284 |
LD DE,(59640) |
|
55288 |
RR E |
|
55290 |
POP DE |
|
55291 |
JP C,L55228_3 |
| L55228_1 |
55294 |
PUSH AF |
|
55295 |
LD B,5 |
| L55228_2 |
55297 |
LD A,(DE) |
|
55298 |
INC DE |
|
55299 |
XOR (HL) |
|
55300 |
LD (HL),A |
|
55301 |
INC HL |
|
55302 |
DJNZ L55228_2 |
|
55304 |
LD BC,27 |
|
55307 |
ADD HL,BC |
|
55308 |
POP AF |
|
55309 |
DEC A |
|
55310 |
JP NZ,L55228_1 |
|
55313 |
RET |
| L55228_3 |
55314 |
PUSH AF |
|
55315 |
LD B,5 |
| L55228_4 |
55317 |
PUSH BC |
|
55318 |
LD A,(DE) |
|
55319 |
LD C,A |
|
55320 |
INC DE |
|
55321 |
LD A,(DE) |
|
55322 |
LD B,A |
|
55323 |
SRL C |
|
55325 |
RR B |
|
55327 |
SRL C |
|
55329 |
RR B |
|
55331 |
SRL C |
|
55333 |
RR B |
|
55335 |
SRL C |
|
55337 |
RR B |
|
55339 |
LD A,C |
|
55340 |
AND 15 |
|
55342 |
XOR (HL) |
|
55343 |
LD (HL),A |
|
55344 |
INC HL |
|
55345 |
LD A,B |
|
55346 |
AND 240 |
|
55348 |
XOR (HL) |
|
55349 |
LD (HL),A |
|
55350 |
POP BC |
|
55351 |
DJNZ L55228_4 |
|
55353 |
LD BC,27 |
|
55356 |
ADD HL,BC |
|
55357 |
POP AF |
|
55358 |
DEC A |
|
55359 |
JP NZ,L55228_3 |
|
55362 |
RET |