6EF1: Routine at 6EF1
| 6EF1 | 
CALL StoreEntity | 
| 6EF4 | 
BIT 3,(IX+$04) | 
| 6EF8 | 
JR Z,$6F00 | 
| 6EFA | 
RES 3,(IX+$04) | 
| 6EFE | 
JR $6F29 | 
| 6F00 | 
CALL ReadInput | 
| 6F03 | 
BIT 0,A | 
| 6F05 | 
JR Z,$6F41 | 
| 6F07 | 
BIT 1,A | 
| 6F09 | 
JR Z,$6F77 | 
| 6F0B | 
LD A,(IX+$01) | 
| 6F0E | 
BIT 0,(IX+$04) | 
| 6F12 | 
JR Z,$6F37 | 
| 6F14 | 
CP $D8 | 
| 6F16 | 
JR NC,$6F29 | 
| 6F18 | 
CP $24 | 
| 6F1A | 
JR C,$6F29 | 
| 6F1C | 
CALL ReadInput | 
| 6F1F | 
BIT 3,A | 
| 6F21 | 
JP Z,$6FAA | 
| 6F24 | 
BIT 2,A | 
| 6F26 | 
JP Z,$6FBD | 
| 6F29 | 
CALL ReadInput | 
| 6F2C | 
BIT 4,A | 
| 6F2E | 
CALL Z,$6B70 | 
| 6F31 | 
CALL $74EB | 
| 6F34 | 
JP ColouriseSprite | 
| 6F37 | 
CP $18 | 
| 6F39 | 
JR C,$6F29 | 
| 6F3B | 
CP $CC | 
| 6F3D | 
JR NC,$6F29 | 
| 6F3F | 
JR $6F1C | 
| 6F41 | 
BIT 0,(IX+$04) | 
| 6F45 | 
JR Z,$6F61 | 
| 6F47 | 
LD A,(IX+$01) | 
| 6F4A | 
SUB $0C | 
| 6F4C | 
LD (IX+$01),A | 
| 6F4F | 
LD A,(IX+$09) | 
| 6F52 | 
ADD A,$10 | 
| 6F54 | 
LD (IX+$0D),A | 
| 6F57 | 
RES 0,(IX+$04) | 
| 6F5B | 
RES 2,(IX+$04) | 
| 6F5F | 
JR $6F72 | 
| 6F61 | 
LD A,(IX+$01) | 
| 6F64 | 
ADD A,$02 | 
| 6F66 | 
CP $CC | 
| 6F68 | 
JR NC,$6FC9 | 
| 6F6A | 
LD (IX+$01),A | 
| 6F6D | 
LD A,(IX+$09) | 
| 6F70 | 
ADD A,$02 | 
| 6F72 | 
LD (IX+$0D),A | 
| 6F75 | 
JR $6F0B | 
| 6F77 | 
BIT 0,(IX+$04) | 
| 6F7B | 
JR NZ,$6F97 | 
| 6F7D | 
LD A,(IX+$01) | 
| 6F80 | 
ADD A,$0C | 
| 6F82 | 
LD (IX+$01),A | 
| 6F85 | 
LD A,(IX+$09) | 
| 6F88 | 
SUB $10 | 
| 6F8A | 
LD (IX+$0D),A | 
| 6F8D | 
SET 0,(IX+$04) | 
| 6F91 | 
RES 2,(IX+$04) | 
| 6F95 | 
JR $6F72 | 
| 6F97 | 
LD A,(IX+$01) | 
| 6F9A | 
SUB $02 | 
| 6F9C | 
CP $24 | 
| 6F9E | 
JR C,$6FC9 | 
| 6FA0 | 
LD (IX+$01),A | 
| 6FA3 | 
LD A,(IX+$09) | 
| 6FA6 | 
SUB $02 | 
| 6FA8 | 
JR $6F72 | 
| 6FAA | 
LD A,(IX+$02) | 
| 6FAD | 
CP $28 | 
| 6FAF | 
JP C,$6F29 | 
| 6FB2 | 
SUB $02 | 
| 6FB4 | 
LD (IX+$02),A | 
| 6FB7 | 
LD (IX+$0E),A | 
| 6FBA | 
JP $6F29 | 
| 6FBD | 
LD A,(IX+$02) | 
| 6FC0 | 
ADD A,$02 | 
| 6FC2 | 
CP $B8 | 
| 6FC4 | 
JP NC,$6F29 | 
| 6FC7 | 
JR $6FB4 | 
| 6FC9 | 
CALL $7049 | 
| 6FCC | 
LD A,(IX+$02) | 
| 6FCF | 
LD (IX+$0E),A | 
| 6FD2 | 
BIT 0,E | 
| 6FD4 | 
JP Z,$6F0B | 
| 6FD7 | 
BIT 2,E | 
| 6FD9 | 
JP NZ,$6F29 | 
| 6FDC | 
LD A,(IX+$01) | 
| 6FDF | 
BIT 1,E | 
| 6FE1 | 
JR Z,$6FF7 | 
| 6FE3 | 
ADD A,$02 | 
| 6FE5 | 
CP $D8 | 
| 6FE7 | 
JR NC,$7007 | 
| 6FE9 | 
LD (IX+$01),A | 
| 6FEC | 
LD A,(IX+$09) | 
| 6FEF | 
ADD A,$02 | 
| 6FF1 | 
LD (IX+$0D),A | 
| 6FF4 | 
JP $6F29 | 
| 6FF7 | 
SUB $02 | 
| 6FF9 | 
CP $18 | 
| 6FFB | 
JR C,$7007 | 
| 6FFD | 
LD (IX+$01),A | 
| 7000 | 
LD A,(IX+$09) | 
| 7003 | 
SUB $02 | 
| 7005 | 
JR $6FF1 | 
| 7007 | 
BIT 2,(IX+$04) | 
| 700B | 
JP NZ,$6F29 | 
| 700E | 
LD A,(IX+$03) | 
| 7011 | 
AND $07 | 
| 7013 | 
OR $08 | 
| 7015 | 
LD (IX+$06),A | 
| 7018 | 
LD (HL),A | 
| 7019 | 
SET 2,(IX+$04) | 
| 701D | 
LD (IX+$00),$01 | 
| 7021 | 
LD (IX+$03),$47 | 
| 7025 | 
LD A,(IX+$09) | 
| 7028 | 
BIT 7,A | 
| 702A | 
JR NZ,$703B | 
| 702C | 
SUB $02 | 
| 702E | 
LD (IX+$0D),A | 
| 7031 | 
LD (IX+$0C),$01 | 
| 7035 | 
CALL $64DC | 
| 7038 | 
JP $6F29 | 
| 703B | 
ADD A,$04 | 
| 703D | 
JR $702E | 
| 703F | 
LD A,(IX+$00) | 
| 7042 | 
DEC A | 
| 7043 | 
RET NZ | 
| 7044 | 
RES 2,(IX+$04) | 
| 7048 | 
RET | 
| 7049 | 
LD E,$00 | 
| 704B | 
LD A,(IX+$02) | 
| 704E | 
AND $1F | 
| 7050 | 
SUB $17 | 
| 7052 | 
JP P,$7057 | 
| 7055 | 
NEG | 
| 7057 | 
CP $05 | 
| 7059 | 
JR NC,$703F | 
| 705B | 
LD A,(IX+$02) | 
| 705E | 
AND $E0 | 
| 7060 | 
OR $17 | 
| 7062 | 
LD (IX+$02),A | 
| 7065 | 
BIT 7,(IX+$01) | 
| 7069 | 
JR Z,$708B | 
| 706B | 
LD E,$03 | 
| 706D | 
LD A,(IX+$02) | 
| 7070 | 
RLCA | 
| 7071 | 
RLCA | 
| 7072 | 
RLCA | 
| 7073 | 
AND $07 | 
| 7075 | 
DEC A | 
| 7076 | 
BIT 7,(IX+$01) | 
| 707A | 
JR Z,$707E | 
| 707C | 
ADD A,$05 | 
| 707E | 
LD C,A | 
| 707F | 
LD B,$00 | 
| 7081 | 
LD HL,$5E23 | 
| 7084 | 
ADD HL,BC | 
| 7085 | 
LD A,(HL) | 
| 7086 | 
AND A | 
| 7087 | 
RET Z | 
| 7088 | 
SET 2,E | 
| 708A | 
RET | 
| 708B | 
LD E,$01 | 
| 708D | 
JR $706D | 
| 708F | 
LD HL,($5E05) | 
| 7092 | 
LD DE,($5E08) | 
| 7096 | 
LD A,L | 
| 7097 | 
LD L,H | 
| 7098 | 
LD H,A | 
| 7099 | 
LD A,E | 
| 709A | 
LD E,D | 
| 709B | 
LD D,A | 
| 709C | 
AND A | 
| 709D | 
SBC HL,DE | 
| 709F | 
JR C,$70AD | 
| 70A1 | 
JR NZ,$70CC | 
| 70A3 | 
LD A,($5E07) | 
| 70A6 | 
LD E,A | 
| 70A7 | 
LD A,($5E0A) | 
| 70AA | 
CP E | 
| 70AB | 
JR C,$70CC | 
| 70AD | 
LD HL,$5E08 | 
| 70B0 | 
PUSH HL | 
| 70B1 | 
LD DE,$5E00 | 
| 70B4 | 
LD B,$03 | 
| 70B6 | 
LD A,(DE) | 
| 70B7 | 
CP (HL) | 
| 70B8 | 
JR C,$70C2 | 
| 70BA | 
JR NZ,$70C0 | 
| 70BC | 
INC HL | 
| 70BD | 
INC DE | 
| 70BE | 
DJNZ $70B6 | 
| 70C0 | 
POP HL | 
| 70C1 | 
RET | 
| 70C2 | 
POP HL | 
| 70C3 | 
LD DE,$5E00 | 
| 70C6 | 
LD BC,$0003 | 
| 70C9 | 
LDIR | 
| 70CB | 
RET | 
| 70CC | 
LD HL,$5E05 | 
| 70CF | 
JR $70B0 |