AD07: Routine at AD07
AD07 |
CALL StoreEntity |
AD0A |
CALL $AD93 |
AD0D |
LD A,$20 |
AD0F |
LD ($96AD),A |
AD12 |
CALL $AFE8 |
AD15 |
LD BC,$171F |
AD18 |
CALL $B81C |
AD1B |
CALL $AAED |
AD1E |
JR NZ,$AD28 |
AD20 |
LD A,$30 |
AD22 |
CALL $AD86 |
AD25 |
CALL $ADA2 |
AD28 |
LD (IX+$03),E |
AD2B |
LD (IX+$04),D |
AD2E |
LD A,(IX+$00) |
AD31 |
RRCA |
AD32 |
AND %00000001 |
AD34 |
LD D,A |
AD35 |
LD BC,$0F1C |
AD38 |
CALL $AB36 |
AD3B |
JR NC,$AD46 |
AD3D |
LD A,($9704) |
AD40 |
AND A |
AD41 |
JR Z,$AD69 |
AD43 |
CALL $ADA2 |
AD46 |
LD A,($9703) |
AD49 |
LD C,A |
AD4A |
CP (IX+$01) |
AD4D |
JR Z,$AD57 |
AD4F |
LD A,($96A2) |
AD52 |
CP C |
AD53 |
RET NZ |
AD54 |
JP RemoveEntity |