[comp.binaries.atari.st] v12i034: 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 12, Issue 34
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.

Source (in modula-2) are in comp.sources.atari.st.

  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 hdwbootb.zoo
M6D]/(#(N,# @07)C:&EV92X:  #<I\3]*@   -;___\"  $J       !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 <</   _ P  "Q4DL5_U_A$  (@,   !            :&1W8F]O=&,N=&]Si
M  H ' ?U     ( !0    $ I(R@  ,%H   @ @>"" $0X)>P84,G^0@Z0$<0h
M!( @0X9@ =#D#9DZ;,*TD/%B"A40*,:D #'D#9P\<M*<04,'1,>/(4'( #'Eg
MC1DZ=\+(*0.""1TR+D#$R(&C!HNE.&PD!9!R9<N7,6?6I$(D"4^?0(423>)Ff
M3%*H3J%*M0CB"R1(L% I%,-@'"!H<A% @X< @!-HT2@BR(+HKY,ZAYU8(8CDe
M'!X (EP 8$!",@):O C^^R?&@Y A@H2A<8 C@) @2(*$MA% !H'02(:P/IT:d
MC.=!K&/3#H*#!X 'XQ:-BR1+4!D"D@1)&1*%V3]Y+89,;A$$  (FWP!X<.(Ec
M<1PGW^,DB0A@ A85#%P4 ?%$""CW[D/X!@ !@'L52" Q)#%$'P #(23@ A*=b
M. ,100+XHQA!,%CV@U]!J ! "T4 H !WB2T&0(/6/<BA @\Z$>&$%3* (6(:a
M@F#9"P"H.!F+'$+@H602A#@BA0!0<.*"&SK8HX4/NL@ C)+)"*&$.$JPHQ7_z
M\)/%(T*<X40N! 5  Q6/M/!%DTLV^>0/O@F@!P :.%C E%4J@4666_+3I9./y
M@*G0F&5V>":5  2@)IM<=H>BEW'Z5@"=9J*9YYY:]IDA05_Z=H"A5F*IP@<Hx
MN&$=!H4LR6B@ "P Z96/*/&)%<4044 '%2*@*0"- O###T56^B(%+U@&J1E/w
MO#.9K R@\,FJK0(!*WV\OD"KK7@&@*NNO5K:ZZ]^\MBJ$+72-ZP#A$[VPYU5v
M.I*KA;(BX.N.Y &@H(88DC> (W#XA2< F/#X@6\;0.H,EO.R:B^6>H"@C:4*u
M?,!MGO<^TN^_U@F\[R,GPB& H? J]H\_53",IP!2*/'!&0X@X<9FA@I PYI@t
MF.,QR!>/S'"TY F 3[L0QXMN=^01H(O$XNA0) ,5@E &!CKGR#,  I3A0- 4s
M#$V"& 3H$0 88E)E*0*8AJL$!6<(  8!3OA'S9A(4_B/.$)\C$ZU%M0Z-L2:r
MN/#)I#T4\8\Y.L\]M )D6* '#/_.C8,+_Z"3A#O_L)-!(4#XY9\&=9M#0(4*q
MX!&$-D3\'?C@A1^>N!1FHZVV.&ROJ24 %BCA"NE9@R&)$C2>(4'=@A-N>&8Mp
M0*'X?U.8W8/9_Z@#.^;L6*X.)F:;X.P%M-B>>.Z!*V%V&UIK4[<Z4A3!JQ To
MV$XN00,4-O.!"FG#HQ Y$#2!&=LK1 N/AA)@3+H$'2"*"U0T83O]]ONE8= *n
MZ#+U& [8G84FLR/_,$" ?3%1M)C$CW )@0)"8 $ #J !"1H  0688.JXYA]1m
M@$V"/A ;/TS7I UV#0",> $#?B!!!)R,'R^0X,,NYHEO*0 %7U !X$98!#9Xl
M0(7&LPX2II O"!CJ ";@PB-P6$"J?!  /M"%*TJH 2!.;8CY4A6>D*A$)OK)k
MBD*<@A!.<,0D+C&'$M2!+E@! !F,P0 I8 , =-!&/?PC!16R@1#DZ ,$L/$ j
M_^D2/7BE@C2:HQ'@: 0<%A".4HA0ATU:(P!L8$+_* *,#!BBH0K @37A\&IGi
MX)J?4O QAMA A6KC!PNM,\87ADP9W^K5%UK !X+TY1_X4.$J7?BQ7,HP9'*Ph
M(0XAB0\E% $\+9"C#9J$RAWNLI6E?&4L<:C"BA5RC@(H1/S^4;UMK=('[;/'g
MFG1 J2_DH$(AE*, _D$/X['SFCH00!$.\(\+G$X!MD, .R;X'RFP40>LL\X9f
M% !/2;H1CG*DHPS@F<UM*J$09L  )C6))TYZ\@MQG.,D5R4K!6#@= @(* +.e
MP( ,U#( $]0G0@S 48!5\#\8!,  SH ","H BY9YZ04S* !2F4IA%74'%,YXd
M0HDR((@W):)O!E#&+GXA?02@QOCR8#XTP&^"ZN#1(FTDH8?Z]%2I6A4<$,!5c
MJ5TJ4RR+'R? AX +:0@"/G*8C=)W '*PU0)L)0#,WB4S@HR (1-TAOG4\-?Xb
MP<-\;BCL!&EA/CE<%0'>(\@'+(,"JI;'#4Z@!)96E:\&5!:QF<67;VYHV0E@a
M5K,K2PQY$&!$#9'/?'BXZ@*P,80G.(&.4)#";2]2!2S0L0ANH$,9Y ""$Z3!z
M#2< @1G2P(8RN"$,;2"*#RP"7.$2]P1OJ ,=DKO<YCXWNB"8+@ <%C.)^:-Ly
M$ZN;/_PW&3$ #7#^6,+IFF4=)60/ &<P .<F!@9O[&YB '! PP( ,4OL%2%]x
M!8 2RI>C )R!#1I@, 4&P( ,#L , K%,A0'0 #/   FE]45GCX@$)2[8?+XPw
M@P1 C.)\76B+)6:8?RC XO*(&%GQB_&);7R%4A5@ L4PGQZZ%@ *U D!&^ZPv
MUC@( $?02<(# ,'  / 8AP@ (6H8\<4D(%H+A8S+CY@ 0U!:GB'[1PF&0H 7u
MQ)PG(9\0!UJN$CRZ_&(Y8XG-9)Z F7-TPK[ P#Z3(>^[+'%"/#R9(!.6,L2Jt
MW) K$P0+D[7.E^\\9C?[APB1UJ(MD4#I-I?YA"S(-*3F'.9*?WK&?08 "0#@s
M&P8(&B&$]M.K"2*SB:'7'W@6\H[U? 8=J)>]#! ##-0KWUU-S;ZV.X,'B#W?r
M<'W@OH9*  >PM%]_@,$7#9LA@LU;L: Y8%L=Y72:L:'$H"% $U^(V\1R7>9=q
MZ^$,&'#>Q-X@@7R!(-K3?@3SK T.;X,;8.+&DP)DH<2&J:"\3+(&_XS)!@$0p
MH0A(*,8+"B G!3C/0EWPL<#D=(*38>-DUS#4 $3QK1KYIN,?P\:P--TI" PUo
M?0@0Q(%I/3X)VT?" GAM@W4^X:LR0 L\XA!9?P2B'ZVP19)Q (NR)0$84'R\n
M! A1$Y!4(1TMD$%Q/8#4J>[EM'9*&N!C "."[J,/!4DR0T(Z?5@$AQKYQ0GIm
M8P 5P.< =X#@"C$1+@C0(!0R@( ,:9C#&D 0E#341 QO>$--YE"&,=#A#<1]l
M@QM $ 00A  E:# \",+@ACR 8 UER$,*6E0$.<@!\FP92A@ [X8S^ P/@:?#k
M<5V/>,6#@/&.ASSI38_Z%MTA[[,'@1O*< <0U'[QC7^\'/1GZX_Y(PQY0H$>j
M#I $?02 #,C&+Q.BT Q<,L!2,IB8&3KF-#_(*0$B4B(8D%!ML,%7$0R)'-^Zi
M8GTK8 H)1<##_*L?@"7<WVDD<'[I]PA@0 K\9P,,0 %41E)(X#0P((!!4'!^h
MH@UX8C,(4#X%L!G69P8$( 2 <!BZ4(&Z( ;J  ?_D"%-8F[K4 2HLADZX!N(g
MH&[\, /%L!F&8 #+)P& \P^I(0,%, +!8(--HP!A  M*  2A="( 8"GKQ ]"f
M$ @RL$-X, ! *(1Z0(20<(1)Z"?-43@"\#%_T"11V"15^ ^&0  J,!\ @ S0e
M]P]LH(6B=!A+" " T"20-(,U:(8&X(%=<E[.!P4UXP.P,C%MZ%OP57T 8 (9d
M  BV,P,,48=Z& 6!^'T3-#%DH%_.!P;0H(0. 0 ;D 4LD -JL 8]\1.$%P:&c
M%WQF@'I\)P=D 'B"!P)X4&4;4"&>"(HY  *ZN(N[Z 9OL'=]!XN#QXO$2! Sb
M%S'?@QCDP0"&<(P)5G%R8B)X,@ *L"9R4@,UQ@"28"@#5W#3* 71&(TB5XU0a
M8ED6  %"8(X2X(B>9@$4\"4,=HZ&P@ Z@"4CD!VD,QA0<@+C@6AH."04%X\4z
M\ /Q6"/Q:$1XP@ $$$OW2! 6P !*@"</>09"("<&D(W)P(T$]P@J$(\K1'%+y
M92@+P ?6Z!L<D(W1H)'>R#VZ97TZX(A@<! Y0@"..(J(9@".V!.(A@".^!.(x
M1E#ST0 0, )!1CHTR1 /X) 6\%E&J0/Q: %+D!G_H U%< 3D00$$< .48#M2w
M8(X6T)$.20!44 A$&99I*!'8$()AF3K X)1*&94 ,)5%T(\S*01TP)5>Z9:Dv
M\Y!%@%*I8PUTB97H,7$OP .;L1E@@IB^06 )"0:Q]"3Y$@"!^8\31Y ..9 %u
M:9FD@Y $H9 ,B8\/&9$.R0!G((B^<9&6Q0#OH)(<Z9'>%))X,I(E"0 7D(WWt
MP)HBIUO)8@N<V&@!8  J  DB,)P:X $NP (ND#0(X  ,  $0P)P.P)Q(A@6<s
MPP *<)T(@ <@H (8X 4H( (J( )>( 8:X  *@  V8  :8  7I  $8 #O20#+r
M:0'1>9Y&P -MA0 6<)YM99UMQ0'Z:9WGR9P*\)#ZJ0#F:9X/"0$&0 ,4@ $4q
M8  24)XR8* *P)X79 4&P (&$  !( 4.@  2P  7%*(7A #M>:'L>:$DBF0Mp
MR@ ($*/LB:(&8)T7M*(VZ@ 8  $J:@ L>D$,T*(&0! ! =RGQ/T"        o
M                                                         /R#n
 m
end