Path: utzoo!utgpu!water!watmath!dalcs!aucs!870646c
From: 870646c@aucs.UUCP (barry comer)
Newsgroups: comp.sys.atari.st
Subject: Hard disk boot
Message-ID: <646@aucs.UUCP>
Date: 12 Dec 87 15:54:29 GMT
Reply-To: 870646c@aucs.UUCP (barry comer)
Organization: School of Computer Science, Acadia Univ., Nova Scotia
Lines: 226

Well now that I have posted the FOLDRXXX.PRG to the net, people
are asking for the hard disk boot prg. Well I have posted it here
only because it is not to big!!! I don't want to start posting things
here because some people get upset. We do need to find some way to 
speed up the postings in the binary section. I posted stuff there
a while back on accessing the Line-A from assembler, and they never
got posted. Well hare is the hard disk boot prg.
later
Barry

=======================================================================

table
 !"#$%&'()*+,-./0123456789:;<=>?
@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_
begin 644 hdb_2v3.arc
M&@A(1$(N1$]#        N0<  -P.BD>>,&1$ "(&BXJ.$"QPV/D!PT:*!@I8(1D&"X' %By
MR!LX>>2D.8.&#H@W9D"$8<,&!!PY;\[("=-F#H@T'>F@2>,TC)PQ4^V4 2$Fx
M#X@1,T% <@&6)4U( Y9P7$H&1! 7!,.@Z0BIPUD$8=$NL,54N&\9,-" =V&v
MZIR-'8&"P&KUS%8S:$L2VV0.:?;MAX-?-&#@@W''FWJ7@Uu
MS5 0P4$[A10AR2;55F/*T=:O;R'G*UC)DG##+AVA>T<+HFA:1C9U E996N.=\%+M11IH=E8>00@PYi
MA.D;;&@E]%9'O3%R&6U$RR0:0CFJ4\DQ)^%3Q;66*4<=OU9$GYL@2 T"LQ%:h
MG<:JLDK:%D?*I="AN4YI3037!B)XQ^4NK8:'IBC,P((++GP]MMIMO.$XTWW[g
MY#KL"G^\5:PGR^G6UIT'I3OO!S[E%,U\UK%\GV2\T2CYN=%1AQQ158IM:%!Of
MW!%O>D(,_;-TN"0CX%")3%NF!1V0%>5W4EG=U=RB Q#$S"7E69WZG*("FJE e
M:=DB#0C"U+'YN>$Z>;(:?S(UAQ 4JFG)\8J>X& 1/;EA#-=[G-K&.M!P*QQ@9RHP& B?XS3\LB:",?M;"(2;M#G&T7 *_US4$_29SJF,=a
MQE#&)-@,L2L#PD(ET5@I.&2LDQR!RADPA17*;:4-P?%)P+:2FTS)H6UV2HK.z
MBO(V4_').1>#0A*$X!(40.&4]E.EDNJ61 F1; VH2B%X6*EOED4w
M9OI$-M!Q SPUYLFV9'*@1H3A'*JRO(MYU"7&*B4:\O":;^;*46&8G!^I])++v
M*"E#1&DF3$R@-P8EJ9[.F0--L54Y_@VQ#G6:(_1.VJR8V00GV]M=)3L(J8LAu
M!5J_RHV]O(("+J J*$B-WB9)RA&K7BM;F.IA6,/9'*]P(0A5$%+'H/=5Z:5!t
MK)PBJUG92<_W.(=_:T6E$EER2=Y@-:W9@ZI1D*(4IC@%!42L9" 0 >@T) ))8BZMB!VI8M.IS$SM9U.#r
MVRE,-@"1,LPVJ/;["B1*H+0S"6C*XQ+6ABI (]'1<-HA N#Z=$+2>  ?[.66HS7VNp
M/8\R0CN5P0QLG J"0; "B5T$*45I\% \F)&MK*$,*GR?,EWZ5W/F=DR9@B![o
M?T<43"%P7=JME!FXB]4=+C (.OB:4Q!;WIWJS24ZXI&/@,1!&6DK9W2@ [TBn
M5]G*I2M4M_67J#K2,& 5UI[1]4G2:&/=)\NA:@N<3W[.\+YFSO$]"8T37(S0m
M'.K8JIX2@T];R->PM*[X)EC]LAU=DAO^=88T[6RTA'CFAi
M"%1H(!:$( 4:$.$&-D "$(A !"P51 8Q< D:"$A$0BY04D<        9%P  h
MQ XNBF?CCR(   Q@-    (+3P #0!C*@! "2 R?Y&@Z0 ''@ 5L5 6R@H.*)g
MBC8 "(!H 8 !M%8 *)P$P $:KX$A (@ (*V1,%[_( WPYR+("P O&@@Y\X,'f
M "5.@GSC)Y$!") 81$"=UH[ER)13 +TQ, %$%&3_^#T% .$JAZQ",'P-BP(De
MA&Q5.:1H$O8C  1.4#IE$Q8)&@" G.AR( G+HQ:8[I, (TW3$% FFD a
M".#*;OH@%]8PO@$G!S3!R "!,'R<%TR&R5$(P&^P79@A!. 0%X2$_(A(8C\Fz
MP@#(;OBPZ")P=&"H(8<>@CAAA;#E>&**T*P8(I#]""DCA#8B:8>.&W;XSX=-y
MC@C !X(*@"A+!TJ@:*,:G"H 8**L!L_? )G)S#$w
MO8"7+OY@8=AI 2@AJ R,5G"H"I!V:,&AB0ZT:(<=.-HJHI,*RL-N_B !#"PXv
M09+>0"3P.B<'\0DQ7'''A?FBG<\!(B@X@CK Z >Y#K3K:KW^&NRP !3+[9PBu
MQ*?'LL:Y"1NTT FJ2;6,7I M -OFYBNPZ!TJ+F],.1 ?*.@V^R.=[$H[$!7Pt
M=IC!O$!4!\  89DQD J79@J;G\# \!*)^^"0KK.:8MBNK((J("BEY]DC75@.s
M4Y = /TPD1]HHOFSH#^".F$L4\BR\X^RG$+CJ6#\6&/8SBS%9\2R0^O"CR]'r
MC\MS?$HP_2D_IABVLC\."Y";=JS,'%IN-PO* :_P^>R*U43+H75I7%MWGC_:q
M>2.V%>&-5]YYPAZJ@7VUS6D <%K<"7A@WM%,-MPY(UVNS^<&W;1\4?,K4WQ^p
ML*W+/YI4[@^Y\0FB^3[>O)V;PW.#???BN0GJ =+^^@RPY)_^PX3I<0_T]7G 8/I8(]@^3@CF#PKJLR/8/^F#*LC[KLP,A@D"R$K 0!$ H ( *P" &5)0m
M@>M() !#T $7@H $(B3!!5"0PA$ @(0PH,$-*OA"!EGPA"#H(P"$> 0$BO*/l
M?U!F 4YH@@N<(  @ , !#'"A \Z@AR#DHX2((,M+'!"!#A6@02C  0'DH (Ak
MVH$%0O3#$#X(A! D8XA+!( BG$@ .RPQ #B@HA+U\0],"&$0%HB )8P2!! (j
M41@' $8(@$$ 82 !#P3PQ1OC^(($4&8 E%E"4E88 F(,,03%J&((C$$ /XC@i
MC <(1 B"T48E ((-#A "'(TP%,H\) A@(($)@""$4[Q@ 9VD# 'RF!1'GD$ h
M7P3!&L(5@2$ X 8Q& 8!C+!")U2C"3?\AR$,L(1<&H( 2= ' %@AA!G]Q"2;g
M$T .7"@ )  A RX,0 ;> ( %A 0*^"" #R;P#@ DH(2&:  W[P+.!8SS .!,f
M  ]X$0!,K!, F-#!*P"@@& *\)V(X(-(C**(@4"  \Y4 2#DH( PL" *SOB'e
M.U3P$ITH0 8\$  6PL"!8KY3$3"H #"D=$HX_..=@)"D-AWY&6G@@@"Z0$ .d
M %" $G[P#/"0Q4EU809X@($;'@R5<3Y3S,\@@(+G^(,_0$!-'J#@+QH03 *@c
M02@R(,,,$LBI#%* A'T(88G_ ,'?_JX&P*L1\&IPP5E=+, .w
MEY5 @?V+8/H.6*Y#26]P!*, ?5RV+*LQ!P, T1!P.4 \L&4 % 8BL9*D%P"Tv
M4%_6'K$@W#M0@>%H1H$!-$J3(I_90 3W"0($9K0:<% !"#\ 0"7UFMY]&($R"!"Et
M8!R@CLLZP)3K26\  "!7#J,#M*7!AJ 0T(,.80<;"]+&@M@A* SLAAWC< T[s
MW/PG"$2C--I8&3L<5D)V:$<^.-P#^0F($:-IA!/B'I\_#C$6'6B?JJ+&@!(%C'?/8Q\GF"N#W779##FATn
MNP.XF8>$V*'IY93\Y<^!@@A04!(0B#DZ'8!K2W40"@6'; P"B$QHTW=-7P';,#XD#&S=5="( B@V#Kl
M',\JU2F ]])X0VX@_XCCKQSH\B!'SPW"D\6@6M'\7+[j
M!S>@_G@$1'[LE.?%A \ ?QI!Ri
M#_R>U=,(0  .-Q 7:"+H:"P7:;VV-!EC:9A&d
M>YWV:6=7:^:!:HW$$C@, KP?@#@ SF :7Q89F>69FMV'6V&@-XD9[J0 /*PB(!Pb
M*,;#!@% "9!8 / @&;MA#!;3#VPP&T( !53X?OJ "L/W7\6W8,5880KV#P1Fa
M% ,@& 5 !A$F& 3@/N&C.-&3&R  5^1!8GWC3]L(/(" 'BWV> $@*#H@*/OBz
M#^< !!+B#^H0!"DR"T!@'U+@"G=A <8S"+< !(HU5./A8Q+S#]; *XJR.KDUy
M'H!B']#P%P+ D'\A$N/1D$8&D>XQD2KWC_8! T1W9+.2$K!R*PLS$(\B*XRRx
M ?-" H!#@?8Q="4!#H$ DT5R::UC0()B HQB*,-S*QQ@*R;9(9(R$$?& ?;Qw
M A2H/N)@),P,A#*>2*JMR*Z^RDS\) +5"DK?B ?.B""M9$KB%8R\  >KCv
M"(;Q$V!)=(@(*GY@&#,! A]0)&8)>D9Y%^J#!FQ)$&]91J!'D4ZQEW]1%GX)u
M !+0<']A 80Y(H>I 4LI*"79("5S,J>A&/;1 P[Y#_@@*$1 ([LH'+2C/EQ@t
M&(K%#Y9."F0!/- r
M!RF@!/, !R+P$P0@>Q9QX:o
M$O&9H7OV0Q?*4@=!GWL&"1GP?0VQ 2?*4CX:H WR0S*ZHA]J /AYHO39('LFn
MH0T! ?*9H?9I $@JGV.C#Y]X%_O ;MR(@0HP)P.04XR ALM"7?I0:-?1.D?Xm
M#_IPCW+J8^^X@KWF AAR/%)X.@/X-=J &/H0-J#B D?# OK0.^%3,WE*5?J0l
M:Y/F (Y*"Z^A#^S@J+A0J=S@J+Q0J=#@J)S"#OJ #(Y*#)4*"X[*"I2A .^#k
M!7^5 VR0J/J@"K VJ[[#9T8Q >_# W\E>7.UJ .1 N.A#]#PI0Q@J5_J /K@j
M#E\* ?H #U\J ?H@#U]* ?I #U]J ?JP&$:A NK##W]UJ\)Z%\1JK)9*&3*@i
M/MX0KL * %^* ,AJ'1W&K-9QK-!J'RJ'Y,WK)"H+L];ALOI LXAJLQG[KI8ZKAW6L481/_V #A@K/OM%E[H@ ,KP5]4Q" .!e
M &Y@ )<'!AZ0M7%F%#X@& -  X:Q3/2 "F= MIOW#V PGF-WJVA+&3*C"P/@d
M )ZQJ+GQ2:]!#_9@ D@ !EH70 JP40]S!@CP28+A/X9A#4Q! 2"P (5K#V Fc
M#2_!4K0 "X'0!MB MO3S5R;P!;?Z228P'I*K"P! !(:A!$ PMV=70AD' XSKb
MN!!P!@KP @%D ((1 /A@&$*P2@KP P'$ ._# G]%N[9;MW=[>:E[JTAP#@$ a
M :T[<[O;(0-@!@APNW8[$)C@ A/@":M@9+I+3X[[BE:POHW;(0)@!G2+NW8 z
MOXZ;'B-D%*AT"LI;$I.+!E P&0< O$;VO\R[M<(B*/Z0M0Z MF]%3Y0A!,.K")>5w
M7:DU8B76!O>1'(+2@WJ%MJ&E9L,+!E$,7)O!Q?YK%$ZL"P%@!&&,&_0@G2]Dv
M!B?V)=" CU),3QYL'?GC '"\C?^08W2,6G;L *KQ0I [Q.@!!F(0C@J@FWW\u
M!A[P'_*@R.9Q@O2PPMQ(&4 PN>!P60Q02=RXQ,EKQI.K#%%,Q<+2!<#@N $ t
MMW(KQ$1, &!@,@@@!&P0MXJ\NI=L%$DPN8YP5X*;C3AC L?Y&O- )G'(<7].:X0-24Qp
M!?5*NV9 6>T*!NPQ'O=X%QV-LVGY#X @T@Q TB5ATDPK/BJ]T2[]8QYM% 7Po
M/E) TS;- #B].O)PO0   ]NK "2P!-3&#-1E#U\;MF9@ 4C\NO]  ].'KS49n
M $Q0'8+P#\F,U7#E %H-!EW]0E_M F+M#V6=U2BT.7"PUN+'E-G; DL@IS=Cm
MNJ!B!\\+!"UF"H)""1 @ =!&3RUF"""@ ),LIXP" &]0CXX- ">H#[[R6O(@l
M7/H@7/*PMT:1R:#"!YS,RO=R@O( N1 \$*@ :W&[E,)E#R]@% D*V@ @VOZ@k
MQDS! *P\9 (0O;A+!ULC!5PIQ7(*!@) W(UM'HN S Y0!N=!!F!0%@M@ V=Mj
M#)];0M P""1 V8^-V<"@V9SMV;8MVOU@6;MMVK^"VL!MMRG+ J\--[0WR)0X  .!@@. &*PX&2PX&:PX&BPh
MX&JPX&RPX'*PX'RPX(2PX(JPX)JPX*@@X/K]#ZX@ DPA+"4."BA>8M+ % I0g
MXIS0XBH..31. "^.*"5^GBE. #2>H3\N #+ % ,PY$9FY$+.#Q 0!T8. $->f
M0D;N 48> #\^ #_NXRG>GT9> $9N $@^Y$O>Y&+.%"DPY?H='$_^#U-NY$5^e
MN6-.%BTN /WSYD[.#P<@ T/>  OPY?P Y7VNYDQA 71^XT.^9X5>YUR>YP' d
MYFG>Z($^Z%F^Z/R0/T/^  _%#XG.#PY0YP-AY 1@Y!-@Y!D Z26VYCEHY#$Pc
MY =P'$R1 %MNY*R>$J0N+$;^ 'Q.$(S.%%[^YXX. !I@Y!'0Y#^^Z]=AZD?.b
M%)(. '?.Z\SNZ\ N[%F^[-YD[,2>[*SNYW[N[$P1[$PA$UD>Z]Q>[+IN[)_.a
M[-G^Z]L.[1+AZDPQZLC>Y<9^Z=@.Z-JN[.KN4$8^ D8N[7O^[DS1[_-NY.C.z
M4O<^ /TNF/MNY >?[ S@Z.?^ZMW^XPU_ZDS![\;>  Y/[QPPZP. \13?(! Oy
M[B^4\4:^ 2'O[=@QYTS!Z@_ Z6TN\K9N[O1N\DS!Y1$_Z?^@\G=1Z"__\LG.x
MA#)OY!O?[07O $8.]#!O[-P>\#S#\3$/\C5OY!,O\J'.%!)@Y%?OYD1_\_S#w
MZ4]O\P#P 4I/\DV_]?.7Y4B?[)Q^Z2+?YDRO$48. M . SG/Z;&>Y ]CYK!Qv
MACU^YEC0Y#E. &>N!!+ %%)0^ !0!(@_!8C_!(A?!8A_^$PQ!(BO^$SA I&_u
M^(A/^=V> AW"4A; 6F](55855H#Q5?K=,4%0%08@X#>NWX9+Z%Q/ZZT^Y& Kt
M^V=?ZK-?[O)I^]ZN^_F#^[]/^[W/#[??XT.>/R]> '@05OE##_3P&14D!V0 s
M D20!G.P!B @!&_P!G0  DG@!G- !V' !FQ0!G(  E: '#/0$ 7P!&[ !GD@r
M'F_@!F/P!FW0!N@_!FE0_B!0!W-0!B  !^C?!FE !W10!M6O$R@P!BD  C&0q
M SAP R @!O._!/4O!V%0_4'@ B!001?D_JY$!(D/ $:0^'B0!G0P$$10!FD@p
M_N1O_@ 0_N-?_A=7!6Z0!G2@ VK6_=\/!6$@!W20!G20!O6O VK6_=\_!64Po
M!G3P!G*@ P-1!VX@!V40!F00!F)P_@.Q!3/0!5LP!&'@!B?P_6:0!FY0_6'@n
M!O./!F% _2! !MBO_2'0!5L  D6 !VGP_5T  %L@ UVP!4[P!B 0!F- !VE@m
M!V7P_VZ0!M]O!F]0!VY0_2'0!5L  D6 !VGP_5T  %L0 UVP!4,0!FYP M\Ol
M!V40!M4O!MW__7-0!F- !V^0_B'0!5L  D^P!"#0!0!0!VX@!V40!F00!F)Pk
M_@-A!^6?!F0@0&\@!V60!F=@'6G@!G90_FE !@"P!3'0!5O@!&\  G-0!N<_j
M!G10!M4O!MW__7 0!G) !VE !VE0_R 0 EVP!2#P!-K?!0"P!3'0!5LP!&'@i
M!B?P_7<@!VE !V4  F+0_=\_!V4P!G3P!ND? EVP!2#P!$L  ETP$%L0 UVPh
M!4,0!FYP M]_!W*0!G10!B @!MW__7-0!F- !V^0_B'0!5L  D^P!"#0!0,Qg
M!$_@!#HP$$%0!5B@ Y4H!52@ P/A6>XO  :@I1H(24Y)5$125BY43U,  #0%f
M  #$#EIM>#,R!P  #& T  !@0!\ 2 ,L##S Y* #)_D.#F  <: !/BJ>J&@#e
M@ "(%@ 80&L%@,)( !R@\1H8 H ( -(:">/U#Z$_%T%> 'C10,B9'SP *'$2d
MY!L_B0Q <,0@8NFT=B@_EIP"Z(V!"2"B(/O'3RD "%(Y4!6"02M7%!PA9(/*c
M(443KAL!('!"T@ (-ER1H $ R(DN &:P/'K!XI^]'X7U^06@@3F \ @@,X$N+S-]SO_X\\("0;"CCP\F( &&y
M!3"L ( "P.PVP!D(#+B8"H)9 CF!!K//B#w
M@Q3I\@\+T_7XHWO_P"+(*v
M06L6"<@95N2YFP!FM/>>'7YV= 8$EGTV94B+H0'%8P) 2 ,9 _X3F 'W!2!B4$s
MDVYX?7S'F]8)(7]E>]\ 'R@?-'!,#V[D@ !I*P!,J(X@_C'"$I;LA&!0(0M="(  N$"&_JBA"1? i
M(CCH4%@\/%,+EO /?; -4Q[T%7!( A0( Sh
M +Q,'U\$P!N 0,:<-?%4Z9('<)HX1WG@!S) TX4_^# TJL'C5"Y;#84Z-1!4g
MP( %ZHE&V^9HCQ<$!2$"N.//I&B$/J8''IGRS9;>0P?$!4@*BB!CNO0!!@& f
MLHT 6 3?A%4& /R##&  RP)L4#)CD(@VT!@$"=A8QC/"$35R#(X^ZBA) .2Qe
M'^2PI'H ^3)Y;+)+$#AD(MO&-?4 3ED, $#K=M,1-:QF"!\2P5&P)8.CN&2Z"PG/O7ISW)J3!K\c
M*  >F#!YH9PA.