[comp.sys.ibm.pc] AT 720K disk driver

jl42+@andrew.cmu.edu (Jay Mathew Libove) (08/05/87)

I have and have sent to a number of people already a driver that I
have used with complete success to allow AT users to insert a regular
diskette in a high density drive and deal with it (read/write/format/
you name it) as a 720K disk. To avoid having to send it more and
more, here it is... UUDECODE it then DeARC it (stored with SEA's ARC
version 5.10).

Jay Libove
Arpa:   jl42@andrew.cmu.edu	Bitnet: jl42@drycas.bitnet
UUCP:   ...!{seismo, ucbvax, harvard}!andrew.cmu.edu!jl42
UUCP:   ...!{pitt | bellcore} !darth!libove!libove

Disclaimer: I don't tell my employers what I think...

===== cut here =====

begin 444 intrc2.arc
M&@))3E120U!4+D)!5 "^#    )@,1#[=@ P   !I;G1R8W!T(&8-"AH:"$E.
M5%)#4%0N0T]- +[4 @  I0SI<;__) ,   SI6@0  &D"E"E1I'A@I,R1MAX-
MB- 9L*X*) "@!@1@ 4;'L#I+< $!X C;KHL 8%%!=,#%,0,4 @P\F-" !RN,
MD)5T!*R1!P,!8@70-=(7)0 >'"IB\8$6 5@!9DAK!F0&,!>C8GKY<$!+EBU8
M5++\X!6LBW\N( 2@J9!3SI*#?,0,0"<%K3"@" 30 :[."%HZ0!78V_>"2  G
M 9#$INB"+7@BK '2!Z4. 5EA$%U85^*B(A,:\Q*NDP&PX-$09'T[7#(Q $4W
M1,A#=*,3V:]8SKI L!9A6T#\(M0IP6-$G1"+.+S%!NB?CCH6 .W3<B>!HG<R
M_@T:!D)1/T0>]"+R,=AVV=QH&0R$1,  KG__>.YR ,"$H@,\^-%A0"M!(PLN
M#-!,"%8-2 L, _(PP!P4&7 1< [,P9]_%C@A((' # @+!.; 04X<M$!&# \@
M[/<?'P/T-V"!(>P"R&OX 5#'A/^-<B&+0]Q'(AWY\-  '>GP0%T!,I!3  @ 
M\$"&'/CI<0=%#5S4WW_9W)AA"*)HI \CR5B550#R 1" "8L<, ION!0R9B('
M;"< F68JL.8#N_!27YFCJ(=+/&NV.<R;>#HPYRZ$W&FF6KA8T*>;<(XBP9S[
M3&G!/!?JXH( S9Q !1IE@##&&VW 40<=9<@!0AIS@.#$$U2 $(8;("0A1!,M
M!$%% PJ0<(4<;[AQ!@A$/#$%"%:4.D<:O8+0 GL@-%''''2 ($:G,[@@ PAO
MF!J&&&_840:N)! A1QK>@A#$J:FNVFH8(*"1QAEH>!H&'&&,D08=>8"P)+G?
MYBI%&7'4D88<9:1;Q!7ZCELN&V700:JI=* 11K1$2)&$%45(X<(460Q[1AEN
ME#IQ&62 FX0;=H3!1AID),PO"'/ 48:]9J11*KA!L &'Q" , :JH#X,P1:EV
MI#%&ITDX047&0Q0!1:NH@N#&&W> P,8;89!!,K@: DE.5%)#4%0N0T]. +X9
M    F PV/JM0&0   $1%5DE#13U$4DE615(N4UE3("]$.C -"AH:"$E.5%)#
M4%0N1$]# +ZR!P  I0PC=";TG P   P@(&%(XH2*E"%0J+@@\F0(B!8@K)21
M,R?-&S<@9C10$/!#DS!Y0-1@ 2)&#APV-FY,XH;.Q#%EX- !D68.B# @VI1I
M\T9.2#EE*I(ITQ($'#EOSL@)TP;$'31IQJ#)>3$-G9XVT[2<**>.3)LT8""Y
MZ8;,1AE&QO+@ <)('3=CZ%C$&.,&R3=P)H:1>S%C#1 ^?+@ (21,Q3%AV+#)
M0_+I7A!TH-H\FG1I4S)O@FZL>5/QFSLV@U !46?.1)MWK$[%"?7,5,1PPHRQ
M&I*,G#1VRM#$".=-1;X8@T!^ \),SS9[66P$&H8,R3!EG=YV">*&#!A+0)"I
MN<9F::UG(*/1+;5,F+QR0+#YK)WH[]K<R]!Q.6<P%<D;[X $D>=-'1"(8819
M'6*PH5MDNLUQU5)GZ)9:9/[--$=>98%'UDUR--733>J5$9YQZ2&X46OCI7=4
M5&6001H;="S5GAOO:1???$&1I:)L4)61&X!OM!&;7&*DP09M3JD&PAL(RK%1
M$U. P%"3<^2AX$[>5>1&>''4T=R+,=J&6U A@#"%5C")IQN) )XG&Y%>YC;'
M<N8I%E(80(&0@PU40)$$248T82,(3?1)4F2<4:844YU=%-Z#4Q$A11)6%"&%
M"U-DT21>[FWD%8=NE'$'" KV%$:#.<F'QAMDN*"2 E005]J!DAF%U*%MD-3?
M?V:D0=%,;90VDQBZ=>6&&Q:^-51Z3V;D@@Q'IJ>4>2[)H9P"P((@++%7%AG9
MA:*1A$88.SH*J:246KJ;@HD9>*--. UE!XK:W99;>EIM=&MZ0SSAA!%)'%%N
MD[D:^%QTW^Z($Q+]CC5$$% $,4025&01[Y>[3;QC;[_-M5$0@V7A7WIC7)3K
M&2Y$:1-1+8;4JX(@5&M8<6]X!IH.&P5$ 1%%6)'$$$7T(&ZDDU;:Y M$Z ##
M1E>,AQ&"H$KI4E-BO('D'"195:1BD)6!]:U.?3L3TTX4<87%NAE(([U4PZE3
M&\#2*R&9NG&]\DPH3T333%J9R6,;R$4W9*==$Y6F8N"M5-!!"0W&4DXAF?QT
MUU%-E01IIJEXE716P5KHK):1-'G!!][QQHAIN)9F;+/149N\09'$[+=RJ+C=
M'-T-?",(4@3AY^QK[& F4""605(;(75ZQT9MZ@8L8CJUI3A&Q(,01!54/%$$
M%D4,X8(0HA4GI/ @? ZN;M"!@+)/-]EDG,QST,P1)!,09!!"HQFQT7V<G1]2
MWDR'S#=T*OJ;;O*'AQ;M1&O[\U%/Z "=7Y4!,:^Z6]84\R8%,&T.;S #'?13
MIZ=$CFR@RLML<F6WR_&$6 M2E0+N)[K=1*LK7\&0;DYHE9ZD2 <@",M8  @"
MM"#!/N/)H5A<R!6OX,TF3!-"$IXPA<UL10XPG(D'I0*";Y7%0$@,HAG6 P<X
MP(=V[(H.T]!"1"@:D299+,.2JL $*B0!"DRXGJ3*&$7(43%=G[%)\TQ8E07I
M+7DA?& :2"@'%8X)+K#2C1G>$I>YB.<QDT.45J(%$YE8B#,BD)^DG! $)H"@
M>DYBH@B>LY&0P2@-QPI#@<C'D[?,)(.024/S]&.3":$,,CZQT.7F-<B01 :2
M3O$/&\C@AA/0H91AB"!T0D*95;8!-49"4HF*PTC@U&=5]U%DS-:3FFP%K$9T
M&B!<V%"'H:B(?[&BDU2^Y+Z +" &*0C?X>BWD(:X$W_J^U[-(+$ &<13?HA3
M2+[\Q,]LJN<-6^()&>I@H'TN8 ;_G&="L.""($R!H*P*XA2>4(6#%$%Z4YA"
M$9H@!"9([)L.I4%$YY>X?#G!G4' 2!GPP!0X&.A(9M";_BKF4G[Y2V@.K<%*
M [J][O$SIN:CJ8]N"DNF[31OTZN>'+7'/2JLZGX(:])&C4"%*P1!"A]-0I/@
MZ+ B$$&>GT3"1Z%0A9+N+)1-" )!8):>>U&.?-&I@A-P)@40..$)I;S(=JR9
MD_W@Q QE4!YY8-<@%8'H;D#4S5>'@+!(>>^F3:C"%$8#+.35I$5I$$,=7').
MC%C%)OZSJ7RTF2$5WB]6&-0@!P=HDS-\"2,BL&CXIB ";9UJM&0)R1FTM)2M
M!"6R=PU1&-:@&04L$FM F=!%*A*D(:EN,%4HB]W^RJ,*$38U6)L< YFKMR&I
M4DA$ M%&EJD=IHRJ1A"L7,OV1X<JO=>U[WO %* #(A4I83!:T-H:WO N.NAA
MGP\( AO@\"T0#*%'<!BMW:8PD7?!!,$UF $,8 "")Q275$'(S6#$5(?,E00&
M.$#P$/)PE*!0S<'"@<0 <@ #&VBX9A%Y XIP"(D#W" &-&@!#F2 @Q; @,@V
M  $(U@*"(0OYR"@!C ]P3(2]A(''"/AQD'%P$B';F 9754 0R##8N2"1./.J
M2%]FX+Z-$$&L2\@7%"3&PS=/(<Y/: (4_/J$L8E.#FOPK=YBN\%P#D;!&/1<
M07H8@[% 9)%P <Y&:$ #1X.*0)!N9%_.RAD:+BA%P^D,-YT$9SE+S 2DOO- 
M]WPY3"W%)?@5#M"28 2)^:]OYYS,1$"D$Q4]A2@Z*F$0ES@$*GARDD642<60
M+8=*DE:%^"QL2.*+5])T"@\B)*VUS&,YXE0+/;Q.D>].=8=@2TL\G.&,&XZ3
MF/5&1]T/=#%(5*@!&@A)3E120U!46"Y!4TT Z H  *4,XW$L:M\4   ,8]Z0
M*9-@3IDS;<JXH0,"3A@Y81HH2!!FSIPZ"4&,F:,CX$ 69#AZ+",QP1LY9T#$
M@ $#C<0T"^6,@4,G 1PY;\: ,/.PI)HV<!+ 3$-'(ITR<VJ2$9, !@A( Q(D
MV$%$3AH[94#0>0,"YE&996B">.-&XIDW2IG"D$K5*E808LK 3!EFS!BD!LF8
M11LCP=*F;*F@R6HPH!LR&M$\K/L5! H0;DZV"<.&31X0.D"D*%D&:UD%1X'Z
MO=-4(AX:,-Z8,3,:\-0GJPTR-',21!(G5$"@1F(:M<$SK==.G7(PX<*Q9FSC
MU@V#MP(\,FBO#LX6MAG9.VO?SBW#B'/HUP]2'UY<X6SMRXW$^"XCAFK69$@+
MWV$=.VTYRKFO-]W^]_@=Q"%D7G;X;0=">\Z9P488P,7GV@X@/ %'&1#1D099
M.RUXAD0[<)A $@M1*$<=8B$(PA "D:1 A\^UYY4.-M4Q!QH4X5$2'#+2*(:-
M$^$X8P)C\!CCCV0(Z2.-(974QAMV^(4'"QLIR:1?<X DY!BBA?$D#:B102. 
M98PA1QD,)?'$$%0P$8)/!$$70PP^B>;F&W44M2)_;\*X9).4L7!44FRAZ 96
M<C#$!IF-;04"&6YEY09&<<E1TD5,]9F##25A&52?8K#!5A)S:(5&&J'>)VI6
M-[TQ(7Z,7E7&#SZYT69[=#+$EA-O2,GGEBVQ%009C.*%' A$D+H&HEE-04<8
M1X'01%VCRJHKE2QH.>V.+.30DFEBZ#EEGS700"-Y#-$Q& A34!$$%440"$(4
M=81!Q@M&-/'"%',="D)284T;D@Y;[-A%M9X"N-6873$4QAUA7*:H$4\\P<2I
M( AAYA33;J2#@@RRT!>8Y9ZK*H7,7NB&5ER)D8=#%N6W6V)AKG%CCC7._...
M-M,89,Y.\HP4STGV2/,<:4RK)91SL$4$5V& 8$414B1A1!8H4[Q@4B",&9 <
M R$V1AYL^%NEEFQ-P96YS() &1L@W)%&97!E=4<9<+MM+DP46_P$QA/MF0!2
MU>(!PE2"D=I5J++>95'#[A*1Q!1+#/$$%%2'<9AI8<!X:!@)8!M:4%,Y#KGD
M34!1]1TGR=SWE&.PX;&_O+JT>I-$9RLNT'.(;67&:(#$T19$=W&CJE0:W3L-
M1KL.YT1XG.3D[A-YE0!JX^X@6%:,Q<OVTU%//=:J)9.%>:TP-B]'C8%GS!''
M9Z3?(_%$#Q]4T#81__/[\QM)_,[X=Z[_ICQB$8L2X#=PW6YV5 *8P @&@AU(
M@6YOD!?%TK6N=C4A"$- PFW:I:BX["L,9E#1G.H$(S@0CWXFS)_\@/0__ZW0
M6A/YR?Q0Q[6&T $_&MO"G%;3!1 T$ 1,>((3C@ "-6 $#E4S%_;&0 ?MY8=#
M'/+A=J FA2I (3<O&PD4GX.:%PV)1C#\H@N%]B/^B;%(N,N9&8SVI"@A,"3N
M Y)HV.>QP4T%5*(R7-/F,*$QI($RWR.9A3!D!IRTX51L2@!T[+@# YG(('*P
M0QKNDK5:P>15QF/!"<)P E\A;&YPJ<L:JD:$J#T-!$& %0+[=!8[R7%3O:-,
MK-K4EZED 7!=24[3 L(&0KZA,F^X0^Y6V;L3Z. $R6-!*Y?W2HK$,FPQE)4B
M9?"I4!$%E9E1)0&_%;MK/4E;LMMFD^ 81K^1P77_"A@>A/?&WL' #-N:B.7(
MX!=TAE-3]61!#5K"R"0DAR@G"%4-L'"JDV''!NOIRLDHR*Y93I.1SQI#M%0D
MSGPB-)SF_-T"S\D?&,E0D:BIE6EBX"T^]>Y/-9E*$#Z9E66Q80US2>*YMJ8U
MAK0**]HLH.M:F:DL/=.AITE-G6Z%%HJE:E6+:A0(#D6'KV32F,A<Y4[YTE-8
M$@RH(1WJ5'"ED5^*[XVN@P$9S%"]Z^TK7X0Y"A(G,P?55?1HU"M;>1:BNW).
M"5O@9 MJ=*"MPU%,7L&RB+]ZETZ!E62>?B&LIZ;RK+:.I4X4(P.=.I76L,"%
M*&)3X#I!\B5EG20KUQ2#*'LC5#J44%5K[!\*3]A",Z9PC/4#8)QF>!+$T 2'
MOPOJ>[H0NK.=2PI%",+$#+2;+4+(-B&2PXA*9 39L0@\7CQ2S<BH(R/1S+4T
M0R-UBT?=U X.GV'H70QN,+A&6C-DJ,()4KL# B/4P0U,-)DJ!Z<&:8*G5D2M
M*D5<-X,: #4Z(D4@MM(9O.$480C S4VZJF $(ZQIE6T<9D7)>271B*&8Q_PO
M;>JDWTYE"P8^X1QXF.DWB;+@PB4Q7^=ZAV)Y LM_+)B!#*[5.XGRQPPDK6@K
M3PQ-'?/EQ+*[+PECF]K8<M?(VC6R:XF'L_Z%\:/QJ:T-<0NP^_)P*H*RT*-:
M>B[V2C0,,"F)@T ,FC!0-C@O<0-12DBS^[WU2>^$! $P.B7 V;5)V()!&>C,
M)]<A1;.\W<$0!C.&42K*(*!-SMVL&2K+H9(*^NW3.R7JJ]QH,88$&0J)O]6[
M')1D<\]+R.)<*;WVA%/%1PMCJ6,@.TV7U)DQCJ=0%I( 4P>*T*,TU5$I1*R]
M19J_(<XT,S\J6C+8X24Y!J]XD1?#,&1ZQ@HHMAU>'=YL?;H,G"L2"T0]AV-'
MC]:F3K'S4BVD5;=:!M16GJSQ>X.6$.S6,:L:HG.95%>ATJ\Q<($,0)"0,YR!
M0B6!R7Y9< -69_*=O6)L1=R*V#Z%]]<LD(&LU9#I&;#EEN?U:]/RO>]^FSD/
MS5*0JN!PF9M2%-3:YK9>B&GM;]<DW,P;]Y-4#6Z#*R -,W@UMG"0\!U 80JF
M ^R8!"M5%JB3MU,1 LBS$I#WNA*\875H&OQ[<QI0N]/7SO:3N/V96;_<YHJ4
M>1S-_9(:P @F8X"M3HUNV(E /<;03@#%A4+U9O8I!C-(9!J8;7?7:2O$0L%4
MS,]7[8>[F)Y'D_%+; "CMZ^$S')G2AIN /$8R"#N:N#<Y&<K%!R\Y 97;WD"
M4+YUO, AX#4_M=AI_O56X^#5*+VJV]F0A@1 Q6 /02\(L,+$VLR!87" PUPR
M%F%Q$W[F0O(;'>_\M[$E_ZY/DD$-;/ IW!07PBSX\]&GI=O5Q+& 3WH/=H+J
ME6EI?X%A!"R,XP[^[&MTG=SWS4&^7^?W#\R,?L-6#'" @^I3H3MLY'Z QGT 
MYGW,=S3B1R8@ %UTA4#GMUGI]V+8PG[<)(#;AT#@\1OTUR0/>'_/AV=/@G?4
M=$>XT1X!V($$Z!X&^('HDX ,X2;EYX#V%T?J-X$G:'\IJ(',UX%0(B1)47NW
M9P5A<C"-AC"_%P;!5P8K]U98-Q&DMVUXL2$N5VM@9T[A%QL*N"QGM@-! #=H
MPQ"*$2H=E!5#EP8#T8!>5VLW4#W*PCAE>(9VPFW,XA=,<0)F%1! 42>\9CA.
M\ 2YX6A)( 1-T +K<@(>,P,> P.:1 )1Q6WC5(=7@!-ND!)$L#=.0R%$@R$M
M(&?.(B,,X4$SH&]C@1]FQB1E$%5TF !XEXB+V(AX04]_<0)586]!X%=]^(<@
M,"IG@ 8:@81U010EURBH^!>KN!*M*!%<EXHG\$!Q4 =I,'0@X 1%< 7U]A9,
ME2B*P1"EE 3<XP)3D 53  +#6(?_)BL5HH2&6(R*> *,B(RFIXP@8@>488;5
M2!A]E 9FD 84,HZJB(C&R(ZN:!$-4H==" >*<2)OD(>-01R1-$E9,452, 1%
M<$5^%1EWL%01U#7\J(['>',Q,1,UH1!D<'H*,!)_<Q@2)I)>)Q,T(1$: !H 
M                                                            
M                                                            
M                                                            
M                                                            
M                                                            
M                                                            
M                                                            
M                                                            
M                                                            
M                                                            
8                                
 
end