69E8: Routine at 69E8
| 69E8 |
CALL StoreEntity |
| 69EB |
LD A,(IX+$05) |
| 69EE |
AND A |
| 69EF |
JR NZ,$6A31 |
| 69F1 |
LD A,$08 |
| 69F3 |
BIT 6,(IX+$00) |
| 69F7 |
JR Z,$69FB |
| 69F9 |
NEG |
| 69FB |
ADD A,(IX+$01) |
| 69FE |
CP $18 |
| 6A00 |
JR C,$6A31 |
| 6A02 |
CP $E0 |
| 6A04 |
JR NC,$6A31 |
| 6A06 |
LD (IX+$01),A |
| 6A09 |
AND $08 |
| 6A0B |
JR Z,$6A27 |
| 6A0D |
LD DE,$7991 |
| 6A10 |
CALL $74C0 |
| 6A13 |
EXX |
| 6A14 |
LD A,($5E0B) |
| 6A17 |
AND $08 |
| 6A19 |
JR Z,$6A2C |
| 6A1B |
LD DE,$7991 |
| 6A1E |
CALL $74A8 |
| 6A21 |
CALL $74F2 |
| 6A24 |
JP ColouriseSprite |
| 6A27 |
LD DE,$79A2 |
| 6A2A |
JR $6A10 |
| 6A2C |
LD DE,$79A2 |
| 6A2F |
JR $6A1E |
| 6A31 |
LD DE,$7991 |
| 6A34 |
CALL $7521 |
| 6A37 |
LD DE,$79A2 |
| 6A3A |
CALL $7521 |
| 6A3D |
LD (IX+$00),$00 |
| 6A41 |
RET |
| 6A42 |
LD HL,$5E7C |
| 6A45 |
LD B,$02 |
| 6A47 |
LD A,(IX+$01) |
| 6A4A |
LD C,(HL) |
| 6A4B |
INC HL |
| 6A4C |
SUB (HL) |
| 6A4D |
JP P,$6A52 |
| 6A50 |
NEG |
| 6A52 |
CP $10 |
| 6A54 |
JR NC,$6A6B |
| 6A56 |
LD A,(IX+$02) |
| 6A59 |
INC HL |
| 6A5A |
SUB (HL) |
| 6A5B |
JP P,$6A60 |
| 6A5E |
NEG |
| 6A60 |
CP $0D |
| 6A62 |
JR NC,$6A6B |
| 6A64 |
INC HL |
| 6A65 |
INC HL |
| 6A66 |
INC HL |
| 6A67 |
LD E,$01 |
| 6A69 |
LD (HL),E |
| 6A6A |
RET |
| 6A6B |
LD HL,$5E84 |
| 6A6E |
DJNZ $6A47 |
| 6A70 |
LD E,$00 |
| 6A72 |
RET |
