******************************************************************
*** ***
*** 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: Cameron Kaiser <ckaiser@stockholm.ptloma.edu>
Reply-to: Cameron Kaiser <ckaiser@stockholm.ptloma.edu> >X-Original-Posting-Date: 23 October 2002

As promised in comp.sys.cbm, here is Torquemada 1541. Because of its programming and its intent to bang the #$%%! out of the drive head,
bear in mind THIS PROGRAM CAN CAUSE AS MUCH DAMAGE AS IT MIGHT REPAIR.
YOU USE THIS PROGRAM AT YOUR OWN RISK!

Torquemada 1541 is designed to attempt improving a drive's alignment
with multiple sequential seeks to the drive head's extents, as well as intermittent BUMPs (slamming the drive head back). This can help with
sticky or uncooperative heads, and may make a drive functional enough to
read data without opening it up. It was written out of desperation when
three drives failed on me within a week, and to my disbelief, Torquemada
cured two of them (the other just had dirty heads). But your mileage
may vary!

An alignment master is ABSOLUTELY REQUIRED. This disk should be formatted
in God's Own Holy 1541 (i.e., a 1541 that's absolutely pristine with
perfect alignment), and it should be write-protected. Torquemada will use
this disk as its calibrated standard. I use the Epyx Vorpal Toolkit disk.

When you start, Torquemada will verify the firmware can respond properly,
and then prompt you for the alignment master and attempt to read it. The program just makes sure the disk can be initialised, which may or may not
be enough to properly test drive function. You can ignore the warning that
the BAM is (now) readable and force bump'n'seek by typing Y at the prompt.
If the BAM is not readable, Torquemada will automatically start the
bump'n'seek cycle until it becomes readable.

Four cycles of seek 35/bump/seek 1 are run, and then the BAM is rechecked.
On an older 1541, this can cause quite a racket -- this is normal (?). Repeat as desired. Hold the space bar to cancel a run or quit.

For those interested in how the program works, the subroutine at line 5500
is a general purpose FDC job code dispatcher. See "Inside Commodore DOS" for
an excellent explanation of the process. Some other goodies include proper values for REVCNT (set to no bumps/no seeks before reading BAM to ensure the cleanest read possible, and set to max bumps/seeks during bump'n'seek to
give the drive head the most vicious workout possible), and using the write protect sensor to check for the presence of a disk or tab.

This program is not designed for clone 1541s, 1581s or CMD FDs, and because 1571s rarely go out of alignment, the program offers a special warning to remind you (which you can, of course, ignore).

This program is also not designed to replace proper alignment with tools and elbow grease, but as a temporary quick fix to get a drive in working order quickly. Remember, the head impact techniques used can potentially make a bad alignment problem worse -- use this program ONLY AS A LAST RESORT, before opening the drive and aligning it manually.

Cameron Kaiser



begin 644 torquemada1541.prg M`0@:"`H`F2(25$]2455%34%$02`Q-30QDB(`1@@4`)DB5$A)4R!04D]'4D%- M(%=)3$P@34]"24Q)6D4@64]54B!$25-+(@!S"!X`F2)(14%$(%1/($E44R!- M05A)355-($585$5.5%,@55-)3D<@5$A%(@"B""@`F2)&1$,@0E5-4"!!3D0@ M4T5%2R!*3T)3($%.1"!!3B!!3$E'3DU%3E0B`,\(,@"9(DU!4U1%4B!$25-+ M(%E/52!)3E-%4E0N(%1(25,@34%9($A%3%`B`/T(-P"9(D-54D4@4U1)0TM9 M($A%0413($]2($%,24=.345.5"!%4E)/4E,N(@`#"3P`F0`R"48`F2(25T%2 M3DE.1R$A(9(@5$A)4R!04D]'4D%-(%-(3U5,1"!.3U0@0D4B`%X)4`"9(E53 M140@3TX@1E5.0U1)3TY!3"!$4DE615,L($%3($E4($U!62(`C`E:`)DB4%54 M(%1(14T@+2U/550M+2!/1B!!3$E'3DU%3E0A(%E/52!54T4B`+0)9`"9(E1( M25,@4%)/1U)!32!!5"!93U52($]73B!225-+(2$A(@"Z"6X`F0``"G@`F2)# M3U!94DE'2%0@,C`P,B!#04U%4D].($M!25-%4B(ZF2)42$E3($E3($%4(%E/ M55(@3U=.(%))4TLM5T%212(`%PJ"`(4B4%)%4U,@4D5455).(CM7)`!3"HP` MA2(11$5624-%($Y534)%4B([1%8ZBT16LSBP1%:Q,3&GF2)"040@1$5624-% M("TM($)912(Z@`"&"I8`F2)#2$5#2TE.1R!&3U(@1$5624-%(CJ?,34L1%8L M,34ZH#$U.HM35+(PB3$W,`"S"J``F2(21$5624-%(D16(D1/15,@3D]4($%0 M4$5!4B!43R!%6$E35"(Z@`#R"JH`F2)#2$5#2TE.1R!$159)0T4@4TE'3D%4 M55)%(CJ?,34L1%8L,34L(E5)(CJ$,34L14XL14TD.J`Q-0`K"[0`BT5.L[$W M,Z>9(A)53D584$5#5$5$(%)%4U!/3E-%($-/1$4B14XB1E)/32!$4DE612(Z M@`!,"[X`1%0DLLDH14TD+#0I.HM$5"2R(C$U-#$BB3(U,`!@"\@`BT14)+(B M,34W,2*),C,P`*$+T@!!)+(B3D]4($$@,34T,2!/4B`Q-3<Q(2(Z0B2R(E1( M25,@34%9($Y/5"!73U)+(2(ZC34P,#`ZBT58IX``J@O<`(DR-3``]@OF`$$D MLB)42$E3($E3($$@,34W,2$B.D(DLB(Q-3<Q($12259%4R!205)%3%D@1T\@ M3U54($]&($%,24=.345.5"$B.HTU,#`P```,\`"+15BG@``L#/H`F2(11%)) M5D4@04Y$($9)4DU705)%(%-%14T@3U!%4D%424].04PB`%8,!`&9(DE.4T52 M5"`25U))5$4M4%)/5$5#5$5$DB!!3$E'3DU%3E0B`'D,#@&9(DU!4U1%4B!) M3E1/($1%5DE#12)$5CJ7,3DX+"X`FPP8`84B4%)%4U,@4D5455).(%=(14X@ M4D5!1%DB.T$D`-$,(@&?,34L1%8L,34ZF#$U+")-+5(BQR@P*<<H,C@I.J$C M,34L020Z0;+&*$$DJL<H,"DI`.D,+`&@,34Z0;)!KS$V.HM!LC"),S(P`"L- M-@%!)+(B4T5.4T]2($524D]2(2(Z0B2R(DY/($1)4TL@3U(@3D]4(%=2251% M(%!23U1%0U1%1"$B.HTU,#`P`#4--P&+15BG@`!9#4`!CR`J*BH@34%)3B!, M3T]0(%-405)44R!(15)%("HJ*@"0#4$!GS$U+$16+#$U+")-+5<BJL<H,3`V M*:K'*#`IJL<H,2FJQR@Q.3,I.H0Q-2Q%3CJ@,34`T@U"`8M%3K.Q,*>9(A)% M4E)/4B)%3B)72$5.($-(04Y'24Y'(%)%5D-.5"(ZF2)#2$5#2R!$4DE612!2 M04TB.H``^@U%`9\Q-2Q$5BPQ-2PB23`B.H0Q-2Q%3BQ%320L150L15,ZH#$U M``D.2@&+14ZSL3"),S0R`%`.5`%!)+(B5D%,240@5%)!0TL@,3@@4D5!1"$B M.D(DLB)"04T@4T5%35,@5$\@0D4@4D5!1$%"3$4@3D]7(2(ZC34P,#``B@Y5 M`8M%6+(QIYDB$5)%4T545$E.1R`N+BX@(CLZGS$U+$16+#$U+")5.B(ZH#$U M.IDB0EE%(CJ``+\.5@&?,34L1%8L,34L(DTM5R*JQR@Q,#8IJL<H,"FJQR@Q M*:K'*#`I.H0Q-2Q%3CJ@,34``0]8`8M%3K.Q,*>9(A)%4E)/4B)%3B)72$5. M($-(04Y'24Y'(%)%5D-.5"(ZF2)#2$5#2R!$4DE612!204TB.H``+@]9`9DB M$4A/3$0@4U!!0T4@5$\@0T%.0T5,($12259%($]015)!5$E/3B(`3@]=`9DB M$D1/24Y'($)535`G3B=3145+("XN+ATB.P!G#UX!GS$U+$16+#$U.H%9LC&D M-#J963L`IP]H`52R,S4Z4[(P.DJR,3<V.HTU-3`P.HM%L[$QIYDB$D9$0R!% M4E)/4B)%(D].(%-%14L@5%)!0TL@,S4B`-T/<@%4LC$Z4[(P.DJR,3DR.HTU M-3`P.HM%L[$QIYDB$D9$0R!%4E)/4B)%(D].($)535`B`!L0?`%4LC$Z4[(P M.DJR,3<V.HTU-3`P.HM%L[$QIYDB$D9$0R!%4E)/4B)%(D].(%-%14L@5%)! M0TL@,2(`,A"&`8O"*#$Y."FSL3"GF3I9LCDY.0!J$)`!@CJ@,34ZF3J+6;$Y M.3BG022R(E5315(@0T%.0T5,3$5$(2(ZC34P,#`ZBT58LC&),S0Q`',0F@&) M,S(P`'D0AQ.``*<0B!-%6+(P.IDB$E=!4DY)3D<A(2&2(")!)#J+0B2SL2(B MIYE")#I")+(B(@#G$)(3ES$Y."PN.H4B0T].5$E.544@04Y95T%9("A9+TXI M(CM!)#I!)++(*$$D+#$I.HM!)+.Q(EDBIT58LC$`[1"<$XX`]A!\%4-9LC`` M&!&&%9@Q-2PB32U7(L<H-BG'*#`IQR@R*<<H5"G'*%,I`#81D!68,34L(DTM M5R+'*#`IQR@P*<<H,2G'*$HI`&D1FA5#6;)#6:HQ.I@Q-2PB32U2(L<H,"G' M*#`I.J$C,34L020Z1;+&*$$DJL<H,"DI`(X1I!6+0UFQ-3`PIYDB$E1)345/ I550@3TX@1D1#($I/0B(ZC@">$:X5BT6Q,3(WB34U,S``I!&X%8X```!)
`
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)