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 |