"TURBO.BIN", UUencoded
                                       
   From: John Iannetta <76703.4244@compuserve.com>
   Reply to: John Iannetta
   Date: 26 Oct 1998 09:20:59 PST
   Organization: Concentric Internet Services
               *** comp.binaries.cbm is a moderated binaries- ***
               ***      only newsgroup (no discussion or      ***
               *** crossposting allowed) for Commodore 8-bits ***
               ***                                            ***
               *** For information on comp.binaries.cbm visit ***
               ***  http://www.concentric.net/~cdkaiser/cbc/  ***
               ***                                            ***
               ***  This file is also available via FTP from  ***
               ***     ftp://videocam.net.au/cbm/incoming     ***
               *** (allow time for submission to be received) ***


    This is "TURBO.BIN", UUencoded.  It is an old-timer by Eddie Carroll of
Ireland for the Commodore-64 and the 1541 drive.  The program is now Public
Domain.  Load and run the program to create two files, one named "!" and one
named "!.instructions".  The former is the executable; do a:

load"!",8,1 <RETURN>

to install a program that has several functions (described in the other file).
One of them makes all of your disk loads five times as fast.  Another gives you
a disk directory by typing in:

verify"$ <RETURN>

which does not affect any BASIC program in memory.  Also, you may type in:

verify <RETURN>

to display the error channel.

    This was the first program that Jim Butterfield uploaded to the CompuServe
CBMAPP forum.  There was a minor flaw in the text part, and I disassembled part
of the file.  I saw a text line that Carroll ended with a string of spaces; it
was followed by a routine that started with a LDY immediate.  So what did
Carroll do?  He replaced the last space ($20) with a shifted space ($A0), the
opcode for LDY immediate.  That saved a byte!  I doubt that Windows programmers
would appreciate such tactics.

begin 644 turbo.bin
M`0@C"&0`F2`B5%520D],3T%$+U9$3U,@0U)%051/4BXN+B(`0PAN`)\@,34L
M."PQ-3J7(#(U,BPQ,#`ZES(U,RPP.0!>"'@`@R`A+"$N24Y35%)50U1)3TY3
M+$5.1`!X"((`AR!&)#J+($8DLB)%3D0B((D@,C`P`)X(C`"9(")#4D5!5$E.
M1R!&24Q%("([QR@S-"D[1B0[QR@S-"D`N0B6`)\@."PX+#@L(C`Z(JI&)*HB
M+%`L5R(`UPB@`(0Q-2Q%+$4D+$4Q+$4R.HL@12"G()D@120`X@BJ`)X@,C,W
M-0``";0`A#$U+$4L120L13$L13(ZBR!%(*<@F2!%)``.";X`H"`X.HD@,3,P
M`!<)R`"@(#$U`$4)T@"9(")"12!355)%(%1/(%)%040@5$A%($E.4U1254-4
M24].($9)3$4A(@```*(((,G_H`"Q_.;\T`+F_<D[\`8@TO],3@D@S/]@&@,+
M",('GC(Q-CD````T`^WV/O$O\V;^I?3M]2`5_7BI,(4!H`"YX`.9@-JYX`29
M@-NYX`69@-RYX`:9@-W(T.4@SMH@,Z6E(AAI`H4MI2-I`(4N(&"FI+>(T`-L
M`J"(A+>ENQAI`H6[D`+FO*D!A;FII$BI?TA,;^&I886YJ0&BWZ`#(+W_H`"Y
M`0B9&@.Y`0F9&@2Y`0J9&@6Y`0N9&@:YQ0N9W@;(T-\@U?.I&H7!J0.%PJG1
MA:ZI!X6O(`OVJ0&%MTPT`R$@B=H@\MI,:LT(2([^VHS_VJG;C:?:C:[:J<N-
MJ]J-LMJB!:``N0#;2+D`RYD`VVB9`,O(T._NI]KNKMKNJ]KNLMK*T."N_MJL
M_]IH*&`8)#AX2*4!A9*I,(4!D`-,[-I,@-H@B=JEDH4!6&`@B=I,!<R@'KG.
MVIGA`H@0]V```&`5_23%4/P@C\T@ELT@2,L@2,L@UZH@/ZL@2,L@2,L@2,NJ
M($C+(,V](#^K($C+\.*DT\`9T`O)(/`'2*DZ(-+_:"#2_TPLRR"E_R20<!DD
MD1`2),5P#"3%4/PDQ7#\),50_*A@(->J(*O_($+V(->J(#^KI;H@M/^I;R"6
M_R"E_R#2_\D-T/8@J_^I`(7&HON:J:2@<TPDS:``R-#]IJRM(-#N(-`L`-TP
M^(X`W8T@T*T2T$D"*0;P]Z6MC0#=2&A(:.JM`-U*2NH-`-TI\(WCRZT`W4I*
MZ@T`W8X`W4I*2DH)\)D`S\C0QZ6MC0#=8*T"SZP#SZ:KT`2EPZ3$A:Z$KTPX
MS:DWA0%8:(63I;F%JZ6ZR0'0!*D(A;K)!)`/H`"QN\DDT`ZED_`#3`/+H*:I
M]$PDS:63\`JEM]`#3&[+3$C-I;?0!Z`/J?=,),T@K_4@C\T@ELT@I?^ED$I*
MD`>@`ZGW3"3-(-+UH`",%=`@7<VI5R"H_Y@@J/^I!B"H_ZD>(*C_HAZYV,T@
MJ/_(RM#V(*[_P)J0UR!=S:E%(*C_J0`@J/^I!B"H_R"N_WBM`-TI`PD$A:T)
M$(6L()G+(/#+H@30"2"9RZDPA0&B`J``K0#/\!0P,;T`SY&N(#+-Z-#UJ3>%
M`4S%S,J]`<^1KB`RS>CL`<^0\JDWA0&EK\G0D`3I$(6O&"0X"*6L"<R-`-T@
MH,VI22"H_R"N_R``RRB@J:GU2)A(>*DPA0$@\MI,]@+FKM`1YJ^EK\G+D`G)
M`+`%&&D0A:]@(*#-H`"QNR"H_\C$MY#V(*[_3(_+(*#-J4T@J/^I+4RH_VBI
M-X4!A9*I`(TAT*D&C2#0J:R@S2`>JZGCH`*-,`.,,0-,)\VI8(6Y(-7SI;H@
MM/^EN4R6_ZEO2*6Z(+'_:$R3_Y,1GB!455)"3TQ/040@*R!61$]3(#<S-R`M
MF2!"62!%1$19($-!4E)/3$P-H`"8*0^JO8H&F0`$F$I*2DJJO8H&F0`%R-#G
MI1B%!J49A0>IL(4`I0`P_*F`A0"E`##\>,D!\`6I_XT``ZD"C0`8"BP`&/#[
MO@`#+``8T/N]``6-`!@**0_JC0`8O0`$ZHT`&`HI#^J-`!BI!,CJC0`8T-18
MK0$#A0>M``/P"C`(Q0:%!O"DT)I@#P<-!0L#"0$.!@P$"@((.P$(&@@*`%$D
MLL<H,S0I.E8DLB*9UL3/TQXB`#`(%`"7-3,R.#`L-CJ7-3,R.#$L,`!#"!X`
M@52R,:0V.H=#*%0I.H(`5P@H`(,@-BPQ-"PS+#$L,RPQ-`!A"&0`C3(P,#``
MD0AN`)D@(B#42$E3(%!23T=204T@15A03$%)3E,@2$]7(%1/(%5312`B5B0B
M+B(`P`AX`)DB$2`B5B0B($E3($$@1$E32R!55$E,2519(%=(24-((%-0145$
M4R!54`#N"((`F2(1($1)4TL@3U!%4D%424].($)9($9)5D4@5$E-15,L($%,
M3$]74R(`'`F,`)DB$2!42$4@1$E214-43U)9(%1/($)%($1)4U!,05E%1"!7
M251(3U54`$L)E@"9(A$@3$]324Y'(%1(12!04D]'4D%-($E.($U%34]262P@
M04Y$($%,4T\`>@F@`)DB$2!!3$Q/5U,@5$A%($524D]2($-(04Y.14P@5$\@
M0D4@4TA/5TXN(@"Q":H`F2(1(-1(12`B5B0B(%!23T=204T@25,@0T%,3$5$
M()DB420B(2)1)"(>($].($1)4TL`X0FT`)DB$2!"14-!55-%(%1(25,@25,@
M5D5262!154E#2R!43R!465!%($E.+B(`[`F^`(T@,3`P,``;"M(`F2(@(E8D
M(B!#04X@0D4@24Y35$%,3$5$($E.($U%34]262!)3B!/3D4B`#T*W`"9(A$@
M3T8@5$A2144@1$E&1D5214Y4(%=!65,Z(@!;"N8`F2(1$2">,2D@SD]234%,
M(,%55$]"3T]4(@"("O``F2(1(")6)"(@25,@3D]234%,3%D@3$]!1$5$($E.
M5$\@345-3U)9(@"["OH`F2(1(%=)5$@@5$A%($-/34U!3D0@F<S/P<0B420B
M(2)1)"(L."PQ'BX@UTA%3@#K"@0!F2(1($E4($E3($Q/041%1"P@250@5TE,
M3"!"12!!551/34%424-!3$Q9(@`:"PX!F2(1($E.4U1!3$Q%1"!)3B!-14U/
M4EDN(,%.62#"P=/)PR!04D]'4D%-`$D+$P&9(A$@5TA)0T@@5T%3($E.($U%
M34]262!724Q,(,[/U"!"12!,3U-4+B(`4PL8`8TQ,#`P`'`+0`&9(B">,BD@
MP5543T)/3U0@4%)/1U)!32(`GPM*`9DB$1X@UTE42"!42$E3($U%5$A/1"!/
M1B!,3T%$24Y'(")6)"(L($E4(@#."U0!F2(1($E3(%!/4U-)0DQ%(%1/(%-0
M14-)1ED@02!04D]'4D%-(%1/($)%`/T+7@&9(A$@3$]!1$5$($E.($E-345$
M24%414Q9($%&5$52(")6)"(N(-5312(`,@QH`9DB$2!42$4@0T]-34%.1""9
MS,_!Q")1)"(A*D9)3$5.04U%(E$D(BPX+#$>($%.1`!>#'(!F2(1($%3(%-/
M3TX@05,@(E8D(B!(05,@3$]!1$5$+"!)5"!724Q,`)(,?`&9(A$@3$]!1"!)
M3B"9(E$D(D9)3$5.04U%(E$D(AX@050@5%520D\@4U!%140N(@"<#(8!C3$P
M,#``S@R0`9DB(-1(12!!1%9!3E1!1T4@3T8@5$A)4R!)4R!42$%4($E&()DB
M420B(2)1)`#[#)H!F2(1'B!)4R!3059%1"!/3E1/($$@1$E32RP@04Q,(%1(
M12!/5$A%4@`J#:0!F2(1(%!23T=204U3($].(%1(12!$25-+($U!62!"12!,
M3T%$140@0EDB`%H-K@&9(A$@5%E024Y'($].3%D@04X@15A44D$@5%=/($-(
M05)!0U1%4E,@24XB`(D-N`&9(A$@5$A%($9)3$5.04U%+B#42$E3($)224Y'
M4R!54R!.24-%3%D@3TX`LPW"`9DB$2!43R!42$4@5$A)4D0@5T%9(%1/($Q/
M040@UL3/TRXN+B(`O0W,`8TQ,#`P`-X-]`&9("*>(#,I(-;$S],@PU)%051%
M4B#04D]'4D%-``L._@&9("(1'B#)1B`B5B0B($E3($Q/041%1"!)3E1/($U%
M34]262!7251(`$$."`*9(A$@5$A%($-/34U!3D0@F<S/P<0B420B(2)1)"(L
M.!X@250@5TE,3"!,3T%$($E.`&X.$@*9(A$@05,@02!.3U)-04P@4%)/1U)!
M32!72$E#2"!-05D@0D4@4E5.`)L.'`*9(A$@3U(@3$E35$5$+B#72$5.(%1(
M25,@4%)/1U)!32!)4R!254XL`,H.)@*9(A$@04X@15A!0U0@0T]062!/1B`B
M5B0B(%=)3$P@0D4@4T%6140@3TX`]0XP`IDB$2!42$4@1$E32R!)3B!42$4@
M1$E32R!$4DE612!!3D0@(E8D`"`/.@*9(A$@5TE,3"!42$5.($)%($E.4U1!
M3$Q%1"!!4R!.3U)-04PN(@`J#TX"C3$P,#``6`]8`IDB(,E4($E3($Y%0T53
M4T%262!43R!-04M%($-/4$E%4R!/1B#6Q,_3`(4/8@*9(A$@24X@5$A)4R!7
M05D@4TE.0T4@248@(E8D(B!705,@4T%6140B`*\/;`*9(A$@55-)3D<@5$A%
M($Y/4DU!3"#3P=;%($-/34U!3D0L($E4`-X/=@*9(A$@5T]53$0@3D]4($%5
M5$]254X@5TA%3B!)5"!705,@3$]!1$5$+B(`Z`][`HTQ,#`P`/\/@`*9(IX@
MU5-)3D<@(E8D(IXZ'B(`+1"*`IDB$2#72$5.(")6)"(@25,@04-4259%+"!!
M3$P@3$]!1$E.1R!724Q,`%D0E`*9(A$@3D]7(%1!2T4@4$Q!0T4@050@5%52
M0D\@4U!%140N(-;$S],`A1">`IDB$2!!3%=!65,@05-354U%4R!42$%4($Q/
M041)3D<@25,@1E)/30"T$*@"F2(1($1)4TL@4T\@250@25,@3D]4($Y%0T53
M4T%262!43R!)3D-,541%`.P0L@*9(A$@5$A%()DB420B+#@B420B'B!)3B!4
M2$4@S,_!Q"!#3TU-04Y$($%.62!-3U)%+B(`&Q&\`IDB$2#)3B!!1$1)5$E/
M3BP@(E8D(B!-3T1)1DE%4R!42$4@UL72R<;9(@!)$<8"F2(1($-/34U!3D0@
M5$\@04-4($E.(%1(12!&3TQ,3U=)3D<@5T%94SH`5!'+`HT@,3`P,`!J$=`"
MF2`BGB#6Q=+)QMDB420B)"(`EA'5`IDB$1X@U$A)4R!#3TU-04Y$(%=)3$P@
M1$E34$Q!62!42$4@1$E32P##$=H"F2(1($1)4D5#5$]262!/3B!42$4@4T-2
M145.+B#!3ED@4%)/1U)!30#Q$>0"F2(1($E.($U%34]262!724Q,($Y/5"!"
M12!/5D525U))5%1%3BX@U$\`'A+N`IDB$2!0055312!42$4@1$E34$Q!62P@
M4%)%4U,@04Y9($M%62X@R48`2A+X`IDB$2#2U<XOT]3/T"!)4R!04D534T5$
M+"!42$4@1$E214-43U)9(@!D$@(#F2(1(%=)3$P@0D4@04)/4E1%1"XB`&X2
M#`.-,3`P,`"0$A8#F2(@GM;%TLG&V2)1)")#3TU-04Y$(%-44DE.1R(`R1(@
M`YDB$1X@U$A)4R!724Q,(%-%3D0@F2)1)")#3TU-04Y$(%-44DE.1R)1)"(>
M(%1/(%1(12(`_A(J`YDB$1X@1$E32R!$4DE612X@F2)1)")#3TU-04Y$(%-4
M4DE.1R)1)"(>($U!62!"10`N$S0#F2(1($%.62!/1B!42$4@55-504P@1$E3
M2R!#3TU-04Y$4R!354-(($%3(@!=$SX#F2(1()DB420B23`B420B'B!!3D0@
MF2)1)")3,#I04D]'4D%-(E$D(AXB`&<30P.-,3`P,`!X$T@#F2`BGB#6Q=+)
MQMD>`*834@.9(A$@U$A%()G6Q=+)QMD>($-/34U!3D0@1TE614X@3TX@2513
M($]73@#5$UP#F2(1(%=)3$P@1TE612!!(%!224Y43U54($]&(%1(12!$25-+
M($524D]2`/439@.9(A$@0TA!3DY%3"!/3B!42$4@4T-2145.+B(`_Q-K`XTQ
M,#`P`"X4<`.9(B`B5B0B($]#0U502453($U%34]262!&4D]-("3$P3@P+23$
MQ3@P+B(`7!1U`YDB$2#42$E3($%214$@3T8@345-3U)9($E3(%53140@0ED@
M2$%21$Q9`(@4>@.9(A$@04Y9(%!23T=204U3+B#(3U=%5D52+"!)1B!!(%!2
M3T=204T`MA1_`YDB$2!54T53(%1(25,@05)%02P@5$A%3B`B5B0B(%-(3U5,
M1"!.3U0B`-`4A`.9(A$@0D4@55-%1"!7251(($E4+B(`_12.`YDB$2`@("#!
M1E1%4B!!(%)53B]35$]0+5)%4U1/4D4L(")6)"(@25,`*Q68`YDB$2!$25-!
M0DQ%1"X@R50@0T%.($)%(%154DY%1"!"04-+($].($)9`$85H@.9(A$@5%E0
M24Y'()[3V=,@-S,W'BXB`'$5K`.-(#$P,#`@("`@("`@("`@("`@("`@("`@
M("`@("`@("`@("`@(`"<%;8#F2(@(E8D(B!!3%-/($U!2T53(%5312!/1B!3
M5$%#2R!-14U/4ED`RQ7``YDB$2!&4D]-()XS,#`M,S,P'BX@U$A)4R!!4D5!
M($]&(%1(12!35$%#2P#W%<4#F2(1($E3($Y/4DU!3$Q9(%5.55-%1"!"62#"
MP=/)PRX@R48@1D]2`"$6R@.9(A$@4T]-12!214%33TXL(%1(25,@25,@3U9%
M4E=2251414XL`%`6SP.9(A$@(E8D(B!32$]53$0@0D4@1$E304),140@04Y$
M(%)%3$]!1$5$+B(`?1;4`YDB$2#43R!$25-!0DQ%(")6)"(L(%E/52!.145$
M($].3%D@4%)%4U,`JQ;6`YDB$2!254XO4U1/4"U215-43U)%+B#42$4@05)%
M02!/1B!-14U/4EDB`-86V0.9(A$@1E)/32`D,#+%,2!43R`D,#+&Q2!)4R!!
M3%-/(%53140N(@#@%MH#C3$P,#``"Q?>`YDB$2`@("`@(")6)"*9(%=!4R!7
M4DE45$5.($E.(#$Y.#8@0EDZ`"47WP.9+"(1$9G%1%=!4D0@PT%24D],3"(`
M/Q?@`YDL(C$W(,=2145.5DE,3$4@TD]!1`!0%^$#F2PBPDQ!0TM23T-+`&(7
MX@.9+"+#3RX@Q%5"3$E.`'$7XP.9+"+)4D5,04Y$`)(7Y`.9+"(1U$5,15!(
M3TY%.B#$54),24X@.#`Q,C0Y`,,7Y0.9(A$1(,%,3"!#3TU-14Y44R`F($-2
M251)0TE335,@05)%(%=%3$-/344N(@#-%^8#C3$P,#``[1?G`YDB$1%,3T%$
M(E$D(B$B420B+#@L,9&1D2(Z@`#[%^@#ES(Q-"PR,CJ9`"H8\@.9(B`@("`@
M("#04D534R`?/-/0P</%/AX@5$\@0T].5$E.5461(CI7LC``/1C\`U>R5ZHQ
M.HM7LC>G5[(Q`'48!@27-C0V+$,H5RDZF2PB'1T=/-/0P</%/I$B.H%4LC&D
M-CJA020ZBT$DLB(BIX(ZB3$P,C``J!C0!YD@(I,>"`X1("`@PT]-34]$3U)%
M(#8T(")6)"(@QD%35"#$25-+(--94U1%32(`U1C:!YDB$2`@("`@("`@("C#
D*2"9Q41705)$(,-!4E)/3$P>(#$Y.#81$2(`VQCD!XX````[
`
end
--
Cameron Kaiser * cdkaiser.cris@com * powered by eight bits * operating on faith
 -- supporting the Commodore 64/128:  http://computerworkshops.home.ml.org/ --
   head moderator comp.binaries.cbm * cbm special forces unit $ea31 (tincsf)
personal page http://calvin.ptloma.edu/~spectre/ * "when in doubt, take a pawn"