A7D1: Script routine: (46)
| A7D1 |
CALL $A7EC |
| A7D4 |
LD A,(IX+$05) |
| A7D7 |
SUB $02 |
| A7D9 |
LD E,A |
| A7DA |
LD A,(IY+$07) |
| A7DD |
SUB E |
| A7DE |
JP NC,$A9E0 |
| A7E1 |
NEG |
| A7E3 |
LD ($ADE0),A |
| A7E6 |
CALL $92FD |
| A7E9 |
JP AdvanceScriptInstruction |
| A7EC |
LD A,($6D8A) |
| A7EF |
CP (IX+$00) |
| A7F2 |
JP NZ,$A818 |
| A7F5 |
LD A,$02 |
| A7F7 |
CALL $D899 |
| A7FA |
LD A,($6DB1) |
| A7FD |
INC A |
| A7FE |
LD ($6DB1),A |
| A801 |
LD IY,($6D73) |
| A805 |
LD A,(IX+$01) |
| A808 |
CP (IY+$01) |
| A80B |
RET Z |
| A80C |
POP BC |
| A80D |
LD A,$20 |
| A80F |
LD ($ADE0),A |
| A812 |
LD ($ADD3),A |
| A815 |
JP AdvanceScriptInstruction |
| A818 |
POP BC |
| A819 |
JP $A9E0 |
