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 |