9B16: Routine at 9B16
| 9B16 |
LD A,$FF |
| 9B18 |
LD ($B6E9),A |
| 9B1B |
LD A,(IX+$01) |
| 9B1E |
LD ($B6E8),A |
| 9B21 |
CALL LocateObject |
| 9B24 |
BIT 3,(IX+$07) |
| 9B28 |
JP NZ,$9870 |
| 9B2B |
BIT 6,(IX+$07) |
| 9B2F |
JP NZ,$9870 |
| 9B32 |
BIT 5,(IX+$07) |
| 9B36 |
JP Z,$9901 |
| 9B39 |
LD A,$37 |
| 9B3B |
LD ($B6E7),A |
| 9B3E |
CALL $99C6 |
| 9B41 |
JP $9901 |
| 9B44 |
LD A,($B6E8) |
| 9B47 |
INC A |
| 9B48 |
JR NZ,$9B4C |
| 9B4A |
INC A |
| 9B4B |
RET |
| 9B4C |
LD A,($B6FE) |
| 9B4F |
AND A |
| 9B50 |
JR NZ,$9B5F |
| 9B52 |
LD HL,$B6E8 |
| 9B55 |
LD A,($B6EA) |
| 9B58 |
CP (HL) |
| 9B59 |
RET Z |
| 9B5A |
LD A,($B6E9) |
| 9B5D |
CP (HL) |
| 9B5E |
RET Z |
| 9B5F |
LD A,($B6FF) |
| 9B62 |
AND A |
| 9B63 |
RET NZ |
| 9B64 |
LD A,($B6E9) |
| 9B67 |
LD HL,$B6EA |
| 9B6A |
CP (HL) |
| 9B6B |
RET |
