6C2F: Routine at 6C2F
| 6C2F |
LD HL,$5DCB |
| 6C32 |
INC (HL) |
| 6C33 |
CALL $6CE7 |
| 6C36 |
XOR A |
| 6C37 |
LD ($5DC9),A |
| 6C3A |
CALL $6E52 |
| 6C3D |
DEC C |
| 6C3E |
LD BC,$0040 |
| 6C41 |
JP Z,$6D93 |
| 6C44 |
CALL $6E20 |
| 6C47 |
DEC E |
| 6C48 |
JP Z,$648D |
| 6C4B |
CALL $761D |
| 6C4E |
BIT 2,E |
| 6C50 |
JR Z,$6C67 |
| 6C52 |
BIT 7,E |
| 6C54 |
JR NZ,$6CCB |
| 6C56 |
BIT 4,E |
| 6C58 |
JR NZ,$6CD1 |
| 6C5A |
LD A,E |
| 6C5B |
AND $40 |
| 6C5D |
LD E,A |
| 6C5E |
LD A,(IX+$04) |
| 6C61 |
AND $BF |
| 6C63 |
OR E |
| 6C64 |
LD (IX+$04),A |
| 6C67 |
BIT 0,(IX+$04) |
| 6C6B |
JR NZ,$6C92 |
| 6C6D |
LD A,($5DCE) |
| 6C70 |
LD E,A |
| 6C71 |
AND $0F |
| 6C73 |
JR NZ,$6C92 |
| 6C75 |
SET 0,(IX+$04) |
| 6C79 |
LD A,($5DCC) |
| 6C7C |
AND $1F |
| 6C7E |
ADD A,$10 |
| 6C80 |
LD (IX+$06),A |
| 6C83 |
LD A,E |
| 6C84 |
AND $80 |
| 6C86 |
LD E,A |
| 6C87 |
LD A,(IX+$04) |
| 6C8A |
AND $7F |
| 6C8C |
OR E |
| 6C8D |
LD (IX+$04),A |
| 6C90 |
JR $6C4B |
| 6C92 |
BIT 0,(IX+$04) |
| 6C96 |
JR Z,$6CAF |
| 6C98 |
LD A,(IX+$02) |
| 6C9B |
BIT 7,(IX+$04) |
| 6C9F |
JR Z,$6CD7 |
| 6CA1 |
ADD A,$02 |
| 6CA3 |
LD (IX+$02),A |
| 6CA6 |
DEC (IX+$06) |
| 6CA9 |
JR NZ,$6CAF |
| 6CAB |
RES 0,(IX+$04) |
| 6CAF |
LD A,(IX+$01) |
| 6CB2 |
BIT 6,(IX+$04) |
| 6CB6 |
JR Z,$6CE3 |
| 6CB8 |
ADD A,$02 |
| 6CBA |
LD (IX+$01),A |
| 6CBD |
LD A,($5DC9) |
| 6CC0 |
AND A |
| 6CC1 |
JP NZ,$6D7A |
| 6CC4 |
INC A |
| 6CC5 |
LD ($5DC9),A |
| 6CC8 |
JP $6C4B |
| 6CCB |
RES 7,(IX+$04) |
| 6CCF |
JR $6C67 |
| 6CD1 |
SET 7,(IX+$04) |
| 6CD5 |
JR $6C67 |
| 6CD7 |
SUB $02 |
| 6CD9 |
CP $28 |
| 6CDB |
JR NC,$6CA3 |
| 6CDD |
SET 7,(IX+$04) |
| 6CE1 |
JR $6CA3 |
| 6CE3 |
SUB $02 |
| 6CE5 |
JR $6CBA |
| 6CE7 |
CALL StoreEntity |
| 6CEA |
LD A,(IX+$00) |
| 6CED |
AND $C0 |
| 6CEF |
OR $03 |
| 6CF1 |
LD ($5DC2),A |
| 6CF4 |
RET |
