Path: utzoo!utgpu!news-server.csri.toronto.edu!cs.utexas.edu!samsung!zaphod.mps.ohio-state.edu!usc!apple!sun-barr!newstop!male!panarthea.ebay.sun.com From: koreth@panarthea.ebay.sun.com (Steven Grimm) Newsgroups: comp.sources.atari.st Subject: v03i080: dublvis -- Format DS disks that work in SS drives Keywords: arc, uue, C Message-ID: <2729@male.EBay.Sun.COM> Date: 24 Jul 90 21:58:56 GMT Sender: news@male.EBay.Sun.COM Reply-To: sgstree@polyslo.CalPoly.EDU (Samuel Streeper) Lines: 218 Approved: koreth@panarthea.ebay.sun.com Submitted-by: sgstree@polyslo.CalPoly.EDU (Samuel Streeper) Posting-number: Volume 3, Issue 80 Archive-name: dublvis Here is the Double Vision disk formatter which formats double sided disks that can also be read by single sided drives. The source code is also intended as an example of how to write an accessory which also runs as a program just by changing its name. (For this to work you need an appropriate startup module, like SOZOINIT.O also posted to the sources group.) Samuel Streeper p.s. The program has a copyright in it (by me) but both source and binary may be distributed freely. p.p.s. To the guys that asked for it, this source will show you how to prototype a boot sector, modify it, and to tweak the checksum to make sure it is or isn't executable. table !"#$%&'()*+,-./0123456789:;<=>? @ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_ begin 644 dubl_src.arc M&@A$54),7U9)4RY# "@ !1@ '84;72&;:,L ,+U1 0M% @8H$1-[4$<.Fz M# @K:>:D>>,&A)$WD<3.&31TR#GF\$8/6S!P7:'R$'5OV;-HS9=JT?1MW+EFS:$&HG2-Fw M+!FX($2(V %6 94B1)(X,?($1$W4TT_^-;>#AZR)r M8,=++K@'R0!2U.'&'" L!8(+<,AQ!@@831G&&&/\E]R* PJ87 W0P2BC=0K:q MR* ,.XJ7 'F=C=#66 X1H9(5100! @YAS>E&G7<6(00(.?19AAET6O2$%$T$p MX1)VAB+Z)PA02/'$9T,\*D.DB5;A1*67%I'I2S-P.JD60+Y$@ZD.&='$9U($o M,441+]7 JD6O"O$$%B_9<*L3532A*Z\Q\*F G(E^]7<]"_!WXX',#+((0P^UX(^/(%=XWO9(+3KCA(ER4T49FHTWPP-2Mh M;31U,3P7=\-STU WP6]C[#;*"L3.\N--@PZXZ)5O)P(4GL.?-:1#T_Y==O=*$(5;E2I?!G,T_2\0]$###OG:^]\O=_:.TRF]TFXf M8<8;9E.WX\"\7XMQVM*9'VUK6O-:QT^]D('<9R!NG=B&UZ*QA,+HB]CTTP8@7\5^$.9KBU:?!]d M6N.::#QHN0*:$'?5D\X&=>@UL+W!#'N"P7#X!3 &(B=AOXLB_"8G/\LE! 1)c MH$,(4A<#!B*L:\(>$@#'9:8-R_BCC5P$A>YS 6"L=P/7>JJb M#)$4L#)X=?Q]QA*:FCSL7TIC(<=E3!YZCPR=M(]$T$(&$*!K#FN TAS>8)K&-$4BUFQ(ZL@Tx M@ZHY3HHYQ.0'U\D>=XJM#% :0Q@JTI,PM+,Q;$ B'3:9NHV=$#DW!&@YP?;.w M-6 S"&X0$:(: B59JK$C%0F#&3HB'-RQ#H/(X9LKB6C.PSE)?,L;H35!0- 8v M\3(-DX&,\D @AC*D;G?Q6MN-+@G+#S:4#&'P))8J@L\SJ/-\[23#0=^2NAW-u M ':=NU[/-OI!348$!-O<" C8D(8VJ!%*>5"(:>A) QQP\6CLZ]W29BI0RXT4t MH5AZ#+IZPCR,I &P^9FH0Y*G/"ZJ$JQKLR1?FVJYP9*/#AC) S:=ET^'$#2Ks M6^5B,"_JNG$&E++>4Z@;W#!4DW9DKB"X:?)RRAXN3BUOG7.?1FD*-OI(%912r M<6=$XND"+I))@08S;?:H:!T;F/%P3UA"YC"6-[>U3@%QO!77JD K;$4K69,Rq M0A"8,*L&W4H(02#"C!YT@UMYJ@JS4B\,XB0M$(1FO,)5UQ?PP (\LN$+>>AOp MNOY[!P'K%PVW2F\2\&L"_^YW9@X.<(,'_(4"3_C G2D#'EA:D;'0(0%?" ,"':0@(!@J0Z/<7%DZMA.%7QEQ6[XL(/Yn M&V$#$]C(7T"#BEG- 6<- %&MNX#&,+,@A#..K2A#2)",XXK8@?'I$NJ90:RD ^ZY" G8 P4X0EE8B"#l M*IO9SQX>RQ8(3>7RL!@.=,#GHF70Z$-_V,,*H<.D*ZWG!$!ZGG70-*.KO&:>k M8E8.7W;(*9E2T%'R>"(CE&9AW( N:T(ISY8& 1SPD ?'H#H/BX8!J6T\%CB$j M6M=O\'"4Y/!K$.!: 8QQ3)@?Y)$M9$4%-2!TE4$ B0+8F JH'L,:ICWFQ[@Zi MK4W)L[+%X% S*.4,?6Y*1]N@D#F408_M2H[;.$?:Y#@H) XS \#_38" #_QAh M!Q=XP0EN\(*SAN$01_C")=[PBD=@%H.8R@#"OQ[^N0 V@VK;SU"%0)[V=OQ#;17<8O'G@:[HS[N_]5PW6O?b MA\X4Y.@T4/I!$O!..&R$,8!5ET[HL)1X@L0 9Q=(]-5._+:_G36(5_PNE8WEa M%Z<9]7D' 0KZ[O;D["$!O:3U%^H !ZAV! 7;502U)Q3HMG@#B'^&L7_]MQ&Rz M)U[D)8!WEP!R)@=N<'?-9QX),$HHL ,[4'\)\"$)T'Y:AAE8%F2@5WY-4 5Ay M5P13$ 1?PQI+TCW_ H,#8$ V.(/)L20WV!Q+TF1/)F;V\B\F@&8S0X1#6 9Tx M4(1(J(1)>(1T4'M$EW]DH(#^)WL!"(7)@7=ZAP(BV!0F\$PJV 0LZ()_9P)?w MB (^"&52)FR7@1E!, 1?87Q9>(%1F(#\5X4HX("Sv M@H5O4A!^:!Y'9P @4!9E(&UA8!KA-F[G%D*EY&R04&.+T1".P1-;L@8H$!EMu M4'_WEWZL]AA.(A%G\"?M%&V/H0*0)@=W9XHL54=:E@;"%XOO@0*I2!NLV(B-t M\8HIH(;E=G>NA@)IT ,PL -UQ ,HD&TRH +8@7EUM (K\'>PR!/6^![+R!I&s MP :P(4LH0(P>41W_8E!I,#83 AVBR"#3R(S=9F.NY1"*Q5.7A1&W]F.)^'P"r MP0+2)Q2DP2B. BMM!Q('$'Z0X(\%H8=R8'X*\"&TN'ZW"!UU<8JS6 :)=XJVq MV!0X=5D4^5^B>'?*UA%, 1WL1@;N]F7L^ 9?<$1?4)$L-0=WUXNK6%!SX&8Sp M^22^6%#9*(N=@5EPH .H=Y(I>26808A%('SQAP(H@&;O@4Y?X%^S-V!UV(8@o MH"W9QP:;MY1.V0.8@2H:XH'W!Y52^7O!1W14IE$l MH)9$MY3;%&(-P7HH0!TBL 4ST 5;8#K\H5-7TDM!502Q4E[:QP?U^'ND%%Q=2E1A *HT>('C@7K4%Z7+,BQ!BJ#3B1D-b M^J 1.J&EA@9OBFX<2D)QFH5A2J)D>J+,H:+'V:)LLZ8J]JEL()19N)0A<*E?a MMJ-_QHFL-XFD-X!+XHB="+ Q *G(TY5B\*I\&JLS@AV08 #G:" P8)\VAD[Uz MX5E8=:ZDRF;S6$\.(09O,%3V5EBO"* Y. WZ4R;"1"O"* [&BA( &D '#IRy M0/0 @:*.FSEISK@I0P:$BA1BZI@Q4T9.0 4""0[(N+'C%ADTNB@$$0/&C@0)x M7J@ ,:<,'1!UX( 0\^8-G9IC0)AYD[ ES3)!5;P(69 D1SE;8N10N1 &'AHNw M8&C8],v M!\RITV:ER\ '$RYL^##BQ(H7G78$7'? T(0HTO1P"2(-#QDU:NSHO&)%"J8$u M!A=>L5!%XM*410!,08-TC6J+=*F*](U0L-X8H01$[0%3<*Qt M"QIA\P;.'3DH),MAP94)=S)RTM@IPST&=QCGRZ?X"+./P) )RK"I"7]/X#-Rs MPICYEK-)$<9<]!!5!D@P/%&&F[0T=%<@5W6QA=AL-$1'0"Rr M($)476S!!PA%R"$'49V59011;81!1P@@A C"$TO$*,)Z]_GTAEG5L9> >R -q M!&1(\M$WD'T#)9"&&0RME>$64$CQ!!5%#$%%%RZ\(<87";K(8 \+35$$$U52p M2<1I22(ITI(,68BAAG)P*(.'6\P@(Q0G2CC&35.D00:#,H PXAM,GI46"&O-o ML<8/,7(A$)1Y(D4''T.$X<88\G5QHT(+R9 ""&?HR",&&*,SYH9U;@%"%&W!$NB<(??X)0J"#%HJ66FPQVH6C"FQQ:ZX^24JII9BRm MH>FG8/[Z::@*CEIJ2$,&&9,*D.1 UWL#X:89:**19AI\P;%FT6LKL#=;;;?Ef MMO=OP8%+ ''&*<:7A&;Ye M9O?H>'.L9@+F[F=OAP+..[V!"+(9@QP$(0G=C#@)#V%-1"0R$8JNd M\S<(G6%^-),4BF1$(QOA*$G8VI&"2,4M;"@+E X4TL<)C0&&R8H(ZX@" %6-U 1/<%b M0GUAB3?LB%@6DYWRY44E/. !"'#PJ14P9&=248D)^+*1]8'@!;^*3,<:EA%A7) A\21R8)@&$;9%B[0)WE1'4X QJ &0."&$"*x M"401"K#81.O)8#3<-" (Q(@"*EHQG%I<@:? R41Q&J\E:$K _7:7&<.,)@WCw M!$'PTE :]@EM*V00H?QJ(,QNK@V!>R"( K:RNQU"Q%>)*\@2OZ#,E: S(69,v M0W0&P*I-2BJ>!5$3;5AE!A=]P0X9VB8;*$H8:BVD"DZH@IC.Q)0"4%!"7U#0u M%TK*(2$$@0@LF*@R/R@24Q4$501!P%8 .R?39U[\22'%DR D;TI!"^-6-IQR#9,C&1TE+HDQ]01O:3&[*r MH'3=I T.45A%>'I0$PZDH[JB0SSOES]TJ8M_ WK)'!.TH 8]*$(32EPVY7"Aq M5\4)!>9QH(P$1C#.@B /Z4K(0QD4@[&X@0V[X0.R$.6B,-!M6#Q9 ]W8K/?,K0OG>!:G1,36WM$G<_5ETVE5SY%!'&X#()H4 $0= !%[@PA200o MH0@RN)&/4 6"^=9W72(0@G[YZU\ "SAG^,N/_M+UGP#%5G$'HBWF"(C; \)'n M@; *+HAJ15SW_6UA\CM0BR!D04%-EPS5O2Z#^OO?0 V%#7]*R*!FB=UW;;=6m MW07!=^.:L]F<8%SE$M4(*1/0B>A =RSZPB=18(0F$.$+1DB"$Y(P!22P($ El M0T]+6$"$) 0AM@+I%KEFLX*0$.$)7RCSF5& )G"M@"X!E7(:4JHE-< !34\0k M@A+*9)$^DU !"2T@"/#0FP=A*C9NPE2'46!H%OS4S&@>B)NF7.4K3X$*09 "j M%;Y,ZC&/6.:/G#G:P6HC/00ZLUI(9TH 'f M?;.@XG@@JI*8I&\9M, 'IC0#"\\@%F+C008P^)087+8&'Z$<-O"!@PR +J0Te MKQE<-@C)%<#J0HIEJ X,JNK$!8QB]IS!O>5E,6,Y7S!.G/&JK*L,0;^-,!6< ,9XMR/c M#E)?B-1]X ,0T"!H+)L)XF]Y*#K<84=HD6;HTB"&0L[!F/#9&=Q7@+653)X-b M+\%P&># 0DS%[U!BR(.$8*);T9<>W&R$_%;TT!',1V2:;N!\(8N#P,0SI*IAa MI('_MC('M)CA)M0A6/ [KR'BA]Z+<%<)'Q2?(=V[K>)C2&0T;+G7/LVWy M)#>1>< G?-7W?S!A>Z2G1E6!!V:0%8K#>R<" M&W>=1'7@51>]@7 Q,H* MQx M>JFW%992$2@R?FY0?N=G=$$B$+/! B%Q!#;1=$>3-(83;54%=;Q64.+$=0H w M+BQ %SQU4BGE!FBB)FTG?A%",=P!=[%1=PMQ=PSA!GIG:PE@![%C>VK$1F90v M1F."5,^A6!^IV? 9H%<3B!8A!A_QA!,7.@67 '> %A-33BW0t M HX4!J6Q$BH@!D0')!H(1%5"3%]625,N1$]# %,) "3%.M>%NT$$P #" @s M3:""I@P((F_JB&%CT$J:.6G>N %AY(V<-F'HT"DCIX&"@!?$Y $Q)4R;.F78r MD*0CITP9.!P]>B1H$*%"AB <0I0(PHQ%C!HY]OR9<0X(,@_7&)U39PP:$'30q M9(1:<&28EAY;AB$39J%!GF+>1 4!T2<=)1'k M0J.EY9U$N$5%8';E[585B2J%4:)!NMGVU41A197A7V?59AYJ-QDD&&MDX*47j M7R!<4=!$.]8!0F,&F6$@:W7 $:)!,;"084KK>2="%6Z@J!Y[4ZSV'GD@UG=?i M?A/M9YE_ (+0GD$CQJ82;1YA),<:K(7AH!UA*.9DD8\-Q49<!>'&2&HR9%29HKXX&E[#!5E0AW6Q:F*3;DG$QDB)C16&g M1UBZM>5<2=V55QE])>$9KG#4H6"-OV[YGD>U[@7"7U099"JJJI*'5$L;RI&'f M:+RU)*Q!;E@6!TIST'%=@U"] 5MI3MUHZV/R&CL2L3CQM"!U;T(;;)?3*J> e M1S:YI=.^8SPX;!T36=JIGF=,V 9GH2ZXEUV023;''!;ET9<4'+M!I4=I*.C@d M42<_%MED+;.*$:6MY9EBG52^^1X(95B:!D<2]PG;AQ[3788KL0Q!!#B"!QK#V5 6.]&\VAPW(!(6!9b MF&."@"N"0'7*8,U(3VB8467HY:Z09E$UU1T>\U2S1P$M0!N"U(* 0A8\KN&&a MW9+3X4(*?$/BMZ*@FYGQ1 ;'^.IT6>9D'4_((5;S4PO7_BSFD"P L5YS?Z3Zz MWTFPY<8)WK'[6QMEF*>GBOI&SB''TQ,=>>ZE [_ '1S1*]90"6ZT5K)/58S3y MQ1(5WS?RWA'XQ&:X9<_>]4+OZ9VW(S8>_;B>X9_WE*2;D4AE*;])$XXX,Y&:x M]45]U=G)1!R5*SIXSREI.0/5ND6'C!2&,Y[Y2PM<0Y8Z6<0H/.&?^XZG*)K0w MSF*WFPCA,K*14+7D7FEH">/DD)Y0F:$EITG*'#YDGLL9[WL&@DI*5(*K-'C&v M1@PZ8'D2U\/1! YQ,Z2#41R8NM6!0%:T6N =>+61CIFAAD&S7_7.8+1&)1%Ou MK?(>PI[4J;)4J6'2(EX7_P9!/#)H>.)ZW6/80+D\&$4WG!ICS:CFKR/VD7W8t M$6)?^@08+:UF+EX*Y(-BATC>>"]Z8 q M;\6CQ,P!#<3\&QBAD@;H"8Y'@L(/ [_#'T2AS3)9%(T:16,1[V%O:.Q9D(=>p MN+X8^BP,0(-B4KP7EO%I2)P51!H>UJ,M)_5E0)2)'ADH8YDU)+$-;\@71]_@o M466"P XY=,T0!QF5A)SA*;XLDSL-N9&1$8B 22-#'KSW%S/429:=PJD;.AJ?FR]ANR_JJI3W58!Fk M*VOQI8U )C)F3A5VJ(PI"&+@ AJ0K%5!D8-H!&M!!=AH-4HB"Z5@-"0G.K4Ej M;O!.7&"BEJ+QA#2Q+4BHJM9*VA1--QXI QX>@EJ>Q$XBEG0/A\ B%GQ^44'Ki MG-!&M)- Z9+N#@GYE$?T) ;;C,1$9K 4&J/RH'J-[C';8@-_^P."XY$ST+3):= #:XZIW1PJ\UV<&I$1IM)!KX1R*EF@2BY4:W'.(05MS16E2>+EP]TL!\WF4'8\PER*b M1G!?630*LX/-RYVR;) JL=%S:G:?Z"*'9F[((KAKYM==JDD.^7J3EJGK&?"-a MJ[L9&\Z&?S5L*K@6QNC.-KX'RC^"Z7DKLK8:!4UDRC(R\-&-#':]O14#$.X2z M.7TI@E[,B$9_2\HN-M(X SW-*'Z9^0UK2>M:96U'U<0%D].R\:9RG%0H*\!Jy MM,D8"<%;94^QX45)I@BQF_D7I?R2@K%+V63FU*Z-^XFX_;&R;.#H/U0ND^=;x M.6XNZZA,CZ303S*8<%S?.#XLLZ%X'DG>Z^#80:!9-3BQ=95<3/OGFFS6HEFLw MX8>2[!%.2P8.KVPGG_^B)*C]\#>I#19,D:(FH8@$!$VXRAA T#JS5.M&(XUYv MX1."=X_/ 2/-^XI)[?3t M!$2HT87(S(75Q!2P:@GV"#%D+.U$F& IH0RA>"4Y24I6 D28=$0!,3 #D# s M81(]&>$4+O%%(X<2'E$$*C$$8: &$B$:0Q $() #,@ #,M!Q(% %4Q $'@$:r ! !(]q p end