` / X +JJJJ 6Q PQ=P' \PQ L    (,,   , ,+鷍JJJJx"LϠĮϮӮΠӠˇ  8`+ a x >? 8T8 Wu v ýI꽌ɪ꽌ɭ蠪& E&] ] H)] ] 쮌)] ] )] + 8$hU>` &'8&,   ') +   ) +`(L8`&&꽌ɪɖ'*&%&,E'зЮ꽌ɪФ`  $(,048<@DHLPTX\`dhlptx|Հ؈䤨谴> r e>, +`@@)  - ?>  -  ׈`d  LԠ҇     Ӝu`".Q`pNФbptťܥm2<(-Py0\|e<6e<g< JJJJj귍hI  aUL@ kU8  L  Q^R(jQ0l^l\  wUuW ԧ H h@ [_ /QSIRb_L`LLLL`ª`LQLYLeLXLeLee ўQH\(h0L& Ꝥ$`( R \ZLl8 ўR HH\`\Z[YS6`LxQɿu3'RͲʎRʎ]]]ɍuL͟ɍ}RLRɍg^H8 ^hZLɍR LͲɊRR% QLܤͲ Z@ -^ ş\[Z QY\[Z8`l6Lş_Ȍb_Ͳ] )Y h( ֭ͲLɍ [LLĦ__ ^ 9 LҦ3 9 a   0LjLY u< (_9 ˭ɠuɠK_9 ?LˆʎõĵL õ ĵµ aµ`` L̦µ_bJLuLz`  ȟ QlXJ̥KlV  ȟ QlV eօ3L e3L &RL &QL d L4 Ne)n `_  L L f`L . tQLѤ LҦL` OPu d L Ne)noon 8ɍ` ^f\õL ^NR  RΩLҦ)\Z ʽ LHv 3h`0h8` [L NС õ`A@` ŵL^Lõ`  \ 濭0 \  ȟ Q ^\lZl^?cqH şch`fhjõĵ@OAP`u@`@&`QR`E Ls  @DAE@u`8` %@ @A@`@`@A`Mµ ) LЦ`8@AWc@8@-@HAȑ@hHȑ@ȑ@hHȑ@Ȋ@ch8&ȑ@Hȑ@Ah@LHȑ@ȑ@ htphso`hMhL`9V8U897T6S67`SELOASAVRUCHAIDELETLOCUNLOCCLOSREAEXEWRITPOSITIOOPEAPPENRENAMCATALOMONOMOPRINMAXFILEFINBSAVBLOABRUVERIF!pppp p p p p`" t""#x"p0p@r@@@p@!y q q p@  LANGUAGE NOT AVAILABLRANGE ERROWRITE PROTECTEEND OF DATFILE NOT FOUNVOLUME MISMATCI/O ERRODISK FULFILE LOCKESYNTAX ERRONO BUFFERS AVAILABLFILE TYPE MISMATCPROGRAM TOO LARGNOT DIRECT COMMANč$3>L[dmx-># Ϡ@跻~!Wo*9~~~~ɬƬ~_ j ʪHɪH`Lc (L ܫ㵮赎 ɱ^_ J QL_Ls贩紎 DǴҵԵƴѵӵµȴ 7 ַ :ŵƴѵǴҵȴµ納贍﵎ٵ്ᵭⳍڵL^ѵ-I `  4 ò-յ!  8صٵ紭ﵝ 7L (0+BC  7L HH`LgL{0 HH` õL H hBL BH [ h`Lo õ ڬL B ڬ LʬH hB@ յյ [L (ȴ) ȴ 7L L ( L (ȴL{ƴѵ洩ƴǴҵ 7 ^* B0 HȱBh ӵԵ 8 L8 ݲ` ܫ  / ED / / ] WS0Jȴ ȴ)  紅D贅E B ƴ  0L Ν `HD٤DEEhiHLGh ` ŵBѵ-` ѵB-` BDE8jDE  ƮL Ơ::8DEDE: ` d0 · JLǵBȵC`,յp` 䯩 R-յյ`յ0` K R-յյ`ɵʵӵԵ` 4 K ( ѵҵLBȱBL8` DBHBH : ַ޵BȭߵBhhӵԵ RBܵmڵ޵ȱBݵm۵ߵ` 䯩LR˵̵ֵ׵`êĪLR E( 8` R` LRŪƪ`췌 յյI뷭鷭귭ⵍ㵍跬ª 뷰` Lf ݵܵߵ޵ ^`8ܵ i B8` 4L ֵȱB׵ ܯ䵍൭嵍 ` DȑB׵Bֵ  ַ յյ`굎뵎쵬 뵎쵌``õĵBCõĵ`µµ`L õBĵCصص Qƴ0"Bƴ 󮜳` 0۰ϬBƴ8`i#`ЗLw!0>ﵭ` m ﳐ 7i볍 8 ЉLw`H h ݲL~ `浍국䵍뵩嵠Jm赍嵊mjnnn浈ۭm浍浭m䵍䵩m嵍`"L ŵ8ŵH ~(`  d̠֠z " ????  Π ήԠҠˠРΠ ϠԠ ϠԮʠzzp / /L/0M='+l> /+l   d]@ŵLҦ]]LF L}BBL]_ 0LEJJJJJ8R LE^),ǴHJJJJiRh)HJJJJJhȈ N ,L/ NHH > Ih > IhDELȮL$Lƴ`p8*]ȴ ` 8 `巬S췌`x (`(8`I`B` p `>J>J>VU)?`8'x0|&HhHh VY)'&Y)xꪽ)' `Hh`V0^*^*>&` aI꽌ɪVɭ&Y&&Y& 꽌ɪ\8`&&꽌ɪɖ'*&%&,E'зЮ꽌ɪФ`+*xS&x'8*3Ixix&& 8  '  & x)*++`FG8`0($ p,&"ųųೳŪŪųųij  !"#$%&'()*+,-./0123456789:;<=>?!134305514(((((((((((((((((((((!024113(-,(((((((((((((((((((((033121((((((((((((((((((((((((80^݌Hh ü ü݌ ռ ռ ռA ļD ļ? ļAEDE?HJ>h Լ ռ ռ ռ`HJ>݌h Hh݌`葠葠ȔЖȔЖȠHIHHHHhHH݌hHhHh݌H6 ?`gh<=ij>?`v(Le lL5٩ ӥHHvHuHH >L ٥vQ 8egh ֐` eӚɰ ,ZLLhhB;uhvhh ٘e`:,  "hhh` { ɫ ޥ L>L( HɰɫЉơhL* ,h`PQ/ Q^ԥP &^ &^ePP^eQQP&QPe PQ L ߅ ޥHH {h* mh r ȥ`L'hpoj iLڠ 㥌 婝 5ȱȱ` = $)94,;D {$0 4 Lک \I`$ !i)$ )L(ʊ$ L W 檠^ \ LD۩ ,? ɠ )H h`0{|uvLh$L :ۥyz` @ `" ީ; =L Z , ,խLc ZL,զ}~, ߅ $P )0 Z ۆ $1$P 膸 ": ,i = {LrH0h J c ,Lqۥ 3 LۥL Ȫ*ȱ_ȱ{ȱȅ| L+ܥLSؠߠL:`?EXTRA IGNORED ?REENTER  ߅ ei` 꺽  ' 8 uvL׊i , {$8$0`LԦƹƸ$HH `ީ 8ϐ*IEʼna Lݦ,{iweLi^ e^hٲаg jH hV_F*ƹƸٲаHٹHH ޥLLޥШh^^h_H r륡HHHHHl^h#d j݄hJhhhhhhE` LJ }d.U"i L=8,LLTҐL {ݩ),(,,ѸLLԠhhL ߅` ȱLL q L H ϐ { lhHHH hHL? hυυ Ljݥ ,L mݰ % LߩƉ 慝 憨80 ў*%L L ު `  }LޢLL(L<  } }$%0Ʃ 8(L$0pijlk"ћћliA[8`hH`klmniȅ ӥȅklȥȑȑȑȑȑiȅ` ieȅ` gݥ0 ɐ ~LGHHHHH hhhHH ,҄ hh)klnm?Łћȱeȱeעk,5LԢx8` ћLK*L өȥʆȑ $PhihiȑȊ ↭^e]eR Ӆmn殤ƕƮ8m因n圑bȱhhћȊћLLȥ e^eʅʥʆd ee`^de *& edeeƙ` 8ompnL$8vС,L A  ީ j ީ HHHHH L  ߅Lj A㥋HH jhhȱ𙅄ȱH +륹HHȱHH ghh Lhhhhȑhȑhȑhȑ` jݠ 6hh R䆞`" ȱ "e膮 㦫 R^LԥSR`FHI8eopnm opqrh`M0 䩀hЦstopmnU^_R #ij^_lk 󅔆nmLb^_^ȱ^ȱ^eȱ^e(ӊ0ȱ^ ie^^__Ŕ #^05ȱ^0ȱ^+ȱ^ȱ^poŜ䛐^_e^^__`)Jeiop Ӥȥ敥ȑL䥡HH ` lhhqL 奌  奫  *LݠHȱȱh^_ H^qheqqr` lݥ^_ 5^Hȱ^ȱ^h(po Heooph^_`T SRS` H hhhL* ьHH 㥌 hhe^^_ L* IL` ) ʊH񌰸Iš hhhhhhhHH` L ` ^LL g ᦠL LN覸^e^`_a`H` Jh`` g R L楝ɑ 률PQ`PHQH RPhQhPL F犠P` F熅  L熆PE%`dL 饢IEL < LS리8$Ii0ǨV $W8Ie Ji `eeeeeLi&&&&8坰IiBfffff`IIIIII `ELԢai0vvvvvj`^Vy dv88; 54541r LᥝH- 2 f  \7 h < L bcde 饡 饠 饟 饞 LLJ eeededcecbebfbfcfdfefJ`^_^^^^E ^`e0,iLR襫`I0hhLNL ci ` cP Li v r8坅 Ğğ Ġġ* e24(&&&0⨥塅堅埅垅L@ (LꢅLԥbcdeL.^_^^^^ ^`, r^_^^^ %^^`` r` L襝 *` 녞I*L)F``a`Ȫı`E0!` Şȱ`şȱ`Š ȩŬ`(IL륝J8$ 芢 脤`)F 鄤`ɠ 넬I* L)腞` -+ [..E0 - +f \$8Lf$På8噅 U 9ƚ0`LH$ 9h80 LaH ch 륪EL祚 d$0L e q80L>nk'nk(X 1vu8 4L:۠-$șȩ0LW     9ƙ U i 0 i8.ș0șylykyjyi00ڊIi i/ȄȪ)ƙ.șI)$Ъ0.ȩ+.8嚪-E/8 i:`  cd pLP袊 +륪 #쩊  UH A驊  hJ I`8;)q4X>Vt~w/z*|cYX ~uƀ1r۠ 饬iP z녒 f륝Ɉ + # i8H rh ` !멓  v禎L酭 뱭Ș殅 饭iȅ 穘ƣ`5Dzh(F 0ɠ 穦 驪 禡 .ɠL+f ck ^ c # p 祢H 祢0 I p h uL\ !  禎  b𩊠LfHL#IڢIڢ-(h#5ᆥ](IڢʥH HɁ fΠ \hɁf hL` vy{| g|S}dpL}Qz}c0~~D:~L̑湭`: 808`ORXv( sL  񕰆򊅤TH کURPQQPIPPIPPPQ)stopgh֘gghgh K֩:ۅ<ԅl g RlP L L 0, 0,-`L ,- 0` (L ,(ʤL (L( Ld ʊL[ I`8f`?2`@ g RPmQnLԥPsoQtp` g RPsQtPiQj֥PiQjLl֩ ޥ8fإuv Lنަߥuڥvۥyܥzݥ􅸥uv >Lץڅuۅv܅݅ߚLLްij ֥`a, PQ ֥`a```aiśj地a`ʈjiLԭVSL@TL9 ʅPQ L PȱQL L,U,R@ ,T,SWP ~)`H)&JJ&&h' &' &' f&')'#i媽0J(` Q&%0Q&&`#0JI0`'0 I`0 I0ݩ()%%01&%0)&E%0Q&&e)j00',"&,i8i#H&ii&hif&i'`'i,&i,&iPII&if&HhH8HӰ hIiHӅхhЅhIi҄f8Ъх e8e҅ԥձ&E%0Q&&bӰ eЅԥePفŴxaI1& ')*& 'JJ) e ʥ0)Je`JJJJӊ)IȄҤѢԆզ8eЅԐ e҅Ր JJJ`JJJJӊ)IȄҤѢԆզ8eЅԐ e҅Ր JJJ` g RQPHH, hh`L `*U W :L ` `  eȱe ` -L -La=?P<Ȅ> sʆ>PHt?QnLԅtp=hso< LeP>eQ? ॔<=`@ ߩL ʊ( (H hL$`J G(i.&E0%.Q&&` , iH h-`/'-'0 (`HJ) 'h)i& &&`0i)0 00`J G&(JJJJ)`:; H:J jɢ )Jb y.)/) JJJ Ȉ` H:  J/Ȑh,--&,*i H/.  `0 .: VȘ L `8/;e:` T0 "T3  T3  T; "D3 D"D3 D"D3 "D3 &1!YMJؤ#]#)i#$S#$S[[i$$)|mi)S4i#bZH&bTDThDt(ntJrtttrDh2"&&rr&HDDȅEhH 0l( Lh:h;l Le / XZ]_, :ILl `Ȇ׍숈l E@A  J 0`YE <Šӭpd`HVTQ PS 6" (!#%L" X`I`ɍ,,L8L,H ΰɐHJ) )h)i( ((`ɇ@ 0`$($$!f`ɠɍZɊZɈ$!$$"% %% e (`I(ii,i\$%H $ hi#ʥ"%$$%%#%"H $(*)+!hi# H $(*0 $(!`8Hh`BC<>=?<=`K i! Ȉ2 ,`H h*:` `E/E//`$(H)? @(hl8NO,(,` ɛ`2H2 h2Ɉɘ  : 3  5ɕ()ߝɍв [=< @L< >=?<) < `JJJ>Ie@@A`41`>BD`8>6>) `LL u ?l:L``L@ 'A&?1?=A>?I i`HH11`IJ듧ƙɾ5Ė+]̵b@!ҠŠΠz#     Ϡٮʠ Ԡ ԠŠŠǠˠ!  Ϡ ϠŠŠϠԠ  ϠӠ Ϡ٠ ϠԮʠDISK":B$TI$:45:TI$A$:^ 11:A$"HELLO PROGRAM":A$"-->";:B$HL$:45:HL$A$:(A$)29910 A$(1)"RUN":A$(2)"BRUN":A$(3)"EXEC":15:"1 - RUN 2 - BRUN 3 - EXEC":13:"HELLO PROGRAM TYPE ? (1,2,3) "HP""; 10:A$(13)ĴA1A3920:HPA A1800":800,(47081)16:801,(47082):802,254; 4830:768 >60,0,61,157,62,255,63,191,66,0,67,45,768,160,769,0,770,76,771,44,772,254,0,0,14943,0,11521,156,19712,132,19713,72,19714,133,19715,73,0,0:A,B:A,B:A0830: 9:"TITLE-->";:A$"TITLE OF : ZA$(0)"NO":A$(1)"YES"n _A$(2)" ":"? ("(A$(1),1)"/"(A$(0),1)") ";:(40)256(41)(36),(A$(Z)) `10:A$(13)Z298:A1 aAA1:A296:(A$(A),1)A$97:ZA bA$(Z): (2059)48810:2059,49:- *"BLOAD TURBO BOOT.OBJ,A$ DEFAULT VALUE)":32,H:33,39H:34,V:35,V:X -44::B$;:1:"";A$:(A$)046:A$B$g .:A$;:43 2Z113:"---";::: < =:61(A$)2)A$61(B$)2)B$80):49168,0:2039,(2038): >K(49152):K12862:49168,0:K1551:K16062:u 1000:0жFLAG1 A$:A(A$):A$(27)1:N(20(A$):A$" -->";:44):A;:1:"";A$:B(A$):(A$)42:B(B)BMNBMX41:AB*:A;+:34,4:V:::958:- ,H(36):V(37):" (ENTER "A$" AND PRESS RETURN) (OR PRESS RETURN FOR    " dY83:X4940850945256z n(X)8(X1)120SL(X49408)2561:SL:SL:"";T$:0:0:M((T$,2)):D((T$,4,2)): x:D ::"BRUN TURBO":"CHANGE DATE CURRENTLY ";:46883::DT16446:10:"DATE:MM,DD,YY";:5:100:SLĖ1:"DATE FROM CLOCK IN SLOT "SL:30":";M,D,Y:M1M12D1D31Y8220 DT,M:DT1,D:DT2,Y:16384:"BSAVETURBO,A16384,L760":"RUN HELLOCC:Bȍ:e:µCBp췭µ BCȱBȌ µ;µ(пB:ȱBHHBC hh Ќ(BChhLꢩ뷩 `LҦ 0LEJJJJJ8R LE^),ǴHJJJJiRh)HJJJJJhȈ N ,L/ NHH > Ih > IhDELȮL$Lƴ`p8*]ȴ ` / /L/LF浅:µL HH8:@;@0@1@ /@*@ /@A /@B /@AAB@ۭB0@1@` S ԭ W*r7 " wL]Ll O_  Lg BDE8jDE  ƮL Ơ::8DEDE: ` dų_   ::63 "MONO":0:0:42350:1002:"NOMONO":A"NOMONO":O4K:::(4)"BRUN TURBO":(49152)196Ĺ49168,0:(4)"RUN CHANGE DATE" "THE TURBOCHARGER BY:ROLAND GUSTAFSSON"11)"COPYRIGHT (C) 1982":7)"SILICON VALLEY SYSTEMS, INC.":10)"1625 EL CAMINO REAL #4":12)"BELMONT, CA 94002" A140:"-";: NT TEXT: ";::CT$:10:"CHANGE TO --->";:A$"TEXT":B$CT$:45:CT$(A$" ",12):12:" CHANGE TO: ";::CT$:(59:3000:T2:S3:31:BBF175:A112:B12A,128((CT$,A))::32:x3000:T1:S8:31:BF(1):S9:31:BFBF256132:P,1((A$)0))w16:"ENTER '0' FOR NO TITLE":10:"-->";:A$"TITLE":B$TI$:45:(A$)311230:TI$A$:TI$"0"TI$""59:31:1:40,7:41,B2:TI$;::"@"::32:3000:T2:S3:31:BBF175:A$"":AB11B1:A$A$((A)128)::CT$A$:8:"CURRE)~10:A$(13)1160:A1A31150:HPAA$(HP):958:59:3000:S14:31:BF66,6(HP1)52(HP2)20(HP3):32:T1:S10:31:1:40,117:41,B2:HP$33):32:T17:S0:31:A$"":BBF7A(B):A159A$A$(A128):BB1:1210 TI$("0"A$BF1171:(A)160ĂH VPP:EA:ABF117E:A$A$((A)128)::HP$A$ `8:A$(1)"RUN":A$(2)"BRUN":A$(3)"EXEC":A$"HELLO PROGRAM":A$" TYPE: "A$(HP):6)A$": "HP$ j12:"-->";:B$HP$:45:HP$A$:16:A13:A" - "A$(A): t14:"TYPE-->"HP(8);B2BF256:PP54915 10:A1A61020::A61600:CA:A$(A):50:34,6:C51500:A$"...INSERT DISK...":B$"...AND PRESS SPACE BAR...":60:C1100,1200,1300,1400,1500 L3000:S14:31:A(BF66):HP(A6)2(A52)3(A20):T1:S10:31:A$"":ABF147ES"40)::10)"BY: ROLAND GUSTAFSSON"40):::50:34,4:63950 ::A16:A25:A$(A):A" - "A$(A):::"SELECTION ? SLOT:"(47081)16" DRIVE:"(47082):19:13 SC$"...PRESS SPACE BAR TO CONTINUE...":AB$"...OR 'ESC' TO ABORT...":BF32512:958:! 2A113:"---";:::Q ;A$"...PRESS SPACE BAR TO UPDATE...":B$AB$W < =21:61(A$)2)A$61(B$)2)B$80):49168,0:2039,(2038): >K(49152):K12862:49168,0:K15511:K16062::? 32768::::50::13)"TURBO UTILITI$)42:B(B)BMNBMX41:AB) *:A;D +:34,4:V:::958: ,H(36):V(37):" (ENTER "A$" AND PRESS RETURN) (OR PRESS RETURN TO LEAVE AS-IS)":32,H:33,39H:34,V:35,V: -44::B$;:1:"";A$:(A$)046:A$B$ .:A$;::34,6:V::: 1000( A$:A(A$):A$(27)ı. :C1:33B C2i!0,T:1,S:2,C:BF(0):E(2):Eı"1052:A$"...I/O ERROR...":E16A$"...WRITE PROTECT ERROR..."#B$SC$::61:(20(A$):A$" -->";:44 ):A;:1:"";A$:B(A$):(A  :A$"SUCCESSFUL FORMATTING":@:A$"WRITE PROTECT ERROR":]:A$"DRIVE I/O ERROR":t"SAVE TURBO BOOT ::"@":^A$"PUT DISK TO BE FORMATTED IN DRIVE "(DR):B$"...AND PRESS SPACE BAR...":60:6144::(0)12050,2051,2052:1052:1052:A$"..."A$"...":B$"...PRESS SPACE BAR TO CONTINUE...":61::" USE SAME DATA AGAIN";:Z1:90:Z2000:A$"VOLUME":AVO:MN1:MX254:40:VOA:800,SL:801,DR:802,VO:34,20::0:1,SL16:2,DR:3,VO:8446,DS:8447,DSBS:11842,6(HP1)52(HP2)20(HP3):14949,0:40,117:41,58:HL$31) 1:A((6147)256(6148)7)256:40,256(A(A)):41,A:TI$;1A51020:5:958:A$A$(A):A4A$"FORMAT: "A$g21(A$)2:A$:50:34,2:A1100,1200,1300,1400|:9:"BYE...":L900:2000DS1:900:910:2000BS1:1200?x9:A$"SLOT":ASL:MN1:MX7:40:SLA:A$"DRIVE":ADR:MN1:MX2:40:DRA:"WITH DOS (496 FREE)":A$(3)"WITH DOS & RAM CARD (432 FREE)":A$(4)"CHANGE SLOT & DRIVE CONFIGURATION":A$(5)"EXIT PROGRAM"6:"FORMAT DISK: ":A15:A" - "A$(A):::"SELECTION ? SLOT:"SL" DRIVE:"DR" VOLUME:"VO:18:13210:A$(HP):958:x 32768::::50::8)"TURBO BOOT DISK FORMATTER"40)::11)"BY:ROLAND GUSTAFSSON"40):::50:800 SL(800):DR(801):VO(802):TI$"FORMATTED WITH TURBOCHARGER":HL$"HELLO":HP1A$(1)"WITHOUT DOS (528 FREE)":A$(2) LMM뷍Q݌Hh  ݌    n n nQ n   `HJ ݌h ꝍ݌` FP   *% D-*`,,LLR R$ F      ING...";:ST12:(0)ı<j A$"...BAD COPY !!!..."::61:S"SAVE TURBO COPYZ35,21:21:1:A601:(232A)ĺ"READ ERROR TRACK "AT6:ERER1K>:rD2:2300:T34IN2220:6,T:ST9(0)ı:A$"...UNABLE TO WRITE...":61:ST3:2205SDı A$"...INSERT "D$(D)"...":60:ST:24:` 28:"VERIFY VOLUME",1,0,254#x800,(800):A$"...INSERT DISKS...":SD60:ST:T3417:24:2100:24:2200::(800)2400:ERA$"...SUCCESSFUL COPY...":60:A$"..."(ER)" ERROR"("S",1,ER1)" OCCURRED..."::61:C4D1:2300:6,T:ST6:34,6::34,6:SD((1)(3))((2)(4)):A1100,1200,1300,1400M :9:"BYE...":\ LIN0:2000k IN1:2000 Z15:A$,D,MN,MX:A(Z)D:7Z(Z2):40:Z,AD::"SOURCE SLOT",16,1,7,"SOURCE DRIVE",1,1,2,"DEST SLOT",16,1,7,"DEST DRIVE",1,1,2,"DESTMODE":D$(1)"SOURCE DISK":D$(2)"DESTINATION DISK":B$"...PRESS SPACE BAR TO CONTINUE..." A$(5)"EXIT PROGRAM":6:A15:A" - "A$(A):::V18:900:16:"SELECTION ? "; A$:A(A$):A$(27)1:A1A51020:5:958:A$A$(A)8 21(A$)2:A$:500),3):32,0::u :::50::7)"TURBO COPY DISKETTE COPIER"40)::10)"BY: ROLAND GUSTAFSSON"40):::50:800Y A$(1)"COPY DISK WITHOUT FORMATTING":A$(2)"COPY DISK WITH FORMATTING":A$(3)"CHANGE SLOT & DRIVE CONFIGURATION":A$(4)"TOGGLE VERIFY :(2059)48810:2059,49:n *"BLOAD TURBO COPY.OBJ,A"ST:1,(47081):2,1:3,(47081):4,2:5,254:800,1: V:D$(1)": SLOT:"(1)16" DRIVE:"(2):V1:32,20:" "D$(2)": SLOT:"(3)16" DRIVE:"(4)" VOLUME:"(5)" VERIFY:"("OFFON",13(80H:34,V:35,V:: -44::B$;:1:"";A$:(A$)046:A$B$I .:A$;:43c 2Z113:"---";:::i < =:34,20::61(A$)2)A$61(B$)2)B$80):49168,0:2039,(2038) >:K(49152):K12862:49168,0:K1551:K16062:34,20:: ST6144T1000:0жFLAG0(20(A$):A$" -->";:44q):A;:1:"";A$:B(A$):(A$)42:B(B)BMNBMX41:AB{*:A;+:34,4:V:::958: ,H(36):V(37):" (ENTER "A$" AND PRESS RETURN) (OR PRESS RETURN FOR DEFAULT VALUE)":32,H:33,39  P,INT,BSAVE,BLOAD,BRUN,VERIFYuA(175)(176)2564:B(A)2:AAB2:C0B1:BF(C)A(AC2)256(AC21)::"SAVE TURBO UTILITIES췥뷍  `~`~`D ANGE HELLO PROGRAM INFO,CHANGE TITLE,CHANGE 'DISK VOLUME' TEXT,CHANGE DOS COMMANDS,CHANGE SLOT & DRIVE CONFIGURATION,QUITjSEE,LOAD,SAVE,RUN,CHAIN,DELETE,LOCK,UNLOCK,CLOSE,READ,EXEC,WRITE,POSITION,OPEN,APPEND,RENAME,CATALOG,MON,NOMON,PR#,IN#,MAXFILES,F8:A$"SLOT":A(47081)16:MN1:MX7:40:47081,A16:A$"DRIVE":A(47082):MX2:40:47082,A:r@:8:"BYE...": T0:S0:31:A(BF254):A1ı A$"...NOT A TURBO BOOT DISK...":A0A$"...NO DOS ON THIS DISK..." B$SC$::1052:61:y`CH0`A128:9:"CHARACTERS LEFT:"132P" ":A$:11:B$A$:A$"NEW COMMAND":"-->";:45:L(A$)B1L:BFP,((A$,B))128(BL):PP1:::BFP,0::P132A$"...COMMAND TABLE OVERFLOW..."::1052:B$SC$:61:59:S9:32:BF(2):S8:32:]x` `x gLL  Px취Vȥ뷩췦 g 췭#L8 H *jeh8 LL v8 뷍 鷥jf5 x 췩 췠 LL`͂ $ v  詷 `@ v  D- ܸ -0ڈ`H$ h L`Z L[˽ƭӭ 0 D/. LLLcLLMM뷍݌Hh  ݌    x x x x   `HJ ݌h ꝍ݌` vP઩   *0  D-*`ɛ `,,,,    > r e>, +`@@)  - ?>  -  ׈`d  LԠ҇        ) +`(L8`&&꽌ɪɖ'*&%&,E'зЮ꽌ɪФ`  $(,048<@DHLPTX\`dhlptx|Հ؈䤨谴8`+ a x >? 8T8 Wu v ýI꽌ɪ꽌ɭ蠪& E&] ] H)] ] 쮌)] ] )] + 8$hU>` &'8&,   ') +` / X +JJJJ 6Q PQ=P' \PQ L    (,,   , ,+鷍JJJJx"LϠĮϮӮΠӠˇ  z#췠鷍 x 귍0  )+,/0 3478;<?@  , , , /O L췆 ` `詷 `@ F D- ܸ -0݈`H$ h L`yZ L[˽ƭӭ SPxR취Vȥ뷍 7 췭#췭 7 ANGE HELLO PROGRAM INFO,CHANGE TITLE,CHANGE 'DISK VOLUME' TEXT,CHANGE DOS COMMANDS,CHANGE SLOT & DRIVE CONFIGURATION,QUITjSEE,LOAD,SAVE,RUN,CHAIN,DELETE,LOCK,UNLOCK,CLOSE,READ,EXEC,WRITE,POSITION,OPEN,APPEND,RENAME,CATALOG,MON,NOMON,PR#,IN#,MAXFILES,F8:A$"SLOT":A(47081)16:MN1:MX7:40:47081,A16:A$"DRIVE":A(47082):MX2:40:47082,A:r@:8:"BYE...": T0:S0:31:A(BF254):A1ı A$"...NOT A TURBO BOOT DISK...":A0A$"...NO DOS ON THIS DISK..." B$SC$::1052:61:y`CH0`A128:9:"CHARACTERS LEFT:"132P" ":A$:11:B$A$:A$"NEW COMMAND":"-->";:45:L(A$)B1L:BFP,((A$,B))128(BL):PP1:::BFP,0::P132A$"...COMMAND TABLE OVERFLOW..."::1052:B$SC$:61:59:S9:32:BF(2):S8:32:]NT TEXT: ";::CT$:10:"CHANGE TO --->";:A$"TEXT":B$CT$:45:CT$(A$" ",12):12:" CHANGE TO: ";::CT$:(59:3000:T2:S3:31:BBF175:A112:B12A,128((CT$,A))::32:x3000:T1:S8:31:BF(1):S9:31:BFBF256132:P,1((A$)0))w16:"ENTER '0' FOR NO TITLE":10:"-->";:A$"TITLE":B$TI$:45:(A$)311230:TI$A$:TI$"0"TI$""59:31:1:40,7:41,B2:TI$;::"@"::32:3000:T2:S3:31:BBF175:A$"":AB11B1:A$A$((A)128)::CT$A$:8:"CURREɠŠɠŠ >` gQea v`@@/ D-a?> &-a a҈$8`       $(,048<@DHLPTX\`dhlptx|Հ؈䤨谴L8 췭췦 g 6췭#L8` >?8T8W ýI꽌ɪ꽌ɭ蠪&E&]]H)]]쮌)]])] 8$hUɠŠ" dY83:X4940850945256z n(X)8(X1)120SL(X49408)2561:SL:SL:"";T$:0:0:M((T$,2)):D((T$,4,2)): x:DLE TO WRITE...":61:%ST3:22050SDı^ A$"...INSERT "D$(D)"...":60:ST:24:u"SAVE TURBO COPY:A$"DRIVE I/O ERROR":"SAVE TURBO COPYOCOPY...":60:OA$"..."(ER)" ERROR"("S",1,ER1)" OCCURRED..."::61:4D1:2300:6,T:ST6:34,6:35,21:21:1:A601:(232A)ĺ"READ ERROR TRACK "AT6:ERER1>:D2:2300:T34IN2220:6,T:ST9(0)ı:A$"...UNABZ15:A$,D,MN,MX:A(Z)D:7Z(Z2):40:Z,AD:: "SOURCE SLOT",16,1,7,"SOURCE DRIVE",1,1,2,"DEST SLOT",16,1,7,"DEST DRIVE",1,1,2,"DEST VOLUME",1,1,254A$"...INSERT DISKS...":SD60:ST:T3417:24:2100:24:2200::ERA$"...SUCCESSFUL )" "D$(2)": SLOT:"(3)16" DRIVE:"(4)" VOLUME:"(5):14:13| A$:A(A$):A$(27)1:A1A51020:5:958:A$A$(A) 21(A$)2:A$:50:34,6:SD((1)(3))((2)(4)):A1100,1200,1300 :9:"BYE...": LIN0:2000 IN1:20004 PY DISK WITH FORMATTING":A$(3)"CHANGE SLOT & DRIVE CONFIGURATION":A$(4)"EXIT PROGRAM":D$(1)"SOURCE DISK":D$(2)"DESTINATION DISK":B$"...PRESS SPACE BAR TO CONTINUE..."@ 6:A14:A" - "A$(A):::"SELECTION ? "D$(1)": SLOT:"(1)16" DRIVE:"(2:(2059)48810:2059,49:g *"BLOAD TURBO COPY.OBJ,A"ST:1,(47081):2,1:3,(47081):4,2:5,254: :::50::8)"TURBO COPY DISKETTE COPIER"40)::11)"BY: ROLAND GUSTAFSSON"40):::50:800 A$(1)"COPY DISK WITHOUT FORMATTING":A$(2)"COH:34,V:35,V:: -44::B$;:1:"";A$:(A$)046:A$B$I .:A$;:43c 2Z113:"---";:::i < =:34,20::61(A$)2)A$61(B$)2)B$80):49168,0:2039,(2038) >:K(49152):K12862:49168,0:K1551:K16062:34,20:: ST6144v1000:0жFLAG0(20(A$):A$" -->";:44q):A;:1:"";A$:B(A$):(A$)42:B(B)BMNBMX41:AB{*:A;+:34,4:V:::958: ,H(36):V(37):" (ENTER "A$" AND PRESS RETURN) (OR PRESS RETURN FOR DEFAULT VALUE)":32,H:33,39ING...";:ST12:(0)ı<j A$"...BAD COPY !!!..."::61:S"SAVE TURBO COPYZ>` gQea v`@@/ D-a?> &-a a҈$8`       $(,048<@DHLPTX\`dhlptx|Հ؈䤨谴L8 췭췦 g 6췭#L8` >?8T8W ýI꽌ɪ꽌ɭ蠪&E&]]H)]]쮌)]])] 8$hUx` `x gLL  Px취Vȥ뷩췦 g 췭#L8 H *jeh8 LL v8 뷍 鷥jf5 x 췩 췠 LL`͂ $ v  詷 `@ v  D- ܸ -0ڈ`H$ h L`Z L[˽ƭӭ 0 D/. LLLcLLMM뷍݌Hh  ݌    x x x x   `HJ ݌h ꝍ݌` vP઩   *0  D-*`ɛ `,,,,       LE TO WRITE...":61:%ST3:22050SDı^ A$"...INSERT "D$(D)"...":60:ST:24:u"SAVE TURBO COPYCOPY...":60:OA$"..."(ER)" ERROR"("S",1,ER1)" OCCURRED..."::61:4D1:2300:6,T:ST6:34,6:35,21:21:1:A601:(232A)ĺ"READ ERROR TRACK "AT6:ERER1>:D2:2300:T34IN2220:6,T:ST9(0)ı:A$"...UNABZ15:A$,D,MN,MX:A(Z)D:7Z(Z2):40:Z,AD:: "SOURCE SLOT",16,1,7,"SOURCE DRIVE",1,1,2,"DEST SLOT",16,1,7,"DEST DRIVE",1,1,2,"DEST VOLUME",1,0,254A$"...INSERT DISKS...":SD60:ST:T3417:24:2100:24:2200::ERA$"...SUCCESSFUL )" "D$(2)": SLOT:"(3)16" DRIVE:"(4)" VOLUME:"(5):14:13| A$:A(A$):A$(27)1:A1A51020:5:958:A$A$(A) 21(A$)2:A$:50:34,6:SD((1)(3))((2)(4)):A1100,1200,1300 :9:"BYE...": LIN0:2000 IN1:20004 PY DISK WITH FORMATTING":A$(3)"CHANGE SLOT & DRIVE CONFIGURATION":A$(4)"EXIT PROGRAM":D$(1)"SOURCE DISK":D$(2)"DESTINATION DISK":B$"...PRESS SPACE BAR TO CONTINUE..."@ 6:A14:A" - "A$(A):::"SELECTION ? "D$(1)": SLOT:"(1)16" DRIVE:"(2:(2059)48810:2059,49:g *"BLOAD TURBO COPY.OBJ,A"ST:1,(47081):2,1:3,(47081):4,2:5,254: :::50::7)"TURBO COPY DISKETTE COPIER"40)::10)"BY: ROLAND GUSTAFSSON"40):::50:800 A$(1)"COPY DISK WITHOUT FORMATTING":A$(2)"COH:34,V:35,V:: -44::B$;:1:"";A$:(A$)046:A$B$I .:A$;:43c 2Z113:"---";:::i < =:34,20::61(A$)2)A$61(B$)2)B$80):49168,0:2039,(2038) >:K(49152):K12862:49168,0:K1551:K16062:34,20:: ST6144v1000:0жFLAG0(20(A$):A$" -->";:44q):A;:1:"";A$:B(A$):(A$)42:B(B)BMNBMX41:AB{*:A;+:34,4:V:::958: ,H(36):V(37):" (ENTER "A$" AND PRESS RETURN) (OR PRESS RETURN FOR DEFAULT VALUE)":32,H:33,39     1 <0  ; ; Set volume and gap value ; USRVOLUM VOLUME VTOC+6 #$18 SYNCGAP ; ; Format tracks 00-34 ($00-$22) ; FORMAT TRACK TRACKMOV WRITRACK TRACK TRACK #35 FORMAT TRACK (34) ; ; Now check entir---------------------- ; ENTRY STACK SETSCRN SLOT  DRIVE  $C089,X turn on drive $C089,Y drive 1 or 2 #80 LASTRACK #0 LAST TRACK ; ; Now zero buffer area ;  ^0 $BB00,Y #$56 >1 $BC00,Y ^TRKTXT,X SCREEN-10,X  <0 #15 ^0 SCTTXT,X SCREEN-128,X  <0 #10 ^0 SCTTXT2,X SCREEN-254,X  <0 #23 $FB5B ; TRKTXT "TRACK=" SCTTXT "0123456789ABCDEF" SCTTXT2 "--SECTORS--" ; ';---------------#6 $24 $FDDA   x 2 SLOT $B9A0 ; ; ; ; Clear sector display ; CLRDISP #15 #" " blank ^0 SCREEN,Y  <0  ; ; ; Variables ; CHECKSUM 00 LAST 00 ; ; ; Setup screen display ; SETSCRN #5 ^0 REEN,Y <1 already got this sector CHECKDAT <1 error #' ' inverse $2D SCREEN,Y ; ; Check to see if we are done. ; #15 ^0 SCREEN,Y <1 more sectors to check  <0  ; ; ; Track access routine: ; TRACKMOV ors and checking data ; checksum. Uses table check ; method for minimum latency ; of 12.5 milliseconds. ; CHKTRACK#64 ERROR CLRDISP ; ^1 ERROR 'IOERROR no more of this foolishness CHECKADD <1 keep trying $2D sector SC Applesoft $A5B2 and exit ; ; ; Access RWTS routine ; RWTS TRACK LAST >0 LAST #6 $24 $FDDA CLRDISP ^0 SECTOR #' ' SCREEN,Y #IOB /IOB $B7B5 IOERROR  ; ; ; Check track by reading all ; sect; Try a shorter sync gap ; ^2 SYNCGAP SYNCGAP #$10 minimum gap WRITRACK try again IOERROR ; ; ; Exit routine ; NOERROR #0  2C WRITPROT#1  2C IOERROR #2 ERROR SLOT $C088,X turn off drive STACK  #$4C^1 #' ' inverse space SCREEN,X SLOT WRITADD WRITDAT WRITPROT write protect! SECTOR SECTOR #16 <0 #10 $FCA8 wait a little CHECKADD sector zero? $2D  put carry in sector >2 should be zero  ;  2  2  2  2 ; ; Write out a nybble ; WRNYB 2 SLOT 3  2  2 $C08D,X 5 $C08C,X 4 RTS 6 ; ; ; Write a track ; WRITRACKCLRDISP #0 SECTOR #$50 erase start of track >1 ^0 SYNCGAP ACK WRBYTE SECTOR WRBYTE CHECKSUM WRBYTE #$DE WRNYB #$AA WRNYB #$EB WRNYB $C08E,X turn off write $C08C,X  ; ; Write byte to disk ; WRBYTE 3  2 #$AA 2 $C08D,X 5 $C08C,X 4  4 #$AA 2 UME CHECKSUM ; $C08D,X $C08E,X ; #$FF $C08F,X $C08C,X  3  4 ^0 RTS 12 RTS 12 $C08D,X 5 $C08C,X 4  2  2 <0 3/2 ; #$D5 2 WRNYB #$AA WRNYB #$96 WRNYB ; VOLUME WRBYTE TR; ; WRITDAT $B82A CHECKADD $B944 check address %CHECKDAT $B8DC check data checksum ; ;  $1800  $0800 ; ENTRY ; ; Subroutines first: ;  VTOC ; ; ; ; Write out address data ; Y=# of sync bytes ; WRITADD TRACK SECTOR VOL $3A COUNT $06 ; LASTRACK $0478 ; SCREEN $07DA ; TRACK $B7EC SECTOR $B7ED VOLUME $B7EB IOBSLOT $B7E9 IOBDRIVE $B7EA IOBSLOTL $B7F7 IOBDRIVL $B7F8 BUFLO $B7F0 BUFHI $B7F1 COMMAND $B7F4 IOB $B7E8 ;  ; ; ; Format disk routine ; ; improved version ; by:Roland Gustafsson ; ; ; ERROR $00 ; ; 0=no error ; 1=write protect error ; 2=disk I/O error ; SLOT $01 DRIVE $02 USRVOLUM $03 SYNCGAP $04 STACK $05 TEMP           000000000000000000000 # 00000000000000000000000000000000 # 00000000000000000000000000000000 # 00000000000000000000000000000000 ; ; Buffer area when writing ; directory track ; BUFFER 00 ; ; ;  0FFFF0000FFFF0000FFFF0000 # FFFF0000FFFF0000FFFF0000FFFF0000 # FFFF0000FFFF0000FFFF000000000000 # FFFF0000FFFF0000FFFF0000FFFF0000 # FFFF0000FFFF0000FFFF0000FFFF0000 # FFFF0000FFFF0000FFFF0000FFFF0000 # FFFF0000FFFF0000FFFF0000FFFF0000 # FFFF0000000BUFHI SECTOR <0 TRACK  ; ; VTOC image: ; +VTOC 02110F04000003000000000000000000 # 00000000000000000000000000000000 # 000000000000007A0000000000000000 # 110100002310000100000000FFFF0000 # FFFF0000FFFF0000FFFF0000FFFF0000 # FFFF000 with no error: ; NOERROR ; ; Write range of sectors ; ; X=number of tracks ; Y=starting buffer ; A=starting track ; WRITRANGTRACK COUNT BUFHI #0 BUFLO ^1 >0 COUNT <1  ; ^0 #15 SECTOR ^0 RWTS DF $C088 alt bank WRITRANG #5 #3 tracks #$FF buffer $C080 WRITRANG $C082 turn off card ; ; Now write out DOS ; ^0 $20FE >1 #0 #1 track #$2F >0 ^1 #2 #3 #$4F ^0 WRITRANG ; ; exitBUFFER+$41 $20FF ram card >0 BUFFER+$44 BUFFER+$45 BUFFER+$48 BUFFER+$49 BUFFER+$4C BUFFER+$4D BUFFER+$50 BUFFER+$51 ; ^0 RWTS ; %; Now write out ram card (if needed) ; $20FF >0 not needed #6 #1 #$ BUFFER+1 BUFFER+2 RWTS SECTOR <0 ; ; Now write out VTOC ; DOVTOC #0 ^0 VTOC,X BUFFER,X  <0 ; !; Now set up track 1-6 bit masks ; $20FE DOS? >0 no DOS or BASIC BUFFER+$3C BUFFER+$3D BUFFER+$40 SLOT IOBSLOTL $BE8F develop offset in Y DRIVE $478   $BE81 correct track DRIVE IOBDRIVE IOBDRIVL ; ; Now zero out buffer ; #0  ^0 BUFFER,X  <0 ; ^0 SECTOR #17  DOVTOC >1 #0 ^1 e disk for ; errors in reverse order: ; CHECK TRACK TRACKMOV CHKTRACK check track TRACK CHECK ; ; Now write directory track 17 ; #15 SECTOR #17 TRACK #BUFFER /BUFFER BUFLO BUFHI #2 COMMAND SLOT IOBSCTTXT2 "--SECTORS--" ; ; Turn on destination drive: ; DESTON DSSLOT  DSDRIVE  >0 ; ; Turn on source drive: ; SOURON SRSLOT  SRDRIVE  ^0 $C089,X $C089,Y >1 ; ; fall through to: ; #; Setup LASTRACK by chp screen display ; SETSCRN #5 ^0 TRKTXT,X SCREEN-10,X  <0 #15 ^0 SCTTXT,X SCREEN-128,X  <0 #10 ^0 SCTTXT2,X SCREEN-254,X  <0 #23 $FB5B ; TRKTXT "TRACK=" SCTTXT "0123456789ABCDEF"  ; ; Track access routine: ; SEEK #6 $24 $FDDA   x 2 DSSLOT $B9A0 ; ; Clear sector display ; CLRDISP #15 #" " blank ^0 SCREEN,Y  <0  ; ; ; Variables ; CHECKSUM 00 LAST 00 ; ; ; Setu CHECKADD <1 keep trying $2D sector SCREEN,Y <1 already got this sector CHECKDAT <1 error #' ' inverse $2D SCREEN,Y ; ; Check to see if we are done. ; #15 ^0 SCREEN,Y <1 more sectors to check  <0 ; ; Check track by reading all ; sectors and checking data ; checksum. Uses table check ; method for minimum latency ; of 12.5 milliseconds. ; CHKTRACK#64 ERROR CLRDISP ; ^1 ERROR 'IOERROR no more of this foolishness CHECKESC drive routine: ; DRIVDOWN$C08E,X $C08C,X $C088,X  ; ; Access RWTS routine ; RWTS TRACK LAST >0 LAST #6 $24 $FDDA CLRDISP ^0 SECTOR #' ' SCREEN,Y CHECKESC #IOB /IOB $B7B5 IOERROR  $C000 #$9B ABORTED  ; ; Exit routine ; NOERROR #0  2C WRITPROT#1  2C IOERROR #2  2C ABORTED #3 ERROR $C010 DSSLOT DRIVDOWN SRSLOT DRIVDOWN STACK  #$4C Applesoft $A5B2 and exit ; ; Power downit a little CHECKADD sector zero? $2D  put carry in sector >2 should be zero  ; ; Try a shorter sync gap ; ^2 SYNCGAP SYNCGAP #$10 minimum gap WRITRACK try again IOERROR ; ; Check for ESC abort key: ; CHECKESCRACKCLRDISP #0 SECTOR #$50 erase start of track >1 ^0 SYNCGAP ^1 #' ' inverse space SCREEN,X DSSLOT WRITADD WRITDAT WRITPROT write protect! SECTOR SECTOR #16 <0 CHECKESC #10 $FCA8 wak ; WRBYTE 3  2 #$AA 2 $C08D,X 5 $C08C,X 4  4 #$AA 2  2  2  2  2 ; ; Write out a nybble ; WRNYB 2 DSSLOT 3  2  2 $C08D,X 5 $C08C,X 4 RTS 6 ; ; ; Write a track ; WRIT; #$D5 2 WRNYB #$AA WRNYB #$96 WRNYB ; VOLUME WRBYTE TRACK WRBYTE SECTOR WRBYTE CHECKSUM WRBYTE #$DE WRNYB #$AA WRNYB #$EB WRNYB $C08E,X turn off write $C08C,X  ; ; Write byte to dis ; Write out address data ; Y=# of sync bytes ; WRITADD TRACK SECTOR VOLUME CHECKSUM ; $C08D,X $C08E,X ; #$FF $C08F,X $C08C,X  3  4 ^0 RTS 12 RTS 12 $C08D,X 5 $C08C,X 4  2  2 <0 3/2 OBDRIVL $B7F8 BUFLO $B7F0 BUFHI $B7F1 COMMAND $B7F4 IOB $B7E8 ; ; WRITDAT $B82A CHECKADD $B944 check address %CHECKDAT $B8DC check data checksum ; ;  $1800  $0800 ; SETSCRN FORMAT READ WRITE VERIFY ; ;4 step 7) ; ; SYNCGAP $E0 STACK $E1 TEMP $E2 STATOFF $E3 RETRIES $E4 ; STATUS $E8 ; LASTRACK $0478 ; SCREEN $07DA ; TRACK $B7EC SECTOR $B7ED VOLUME $B7EB IOBSLOT $B7E9 IOBDRIVE $B7EA IOBSLOTL $B7F7 I! ; ; ; Turbo Copy Program ; ; by:Roland Gustafsson ; ; ; ERROR $00 ; ; 0=no error ; 1=write protect error ; 2=disk I/O error ; SRSLOT $01 SRDRIVE $02 ; DSSLOT $03 DSDRIVE $04 DSVOLUME $05 ; ; TRACKNUM $06 (0-3           ; ; ;  $80+$FF00&* *-$1000 ; +TABL1 00000000000000000000000000000000 TABLE1 TABL1-$80 # 00000000000000049899080C9C101418 # A0A1A2A3A4A51C20A8A9AA24282C3034 # B0B1383C4044484CB85054585C606468 # C0C1C2C3C4C5C6C7C8C9CA6CCC707478 # D0D1D2REEN,Y #$0F ^1 READTBL,Y <0 if any still pending  then continue reading <1 no error  24 TRACKERR error this track  ; ; SKEW 00070E060D050C04  0B030A020901080F ; READTBL 0000000000000000  0000000000000000 P ; SRSLOT ; #96 re-try 96 times ERRORS before error ^0 ERRORS TRACKERR CHECKADD <0 $2D sector number READTBL,Y <0 already done BUF+1 hi-byte #0 BUF READBUF <0 $2D #0 READTBL,Y #' ' SC NOERR ; ; Exit ; ERR2  24 NOERR  #$55 (BUF),Y  ; ; Read a track ; ; Y=starting buffer ; A=track (0-22 format) ; READTRAKTEMP SRSLOT SEEK #$0F ^0 SKEW,Y  TEMP READTBL,Y  <0 CLRDISUFMOD2 $FFFF,Y  SLTMOD3 ; SLTMOD4 Q6L SLTMOD4 #$FC #$AC ^0 TABLE1,X TEMPBUF-2,Y TABLE2+2,X BUFMOD1 $FFFF,Y ; SLTMOD5 Q6L SLTMOD5  <0 #$FC TABLE1,X SRSLOT  ERR2 ^0 Q6L,X <0 #$DETABLE1,X TEMPBUF,Y CHKSUMZP  <0 #$AA SLTMOD2 ; BUFMOD3 $FFFF,Y ; SLTMOD2 Q6L SLTMOD2 TABLE1,X TEMPBUF,Y TABLE2,X  BUFMOD3  #$FC #$AA ; SLTMOD3 Q6L SLTMOD3 TABLE1,X TEMPBUF,Y TABLE2+1,X BFMOD3+1 BUFMOD3+2 #$20 ^0 ERR1 ; ^1 Q6L,X <1 TRYD5 #$D5 <0  ; ^0 Q6L,X <0 #$AA TRYD5  ^0 Q6L,X <0 #$AD TRYD5 #$AA #$00 ^0 CHKSUMZP ; SLTMOD1 Q6L SLTMOD1 ; ; ERR1  ; ; READBUF SRSLOT  #$8C SLTMOD1+1 SLTMOD2+1 SLTMOD3+1 SLTMOD4+1 SLTMOD5+1 BUF BUF+1 BUFMOD1+1 BUFMOD1+2  #$54 >0   ^0 BUFMOD2+1 BUFMOD2+2 #$57 >0  ^0 BU0 TRACK ^0 TRACK DSSLOT SEEK CHKTRACK check track TRACK TRACK #35 <0 NOERROR ok ; ; ; Read sector and de-nybblize ; on-the-fly... ; CHKSUMZP $26 BUF $3E ERRORS $40 ; TEMPBUF $0200 Q6L $C08C 8F ^0 BUFHI RWTS SECTOR  >1 TRACK #15 ^1 SECTOR BUFHI BUFHI #$20 <0 NOERROR ; +; Verify disk by scanning in forward order (; from 0-34 after disk has been copied. ; VERIFY STACK  DESTON #0 ; WRITE STACK CLRDISP  DESTON #0 VOLUME BUFLO #1 ^0 $FCA8  <0 #2 COMMAND DSSLOT IOBSLOT DSDRIVE IOBDRIVE  $35 $BE8E LASTRACK $BEA2 TRACKNUM TRACK #15 SECTOR ; #$#$80 buffer start ^0  TRACKNUM READTRAK #0  STATOFF STATUS,Y  ERROR ERROR STATOFF TRACKNUM   #$10 #$20 <0 ERROR >0 NOERROR ^0 IOERROR ; ; Write 7 tracks to destination ; disk.; ; Format tracks 00-34 ($00-$22) ; FORMAT2 TRACK DSSLOT SEEK WRITRACK TRACK TRACK #35 FORMAT2 TRACK (34) NOERROR ; ; Read 7 tracks into buffer ; READ STACK  SOURON #6 STATOFF #0 ERROR ; ; #7 ^0 $BA00  <0 ; #80 LASTRACK #0 LAST TRACK ; ; Now zero buffer area ;  ^0 $BB00,Y #$56 >1 $BC00,Y ^1 <0  ; ; Set volume and gap value ; DSVOLUME VOLUME #$18 SYNCGAP RIES >3 #96 LASTRACK #0 SEEK ORIENT2 ^3 IOERROR ; ';------------------------------------- ; ; ; Format destination disk: ; FORMAT STACK  DESTON ; ; wait 100 usec for old drive ; timing capacitor to discharge ecking disk, !; if no address marks are found, ; then I/O error: ; ORIENT #2 RETRIES ORIENT2 #32 ERROR ^0 ERROR >2 CHECKADD <0 DSVOLUME >0 $2F DSVOLUME ^0 $2E  LASTRACK ^1 ; ^2 RET301E9020301EA010301EB030301EC # 000003ED020003EE010003EF030003F2 # 000203F3020203F4010203F5030203F6 # 000103F7020103F9010103FA030103FB # 000303FC020303FD010303FE030303FF ; ; ;  30 000002B4020002B5010002B6030002B7 # 000202B9020202BA010202BB030202BC # 000102BD020102BE010102BF030102CB # 000302CD020302CE010302CF030302D3 # 000001D6020001D7010001D9030001DA # 000201DB020201DC010201DD030201DE # 000101DF020101E5010101E6030101E7 # 0007CD4D58084D8888C9094989CA0 # E0E1E2E3E4A4A8ACE8B0B4B8BCC0C4C8 # F0F1CCD0D4D8DCE0F8E4E8ECF0F4F8FC ; +TABLE2 00000096020000970100009A0300009B # 0002009D0202009E0102009F030200A6 # 000100A7020100AB010100AC030100AD # 000300AE020300AF010300B2030300B3 #_ ::"BRUN TURBO":"CHANGE DATE CURRENTLY ";:46883::DT16446:10:"DATE:MM,DD,YY";:5":";M,D,Y:M1M12D1D31Y8220:DT,M:DT1,D:DT2,Y16384:"BSAVETURBO,A16384,L760":"RUN HELLO"S " dY83:X4940850945256z n(X)8(X1)120SL(X49408)2561:SL:SL:"";T$:0:0:M((T$,2)):D((T$,4,2)): x:D ::"BRUN TURBO":"CHANGE DATE CURRENTLY ";:46883::DT16446:10:"DATE:MM,DD,YY";:5:100:SLĖ1:"DATE FROM CLOCK IN SLOT "SL:30":";M,D,Y:M1M12D1D31Y8220 DT,M:DT1,D:DT2,Y:16384:"BSAVETURBO,A16384,L760":"RUN HELLO!!