55367: Routine at D847
| 55367 |
CALL 8874 |
| 55370 |
LD E,A |
| 55371 |
LD D,8 |
| 55373 |
AND A |
| 55374 |
JP Z,55403 |
| 55377 |
LD B,E |
| 55378 |
LD A,(IX+0) |
| 55381 |
LD C,0 |
| 55383 |
SRL A |
| 55385 |
RR C |
| 55387 |
DJNZ 55383 |
| 55389 |
LD (HL),A |
| 55390 |
INC HL |
| 55391 |
LD A,C |
| 55392 |
LD (HL),A |
| 55393 |
DEC HL |
| 55394 |
INC IX |
| 55396 |
CALL 55416 |
| 55399 |
DEC D |
| 55400 |
JR NZ,55377 |
| 55402 |
RET |
| 55403 |
LD B,D |
| 55404 |
LD A,(IX+0) |
| 55407 |
LD (HL),A |
| 55408 |
CALL 55416 |
| 55411 |
INC IX |
| 55413 |
DJNZ 55404 |
| 55415 |
RET |
| 55416 |
INC H |
| 55417 |
LD A,H |
| 55418 |
AND 7 |
| 55420 |
RET NZ |
| 55421 |
LD A,H |
| 55422 |
SUB 8 |
| 55424 |
LD H,A |
| 55425 |
LD A,L |
| 55426 |
ADD A,32 |
| 55428 |
LD L,A |
| 55429 |
RET NC |
| 55430 |
LD A,H |
| 55431 |
ADD A,8 |
| 55433 |
LD H,A |
| 55434 |
XOR 88 |
| 55436 |
RET NZ |
| 55437 |
LD H,64 |
| 55439 |
RET |
