)@# ȩ!ȩ"(#ȩ$ȩ%Lȩ(ȩLʤ`uv0c)@$PLH @L LGi)ui(uv,PPȩQ)LL)@ܵu8(vLHuv8 L/uv)@$&ȩ'((ȩ)P*ȩ+Lȩ(ȩL 5  \   Lf '*!A"$H!hƖ` g0iH)h)ii(`  5!"!$Ɨ!Ɣ`C/$ =ʈƗ馡5==5=5==5=`5==; 5I%=5==5I%=`C/* =ʈƗ馢5==5=5 ==5=`5== 5I%=5==5I%=`p9,"5@ɴ-)ɺȹ4"%pp8 ƗƗƘ`5 <8`Ƥ ɀ2}.p90"'\yT 9("dqHrIp0"p`,"% p` @ ,ɔɠL@8h8 !qeyrA@LJ}}i, qr)@) "$"!"%"ȑ(ȑ/ LLɄɔ8) JJ焔ąŅ)<", i(ii̹! @5 < P 4"%pp҅L,"%p@h@AHIA@hAʈ`eh)ee` (  HJJJJ h) iФ)i``, qr)$"i(iiL9! 985օ L: R8F"+0iL8֚F"yA"A"`J"!4 <ƒ`.5]998I#88I88I88I8`")!)@`)-p)'܅i)@iAPPXX`p p )Cp)=܅i(@iAi*BiCPiQXXYY`ap p)8p)2揥J(*eBiC8(eQYY!ap p) Up) O)  ?i(DiEi*FiGRiSZZ[[!b!cp p`")!)@  ) `0 ) i4i1i5)JJ9!! 0 415 hh`膒 ) i `0ɴ`ɺȹhh!`! ʆ`ʆ8.҅`8`x )  X` !30"%p,!%dT\iPHiI0"pp`  ()*()PQ()()()`hpx(P)Q @`8 (P"x)Qy*Rz+S{ *PQ@BPQ  @߿   @ ` & & H ` & &)" ` u"i  u"ƌL"- Z"Ƌ`-`)")8) 8(ƀ #`i)i(`HH U# Z"Ƙhh`)e5=>5I->5= >5I-;# >5=@>5I-@>6=`>6I-`>ƒЦ`()*()PQ()()()`hpx(P)Q @`8 (P"x)Qy*Rz+S{ *PQ@BPQ  @߿   @ ` & &! GETNIMAk0"GETNEX: RTSGk0"[k0"REPLY: LDX #0uk1"REP1: LDA CORREC,Xk1" BEQ REP2k1" JSR CHROUTk$1" INXk.1" BNE REP1k81"REP2: JSR GETINkB1" CMP #'YkL1" BEQ YESkV1" CMP #'Nk`1" BNE REP2lj1" SEClt1" RTS#l~1"YES: CLC-l!1" RTS3l1"Gl1"WMESG2: LDX #0`l1"WM2: LDA MESG2,Xol1" BEQ WM21l1" JSR $FFD2l1" INXl1" BNE WM2l1"WM21: JSR GETNAMl1" LDX T0l1" STX FNLENl1" BEQ WM22l2"WM23: LDA NAME-1,Xm 2" STA FNAM-1,Xm2" DEX!m2" BNE WM232m(!2"WM22: RTS8m22"Lm<2"WMESG3: LDX #0emF2"WM3: LDA MESG3,XtmP2" BEQ WM31mZ2" JSR $FFD2md2" INXmn2" BNE WM3mx2"WM31: JSR GETHEXm2" LDA T0m2" STA FFIRSTm2" LDA T1m2" STA FFIRST+1m2" RTSn2"n2"WMESG4: LDX #0/n2"WM4: ! LDA MESG4,X>n2" BEQ WM41Nn2" JSR $FFD2Xn2" INXfn2" BNE WM4~n2"WM41: JSR GETHEXn3" LDA T0n3" STA FLASTn3" LDA T1n"3" STA FLAST+1n,3" RTSn63"n@3"WMESG5: LDX #0nJ3"WM5: LDA MESG5,XoT3" BEQ WM51o^3" JSR $FFD2 oh3" INX!.or3" BNE WM5Fo|3"WM51: JSR GETHEXSo3" LDA T0co3" STA BEGINpo3" LDA T1o3" STA BEGIN+1o3" RTSo3"o3"WMESG1: LDX #0o3"WM1: LDA MESG1,Xo3" BEQ WM11o3" JSR $FFD2o3" INXo3" BNE WM1p3"WM11: JSR GETNAMp4" LDX T0+p!4" STX HEADL:p4" BEQ WM12Tp&4"WM13: LDA NAME-1,Xhp04" STA HEADN-1,Xrp:4" DEXpD4" BNE WM13pN4"WM12: RTSpX4"pb4"HEADER: LDA #1pl4" TAXpv4" TAYp4" JSR SETLFSp4" LDA HEADLp4" LDX #HEADNq4" JSR SETNAM'q4" !LDA #<$2204q4" STA T0Eq4" LDA #>$220Rq4" STA T1`q4" LDA #T0qq4" LDX #<$304q4" LDY #>$304q4" JMP SAVEq5"q 5"HEADL: BYT 0q5"HEADN: RES 16q 5"q*5"WRITE: PHPq45" SEIq>5" LDA $FF19 rH5" PHArR5")r\5" ! JSR PRECO@rf5" STA RAMONTrp5" LDA #2irz5" STA PIOor5"r5" LDA #0r5" STA CHKSUMr5" STA $FF19r5" LDA #4r5" JSR GAITr5"r5" LDX #16s5"WSYNC: LDA #SYNC&s5" ! JSR WRITEB7s5" DEXNs5" BNE WSYNCTs5"ks6" LDA FNLENs6" JSR WRITEBs6" LDA FNLENs$6" BEQ NONAMEs.6"s86" LDY #0sB6"WNAME: LDA FNAM,YsL6" JSR WRITEB tV6" INY$t`6" ! CPY FNLEN;tj6" BCC WNAMEHtt6"NONAME:\t6" LDX #3vt6"WADDR: LDA FFIRST,Xt6" JSR WRITEBt6" DEXt6" BPL WADDRt6"t6" LDA CHKSUMt6" JSR WRITEBt6" u6" LDY FFIRSTu6" ! LDA #06u6" STA FFIRSTKu7" STA TOPQu 7"gu7"BLOCK: JSR DELLu7" LDA FFIRST+1u(7" CMP FLAST +1u27" PHPu<7" BCC NOTYETuF7" LDA FLASTuP7" BEQ WDONEvZ7" STA TOPvd7"NOTYET! :0vn7" LDA (FFIRST),YHvx7" JSR WRITEBYv7" INYnv7" CPY TOPv7" BNE NOTYETv7"v7" LDA CHKSUMv7" JSR WRITEBv7"v7" INC FFIRST+1v7" PLPw7" BNE BLOCKw7" ! PHAw7",w7"WDONE: PLABw8" LDA #$88Ww8" STA PIOmw8" STA LOCKw"8" STA ROMONw,8"w68" PLAw@8" STA $FF19wJ8" PLPwT8" RTSw^8"wh8"WRITEB: STA DATAxr8" EOR CHKSUM x|8" ! STA CHKSUM1x8" TYABx8" PHAVx8" LDY #8mx8"WRT1: INC $FF19x8" LDA #0x8" STA PIOx8" JSR DELLx8" ASL DATAx8" BCC ZEROx8" JSR DELLy8"ZERO: LDA #2y8" ! STA PIO-y8" JSR DELL>y9" DEYTy9" BNE WRT1ey9" PLAvy&9" TAYy09" RTSy:9"yD9"GAIT: STA CNTyN9" LDX #0yX9" LDY #0yb9"GAIT1: DEYyl9" BNE GAIT1zv9" DEXz9" ! BNE GAIT1/z9" DEC CNTFz9" BNE GAIT1Wz9" RTS]z9"wz9"DELL:SAVLOW:LDA #$60z9" STA TIM2z9"SAVHIG: LDA #0z9" STA TIM2+1z9" LDA #16z9" STA TINTz:"DEL11: BIT TINT{ :" B!EQ DEL11'{:" STA TINT8{ :" RTS>{*:"g{4:"MESG: BYT 19,19,147,9,14,31,8,13,13m{>:"{H:"BYT ' URBO.APE.ENU.....',13,13{R:"BYT ' 1) ENERATE HEADER',13{\:"BYT ' 2) URBO SAVE RAM',13{]:"BYT ' 3) ISK LOAD',13|^:"BYT ' 4) !LTER CONSTANTS',138|a:"BYT ' E) DIT SCREEN',13^|f:"BYT ' M) XIT TO MONITOR',13,13||p:"BYT ' NTER OPTION : ',0|z:"|:"MESG1: BYT 147,13,13|:"|:"BYT ' NTER HEADER FILE NAME:',13,32,0|:"|:"MESG2: BYT 147,13,13|:"}:"BYT ' NTER! TURBO FILE NAME:',13,32,0%}:";}:"MESG3: BYT 13,13A}:"j}:"BYT ' NTER START ADDRESS:',13,32,0p}:"}:"MESG4: BYT 13,13};"};"BYT ' NTER END ADDRESS:',13,32,0};"}$;"MESG5: BYT 13,13}.;"}8;"BYT ' NTER RUN ADDRESS:',13,32,0%~B;"C!ORREC:BYT 13,13,' CORRECT? Y/N ',08~L;"NAME: RES 16>~V;"D~;"Q~ N"DISKLD:a~*N" JSR $FBD8~4N" BYT 147,13,' NTER DISK FILE NAME',13,13,' ',0~>N" JSR GETNAM~HN" LDA T0~\N" BNE DISCON~fN" RTS~pN"DISCON: LDX #NAME N" JS!R SETNAMN" LDA #8 N" TAX/N" LDY #255@N" JSR SETLFSMN" LDA #0]N" JMP $FFD5cN"s0u"OUTHEX:TXA~:u" LSRADu" LSRANu" LSRAXu" LSRAbu" JSR OUTNIBlu" TXAvu" AND #15u" JSR OUTNIBu" TYAu" LSRAu" LSRAu"! LSRAu" LSRA u" JSR OUTNIB*u" TYA8u" AND #15Eu"OUTNIB:Tu" ORA #$30cu" CMP #$3Asu" BCC OKNIBv" ADC #6 v"OKNIB: JSR $FFD2v" RTS v"@"CONSTT: JSR $FBD8J" BYT147,13,'URRENT SAVE CONSTANT=',0T" LDX SAVHIG+1!^" LDY SAVLOW+1h" JSR OUTHEX/r" JSR $FBD8Z|" BYT 13,13,'URRENT LOAD CONSTANT=',0m" LDX LODHIG+1" LDY LODLOW+1" JSR OUTHEX" JSR $FBD8ā" BYT 13,13,13,'NTER SAVE>',0Ձ" JSR GETHEXœ" LDA T0̜" ORA T1֜" BEQ T!RY2 " LDY T1" STY SAVHIG+1+" LDX T0>" STX SAVLOW+1S"TRY2: JSR $FBD8r"BYT 13,13,'NTER LOAD>',0" JSR GETHEX&" LDA T00" ORA T1:" BEQ TRY3D" LDX T1ƂN" LDY T0قX" STX LODHIG+1b" STY LODLOW+1l"TRY3:RT!Sv"j"EDITOR: JSR WEDMES/t"EDWA: JSR GETIN=~" CMP #13L" BNE EDWAR"_" LDA #9p" JSR CHROUT~" LDA #19" JSR CHROUT" JSR EDDWN" JSR $D965" JSR EDUPȃ" RTS΃""EDUP: LDA #0" STA T0 " STA! T2" LDA #8" STA T1#(" LDA #$4802" STA T3=<" LDY #0JF" LDX #8PP"fZ"EDU1: LDA (T0),Ywd" STA (T2),Yn" INYx" BNE EDU1" INC T1" INC T3" DEXÄ" BNE EDU1̈́" RTSӄ"愾"EDDWN: LDA #0" STA T0!" STA T2" LDA #$08" STA T1+" LDA #$488" STA T3E" LDX #8R" LDY #0X"o""EDD1: LDA (T2),Y," STA (T0),Y6" INY@" BNE EDD1J" INC T1T" INC T3^" DEX̅h" BNE EDD1օr" RTS܅|""EDCLR: LDA #0!" STA T0 " LDA #$48" STA T1%" LDY #02" LDX #8@" LDA #32F"]"EDC1: STA (T0),Yg" INYv" BNE EDC1" INC T1" DEX" BNE EDC1" RTS"&"ˆ0"WEDMES: LDA #EDMES!N" STA WED1+2X"b"WED1: LDA $FFFF+l" BEQ WED2;v" JSR $FFD2L" INC WED1+1[" BNE WED1l" INC WED1+2{" BNE WED1"WED2: RTS"""EDMES: BYT 147,13,13""BYT 'SE CURSOR KEYS TO MOVE AROUND SCREEN.',13"!"BYT 'RESSING A KEY STORES ITS CODE AT THAT',13T"BYT 'POSITION. HANGE COLOURS THE NORMAL',13"BYT 'MANNER. ETURN WILL EXIT EDIT MODE.',13,13"BYT 'HEN TURBO SAVING, THE EDIT SCREEN IS',13 "BYT 'DOWNLOADED. O SAVE USE START ADDRESS',13'"BYT 'OF 800. . EEP / PRESSED AFTER',13T "BYT 'GENERATING THE HEADER FILE.',13,13{*"BYT 'RESS RETURN TO CONTINUE.',04"*T3"BYT 'HEN TURBO SAVING, THE EDIT SCREEN IS',13 "BYT 'DOWNLOADED. O SAVE USE START ADDRESS! xةx s~!©$é@5 <@<`<< *! `X}򩩍 ɀ L) i!LIx )#  { p 4 !0, Y! *! !! Y!  Y!  XL Y!### 8 L4p)}Ь Y!##w# xL ة   {-  D  4 H  z!     @ ! Lo "e򅥪))8)!"LlpHp H X0X0  h @ h  @  x q P x ( P ( L JLHɖ}yq r@ɚ~zs t*ɞ{u vɢ!#|w xh8 i i¥i4SM i  A"ȱ A"k     g "L"00 >ʈƗ)5=> 6>5= >86 >5=@>P6!$@>6=`>h6`>ƒʢυ"ƒ`0I8*`")!)ɀ& !)!)" e)!)! "`)!)  #`"0` & & &i8`8񅒢  "M>!%>>>>>>>?? ?0?@?P?`?p?????????䒐`@7>H7>P7>X7>`7>h7>p7>x7>7?7_?7 ?70?7@?7P?7`?7p?7?7?7?7?7?7?7?7?L$`,"%pʈ`!&) @i(@A)Lk`)XpX@8(@ A`)XRiX@i(@A`)P4P@8@ A`)PYiP@i@AA4"%ppL,"%ph@AHIA@hAʈ`7i"!@!'5 < Li(ĐŹ}i}} qi(qr(ii(ʈ0L`L Ɇ ɊSɎɒ38Jiș iJ솘!`5 < `ƣ 5p90".\T "d  ɀĖHŖIp0"p`H80,h80` ` `}ʤ`qr0V)@$LH @L LyMiyqr,@i(B)L)@q8rLHqry8yL5qr";`CC CH C;Ch`` D `b@bbຐ``/:8`H)A[8h`  C _Da Ca _D UD` `؅lمmaޅb߅cbc&la`lilmbbcbLD`lБlȥёl"`LmDLDLmDlHmH Dlmhmhl` E Ea ȱ` کw҅Ӆ`a҅bӅc҅ӢFa ebҥecb&c` C80 `8` E Ed XEde҅ҐLE ` D"ҥ֥ D'  D'LC `a" Fa  D E8`` UD `$`@`%` C҅Ӎ C. _DL3E E'LE* ԅҥՅLC` C `LE C Cɲ &F`ɱ &FӅLzF[ kF&`] kFFf`/ &FILzFL)F` C C+ kFe҅ХeӅLF- kF8҅ХӅL"F^ kFE҅ХEӅLF kF҅ХӅLF& kF%҅Х%ӅLF< kFХLVG> kFҥө*LF= kF 8ݭ nF҅ХӅLF C,) CLF`Ѕэ C< F`> FхLGLFLE G`IF ELSE ENDIF I"FN KKKKabGbba``a GHGH` CE G C)5` C, CX" CL?H) C, CY` ` ` CH #Dh _D UD` CXY` C`#LG(L.HA H` D G "C, H0`   Յi8Ѕҥ00I ъI` ` C C88B H ӥ XEe҅ҩ@eӅӤҍ ۹IӥЍэLI IHHIHIH``qNNNOON @`` C "/D D D C=a I C?LS D G)@LE CH /D WILhJ D)4 C=-:6 G !HLhJ Da IԅХՅ J Cг)ڥ)` `ILLEGAL SYMBOL UNKNOWN SYMBOL MISSING QUOTE MISSING DATA BAD DATA IN EXP ILLEGAL OPERATOR SYMBOL REDEFINED I"NDEX SYNTAX LONG BRANCH ILLICIT MODE DELIMITER UNFOUND DIRECTIVE OVERFLOW LABEL MISMATCH FORWARD REFERENCE? ERR: H Ph>X H hx?(`|JFfڐ ݩTK L [KI ei` G) х` `" `` KLK LLK` [KLL [KLL L[KةFL L 0 [KL*L PASS HJJJJ YLh) 0:i`cdc&dmm.`e ML( [K [Ke`ܦ bL8 L LLL NUMBER OF ERRORS NO ERRORS IN FIL" EӠLLLL LLL $ba MLȦab [K``󪨈ʈ` MЍMэM`MӅa0a`H MhMi}MMiMLM>X %MM  " x?` LM"""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""" G)LK` C,`hh`I`hh ` G NLN NLN NLN)?L" N>X G N N NLN GЅ` G N N NLO GЉIө` CC /D WIL{O D C=.:* G !HL{O Dl#ȱl Cи 4P)ڥ)ۥLhJ` LvOjk L O L L O L O LL*L L[K` /Lԭ 'R∄" *܄ӄ ILP JLP 3O @P ЅԥхL+PeӅԐ K `RLO` 4P O K8 >M(LO(`LINE# ADDR B1B2B3B4 LINE TED V2.4 6502 SYMBOLIC ASSEMBLER. HHd LddcP Ldhh` SYMBOL" TABLE EMPTY TALLY = ՠP Lޅb߅c؅lمmabcGl [K Lȱl Ll L8ellm Lbbcbaй *LL Qa *LPLLP Lަ bL LLL sɬ(Lً( sH shA&SK TLVL CLQx? P>XLQ QL܋ ޝ" =L_`,܅ݭ x? T O O O L )S LaVkj`jȱk8Șei`jk` LqR` ED ERSION 2.4. MB. UGUST 1986.  L .4>8٩P+X,؅7OX  {" S_B €}R kRQ  7Tl"O "ODI :*T L :*S # M>X   LR  *L P *L>X LHhA[۰IHhLK ENTER VALUE OF EQUATE " EQUALS $S L L" [K *L">X THHMx? GhhS L L L *L *L?MMLJ M(M`+  K/012` ENTER FILENAME : ENTER DEVICE # : H>XKT kR TM ^T kR )ah R( a  Tx?` 8LT "  )a )aH h` Cʆچ 'R C* EU ޅߢ8L*UԦՍMM` K` CKNM  /VI CLEUV  /VPE>X   U kR R x?LEU LUB" /VU L qT LEU WRITE OBJECT SET PRINTER TO TOF, & PRESS RETURN CHAIN FILE>X x?`H8 qT+,>Xh -.x?`>X` WV C CT>XLEC#V L >VӍ>X R 7TL+,LQ W W WҠ W'X WG WB " Ң'X W# W" 7X؅  X LQ WLV 7W 7W W Wե 7WL#W WH hLx $)$` IfЩ$&**$` W  W &Х) W`x)$ $)`WW`H DW(hL^W WL|W  W  (`I &X ) &X&X &X` H@8hLW)$` IfЩ$&**$` W  W &Х) W`x)$ $)`WW`H"PX]X A,10000cXkX'"*BqX'"X$'"SETLFS=$FFBAX.'"SETNAM=$FFBDX8'"SAVE =$FFD8XB'"GETIN =$FFE4XL'"CHROUT=$FFD2XV'"PPLAY =$E31BX`'"PRECO =$E319Yj'"RAMON =$FF3FYt'"ROMON =$FF3E$Y~'"LOCK =$7FC6Y'"TIM2 =$FF02HY'"TINT =$FF09XY'""SYNC =$16fY'"PIO =1lY'"Y'"FFIRST=$60 ;2BY'"FLAST =FFIRST+2;2BY'"DATA =FLAST+2Y'"CNT =DATA+1Y'"CHKSUM=CNT+1Y'"TEMP =CHKSUM+1Y'"TOP =TEMP+1Z("T0 =TOP+1 Z ("T1 =T0+1-Z ("T2=T1+1:Z ("T3=T2+1@Z("RZ("K=$47"00-$220dZ("WOBBLE=$4000sZ("ORG $4700yZ(("Z2("READ: PHPZ<(" SEIZ=(" LDA #$B8Z>(" STA $25CZF(" LDA $FF19ZP(" PHAZZ(" [d(" JSR PPLAY [n("LODHIG: LDX #14[x("RETRY: LDA #0K[(" STA $FF"19c[(" STA CHKSUMx[(" STA PIO[(" LDY #255[("SYNCT:[(" JSR READB-K[(" CMP #SYNC[(" BEQ GOTSYN[("[(" STX DATA\(" JSR SKIPB-K.\(" BCC SYNCT;\("GOTSYN:T\)" " JSR READB-Kk\)" CMP #SYNC\)" BEQ GOTSYN\")"\,)" CMP FNLEN\6)" BNE RETRY\@)"\J)"NAMCHK: INY\T)" CPY FNLEN\^)" BCS NMEND]h)" JSR READC-K-]r)" CMP FNAM,YE]|)" BEQ NAMCHK"\])" BNE RETRYh])"NMEND:|])" LDY #3])"GADDR: JSR READC-K])" STA FFIRST,Y])" DEY])" BPL GADDR])"])" JSR READC-K^)" CMP CHKSUM%^)" BNE ERROR+^)"C^*" LDY FFIRST"W^*" LDA #0o^*" STA FFIRST^&*" STA TOP^0*"^:*"RBLOCK: LDA FFIRST+1^D*" CMP FLAST +1^N*" PHP^X*" BCC NOTYT^b*" LDA FLAST_l*" BEQ RDONE)_v*" STA TOP5_*"NOTYT:N_*" " JSR READC-Kj_*" STA (FFIRST),Y{_*" INY_*" CPY TOP_*" BNE NOTYT_*"_*" JSR READC-K_*" CMP CHKSUM_*" BNE ERROR_*"`*" INC FFIRST+1&`*" PLP>`+" BNE RBLOCK"U` +" PHA;DUMMY[`+"o` +"RDONE: LDX #0`*+" BYT $2C`4+"ERROR: LDX #$80`>+" PLA;DUMMY OR STATUS`H+" LDA #$88`R+" STA PIO`\+" STA LOCKaf+"ap+" PLA*az+" STA $FF19;a+" PLPT"a+" JMP (BEGIN)Za+"pa+"READC: LDA DATAa+" EOR CHKSUMa+" STA CHKSUMa+"READB: LDA #$FEa+" STA DATAa+"SKIPB: STY TEMPa+"LODLOW: LDY #$38b+"READ0: INC $FF19%b+" LDA #$10:b+"READ1: BIT PIO" Qb," BNE READ1gb," STY TIM2b," STX TIM2+1b$,"READ2: BIT PIOb.," BEQ READ2b8," LDA TIM2+1bB," ASL AbL," ROL DATAcV," BCS READ0c`," LDY TEMP/cj," LDA DATA@ct," "! RTSKc~,"LAST:Qc,"dc,"BEGIN =$2F0wc,"FNLEN =$2F2c,"FNAM =$2F3c,"c,"c,"JUMP =$304c,"c," ORG WOBBLEc,"c," LDA #$F1c," STA $FF15c," LDA #$EE d," STA $FF19d," JSR EDCLR/d,"TURBO: LDX #0Gd,"TU""R1: LDA MESG,XVd-" BEQ TUR2fd -" JSR $FFD2pd-" INXd-" BNE TUR1d(-"TUR2: JSR $FFE4d2-" CMP #32d<-" BCC TUR2dF-" CMP #96dP-" BCS TUR2dZ-" JSR $FFD2dd-" CMP #'1dn-" BEQ GENHED ex-" CMP #'2e-" BEQ GENTAP,e-" CMP #'M=e-" BE"#Q MONITOKe-" CMP #'EZe-" BEQ EDIThe-" CMP #'3ye-" BEQ LOADDKe-" CMP #'4e-" BEQ CONSTe-" LDA #157e-" JSR $FFD2e-" JMP TUR2e-"e-"EDIT: JSR EDITORe-" JMP TURBOe-"f-"LOADDK:JSR DISKLD f-" JMP TURBO7f-"CONST: JSR CO"$NSTTGf-" JMP TURBO^f-"MONITO: JSR $8117hf-" BRKnf-"f-"GENHED: JSR WMESG1f-" JSR WMESG2f-" JSR WMESG5f." JSR REPLYf." BCS GENHEDf." SEIf"." LDX #0f,."GENMVE: LDA READ,X g6." STA $220,Xg@." INX(gJ." CPX #LAST-READ9gT." BC"%C GENMVEJg^." LDA #<$220Ygh." STA $302jgr." LDA #>$220yg|." STA $303g." JSR HEADERg." CLIg." JMP TURBOg."g."GENTAP: JSR WMESG2g." JSR WMESG3g." JSR WMESG4g." JSR REPLYh." BCS GENTAPh." JSR EDDWN%h." JSR WRITE5h." JMP"& TURBO;h."Oh."GETHEX: LDA #0\h/" STA T0ih/" STA T1h/"GETHEZ: JSR GETINh&/" CMP #13h0/" BEQ GETEXh:/" CMP #'0hD/" BCC GETHEZhN/" CMP #'F'+1hX/" BCS GETHEZhb/" CMP #'9'+1il/" BCC GOTDIGiv/" CMP #'A'!i/" BCC GETHEZ'i/"?i/""'GOTDIG: JSR CHROUTIi/" PHAVi/" LDX #3ji/"DIGS: ASL T0wi/" ROL T1i/" DEXi/" BPL DIGSi/" PLAi/"i/" SECi/" SBC #48i0" CMP #10i 0" BCC DIGSHFi0" SBC #7i 0"DIGSHF: ORA T0j*0" STA T0j40" JMP GETHEZ'j>0"GETEX: RTS-jH!0"AjR0"GETNAM: LDA #0Nj\0" STA T0ejf0"GETNIM: JSR GETINsjp0" CMP #13jz0" BEQ GETNEXj0" CMP #32j0" BCC GETNIMj0" CMP #96j0" BCS GETNIMj0"j0" JSR CHROUTj0" LDX T0j0" STA NAME,Xk0" INC T0k0" LDA T0k0" CMP #160k0" BCC# 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 #4#T" 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,X#O" 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 FIRD#H" 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 FIRE#J" 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 K#EYTK6" 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,$F# 7,$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:.*"*" 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 " RT# LM'7HEL4 N7  ХH)ѭ6 hшh`DH7)N7N73C ЈȥHIѭCЈhшhh`$ > %8 Щ ѭ; x?ԍ>X  q"8:`)19AѠТ` L L A Щ ѩ(ҩ Ӡ#) i i'Ґ "' ) AB@ԩ8թ>:;q3F4B5E6Eq;Lw 8`ЄѠ ` L!5&Єѩ  ! !8eЅАѩ( !L!` L&L! `#IЈ`qЩ ѩ= ! " ! -`=AЩѩ=L"8(Х=L"=qЩ ѩ=L" q"=L"i(Хi` D)ɝ%5 ɑ6R T `#"%'}'''''=(H()'))***m%= "H"H`);m:?I#i9 w "> #L" #L"?C #L"?C #L"F>ԩ8L"M>ԩL"L"`9Ȍ>iԥiթ`>8ԥթ` w % " BBL#; # 88B8ȌBL#@ AA@L#@A:ȌAȌ@L#Z &x?ԍ>XL#X &Ix?1ԍ>XL#C &L#V &L#B &x?ԍ>XIL#N +&Hx?ԍ>XhL#M +&IHx?1ԍ>XhL#, +&Hx?Qԍ?X#hL#L#` ";: 4@B A) ;:O % ! w L%` L 8(Щ Ѣ 8ХHIѩ1hш q"`ЄѠHJJJJ %h) 0:9 `ЅѬB q"A eЅХi#m@ i `A; 8m8mB@J` &)`  UDG EDITORDARRON M BROAD JAN.86REV. APR.89 PRESS ANY KEY EDIT MOVE SIZE CLEAR INVERTSHIFTDMARKER#COPY SWAP MODE DISPLAFLIP HSHIFTRSHIFTLROM DIR LOAD SAVE QUIT QF8G ! ! ! " "Lu' 'IԈLw :m; ` 'ԈLw ԍFՍG>Q` 'FЭGѱБԈLw PL( 'FЭGѱЪ# ЊԈLw :C; DԅХՅѬDDʱȑЈȑХmDХiCLw EIELw %H6 %Q %h%H E HH8 ( !hhhO %Lw )Щ ѩ8 q"8ЩѠ>:9;8HИi(8h9#!`; CԅХՅѠHНH <):: C)hHL <):hCLw mC`P bL)E>: 8:>G*:>G*:J~L:J~L8`>G(~L:(`(HjL:(`:G*K`PL(PL(#"ЩЅѩҩ8ӢБ҈ELw :;< 2* ! LI* L'"L(   ` 2* ENTER LOAD NAME `*  8 L%* 2* ENTER SAVE NAME `*LI*  Щ8ѩТ@ L%*ELw :;< 2* ! LI* L'"L(   ` 2* ENTER LOAD NAME `*  8 L%* 2* ENTER SAVE NAME `*LI*  (TVH$ ߠ LC#%@ADCANDASLBCCBCSBEQBITBMIBNEBPLBRKBVCBVSCLCCLDCLICLVCMPCPXCPYDECDEXDEYEORINCINXINYJMPJSRLDALDXLDYLSRNOPORAPHAPHPPLAPLPROLRORRTIRTSSBCSECSEDSEISTASTXSTYTAXTAYTSXTXATXSTYAORGWORBYTDBYRESBYMieum}yaq)%5-=9!1 #&$,0PpXIEUM]YAQ#'Ll JFVN^  Hh(*&6.>jfvn~@`"8xLEL>VLqTLCLQLCLCLRL7TLLLL"`r$S%`K$%`KIKKIKI` $e" STA PLDES2,Xe" LDA PLINV+16,Y҃e" AND PLDES2+24,X烸e" ORA PLDAT+16,Ye" STA PLDES2+24,Xe" INXe" INYe" CPY #16/e" BCC PLN13@e"PLINE9: RTSXe"PLU13: LDA PLINV,Ykf" AND PLDES2,Xxf" STA T1f" LDA $FF04&f" ORA #$$AA0f" STA T2:f" LDA PLINV,YńDf" EOR #255҄Nf" AND T2߄Xf" ORA T1bf" STA PLDES2,Xlf" LDA PLINV+16,Yvf" AND PLDES2+24,X*f" STA T1?f" LDA PLINV+16,YNf" EOR #255[f" AND T2hf" ORA T1~f" STA PLDES2+24,Xf" INXf" INY$f" CPY #16f" BCC PLU13f" RTSf"ԅf"PDCOLL: LDX #6g" STX T6 g" LDY #3g" STY T7 g"PLCO1: LDY T7*g" LDA BFLG/4g" AND TBIT,Y?>g" BEQ PLC02LHg" LDX T6_Rg" LDA (BADD,X)n\g" CMP #$B4~fg" BCC PLC02pg" CMP #$C0z$g" 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 #40$xJt" 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" ST$A 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" RTSd$w"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~" BE$'Q 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%"BOMBC: LDX #14\K" LDY #7\K"BOC2: LDA TBIT,Y)\K" AND BFLG8\K" BEQ BOC3I\K" LDA BBAK,YV\L" CMP #4e\L" BEQ BOC3r\L" CMP #5\"L" BEQ BOC3\,L" STA (BADD,X)\6L" LDA BADD+1,X\@L" PHA\JL" EOR #4\TL" STA BADD+1,X\^L" LDA CCOL\hL%" STA (BADD,X)\rL" PLA]|L" STA BADD+1,X ]L"BOC3: DEX*]L" DEX4]L" DEYC]L" BPL BOC2M]L" RTSS]L"g]L"TURUPD: LDY #3t]L" LDX #6]L"TUR1: LDA TYYY,Y]L" BEQ TUR2]L" CLC]L" ADC #1]M" CMP #22]M" BCC TUR3]M" LDA #0]&M" %STA TYYY,Y]0M" STX T1^:M" STY T2^DM" LDA TURDAT,Y$^NM" TAY1^XM" LDX #0J^bM"TURCLO: LDA NEWBA,X\^lM" STA $3C20,Yf^vM" INYp^M" INX~^M" CPX #32^M" BCC TURCLO^M" LDY T2^M" LDX T1^M" JMP TUR2^M"TUR3: STA TYYY,Y^M" LDA TLOC,X%^M" CLC^M" ADC #40 _M" STA TLOC,X_M" BCC TUR2,_M" INC TLOC+1,XD_N"TUR2: LDA TKHY,YT_ N" BNE TUR77e_N" LDA TKDD,Yu_ N" BNE TUR21_*N" BEQ TUR22_4N"TUR77: 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" DEX%aO" 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,Y% cQ" 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 TU% RNdQ" 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 GETDIR% eNR" 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" ST% A 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 #2% gS" 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" D%EYhjT" 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 #$48%i 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:l%V" 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 T2%mW" 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" S%TA (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),Yo%X" 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 T7p%Y" 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 WANKY1%s^["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>]" L%DA #$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" LD%$Y #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,Y%&c" 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 T10"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<8&0" 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" AN&D #$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 367& 2+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" P& HA2?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(A&6" 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 SP&D*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 PLO&C'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+3E&8" 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:" ST&A 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 DEST&I,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 U&P2M>" 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>"UP&3: 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,X&QD" 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" BC&'C 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=0%ZK" STA BXXX,Y [(K" LDA BADD,X[2K" CLC"[jfvn~@`'8xLL>&Lq$LL!LLL"L7$LL"`r$#%`K$%`III` ';` H ;h``  `bbbຐ``/:8`H)A[8h`   _a a _ U` `؅lمmaޅb߅cbc&la`lilmbbcbL`lБlȥёl'`LmLLmlHmH lmhmhl`  a ȱ` کw҅Ӆ`a҅bӅc҅ӢFa ebҥecb&c` 80 `8`  d Xde҅ҐL ` "ҥ֥ '  'L `a' a   8`` U `$`@`%` ҅Ӎ . _L3 'L* ԅҥՅL`  `L  ɲ &`ɱ &ӅLz[ k&`] kFf`/ &ILzL)`  + ke҅ХeӅL- k8҅ХӅL' ^ kE҅ХEӅL k҅ХӅL& k%҅Х%ӅL< kХLV> kҥө*L= k 8ݭ n҅ХӅL ,) L`Ѕэ < `> хLLL `IF ELSE ENDIF I' FN abbba``a HH` E  )5` , X" L?) , Y` ` ` H #h _ U` XY` `#L(L.A `   ' , 0`   Յi8Ѕҥ00I ъI` `  88B  ӥ Xe҅ҩeӅӤҍ ۹ӥЍэL HHHH``q @``  ' /   =a  ?L#  )@L H / WLh )4 =-:6  !Lh a ԅХՅ  г)ڥ)` `ILLEGAL SYMBOL UNKNOWN SYMBOL MISSING QUOTE MISSING DATA BAD DATA IN EXP ILLEGAL OPERATOR SYMBOL REDEFINED I' NDEX SYNTAX LONG BRANCH ILLICIT MODE DELIMITER UNFOUND DIRECTIVE OVERFLOW LABEL MISMATCH FORWARD REFERENCE? ERR: H h>X H hx?(`|Ffڐ ݩT  [I ei` ) х` `'`` L L` [L [L L[ةF  0 [L* PASS HJJJJ Yh) 0:i`cdc&dmm.`e M( [ [e`ܦ b8  L NUMBER OF ERRORS NO ERRORS IN FIL'EӠL L $ba MȦab [``󪨈ʈ` Ѝэ`Ӆa0a`H hi}iL>X %  'x?` L6( H@8hL'(hL^' 'L|'  '  (`I &( ) &(&( &(` )L` ,`hh`I`hh `  L L L)?L'>X    L Ѕ`    L ЉIө` C / WL{  =.:*  !L{ l#ȱl и 4 )ڥ)ۥLh` Lvjk        L* L[` /ԭ '"∄'*܄ӄ L  L 3 @ ЅԥхL+ eӅԐ  `"L` 4   8 >(L(`LINE# ADDR B1B2B3B4 LINE TED V2.4 6502 SYMBOLIC ASSEMBLER. HHd ddc dhh` SYMBOL' TABLE EMPTY TALLY = ՠ ޅb߅c؅lمmabcGl [ ȱl l 8ellm bbcbaй *L !a * L ަ b L sɬ(Lً( sH shA&SK TL&L L!x? >XL! !L܋ ޝ' =L_`,܅ݭ x? $     )# La&kj`jȱk8Șei`jk` Lq"` ED ERSION 2.4. MB. UGUST 1986.  L .4>؅8٩P+(,؅7O(  {' #_B €}" k"!  7$l"O "ODI :*T L :*S # >X   L"  * *>X LHhA[۰IHhLK ENTER VALUE OF EQUATE " EQUALS $#  " [ *'>X $HHx? hh#    * *?L (`+  K/012` ENTER FILENAME : ENTER DEVICE # : H>XK$ k" $ ^$ k" )ah "( a  $x?` 8L$ '  )a )aH h` ʆچ '" * E% ޅߢ8L*%ԦՍ` ` KNM  /&I LE%V  /&PE>X   % k" " x?LE% L%B' /&%  q$ LE% WRITE OBJECT SET PRINTER TO TOF, & PRESS RETURN CHAIN FILE>X x?`H8 q$+,>Xh -.x?`>X` W&  T>XLEC#&  >&Ӎ>X " 7$L+,L! ' ' 'Ҡ ''( 'G 'B ' Ң'( '# '" 7(؅  X L! 'L& 7' 7' ' 'ե 7'L#' 'H hLx $)$` IfЩ$&**$` '  ' &Х) '`x)$ $)`''`H D'(hL^' 'L|'  '  (`I &( ) &(&( &(` H@8hL')$` IfЩ$&**$` '  ' &Х) '`x)$ $)`''`H'3  LV  񘢲  W 9R  D DHo  H h | h8H h L   !L8LE҄Ӡ L`HJJJJ h) 0:iL  L  YN O` ) )H h` ENTER DISC FILE NAME: RECORD AT $ LENGTH = $ AGAIN? LOAD? LOADING LOAD ABORTEDh8H h L   !L8LE҄Ӡ L`HJJJJ h) 0:iL  L  Y'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)~'"BY'YY=$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-" B'&NE 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 DMB7''K2." 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 QLOO&PG3." 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 MRESTB(D 16  013D(D01((((((((((((((((((((((((((((((("D01(((((((((((((((((((((((((((((((((('L'TVL'LD'TOMCAT.ASM)LEVELEDIT.BIN)LEVEL1.BIN)LEVEL2.BIN*GRAPHICS.BIN (* TURBOTAPE.BIN *TOMCAT.BIN+GFXEDIT.ASMj#GFXEDIT.BIN ##H#$TVH-LEVELEDIT.ASM"TURBOTAPE.ASM2.LOADER.BIN .LOADER.ASM$!TOMCAT.OBJ)&) ک$۩ܩ ݩȍ8 eޅߩ HH(H)Hܠܠ(ܠ)ܠ)hܠ(hܠhܠh )SXDnZL)XLB/L];LxL LLHL*čэ LJ$ ӥ4) LJ$ ӥ $LJ LJ8ޥ8ܥLJ iޥiܥiLJ iߥiPܥiLJ8ߥ8PܥLJ A8A i0iܠ(iܠ)i8Hi Х8ЅХѥeޅХiѠhLJLЄHi)PhХi(HiPhФ҈` Щ 8PХڝ) i* 8 i iڥi` Y `Щ Ѣ ҘiPФґИixHi(hФ҈ۥiPХiɥ8ڥۥ8ХѠНi8q)ir`čЍ+ LEDITOR COMMANDS H =HELP SCREEN CURSOR Z =LEFT X =RIGHT ; =UP / =DOWN SCROLL S =SCROLL DOWN 1 LINE D =SCROLL UP 1 LINE SHIFT+S OR +D TO SCROLL PAGE EDIT ESC+LETTER =ADD BLOCK SPACE =ADD BLOCK) OF PREVIOUS TYPE * =EXIT TO MONITOR PRESS RETURN TYPE * =EXIT TO MONITOR PRESS RETURN)$2222222222222222222222222222222222222222222222222222222222ZZZZZZZZZZ2222N6F:6F:6FV2222N6F>6F>6FV2222N6F:6F:6FV2222^^N:6F:V^^222222N:6F:V22222222N:6F:V22222222N:6F:V22222ZZZN:6F:VZZZ22N:6F:6F:6F:V2ZN:6F:6F:6F:VZN:>JBBBBBJ>):VN::6F:6F:6F::VN::6F:6F:6F::VN::6F:6F:6F::VN>JBBBBBBBJ>VN::6F:6F:6F::VN::6F:6F:6F::VN::JFffff6J::VN::RFfNVf6R::VN:RFfNVf6R:VN::RFfNVf6R::VN::RFfNVf6R::VN::RFfNVf6R::VN::RFfNVf6R::VN>:RFfNVf6R:>VN:RFfNVf6R:VN::RFfNVf6) R::VN::FfNVf6::VN::JFffff6J::VN::6F:6F:6F::VN:JBBBBBBBJ:VN:R6Fffff6FR:V^NR6FfNVf6FRV^2NR6FfNVf6FRV22NR6FfNVf6FRV22NR6F6F6FRV22NR6FfNVf6FRV22NR6FfNVf6FRV22N6FfNVf6FV22NR6Fffff6FRV22NJBBBBBBBJV22NRbbbbbbbbRV22NRbjjjj) jjbRV22NRbjjjjjjbRV22NJbbjjjjbbJV22NRVbjjjjbNRV22NRVbjjjjbNRV22NRVbjjjjbNRV22NRVbjjjjbNRV22NRVbjjjjbNRV22NRVbbbbbbNRV22NR::::::RV22N::::::::V22NJBBBBBBBJV22NR~bb~~~~~RV22NRjbbb~jjjRV22NRjjbb~jjjRV22NRjjjbb~~jRV22NRjjj) jbbb~RV22NRj~bjjbbbRV22NRbbb~jjbbRV22NR~~~jjjj~RV2ZN6F:6F:6FVZ6FJBBBBBBBJ6F6F:6FN6FV6F:6F6F:6FNV6F:6F6F:6FN>>V6F:6F^^^^^N::V^^^^^nrv22^NV^22nrvr>r222NV222r>rrrZZZNVZZZrrrrN::6F::VrrrrN::6F::VrrrrN::6F::Vrrrr^) ^^^^^^^rrr>r22222222r>r rrr22222222rrr22222222222222222222222222222222222222222222222222222222zzzzzzzzzzzzzzjjjjjjjjjjjjjjj~bbbbjbbbbb~jjbbbbbjbbbbbbjjJBBBJBBBBJjjRbbbbbbbbbbRjjRbbbbbbbbbbRjjRbbbbbbbbbbRjjRbbbbbbbbbbRjjR) jjjjjjjjjjRjjRjNV>>NVjRjjRjN::VN::VjRjjjjNVNVjjjjJjjjNVNVjjjJjjjjjjjjjjjjjjjbb~bbbbbbbbbbbbbbbbbbbbbb~bbbbbbbbbbbbbbbbjjjbbbbbbbbjjjjJjb~bbbbbbjJjjRjbbbbbbbbjRjjRjbbb::bbbjRjjRjbbbbbbjRjjRjbbb::bbbjRjjjbbbbbb~bjj)jJjbbbbbbbbjJjjjjbbbbbbbbjjj bbbbbbbbbbbbbbjjjjjjjjjjjjjjjJBBBBBBBBBJjjjjjjjjjjjjjjjbbjjjjjjjjjjbbbbjN6F:6FVjbb~bjN6F::6FVjb~bbjN6F:6FVjbbbbjjjjjjjjjjbbbJ>>JbbbbbbbbbbRbbRbbbbb~bbbbRbbRbbbbbbbbbbRbbR>JBBBBJ>bRbbRbbbbbbbbb)bbbbbbbbbbb~bJ>>Jbb~bbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbb^^^^^N6FV^^^^b22nv2N6FV2nv2~22>ZN6FVZ>2b22^N6FV^2b222N6FV22b22222^^^^2222b2222222222222b2222222222222b2222222222222J2222ZZZZZZ222R2222N6F6FV222R2222N6F6FV22)2R2222N6F6V222R2222N6F6FV2222222N6F6FV222J2222N6F6FV222b2222NF6FVzzzb2222N6F6FVjjjbzzzzN6F6FVbbb~JBBBBBBBBBBBJRbbbbbbbbbbbbRRbbbbbbbbbbbbRRbbbN::::Vb~bRRbbbN::::VbbbRRb~bN::VbbbRRbbbN::::VbbbRRbbbbbbbbb~bbRbbbbbbbbb)bbbJBBBBBBBBBBBJbbbbbbbbbbbbbbbbbbbbbbbbbbb~bb~bbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbb~bbbbbjjjjjjbbbbbbjjjjjjjjjjbb jjjjjjjjjjjjjjjJBBBBBBBBBJjjjjjjjjjjjjjjj2N:VjjjjjjN:V22NJVbbbbbbNJV22NRVbbbbbbNRV22NRVbbbbbbNRV22NVbbbb)bbNV22NJVb~bbbbNJV22NVbbbbbbNV22N:VbbbbbbN:V22N:VJBBBJNJV2 2N:VbbbbbbNRV22NJVbbbb~bNRV22NRVbbbbbbNRV22NRVbbbbbbNRV22NRVbbbbbbNRV22NRVb~bbbbNRV22NRVbbbbbbNRV22NRVbbbbbbNRV22NFJBBBJ:V22NJF:6F:6F:JV22N6F:6F:6F:RV22N6F:6)F:6F:RV22N6F:>f>F:RV22N6F:fffF:RV2 2N6F:fffF:RV22N6F:>f>F:RV22N6F:6F:6F:RV22N6F:6F:6F:RV22N6F:6F:6F:V22NJBBBBBBBJV2ZN6F::::::6FVZN:6F>ffff>6F:VN:6FNffffV6F:VN:6FNffffV6F:VN:6FNffffV6F:VN6F>ffff>6FVN:6F::::::6F:VNJBB)BBBBBBBJV N::::::::::::VN::::::::::::VJ::::::::::::JR::::::::::::RR::::::::::::RR^^^^^^^^^^^^RR222222222222RzzzzzzzzzzzzJjjjjjjjjjjjjJbbbbbbbb~bbbbb bbbbbbbbbbbbbbJBBBBBBBBBBBJN:NV:NV:NV:VN::NV:NV:NV::VN::NV:NV:NV::VN:):NV:NV:NV::VN::NV:NV:NV::VN::NV:NV:NV::VJBBBBBBBBBBBJN::NV:NV:NV::VN::NV:NV:NV::VN::NV:NV:NV::VN::NV:NV:NV::VN:NV:NV:NV:VN::NV:NV:NV::VN::NV:NV:NV::VN::NV:NV:NV::VN::NV:NV:NV::VN:JBBBBBBBJ:VN::NV::::::VN::N6FV::::::V)N::N6FV::::::VN::N6FV::::::VN:JBBBJ:::::VN::::::::::::VN::::::::::::V^^^^N::::V^^^^2222N::::V22222222N:JJ:V222222ZZN:RR:VZZ2222N:::RR:::V22ZZN:::RR:::VZZN:::::RR:::::VN:::::R:::::VN::::R::::VN::::JJ::::VN::::::::::::V#NJBBJ::JBBJV^^^^^^^^^^^^^^JBBBJ:::::VN::::::::::::VN::::::::::::V^^^^N::::V^^^^2222N::::V22222222N:JJ:V222222ZZN:RR:VZZ2222N:::RR:::V22ZZN:::RR:::VZZN:::::RR:::::VN:::::R:::::VN::::R::::VN::::JJ::::VN::::::::::::V)$22222222222222zzzzzzzzzzzzzzjjjjjjjjjjjjjjbb~bbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbb~bbbbbbbbbbbbbbbbjjjjjbbbbjjjjjjN>VjbbbbjN>VjjNJVj~bbbjNJVjjNRVjbbbbjNRVjjNRVjbbbbjNRVjjNRVjbbbbjNRVjjNRVjbbbbjNRVjjNRVjbbbbjNR)VjjNVjbbbbjNVjjNJVjbbbbjNJVjjjjjjbbbbjjjjjbbbbbbbbbbbbbbJBBJbbbbJBBJbbbbbbbbbbbbbbjjjjjjjjjjjjJbNVjNVjNVjRbjjjjjjjjjjjjRbbbbbbbb~bbbbR~bbbbbbbbbbbbRb b~bbbbbbbbbbRbbbbbbbbbbbbbRbbbbb:::bbb~bRbbbbb::bbbbbbbbbb:::bbb)bbRbbbbbbbbbbbbbJbbbbbb~bbbbbb>b bbbbbbbbbbbbbb^^^^^^^^^^^^^^rrrrrrrrrrrrZZZZZZZZZZZZZZNJVjjN::VjjNJVNRVj>N::V>jNRVNRVjjN::VjjNRVNRVjjN::VjjNRVNRV>jN::Vj>NRVNRVjjN::VjjNRVNRV^^N::V^^NVNVZZN:VZZNRVNJBBBJJBBBJ^^^^^^^^)^^^^^^2ZZZZZZZZZZZZ22NJ>:6F:6F>JV22NRF:6F:6F:RV22NR>:6F:6F>RV22NRF:6F:6F:RV22NRF:6F:6F:RV22NRF:6F:6F:RV22NRF:6F:6F:RV22N:6F:6FV22NJBBBBBBBJV22^^^^^^^^^^^^2zzzzzzzzzzzzzzjbjbN>>VbjbjJbjbjN:::VjbjbRjbjbN:::VbjbjRbjbjN:)::VjbjbRjbjbN:::VbjbjRbjbjN:::VjbjbRjbjbN:::VbjbjRbjbjN:::VjbjbRjbjbN>>VbjbjJBBBBBBBBBBBJNVbbbbbbbbbbNVNVbbb~bbbbbbNVNVbbbbbbbbbbNVNVbbbbbbbbbbNVN:JBBBBBBBJ:VNVbbbbbbbbbbNV NVbbbbbbbb~bNVNVbb~bbbbbbbNVNVbbbbbbbbbbNVN::)::::::VNVbbbbbbbbbbNVNVbbbbbb~bbbNVNVbbbbbbbbbbNVNVbbbbbbbbbbNVN:::JBBBJ:::V^^^^>rr>^^^^2222rrrr22222222rrrr22222222rrrr22222222rrrr22222222rr2222 2222rrrr22222222rrrr22222222rrrr22222222rrrr222222)22rrrr22222222rrrr2222ZZZZrrZZZZrrrrrrrrrrrrrrrrrrrrrrrrr>rrrrrrrr>rrrrrrrrrrrrrrrrrrrrrrr^^^^^^^^^^^^^^nv2nrv2nv222rr2>2rr22z>r2r2r>22jrr2>2rr22j^^^2^^^2^^^2zj22222222222zjj22222222zzzjj)zzz2zzzzjjjjjjjj2NJBBBBBJVjJj2N6F:NV:6RVjRj2N6F:NV:6RVjRj2N6F:NV:6RVjRj2N6F:NV:6RVjRj2N6F:NV:6RVjRj2N6F:NV:6RVjRj2N6F:NV:6RV jRj2N6F:NV:6RVjRj2N6:NV:VjRj2NJBBBBBJVjj2N6F:NV:6RVjJj2N6F:NV:6RV jjj2N6F:NV:6RVjJj2N6F:NV:6RV) jRj2N6F:NV:6RVjRj2N6F:NV:6RVjRj2N6F:NV:6RVjRj2N6F:NV:6RV jRj2N6F:NV:6RVjRj2N6:NV:VjRj2NJBBBBBJVjj2N6F:NV:6RVjRj2N6F:NV:6RVjJj2N6F:NV:6RVb>b2N6F:NV:6RVbbb2N6F:NV:6RVb>b2N6F:NV:6RVbbb2N6F:NV:6RV2222N6F:NV:6RVZZZZN6F:NV:6)!RVN6F6FNV6RVN:6F:6F:NV:6VNJBBBBBBBBBJVN:6F:6F:6F:6FVjjjjjjjjjjjjjjbbbbbbbbbbbbbbbbbbbbbb~bbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbb~bb~bbbbbbbbbbbbbbbJBBJbbbbbbbbbbbbbbbbbb bJbbbbbbbbN:VbbRbbbbbbbbNfVbbRbN>Vbbbb)"NfVbbRbNVbbbbNfVbbRbbNVbbbNfVb bRbbN>VbbbNfVbbRbbbbbb~bNfVbbRbJBBBJbNfVbbbbbbbbbbNfVbbJbbbjjjbbNfVbbRbbbjjbbNVb bRb~bjjjbbNfVbbRbbbbbbbbNfVbbRbbbbbbbbNfVbbRbbbb~bbbNfVbbRbbbbbbbbNfVbbRbbbbbbbbNfVb bRbJBBBJ~NfVbbbbbbbb)#bbNfVbbJbbbjjjbbNfVbbRbbbjjbbNVbbRbbbjjjbbNfVbbRbbbbbbbbNfVbbRbb~bbbbbNfVbbRbbbbbbbbNfVbbRjjbbbb~bNfVbbRjjjbbbbbNfVbbRjjjjbbbbNfVbbjj>jjbbbNfVbbJbjjjjjbbNfVbbRbbjjjjbNVbbRbbbjjjjjNfVbbRbbbbjj>jNfVbbRbbbbbjjjNfVbbRbbbb)$bbjjNfVbbRbJBBBJbNfVbbRbbbbbbbbNfVbbRbbbbbbbbNfVbbRb^^^^^^bNfVbbb2nv22bNfVbbJb2>22bNVbbRb222bNfVb ^R^222^NfV^2R22^^^222NfV22R22222222NfV2zRz222222zNfVzbRb222222bNfVbbRbZZZZZZbNfVbbRbbbbbbbbNfVbbRjjjjjjjjNfVbbjN)%JBBBBBJVbbJjjjjjjjjNfVbbRbbbbbbbbNfVbbRbbbbjbbbNfVb bRbbbjjbbNfVbbRbbjjjbNfVbbRbbbjjbbNfVbbRbbbbjbbbNfVbbRbbbbbbbbNfVbbRbjjjjjjjNfVbbRbjNJBBBBJVbbbjjjjjjjNfVbbJbbN:::VbNfVbbRbbN:::VbNfVbbRbbN:::VbNfVbbRbbN:::VbNfVbbR)&bbN:::VbNfVbbRbbN:::VbNfVbbRbbN:VbNfVbbRbjjjjjjjNfVbbRbjNJBBBBJVbbRbjjjjjjjNfVb bbNVbNVbbNfVbbJbNVbNVbbNfVbbRbNVbNVbbNfVbbRbNVbNVbbNfVbbRbNVbNVbbNfVb bRbNVbNVbbNfVbbRbNVbNVbbNfVbbRjjjjjjjjNfVbbRjN:::::JVbbRjjjjjjjjNfVb)'bbbbbbbbbN:VbbJBBBBBBBBBJbbbRbbbbbbbbRbb^^R^^^^^^^^R^^22R22222222R2222R22222222R222ZRZZZZZZZZRZ22NJBBBBBBBJV22NRrrrrRV22NR>>RV22NRrrRV22NRrrRV22NRrrRV22NRrrRV2 2NR>>RV22NrrrrV2#2NJBBBBBBBJV22^^^^^^^^^^^^2RbbbbbbbbRbb^^R^^^^^^^^R^^22R22222222R2222R22222222R222ZRZZZZZZZZRZ22NJBBBBBBBJV22NRrrrrRV22NR>>RV22NRrrRV22NRrrRV22NRrrRV22NRrrRV2 2NR>>RV22NrrrrV2*4ok𸾯-KK𸾯-G𸾯G-𸾯KK-CO-𸾯-𸾯-𸾯*-<<𸾯룣-k𸾯k-??UU?P@UUWh(`dEffH Bd B Bh`ee` , `  URBO.APE.ENU..... 1) ENERATE HEADER 2) *URBO SAVE RAM 3) ISK LOAD 4) LTER CONSTANTS E) DIT SCREEN M) XIT TO MONITOR NTER OPTION : NTER HEADER FILE NAME: NTER TURBO FILE NAME: NTER START ADDRESS: NTER END ADDRESS: NTER RUN ADDRESS: CORRECT? Y/N* NTER DISK FILE NAME @i`C  LJJJJ [D) [DJJJJ [D) 0:i ` URRENT SAVE CONSTANT=BB BD URRENT LOAD CONSTANT=GG BD NTER SAVE> @ij jBiB NTER LOAD> @ij ji*GG` tE  :E e E`ikjHlikjl`ikjHlkijl`iHj ij`EEEF EE` SE CURSOR KEYS TO MOVE AROUND SCREEN. RESSING A KEY STORES ITS CODE AT THAT POSITION. HANGE* COLOURS THE NORMAL MANNER. ETURN WILL EXIT EDIT MODE. HEN TURBO SAVING, THE EDIT SCREEN IS DOWNLOADED. O SAVE USE START ADDRESS OF 800. . EEP / PRESSED AFTER GENERATING THE HEADER FILE. RESS RETURN TO CONTINUE.LF- kF8҅ХӅL*F^ kFE҅Хx\H f d   ˠ ` f/``hacbh `h f a(H,hh(ldEffdg$$ &dgd`FхLGLFLE G`IF ELSE ENDIF IFN KKKKa\H f d   ˠ ` f/``hacbh `h f a(H,hh(ldEffdg$$ &dgd`FхLGLFLE G`IF ELSE ENDIF I*xةx s~!©$é@5 <@<`<< *! `X򩩍 ɀ L) i!LIx )#  { p 4 !0, Y! *!  Y! * Y!  XL Y!### 8 L4p)}Ь Y!### xL ة   {-  D  4 H  z!     @ ! Lo "e򅥪))8)Ll*pHp H X0X0  h @ h  @  x P x ( P ( L JLHɖ}yq r@ɚ~zs t*ɞ{u vɢ|w xh8* i i¥i4SM i  A"ȱ A"     g "L"00 >ʈƗ)5=> 6>5= >86 >5=@>P6@>6=`>h6`>ƒʢ*υ"ƒ`0I8*`")!)ɀ& !)!)" )!)! "`)!)  #`"0` & & &i8`8񅒢  "M>>>>>>>>?? *?0?@?P?`?p?????????䒐`@7>H7>P7>X7>`7>h7>p7>x7>7?7?7 ?70?7@?7P?7`?7p?7?7?7?7?7?7?7?7?L$`,"%pʈ`) @i(@A)Lk*`)XpX@8(@ A`)XRiX@i(@A`)P4P@8@ A`)PiP@i@AA4"%ppL,"%ph@AHIA@hAʈ`7i"!@5 < Li(ĐŹ}*i}} qi(qr(ii(ʈ0L`L Ɇ ɊɎɒ38Jiș iJ솘!`5 < `ƣ 5p90".\T "d ɀĖHŖIp0"p`H80,*h80` ` `}ʤ`qr0V)@$LH @L Lyiyqr,@i(B)L)@q8rLHqry8yL5qr)@# ȩ!ȩ"(#ȩ$ȩ%Lȩ* (ȩLʤ`uv0c)@$PLH @L Li)ui(uv,PPȩQ)LL)@ܵu8(vLHuv8șL/uv)@$&ȩ'((ȩ)P*ȩ+*!Lȩ(ȩL 5  \   Lf '*!"$H!hƖ` g0iH)h)ii(` 5!"!$Ɨ!Ɣ`*"C/$ =ʈƗ馡5==5=5==5=`5== 5I%=5==5I%=`C/* =ʈƗ馢5==5=5==5=`5== 5I%=5==5I%=`*#p9,"5@ɴ-)ɺȹ4"%pp8 ƗƗƘ` <8`Ƥ ɀ2}.p90"'\yT 9("dqHrIp0"p`,"%p` @ ,ɔɠL@8h8 !qeyrA@L*$J}}i, qr)@) "$"!"%"ȑ(ȑ LLɄɔ8) JJ焔ąŅ)<", i(ii̹!@5 < P 4"%pp҅L,"%p@h@AHIA@hAʈ*%`eh)ee` (  HJJJJ h) iФi``, qr)$"i(iiL9! 985օL: R8F"+0iL8֚F"yA*&"A"`J"!4 <ƒ`.5]998I88I88I88I8`")!)@`)-p)'܅i)@iAPPXX`p p)Cp)=܅i(@iAi*BiCPiQXXYY`ap p)8p)2揥J*'(*eBiC8(eQYY!ap p) Up) O) ?i(DiEi*FiGRiSZZ[[!b!cp p`")!)@  ) `0 )i4i1i5)JJ9!! 0 415 hh`+ ) i `0ɴ`ɺȹhh`! ʆ`ʆ8.҅`8`x ) X` !30"%p,%dT\iPHiI0"pp`  ()*+()PQ()()()`hpx(P)Q @`8 (Px)Qy*Rz+S{ *PQ@BPQ  @߿   @ ` & &H ` & &) ` u"i  u"ƌL"- Z"Ƌ`-`+)")8) 8(`i)i(`HH U# Z"Ƙhh`)5=>5I->5= >5I- >5=@>5I-@>6=`>6I-`>ƒЦ`+8(`i)i(`HH U# Z"Ƙhh`)5=>5I->5= >5I- >5=@>5I-@>6=`>6I-`>ƒЦ`+PXoX A,10000: ASSEMBLE CODEuX}X'"*MX'"; ASSEMBLY CODEX$'"X.'" ORG $2000X8'"BEGIN: JMP BOBXB'"; DISPLAY SINGLE LINE OFXL'"; EIGHT BITS.XV'"Y`'"; DATA IN 'X'(Yj'"; STORED AT 'VEC1'.Yt'"FY~'"DISP8: STA THISBTWY'" + TYAhY'" PHAwY'" LDA MODEY'" BEQ OKNORMY'" JMP MULTIMY'"OKNORM: LDY #7Y'"Y'"DISPL: LSR THISBTY'" LDA #BLANKY'" BCC NOBLOKZ'"Z'" ORA #128$Z("NOBLOK:>Z (" STA (VEC1),YXZ(" + LDA VEC1 +1iZ(" PHAZ((" AND #/4 -1Z2(" STA VEC1 +1Z<(" LDA COLOR3Z=(" ORA #8ZF(" STA (VEC1),YZP(" PLA[Z(" STA VEC1 +1[d(" DEY-[n(" BPL DISPL3[x("D[(" PLAU[(+" TAYf[(" RTSl[("[("MULTIM: LDA #4[(" STA T1[(" TXA[(" PHA[(" LDY #7[("MULTI: LDA THISBT[(" AND #3[(" LSR THISBT[(" LSR THISBT[)" TAX\)" LDA COLOR0,X\)" STA T04\")" LDA #BLANK+128A\,)" CPX #0R\6)"+ BNE BOBBBBc\@)" LDA #BLANK\J)"BOBBBB: STA (VEC1),Y\T)" DEY\^)" STA (VEC1),Y\h)" INY\r)" LDA VEC1+1\|)" PHA\)" EOR #4\)" STA VEC1+1\)" LDA T0])" STA (VEC1),Y ])" DEY])" STA (VEC1),Y'])" PLA8])" STA VEC1+1B])" DEYR]+ )" BPL MULTI\])" PLAf])" TAXp])" PLAz]*" TAY]*" RTS]*"]&*"; DISPLAY CHARACTERS]0*"; FROM ADDRESS 'VEC2']:*"; NUMCOL WIDE, NUMROW HIGH]D*"]N*"DISALL: LDX #36^X*" LDY #>SCR'^b*" LDA CNUM?^l*" JSR BINHEXE^v+ *"Y^*" LDX #0m^*" LDY #0s^*"^*"DIS0: STX TEMP^*" LDA TAB,X^*" STA VEC1^*"^*" LDA #>SCR^*" STA VEC1 +1^*" _*" LDA NUMROW_*" ASL A0_*" ASL AC_+" ASL+ AT_ +" TAXZ_+"k_ +"DIS1: SEI_*+" STA RAMON_4+" LDA (UDGVEC),Y_>+" STA ROMON_H+" CLI_R+" JSR DISP8_\+"_f+" JSR ADD40 `p+" INY`z+" DEX2`+" BNE DIS18`+"N`+" + LDX TEMP_`+" INXw`+" CPX NUMCOL`+" BCC DIS0`+" RTS`+"TAB: BYT ONE,TWO,THR,FOU`+"`+"; FILL 1024 BYTES WITH 'A'`+"; 'X' = FIRST PAGEa+"a+"FIL4PG: STX VEC1 +10a," LDY #0Fa," + STY VEC1La,"`a$," LDX #4ka.,"FIL1:a8," STA (VEC1),YaB," INYaL," BNE FIL1aV," INC VEC1 +1a`," DEXaj," BNE FIL1at," RTSb~,"b,"; FILL SCREENb,"3b,"FILSCR: LDX #>SCRKb," + JMP FIL4PGQb,"kb,"; FILL SCREEN COLOURqb,"b,"FILCOL: LDX #> SCR-1024b," JMP FIL4PGb,"b,"; SET UP DISPLAYb,"b-"INIT: LDA #$41b -" JSR FILCOLc-" LDA #90+128'c-" JSR FILSCR-c(-"Dc2-" + LDA #BACKZc<-" STA COL0qcF-" LDA #BORDcP-" STA COL4cZ-"cd-" LDA #1cn-" STA VEC1cx-" LDA #>SCRc-" STA VEC1+1c-"d-" LDA #40d-" STA VEC2.d-" LDA #>SCRFd-" + STA VEC2+1Ld-"`d-" LDY #0fd-"wd-"SET0: TYAd-" AND #7d-" ORA #128d-" CLCd." ADC #1d." STA (VEC1),Yd."d"." CPY #24e,." BCS NOVERTe6."3e@." STA (VEC2),Y9+eJ."JeT." CLC`e^." LDA VEC2ueh." ADC #39er." STA VEC2e|." BCC NOVERTe."e." INC VEC2+1e."NOVERT:e." INYe." CPY #32 f." BNE SET0f."'f." LDA #BWIN?f." + STA BOTTOMVf." LDA #TWINkf." STA TOPf." LDA #LWINf." STA LEFTf/" LDA #RWINf/" STA RIGHTf/"f&/" LDA #0f0/" STA CURSOR g:/" LDA #41'gD/" STA CURSOR+1;gN/" + LDA #1PgX/" STA EDCdgb/" LDA #0ygl/" STA EDYgv/" STA EDXg/"g/" LDA #CDATAg/" STA UDGVEC+1 h/" LDA #0"h/" STA CNUM(h/"=h/" + LDA # 4Uh/" STA NUMCOLjh/" LDA # 3h/" STA NUMROWh/" LDA #$71h0" STA COLOR0h 0" LDA #$46h0" STA COLOR1h0" STA $FF16h 0" LDA #$42i*0" STA COLOR2i+0" STA $FF17i40" LDA #$450i>0" STA COL+OR3?iH0" LDA #255WiR0" STA MODE;MCM DRAWpi\0" LDA # CHCOLif0" STA CHRCLip0" JMP DISALLiz0"i0"; TIME DELAYi0"i0"TIMDEL: CMP #0i0" BEQ TIM1i0"TIM0: DEXj0" BNE TIM0j0" DEY5j0" + BNE TIM0;j0"Lj0" SEC`j0" SBC #1vj0" BNE TIM0j0"TIM1:j1" RTSj1"j1"; OUTPUT A STRINGj$1"j.1"PRSTR: STX VEC1j81" STY VEC1+1jB1"jL1" LDY #0kV1"PR1:!k`1" LDA (VEC1),Y6kj1" + BEQ PR2Nkt1" JSR CHROUT_k~1" INYtk1" BNE PR1zk1"k1"PR2: RTSk1"k1"; MULTIPLE CHAR OUTPUTk1"k1"MULCHR: CPX #0k1" BEQ PR2k1"k1" JSR CHROUT l1" DEX#l1" JMP MULCHR)l+2"?l 2";SIGN ON MESSAGEEl2"\l2"MESG: LDX #MESl22";SCROLL UP DATAl<2"MESG2: STX VEC1lF2" STY VEC1+1lP2"lZ2" LDA #HOMEld2" JSR CHROUTln2"mx2" LDX #24m2" LDA #CURDWN7m2"+ JSR MULCHR=m2"Qm2"MES0: LDY #0Wm2"qm2" LDA (VEC1),Ym2" BEQ MES1m2"m2" JSR PR1m2" TYAm2" SECm2" ADC VEC1m2" STA VEC1n3" BCC MES2n3" INC VEC1+1)n3+"MES2:=n"3" LDA #1Qn,3" LDX #0fn63" LDY #40~n@3" JSR TIMDELnJ3"nT3" JMP MES0n^3"MES1: RTSnh3"nr3"CARRIG: LDA #13n|3" JMP CHROUTn3"n3";DISPLAY MENUn3"o3"MENDIS: LDX #MENUDo3" JMP MESG2Jo3"ao3"GETKEY: JSR GETINuo3" CMP #0o3" BEQ GETKEYo3" RTSo3"o3";REV VIDEO Y BYTES FROM VEC1o4"o4"INV6: LDY #6o4"INVX:p&4" LDA (VEC1),Yp04" EOR #1285p:+4" STA (VEC1),YFpD4" DEY\pN4" BNE INVXmpX4"IN1: RTSspb4"pl4"GETCOM: LDA #MEN1STp4" STA VEC1+1p4"p4" LDA #0q4" STA ACT q4" q4"REVER: JSR I+NV68q4" JSR GETDIRNq4" JSR INV6bq4" CPX #2xq4" BEQ GOUPq4" CPX #4q4" BEQ GODOWNq5" CPX #5q 5" BNE REVERq5"q 5"ACTION: RTSq*5"GOUP: LDA ACTr45" BNE ADDUPr>5"2r+H5" LDA #MENLSTzrf5" STA VEC1+1rp5" LDA #MENMSTrz5" STA ACTr5" JMP REVERr5"ADDUP:r5" SECr5" LDA VEC1s5" SBC #40s5" STA +VEC15s5" LDA VEC1+1Is5" SBC #0as5" STA VEC1+1vs5" DEC ACTs5" JMP REVERs5"s5"GODOWN: LDA ACTs6" CMP #MENMSTs6" BNE ADDDWNs6"s$6" LDA #MEN1STAtB6" STA VEC1+1UtL6" LDA #0jtV6" STA ACTt`6" JMP REVERtj6"tt6"ADDDWN: JSR ADD40t~6" INC ACTt6" JMP REVERt6"t6"ADD40: CLCt6" LDA VEC1 u6" ADC #40"u6" +! STA VEC1:u6" LDA VEC1+1Nu6" ADC #0fu6" STA VEC1+1wu6" RTS}u6"u6"GETDIR: JSR GETINu7" LDX #1u 7" CMP #'Du7" BEQ GET1u7" CMP #CURLEFv(7" BEQ GET1v27" INX+"(v<7" CMP #'5>vF7" BEQ GET1VvP7" CMP #CURUPlvZ7" BEQ GET1}vd7" INXvn7" CMP #'6vx7" BEQ GET1v7" CMP #CURRIGv7" BEQ GET1v7" INXv7" CMP #'Rw7" BEQ GE+#T1,w7" CMP #CURDWNBw7" BEQ GET1Sw7" INXhw7" CMP #'T~w7" BEQ GET1w7" CMP #' 'w7" BEQ GET1w7" INXw8"GET1: RTSw8"w8"ACTVEC: WOR EDI-1,MOV-1,SIZ-1x"8" WOR PRI-1,IN+$V-15x,8" WOR MIR-1,LOA-1,SAV-1Rx68" WOR SWA-1,ROT-1tx;8" WOR DIS-1,FLI-1,COP-1,LFT-1x@8"WOR INS-1,DIR-1,LOAD-1,SAVE-1,QUI-1xJ8"DOCOM: LDA ACTxT8" ASL Ax^8" TAXxh8" LDA ACTVEC+1,Xyr8" PHAy|8" +% LDA ACTVEC,X.y8" PHA?y8" RTSEy8"[y8" AND #127oy8"MOV: LDA #0y8" LDY NUMROWy8" CLCy8"MOVC: ADC NUMCOLy8" DEYy8" BNE MOVCy8" STA NOFCHz8" EOR #$FFz8" +& CLC)z9" ADC #1@z9" STA TEMP1Fz9"^z&9"MOVD: JSR DISALLvz09"MOVE: JSR GETDIR|z:9"zD9" LDY CNUMzN9" CPX #4zX9" BNE MOV1zb9" JSR MOVD8zl9" JMP MOVDzv9"MOV1:{9" CPX #2+'{9" BNE MOV35{9" JSR MOVP8K{9" JMP MOVDV{9"MOV3:j{9" CPX #3{9" BNE MOV4{9" LDA NOFCH{9" LDX SHIFT{9" BEQ MOV30{9" ASL A{9"MOV30: TAX|9"MOV3A: JSR MOVP8|:" , BEQ MOV&| :" DEX=|:" BNE MOV3AS| :" JMP MOVD^|*:"MOV4:r|4:" CPX #1|>:" BNE MOV99|H:" LDA NOFCH|R:" LDX SHIFT|\:" BEQ MOV31|f:" ASL A|p:"MOV31: TAX }z:"MOV4A: JSR M,OVD8}:" BEQ MOV/}:" DEXF}:" BNE MOV4A\}:" JMP MOVDb}:"n}:"MOV99:}:" CMP #'F}:" BNE MOV6}:" LDY #0}:" STY CNUM}:" LDA #CDATA'~;" STA UDGVEC+1=~;" JMP MOVDH~;"MOV6:]~$;" CMP #'Ms~.;" BNE MOV8~8;" LDY #128~B;" STY CNUM~L;" LDA #CDATA+1024 j;" ,STA UDGVEC+1#t;" JMP MOVD.~;"MOV8:C;" CMP #'LY;" BNE MOV9p;" LDA NOFCH;" ASL A;" ASL A;" ASL A;" STA TEMP;" LDA #CDATA+2048N<" SBC #0h <" STA UDGVEC+1<" LDY TEMP1<" STY CNUM(<" JMP MOVD2<"ŀ<<"MOV9: CPX #5܀F<" BEQ MVENDP<" JMP MOVZ<"MVEND:, RTSd<"n<"MOVP8: CPY TEMP16x<" BEQ MVERRG<" INY]<" STY CNUMu<" LDA UDGVEC<" CLC<" ADC #8<" STA UDGVEĆ<" LDA UDGVEC+1<" ADC #0<" STA UDGVEC+1,<" LDA #1<"MVERR: RTS%<"9<"MOVD8: CPY #0P=" BEQ MVERRa=" DEYw=" STY CNUM"=" LDA UDGVEC,=" SEC6=" SBC #8̂@=" STA UDGVECJ=" LDA UDGVEC+1T=" SBC #,0^=" STA UDGVEC+1(h=" LDA #19r=" RTS?|="[="EDI00: STA (UDGVEC),Ys="EDI000: JSR DISALL~="ED00:="EDI: JSR MAP=" JSR GETDIR=" CPX #2Ճ=" BNE EDI1=" LDY EDY=" , BEQ EDI=" DEY%=" STY EDY;=" JMP ED00F="EDI1:Z>" CPX #4p>" BNE EDI2>" LDA NUMROW&>" ASL A0>" ASL A:>" ASL A҄D>" SECN>" SBC #1X>" S, TA TEMPb>" LDY EDY'l>" CPY TEMP" BCS EDIM>" INYb>" STY EDYx>" JMP ED00>"EDI2:>" CPX #1>" BNE EDI3…>" LDY EDXم>" BNE EDI21>" LDY EDC>, " CPY #2>" BCC EDI(>" DEY=>" STY EDCQ?" LDY #8b ?"EDI21: DEYw?" STY EDX ?" JMP ED00*?"EDI3:4?" CPX #3†>?" BNE EDI4׆H?" LDY EDXR?" CPY #7\?", BCC EDI31f?" LDY EDC/p?" CPY NUMCOLDz?" BCS EDIU?" INYj?" STY EDC?" LDY #255?"EDI31: INY?" STY EDX?" JMP ED00‡?"ׇ?"EDI4: CMP #'Z?" BNE EDI6, ?" JSR MAPBY?" SEI,?" STA RAMONH?" ORA (UDGVEC),Y_@" STA ROMONp@" CLI@" JMP EDI00$@".@"EDI6: CMP #'X8@" BNE EDI7ψB@" JSR MAPBYL@" EOR #$FFV@" , SEI `@" STA RAMON)j@" AND (UDGVEC),Y@t@" STA ROMONQ~@" CLIh@" JMP EDI00s@"EDI7:@" CMP #'C@" BNE EDI8@" JSR MAPBYˉ@" LDA #$FF@" JMP EDI00@"EDI,8:@" CMP #'V@" BNE EDI9/@" JSR MAPBYC@" LDA #0ZA" JMP EDI00e A"EDI9:zA" CMP #'BA" BNE EDI10(A" JSR MAPBY2A" SEIЊA" STA (UDGVEC),YOA" PLA`A" INYqB" DEXB" BNE EDI101B" JMP EDI000"B"EDI11:Œ,B" CMP #'Mٌ6B" BNE EDI12@B" , JSR MAPBY1JB" EOR #$FFTB" LDX #8,^B"EDI111: PHA=hB" SEITrB" STA RAMONp|B" AND (UDGVEC),YB" STA ROMONB" CLIB" STA (UDGVEC),YōB" PLA֍B" INY獸B" , DEXB" BNE EDI111B" JMP EDI000#B"EDI12:8B" CMP #',OB" BNE EDI13gB" JSR MAPBY1{B" LDX #8C"EDI121: PHAC" SEIC" STA RAMONЎ&C" EOR (UDGVEC),Y0C" STA, RAMON:C" CLIDC" STA (UDGVEC),Y%NC" PLA6XC" INYGbC" DEX_lC" BNE EDI121wvC" JMP EDI000C"EDI13:C" CPX #5C" BEQ EDENDÏC" JMP EDIԏC"EDEND: RTSڏC" D,"SIZ: JSR GETDIRD" TXA D" CPX #6,*D" BCS SIZD4D" LDY NUMROW\>D" LDX NUMCOLbHD"vRD" CMP #2\D" BNE SIZ1fD" CPY #2pD" BCC SIZƐzD" DEYݐD" BNE SIZ99,萎D"SIZ1:D" CMP #4D" BNE SIZ2&D" CPY #3;D" BCS SIZLD" INYcD" BNE SIZ99nD"SIZ2:D" CMP #1D" BNE SIZ3D" CPX #2D" BCC SIZґE" DEXE" , BNE SIZ99E"SIZ3:$E" CMP #3 .E" BNE SIZEND48E" CPX #4IBE" BCS SIZZLE" INXfVE"SIZ99:z`E" LDA #0jE" STA EDXtE" STA EDY~E" STA CURSORВE" LDA #1咒E" , STA EDCE" LDA #41E" STA CURSOR+1,E" STY NUMROWDE" STX NUMCOLYE" LDA #79pE" JSR CLRCHE" LDA #1E" LDY #160E" LDX #0ƓE" JSR TIMDELޓF" JSR, DISALL F" JMP SIZF"SIZEND: RTS F"!(F"QUI: LDA #HOME92F" JSR CHROUTQSCR+ONE-1FF" STA VEC1+1[F" LDX #24eF"SC0:zF" LDY #32F"SC1: LDA TEMPF" STA (VEC1),YF" LDA VEC1+1F" PHAȕF" EOR #4ٕF" STA ,VEC1+1F"BODGE:LDA #$31F" STA (VEC1),Y F" PLAF" STA VEC1+1,F" DEYAF" BNE SC1XF" JSR ADD40iF" DEX~F" BNE SC0G" RTSG"G"BINHEX: STX VEC1Ö"G" STY VEC1+1ז,G" ,LDY #0ݖ6G"@G" PHAJG" LSR ATG" LSR A'^G" LSR A:hG" LSR ARrG" JSR BECCLEc|G" PLAxG" AND #15G"BECCLE:G" ORA #'0G" CMP #'9'+1ƗG" BCC OK㗸G" , SBC #57 ;VIDEOG"OK:G" ORA #$80G" STA (VEC1),Y-G" INY>G" RTSDG"XG"MAP: LDA #0nH" STA VEC1H" STA VEC1+1H" LDY EDY&H" BEQ MAP1Ș0H"MAP0: JSR ADD40٘:H," DEYDH" BNE MAP0NH"MAP1:XH" LDX EDC bH" CLC9lH" LDA TAB-1,XOvH" ADC VEC1eH" STA VEC1}H" LDA VEC1+1H" ADC #0H" STA VEC1+1H" CLCЙH" LDA, VEC1噼H" ADC EDXH" STA CURSOR+1H" LDA VEC1+1+H" ADC #0CH" STA CURSORTH" RTSZH"nI"MAPBY: LDA #0 I" LDY EDCI" DEY I" BEQ NOMULÚ*I" LDA NUMROW֚4I", ASL A>I" ASL AHI" ASL ARI" STA TEMP&\I" LDA #07fI" CLCMpI"MBY00: ADC TEMP^zI" DEYuI" BNE MBY00I"NOMUL: CLCI" ADC EDYI" TAY›I" LDA #$80כI, " LDX EDXI" BEQ MBY1I"MBY0: LSR AI" DEX'I" BNE MBY08I"MBY1: RTS>I"UI"MAPBY1: JSR MAPBYfJ" TAXwJ" TYAJ" AND #$F8$J" TAY.J" TXA8J" RTSƜBJ,!"LJ"MES: BYT 9,142,8,147,13,'',0VJ" BYT ' UDG ',0 `J" BYT 'EDITOR',09jJ" BYT '',0RtJ" BYT 'DARRON',0k~J" BYT ' M ',0J" BYT 'BROAD ',0J" BYT '',0J" BYT 'JAN.86',0ϝJ" BY,"T 'REV. ',0蝦J" BYT 'APR.89',0J" BYT '',0J" BYT 13,13,13,13,137J" BYT '',0PJ" BYT 'PRESS ',0iJ" BYT ' ANY ',0J" BYT ' KEY ',0J" BYT '',0K" BYT 0 K"ÞK"MENU:BYT 1,#47ܞ2K" BYT '',0FK" BYT 'EDIT ',0PK" BYT 'MOVE ',0'ZK" BYT 'SIZE ',0@dK" BYT 'CLEAR ',0YnK" BYT 'INVERT',0rK" BYT 'SHIFTD',0K" BYT 'MARKER',0K" BYT 'COPY ',0K" BYT 'SWAP ',0,$K" BYT 'MODE ',0K" BYT 'DISPLA',0K" BYT 'FLIP H',0!K" BYT 'SHIFTR',0:K" BYT 'SHIFTL',0SK" BYT 'ROM ',0lK" BYT 'DIR ',0K" BYT 'LOAD ',0K" BYT 'SAVE ',0K" BYT 'QUIT ',0РK",% BYT '',0K" BYT 0,0K"MENMST = 19-1K"BOB:K" LDX #255K" TXS&K" LDA #06K" STA CODEUCDATAK" STA COPY+1K" LDA #$1BK" STA $FF06K" LDA #$08K" STA $F,&F07̡K"JSR INITڡK"JSR MESGK"JSR GETKEYL"JSR MENDIS L"GG:JSR GETCOML"JSR DOCOM("L"JMP GG@,L"; MEMORY REGISTERSF6L"[@L"VEC1 = $D0uJL"VEC2 = VEC1 +2TL"UDGVEC = VEC2 +2^L"COLOR0 = $333hL"COLOR1=COLOR0+,'1ϢrL"COLOR2=COLOR1+1|L"COLOR3=COLOR2+1L"THISBT = COLOR3+1L"TEMP = THISBT+10L"TEMP1 = TEMP+1JL"NUMCOL = TEMP1 +1dL"NUMROW = NUMCOL+1~L"RAMSWI = NUMROW+1L"ACT = RAMSWI+1L"CNUM = ACT+1ǣL"NO-FCH = CNUM+1L"EDX = NOFCH+1L"EDC = EDX+1L"EDY = EDC+1L"T0=EDY+1)M"T1=T0+18M"MODE=T1+1IM"COPY=MODE+1[M"FLIPT=COPY+2nM"FLIPS=FLIPT+4M"FUNK=FLIPS+4M"CODEU=FUNK+1&M"; CONSTANTS0M":M"BLANK - = ' 'ҤDM"ONE = 41NM"TWO = 49XM"THR = 57bM"FOU = 65%lM"RAMON = $FF3FN"BORD = 0HN"GETIN = $FFE4N"CHROUT = $FFD20N"MEN1ST = 3185FN"MENLST = 3905[N"CHCOL = $71rN"CDATA = $3800N"CHRCL =$53BN"CURSOR =$FF0CO"SHIFT =$543-O"INV: JSR FINNUMܧO"INV11: LDA (UDGVEC),Y$O" EOR #255.O" STA (UDGVEC),Y 8O" DEYBO" BPL INV11+LO" JMP DISALL1VO"I`O"FINNUM: LDY NUMCOLVjO" LDA #0`tO" CLCw~O"FINN1: ADC NUMROWO" DEYO" BNE FINN1O" ASLAO" ASLAO"- ASLAO" TAYƨO" DEYШO" RTS֨O"O"PRI: JSR FINNUMO" LDA #0O"PRI1: STA (UDGVEC),YP" DEY+ P" BPL PRI1<P" JMP DISALLBP"L(P"LOA:]2P" LDA UDGVEClS" STA T1HS" LDA UDGVECRS" STA VEC1*\S" LDA UDGVEC+1;fS" STA VEC1+1ApS"RzS"MIR1:LDY T1\S" DEYfS" DEYsS" LDX T1}S" DEXS"MIR2: LDA (VEC1),YS" INYS"- STA (VEC1),YS" DEYƬS" DEYЬS" DEX߬S" BNE MIR2S" LDA #0S" INY S" STA (VEC1),YT" LDA VEC1"T" CLC/T" ADC T1>$T" STA VEC1O.T" LDA VEC1+1\8T" ADC #0mBT" STA VEC1+1zLT" DEC T0VT" BNE MIR1`T" JMP DISALLjT"- tT"ROT:LDA MODE~T" EOR #255ЭT" STA MODE᭒T" JMP DISALL.u"DIS: LDA BODGE+1/u" PHA0u" LDA COLOR31u" ORA #812u" STA BODGE+1A3u" LDA CODEUQ5u" JSR CLRCH[6u" PLAm7u" STA BODGE+1}9u" LDA $FF07:u" PHA;u" ORA #$80u" ORA #$10ή?u"NORM:ޮCu" STA $FF07Du" LDA $FF12Nu" PHAXu" LDA #8bu" STA $FF12%lu" LDA $FF13/vu" PHAAu" LDA #>CDATAQu" STA $FF13bu" JSR DUMPSTsu" JSR GETKEY}u" PLAu" STA $FF13u" PLAu" S- TA $FF12u" PLAu" STA $FF07ׯu"WOBBLY: LDA #79u" JSR CLRCHu" JMP DISALLu"@"DUMPST: LDA #<$C29%J" STA VEC16T" LDA #>$C29G^" STA VEC1+1Th" LDA #8cr" STA TEMPp|" LDX #0"DUM1: LDY #0"DUM2: TXA" STA- (VEC1),Y" INX" INYȰ" CPY #32װœ" BCC DUM2̜" JSR ADD40֜" DEC TEMP" BNE DUM1" LDA #<$E88%" STA VEC16" LDA #>$E88G" STA VEC1+1T" LDY #0c" LDX CNUMt" LDA NUMCOL" STA TEMP1"FRES:LDA NUMROW-&" STA TEMPD" TYAN" PHAʱX"FREW:TXAԱ]" INXb" STA (VEC1),Yl" TYAv" CLC " ADC #40" TAY"" DEC TEMP1" BNE FREW;" PLAE" TAYO" INY_Ɲ" DEC TEMP1nН" BNE FRESxڝ" RTS~""FUCK: LDA NUMROW-" ASLA" ASLA " ASLA²" STA T0Ӳ*" LDA UDGVEC4" STA VEC1>" LDA UDGVEC+1H" STA VEC1+1R" LDY #0\"(f"FLI1: TYA2p" PHA?z" LDX #0W"FLI2: LDA (VEC1),Yi" STA FLIPT,Xy" JSR ADYT0" INX" CPX NUMCOL-" BNE FLI2" LDA NUMCOL" ASLAʳʞ" ASLAճԞ" ASLA߳ޞ" TAY" JSR FUNCSj" PLAk" PHA t" TAY~" LDX #01"FLI5: LDA FLIPS,XD" STA (VEC1),YT" JSR ADYT0^" INXo" CPX NUMCOL~" BCC FLI5ğ" PLAΟ" TAY-؟" INY" CPY T0" BCC FLI1ɴ" JMP DISALLϴ"ߴ "ADYT0: TYA" CLC" ADC T0(" TAY2"GOD: RTS<")"FUNCS: LDA FUNK6" CMP #0G$" BEQ FLIPITV." CMP #255g8" BEQ SHIFRGtC" CMP #1D" BNE GODG"L" JMP -SHIFLF"FLIPIT: LDA MODE" BEQ FLIPI9ѵ" LDA NUMCOLܵ"" ASLA," ASLA6" STA TEMP @"FLIPI7: LDA #0J" LDX NUMCOL6T"RLL1: ROL FLIPT-1,X@^" DEXOh" BNE RLL1Zr" ROLAk|" LDX NUMCOL"RLL2: ROL FLIPT-1,X" DEX-" BNE RLL2" ROLA" LDX #0ȶ¦" LDY NUMCOLӶ̦" LSRA֦"RRR1: ROR FLIPS,X" INX" DEY" BNE RRR1" LDX #0-&" LDY NUMCOL80" LSRAQ:"RRR2: ROR FLIPS,X[D" INXeN" DEYtl" BNE RRR2" DEC TEMP" BNE F-LIPI7" RTS"FLIPI9: CLCʷ"FLIPI1: ROL FLIPT-1,XԷ " DEX" BNE FLIPI1 " PHP*"FLIPI2: PLP4" ROR FLIPS,X>" PHP&H" INX7R" CPX NUMCOLH\" BNE FLIPI2Ra" PLP\f" DEYmp" BNE FLIPI9wz" RTS}""SHIFRG: LD-X #0" CLC" PHP"SHIFR:PLPƸ" LDA FLIPT,XѸ" RORA" STA FLIPS,X&" PHP0" INX:" CPX NUMCOLD" BNE SHIFR"N" PLP,X" DEY=b" BNE SHIFRGGl" RTSMv"eȯ"SHIFLF: LDX NUMCOLoү" CLC{"SHIFL:" LDA FLIPT--1,X" ROLA" STA FLIPS-1,X" DEXȹ"" BNE SHIFLҹ," DEY6" BNE SHIFLF@" RTSJ"h"FLI: LDA #0r" STA FUNK"|" JMP FUCK("9"LFT: LDA #1H" STA FUNKW" JMP FUCKnP"INS: LDA #ROMCHRn" STA VEC1+1x" LDA #CDATA庖" STA VEC2+1" LDX #8" LDY #0"INS1: LDA (VEC1),Y*" STA (VEC2),Y4" DEYC" BNE INS1T" INC VEC1+1e" INC VEC2+1o" DEX~" BNE INS1" ST-X MODE" JMP DISALL"8"DIR: LDA #58ŻB" STA $200һL" LDA #0V" STA $3B`" LDA #2j" STA $3C t" JSR WINDOW" JSR $C8BC2"SPACEG:JSR $C9ACI"SPACET:JSR GETKEYW" CMP #13h" BNE SPACETy" JMP WINCLS" "-WINDOW: LDA #$18*" STA $7E54" LDA #1>" STA $7E6ϼH" STA $7E7޼R" LDA #$20\" STA $7E8f" LDA #147 p" JMP CHROUTz"*"WINCLS: LDA #BWIN;" STA BOTTOMK" LDA #TWINY" STA TOPi" LDA #RWINy" STA RIGHT" LDA- #LWIN" STA LEFT" JMP WOBBLY"ƽ"GETNAM: JSR GETIN׽ " BNE GETNAM" LDY #0"RD:JSR $FFCF" STA $200,Y&" INY0" CMP #13,:" BNE RD6;" DEYC<" CPY #1R=" BNE OKENa>" LDA $200p?" CMP #' '@" BNE OKEN-A" DEYB"OKEN:D" RTSN"X"LOAD: JSR WINDOWʾb" JSR $FBD8l" BYT 'ENTER LOAD NAME',13,0v" JSR GETNAM" TYA" BEQ WINCLS$" LDX #01" LDY #2A" JSR $FFBDN" LDA #8X" TAXe" LDY #0u" JSR $FFBA" LDA- #0" LDX #CDATA" JSR $FFD5ǿ" JMP SPACEGݿ "SAVE: JSR WINDOW" JSR $FBD8 "BYT'ENTER SAVE NAME',13,0!" JSR GETNAM'"" TYA4#" BNE OXE%" JMP WINCLSU*"OX: LDX #0b4" LDY #2r>" JSR $FFBDH" LDA #8R" TAX\" LDY #255f" JSR $FFBAp" LDA #CDATA" STA VEC1+1" LDA #VEC1" LDX #CDATA+$800:" JSR $FFD8K" JMP SPACEGQ"X`"*DY #2r>" JSR $FFBDH" LDA -PX]X A,10000cXkX'"*MzX'"ORG $1000X$'"T1=$D0X.'"T2=$D1X8'"T3=$D2XB'"T4=$D3XL'"LIN=$DA;2BXV'"CUR=$DC;2BX`'"CXX=$DEXj'"CYY=$DFXt'"LAST=$3X~'" LDA #0Y'" STA $FF15Y'" STA $FF19-Y'" LDA #$26=Y'" STA $FF16LY'" LDA #$29-\Y'" STA $FF17mY'" JSR HELPMEY'"BEGIN: LDA #<$2400Y'" STA LINY'" LDA #>$2400Y'" STA LIN+1Y'" LDA #<3073Y(" STA CURY (" LDA #>3073Y(" STA CUR+1Z(" LDA #$C8Z((" STA $FF12#Z2(" LDA #$383Z<(" STA $FF13BZF(" LDA #$98RZP(" ST- A $FF07cZZ(" JSR SCREENpZd(" LDA #0~Zn(" STA CXXZx(" STA LASTZ(" STA CYYZ(" LDA #12Z(" STA T4Z("BEG1: JSR SCROLLZ(" DEC T4Z(" BNE BEG1Z("KEY: LDY #0 [(" LDA (CUR),Y[(" PHA#[(" LDY #15[(" LDA (CUR),Y?[(" PHAM[(" LDY-! #40_[)" LDA (CUR),Yi[)" PHAw[)" LDY #41[")" LDA (CUR),Y[,)" PHA[6)" LDY #0[@)" LDA #0[J)" STA (CUR),Y[T)" LDY #1[^)" STA (CUR),Y[h)" LDY #40[r)" STA (CUR),Y \|)" LDY #41\)" STA (CUR),Y+\)" LDY #09\)"DEL: DEYG\)" BNE DEL-"U\)" LDY #41_\)" PLAq\)" STA (CUR),Y\)" LDY #40\)" PLA\)" STA (CUR),Y\)" LDY #1\)" PLA\)" STA (CUR),Y\*" LDY #0\*" PLA\*" STA (CUR),Y\&*" JSR $FFE4 ]0*" STA T4]:*" AND #$7F']D*" CMP #'S7]N*" BEQ UPSCRE]X*" CMP #'D-#U]b*" BEQ DWSCRc]l*" CMP #'Zs]v*" BNE KEY11]w*" JMP CLEF]*"KEY11:CMP #'X]*" BNE KEY99]*" JMP CRIG]*"KEY99:CMP #'/]*" BNE KEY5]*" JMP CDWN]*"KEY5:CMP #';^*" BNE KEY2^*" JMP CUUP'^*"KEY2:CMP #276^*" BNE KEY3F^*" JMP AD-$DITY^*"KEY3:CMP #' 'h^+" BNE KEY4y^ +" JMP PREVAD^+"KEY4:CMP #''^ +" BNE KEY6^*+" JMP BEGIN^4+"KEY6:CMP #'H^>+" BNE KEY7^H+" JMP HELPME^R+"KEY7:CMP #'*^\+" BNE KEY10 _]+" LDA #8_^+" STA $FF07+__+" LDA #$C4;_`+" STA $FF12J_a+"-% LDA #$D1Z_b+" STA $FF13i_c+" LDA #147y_d+" JSR $FFD2_f+" BRK_p+"KEY10:JMP KEY_z+"_+"UPSCR: LDA #1_+" BIT T4_+" BPL UPGO_+" LDA #12_+"UPGO: STA T4`+"UPGO2: LDA LIN+1`+" CMP #$34 `+" BEQ UPO11`+" JSR SCROLL>`+" DEC T4-&N`+" BNE UPGO2a`+"UPO1: JMP KEYg`+"z`,"DWSCR: LDA #1`," BIT T4`," BPL DWGO`$," LDA #12`.,"DWGO: STA T4`8,"DWGO2: LDA LIN`B," CMP #$C0`L," BNE DWGO3`V," LDA LIN+1 a`," CMP #$24aj," BNE DWGO3'at," JMP KEY>a~,"DWGO3: JSR SCWOL-'LKa," DEC T4[a," BNE DWGO2ia," JMP KEYoa,"a,"CLEF: LDA CXXa," BEQ CLE2a," SECa," SBC #1a," STA CXXa," LDA CURa," SECa," SBC #2a-" STA CURa -" LDA CUR+1b-" SBC #0b-" STA CUR+1)b(-"CLE2: JMP KEY/b2-"Ab<-"CRIG:L.DA CXXObF-" CMP #13^bP-" BEQ CRI2hbZ-" CLCubd-" ADC #1bn-" STA CXXbx-" LDA CURb-" CLCb-" ADC #2b-" STA CURb-" LDA CUR+1b-" ADC #0b-" STA CUR+1b-"CRI2: JMP KEYb-"c-"CDWN: LDA CYYc-" CMP #11-c-" BEQ CDW17c-" CLCD.c-" ADC #1Rc." STA CYY`c." LDA CURjc." CLCxc"." ADC #80c,." STA CURc6." LDA CUR+1c@." ADC #0cJ." STA CUR+1cT."CDW1: JMP KEYc^."ch."CUUP: LDA CYYcr." BEQ CUU1c|." SECd." SBC #1d." STA CYY!d." LDA CUR+d." SEC9d." SBC #.80Gd." STA CURWd." LDA CUR+1dd." SBC #0td." STA CUR+1d."CUU1:JMP KEYd."d."ADDIT: JSR $FFE4d." CMP #65d/" BCC ADDITd/" SECd/" SBC #65d&/" ASLAd0/" ASLAd:/" CLCeD/" ADC #$30eN/" STA LAST)eX/"PREV: LDY #0;eb/" STA (.CUR),YEel/" INYOev/" CLC\e/" ADC #1ne/" STA (CUR),Y|e/" LDY #40e/" CLCe/" ADC #1e/" STA (CUR),Ye/" LDY #41e/" CLCe/" ADC #1e/" STA (CUR),Ye/" SECe/" SBC #1e/" PHA f0" LDA CYYf 0" CLC"f0" ADC #1-f 0" ASLA8f*0". ASLACf40" ASLANf>0" ASLA[fH0" STA T1ifR0" LDA LINsf\0" SECff0" SBC T1fp0" STA T1fz0" LDA LIN+1f0" SBC #0f0" STA T2f0" LDA T1f0" CLCf0" ADC CXXf0" STA T1f0" LDA T2g0" ADC #0g0" STA T2g0" LDY #0'g0" PLA8g0" STA. (T1),YFg0" JMP KEYLg1"bg1"PREVAD: LDA LASTqg1" JMP PREVwg$1"g.1"SCROLD: LDY #28g81"SCR: LDA (T1),YgB1" STY T3gL1" PHAgV1" TYAg`1" CLCgj1" ADC #80gt1" TAYg~1" PLAh1" STA (T1),Yh1" LDA T3h1" CLC'h1" ADC #401h1" T.AYBh1" LDA (T1),YLh1" PHAVh1" TYA`h1" CLCnh1" ADC #80xh1" TAYh1" PLAh2" STA (T1),Yh 2" LDY T3h2" DEYh2" CPY #1h(2" BCS SCRh22" RTSh<2"hF2"SCROLL: LDX #11hP2" LDA #<3872iZ2" STA T1id2" LDA #>3872&in2" STA T2,ix2".Di2"SCR1: JSR SCROLDQi2" LDA T1[i2" SECii2" SBC #80vi2" STA T1i2" LDA T2i2" SBC #0i2" STA T2i2" DEXi2" BNE SCR1i2" LDY #0i2" LDX #0i2"SCR2: LDA (LIN),Yi3" STA 3113,Xj3" CLCj3" ADC #1"j"3" STA 3114,X,j,3" SE.C9j63" SBC #3Jj@3" STA 3073,XTjJ3" CLCajT3" ADC #1rj^3" STA 3074,X|jh3" INXjr3" INXj|3" INYj3" CPY #14j3" BCC SCR2j3" LDA LINj3" CLCj3" ADC #16j3" STA LINj3" LDA LIN+1j3" ADC #0k3" STA LIN+1k3" RTSk3"2k3"SCREE. N: LDX #0Fk3"SCRE1: LDA #3Wk4" STA $C00,Xhk4" STA $D00,Xyk4" STA $E00,Xk&4" STA $F00,Xk04" LDA #$59k:4" STA $800,XkD4" STA $900,XkN4" STA $A00,XkX4" STA $B00,Xkb4" DEXkl4" BNE SCRE1lv4" RTSl4"l4"SCWOLL: LDA #<3072,l4" S. TA T1=l4" LDA #>3072Jl4" STA T2Pl4"^l4" LDX #11sl4"SCW1: LDY #28l4"SCW2: STY T3l4" TYAl4" CLCl4" ADC #80l4" TAYl5" LDA (T1),Yl 5" LDY T3l5" STA (T1),Yl 5" TYAl*5" CLCm45" ADC #120m>5" TAY mH5" LDA (T1),Y*mR5. " PHA7m\5" LDA T3Amf5" CLCOmp5" ADC #40Ymz5" TAYcm5" PLAtm5" STA (T1),Ym5" LDY T3m5" DEYm5" CPY #1m5" BCS SCW2m5"m5" LDA T1m5" CLCm5" ADC #80m5" STA T1m5" LDA T2m5" ADC #0n6" STA T2n6" DEXn6" BNE SCW1-n$. 6" LDA LIN7n.6" SECEn86" SBC #16SnB6" STA LINcnL6" LDA LIN+1pnV6" SBC #0n`6" STA LIN+1nj6" LDA LINnt6" SECn~6" SBC #$C0n6" STA T1n6" LDA LIN+1n6" SBC #0n6" STA T2n6" LDY #0n6" LDX #0o6"SCW5: LDA (T1),Yo6" STA 3993,X). o6" CLC6o6" ADC #1Go6" STA 3994,XQo6" SEC^o7" SBC #3oo 7" STA 3953,Xyo7" CLCo7" ADC #1o(7" STA 3954,Xo27" INXo<7" INXoF7" INYoP7" CPY #14oZ7" BCC SCW5od7" RTSon7"ox7"HELPME: LDA #$C4p7" STA $FF12p7" LDA #$D0'p7" S.TA $FF134p7" LDA #8Dp7" STA $FF07Qp7" LDY #0ip7"HEL0: LDA MESG,Yxp7" BEQ HEL1p7" JSR $FFD2p7" INYp7" BNE HEL0p7"HEL1: JSR $FFE4p7" CMP #13p8" BNE HEL1p8" JMP BEGINp8"p"8" q,8"MESG:BYT 19,19,147,5q68"0q@8"BYT 'EDI.TOR COMMANDS',13,13PqJ8"BYT 'H =HELP SCREEN',13,13hqT8"BYT 'CURSOR',13,13q^8"BYT 'Z =LEFT X =RIGHT',13qh8"BYT '; =UP / =DOWN',13,13qr8"BYT 'SCROLL',13,13q|8"BYT 'S =SCROLL DOWN 1 LINE',13r8"BYT 'D =SCROLL UP 1 LINE',134r8"BYT 'SHIFT+S OR +D TO SCROLL PAGE',13,13Jr8"BYT 'EDIT',13,13nr8"BYT 'ESC+LETTER =ADD BLOCK',13r8"BYT 'SPACE =ADD BLOCK OF PREVIOUS TYPE',13,13r8"BYT '* =EXIT TO MONITOR',13,13r8"BYT 'PRESS RETURN',0r8"*YT 'D =SCROLL UP 1 LINE',134r8"BYT 'SHIFT+S OR.xL..  >ƅ   L 0  n  }  _L5 PLu*`Z   Z  L=@ c Q1_ c `K @ cLQ     L _L] . ~ `6LOADINGLEVEL@ERROR@IN@REWIND@TOMCATCOPYRIGHT@PLAYERS@aihiTHIS@VERSION@CODED@BY@DARRON@M@BROADSCOREHI```````PRESS@SPACE@FOR@@LEVEL@WELL@DONEH  M Q M G.͠ G G / G G (H,hh` E $$ & `  I FI. 7 1(Hi(h  ߥiP.iI iЍzi^ `iP攤i'(i)i`[ c Q @ c Ƙ``@  Ƙ`.`ꪪꪮꪪUUUU.UUUUUUUUUuuuuuuU]]U]]]]U]]U]]UU]]}]]]UU]]]U @ c Qi إ `6 ### A  0)`P ! ( %? d j m mwu  HJJJJ `h) ``UuuuuuuU]]U]]]]U]]U]]UU]]}]]]UU]]]U @ c Qi إ `6 ### A  0)`P ! ( %? d j m mwu  HJJJJ .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=L.ERR`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+5.12,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 LEVEI. T^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" ST.$X 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,XA.%c" 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" R.&TSHd~" 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,'REWIN.'D',$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,$606/0Cf("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 #0/Ag" 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 FN/LENBh@" 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 LEV/ EL*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 T/6#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" L/DA #$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 #>3137/y2" 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"B/YT 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{&"*0{h" JSR PUTSC-D {r" TX