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 |