FUJIbaudXdataqUU10 ;half way through!20 .OPT NOLIST30 ;*** EXECUTE WITH GA00 ***40 ;50 ; PAGE ZERO LOCATIONS60 ;BELOW ORDER MUST BE data UUKEPT70 ;80 MISRAM=$2000+76890 SAVESCROLL=$B00100 SCLSB=$B10110 SCMSB=$B20120 PLOTABLE=$B30130 PLOTABLEM=$B40140 RANDLSB=data UU$B70150 RANDMSB=$B60160 COUNT2=$B70170 COUNT3=$B80180 NO.ALIENS=$B90190 ALIENTYPE=$BA0200 SCROLT=$BB0210 SCROLTM=$BC0220data UU TEMPA=$BD0230 TEMPB=$BE0240 SCROLLEDR=$C10250 SCROLLEDL=$C20260 V.SCROLLED.D=$C30270 V.SCROLLED=$C40280 TEMPA2=$C60290 Tdata UUEMPB2=$C70300 TEMPAI=$C80310 TEMPBI=$C90320 ;0330 ;0340 ;0350 *=$600+500360 ;0370 HPOSP0 *=*+10380 FIRED *=*+10390 MIdata UUSVPOS *=*+10400 COUNT *=*+10410 MULTI1 *=*+10420 MULTI2 *=*+10430 LSB.PROD *=*+10440 MSB.PROD *=*+10450 SCTA. *=*+10460 Esdata UUXPOIT *=*+10470 MSBNUM *=*+10480 ANSWER *=*+10490 DIVISOR *=*+10500 LSBNUM *=*+10510 REMAINDER *=*+10520 FREEM *=*+10530 data UUBOHRD *=*+10540 ROW *=*+10550 BOMOFP *=*+10560 READR *=*+10570 READL *=*+10580 MASKM *=*+10590 M.HPOS *=*+10600 SE.LR *=* data UU+10610 HRDB *=*+10620 VPOSPL *=*+10630 PM2HIT *=*+10640 LIVES *=*+10650 SCORE *=*+30660 HI *=*+30670 TIME *=*+10680 HITS\data UU *=*+10690 WAVE *=*+10700 ;0710 VPOSM0 *=*+10720 VPOSM1 *=*+10730 VPOSM2 *=*+10740 VPOSM3 *=*+10750 ;0760 ;0770 MULTI1Idata UU *=*+10780 MULTI2I *=*+10790 MSBNUMI *=*+10800 LSBNUMI *=*+10810 ANSWERI *=*+10820 DIVISORI *=*+10830 REMAINDERI *=*+1084data UU0 LSB.PRODI *=*+10850 MSB.PRODI *=*+10860 ;0870 ;0880 ;0890 *=25600900 FIRST LDX #$FF0910 TXS0920 LDA #00930 STA SCdata UUTA.0940 JSR SCINIT0950 JSR START0960 JSR INITPM0970 JSR STIMER0980 LDA #70990 LDY #VBLANK&$FF1000 LDX #VBLANK/256data UU1010 JSR $E45C1020 LDA #01030 STA SCORE1040 STA SCORE+11050 STA SCORE+21060 STA PM2HIT1070 LDA #$1E1080 STA $2F4data UU1090 LDA #$211100 STA TIME1110 LDA #DLINT1&$FF1120 STA $2001130 LDA #DLINT1/2561140 STA $2011150 LDA #$C01160 STA3data UU $D40E1170 LDA #01180 TAX1190 BNDR STA $3000,X1200 INX1210 CPX #721220 BNE BNDR1230 JUMP JSR DROPB1240 JSR DELAY1~data UU250 JSR MISDWN1260 JSR PLDEAD1270 JSR TIMER1280 JMP JUMP1290 ;1300 ; *** BOMB SEARCH ***1310 ;1320 BSEAR LDA #20133Ydata UU0 STA ROW1340 LDA HPOSP01350 SEC1360 SBC #431370 STA LSBNUM1380 LDA #01390 STA MSBNUM1400 LDA #81410 STA DIVISOzdata UUR1420 JSR SOFTDIVIDE1430 LDA ANSWER1440 STA TEMPA21450 STA TEMPB21460 LDX #01470 LDY #01480 CH LDA DPLIST+601490 data UUSTA TEMPA1500 LDA DPLIST+611510 STA TEMPB1520 LDA TEMPA21530 BMI SUBOF1540 BPL ADOF1550 FUL BNE MOR1560 BEQ CH1570tdata UU MOR INY1580 CPY #81590 BNE CH1600 JMP FINDAL1610 SUBOF AND #$7F1620 STA TEMPA21630 DEC TEMPB21640 LDA TEMPB21650 data UU BEQ FUL1660 CLC1670 ADC TEMPA1680 STA ST,X1690 INX1700 BCC *+41710 INC TEMPB1720 LDA TEMPB1730 STA ST,X1740 Idata UUNX1750 BNE MOR1760 ADOF ORA #$801770 STA TEMPA21780 INC TEMPA21790 LDA TEMPA21800 CMP #$961810 BEQ FUL1820 LDA TEidata UUMPA21830 AND #$7F1840 CLC1850 ADC TEMPA1860 STA ST,X1870 INX1880 BCC *+41890 INC TEMPB1900 LDA TEMPB1910 STA Sydata UUT,X1920 INX1930 BNE MOR1940 JMP NOALIE1950 ST *=*+201960 FINDAL LDX #01970 COL LDA #201980 STA ROW1990 LDY #02000 data UU LDA ST,X2010 STA TEMPA2020 INX2030 LDA ST,X2040 STA TEMPB2050 INX2060 CPX #102070 BEQ NOALIE2080 JO LDA(TEMPA),Ydata UU2090 BEQ OV912100 JSR SAMECO2110 CPY #$FF2120 BEQ COL2130 DEX2140 DEX2150 LDA ST,X2160 SEC2170 SBC DPLIST+602data UU180 STA M.HPOS2190 RTS2200 OV91 DEC ROW2210 BMI COL2220 JSR UPROW2230 JMP JO2240 NOALIE LDX #$FF2250 RTS2260 ;227^data UU0 ; ** ALIEN ALREADY BOMBED **2280 ;2290 SAMECO TXA2300 PHA2310 LDX #$FF2320 SAME INX2330 CPX #82340 BEQ NOCS2350 S9data UUEC2360 LDA ALDT,X2370 SBC TEMPA2380 STA TEMPA2390 INX2400 SEC2410 LDA ALDT,X2420 SBC TEMPB2430 BNE SAME2440 LD$data UUA TEMPA2450 BEQ CS2460 CMP #12470 BEQ CS2480 CMP #$FF2490 BEQ CS2500 BNE SAME2510 CS LDY #$FF2520 BMI BACK2530 N data UUOCS LDA TEMPA2540 STA LSBNUM2550 LDA TEMPB2560 STA MSBNUM2570 JSR BOMBCH2580 LDX #02590 LDA MASKM2600 FCO PHA2610 data UU AND #$FC2620 BNE STCO2630 PLA2640 ASL A2650 ASL A2660 INX2670 INX2680 CPX #82690 BNE FCO2700 JMP CS2710 STCOdata UU PLA2720 LDA LSBNUM2730 STA ALDT,X2740 INX2750 LDA MSBNUM2760 STA ALDT,X2770 BACK PLA2780 TAX2790 RTS2800 ALDT *data UU=*+102810 ; *** UP ROW ***2820 ;2830 UPROW SEC2840 LDA TEMPA2850 SBC #722860 STA TEMPA2870 BCS *+42880 DEC TEMPB28"data UU90 RTS2900 ;2910 ;2920 ; *** MULTI ROUTINE ***2930 ;2940 SOFTMULT LDA #02950 STA LSB.PROD2960 STA MSB.PROD2970 LDX #data UU82980 SFT ASL A2990 ROL MSB.PROD3000 ASL MULTI23010 BCC CNT3020 CLC3030 ADC MULTI13040 BCC CNT3050 INC MSB.PROD3zdata UU060 CNT DEX3070 BNE SFT3080 STA LSB.PROD3090 RTS3100 ;3110 ;3120 ;*** SOFT DIVIDE ROUT.***3130 ;3140 ;3150 SOFTDIVIDdata UUE LDX #83160 LDA LSBNUM3170 STA ANSWER3180 LDA MSBNUM3190 DVD ASL ANSWER3200 ROL A3210 CMP DIVISOR3220 BCC CCT2323data UU0 SBC DIVISOR3240 INC ANSWER3250 CCT2 DEX3260 BNE DVD3270 STA REMAINDER3280 RTS3290 ;3300 ; *** DELAY ***3310 ;7data UU3320 DELAY LDX #63330 XX LDY #$FF3340 YY DEY3350 BNE YY3360 DEX3370 BNE XX3380 RTS3390 ;3400 ; *** BOMB DROP ROUT. data UU***3410 ;3420 DROPB LDA $D20A3430 CMP #$503440 BCS RETBOM3450 LDA $D20A3460 CMP #$203470 BCC *+33480 RETBOM RTS349data UU0 LDA FREEM3500 AND #$FF3510 BEQ RETBOM3520 JSR BSEAR3530 CPX #$FF3540 BEQ RETBOM3550 LDA ROW3560 STA MULTI13570data UU LDA #$083580 STA MULTI23590 JSR SOFTMULT3600 LDA LSB.PROD3610 CLC3620 ADC #53630 TAY3640 LDX #03650 STA(TEMPA2data UU,X)3660 V.POSM LDA MISRAM,Y3670 ORA MASKM3680 STA MISRAM,Y3690 INX3700 INY3710 CPX #63720 BNE V.POSM3730 LDA FREEdata UUM3740 EOR MASKM3750 STA FREEM3760 LDA M.HPOS3770 STA MULTI13780 LDA #83790 STA MULTI23800 JSR SOFTMULT3810 CLC3data UU820 LDA LSB.PROD3830 ADC #433840 LDY #03850 STA(TEMPA),Y3860 RTS3870 ;3880 ;3890 ; ***** SELECT BOMB ****3900 ;39data UU10 BOMBCH LDX #03920 STX MASKM3930 SELCTM LDA WHICHM,X3940 STA MASKM3950 LDA FREEM3960 AND WHICHM,X3970 BNE STOREM39data UU80 INX3990 INX4000 INX4010 INX4020 INX4030 CPX #204040 BNE SELCTM4050 PLA4060 PLA4070 JMP CS4080 STOREM INXdata UU4090 LDA WHICHM,X4100 STA TEMPA4110 INX4120 LDA WHICHM,X4130 STA TEMPB4140 INX4150 LDA WHICHM,X4160 STA TEMPA241wdata UU70 INX4180 LDA WHICHM,X4190 STA TEMPB24200 RTS4210 WHICHM .BYTE $03,$04,$D04220 .WORD VPOSM04230 .BYTE $0C,$05,$D04 data UU240 .WORD VPOSM14250 .BYTE $30,$06,$D04260 .WORD VPOSM24270 .BYTE $C0,$07,$D04280 .WORD VPOSM34290 ;4300 ;***** MOVE data UUMISSILES DOWN *****4310 ;4320 MISDWN LDA FREEM4330 EOR #$FF4340 BNE OV324350 RTS4360 OV32 LDX #04370 STACKM TXA4380 data UUPHA4390 PLA4400 TAX4410 NEXTM LDA LOPDWN,X4420 AND FREEM4430 BEQ MB4440 INX4450 INX4460 INX4470 CPX #124480 BSdata UUNE NEXTM4490 RTS4500 MB LDA LOPDWN,X4510 STA MASKM4520 INX4530 LDA LOPDWN,X4540 STA TEMPA4550 INX4560 LDA LOPDWN,.data UUX4570 STA TEMPB4580 INX4590 TXA4600 PHA4610 LDX #04620 LDA(TEMPA,X)4630 TAY4640 PHA4650 DOWNM INY4660 LDA MISdata UURAM,Y4670 ORA MASKM4680 STA MISRAM,Y4690 INX4700 CPX #64710 BNE DOWNM4720 PLA4730 TAY4740 LDA MISRAM,Y4750 EORdata UU MASKM4760 STA MISRAM,Y4770 LDX #04780 LDA(TEMPA,X)4790 CLC4800 ADC #14810 STA(TEMPA,X)4820 CMP #2004830 BNE OV6Mdata UU04840 JSR MRET4850 OV60 PLA4860 TAX4870 CPX #124880 BEQ RETMD4890 JMP STACKM4900 RETMD RTS4910 ;4920 ;4930 LOPDWNdata UU .BYTE 34940 .WORD VPOSM04950 .BYTE 124960 .WORD VPOSM14970 .BYTE $304980 .WORD VPOSM24990 .BYTE $C05000 .WORD VPOdata UUSM35010 ;5020 ;*** MIS RET. DOWN SC. ***5030 ;5040 MRET INY5050 MR LDA MISRAM,Y5060 EOR MASKM5070 STA MISRAM,Y5080 INdata UUY5090 CPY #2065100 BNE MR5110 LDA #05120 STA(TEMPA,X)5130 LDA FREEM5140 ORA MASKM5150 STA FREEM5160 LDX #05170 Mdata UU LDA MASKM5180 FDEL PHA5190 AND #$FC5200 BNE DELCO5210 PLA5220 ASL A5230 ASL A5240 INX5250 INX5260 CPX #85270 fdata UU BNE FDEL5280 BEQ *+35290 DELCO PLA5300 LDA #05310 STA ALDT,X5320 INX5330 STA ALDT,X5340 RTS5350 ;5360 ;5370 ; cdata UUDISPLAY LIST5380 ;5390 ;5400 DPLIST1 .BYTE $765410 DPLIST .BYTE $005420 .BYTE $705430 .BYTE $765440 .BYTE $005450 .B-data UUYTE $525460 .BYTE $765470 .BYTE $005480 .BYTE $525490 .BYTE $765500 .BYTE $005510 .BYTE $525520 .BYTE $765530 .Bydata UUYTE $005540 .BYTE $525550 .BYTE $765560 .BYTE $005570 .BYTE $525580 .BYTE $765590 .BYTE $005600 .BYTE $525610 .Bvdata UUYTE $765620 .BYTE $005630 .BYTE $525640 .BYTE $765650 .BYTE $005660 .BYTE $525670 .BYTE $F65680 .BYTE $005690 .Bdata UUYTE $525700 .BYTE $765710 .BYTE $005720 .BYTE $525730 .BYTE $765740 .BYTE $005750 .BYTE $525760 .BYTE $765770 .Bdata UUYTE $005780 .BYTE $525790 .BYTE $765800 .BYTE $005810 .BYTE $525820 .BYTE $765830 .BYTE $005840 .BYTE $525850 .Bdata UUYTE $765860 .BYTE $005870 .BYTE $525880 .BYTE $765890 .BYTE $005900 .BYTE $525910 .BYTE $765920 .BYTE $005930 .Bdata UUYTE $525940 .BYTE $765950 .BYTE $005960 .BYTE $525970 .BYTE $765980 .BYTE $005990 .BYTE $526000 .BYTE $766010 .Bdata UUYTE $006020 .BYTE $526030 .BYTE $766040 .BYTE $006050 .BYTE $526060 .BYTE $766070 .BYTE $006080 .BYTE $526090 .BXdata UUYTE $766100 .BYTE $006110 .BYTE $526120 .BYTE $D66130 .BYTE $006140 .BYTE $526150 .BYTE $426160 .BYTE SCOUT&$FF61&data UU70 .BYTE SCOUT/2566180 .BYTE $506190 .BYTE $02,$066200 .BYTE $416210 .WORD DPLIST16220 *=*+506230 ;6240 ;6250 ; VBdata UULANK ROUTINE6260 ;6270 VBLANK LDA COUNT6280 BEQ NEXTSC6290 LDY #06300 LDA(SCROLT),Y6310 BNE HSC6320 DEC COUNT6330 data UULDA COUNT6340 CMP #16350 BNE REPEAT6360 DEC COUNT6370 CLC6380 LDA SCROLT6390 ADC #46400 STA SCROLT6410 BCC *+46data UU420 INC SCROLT+16430 BNE NEXTSC6440 REPEAT INY6450 INY6460 LDA(SCROLT),Y6470 PHA6480 INY6490 LDA(SCROLT),Y6500 Sdata UUTA SCROLT+16510 PLA6520 STA SCROLT6530 JMP HSC6540 NEXTSC LDY #06550 LDA(SCROLT),Y6560 BNE HSC6570 INY6580 LDA(SCdata UUROLT),Y6590 STA COUNT6600 INY6610 LDA(SCROLT),Y6620 PHA6630 INY6640 LDA(SCROLT),Y6650 STA SCROLT+16660 PLA6670 data UU STA SCROLT6680 HSC LDY #06690 LDA(SCROLT),Y6700 AND #036710 CMP #016720 BEQ SCROLLRIGHT6730 ROR A6740 ROR A6750 data UUBCS SCROLLEFT6760 JMP VERTICAL6770 SCROLLRIGHT INC COUNT26780 LDA COUNT26790 STA $D4046800 CMP #86810 BEQ CHANGELMS6Mdata~ UU820 JMP BYTEJMP16830 SCROLLEFT DEC COUNT26840 LDA COUNT26850 STA $D4046860 BNE BYTEJMP16870 JMP CHANGELMS26880 CHANGEdata UULMS LDX #06890 STX COUNT26900 STX $D4046910 LMSCAN SEC6920 LDA DPLIST,X6930 SBC #16940 STA DPLIST,X6950 BCS OVER22data UU6960 DEC DPLIST+1,X6970 OVER22 INX6980 INX6990 INX7000 CPX #757010 BNE LMSCAN7020 INC SCROLLEDR7030 LDA SCROLLEDRdata UU7040 CMP #477050 BNE BYTEJMP17060 JMP TOOFAR7070 BYTEJMP1 JMP VERTICAL7080 OVER10 JMP VERTICAL7090 CHANGELMS2 LDX #0710data UU0 LDA #87110 STA COUNT27120 STA $D4047130 LDX #007140 LMSCAN2 CLC7150 LDA DPLIST,X7160 ADC #17170 STA DPLIST,X718Ddata UU0 BCC OVER247190 INC DPLIST+1,X7200 OVER24 INX7210 INX7220 INX7230 CPX #757240 BNE LMSCAN27250 INC SCROLLEDL7260 data UU LDA SCROLLEDL7270 CMP #477280 BNE VERTICAL7290 JMP TOOFAR7300 VERTICAL LDY #07310 LDA(SCROLT),Y7320 INC SCROLT7330 data UU BNE *+47340 INC SCROLT+17350 AND #127360 CMP #47370 BEQ V.UP7380 CMP #87390 BEQ V.DOWN7400 JMP LOADALIEN7410 V.U-data UUP INC COUNT37420 LDA COUNT37430 STA $D4057440 CMP #87450 BEQ UP7460 JMP LOADALIEN7470 UP LDA #07480 STA COUNT37490data UU STA $D4057500 INC V.SCROLLED7510 LDA V.SCROLLED7520 CMP #507530 BNE OVER67540 JMP TOOFAR7550 OVER6 LDX #07560 OVERdata UU15 CLC7570 LDA DPLIST,X7580 ADC #727590 STA DPLIST,X7600 BCC OVER117610 INC DPLIST+1,X7620 OVER11 INX7630 INX7640 data UU INX7650 CPX #757660 BNE OVER157670 JMP LOADALIEN7680 V.DOWN DEC COUNT37690 LDA COUNT37700 STA $D4057710 CMP #$FF7data UU720 BEQ DOWN7730 JMP LOADALIEN7740 DOWN LDA #77750 STA $D4057760 STA COUNT37770 INC V.SCROLLED.D7780 LDA V.SCROLLED. data UUD7790 CMP #507800 BNE OVER77810 JMP TOOFAR7820 OVER7 LDX #07830 BEGIN2 SEC7840 LDA DPLIST,X7850 SBC #727860 STA DPdata UULIST,X7870 BCS OVER137880 DEC DPLIST+1,X7890 OVER13 INX7900 INX7910 INX7920 CPX #757930 BNE BEGIN27940 ;7950 ; ** data UU* PLOT ROUTINE7960 ;7970 LOADALIEN LDY #07980 ALIEN LDA(PLOTABLE),Y7990 STA TEMPAI8000 INY8010 LDA(PLOTABLE),Y8020 INdata UUY8030 STA TEMPBI8040 LDA TEMPAI8050 STA MULTI1I8060 LDA #728070 STA MULTI2I8080 JSR SOFTMULTI8090 CLC8100 LDA TEdata UUMPBI8110 ADC LSB.PRODI8120 STA LSB.PRODI8130 BCC OVER308140 INC MSB.PRODI8150 OVER30 CLC8160 LDA#$E78170 ADC LSB.PR?data UUODI8180 STA TEMPAI8190 LDA #$2C ;msb sc.ram start8200 ADC MSB.PRODI8210 STA TEMPBI8220 TYA8230 PHA8240 LDY #0data UU8250 LDA(TEMPAI),Y8260 BEQ NEXTALIEN8270 CMP #208280 BCC NOTEX8290 CMP #308300 BCS NOTEX8310 CMP #288320 BNE EXOdata UUK8330 LDA #218340 STA(TEMPAI),Y8350 INY8360 LDA #228370 STA(TEMPAI),Y8380 BNE NEXTALIEN8390 EXOK CLC8400 ADC #18data UU410 BNE *+48420 NOTEX LDA ALIENTYPE8430 STA(TEMPAI),Y8440 INY8450 CLC8460 ADC #18470 STA(TEMPAI),Y8480 NEXTALIEN PL7data UUA8490 TAY8500 LSR A8510 CMP NO.ALIENS8520 BNE ALIEN8530 LDA SCTA.8540 CLC8550 ADC #108560 TAX8570 LDA ALIENTYPdata UUE8580 SEC8590 SBC #68600 CMP SCREENTABLE,X8610 BNE CHAROK8620 LDA SCREENTABLE,X ;back to orig8630 STA ALIENTYPE8640data UU JMP $E4628650 CHAROK INC ALIENTYPE8660 INC ALIENTYPE8670 RETURN JMP $E462 ;lable not used8680 ;8690 ;8700 ;**** SCREEN data UUINIT ROUTINE ****8710 ;8720 SCINIT LDY #08730 JSR CLEARDRAM8740 LDX #08750 ZEROIN STX SCROLLEDR,Y8760 INY8770 CPY #4data UU8780 BNE ZEROIN8790 LDY SCTA.8800 INITSC LDA SCREENTABLE,Y8810 STA SAVESCROLL,X8820 INX8830 INY8840 CPX #138850 BNdata UUE INITSC8860 MODLIST LDX #08870 STX $22F8880 LDA SCLSB8890 STA DPLIST8900 LDA SCMSB8910 STA DPLIST+18920 BEGMOD CLC%data UU8930 LDA SCLSB8940 ADC #728950 STA DPLIST+3,X8960 STA SCLSB8970 BCC OVER178980 INC SCMSB8990 OVER17 LDA SCMSB9000 data UUSTA DPLIST+4,X9010 INX9020 INX9030 INX9040 CPX #72 ;1 LINE ALREADY IN9050 BNE BEGMOD ;ABOVE SO 72 NOT 75!9060 LDA%data UU #DPLIST1&$FF ;ENABLE DPLIST9070 STA $2309080 LDA #DPLIST1/2569090 STA $2319100 LDA #$3F9110 STA $22F9120 LDA #0913/data UU0 STA COUNT ;9140 STA HITS9150 JSR LOADALIEN2 ; ***********9160 RTS9170 ;9180 ;9190 ; *** PLOT ROUTI data UUNE9200 ; FOR SCR. INIT ONLY9210 ;9220 LOADALIEN2 LDY #09230 ALIEN2 LDA(PLOTABLE),Y9240 STA TEMPAI9250 INY9260 LDA(data UUPLOTABLE),Y9270 INY9280 STA TEMPBI9290 LDA TEMPAI9300 STA MULTI1I9310 LDA #729320 STA MULTI2I9330 JSR SOFTMULTI93Udata UU40 CLC9350 LDA TEMPBI9360 ADC LSB.PRODI9370 STA LSB.PRODI9380 BCC OV309390 INC MSB.PRODI9400 OV30 CLC9410 LDA #$E7data UU ;lsb sc.ram start9420 ADC LSB.PRODI ;****** SCLSB9430 STA TEMPAI9440 LDA #$2C ;msb sc.ram start9450 ADC MSB.Ptdata UURODI9460 STA TEMPBI9470 LDX #09480 LDA ALIENTYPE9490 STA(TEMPAI,X)9500 CLC9510 LDA ALIENTYPE9520 ADC #19530 STA(Udata UUTEMPAI,X)9540 TYA9550 LSR A9560 CMP NO.ALIENS9570 BNE ALIEN29580 RTS9590 ;*=*+200 ;MODIFICATION9600 ;9610 ;9620 ; Ndata UU***** CLEAR DISPLAY RAM ******9630 ;9640 ;9650 CLEARDRAM LDX #09660 TXA9670 CLEAR STA $3F00,X9680 STA $2CE7,X9690 STA data UU$2DE7,X9700 STA $2E00,X9710 STA $2F00,X9720 STA $3000,X9730 STA $3100,X9740 STA $3200,X9750 STA $3300,X9760 STA $3adata UU400,X9770 STA $3500,X9780 STA $3600,X9790 STA $3700,X9800 STA $3800,X9810 STA $3900,X9820 STA $3A00,X9830 STA $3B0cdata UU0,X9840 STA $3C00,X9850 STA $3D00,X9860 STA $3E00,X9870 STA $2C00,X9880 STA $2B00,X9890 STA $2A00,X9900 STA $2E00,data UUX9910 STA $2900,X9920 STA $2800,X9930 INX9940 STA EXPOIT ;*********DEL DEL*9950 BNE CLEAR9960 RTS9970 ;9980 ;999*data~ UU0 ;*** START TIMERS 1 & 2 ***010000 ;010010 STIMER LDA #HITCHECK&$FF010020 STA $0226010030 LDA #HITCHECK/256010040 STA $Ndataj UU0227010050 LDX #01 & 2 ***010000 ;010010 STIMER LDA #HITCHECK&$FF010020 STA $0226010030 LDA #HITCHECK/256010040 STA 3dataV UU