P(](A,10000c(k('"*Bz('"ORG $1000('"HISCR=$E(.'"LEVEL=$C(8'"LEVEI=$D(9'"BCOL=$15(:'"CCOL=$16(A'"SCOR=$17;3B(B'"O0 =$1B(K'"MLIF=$1A(L'"KEYT=$1C;8B)V'"PBGD=$24;12B")`'"BGDS=$30;16B4)j'"BADD=$40;16BE)t'"BXXX=$50;8BV)~'"BYYY=$58;8Bg)'"BDIR=$60;8Bx)'"BBAK=$68;8B)'"BFLG=$70)'"TKHL=$71;4B)'"TKVL=$75;4B)'"TKHX=$79;2B)'"TKVX=$7B;2B)'"TKHY=$7D;2B)'"TKVY=$7F;2B)'"TKHP=$81;2B*'"TKVP=$83;2B*'"TKDD=$85;4B-*("PYCK=$8A;*("BANG=$8BI*("FIRE=$8CW* ("MNDD=$8De*("SWAP=$8Fs*(("FIRD=$90*2("T0 =$91*<("T1 =$92*F("T2 =$93*P("T3 =$94*Z("T4 =$95*d("T5 =$96*n("T6 =$97*x("T7 =$98*("PLOC=$99;4B+("PLXX=$9D;2B+("PLYY=$9F;2B'+("PLDI=$A1;2B5+("TURN=$A3C+("TTRN=$A4Q+("QSCR=$A5b+("PLIX=$A6;2Bs+("PLCT=$A8;2B+("PDED=$AA;2B+("LNT =$C1+("LIN =$C2;2B+("TLOC=$C4;8B+)"TYYY=$CC;4B+)"TXXX=$EC;4B+")"SP2 =$F0+,)"SCR =$F1,6)"SPD =$F2,@)"MAN =$F3;2B,J)"MPHS=$F5-,T)"MX =$F6;,^)"MY =$F7I,h)"MDIS=$F8W,r)"MPHT=$F9h,)"IMAGE=$3620y,)"IMAND=$35C0,)"STEP =192,)"DESTI=$3E00,)"TOPEN=$3560,)"PLDAT=$35A0,)"PLDES2=$3DD0,)"PLDES1=$3DA0,)"PLINV=$3580-*"NEWBA=$3540-*"RADAR=$3518#-*"OSCOR=$23FD4-&*"BEGAG: SEI>-0*" CLDK-:*" LDA #0Z-D*" STA SCORk-N*" STA SCOR+1|-X*" STA SCOR+2-b*" LDA #4-l*" STA MLIF-v*"BEGIN: SEI-*" LDX #255-*" TXS-*" JSR $200-*" LDA $800-*" STA CCOL-*" LDA #$73 .*" STA BCOL.*" LDA #.*" LDA #>IRQ1M.*" STA $315[.*" LDX #19s.*"TEDS: LDA TEDD,X.*" STA $FF06,X.*" DEX.*" BPL TEDS.*" LDX #$1C.*" LDA #0.*"CLREM: STA 0,X.*" INX.*" BNE CLREM.>+" LDA #<$2400/H+" STA LIN/R+" LDA #>$2400*/\+" STA LIN+17/p+" LDA #3F/z+" STA TURNU/+" STA TTRNd/+" LDA #255t/+" STA $FF04/+" STA $FF05/~," LDY #31/,"TURSEX: LDA NEWBA,Y/," STA $3C20,Y/," STA $3C40,Y/," STA $3C60,Y/," STA $3C80,Y/," DEY0," BPL TURSEX0," JSR MANRES/0," JSR MBACK<0," LDX #8J0," STX SPDX0-" LDA #96i0-" STA KEYSCNs0(-" CLI02-" LDA #$D00<-"TURS: CMP LIN0F-" BNE TURS0P-" LDA #10Z-" STA SPD0d-" LDA #1690n-" STA KEYSCN0x-" LDA $FF061-" ORA #$101-" STA $FF06&1-"MOVE: LDA KEYT51-" CMP #128D1-" BNE PROGQ1-" LDX #7^1-" LDA #0v1-"STCHK: ORA KEYT,X1-" DEX1-" BNE STCHK1-" TAX1-" BNE PROG1-" LDA #11-" STA LEVEL1-" JMP BEGAG1-"PROG: LDA KEYT1-" AND #12-" BEQ PROG32." JSR PAUSE,2."PROG3: LDA MNDD;2." BEQ DMB7K2." JMP PROG4Y2"."DMB7:SEIi2#." STA $FF11y2,." JSR DEATH21." JSR MREST2^." JSR BOMBC2h." JSR PLCLER2r." LDA #02|." STA BFLG2." STA PLYY2." STA PLYY+12." STA PDED3." STA PDED+13." LDX #3*3."PLOOP: LDA TKDD,X:3." BEQ QLOOPG3." LDA #1X3." STA TKDD,Xh3."QLOOP: DEXx3." BPL PLOOP3." JSR EXTANK3." JSR LESSPL3." BMI DEDUN3." LDA #13/" JSR DELAY3/" JSR MANRES3/" LDA #23&/" STA O040/"OLOOP: JSR MBACK4:/" LDA #1%4D/" JSR DELAY54N/" JSR MRESTB4X/" LDA #1R4b/" JSR DELAY_4l/" DEC O0o4v/" BNE OLOOP4/" JSR MBACK4/" LDA #24/" STA $FF094/" CLI4/"GMOV: JMP MOVE4/"DEDUN: LDA #44/" JSR DELAY4/" LDA SCOR4/" STA OSCOR5/" LDA SCOR+1 5/" STA OSCOR+115/" LDA SCOR+2C5/" STA OSCOR+2P5/" LDA #1_5/"STA LEVELm5/"LDA SCORv5/"SEC5/"SBC HISCR5/"LDA SCOR+15/"SBC HISCR+15/"LDA SCOR+25/"SBC HISCR+25/"BCC DMB15/"LDASCOR5/"STAHISCR5/"LDASCOR+16/"STAHISCR+16/"LDASCOR+2.6/"STAHISCR+2B6/"DMB1:JMP BEGAGX6/"PROG4: LDA LIN+1g6/" CMP #$34v60" BNE GMOV6 0" LDA BFLG60" AND #$F06 0" ORA PLYY6*0" ORA PLYY+1640" LDX #36>0"PORT1: ORA TYYY,X6H0" ORA TKHY,X6R0" DEX7\0" BPL PORT17f0" CMP #07p0" BNE GMOV,7q0" LDA #4<7r0" JSR DELAYK7s0" LDA SCOR[7t0" STA OSCORl7u0" LDA SCOR+1~7v0" STA OSCOR+17w0" LDA SCOR+27x0" STA OSCOR+27y0" INC LEVEL7z0" SEI70" JMP BEGIN70"70"IRQ1: LDA #270" STA $FF0970" CLD 80" LDA #080" STA QSCR,80" JSR KEYSCN<80" JSR MRESTL80" JSR BOMBCZ80" INC SP2h81" LDA SP2u81" CMP #281" BEQ IRQ38$1" JSR PLCLER8.1" JSR TURCHK881" JSR BCOLLI8B1" JSR EXTANK8L1" JSR TANFIR8V1" JSR TURFIR8`1" JSR AEROFI 9j1" JSR TANKS9t1" JSR WANKS,9~1" JSR AEROPU=91" JSR RADARTN91" JSR MANFIR_91" JSR MANMVEp91" JSR WRTSCR91" JMP IRQEZ91"IRQ3: LDA #091" STA SP291" JSR MVEMAN91"IRQ2: LDA SCR91" CLC91" ADC SPD91" STA QSCR91" TAX:1" AND #7:1" STA SCR":2" LDA $FF061: 2" AND #$F0?:2" ORA SCRO:2" STA $FF06^:2" LDA MDISh: 2" SECv:!2" SBC SPD:"2" AND #7:#2" STA MDIS:(2" CPX #8:22" BCS SCROL:<2" JMP IRQEX:F2"SCROL::P2" LDX #28:Z2"SCRL: LDA 3992,X;d2" STA 3992+40,X;n2" LDA 3952,X*;x2" STA 3952+40,X;;2" LDA 3912,XO;2" STA 3912+40,X`;2" LDA 3872,Xt;2" STA 3872+40,X;2" LDA 3832,X;2" STA 3832+40,X;2" LDA 3792,X;2" STA 3792+40,X;2" LDA 3752,X;2" STA 3752+40,X;2" LDA 3712,X<2" STA 3712+40,X<2" LDA 3672,X-<3" STA 3672+40,X><3" LDA 3632,XR<3" STA 3632+40,Xc<"3" LDA 3592,Xw<,3" STA 3592+40,X<63" LDA 3552,X<@3" STA 3552+40,X4" STA 3152+40,X>4" LDA 3112,X3>4" STA 3112+40,XD>&4" LDA 3072,XX>04" STA 3072+40,Xb>:4" DEXr>D4" BEQ IRQEY>N4" JMP SCRL>X4"IRQEY: JSR TURUPD>b4" LDA LNT>l4" INC LNT>v4" LSRA>4" BCS UP2ND>4" JMP UP1ST>4"UP2ND: LDY #0?4" LDX #1?4"UP22: LDA (LIN),Y#?4" PHA2?4" CMP #$96C?4" BNE UPSHOVP?4" LDA #1_?4" STA TKHYn?4" STX TKHX}?4" STX TKHL?4" LDA #$C?5" STA TKHL+1? 5" LDA #0?5" STA TKHP? 5" BEQ UPSHOT?*5"UPSHOV:?45" CMP #$9A?>5" BNE UPSHOK@H5" LDA #1@R5" STA TKHY+1%@\5" STX TKHX+16@f5" STX TKHL+2D@p5" LDA #$CU@z5" STA TKHL+3d@5" LDA #$80u@5" STA TKHP+1@5" BEQ UPSHOT@5"UPSHOK:@5" CMP #$9E@5" BNE UPSHOR@5" LDA #1@5" STA TKVY@5" STX TKVX@5" STX TKVL@5" LDA #$C A5" STA TKVL+1A5" LDA #0(A6" STA TKVP9A6" BEQ UPSHOTFA6"UPSHOR:UA$6" CMP #$A2fA.6" BNE UPSHOTsA86" LDA #1AB6" STA TKVY+1AL6" STX TKVX+1AV6" STX TKVL+2A`6" LDA #$CAj6" STA TKVL+3At6" LDA #0A~6" STA TKVP+1A6"UPSHOT: PLAA6" SEC B6" SBC #2B6" STA 3072,X&B6" CLC3B6" ADC #1DB6" STA 3073,XNB6" INXXB6" INXbB6" INYpB6" CPY #14B6" BCC UP22B7"B7" LDA LINB7" ADC #15;C=1B(7" STA LINB27" LDA LIN+1B<7" ADC #0BF7" STA LIN+1BP7" CMP #$34BZ7" BNE IRQEX Cd7" LDA #0Cn7" STA SPD*Cx7" BEQ IRQEX>C7"UP1ST: LDY #0KC7" LDX #0dC7"UP12: LDA (LIN),YuC7" STA 3073,XC7" CLCC7" ADC #1C7" STA 3074,XC7" INXC7" INXC7" INYC7" CPY #14C7" BCC UP12C7" LDA (LIN),YC8" BEQ NTPL0 D8" STA PLXXD8" STA PLOC'D"8" LDA #$0C8D,8" STA PLOC+1ED68" LDA #2TD@8" STA PLYYaDJ8" LDA #0pDT8" STA PLIXD^8" STA PLDIDh8" LDA PTABDr8" STA PLCTD|8"NTPL0: INYD8" LDA (LIN),YD8" BEQ IRQEXD8" STA PLXX+1D8" STA PLOC+2E8" LDA #$0CE8" STA PLOC+3E8" LDA #20E8" STA PLYY+1=E8" LDA #0NE8" STA PLIX+1_E8" STA PLDI+1nE8" LDA PTABE8" STA PLCT+1E9"IRQEX: JSR ADJUSCE9"IRQEZ: JSR BOMBSE9" JSR BOMBPE9" JSR MBACKE9" JSR BCOLL2;YOU DIE!E9" JSR PICKEM F9" JSR SOUNDF9" JMP $FCC3F9"3F9"MBACK: LDX #15JF:"MBA1: LDA TABS,XTF :" TAYfF:" LDA (MAN),YwF :" STA BGDS,XF*:" DEXF4:" BPL MBA1F>:" LDX #127FH:" LDY #15FR:" STY T6F\:"RUGGE1: LDA BGDS,YFf:" JSR CALCADFp:" LDY #7Gz:"RUGGE2: LDA (T1),YG:" STA DESTI,X$G:" DEX.G:" DEY?G:" BPL RUGGE2LG:" DEC T6YG:" LDY T6jG:" BPL RUGGE1yG:" LDX MDISG:" LDY #0G:" LDA MPHSG;" AND #3G;" BEQ RAHTG;" LDY #STEPG$;"RAHT:G.;" LDA #24G8;" STA T1HB;"RUGGE6: LDA IMAND,YHL;" AND DESTI,X$HV;" ORA IMAGE,Y6H`;" STA DESTI,XKHj;" LDA IMAND+24,Y`Ht;" AND DESTI+32,XuH~;" ORA IMAGE+24,YH;" STA DESTI+32,XH;" LDA IMAND+48,YH;" AND DESTI+64,XH;" ORA IMAGE+48,YH;" STA DESTI+64,XH;" LDA IMAND+72,YI;" AND DESTI+96,XI;" ORA IMAGE+72,Y2I;" STA DESTI+96,X" AND #4M >" BNE UP2M>" LDA KEYT+5%M>" AND #13M>" BEQ UP1FM>"UP2: LDY MYTM>" CPY #16dM>" BCC RIGEXsM!>" JSR SUB4M&>" LDY #1M+>" STY MPHTM0>" RTSM5>"UP1: LDA KEYT+1M:>" AND #128M?>" BNE UP3M@>" LDA KEYT+5MA>" AND #2MB>" BEQ RIGEXND>"UP3: LDY MYNI>" CPY #20,NN>" BCS RIGEX;NS>" JSR ADD4HNX>" LDY #2WN]>" STY MPHTgNb>"RIGEX: RTSmNg>"NC"MREST: LDX #15NC"MRE1: LDA TABS,XN&C" TAYN0C" LDA BGDS,XN:C" STA (MAN),YNDC" DEXNNC" BPL MRE1NXC" RTSNbC"OlC"CALCAD: LDY #0OvC" STY T2OC" ASLA'OC" ROL T22OC" ASLA?OC" ROL T2JOC" ASLAWOC" ROL T2dOC" STA T1qOC" LDA T2OC" ADC #$38;C=0OC" STA T2OC" RTSOC"OD"ADJUSC: LDA #7O D" SECOD" SBC SCRO D" STA T1O*D" LDX #0O4D" JSR CLEARD P>D" JSR STOREDPHD" LDA #16$PRD" STA T18P\D"CLEARD: LDA #0EPfD" CPX T1TPpD" BEQ ADJ3mPzD"ADJ2: STA $3E80,XPD" STA $3E90,XPD" STA $3EA0,XPD" STA $3EB0,XPD" STA $3EC0,XPD" STA $3ED0,XPD" STA $3EE0,XPD" STA $3EF0,XPD" STA $3F00,XQD" STA $3F10,X!QD" STA $3F20,X3QD" STA $3F30,XEQD" STA $3F40,XWQD" STA $3F50,XiQE" STA $3F60,X{QE" STA $3F70,XQE" STA $3F80,XQ$E" STA $3F90,XQ.E" STA $3FA0,XQ8E" STA $3FB0,XQBE" STA $3FC0,XQLE" STA $3FD0,XQVE" STA $3FE0,X R`E" STA $3FF0,XRjE" INX"RtE" CPX T11R~E" BCC ADJ2BRE"ADJ3: RTSVRE"STORED: LDY #0oRE"STO1: LDA $3740,YRE" STA $3E80,XRE" LDA $3748,YRE" STA $3E90,XRE" LDA $3750,YRE" STA $3EA0,XRE" LDA $3758,YRE" STA $3EB0,XRE" LDA $3760,YSE" STA $3EC0,X#SF" LDA $3768,Y5S F" STA $3ED0,XGSF" LDA $3770,YYSF" STA $3EE0,XkS(F" LDA $3778,Y}S2F" STA $3EF0,XSI" STA BYYY,Y[XHI" LDA BADD,XeXRI" SECsX\I" SBC #40XfI" STA BADD,XXpI" BCS DIR2XzI" DEC BADD+1,XXI"DIR1:XI" LDA BDIR,YXI" AND #2XI" BEQ DIR2XI" LDA BYYY,YXI" CMP #23YI" BCS BCLEARYI" ADC #1;C=00YI" STA BYYY,YAYI" LDA BADD,XKYI" CLCYYI" ADC #40jYJ" STA BADD,XyYJ" BCC DIR2YJ" INC BADD+1,XY$J"DIR2:Y.J" LDA BDIR,YY8J" AND #4YBJ" BEQ DIR4YLJ" LDA BXXX,YYVJ" CMP #2Y`J" BCC BCLEARZtJ" SBC #1;C=1Z~J" STA BXXX,Y&ZJ" LDA BADD,X0ZJ" SEC=ZJ" SBC #1NZJ" STA BADD,X]ZJ" BCS DIR5pZJ" DEC BADD+1,X{ZJ"DIR4:ZJ" LDA BDIR,YZJ" AND #8ZJ" BEQ DIR5ZJ" LDA BXXX,YZJ" CMP #28ZK" BCS BCLEARZK" ADC #1;C=0ZK" STA BXXX,Y [(K" LDA BADD,X[2K" CLC"[N" ADC #1_HN" STA TKHY,Y_RN" CMP #24_\N" BCC TUR21_fN" LDA #0_pN" STA TKHY,Y`zN" BEQ TUR22`N"TUR21: LDA TKHL,X"`N" CLC0`N" ADC #40A`N" STA TKHL,XQ`N" BCC TUR22d`N" INC TKHL+1,Xx`N"TUR22: CPY #2`N" BCS TURKEY`N" LDA PLYY,Y`N" BNE YUUYU`N" LDA PDED,Y`N" BNE YUUZZ`N" BEQ TURKEY`O"YUUYU: CLC`O" ADC #1aO" CMP #24a$O" BCC TURK1%a.O" LDA #06a8O" STA PLYY,YGaBO" BEQ TURKEY^aLO"TURK1: STA PLYY,YuaVO"YUUZZ: LDA PLOC,Xa`O" CLCajO" ADC #40atO" STA PLOC,Xa~O" BCC TURKEYaO" INC PLOC+1,XaO"TURKEY:aO" DEXaO" DEXaO" DEYaO" BMI TURKI bO" JMP TUR1bO"TURKI: RTS#bO"8bO"TURCHK: LDA SCRIbO" BNE TURYYYWbO" LDX #27obP"TURC1: LDA 3312,X~b P" CMP #$86bP" BEQ TURC0bP" CMP #$8Ab(P" BEQ TURC0b2P" CMP #$8Eb3272tcP" ADC #0cP" STA TLOC+1,YcP" TYAcP" LSRAcP" TAYcP" LDA #6cP" STA TYYY,YcP" STX TXXX,YcQ" STX T7cQ" LDA TURDAT,YcQ" TAY d"Q" LDX #0%d,Q"TURI1: LDA TOPEN,X7d6Q" STA $3C20,YAd@Q" INYKdJQ" INXYdTQ" CPX #32id^Q" BCC TURI1vdhQ" LDX T7drQ"TURC2: DEXd|Q" DEXdQ" BPL TURC1dQ"TURYYY: RTSdQ"TURFIR: LDY TURNdQ" DEC TURNdQ" BPL TURF99dQ" LDA #3eQ" STA TURNeQ"TURF99: TYA eQ" ASLA-eQ" STA T6>eQ" LDX TYYY,YNeQ" BEQ TURF1]eQ" LDA BFLGpeR" AND TBIT+4,YeR" BNE TURF1eR" STX BYYY+4,Ye&R" TXAe0R" LDX TXXX,Ye:R" STX BXXX+4,YeDR" JSR GETDIReNR" BEQ TURF1eXR" STA BDIR+4,YfbR" JSR EYEBALflR" LDA $FF05%fvR" CMP #1285fR" BCC TURF1BfR" STY T5OfR" LDY T6`fR" LDX TLOC,YsfR" STX BADD+8,YfR" LDX TLOC+1,YfR" STX BADD+9,YfR" LDY T5fR" LDA BFLGfR" ORA TBIT+4,YfR" STA BFLGfR"TURF1: RTSfR"fS"GETDIR: PHAg S" TXAgS" LDX #0g S" SEC,g*S" SBC MX=g4S" BMI GETRIGJg>S" CMP #2YgHS" BCC GETCfgRS" LDX #4sg\S"BYT $2CgfS"GETRIG: LDX #8gpS"GETC: PLAgzS" SECgS" SBC MYgS" BMI GETDWNgS" CMP #2gS" BCS GETUPgS" TXAgS" RTShS"GETDWN: TXAhS" ORA #2hS" RTS*hS"GETUP: TXA7hS" ORA #1AhS" RTSGhS"[hT"TANKS: LDX #2hhT" LDY #1|hT"TANK1: STY T3h$T" LDA TKHY,Yh.T" BNE TANKGh8T"TANKY1: DEXhBT" DEXhLT" LDY T3hVT" DEYhjT" BPL TANK1htT" RTSi~T"TANKG: LDA TKHL,XiT" STA T6!iT" LDA TKHL+1,X.iT" STA T7?iT" LDA TKHP,YPiT" BMI TANLEF^iT" AND #64oiT" BNE TKRIG3|iT" LDY #2iT" LDA (T6),YiT" LDY T3iT" CMP #$4CiT" BCS SET3WIiU" CMP #$48i U" BCS STOPRGiU"SET3WI: LDA TKHP,YjU" ORA #64j(U" STA TKHP,Y!j2U" JMP TANKF9jlV" LDA TKHL+1,XKlV" SBC #0]lV" STA TKLEF+2tlV"TKLEF: LDA $FFFFlV" CMP #$4ClV" BCS STUPLElV" CMP #$48lV" BCS STOPLElV"STUPLE:lV" LDA TKLEF+1lV" STA TKHL,XlV" LDA TKLEF+2 mV" STA TKHL+1,XmW" LDA TKHX,Y$mW" SEC1mW" SBC #1Bm&W" STA TKHX,YSm0W" JMP SET3WIgm:W"STOPLE: LDA #0xmDW" STA TKHP,YmNW"TANKF:mXW" LDA TKHL,XmbW" STA T1mlW" LDA TKHL+1,XmvW" STA T2mW" LDA TKHP,YmW" AND #64mW" BEQ TANK4mW" LDY #0 nW" LDA #$20nW" STA (T1),Y(nW" INY7nW" LDA #$21HnW" STA (T1),YRnW" INYanW" LDA #$22rnW" STA (T1),YnW" LDY #40nX" LDA #$23n X" STA (T1),YnX" INYn X" LDA #$24n*X" STA (T1),Yn4X" INYn>X" LDA #$25nHX" STA (T1),YoRX" JMP TANKY1o\X"TANK4: LDY #0(ofX" LDA #$949opX" STA (T1),YCozX" INYRoX" LDA #$95coX" STA (T1),YqoX" LDY #40oX" LDA #$96oX" STA (T1),YoX" INYoX" LDA #$97oX" STA (T1),YoX" JMP TANKY1oX"oX"WANKS: LDX #2oX" LDY #1pX"WANK1: STY T3pY" LDA TKVY,Y(pY" BNE WANKG9pY"WANKY1: DEXCp$Y" DEXPp.Y" LDY T3Zp8Y" DEYjpLY" BPL WANK1tpVY" RTSp`Y"WANKG: LDA TKVL,XpjY" STA T6ptY" LDA TKVL+1,Xp~Y" STA T7pY" LDA TKVP,YpY" BMI WANLEFpY" AND #64pY" BNE WKRIG3qY" LDY #80qY" LDA (T6),Y&qY" LDY T35qY" CMP #$4CFqY" BCS WET3WIUqY" CMP #$48fqY" BCS WTOPRG~qY"WET3WI: LDA TKVP,YqZ" ORA #64q Z" STA TKVP,YqZ" JMP WANKFqZ"WTOPRG: LDA TKVP,Yq(Z" ORA #128q2Z" STA TKVP,Yqs[" LDY T3Os[" LDA TKVP,Y^s"[" AND #128os,[" STA TKVP,Ys6[" JMP WANKFs@["WANOVE: LDA #0sJ[" STA TKVY,YsT[" JMP WANKY1s^["WANLEF: AND #64sh[" BNE WKARTsr[" LDA TKVL,Xs|[" SECt[" SBC #40t[" STA WKLEF+1(t[" LDA TKVL+1,X5t[" SBC #0Gt[" STA WKLEF+2^t["WKLEF: LDA $FFFFmt[" CMP #$4C~t[" BCS WUCKLEt[" CMP #$48t[" BCS WOCKLEt["WUCKLE:t[" LDA WKLEF+1t[" STA TKVL,Xt\" LDA WKLEF+2t\" STA TKVL+1,Xu\" LDA TKVY,Yu&\" SECu0\" SBC #1,u:\" BEQ WANOVE=uD\" STA TKVY,YNuN\" JMP WET3WIbuX\"WOCKLE: LDA #0sub\" STA TKVP,Yul\"WANKF:uv\" LDA TKVL,Xu\" STA T1u\" LDA TKVL+1,Xu\" STA T2u\" LDA TKVP,Yu\" AND #64u\" BEQ WANK4u\" LDY #0v\" LDA #$26v\" STA (T1),Y#v\" INY2v\" LDA #$27Cv\" STA (T1),YQv\" LDY #40`v]" LDA #$28qv ]" STA (T1),Y{v]" INYv ]" LDA #$29v*]" STA (T1),Yv4]" LDY #80v>]" LDA #$2AvH]" STA (T1),YvR]" INYv\]" LDA #$2Bvf]" STA (T1),Ywp]" JMP WANKY1wz]"WANK4: LDY #0'w]" LDA #$9C8w]" STA (T1),YBw]" INYQw]" LDA #$9Dbw]" STA (T1),Ypw]" LDY #40w]" LDA #$9Ew]" STA (T1),Yw]" INYw]" LDA #$9Fw]" STA (T1),Yw]" JMP WANKY1w]"w^"AEROPU:JSR PDTESTw^" JSR PLHORI x^" JSR PLMOVEx$^" JSR PLSTOR,x.^" JSR PDCOLL=x8^" JSR PLINE1NxB^" JMP PLINE2TxL^"hxV^"PLCLER: LDY #0ux`^" LDX #0xj^" JSR PLCL1xt^" LDY #1x~^" LDX #2x^"PLCL1: LDA PDED,Yx^" BNE PLCONTx^" LDA PLYY,Yx^" BEQ PLCL0x^" CMP #3y^" BCS PLCONTy^" LDA PLDI,Y(y^" BEQ PLCL05y^"PLCONT:Fy^" LDA PLOC,XSy^" STA T3fy^" LDA PLOC+1,Xsy_" STA T4y _" LDA PLGD,Yy_" STA T5y_" LDX #5y(_"PLCL2: LDY T5y2_" LDA PBGD,Yy<_" PHAyF_" LDA PLIND,XyP_" TAYyZ_" PLAzd_" STA (T3),Yzn_" DEC T5zx_" DEX+z_" BPL PLCL2{@`" LDA PLYY,YH{J`" CLCU{T`" ADC #1c{^`" CMP #24r{h`" BCC PLM3{r`" LDA #0{|`" STA PLYY,Y{`" BEQ PLDOOR{`"PLM3: STA PLYY,Y{`" LDA PLOC,X{`" CLC{`" ADC #40{`" STA PLOC,X|`" BCC PLDOOR|`" INC PLOC+1,X(|`"PLDOOR: RTS.|`"B|`"PLSTOR: LDY #1O|`" LDX #2`|`" JSR STORPLm|a" LDY #0z|a" LDX #0|a"STORPL: LDA PLYY,Y|&a" ORA PDED,Y|0a" BEQ PLST0|:a" LDA PLOC,X|Da" STA T4|Na" LDA PLOC+1,X|Xa" STA T5}ba" LDA PLCD,Y}la" STA T3 }va" LDA PLGD,Y-}a" STA T6:}a" LDX #5K}a"PLBACK: TXA]}a" LDA PLIND,Xg}a" TAYx}a" LDA (T4),Y}a" LDY T6}a" STA PBGD,Y}a" DEC T6}a" DEX}a" BPL PLBACK}a" LDX #5}a"PLST1: TXA}b" LDA PLIND,X} b" TAY~b" LDA T3~ b" STA (T4),Y#~*b" DEC T3-~4b" DEX=~>b" BPL PLST1N~Hb"PLST0: RTST~Rb"j~\b"PLINE1: LDA PLYYy~fb" ORA PDED~pb" BEQ PLINE0~zb" LDX #47~b" LDY #5~b" STY T6~b"PLI11: LDA PBGD,Y~b" JSR CALCAD~b" LDY #7b"PLI12: LDA (T1),Yb" STA PLDES1,Xb" DEX'b" DEY7b" BPL PLI12Db" DEC T6Qb" LDY T6ab" BPL PLI11pc" LDX PLDI}c" LDY #0c" LDA PDED$c" BNE PLY13.c"PLI13: LDA PLINV,Y8c" AND PLDES1,XBc" ORA PLDAT,YLc" STA PLDES1,XVc" LDA PLINV+16,Y`c" AND PLDES1+24,X,jc" ORA PLDAT+16,YBtc" STA PLDES1+24,XL~c" INXVc" INYdc" CPY #16tc" BCC PLI13c"PLINE0: RTSc"PLY13: LDA PLINV,Yc" AND PLDES1,Xc" STA T1̀c" LDA $FF00܀c" ORA #$AAc" STA T2c" LDA PLINV,Y c" EOR #255d" AND T2$ d" ORA T17d" STA PLDES1,XLd" LDA PLINV+16,Yb(d" AND PLDES1+24,Xo2d" STA T1g" BEQ PLC02LHg" LDX T6_Rg" LDA (BADD,X)n\g" CMP #$B4~fg" BCC PLC02pg" CMP #$C0zg" BCS PLC02g" LDY #0g" CMP #$BAɆg" BCC PLC03ӆg" INY놬g"PLC03: LDA PDED,Yg" BNE PLC02g" LDA #8g" STA PDED,Y&g" LDA #07g" STA PLYY,YDg" LDY T7Ug" LDA SBIT,Ydg" AND BFLGsh" STA BFLGh" LDA #0h" SEC.h" JSR ADDSCR/h" LDA #160h" STA BANĠ8h"PLC02: DEC T6هBh" DEC T6Lh" DEC T7Vh" BPL PLCO1`h" RTSjh"th"PDTEST: LDY #1*~h" JSR PDTE17h" LDY #0Oh"PDTE1: LDA PDED,Y_h" BEQ PDTE2ih" SECvh" SBC #1h" STA PDED,Yh"PDTE2: RTSh"h"TANFIR: LDY TTRNÈh" DEC TTRNԈh" BPL TTRF99h" LDA #3i" STA TTRN i"TTRF99: TYA i" ASLAi" STA T6)(i" LDA $FF0582i" CMP #128Hl" STA TKHY,XHl" TXARl" CLC!\l" ADC #$2C.fl" STA T6m" JMP RIDSm"BJMP: JMP BCOL1gm"TRYX: CMP #$84vm" BCC BJMPm" CMP #$94m" BCS BJMPn" SEC n" SBC #$84n" AND #$0Cǐn" LSRAѐ(n" TAXܐ2n" LSRA3223^r" STA T2kr" LDY #0xr" STY T3$r" LDY #40.r" STY T48r" LDA SCOR+2Br" JSR PUTSCŖLr" LDA SCOR+1ՖVr" JSR PUTSC`r" LDA SCORjr"PUTSC: PHAtr" LSRA ~r" LSRAr" LSRA!r" LSRA1r" JSR PUTCS;r" PLAIr" AND #15[r"PUTCS: ASLAer" CLCtr" ADC #$D0r" LDY T3r" STA (T1),Yr" CLCr" ADC #1s" LDY T4Ǘ s" STA (T1),Yԗs" INC T3s" INC T4(s" RTS2s"Zs"EXTA0: DEXOds" BPL EXTANFYns" RTSmxs"EXTA1: CMP #1}s" BNE EXTA2s" TXAs" ASLAs" TAYs" LDA TKHL,Ys" STA T1͘s" LDA TKHL+1,Yژs" STA T2s" TXAs" AND #2s" TAY s" LDA TKCOD,Ys" LDY #0+t" STA (T1),Y5t" INY?t" CLCL"t" ADC #1],t" STA (T1),Yk6t" LDY #40xJt" ADC #1Tt" STA (T1),Y^t" INYrt" ADC #1|t" STA (T1),Yt" JMP EXTA9יt"EXTA2: LDA #$39䙚t" STA T2t" LDA EXTL,Xt" STA T1t" LDY #7&t"EXTA3: LDA $FF045t" ORA #$AAGt" AND $3538,YXt" STA (T1),Ybt" DEYrt" BPL EXTA3t"EXTA9: DEC TKDD,Xt" JMP EXTA0u"u"PLHORI: LDY #1u" LDX #2Қ&u" JSR PLHOZIߚ0u" LDY #0:u" LDX #0Du"PLHOZI: LDA PLYY,YNu" BEQ PLHZ1%Xu" LDA PLCT,Y/bu" SECv" BCS PLHZ9Rv" DEC PLOC+1,X\v"PLHZ9:fv" LDX PLIX,Ypv" LDA PTBL,Xzv" CLCΜv" ADC PLXX,Yߜv" STA PLXX,Yv"PLHZ8: LDA PLCT,Yv" BNE PLHZ1v" INX"v" LDA PTAB,X2v" BNE PLHZ3?v" LDX #0Nv" LDA PTABZv"PLHZ3:kv" STA PLCT,Y|v" STX PLIX,Yv"PLHZ1: RTSw"w"EYEBAL: TAXw" LDA EYED,XƝ$w" STA EYE1+1ٝ.w" LDX TURDAT,Y8w" LDA #31Bw" STA T1 Lw"EYE1: LDA $3400Vw" STA $3C20,X.`w" INC EYE1+18jw" INXEtw" DEC T1T~w" BPL EYE1^w" RTSdw"yw"RADART: LDA SCRw" CMP #7w" BNE RADAR1w" LDX #31w"RADAR2: LDA RADAR,XОw" EOR $39E0,Xw" STA $39E0,Xw" LDA $3880,Xw" EOR #255w" STA $3880,X'x" LDA $38A0,X6 x" EOR #255Hx" STA $38A0,XZx" LDA $38C0,Xi(x" EOR #255{2x" STA $38C0,X {" CMP #3O*{" BNE MANFI3^4{" LDA BFLGk>{" AND #2|H{" BNE MANFI3R{" INC SWAP\{" LDA SWAPf{" LSRAp{" LDA #40Ĥz{" BCS MANFIAҤ{" LDA #42㤎{"MANFIA: TAX{" CLC{" ADC MAN {" STA BADD+2{" LDA MAN+1){" ADC #0:{" STA BADD+3D{" TXAN{" SEC\{" SBC #40f{" TAXp{" CLC}|" ADC MX|" STA BXXX+1|" LDA MY$|" STA BYYY+1.|" INC BYYY+1Υ8|" LDA DIAG,XߥB|" STA BDIR+1L|" LDA BFLGV|" ORA #2 `|" STA BFLG j|"MANFI3: LDA FIRD/t|" AND #$0C@~|" BEQ MANFI4O|" LDA BFLG^|" AND #$0Co|" BNE MANFI4~|" LDA FIRD|" AND #$0C|" LDX #0|" CMP #4|" BEQ FRED99Ŧ|" LDA MYӦ|" CMP #17|" BCS MANFI4|" LDX #2}"FRED99: }" LDA MAN}" CLC$}" ADC #405(}" STA BADD+4E2}" LDA MAN+1R<}" ADC #0cF}" STA BADD+5qP}" LDA MAN{Z}" CLCd}" ADC #42n}" STA BADD+6x}" LDA MAN+1}" ADC #0ȧ}" STA BADD+7է}" LDA MX槠}" STA BXXX+2}" CLC}" ADC #2}" STA BXXX+3}" LDA MY,}" STA BYYY+2=}" INC BYYY+2N}" STA BYYY+3_}" INC BYYY+3q}" LDA EXTRA,X~" STA BDIR+2~" LDA EXTRA+1,X~" STA BDIR+3"~" LDA BFLGŨ,~" ORA #$0CԨ6~" STA BFLG@~"MANFI4: RTSJ~"T~"PICKEM: LDA KEYT+6^~" AND #128#h~" BNE PPPPRE4i~" LDA KEYT+5Bj~" AND #64Sk~" BEQ PICKEXgr~"PPPPRE: LDX #2x|~" JSR PICKE1~" LDX #6~" JSR PICKE1~" LDA MPHS~" AND #3é~" BEQ PICKEXѩ~" LDX #10~" JSR PICKE1~"PICKEX: RTS ~"PICKE1:LDA BGDS,X~"CMP #$10(~"BCC PICKEX6~"CMP #$20F~"BCS PICKEXO~"TAYZ~"AND#3j"BNE PICKEXs"TYA|"CLC"ADC#1"CMPBGDS+4,X"BNE PICKEX&"ADC#0Ī0"CMPBGDS+1,XԪ9"BNE PICKEXߪ:"ADC#0;"CMPBGDS+5,X="BNE PICKEXD" AND #15N" LSRA$X" LSRA.b" TAY=l" LDA FIRDNv" AND GUN1,Y_" ORA GUN2,Yn" STA FIRD|" LDA #12" STA BGDS,X" LDA #13" STA BGDS+4,X" LDA #14ϫ" STA BGDS+1,Xݫ" LDA #15" STA BGDS+5,X" LDA #32 " STA PYCK" PLA!" PLA+" RTS1"E "BCOLL2: LDX #4T" LDA MDISa " CMP #4p*" BCC BCL1z4" INX>"BCL1: STX T1H" JSR MCL2R" LDA MPHS\" AND #1Ȭf" BEQ MCL9լp" LDA T1߬z" CLC쬄" ADC #4" TAX" JSR MCL2"MCL9: RTS*"MCL2: LDY #2B"MCL0: LDA BGDS,XO" CMP #5_ʀ" BEQ MNDEDnԀ" CMP #$C0}ހ" BCS MCL3" CMP #$B4" BCS MNDE1"MCL3: INX" DEYƭ" BPL MCL0Э" RTS$"MNDE1: LDY #0." CMP #$BA8" BCC MNDE2 B" INY%L"MNDE2: LDA PDED,Y4V" BNE MNNTH`"MNDED: LDA #0Wj" STA MNDDat" PLAk~" PLA|"MNNT: RTS""LESSPL: LDX MLIF" LDA GOPPL,X" TAY" LDA #0Үā" STA 3462,Y΁" STA 3502,Y؁" DEX" STX MLIF" RTS " "MANRES: LDX #1/ " STX MNDD>" STX FIRDH" DEXW(" STX SWAPf2" STX MPHSu<" STX MPHT=" LDA #7>" SEC?" SBC SCR@" STA MDISF" LDX #20įP" STX MYүZ" LDX #14߯d" STX MXn" LDX #<3886x" STX MAN" LDX #>3886" STX MAN+1." LDA #210=" STA FIREJ" LDA #0Y" STA BANGh" STA PYCKr" RTSx""DELAY: LDX #0" LDY #0"DEL1: DEYȂ" BNE DEL1ð҂" DEXҰ܂" BNE DEL1ܰ" SEC" SBC #1" BNE DEL1" RTS""PAUSE: SEI/""PAU1: JSR KEYSCN>," LDA KEYTK6" AND #8Z@" BEQ PAU1gJ" LDA #2wT" STA $FF09^" CLIh" RTSr"|"AEROFI: LDY #1" LDX #2ñ" JSR FIAEROб" LDY #0ݱ" LDX #0"FIAERO: LDA PLYY,Y" BEQ FIA1ƒ" LDA TBIT+4,Y&̃" AND BFLG5փ" BNE FIA1F" LDA PLDI,YS" CMP #7b" BCC FIA1o" LDA #2" STA BDIR+4,Y" LDA PLXX,Y" STA BXXX+4,Y&" LDA PLYY,Yʲ0" STA BYYY+4,Y۲:" LDA PLOC,XD" CLCN" ADC #80X" STA BADD+8,Xb" LDA PLOC+1,X&l" ADC #09v" STA BADD+9,XL" LDA TBIT+4,Y[" ORA BFLGj" STA BFLGz"FIA1: RTS""EXTRA:BYT 4,8,6,10"GOPPL:BYT 4,2,6,0,8ƳƄ"DIAG: BYT 5,0,9Є"GUN1:BYT $C,$C,$3,$3ڄ"GUN2:BYT 2, 3, 4, 8"TANKSE: BYT 0,1,2,40,41,423"BYT 0,1,40,41,80,81F"BYT 0,1,40,41c"BYT 0,1,40,41,0,1,40,41 "EXTL: BYT $60,$68,$70,$78"PLIND:BYT 0,40,80,1,41,81 "PLCD:BYT $B9,$BFҴ*"TURDAT:BYT 0,32,64,964"TEDD:BYT 7,$98,0,0,2,200 >" BYT 255,255;CURSOR!H" BYT 0,0,0,0;SOUND?R" BYT $C8,56,8,0,$E,9,0,0ef"TABS:BYT 0,40,80,120,1,41,81,121p" BYT 2,42,82,122,3,43,83,123z"PLGD:BYT 5,11"TKCLE:BYT 2,42,80,81ӵ"TKCOD:BYT $40,$42,$50,$51񵘅"TBMA:BYT $02,$02,$0C,$0C"TBIT:BYT 1,2,4,8,16,32,64,128B"SBIT:BYT $FE,$FD,$FB,$F7,$EF,$DF,$BF,$7Fe"CPICK: BYT $C,$10,$14,$18,$1C"PTAB:BYT 10,8,10,8,0ʅ"PTBL:BYT 1,0,255,0ԅ"EYED:BYT 0,$00,$80,0,$C0,$E0,$A0޶ޅ"BYT 0,$40,$20,$60,0,0,0,0,0~"SNOIS: LDX #0" STX T0 " ASLA" ROL T0!" ASLA." ROL T0>" STA $FF0FK" LDA T0[" STA $FF10jĆ" LDA #$48zΆ" ORA $FF11؆" STA $FF11" RTS""STONE: LDX #0" STX T0ŷ " ASLAҷ" ROL T0ݷ" ASLA(" ROL T02" STA $FF0E <" LDA $FF12F" AND #$FC&P" ORA T06Z" STA $FF12Ed" LDA #$18Un" ORA $FF11ex" STA $FF11o" RTSu""SOUND: LDA PYCK" BEQ SOU9" JSR STONE" LDA PYCKøȇ" CLCѸɇ" ADC #16ʇ" STA PYCKˇ" LDA FIRĖ" CMP #210 ͇" BNE SOU8·" BEQ SOUND23Ї"SOU9: LDA FIREBч" CMP #210Q҇" BEQ SOUAaӇ" JSR STONEvԇ"SOU8: DEC FIREՇ" JMP SOUND2և"SOUA: LDA #$EF܇" AND $FF11" STA $FF11ҹ"SOUND2: LDA BANG" BEQ SOU3" JSR SNOIS" DEC BANG "" RTS,"SOU3: LDA #$BF/1" AND $FF11?3" STA $FF11I6" RTSOT"eY"MVEMAN: LDA MPHSu^" BEQ MVEM1c" AND #2h" BEQ MVEM2m" INC MANr" BNE MVEM2w" INC MAN+1Ժ|"MVEM2: LDA #0㺁" STA MPHS"MVEM1: LDA MPHT " BEQ MVEM9" LDY #0%" STY MPHT2" AND #2A" BNE ADD4L"SUB4:[" LDA MDISe" SECr" SBC #4|" TAY" AND #7ˆ" STA MDISLj" TYÄ" BPL MVEM9ш" DEC MYͻֈ" LDA MAN׻ۈ" SEC" SBC #40" STA MAN" BCS MVEM9" DEC MAN+1$"MVEM9: RTS:"ADD4: LDA MDISD" CLCQ" ADC #4[" TAYh " AND #7w" STA MDIS" CPY #8" BCC MVEM9!" INC MY&" LDA MAN+" CLCǼ0" ADC #40ռ5" STA MAN:" BCC MVEM9?" INC MAN+1D" RTSI"X"DEATH: LDA #0%Y" STA T75Z" LDA $FF16?[" PHAO\" LDA $FF17Y]" PHAml"DEA1: JSR DIEzm" LDA T7n" STA $FF17o" STA $FF16p" JSR SNOISv" DEC T7ƽ" BNE DEA1ӽ" LDA #0㽂" STA $FF11" PLA" STA $FF17" PLA" STA $FF16!" RTS'"=@"DIE: LDX MDISJJ" LDY #0YT" LDA MPHSf^" AND #3uh" BEQ RAH2r" LDY #STEP|"RAH2:" LDA #24" STA T1"RUGGEO:ʾ" LDA IMAND,Yܾœ" AND DESTI,X̜" STA T3֜" LDA IMAND,Y " EOR #255" AND $FF04'" ORA T39" STA DESTI,XN" LDA IMAND+24,Yc" AND DESTI+32,Xp" STA T3&" LDA IMAND+24,Y0" EOR #255:" AND $FF04D" ORA T3ƿN" STA DESTI+32,XۿX" LDA IMAND+48,Yb" AND DESTI+64,Xl" STA T3v" LDA IMAND+48,Y!" EOR #2551" AND $FF04>" ORA T3S" STA DESTI+64,Xh" LDA IMAND+72,Y}" AND DESTI+96,X" STA T3Ɲ" LDA IMAND+72,YН" EOR #255ڝ" AND $FF04" ORA T3" STA DESTI+96,X" INX" INY " DEC T1" BNE RUGGEO " RTS'!"LAST:.*"*