63673: Routine at F8B9
| 63673 |
LD IX,32937 |
| 63677 |
LD A,8 |
| 63679 |
LD (62062),A |
| 63682 |
LD B,12 |
| 63684 |
PUSH BC |
| 63685 |
LD BC,63669 |
| 63688 |
LD A,(IX+0) |
| 63691 |
CP 255 |
| 63693 |
JR NZ,63702 |
| 63695 |
CALL 61320 |
| 63698 |
INC IX |
| 63700 |
JR 63798 |
| 63702 |
CALL 61237 |
| 63705 |
LD A,(IX+0) |
| 63708 |
CALL 43168 |
| 63711 |
INC IX |
| 63713 |
LD A,(IY+5) |
| 63716 |
SUB (IX-5) |
| 63719 |
SUB 8 |
| 63721 |
CP 240 |
| 63723 |
JR C,63738 |
| 63725 |
LD A,(IY+10) |
| 63728 |
SUB (IX-4) |
| 63731 |
SUB 8 |
| 63733 |
CP 240 |
| 63735 |
CALL NC,58175 |
| 63738 |
LD A,(63090) |
| 63741 |
OR A |
| 63742 |
JR Z,63768 |
| 63744 |
LD A,(IX-5) |
| 63747 |
CP 240 |
| 63749 |
JR Z,63755 |
| 63751 |
LD A,238 |
| 63753 |
JR 63757 |
| 63755 |
LD A,2 |
| 63757 |
LD (IX-5),A |
| 63760 |
LD A,(IX-3) |
| 63763 |
NEG |
| 63765 |
LD (IX-3),A |
| 63768 |
LD A,(63091) |
| 63771 |
OR A |
| 63772 |
JR Z,63798 |
| 63774 |
LD A,(IX-4) |
| 63777 |
CP 64 |
| 63779 |
JR NZ,63785 |
| 63781 |
LD A,174 |
| 63783 |
JR 63787 |
| 63785 |
LD A,66 |
| 63787 |
LD (IX-4),A |
| 63790 |
LD A,(IX-2) |
| 63793 |
NEG |
| 63795 |
LD (IX-2),A |
| 63798 |
POP BC |
| 63799 |
DJNZ 63684 |
| 63801 |
RET |
| 63802 |
CALL Controls_Left |
| 63805 |
OR A |
| 63806 |
JR Z,63822 |
| 63808 |
DEC (IY+0) |
| 63811 |
LD A,(IY+0) |
| 63814 |
CP 109 |
| 63816 |
JR NZ,63822 |
| 63818 |
LD (IY+0),117 |
| 63822 |
CALL Controls_Right |
| 63825 |
OR A |
| 63826 |
JR Z,63842 |
| 63828 |
INC (IY+0) |
| 63831 |
LD A,(IY+0) |
| 63834 |
CP 118 |
| 63836 |
JR NZ,63842 |
| 63838 |
LD (IY+0),110 |
| 63842 |
CALL Controls_ExitScreen |
| 63845 |
OR A |
| 63846 |
JR Z,63892 |
| 63848 |
CALL 63908 |
| 63851 |
LD A,(IY+5) |
| 63854 |
ADD A,(HL) |
| 63855 |
JR NZ,63861 |
| 63857 |
LD A,238 |
| 63859 |
JR 63867 |
| 63861 |
CP 240 |
| 63863 |
JR NZ,63867 |
| 63865 |
LD A,2 |
| 63867 |
LD (IY+5),A |
| 63870 |
INC HL |
| 63871 |
LD A,(IY+10) |
| 63874 |
ADD A,(HL) |
| 63875 |
CP 64 |
| 63877 |
JR NZ,63883 |
| 63879 |
LD A,172 |
| 63881 |
JR 63889 |
| 63883 |
CP 174 |
| 63885 |
JR NZ,63889 |
| 63887 |
LD A,66 |
| 63889 |
LD (IY+10),A |
| 63892 |
LD L,(IY+5) |
| 63895 |
LD H,(IY+10) |
| 63898 |
LD (43064),HL |
| 63901 |
LD A,(IY+0) |
| 63904 |
CALL 43069 |
| 63907 |
RET |
| 63908 |
LD A,(IY+0) |
| 63911 |
SUB 110 |
| 63913 |
ADD A,A |
| 63914 |
LD E,A |
| 63915 |
LD D,0 |
| 63917 |
LD HL,63922 |
| 63920 |
ADD HL,DE |
| 63921 |
RET |
| 63922 |
NOP |
| 63923 |
CP 2 |
| 63925 |
CP 2 |
| 63927 |
NOP |
| 63928 |
LD (BC),A |
| 63929 |
LD (BC),A |
| 63930 |
NOP |
| 63931 |
LD (BC),A |
| 63932 |
CP 2 |
| 63934 |
CP 0 |
| 63936 |
CP 254 |
| 63938 |
NOP |
| 63939 |
ADD A,B |
| 63940 |
PUSH AF |
| 63941 |
PUSH BC |
| 63942 |
PUSH HL |
| 63943 |
LD HL,(63938) |
| 63946 |
LD B,25 |
| 63948 |
PUSH BC |
| 63949 |
LD B,(HL) |
| 63950 |
INC HL |
| 63951 |
LD A,16 |
| 63953 |
OUT (254),A |
| 63955 |
PUSH BC |
| 63956 |
DJNZ 63956 |
| 63958 |
POP BC |
| 63959 |
LD B,(HL) |
| 63960 |
INC HL |
| 63961 |
LD A,0 |
| 63963 |
OUT (254),A |
| 63965 |
DJNZ 63965 |
| 63967 |
POP BC |
| 63968 |
DJNZ 63948 |
| 63970 |
LD A,H |
| 63971 |
CP 156 |
| 63973 |
JR NZ,63977 |
| 63975 |
LD H,128 |
| 63977 |
LD (63938),HL |
| 63980 |
POP HL |
| 63981 |
POP BC |
| 63982 |
POP AF |
| 63983 |
RET |
| 63984 |
DEFB 255 |
| 63985 |
DEFB 255 |
| 63986 |
DEFB 0 |
| 63987 |
DEFB 0 |
| 63988 |
DEFB 20 |
| 63989 |
LD IX,63984 |
| 63993 |
LD A,(IX+0) |
| 63996 |
CP 255 |
| 63998 |
JR NZ,64042 |
| 64000 |
CALL Controls_Jump |
| 64003 |
OR A |
| 64004 |
RET Z |
| 64005 |
LD A,(IY+5) |
| 64008 |
LD (63984),A |
| 64011 |
LD A,(IY+10) |
| 64014 |
LD (63985),A |
| 64017 |
CALL 63908 |
| 64020 |
LD A,(HL) |
| 64021 |
LD (63986),A |
| 64024 |
INC HL |
| 64025 |
LD A,(HL) |
| 64026 |
LD (63987),A |
| 64029 |
LD BC,65290 |
| 64032 |
LD DE,276 |
| 64035 |
LD HL,5121 |
| 64038 |
CALL PlayWaveSequence |
| 64041 |
RET |
| 64042 |
LD BC,63669 |
| 64045 |
CALL 61237 |
| 64048 |
LD A,109 |
| 64050 |
CALL 43069 |
| 64053 |
LD A,(63090) |
| 64056 |
LD B,A |
| 64057 |
LD A,(63091) |
| 64060 |
OR B |
| 64061 |
JR Z,64068 |
| 64063 |
LD (IX-4),255 |
| 64067 |
RET |
| 64068 |
LD B,12 |
| 64070 |
LD HL,32937 |
| 64073 |
LD A,(HL) |
| 64074 |
CP 255 |
| 64076 |
JR NZ,64086 |
| 64078 |
INC HL |
| 64079 |
INC HL |
| 64080 |
INC HL |
| 64081 |
INC HL |
| 64082 |
INC HL |
| 64083 |
DJNZ 64073 |
| 64085 |
RET |
| 64086 |
LD E,A |
| 64087 |
SUB (IX-4) |
| 64090 |
SUB 8 |
| 64092 |
CP 240 |
| 64094 |
JR C,64078 |
| 64096 |
INC HL |
| 64097 |
LD A,(HL) |
| 64098 |
LD D,A |
| 64099 |
DEC HL |
| 64100 |
SUB (IX-3) |
| 64103 |
SUB 8 |
| 64105 |
CP 240 |
| 64107 |
JR C,64078 |
| 64109 |
LD A,255 |
| 64111 |
LD (HL),A |
| 64112 |
LD (63984),A |
| 64115 |
INC HL |
| 64116 |
INC HL |
| 64117 |
INC HL |
| 64118 |
INC HL |
| 64119 |
LD A,(HL) |
| 64120 |
CP 107 |
| 64122 |
JR Z,64134 |
| 64124 |
LD A,107 |
| 64126 |
CALL 64240 |
| 64129 |
CALL 64240 |
| 64132 |
JR 64227 |
| 64134 |
LD A,(64239) |
| 64137 |
XOR 1 |
| 64139 |
LD (64239),A |
| 64142 |
JR NZ,64227 |
| 64144 |
LD DE,17134 |
| 64147 |
LD A,R |
| 64149 |
AND 1 |
| 64151 |
JR NZ,64156 |
| 64153 |
LD DE,44546 |
| 64156 |
LD A,56 |
| 64158 |
CALL 64240 |
| 64161 |
LD HL,63988 |
| 64164 |
LD A,(HL) |
| 64165 |
OR A |
| 64166 |
JR Z,64227 |
| 64168 |
DEC (HL) |
| 64169 |
JR NZ,64227 |
| 64171 |
LD A,1 |
| 64173 |
LD (60444),A |
| 64176 |
LD (60595),A |
| 64179 |
LD A,(IY-30) |
| 64182 |
ADD A,1 |
| 64184 |
DAA |
| 64185 |
LD (IY-30),A |
| 64188 |
LD A,(60670) |
| 64191 |
ADD A,1 |
| 64193 |
DAA |
| 64194 |
LD (60670),A |
| 64197 |
LD BC,48690 |
| 64200 |
LD HL,0 |
| 64203 |
LD DE,2570 |
| 64206 |
CALL 64231 |
| 64209 |
LD BC,38500 |
| 64212 |
CALL 64231 |
| 64215 |
LD BC,42290 |
| 64218 |
CALL 64231 |
| 64221 |
LD BC,32120 |
| 64224 |
CALL 64231 |
| 64227 |
CALL 63940 |
| 64230 |
RET |
| 64231 |
PUSH HL |
| 64232 |
PUSH DE |
| 64233 |
CALL PlayWaveSequence |
| 64236 |
POP DE |
| 64237 |
POP HL |
| 64238 |
RET |
