[comp.sources.atari.st] v03i098: hdwboot -- Wait for hard disk to come online

koreth@panarthea.ebay.sun.com (Steven Grimm) (09/21/90)

Submitted-by: kloppen@gmdzi.gmd.de (Jelske Kloppenburg)
Posting-number: Volume 3, Issue 98
Archive-name: hdwboot

This program writes a boot sector to a floppy.  If the floppy is placed
in drive A, you may turn your Atari on while the hard disk is spinning up.

  j.k.

  Jelske Kloppenburg, kloppen@gmdzi.gmd.de, (++49 2241) 14-2433 
  German National Research Center for Computer Science (GMD)

--------------------------------------------------------------
table
 !"#$%&'()*+,-./0123456789:;<=>?
@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_
begin 644 hdwboots.zoo
M6D]/(#(N,# @07)C:&EV92X:  #<I\3]*@   -;___\"  $        !W*?$z
M_0(!^ (  '$    +%:"S9CRW P  AP(   $           !H9'=?<F5A9"YMy
M90  "@ <JWP     @ %     0"DC*   A[QQ0Z<,P3DZ&BA0"*(A%31IYH Px
MDX9-&84,&R(A<B5($BI"GKAH\H1(0Q /RX" (^<-'9=YX*@T\T8."#IH5(IYw
MXQ+$G#)C7LIA >*.G#1T"KH!D69IDS=DZK )(\-%QI-8LV)%D1($E#!RUB !v
M2X9(Q#4@QH1APZ9H&(DT;?X<4^<HG3Q%(5J\668.G:9G7*3 J.#DQBLAGU 9u
M,K+DR:YSWM0=H_*-F9LY0>QT.5=H4;N 5[8\(R=,FS96%Q;6R#'Q8A=4GDPYt
MJ:2.W[1KV1#-(AD$6)4LW[2!4Y#,S3=,W?R40P>S2C)GDU_52KTAF:-V5 9Qs
M 8((<J1$(38/XP;OFC)XR1O'J9,GG<XUF<Z97EVK4:1*4RLL@@?.5#=A_#50r
M0JJ=E,1EO-4! AIA9.<;"-#-@=8=2*&!642:N><34)XU!2%VVNW66QMAX#4'q
MA72,@<95"=H4!!5!2)$$" /E59%*["U(%H3183@''$VY$5H=<'#7U6;-P2?'p
M5<&19EH;1574UAUA( 5"'015Y)R.<A@7(5H8RE%&&&2DY\9Z.2TE)AUUN7%5o
M9%OZ!1:;<$3)EFAO4%:&<2A:R&"7/$JHWVHHR8$74MQ-(9Q*?WIYED0HL">Fn
M;Y.6D=U2T)EA1AEB$@3"%$C(  ,-)\R1 H0#)0FDFX02F9=!&4JZIV9XG5#0m
M;5A:*2:9>9PPZ$EJN+#&KPTI408;$JJT!!MOP"&3&V+4=091:S#KK$% G-$&l
M&7JDX8*V9+A 1AE$H;#""C3D ((,,M 0PZDQT-!"NS/, ,)51W!*XE).!)C&k
M0&N!($5?8\JA(@A#&%2037$A+!P<=2S\Z1AI&$09""@<T001@RD0$-RGQ/T"j
M 7D)   _ P  )A0MA"L*:0H  #H&   !            :&1W86ET8F\N;6]Di
M  H '.M%     ( !0    $ I(R@  )L\(5*%21$02(A<"9.&S@X0$"-*G$@1h
MA0H09M[( 2'FS1LZ<\J,H:,1A(H4#108D?*D"8@I6:90*>(R21,H3Z10 2$Dg
MRTP6(*[D) *4R1,G1X1*(;(CY<J6"(D$J3-'HDV<.D% "2-G#1*N9(BDF;.Ff
MJ4J6+K$(2?)DBM6;.7=.J0.GC)PB>$2:?>IRR!LW2=P\J4,'Q-6X(/P"=K.Pe
MX5ZT(([0)-(VXN&LBJ],,9O22A IB?_2D?.&#1N[0<:,*3-GCI0R9T!L@6'$d
M" X;,&@@Z:(CZ%"S$HDT"=+D#9DRKV-3C#B[]FT8-G;W5LHT9?#A?MNT">.&c
M3/*JS6WCULT;A%&DU!]:#.UF=.G3&U.O;@W"!(CBQT$D=V$2I0*)9K#QQAAKb
MR$;##$5(QY-/10 7$1)ZR  ## 8*$82"YQTQQ&?5_1=1$T9 (1MMM04QH8*?a
M21%$%K+%X((+,M#0!0A/&,%3$E1,4005ZEU$51D@_,5&'B"@ ,.+-Z30GW41z
M!3'$%$F\%@89>?26XHHC(CECC3P]\81!03CA($1.O)%0$ZP!M=48:9B1AEU6y
M2J$BB[.].(.,--HX!!*?<:; $$?)%!D428C8 P@Q/"1<$$(T!,*A-8S99 R/x
M(OJ0DU F5^D,#QE!Q!!$A$%'&)7>("E$4'RV1*4Q"('$0S,)>B@,?EI$PA0Mw
ML$ "%;F2$,4*(+CQ!@ASC$H@"&.@(=(:0 D+@AS<G0%DLLL"%4<=:1P[1QUBv
MR.'"&&&85M5)*4'!TA!%$"3%04)X1,<4(I$DAUF>@>8&4%1P)2T=O6VX5!).u
M!,&$64(4<03 3 :K0P^T)FS4$U D'!$5K-&!:1*G@F!$3B#D*\>^("Q,(15/t
M@' #")099N/%4E*YA<?[SD@%$D4X 4(16.!XLQ-$[-PA14G8Z$:E-5 Z<\WLs
M:89"F6>REL)#..M<\\\3 3P$"FX\+3&J8;#IIEU;S" #;SWL*076*"=A!:(4r
M CL4"B? <$(*6GLHT9IMOBE'V#.0;3;: O4<0]LT+@6WW'1GG-D4*.#]M1QUq
M1S1U2NL%K577>8,M]HPC@' "'B=T3+/-BZ,P!!MRH#F'DE,OJ4#K[7X$[T@:p
M^6GN$^BJ>Q# 5#1&!PIW,$2'A##TEJ&_1*30FQ!>@BEF9Y^!0$<:;91A_%$:o
M<DBPP0C;/7WU"T-(_ K!-T3\F.M"44005&RM,@A./+$3"HLV6AC ]X6XQ1&$n
M0M&%DD>SV;JH4 4IV(P*4JC"029GMRHX@0I)8 )"(C0A$/C@4-\K _IV5$";m
M&4%@.DI)ZWCG.]N=*UT%/ C%B@6S,OR."&6P0[:LEQ@. 4Q@RNO2E];W/ 74l
M*S3:X0X9A) '.M"P)S.1U!C:0(:0F0=[R)-4&XQ#PPRM)4<[DE0:(M(O&P9Lk
M8"DIV,&<D+#L;*<[1#3BPI!8!/K%<(8F 8&$D  "8,6*"I&#R!2/LS KXDA'j
M5-B#IT EJC"P@&6PZ<.8%H4?Y,!F8=1!P1[+D$=D,;&/4.20Z=X01#06D9)Qi
M'-R$8$!'8!U/DY.LY*+,*,3O8!(];ULB&2IIN?CMA(3"0\'@ #@Z_7#0@!H#h
MX0)Y-B:K,4&25#QD#)YF23*\,GN&2^68-@::-"S,:"6C <J>X+Y5<O*,WH'-g
M')X925E6TC(VLJ5A'N@[7<* ET@;8 >#R00=^2QA4QL3SH9PS$FR8)"A&A4Sf
M9?E,Y"'S.*K$SC=;*4YRQI*)M$RG_-;9NUP2#YX"_*4'A>FS8CJ!GP<MPS\_e
M%= P))0X5$P.)-\FS83)$Y@(5* (>=:QBK70(2DIUPEU5]-B78Q>T;MI%__Ud
MQ>V-,6'4[)B^7"BRCI7L9)1Q7X &M(8U,LA(M4'".2&"R"GEX65+I0/95DB'c
MFZ+@IEM%V7 :J=(>1%*0)"UD'](Z50)9=29&\H_D>#;3GI'UIPFSR!2 12X%b
MA)%[9+2;X_2V,!& ( LLR($:UC"%-YBA,.6;GAMBDY&-?$4.9"##6 J$!SR(a
M8$R+!1L,R#:#&0QA3$P3#FM"U@/'0C8'RR'3L#X;VM'F%B*G35AL53<;UKH6z
MM5SQ"EC$0I8Q*28P)<RIW>92E[OD90PHB-V[XJ41__0U*KYS04H" MRGQ/T"y
M 4H;  # "0  "Q7[JF4*!#   (H1   !            :&1W8F]O=&,N;6]Dx
M  H ',,=     ( !0    $ I(R@  )L\(5*%21$02(A<$?+F#9TA.T" 0*$"w
MQ!TY:>B4 2&F(9TY9<;0>2,'Q$B+83*",$,2!)HP<LB023-G#0@5*1HH,"+Ev
M21,04[),H5+DI\0D3: \D4(%1! B4E@X)0*UR)0I4H<,++)#)T^?((:\<9/$u
MS9,Z=$ @5<HT[-BR5U+2R3IV2IF'=>3,(=EU9\^?9<^FE:@VZ=*F5S!J+#L7t
M1.*,9:;0P>CF3-^O/X4D>3*%\%'#;8_<%0)%B%32I">?+BU5RI4@8N:TOG+Ys
M+P@LFCE[7GL8!!0Y#AWF@5.&H4.[(OEZM7VD*!'=G]DV?<*&#)4R<MI$]$P1r
M!)LT;FS>R8@&1/,F088,P>*"B9,E-W,JT&DEB!000NJ8,8-=B ZG4D@11!8@q
M; &#"R[ 8(012'0!PA-&A&4?$4DX$003?7EFW$-OD%%&$&3(\9]2%1)U'Q5/p
M2"@%A19BJ).&I8$H(GZE03%9AH3),<9_3#SAQ!$EXBA1B&G84894("4GAU1Co
MO%&'&W3\-\2$%5XH) AI2$EEBWWI1!$)4+0 @AMO@% &E'+D,69+9>"A4I,>n
MKM02'6ALQ!(;;+PQ7F4@P '<&&60D==&..D$14]#%$&0% =M*):'?0E1!)!.m
MA+45"B]ZINFF$G5W!AQIP*%I&7'4H2D)"Z8:! PQ<%I1$T9 L<414"0!A8.Nl
MRL?IKH1U-U--(LG!AIFEGIJJ$3C8  ,-A%4D%IIOX(D="&&, >@<<X @1QEGk
M%*H K[SZVD88;72X$;&F>H9JJLG"8(.K(!"!'@A-F N"%-QJZBVXNW9G1IYCj
MV$08J>D21@(-,QS$;T7R!N'=&P'SNB^_FW;W!1IZ?"$###!(1/"I- CA\,(@i
M; P#QB T^:1&)36K*\6:=E<1S#37O.O$("Q;1 TV(,&"@@L6X?-$,^_Z77B>h
M!6$#"R.L:X3"^H[IPATTX[RL##8(_7.J6A,-[AALR#&UP5RCH'0*\+JA0P\=g
M4VRU#3%P[#/',<B P]#=#1$&GM?-D59L+1/6-QWI39'$S2 ,7OCA-[^<\PVKf
MWC TI]WQ6JZ1<;@P[ @WL$!$#23CD#A,9]R5;:Z9YDQ##D8$,3>K-M" =]&<e
MLE%&&)HN'E,>*$ Q1 HL!,'L3=J6,4<=; PFL>/+!C&#[#_7P#$,LR=N/!U,d
M-"3J1W2X((;!,)A-@^<UH+UI16F889(<=9S;>.KNWD##$)-73/NF8I"J:1%Nc
MTC$XXIJBTYG,U#^7P:\&,1@"$>;&KNKQB@QB4)]G/L>"P67O#:+R3$7RA$&8b
M66T(6?/9#&3 P*#YK'*;&D,;0#4V$(Q >BQP6A',9@/S$2]]8P)!#T @O?=]a
M2R+N4E;7*'<_38G!#>X[BA.&X(;>_<YF"V,>#7  N=?%X 9=0R&GB(,[SSCAz
M#0EI@O&<:$.)%%& ;@#!%Q%"!#,R;P9&F ']?C:]'#AP5Y<K0PM'D ,6M,!Ly
M-RBC!OGUK"MT)C[PHT$1:!"#^L6LB)Z93!@R*)$1M,J#_#K/<SICM1H, 0<,x
MD@H1P14&F61N6"Y<6A!N $4/,D]94W0D=R!)&#'(H8N$X9]*2 :N-NT2D3_,w
M60VPIC6@/:UZ%6*BIDI)ALQ1S84DB$$,RW:V9HUI!2NH&O,@)S=1V@]<>3PEv
M-&% OE9&$7XS"((,BLFU.W(JCRV4(0V!][E!IK%F5L-!$(PPQ^G!P'52T>*Fu
M9F*'@KDP;N64&&$H9 40Q&UY\+L!#F9 /6\^$IQOP)SFH$E1SPW/G*@+)@R(t
M(#SH]8N6$F%F"^,UOGJ"ZW[9/ $,3N!#PBR+=0"E&\_<N2G;X5(B<<F(&.>@s
M!3(&[Z-0M%H,<("#&LBR5R@% 3R_%Z\:L$!\@ASD288ZAS"4+J0VG2(-G&K1r
M68)K#G>8Y 1!A\DT"J2-#ZTI$"5*T:=V*JKAW&C3.DH$I()4@\PC*0U,.DI>q
MJ?29+$VH0CT3TYG*574XM6+(>*HIGVHJJ'08Z@Q]!SSA@52I3"7K23%J).])p
MA()85>A6C=?5KYY/BE3,*:MD8%*!:HJ+EY7+4,D8-<S2B[5>32(P;0I'.;Z.o
M8W8,*%XSJL=G\M&/@,RJ&=WB!D.Z38J+;&19H0HN25+RH%4SCW.@ U&1>A*4n
M=O6:84VYT50&CY5_?:R[_DG8;_+*EC\-R][8\+_X C:1D:5C#&;0,^6"0)?^m
MNYYW;I=;H1JOJ)P]ZF>9!X,AQ !ZTY,H93VC0A92=00GP,,)KBH\Z9KS;3>Hl
M<'IMZYG\Q6%_!?0O6($XQ2H*N*X&YA5N/3.$L.V6L^<+BT]+@H0WM$&X;D1Gk
M'/M9QPT3!I[.[>,?5VEB9XW%NN<4J2(9N>*H>M<SE@RO)LDKW_.&<K3K;69[j
M1Z!*^,KXOUK>V1"_B6!-/8D- I.(TMXL7T7>0+2%W94</L)G;::N9C(KM(RMi
M1E(A))><(0.HUTKD6VK)I+T@N%C&3*98:R)!#R8#03;3FI%0#U<B$TTN68T9h
M2@6M2KN'IEEW8 6%_HJ!>V F@54_%2K$-0P$9!@+D@TH4AO LLO@.J)P19*&g
M(RLZR5JV6T71O"NPB0V5\6J;VT"0!^/]9UMTR$L:)].^4ZNN"']&-J\&?;IGf
ME]>F(G/TW%@0Z>HQV]F$Z7![-:TQCG7:FF3Z3Y-6").-T*'9A'KE.B4=:$Z)e
M 0UIT!2M^PLO#G[WW7,%FKKQR%QQCJ %TB2"MK7:;"=%J7CAED,:S; WD%C-d
MSX"VKZ )[6Z,VRS1-3\Q=G>ZM07-T6N#HP+IO .>/#ME:4U+U1#@E=0WJK.8c
MT[M;CCE>VF>2  ?S_/=TB5 &.Z0!4%FV:1&$,-:-<RH,<V##2E^H]:A59&-(b
M$'7.)M(#H@PE!4KMZZJ/Y62)3/6T5G6:$>8Y2+&T85QN( -'\J 1?3G=N'2$a
M 5/[+E7F[O'J..AT1<H5IST8@0@*# ,=PA"\(1@.7V?H@]5FH/<2\I/R4 ;\z
M-'U.^/CB; 9RW'NJ?-:N MLV]E5E 1G&Q7DD5P0D:1D^[HKO^(B:S.R;RNOFy
M2$!.(ERRT$J5P3I=?V86/]GR5!5\UJU?>",C7O%B8+QP7XX#+F_WKF=-ZW?)x
MC\F3V,X,:4%L\T4Z0AC$_**68WG/1$'TIU#,=Q(8<09HD'_09E,R($?:Q6J\w
M=VQ7=3_PA$K6)WPTL0;!@FT5<1*_-G#G5SQG, =6PTT,)W/O9'FH9$G5QU;8v
M]THQ( 33UG#X,P>!HT144&GP0FII(3UMT&[[%U;"4X,JN"G<LU(B%UZ_%FQ(u
M! (_,&,Y8P,I5E\ N"LNIBE.T"8/T0:*%X.))&?09V=N@&=)\RXY]W+H]G]Ft
MM6XT=V)K\FUW(6XKT7()ESHAQ (RT'.O)TK=L85XT(5?2!)IL'8DL(=.,P2Us
M1SS)Q 0H4'S!$P-E]')VHUW4QBG6AFD%Z&ZKIWWLY'.P)X 2D8CC=WW$<Q(Br
M& :))X4P(%$P, -CZ!G2YT(SX%$DHS)0,BTV!P,/:&'<-X'+XC.Q!C-YXX47q
ME$$7>%K2]"L<.!G#4A$B:!)E$H+F1X(FN$VKDH)7N(*EU8((Y5)@6&PQD -&p
MN(TWF(-JX00[*!<*Y8,\! -!V&=%&(N$D82(M828U(3"MHM4&(SOIUY8J#\\o
M9HS: S6+MG-S9HYD:(:$L6=IB%WI]H_>)Q'L]E<5$7 H1X<LQP8@86[^ET#]n
M%#0_5XQD<(P' 4$2M%#C,P0$V4$'F3K$5$(WT&I*)XS!A&B0I(HS<7D+,I.Sm
MQT^$5Q%%@ 5#X(B0^'FA-WIHTXG;QX<CN5Q5-XI*5XI:52:IN(JO!9,0^(LLl
MT"[0\WLLJ(P:""S.2#S1"(+S$HW;4H)6(P/.TT\_\TFAV(V5Q&G@^&9O$S<5k
M!30V\)3)AH.:0FGLB#CN& -"F)5:-H\2Z65^HX0C]U+Q,B]..&P-"$3]:(5Mj
M&) OYAG;4DI^(WKA&%9BN)C@<F=&YY UIX81>8F;4I&?%8<9J7)UR)%W&$QYi
MB -[69,56#R>.7II08B&B)L_J8C55!&-^(CFP@)(202B%P9XQSQNV93&Y)<!h
M2)<@0(IGTW8V<WNYQY6]=T)%!'P4I'S,%S7(%YD.4Y[$%E;21H\2D8G8AH_;g
M!FYT2&[&AY#N"0*F>88YYY$PEY^NV9]#"$4X)Z#XM',%9DQ95!&*8WJ'<S2Gf
MB70RQ&>4F(<*2GF9B%CR5$U!-GIR4#K*4V8*\FCTEC"4YS>;\B\08W05MZ+He
MN8MP))WM9&!"]Z''6'E1>9W45$/01643!C]PTTU 4P-2!Y .!YB>$71#!R\:d
M@:(>"J*(25Q/YWH+2EK-)95!,WXP^*-:%F#3@S649UE)XZ"[8U2>Q:4V-8ZXc
M.3?2TTU&&GW@=UKD1'WB0SZ3" )^0Q(;L2W'DSP#"@*XUX=KRH>A])V[B:-7b
M"DW"29[V4A&,ZB'_L4.>!WK,.7JJYS@(9 0DBC!#-)%XFI*$H:(1 YEWYJ*_a
M%J5 !$):TSD7>JC5MD*%Z%PDT#D;6D.V]THTX"[Y*0;6LC^)1W%XR3S#9*$Sz
M^J;+Q%ZR*DVU:F*&5FPC58Z9Z7"WI"DU>@8W2J'X29I%\*L*II]E&*']J9ILy
MR%UN>)@&BC,X23P&>J#P\S/N2DZCI#MDH"; -@:F95/OFJ_DM*]H"G^8-51#x
M8J]4-8HSR (GD 4C-D(K4#<LH+ R8%4GH 9K, 5O@'\HD1'@<09R4A(O$1/,w
M" (G@#,S6 /))0-#, /)90-*(P0^4P,$%DIX2(70LS$W(#DL #<VD%SRD[,Vv
M21A90X4^LS'&YC,V8 0W0$)ZZ"Y2AX=7A+2Q$SM$FP,W (LW*P1PQP(11452u
M!Z\7]:\/5J_W*A$A1E.IZ3CIZK5S<)("ZQEC^S.<R#PS6';N^DT])@< &[!At
M>YT%>P)%,&*/.5T]=CM$9F3#AJZR5A%1M:[[]X=@)"_&@[<#J[>F<; )*P,+s
MNX<."[&\0B8N 1,RL8'@XK<B*P0D&[0G6[*\6%$;<[4PF;I!Z[I)FX=%R[JVr
MF2S:=;10>[,TP+,L,+4VP+)8&TRKJ[JP.[RO2[N$8;QN:X.*&W8$&E4N<"9?q
MJ+C>,HR;@C9%X 1MY"CFTB4*<"A/D"B+TB@>\2AEL*UD$!'9N[WE:R[HZ[V2p
M0BFI\RQV@1=Z01(H@%!UDP)"\A@:(1F4<08H( *.H1@;T;&*]['NV!$.@:<Ao
M,1(E,19. 0(A,!$0EQ:JJ"9K4 9YD (BP+_S^Q;5)1="0K]W,01YL1=RD+][n
MN+]"0B1&LC8=TQT.@Q,1D200+,,1@8M1T@,Q("3=42V  @?)MX'_@3.H(2-Km
M(QIT@!HH ,-E ,+!I"-KXQJP,0<H@"^E%#Q0@0+YL1_] 3P\S (X3!+"AQ%&l
M(L6$D001HB,N-'=4@ 39.XS^&QF3D;$#?&!R !PE\<$14<>,@0(E,BE%( 4Hk
MH"/ ,P-J?%D&#,!X3,"=.1-\XDM^D[$<X1$.K"1^/(S/ A=RD3I%P 134 3#j
M^,7\(0="8"!=L#;*DD!(L!W=H09UL$+2Z% '8;CXH1^GG,HQL,H]H+*_^\KPi
MQP7.JR&ZW!];( .^[+)%*\SJY0,@( (22['X1\"X;,K(/ .^;&SRX\S=\0+%h
M3!C<ZR%*W -/4157X<7MZR&+[!E9PC8,<B42P2A04 1!T!38C,I;D :^/,X?g
M$B)>(,^[DDPHD ;\BQ_K_,\B8LY4P2CI[,\R@C;9) /#6 7JF 1,@- .8;XRf
MHD-3@<Y3H,X;[;Z)U\Z$0<_VC,_'K,_\K,/IJ(@&#0(63048C24>K9>O/(R_e
M$1QT,!S%X1'( <%FT\7Y+ 3  W)^)$V2*-!4W -6'!LH4,=<;,A%+<9. B5Dd
M_,!F#,4F?11M/ 9OW#%Q/,<WR<B0X<B5D<=%L,<MX<<%#!F!/,C-8<B(W+!=c
M[1EUC-8"3, 7@;%\@D14P\!I4<9RX-;6*Q&=/,(9,8SK"\K:*R3481W8T08Zb
ML;YLM!#EZP(Z$1#<I\3] @                                      a
6                          #\@P  z
 y
end