F8B9: Routine at F8B9
F8B9 |
LD IX,$80A9 |
F8BD |
LD A,$08 |
F8BF |
LD ($F26E),A |
F8C2 |
LD B,$0C |
F8C4 |
PUSH BC |
F8C5 |
LD BC,$F8B5 |
F8C8 |
LD A,(IX+$00) |
F8CB |
CP $FF |
F8CD |
JR NZ,$F8D6 |
F8CF |
CALL $EF88 |
F8D2 |
INC IX |
F8D4 |
JR $F936 |
F8D6 |
CALL $EF35 |
F8D9 |
LD A,(IX+$00) |
F8DC |
CALL $A8A0 |
F8DF |
INC IX |
F8E1 |
LD A,(IY+$05) |
F8E4 |
SUB (IX-$05) |
F8E7 |
SUB $08 |
F8E9 |
CP $F0 |
F8EB |
JR C,$F8FA |
F8ED |
LD A,(IY+$0A) |
F8F0 |
SUB (IX-$04) |
F8F3 |
SUB $08 |
F8F5 |
CP $F0 |
F8F7 |
CALL NC,$E33F |
F8FA |
LD A,($F672) |
F8FD |
OR A |
F8FE |
JR Z,$F918 |
F900 |
LD A,(IX-$05) |
F903 |
CP $F0 |
F905 |
JR Z,$F90B |
F907 |
LD A,$EE |
F909 |
JR $F90D |
F90B |
LD A,$02 |
F90D |
LD (IX-$05),A |
F910 |
LD A,(IX-$03) |
F913 |
NEG |
F915 |
LD (IX-$03),A |
F918 |
LD A,($F673) |
F91B |
OR A |
F91C |
JR Z,$F936 |
F91E |
LD A,(IX-$04) |
F921 |
CP $40 |
F923 |
JR NZ,$F929 |
F925 |
LD A,$AE |
F927 |
JR $F92B |
F929 |
LD A,$42 |
F92B |
LD (IX-$04),A |
F92E |
LD A,(IX-$02) |
F931 |
NEG |
F933 |
LD (IX-$02),A |
F936 |
POP BC |
F937 |
DJNZ $F8C4 |
F939 |
RET |
F93A |
CALL Controls_Left |
F93D |
OR A |
F93E |
JR Z,$F94E |
F940 |
DEC (IY+$00) |
F943 |
LD A,(IY+$00) |
F946 |
CP $6D |
F948 |
JR NZ,$F94E |
F94A |
LD (IY+$00),$75 |
F94E |
CALL Controls_Right |
F951 |
OR A |
F952 |
JR Z,$F962 |
F954 |
INC (IY+$00) |
F957 |
LD A,(IY+$00) |
F95A |
CP $76 |
F95C |
JR NZ,$F962 |
F95E |
LD (IY+$00),$6E |
F962 |
CALL Controls_ExitScreen |
F965 |
OR A |
F966 |
JR Z,$F994 |
F968 |
CALL $F9A4 |
F96B |
LD A,(IY+$05) |
F96E |
ADD A,(HL) |
F96F |
JR NZ,$F975 |
F971 |
LD A,$EE |
F973 |
JR $F97B |
F975 |
CP $F0 |
F977 |
JR NZ,$F97B |
F979 |
LD A,$02 |
F97B |
LD (IY+$05),A |
F97E |
INC HL |
F97F |
LD A,(IY+$0A) |
F982 |
ADD A,(HL) |
F983 |
CP $40 |
F985 |
JR NZ,$F98B |
F987 |
LD A,$AC |
F989 |
JR $F991 |
F98B |
CP $AE |
F98D |
JR NZ,$F991 |
F98F |
LD A,$42 |
F991 |
LD (IY+$0A),A |
F994 |
LD L,(IY+$05) |
F997 |
LD H,(IY+$0A) |
F99A |
LD ($A838),HL |
F99D |
LD A,(IY+$00) |
F9A0 |
CALL $A83D |
F9A3 |
RET |
F9A4 |
LD A,(IY+$00) |
F9A7 |
SUB $6E |
F9A9 |
ADD A,A |
F9AA |
LD E,A |
F9AB |
LD D,$00 |
F9AD |
LD HL,$F9B2 |
F9B0 |
ADD HL,DE |
F9B1 |
RET |
F9B2 |
NOP |
F9B3 |
CP $02 |
F9B5 |
CP $02 |
F9B7 |
NOP |
F9B8 |
LD (BC),A |
F9B9 |
LD (BC),A |
F9BA |
NOP |
F9BB |
LD (BC),A |
F9BC |
CP $02 |
F9BE |
CP $00 |
F9C0 |
CP $FE |
F9C2 |
NOP |
F9C3 |
ADD A,B |
F9C4 |
PUSH AF |
F9C5 |
PUSH BC |
F9C6 |
PUSH HL |
F9C7 |
LD HL,($F9C2) |
F9CA |
LD B,$19 |
F9CC |
PUSH BC |
F9CD |
LD B,(HL) |
F9CE |
INC HL |
F9CF |
LD A,$10 |
F9D1 |
OUT ($FE),A |
F9D3 |
PUSH BC |
F9D4 |
DJNZ $F9D4 |
F9D6 |
POP BC |
F9D7 |
LD B,(HL) |
F9D8 |
INC HL |
F9D9 |
LD A,$00 |
F9DB |
OUT ($FE),A |
F9DD |
DJNZ $F9DD |
F9DF |
POP BC |
F9E0 |
DJNZ $F9CC |
F9E2 |
LD A,H |
F9E3 |
CP $9C |
F9E5 |
JR NZ,$F9E9 |
F9E7 |
LD H,$80 |
F9E9 |
LD ($F9C2),HL |
F9EC |
POP HL |
F9ED |
POP BC |
F9EE |
POP AF |
F9EF |
RET |
F9F0 |
DEFB $FF |
F9F1 |
DEFB $FF |
F9F2 |
DEFB $00 |
F9F3 |
DEFB $00 |
F9F4 |
DEFB $14 |
F9F5 |
LD IX,$F9F0 |
F9F9 |
LD A,(IX+$00) |
F9FC |
CP $FF |
F9FE |
JR NZ,$FA2A |
FA00 |
CALL Controls_Jump |
FA03 |
OR A |
FA04 |
RET Z |
FA05 |
LD A,(IY+$05) |
FA08 |
LD ($F9F0),A |
FA0B |
LD A,(IY+$0A) |
FA0E |
LD ($F9F1),A |
FA11 |
CALL $F9A4 |
FA14 |
LD A,(HL) |
FA15 |
LD ($F9F2),A |
FA18 |
INC HL |
FA19 |
LD A,(HL) |
FA1A |
LD ($F9F3),A |
FA1D |
LD BC,$FF0A |
FA20 |
LD DE,$0114 |
FA23 |
LD HL,$1401 |
FA26 |
CALL PlayWaveSequence |
FA29 |
RET |
FA2A |
LD BC,$F8B5 |
FA2D |
CALL $EF35 |
FA30 |
LD A,$6D |
FA32 |
CALL $A83D |
FA35 |
LD A,($F672) |
FA38 |
LD B,A |
FA39 |
LD A,($F673) |
FA3C |
OR B |
FA3D |
JR Z,$FA44 |
FA3F |
LD (IX-$04),$FF |
FA43 |
RET |
FA44 |
LD B,$0C |
FA46 |
LD HL,$80A9 |
FA49 |
LD A,(HL) |
FA4A |
CP $FF |
FA4C |
JR NZ,$FA56 |
FA4E |
INC HL |
FA4F |
INC HL |
FA50 |
INC HL |
FA51 |
INC HL |
FA52 |
INC HL |
FA53 |
DJNZ $FA49 |
FA55 |
RET |
FA56 |
LD E,A |
FA57 |
SUB (IX-$04) |
FA5A |
SUB $08 |
FA5C |
CP $F0 |
FA5E |
JR C,$FA4E |
FA60 |
INC HL |
FA61 |
LD A,(HL) |
FA62 |
LD D,A |
FA63 |
DEC HL |
FA64 |
SUB (IX-$03) |
FA67 |
SUB $08 |
FA69 |
CP $F0 |
FA6B |
JR C,$FA4E |
FA6D |
LD A,$FF |
FA6F |
LD (HL),A |
FA70 |
LD ($F9F0),A |
FA73 |
INC HL |
FA74 |
INC HL |
FA75 |
INC HL |
FA76 |
INC HL |
FA77 |
LD A,(HL) |
FA78 |
CP $6B |
FA7A |
JR Z,$FA86 |
FA7C |
LD A,$6B |
FA7E |
CALL $FAF0 |
FA81 |
CALL $FAF0 |
FA84 |
JR $FAE3 |
FA86 |
LD A,($FAEF) |
FA89 |
XOR $01 |
FA8B |
LD ($FAEF),A |
FA8E |
JR NZ,$FAE3 |
FA90 |
LD DE,$42EE |
FA93 |
LD A,R |
FA95 |
AND $01 |
FA97 |
JR NZ,$FA9C |
FA99 |
LD DE,$AE02 |
FA9C |
LD A,$38 |
FA9E |
CALL $FAF0 |
FAA1 |
LD HL,$F9F4 |
FAA4 |
LD A,(HL) |
FAA5 |
OR A |
FAA6 |
JR Z,$FAE3 |
FAA8 |
DEC (HL) |
FAA9 |
JR NZ,$FAE3 |
FAAB |
LD A,$01 |
FAAD |
LD ($EC1C),A |
FAB0 |
LD ($ECB3),A |
FAB3 |
LD A,(IY-$1E) |
FAB6 |
ADD A,$01 |
FAB8 |
DAA |
FAB9 |
LD (IY-$1E),A |
FABC |
LD A,($ECFE) |
FABF |
ADD A,$01 |
FAC1 |
DAA |
FAC2 |
LD ($ECFE),A |
FAC5 |
LD BC,$BE32 |
FAC8 |
LD HL,$0000 |
FACB |
LD DE,$0A0A |
FACE |
CALL $FAE7 |
FAD1 |
LD BC,$9664 |
FAD4 |
CALL $FAE7 |
FAD7 |
LD BC,$A532 |
FADA |
CALL $FAE7 |
FADD |
LD BC,$7D78 |
FAE0 |
CALL $FAE7 |
FAE3 |
CALL $F9C4 |
FAE6 |
RET |
FAE7 |
PUSH HL |
FAE8 |
PUSH DE |
FAE9 |
CALL PlayWaveSequence |
FAEC |
POP DE |
FAED |
POP HL |
FAEE |
RET |