6C53: Routine at 6C53
| 6C53 |
CALL StoreEntity |
| 6C56 |
LD A,($5E8E) |
| 6C59 |
CP (IX+$02) |
| 6C5C |
JR C,$6C66 |
| 6C5E |
LD (IX+$05),$01 |
| 6C62 |
LD (IX+$04),$01 |
| 6C66 |
LD A,(IX+$04) |
| 6C69 |
AND A |
| 6C6A |
JR Z,$6CBE |
| 6C6C |
LD A,(IX+$05) |
| 6C6F |
AND A |
| 6C70 |
JR NZ,$6C9C |
| 6C72 |
LD A,($5E17) |
| 6C75 |
CPL |
| 6C76 |
AND %00000111 |
| 6C78 |
JR NZ,$6CBE |
| 6C7A |
CALL $6CC7 |
| 6C7D |
CALL $74A8 |
| 6C80 |
EXX |
| 6C81 |
INC (IX+$06) |
| 6C84 |
LD A,(IX+$06) |
| 6C87 |
CP $03 |
| 6C89 |
JR NZ,$6C8F |
| 6C8B |
LD (IX+$04),$00 |
| 6C8F |
CALL $6CC7 |
| 6C92 |
CALL $74C0 |
| 6C95 |
EXX |
| 6C96 |
CALL $74F2 |
| 6C99 |
JP ColouriseSprite |
| 6C9C |
LD A,($5E17) |
| 6C9F |
AND %00000011 |
| 6CA1 |
JR NZ,$6CBE |
| 6CA3 |
CALL $6CC7 |
| 6CA6 |
CALL $74A8 |
| 6CA9 |
EXX |
| 6CAA |
DEC (IX+$06) |
| 6CAD |
JP P,$6C8F |
| 6CB0 |
INC (IX+$06) |
| 6CB3 |
CALL $6CC7 |
| 6CB6 |
CALL $6A3A |
| 6CB9 |
LD HL,$5E90 |
| 6CBC |
DEC (HL) |
| 6CBD |
RET |
| 6CBE |
CALL $6CC7 |
| 6CC1 |
CALL $751C |
| 6CC4 |
JP ColouriseSprite |
