A4D7: Routine at A4D7
| A4D7 |
LD A,($9703) |
| A4DA |
CP (IX+$01) |
| A4DD |
JR NZ,$A493 |
| A4DF |
LD A,$17 |
| A4E1 |
LD ($96AD),A |
| A4E4 |
CALL StoreEntity |
| A4E7 |
LD A,($9702) |
| A4EA |
SUB $10 |
| A4EC |
CP $20 |
| A4EE |
JR NC,$A4A6 |
| A4F0 |
LD BC,$3008 |
| A4F3 |
LD A,($9705) |
| A4F6 |
SUB (IX+$03) |
| A4F9 |
JR Z,$A506 |
| A4FB |
LD A,C |
| A4FC |
JR NC,$A500 |
| A4FE |
NEG |
| A500 |
ADD A,(IX+$06) |
| A503 |
CALL $AFD0 |
| A506 |
LD (IX+$06),A |
| A509 |
LD A,($9706) |
| A50C |
CP (IX+$04) |
| A50F |
JR Z,$A51C |
| A511 |
LD A,C |
| A512 |
JR NC,$A516 |
| A514 |
NEG |
| A516 |
ADD A,(IX+$07) |
| A519 |
CALL $AFD0 |
| A51C |
LD (IX+$07),A |
| A51F |
CALL $A4C3 |
| A522 |
CALL $A44B |
| A525 |
BIT 0,B |
| A527 |
JR NZ,$A545 |
| A529 |
BIT 1,B |
| A52B |
JR NZ,$A54A |
| A52D |
LD BC,$1717 |
| A530 |
CALL $B81C |
| A533 |
LD (IX+$03),E |
| A536 |
LD (IX+$04),D |
| A539 |
LD BC,$1313 |
| A53C |
CALL $AB36 |
| A53F |
JP NC,$AD5D |
| A542 |
JP $A4A6 |
