39528: Routine at 9A68
| 39528 |
LD HL,38802 |
| 39531 |
LD B,6 |
| 39533 |
LD D,0 |
| 39535 |
LD A,(38659) |
| 39538 |
LD E,A |
| 39539 |
LD A,(HL) |
| 39540 |
AND A |
| 39541 |
JR Z,39550 |
| 39543 |
INC HL |
| 39544 |
LD A,E |
| 39545 |
CP (HL) |
| 39546 |
DEC HL |
| 39547 |
JR NZ,39550 |
| 39549 |
INC D |
| 39550 |
LD A,12 |
| 39552 |
CALL Add_HL_A |
| 39555 |
DJNZ 39539 |
| 39557 |
LD A,(38590) |
| 39560 |
CP D |
| 39561 |
RET Z |
| 39562 |
CALL 39693 |
| 39565 |
RET C |
| 39566 |
LD A,(38547) |
| 39569 |
AND %00000011 |
| 39571 |
LD L,A |
| 39572 |
LD H,0 |
| 39574 |
LD BC,39608 |
| 39577 |
ADD HL,BC |
| 39578 |
LD A,(HL) |
| 39579 |
LD (IX+5),A |
| 39582 |
LD (IX+0),1 |
| 39586 |
XOR A |
| 39587 |
LD (IX+6),A |
| 39590 |
LD (IX+7),A |
| 39593 |
LD (IX+8),A |
| 39596 |
LD (IX+9),A |
| 39599 |
LD (IX+10),A |
| 39602 |
LD (IX+11),A |
| 39605 |
JP DrawEntity |