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 |