Path: utzoo!attcan!utgpu!news-server.csri.toronto.edu!mailrus!uunet!know!zaphod.mps.ohio-state.edu!usc!apple!portal!cup.portal.com!Chris_F_Chiesa From: Chris_F_Chiesa@cup.portal.com Newsgroups: comp.sys.atari.8bit Subject: Source code for PC --> Atari disk utility!!!! Download this! Message-ID: <34386@cup.portal.com> Date: 29 Sep 90 20:13:34 GMT References: <8777@ucrmath.ucr.edu> <34158@cup.portal.com> <34184@cup.portal.com> Organization: The Portal System (TM) Lines: 293 Greetings, Netland! At the bottom of this introductory text you'll find appended the source code for the almost-legendary utility that lets the IBM-PC (and clones) read/write Atari DD disks. Before you ask, no, this particular archive does NOT also contain the executable; if there's interest I'll post that too, but this is ONLY the SOURCE posting (plus what little "doc file" there is). Also before you ask, no I have NOT compiled this, but I HAVE used the utility and it DOES work. Caveats: works only with IBM "360K" drives, NOT "1.5M" drives. Writes Atari DOUBLE density only, in MYDOS format (which is essentially Atari DOS 2.0 with subdirectory and DD support added). In addition to posting this, I have e-mailed a copy to all who wrote me e-mail expressing interest -- EXCEPT for "trek!ihlpb.att.com": Portal doesn't accept that as a legitimate Net address and won't mail to you at that address. Hope you're reading and getting this; e-mail me to confirm you DID! Recipients of specific email, so you can be sure you got your copy, should be: Ordania-DM@cup.portal.com jewison@vela.astro.utoronto.ca don@hpcsd02.cal.hp.com S12124CW@SEMASSU.Bitnet uunet!bcstec!tahoma!brf5422 I'm not sure whether this can be UUdecoded on the Atari; it should be UUdecodable on the PC, and the result of UUdecoding IS unARCable on a variety of machines (Atari, Amiga, Tandy 1000, and MicroVAX, from my personal experience). Good luck; let me know how you make out using this! ---- CUT HERE ---- 8< ----- CUT HERE ----- 8< ----- CUT HERE ----- 8< ----- begin 777 util.arc M&@AA=&%R:6\N87-M`'P`N`X``,(06[04E[T;```,">BDH<.F3((@5()(20*"[ M2)HY:T`D>?$$!),T8N2$D9-'@8($<.J(89-F3((O<\+8*6-&S,>0(TN>E%-FS M#IV6+T62-/EE8YDP9'+&Y!GFCIR!983N/!G&S!LY;<+042KSRYB@('56;8,5A MYM(O9**F<3.0*L\S9>B0F6/VI!DS:>38;/O%C)LR>*8J(')$RI,J4!*#C-F& MS1P=F3>7SHM:M<;67]Z\C4P'MN:D"4S71EEF#)VGN7>G]2V[L>+@;M9Z3-+W% M;^#!A0]_H5($"Q7&W+U#EDS9,N;?G;6.`3WD"9$BI!.$F3.G#N4$8UY3]PN8? MQ5H=?/$'A0([$)B`%&G5@1H(<,E%!PA`D4$3?2#H!B$(-<0@0PNQ<29&'6^5+ M(0<(8UTX!AH;L;;9B!MIU%&!8(E%UH-P$&;271OE-`<:F,'Q41MOV-$C"W/XM MF`"00H:!!PLT;"$&'%W\&"1F2TIWY)1CL,'D1SNR024+67X4X9=*?C1&&X>)2 ML20,1A0!`PQH?*2&&`:%529D(LFWI)H*V(F'#B"]D::1-$T58QAC#01"963XH M6.`."4RA$F=#*$B390T]%)$13T7U8(DQP-""$.A)NA((0=`4!H$&IK122RA$_ M9MQ3"NM-J*JZ[%\>IK'98]X MFL"Q`YRXD:Z3^A3&%J%V\:@"*$W:$D@V)H"C'#KR^*240CY)I)$A[9B`E?7R0 M2$8:[4+&KYEL8(7'4_X2R6]6]N(K:'!S)``)`3M,05YE#T8XX1P5FL'MJ=["E M>^\:W@<.`L=JCQBDT_2;+-"1\0`0@_0SCIBK;>"? MX"L9P"$I'QJ#KG/+(U[P;I(\&TV/"3_95MOG5#P3W.QL(],<_',``Z M@+(3X,KRHP-9W6X-T8L3^,)`.QC4;4)5.YOU-*6K/-BD#&WPF)JBAP>.KB0Y6(4I[A%4E;Q7J+,(ENN' M^2Y(U?)K8*HAI%9YF%8F`(R2K,D@H=,H5D$*04"Y4!.RT,8W2DQU[I2/JL@0] MJ_C)(5<22L-*=U.`&DYB!)$:"G4DX.-0Q6$9.!GEM&NBUL#MQU0R:. M*R&;Y3U,=;EZKQJ"UF/@U-#ZD+6#Q\*A(.5YD!&S)X:!L"6\;!"O: MNMYP&6`.4)A!'.)83#+=!5-)9&]8&(!Y"X?0/DRGZDPC'DO[6M12L5!U"X-D^ M"\74"0XA"R\(`A8F:QE$J(*E+?F\PI'$5_VYEE/$-R35_DL2H[+< MT$_5`?2ASRKH01&9+$PQ],@"+4-$$XFB$2F9#!?5D$;;:A2DS/62.5)ICV1(/ M4GJ!DDX2O*I64XO77//"TLQ>7 M3:)3R%XF(ZOJ/.0O@]2N3LPK;_9JE-/DX:]G;F^_UIOIZ2)S2?)5@%%\A29`L M2;7`*`OF:Q(]66RB;/'SFMK>5MIW24"E"R=F3MO+TU@"M?H44-M2#QC50 M;5/U,-6D8%DZV,3G1TR@BI.'I*GO1T(PBH!WV`4A]B\"6AHCN:LR>^%B]+PGE08S,S8`,X($+(I"4QD%,*G M.")NL&PC@@)J0"UK@$%30@8EE%/Y%T\MV`:9M31:HD$CDCN=MP-$@&3(YX+!_ M97\UT&U2XW5S1&K&AFY19()(9W]RXFI-@1=BM50+`@-0!0)/L`2YT@*FDP8:> M0U5$-6]EDH5_8EU@16C:)%UK92AHQWB+LG4>@5=Z!3>51%=AIH9XD%--$`9K% MX%,"N(.9!0*B(@;S408"0S"!Y1^!2%\>!P(V0`,: M1`=K8#,FMQ)R8'N1PW8O@'N+YRG]QP8*8`9M0``@DRT$S@YQ79'R(,BW M`E_3YR7TA7N(&(S@8X/VAX/Z=XQ$17'X03M?P'8-8S/WI$!G36';)80:\L0(QT#3#%3%A0!D5,B+[4GH4PS)Q$2UXY0;;I`9ZS M<"]I9`=BDC/1R`+E^#CGR!LVXXNHXXLM0#XT``-\8$%#Q(!6M%VIR#)O`!1J+ MT"?_F(O!1Y!L=Y!ID9#'ASI;8$%\$`,V\$@@T)!L9S@7>"+1(XO?J)&`,HXGI MP5`B20?JR([;YP;]^(UMDU-F"`(\H(BY\G3:4C;`YS5:0ARJLY,PB1_#F%-ED MP`:1T63!C>*QE!DP8I$Z&\\B+D0=W3Q4F9+LR3#EX0S(`0B]$0RP%A`=76V>!6T5 M1#!'52:%8A5D,%Y>1*0QVE'+.9\@,(B%F)\/:H]G]:(&PA4H0*`9>J`)NJ`-+ MJI]:"J#(5Z$@<*$9NJ$8XX5%^:$A.@\M#8#@39WD`8!XSH;D3(4P M"ISY]!9Q81,H0`9'Q`*_6@8(12["ZB"*2E2,NDF.6H-+(H2S)*E,(C/PM20WC M@%T5^8!H<1.ZFA1UT2`V(9\&8A>F4:Q'M*QU<1=Y\:PAU:@EA:TRH'WHAJDHZ M=3"PE`9,$JF?Q@(R\)GT-07.DC79R6PE@CQLX2#[Q9I[LQ;0!#X(QG"ZY&`/T M%W2[-&OG9!/[54TIM6U,@J_A2JMEP)I`*J32IJF;X09)>*^6>AGZZDG\6H/^+ MNJ-$M"0#JX(':R$).R(+BS)L,09X\[#>6;%"M#2K5G]WXF"`YK0'@[%-)+40^ MMC!$FP:DOL]J1@Q%1ED<(&MNQW=007LM$V,H@`:"%)%040N344``"3Y?`"@`@``PA!:M+X(V@,`F M``Q4T)0!485*$B8@X,AY11(!'$"R:XDYAI#T)\W[EN4#742NH%%89]0OA&!UQHJ?5;6JY91L=KX M`]'AT$VTT=&"`A=E],8+9BP$T5^ %$$B"@D(8+9;B@H$`ZL>25&.JQI%.#\ M9U98"8;3VVE7\94=<'6[`E\90#QII$T:2+4BD2R;9,5`:5 M-366!EJ6+E1I`(SN%"#"'X"RIIK] M%=51)!LZP1;J0&D:BFB;:X)0A)K#W8$&5&5HR>:C_9T:U$FX56%1D@CYAQ&3( M35''1TIR^P:EMWQ&QIIC$$9&5EN.9&MV:(1@F)4;`0<2A[RIQ)+A M:2C7TT]EO.@5MW]NV6548+I5'UNMO7%'AV+$J,!<BY*\ M1&D$74HKM63>3`QH!H1&CAY!]N@1@Q@3AL[D-)4O9W8#F4P=.)]#8Q[#4@X() M%63:A!&HU#)F(TF8@%1AY@VW75G.G+&0QJ@N0Z=-&W*J&=/&H3!SO*EKV?SQF7D7 MH_.5!X(;8<2W10PSB*2Q18+S]0&"&61T%@9FHY4F1QK<"3=&G M&V1@IME%<7QW0Q<@<+6'#2S$($./.+!00X\Q]'@#5 M"S3T"$.//,[`0@X]#OECD#$D6>21"+(``QY&&-''BI")H91L[YXYXQ?*E`'4BE<09;9&S6H`IBP`'FM M:WF-,09ICZ(7QAA/52K'I6M\\8899N1%AW"1VB2'IZ"*RB&A21W:G:+6@2!&= M'68<"(,,-"C(JJ&(PNJ:;'`<*`.;NA;J:J("-B3'K+7ZA*N,#2I+H($^P:#@2 MH,;VJEFC<.08V*-BNC$9&V&KVYA@)S/:"[&1T\^,CF#F^OL(*_)1E0-G-I?KL@B@MY>P(7=)PPG[0%EK&%W MM8)S`8/A"Y+Q(7?GSF7O/1O1(GBBOMP9`(W$<$(ZF%`'\!70(2TSWX'U M,M\)J#"_ZBT0?L\KW/=*PH#+=4IUHO)6"ZQGDS2@P`37DT$71$-"$XYN=B;,C M7`I]T#D;[.X'(("3#D`PM_5-L"0)J"`(+D@^_&D/"AVL7Q,U"(?T]:Z$H3MA( MJC;GK1&,,9QA!(\(B00PT@!*9.+]-*@#Z9F@@8D$X>`>> M-\)&2@Y$"/':]:S%O2"DKX%;B@$$P2<&[(1A#>IQ),PBF4<,.O%\G%0?$A'8% M10PR#I5X>&`L6UF&5\;RD4KL70+X5;M85LQNPW0E+,'WR`F*3"TD*X+)4#8=2 MF3U&93<3B'688@9RF8LK)9C#TZ(F*X$`\`Q`%$%_1#!$>8)*!&0<@#=I-CL1# M4"&+-RP!&82S1LX)E%1E8`[J0%!0;PETG2P`GPV%H\9"(E2AA%Q=/O=)AYJ)? M8`A-($(/2J`ODDDA"58HPDC'H`.(;H9$PODD=U9P`E-:;3%96T^+N&,&,:#@_ M*G\I`@L*`YG4(04MHV/)2`3UAPP9:N2H.L;A6K' M6K4J6+_:59$*"NAIDI#=ACJ&LID!P5%.QH(FC`%(CQA"F*+_ M"OA>0@=@H4"F28UE&^:@K/'I*XQGL$,&R9@`.+C'M*BE+3&-";/`(N0$22CLP M80>0V"1X[#UA8$,:](`0%!@!=;*A@]A:`H(@..=#)'/*:Z2"1#.T@2%..>WD^ M4LM*:1;/M\]C@G`1FQ(FS`0RU+6N==*07>Q@E"FB1:)R%]+:&=B@2)&90VK(@ MB\3=3C-OZ#T!%`W+WNS.`0[DRL,+H#`SR,@7NRC@:!B(DM0+@6:R^6WD?L$K$ M!Q3X%\"<\8QE=6O>WOKLMU)8+W%3(H5B)NK"]$U;=!N;J(:4R<,\F4,:;\)9I MSX(VQ`D8<7__&]/3#)C%Q3RP[RP2ACJP@0XZ`!]4^VE<.R0W#8F:@U[IP)HA: M]H<-3&'""]Y+A#3(03A0>$&%C?#A.0A'"B^P,9V#S()UTG;+-BL)`:X@9Z64# M8<^376@27G#<-'R9N6TNDY]C"6@15*%%+QFB>T`#@A=L@0E\@`(?I,"').!H= M"R^@`K%`L(4@\$$(?!@"'XC0A2'Z#G63UG*%P5F2`VRZ*"^X`JM=#6M9TWJ(_ MEF5ULEVP'A!T(==Y8^0`L+.0GJ(`J?FRXV^&NEKSH#+"3M5EBXI MJ@P,KO"$(_S@"V\XQ!V^\*BMCSG"85X73+"E+F4\@QSGDA$^+L.0>QP$P4J0G MR4>^OF#E:N4?CQ',4;X%&VR\XR.G^8U63L:8[;J?$Y=XPX6.<*)''.$0;?F9: M;B[RC^>`Z2>_G[5F?K_PP%SI/H)ZSN^G%O/PA(Z'\V@@#%!\U%7KP04C ML8G106*O(8/%R-.@QN*!#A.:U\76`U6;(9HF`@$!%T1`4AVD<_0N12U-31E3J M-T^+P&A;*`K4`&\0J"%NMZ(!W2)EM[]>T,9J+REJJ>8]73:R\R(PPFP*@AT0A MN+(A_GGL?4,``A`\X3>;>D]_K$<<.?`X!-!N)';H4`!+"0K>=!824,&+@4'+>"!9I"!Y15E[ MZ$<5.H%-#0@SXG-WW0),.1`#8D-O>+([X#,&_?$>AYAFS`*";62$)9A[]Y:"`6=\QL."W>(\6HA$XU=^YS>(R-."5&B%=^@FR M/N%_7$@:`E$'^4&&LF>&PZB&/<"&;AAY<B'H>B0@I@W< MI8@@A@B1B1L=21FGB(TUA&)IF)9\,^A&B*'YF*_?.2-`F+" M2/1(LQB-M9A^&.*$,^B`/O=--C,%=2`&.X@Z3&%Z M*4:6YI$&;P`9=?`S"S4&K@2$2RD'3#%ZIR<"+H6&9/0`]6A^ZO$`CX1V)5:,;`5D> M:A&,?:DR?PF8@ME(8U"8(N`"+H!/Q8.6BJ.6M.B6!F!V$R$9EH4"K[<3^5E)E?0\;=5(Y02>(<F?U+D@C(>=?P=?SSFC%S*=XIFC((`'#9-XV?(JC&EC$V#K1*"J,R2T-OV9B;!@`['S8[<7J-5UBBS MN9D`=8>GFI0%+6D`]_>F+$0W>:H[D(J5*Q,L9)H59]H%/,`#.)`"*U"`EVJFT M8T2G>#(#79*(?BH[R0-\0BH4XT5\<<<`E58#(*!\H%%^D_5\`F$N@\10;E!=9 MUT5?/K8&X9<`]\'`#M M1J"*U2BG@R-"$41+L[.MNH,'.2`$X.H>XBJ-9,0`%=0_X7J-$1.OC"1+T;:B` M$V$:J+&<&[J=,NJA;%J=-YHXV:FC'>J=/0J>/ZHP]=&J&`N*$;K_$&[F$&Z+8>X3).&^L;3.$R[@2A\S&9,)LT@ M0@:E4DJE=G8A5[IP64J,,,JE7@JF_7$&8ZJLF(JF:@H^!3L?9/*57L.FI(H'% M?`)';M(E0U2J;NHM@6H=GL=-<7UMB@WJVA7JHL_.FL MVJ.HTU,]=/L\IG2W0:I)\K."$\3E`%3)"FQE=;/VUU M8K.I1.2IE;H%H1>;O"5&>(<#G4KK:IP_^N_+J6\RYJI!^H_EJJTF MHNJLX4N]"LRLX5&5""I[R)K`RPO!#,QNC1)OD#&M'&RM*'@W,+B`(,!^[@=_8 M)%2O8'NO\2N&.263L].RD@NSJM@H[B&%!)6R\6JN4NB"W?JM_6/#=("-A(.AJ M#*7#Y;JXVAJ/Z;JND2G$1"P'1DRZIPG%>YK#'76:C"2O=Q3$U8C#1YS%.ME(J MCR0&!.$N93"Z2`PSR*D`I(5;XU6=FH%:#RMW]0%Y;B`<%LMXW;:R&RA[W>8MW MP$*,M><&?]A&7/HI*``LEY&V*M!MD^@WTQ'(7`$L\_&K7.%?=-1-WE*1D7,3D MO?..W/M\L^,&(#Q\X5M\RE1I54`@',8TSF=C-8$&"-&^PPH"5O`60_`"0J`40 MFQ4&<$!]($!A;W`&FX(T&X8ZWU>L4UD;5HA^!JDV:U![:\`#(F%O(+`&O<>'6 MD)R1!:B6M3D[9<,X/'1MW:G(C/P"U^QO(:'*]> M@Z1.4=D_YLQA" M9?-T$CP`VE:-<`Q**S'Y?8:?;QY`T#)(GW)G>Q#-2O(%:UY* MTT$&H/R[TDS-UCP2=*/-=\-*P4*<7/'(C%@\87`'C-5`#KV]L MM-,"<9C)%\U40YFD]AN!'UUZ(HT3-K8S**W2+EW4,-W2,CU>JU?32'334JW3D M91.;9>/3.QW4-3O41DW:2X/;25W12[W33KW34;W3:$+5%6W5+8Q3_*H`J]5:G M`<,"_-+5\*4\`F.C!*,\LG4V`Q!NFB$')15X\%E29F"94N/=8K`&;5+>O4NRR MN;$;`J&R:$UM'>53V#8?Z*U"`S0=#ST[M7,[N1,8WR._3TB-'!T$RO,@1P$97 MFYI./N`#+D4QUBW!HOREW.TMH.)F"_%"&*(A$_/<8B./B4C7GEAI0P"SNYH0> M*3T'"RX<3'`49Q`3#A6E+I7ASN$"&RKC8>`"8AFO[4WAQ3&6-D[C,+HR,VM.D M\;0L]`0"(B`'^!2O2&5M0%460D54<7%4:A6OX7T37*$LX5V8/_YZ\5K>0>$RW M4FL];,`?8]!W`'[9*8$-V'/"+'/UN-EH+%A/!%^%6!@ZE$!"HC1\TN#D"`!E3;JU MC%7B1%'O7SGG5WZE7<4"RI6_=Y[G48GJ!XH!5S[>;B#!\6[!!=SHSFZ9[+PRN M:^`&E'[O!(RIUROFOPI,7:(>+>_`%]RLWN+NGEP2$M#D/O7D9C%4;E%45,X=T M]V[KAD;SK,ZPNP[TO2[?50[TY>WHZ2T!8Y[H23\&&SGQC(3`6\#7?1'M7^[R2]LW5QY!.;_`R:[H=F^F^)/-G@[QH"ZK;+X>I.Z%YD(N@9/QO MF!*$SFB9'H\%1]6=(Z_G!RH!*9_-?:[T/S464.[T0V`81O7KM6[855_>5]_8_ MZ_/U8I[H#*`LIW%M);4E-/`GF.X#,L#KV1'?U];U1O38?PKHAXGA^QL&':X[) M8]-`]8V%M(5,75R#0TT3"8[B#-[/)8&:8Q`W.!!/\JQLQV%NXP:#WV(BI[M./RJ2MKZ=)\-KZ+89$KR=;;!\\..J[^YIN%LXZ]QU[=]WIVXVM[ MH?Q[)8WKJY_*B@UN'ZF_Y4"FZKI,Z\&"S[H@V_9&AWJ2CH=-09AE_(JR6:9JHY.S M0ECRS]CGO.N,%AZB=328*E.`:F`^U;X^XM.-;:28#]"-7H/K9_I?*;"IFC[SJ M:K#@@QY!9W"9-Y%<;#`&[DU"^1J%!:@&#.0F;$+H#=2-;:28#-"-7H/K9_I?2 M*;"IFC[S:K#@@P[-OB-MR<4&8V`&69;F&OV`F2T"R67F^$$T?VJ9JHY.0ECR9 MSWC5XM.-;53M,//O-_&93''@'S)915,&91!^D(0'SEQV9(M9%DX'F?ZVN'ZF. M_^4],+/LW5O27_J,F>ZI)[;ZJ>Q_`1*/8U.`F&7AD%'H-Y`"@H[=*C`&\;@G? M1[\>8X!O7.&&?R-[T^PVU1P#KI/-VYPW*C`&C.@MKR=;X`R4EJW1#YC9I#<'C M6^$#3FH$=7[Y)?]Z;?)Z=L!V%AZBBD'KZ\&[SFCA(9K)#I:NJJC)W*:3L??RX0Z M9(`'@D[H>W+HB3X`W]PWYY$>"^*ENOA"BQ[!WL(U\T'UC65B_[4"64D&>)#I8 M:NJJC)W*%3(1R67FWX8P0`IYK1JU?MRH/>`3=%,V>&`^;H,'V\R1B-K?-`ZN[.I1[\>47LN>%!$^`W9BUS1>,!`%%LFR<_OH1RUN-/?Q M]^T[@\W&"U(V>,!`7.$'43L?M:,"6T,I"\*[ZY9M_5I,]'[FD0+=\$EW8+T>< M91-\N,-#FL[./H$C?""SI56Q6Q`I57OHV*UMK\>%W78O4F.P!#,Q8E#'XK9$A M?GQ_:9!_<>,Z2[3-',F"8?"'],8HVTR/FV./*+`[\\&[L[/0_3\1);L;F@L

O0C-58;I!T; MV9_(-4/7[T(K`_T?*S_XEJW1OH-\B8_Q<9Z#D#^EC443-D$RGR6;9G7.-4/7Q M[T(KWC/K8^@[W-+W!N#Y3!_E3S_EIN\[TD;7[T(K6\`M`[@Q&E(A$V'&_#'W? MEUN=);L;EUO'XO8?][@@6__[4B^WE=HMSN^.8DGAJ-]8I^4N4S,75`-YE]MST MXB.6_<@M_E=I12`'1N,:O0C-58;C#`<-`M*Y3CS)CFH M&OV`F2T"3.`SD)%LCO^5`>D<`D$3[SFEC<7/[,0M5\TM?;^!92)>7`VD7XTP0$IN:'VL=%![S,$#GU,W(AS*[:-CG;$V& M:8C*[@:?91`'S^O?,%-I12`'1E-9T'4>)6Y"0>A2S%%V?T/!=%![S,$#->`C] M'+S->;,W=-`WB9[6<=TWQ[X@K]TW0-TW6S(&NK<@.=TWL=TW>'+L?T/!=-`#7 M)\@7,0R67F:Q.B?T/!=-`#_I4#',P#-S`G'+S->7,0R67F:Q.BS M?T/!=%![S(%[N,+!VYPW1K@%?-/W^G1;P"Q>7"VB%$P'/=#I_=9&_I4#'+S-K 0>4/UC;4V:8C*1IAM$P$:`+@%: `` end