• One From The Vault: "TURBO.BIN", UUencoded (6K)

    From Cameron Kaiser@21:1/5 to All on Mon May 10 17:40:01 2021
    ******************************************************************
    *** ***
    *** 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.floodgap.com/comp.binaries.cbm/ ***
    *** ***
    *** This file is available via mailing list at ***
    *** http://lists.trikaliotis.net/listinfo/comp-binaries-cbm/ ***
    *** to list subscribers ***
    *** Allow time for submission to be received ***
    *** ***
    ******************************************************************

    * One from the Vault is a collection of frequently requested, useful or just
    plain interesting past posts sent to comp.binaries.cbm, as archived by the
    moderators. If you have a request, please send it to the address in the
    headers. In addition to being selected and reposted by moderation staff,
    some of these postings are regularly posted on Mondays and Fridays on a
    rotating schedule.

    Take care when replying to these messages, as many were posted years ago.


    From: John Iannetta <76703.4244@compuserve.com>
    Reply-to: John Iannetta <76703.4244@compuserve.com>
    X-Original-Posting-Date: Thu, 22 Oct 1998 11:28:26 -0400

    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 * ckaiser@floodgap.com * posting with a Commodore 128
    Floodgap Systems: http://www.floodgap.com/
    personal page: http://www.cameronkaiser.com/

    --- SoupGate-Win32 v1.05
    * Origin: fsxNet Usenet Gateway (21:1/5)