PX]XdA,10000cXkX'"*M{X'"IRJU=$1316X'"SHIFT=$1750X$'"COPY=$1200X.'"O =$0200X8'"D =COPY-OX9'"CBASE=$04X:'"COLOR=$7EX;'"CLRCDE=$5D;BLANKXA'"CCOL=$49YB'"YC'"LLOD=3403#YD'"LLEV=36452YE'"LNUM=3889AYF'"LERR=3162PYG'"LREW=LERR`YL'" ORG $1008fYV'"lY~'"zY'"MLIF=$1AY'"T0 =$02Y'"TA=3Y'"TB=4Y'"T3=$94Y'"T4=$95Y'"T5=$96Y'"T6=$97Y'"T7=$98Y'"T1=$92Y'"T2=$93Z'"FFIRST=$03;2BZ'"FLAST =$05;2B(Z'"FNLEN =$078Z'"TOP =$08HZ'"CHKSUM=$09XZ'"TEMP =$0AhZ'"DATA =$0BxZ'"LEVEL =$0CZ'"LEVEI =$0DZ'"FNAM =$100Z'"SCOR=$17Z'"HISCR=$EZ'"Z("BEGIN: SEIZ (" LDX #0Z("BEG1: LDA CODE,XZ(" STA O,X[((" LDA CODE+256,X&[2(" STA O+256,X;[<(" LDA CODE+512,XM[F(" STA O+512,Xb[P(" LDA CODE+768,Xt[Z(" STA O+768,X[[(" LDA CODE+1024,X[\(" STA O+1024,X[](" LDA CODE+1280,X[^(" STA O+1280,X[d(" INX[n(" BNE BEG1[x(" JMP BEGLO-D\(" ORG COPY\("\(";LEVEL CONTROL1\("CODE:JSR SETVID-DA\(" LDA LEVELQ\(" CMP LEVEI`\(" BEQ COD1m\(" CMP #3}\(" BCC COD99\(" LDA #<3526\(" STA TA\(" LDA #>3526\(" STA TB\(" LDX #10\(" LDY #M12-M\(" JSR FLASH-D\(" LDA #1](" STA LEVEL](" JMP CODE-D,]("COD99:ORA #$30;](" STA FNAMH](" LDA #1X](" STA FNLENh](" LDA LEVELx](" CMP LEVEI](" BCS COD2](" JSR REWIND-D]("COD3: JSR SETVID-D])"COD2: JSR LEVINM-D])" JSR READ-D])" TXA]")" BEQ COD1^,)" JSR ERRORL-D^@)" JMP COD3-D#^J)"COD1:3^K)" LDA LEVELC^L)" STA LEVEIT^M)" JSR MESG-Dg^T)" JMP SCREEN-Dm^h)"^P"PRINT: LDY #0^Z"PRI1: LDA M-D,X^d" BEQ PRT2^n" STA (T1),Y^x" INX^" INY^" BNE PRI1^"PRT2: RTS^"_"ERRORL:LDA #LERR1_" STA TB>_" LDX #9N_" LDY #M3-M`_"" JSR FLASH-Df_,"}_6"REWIND:LDA #LREW_T" STA TB_^" LDX #9_h" LDY #M4-M_r" JMP FLASH-D_"_"LEVINM:LDA #LLEV`" STA T2,`" LDX #6;`" LDA #$40N`" JSR DRAWBX-D^`" LDX #M2-Mp`&" JSR PRINT-D`0" LDA #LNUM`N" STA T2`X" LDX #2`b" LDA #$5F`l" JSR DRAWBX-D`v" LDY #0`" LDA LEVELa" ORA #$60a" STA (T1),Ya"5a"LOADIN:LDA #LLOD`a" STA T2ma" LDX #8|a" LDA #$40a" JSR DRAWBX-Da" LDX #M1-Ma" JMP PRINT-Da"a "BEGLO: JSR SETVID-Da" JSR LOADIN-Da " LDX #0b*" STX FNLENb4" STX LEVEI b5" STX HISCR2b6" STX HISCR+1Db7" STX HISCR+2Nb>" INX^bH" STX LEVELobR" JSR READ-Dyb\" TXAbf" BNE BEGERRbp" JSR READ-Dbz" TXAb" BNE BEGERRb" JMP $1000b"BEGERR: JSR ERRORL-Db" JMP BEGLO-Db" c"SETVID:LDX #19%c"SETV1: LDA TEDD-D,X7c" STA $FF06,XAc" DEXQc" BPL SETV1Wc"dc" LDX #0|c"SETV2: LDA #CLRCDEc" STA $C00,Xc" STA $D00,Xc" STA $E00,Xc$" STA $F00,Xc." LDA #COLORc8" STA $800,XcB" STA $900,XdL" STA $A00,XdV" STA $B00,Xd`" INX/dj" BNE SETV29dt" RTSHd~" ORG IRJUhd"TEDD:BYT $1B,$18,0,0,2,200d" BYT 255,255;CURSORd" BYT 0,0,0,0;SOUNDd" BYT $C8,CBASE,8d" BYT 6,$36,$16,$00,6d"M: M1: BYT 'LOADING',0e"M2: BYT 'LEVEL',$40,0e"M3:BYT 'ERROR',$40,'IN',0=e"M4:BYT$40,'REWIND',$40,0Te"M5:BYT 'TOMCAT',0e"M6:BYT'COPYRIGHT',$40,'PLAYERS',$40,$61,$69,$68,$69,0e"M7:BYT'THIS',$40,'VERSION',$40,'CODED',$40,'BY',$40,'DARRON',$40e"BYT'M',$40,'BROAD',0f "M8:BYT'SCORE',0f"M9:BYT'HI',04f"M10:WOR$6060,$6060,$6060Cf("BYT $60,0f2"M11:BYT'PRESS',$40,'SPACE',$40,'FOR',$40,$40,'LEVEL',$40,0f3"M12:BYT'WELL',$40,'DONE',0f<"TIM2 =$FF02fF"TINT =$FF09fP"SYNC =$16fZ"PIO =1fd"fn"READ:gx" LDA $FF19g" PHAg" LDX #11g"RETRY: LDA #0Ag" STA $FF19Rg" STA CHKSUM`g" STA PIOog" LDY #255{g"SYNCT:g" JSR READB- Dg" CMP #SYNCg" BEQ GOTSYNg" STX DATAg" JSR SKIPB- Dg" BCC SYNCTg"GOTSYN:h" JSR READB- Dh"" CMP #SYNC"h," BEQ GOTSYN2h6" CMP FNLENBh@" BNE RETRYShJ"NAMCHK: INYchT" CPY FNLENsh^" BCS NMENDhh" JSR READC- Dhr" CMP FNAM,Yh|" BEQ NAMCHKh" BNE RETRYh"NMEND:h" LDY #3h"GADDR: JSR READC- Dh" STA FFIRST,Yi" DEYi" BPL GADDR+i" JSR READC- D"READC: LDA DATAkH" EOR CHKSUMkR" STA CHKSUMk\"READB: LDA #$FEkf" STA DATAkp"SKIPB: STY TEMPkz" LDY #$38k"READ0: INC $FF19 l" LDA #$10"l"READ1: BIT PIO2l" BNE READ1Al" STY TIM2Rl" STX TIM2+1gl"READ2: BIT PIOwl" BEQ READ2l" LDA TIM2+1l" ASL Al" ROL DATAl" BCS READ0l" LDY TEMPl" LDA DATAl" RTSl"l$"SCREEN: LDA #$Bm%" STA $FF06m&" LDX #0'm."SCR1: LDA #08m8" STA $C00,XImB" STA $D00,XZmL" STA $E00,XkmV" STA $F00,X{m`" LDA #CCOLmj" STA $800,Xmt" STA $900,Xm~" STA $A00,Xm" STA $B00,Xm" INXm" BNE SCR1m" LDA #<$846m" STA T1n" STA T3n" LDA #>$846!n" STA T2.n" EOR #4;n" STA T4On" LDA #BDAT- D}n " STA T6n" LDA #0n" STA T0n(" LDX #11n2"BORDER: LDA #$37n<" LDY #9nF"BORD1: STA (T1),YnP" DEYnZ" BPL BORD1od" LDY #49 on"BORD2: STA (T1),Y*ox" DEY8o" CPY #40Ho" BCS BORD2Uo" LDA #0bo" STA T7vo"ZEROIZ: LDY T0o" LDA (T5),Yo" INC T0o" CMP #1o" BEQ ZESKIPo" LDY T7o" STA (T3),Yo" INC T7o" PHAo" TYAo" CLC p" ADC #40p"" TAYp," PLA*p6" ORA #1;p@" STA (T3),YHpJ" LDY T7VpT" CPY #10gp^" BCC ZEROIZtph"ZESKIP:pr" LDA T1p|" CLCp" ADC #80p" STA T1p" STA T3p" LDA T2p" ADC #0p" STA T2p" EOR #4p" STA T4p" DEXq" BPL BORDERq" LDA LEVEL*q" ASLA4q" CLCCq" ADC #$D0Rq" STA 3706_q" ADC #1nq&" STA 3746}q0" LDY MLIFq:" CPY #5qD" BCC LIFPUTqN" LDY #4qX" STY MLIFqb"LIFPUT: LDA TABE-D,Yql" TAXqv" LDA #$F4q" STA 3462,X r" LDA #$F5r" STA 3502,X%r" DEY6r" BPL LIFPUT@r" RTSKr"BDAT:mr"BYT0,0,$E4,$E6,$E8,$EA,$EC,1r"BYT0,$D0,$D0,$D0,$D0,$D0,$D0,$D0,1r"BYT1r"BYT0,0,$EE,$F0,$F2,$EC,$E4,1r"BYT1r"BYT1r"BYT0,0,$EE,$EC,$F2,$EC,$EE,1s "BYT1 s"BYT1s "BYT19s*"BYT0,$F6,$E8,$F8,$E6,$FA,$F6,1Cs4"BYT1[s>"TABE:BYT 4,2,6,0,8asR"us\"DRAWBX: LDY #0sf" STY T3sp" STA T4sz"DRA1: STA (T1),Ys" TYAs" CLCs" ADC #80s" TAYs" LDA T4s" STA (T1),Ys" INC T3 t" LDY T3t" DEX$t" BPL DRA1.t" TYA8t" CLCFt" ADC #39Pt" TAY]t" LDA T4nt" STA (T1),Y|t$" LDY #40t." STA (T1),Yt8" LDA T1tB" CLCtL" ADC #41tV" STA T1t`" LDA T2tj" ADC #0tt" STA T2t~" RTSt" u"FLASH: STX T5u" STY T6#u" LDA #80u" STA T7Cu"FLA1: LDA TAPu" STA T1]u" LDA TBju" STA T2wu" LDX T5u" LDA #$5Bu" JSR DRAWBX-Du" LDX T6u " JSR PRINT-Du" JSR DELAY-Du" LDA TAu(" STA T1u2" LDA TBu<" STA T2 vF" LDX T5vP" LDA #$40-vZ" JSR DRAWBX-D?vd" JSR DELAY-DLvn" DEC T7[vx" BNE FLA1ev" RTSkv"~v"DELAY: LDX #0v" LDY #0v"DEL1: DEYv" BNE DEL1v" DEXv"" BNE DEL1v," RTSv6"v"ORG SHIFTv"MESG: JSR SETVID-Dw" LDY #0w" STY TA,w"MES1: LDA MESD-D,Y9w" STA T1Nw" LDA MESD+1-D,Y[w" STA T2pw" LDA MESD+2-D,Yzw" TAXw$" LDA #$40w." JSR DRAWBX-Dw8" LDY TAwB" LDA MESD+3-D,YwL" TAXwV" JSR PRINT-Dw`" LDA TAwj" CLCwt" ADC #4 x~" STA TAx" TAY#x" CPY #322x" BCC MES1Bx" LDA LEVELQx" ORA #$60`x" STA 4023qx" LDA #<3126~x" STA T1x" LDA #>3126x" STA T2x" LDA $23FFx" LDX $23FEx" LDY $23FDx " JSR SCPUT-Dx" LDA #<3137x" STA T1 y(" LDA #>3137y2" STA T2,y<" LDA HISCR+2>yF" LDX HISCR+1NyP" LDY HISCR`yZ" JSR SCPUT-Dlyd"WAITK:{yn" LDA #$7Fyx" STA $FD30y" STA $FF08y" LDA $FF08y" AND #16y" BNE WAITKy" RTSy"MESD:WOR 3408y"BYT 7,M5-Mz"WOR 3480z"BYT 23,M6-M#z"WOR 35934z"BYT 37,M7-MBz"WOR 3079Rz"BYT 6,M8-M`z"WOR 3093pz"BYT 3,M9-M~z"WOR 3085z""BYT 8,M10-Mz,"WOR 3096z6"BYT 8,M10-Mz@"WOR 3959zJ"BYT 25,M11-MzT"SCPUT: STY T7z^" LDY #0{h" JSR PUTSC-D {r" TXA{|" JSR PUTSC-D){" LDA T75{"PUTSC:?{" PHAJ{" LSRAU{" LSRA`{" LSRAk{" LSRAz{" ORA #$60{" STA (T1),Y{" INY{" PLA{" AND #15{" ORA #$60{" STA (T1),Y{" INY{" RTS{&"*