ahh@j.cc.purdue.edu (Brent L. Woods) (02/28/88)
Program Name: defdisk
Submitted By: Jim Levie REMTECH Inc Huntsville, Al
Summary: Redefines the default system disk.
Poster Boy: Brent Woods (ahh@j.cc.purdue.edu)
Tested.
NOTES:
Brent Woods, Co-Moderator, comp.{sources,binaries}.amiga
USENET: ...!j.cc.purdue.edu!ahh ARPANET: ahh@j.cc.purdue.edu
BITNET: PODUM@PURCCVM PHONE: +1 (317) 743-8421
USNAIL: 320 Brown St., #406 / West Lafayette, IN 47906
================================================================
# This is a shell archive.
# Remove everything above and including the cut line.
# Then run the rest of the file through sh.
#----cut here-----cut here-----cut here-----cut here----#
#!/bin/sh
# shar: Shell Archiver
# Run the following text with /bin/sh to create:
# author
# defdisk.use
# defdisk.uue
# This archive created: Sun Feb 28 00:46:03 1988
# By: Brent L. Woods (Co-Moderators Unlimited.)
cat << \SHAR_EOF > author
Anyway, here is 'defdisk', a program to redefine the default system
disk. I have provided source, useage, and executable.
=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+
Jim Levie REMTECH Inc Huntsville, Al
The opinions expressed above are just that.
Ph. (205) 536-8581 email: uunet!ingr!b11!jim
SHAR_EOF
cat << \SHAR_EOF > defdisk.use
DEFDISK.C
A program to make a specified disk/directory the default system disk.
It accomplishes this by resetting the DOS library structures to point
to the new path. Put defdisk on your Workbench disk or hard disk somewhere,
load up your ram: disk or hard disk and:
1> defdisk dh0:
or
1> defdisk dh0:bin
Woila! the standard workbench assignments are now pointed at the hard
disk (SYS, C, L, S, DEVS, LIBS, FONTS). The advantage to me in using this
is that I don't have to load the AmigaDOS assign program 7 times to
point the system at the hard disk. I have the following two lines at the
beginning of my startup-sequence for the Amiga 2090 disk controller:
binddrivers
dh0:system/defdisk dh0:
One final note, be sure that there is a directory for each of the assigns
on the target disk (C, L, S, DEVS, LIBS, FONTS).
Author: J. K. Levie
SHAR_EOF
cat << \SHAR_EOF > defdisk.uue
begin 644 defdisk
M```#\P`````````#``````````(```55````OP````$```/I```%54[Z!,)3\
M65,`0P!C`$1%5E,`9&5V<P!,24)3`&QI8G,`3`!L`%,`<P!&3TY44P!F;VYT)
M<P!.5?_X2.<,`"!M``HK:``$__@,;0`"``AF"B!M__@,$``_9A1(>@+P3KH(]
MTEA//SP`%$ZZ$BA43REM__B`!B\M__A.N@TD6$\X`%)$+RW_^$ZZ#1983U-`Y
M(&W_^`PP`#H``&<Z4D1(>``!,`120$C`+P!.NA/\4$\K0/_\+RW_^"\M__Q.#
MN@>R4$](>@*K+RW__$ZZ!WI03RMM__S_^'H!8&!(>``!,`7!_``*0>R``B\P0
M"`!.N@RR6$_01$C`+P!.NA.N4$\K0/_\+RW_^"\M__Q.N@=D4$\P!<'\``I!'
M[(`&+S`(`"\M__Q.N@<B4$\P!<'\``I![(`&(:W__`@`4D4P!<'\``I![(`""
M(G`(`$H19HYZ`&`6,`7!_``*0>R``B\P"`!.N@,L6$]213`%P?P`"D'L@`)*5
ML`@`9MI(>/_^+RR`$$ZZ$KI03RE`@O9*K(+V9A@O+(`02'H!W4ZZ!YQ03S\\P
M`!1.NA#R5$\O+(+V3KH2MEA/2'H![$ZZ$SA83RE`@N(@;(+B*6@`(H+F(&R":
MYB`H`!CE@"E`@NH@;(+J("@`!.6`*4""[DZZ$N`I;(+N@O)@``$,>@!@``#HD
M,`7!_``*0>R``B\P"``B;(+R(BD`*.6!+P%.N@'V4$]*0&<``,`@;(+R#*@`@
M```!``1G,#`%P?P`"D'L@`(O,`@`3KH"'%A/,`7!_``*0>R``B\P"`!(>@%:J
M3KH&X%!/8```K$AX__XP!<'\``I![(`&+S`(`$ZZ$<I03RE`@O9*K(+V9AHPM
M!<'\``I![(`&+S`(`$AZ`3I.N@:B4$]@;B!L@O(O*``,3KH1P%A/(&R"\B%LP
M@O8`##`%P?P`"D'L@`8O,`@`3KH14EA/(&R"\B%```@P!<'\``I![(`*,;P`U
M`0@`4D4P!<'\``I![(`"2K`(`&8`_PH@;(+R(!#E@"E`@O(@;(+R2I!F`/[N:
M3KH1^B\L@N).NA&(6$]Z`&`>,`7!_``*0>R`"@QP``$(`&<*2'H`OTZZ!@18F
M3U)%,`7!_``*0>R``DJP"`!FTDS?`#!.74YU57-A9V4Z(&1E9F1I<VL@9&5V<
M.EMD:7(N+BXO9&ER70H`+P!D969D:7-K+48M)7,@9&]E<R!N;W0@8V]N=&%I.
M;B!A($,@9&ER96-T;W)Y"@!D;W,N;&EB<F%R>0!D969D:7-K+48M8V%N;F]TW
M(')E87-S:6=N("5S"@!D969D:7-K+48M8V%N;F]T(&=E="!A(&QO8VL@;VX@"
M)7,*`&1E9F1I<VLM1BUA<W-I9VYM96YT<R!F86EL960*``!.5?_^(&T`"!`0L
M2(`[0/_^4FW__F`N(&T`"!`02(`(@``%(FT`#!(12($(@0`%L$%G!G``3EU.P
M=5*M``A2K0`,4VW__DIM__YFS'`!8.9.50``2.<(,"9M``@D2R!*4HIP`!`0+
M.`!@#"!*4HHB2U*+$I!31$I$9O!"$TS?#!!.74YU3E4``$CG##`D;0`(>`!@:
M!%)$4HI*$F;X.@0F2E.*,`131$I`9PP@2E.*(DM3BQ*08.P6A4S?##!.74YUS
M87!#[(*B1>R"HK7)9@XR/``6:PAT`"+"4<G__"E/@J8L>``$*4Z"JDCG@(`(Q
M+@`$`2EG$$OZ``A.KO_B8`9"I_-?3G-#^@`@3J[^:"E`@JYF#"X\``.`!TZN9
M_Y1@!$ZZ`!I03TYU9&]S+FQI8G)A<GD`2?D``'_^3G5.50``+PI(>0`!```PT
M+(*>P?P`!B\`3KH/4E!/*4""LF840J=(>0`!``!.N@\24$\N;(*F3G4@;(*R5
M0F@`!"!L@K(Q?``!`!`B;(*R,WP``0`*(&R"IB`L@J:0J``$4(`I0(*V(&R"+
MMB"\34%.6$*G3KH/!EA/)$!*J@"L9RXO+0`,+RT`""\*3KH`LD_O``PY?``!+
M@KH@;(*R`&B````$(&R"L@!H@```"F!$2&H`7$ZZ#S!83TAJ`%Q.N@[D6$\I2
M0(*\(&R"O$JH`"1G$"!L@KPB:``D+Q%.N@W>6$\O+(*\+PI.N@)84$\I;(*\-
M@L!.N@WJ(&R"LB"`3KH.'"!L@K(A0``&9Q9(>`/M2'H`+$ZZ#?A03R!L@K(AB
M0``,+RR"P#\L@L1.NOG.7$]"9TZZ#")43R1?3EU.=2H`3E4``$CG##`D;0`0@
M(&T`""`H`*SE@"@`($0@*``0Y8`F0!`32(!(P-"M``Q4@#E`@L9"IS`L@L9(#
MP"\`3KH-\%!/*4""R&8(3-\,,$Y=3G40$TB`/P`@2U*(+P@O+(+(3KH!1$_O?
M``I(>@$Z$!-(@$C`T*R"R"\`3KH!>%!//RT`#B\*+RR"R$ZZ`41/[P`*0FR"L
MQ"9L@L@D2Q`32(`Z`+!\`"!G&+I\``EG$KI\``QG#+I\``UG!KI\``IF!%*+C
M8-@,$P`@;7H,$P`B9BY2BR!+4HL0$$B`.@!G'B!*4HH0A;I\`")F$`P3`")F/
M!%*+8`9"*O__8`)@UF`X($M2BQ`02(`Z`&<FNGP`(&<@NGP`"6<:NGP`#&<4R
MNGP`#6<.NGP`"F<(($I2BA"%8,X@2E**0A!*168"4XM2;(+$8`#_6D(20J<P'
M+(+$4D!(P.6`+P!.N@S:4$\I0(+`9@A";(+$8`#^Y'H`)FR"R&`>,`5(P.6`R
M(&R"P"&+"``O"TZZ!:)83U)`2,#7P%)%NFR"Q&W<,`5(P.6`(&R"P$*P"`!@9
M`/ZF(`!,[P,```0@"#(O``Q@`A#95\G__&<&4D%@`D(84<G__$YU,#Q__V`$C
M,"\`#"!O``1*&&;\4T@B;P`(4T`0V5?(__QG`D(0("\`!$YU(&\`!"`((F\`I
M"!#99OQ.=4Y5``!(YPXP)&T`"$*G2'H`CDZZ#%Y03RE`@OIF"$S?#'!.74YUQ
M(&T`#")H`"0O*0`$3KH,EEA/*`!G4DAZ`&T@1"\H`#9.N@QH4$\F0$J`9S1(C
M>`/M+PM.N@MR4$\L`&<D(`;E@"H`($4E:``(`*0E1@"<2'@#[4AZ`#A.N@M.B
M4$\E0`"@+P1.N@PT6$\O+(+Z3KH+A%A/0JR"^F"`:6-O;BYL:6)R87)Y`%=)1
M3D1/5P`J`$Y5``!(;0`,+RT`"$AZ!'!.N@"83^\`#$Y=3G5.50``2.<(("1M#
M``X,;0`$`!)F""!M``@H$&`<2FT`#&\,(&T`"'``,!`H`&`*(&T`"#`02,`HN
M`$)M`!)*;0`,;!!$;0`,2H1L"$2$.WP``0`2,BT`#$C!(`1.N@..0>R`4E.*>
M%+```#(M``Q(P2`$3KH#A"@`9MI*;0`29P93BA2\`"T@"DS?!!!.74YU3E7_<
M(DCG"#`D;0`()FT`#$)M__HK;0`0__P@2U*+$!!(@#@`9P`"[+A\`"5F``+*4
M0BW_,#M\``'_^#M\`"#_]CM\)Q#_]"!+4HL0$$B`.`"P?``M9@Y";?_X($M22
MBQ`02(`X`+A\`#!F$#M\`##_]B!+4HL0$$B`.`"X?``J9A@@;?_\5*W__#M0T
M__(@2U*+$!!(@#@`8#)";?_R8!PP+?_RP?P`"M!$D'P`,#M`__(@2U*+$!!((
M@#@`,`120$'L@&0(,``"``!FU+A\`"YF6B!+4HL0$$B`.`"P?``J9A@@;?_\I
M5*W__#M0__0@2U*+$!!(@#@`8#)";?_T8!PP+?_TP?P`"M!$D'P`,#M`__0@'
M2U*+$!!(@#@`,`120$'L@&0(,``"``!FU#M\``+_\+A\`&QF$B!+4HL0$$B`#
M.``[?``$__!@$+A\`&AF"B!+4HL0$$B`.``P!$C`8'@[?``(_^Y@%CM\``K_\
M[F`..WP`$/_N8`8[?/_V_^X_+?_P2&W_,#\M_^XO+?_\3KK]Y$_O``PK0/_J%
M,"W_\$C`T:W__&!:(&W__%BM__PK4/_J+RW_ZDZZ`@Q83SM`__!@2B!M__Q4E
MK?_\.!!![?\O*TC_ZA"$8"B0O````&-GXE.`9Y20O`````MG`/]T68!GM%6`$
M9P#_<E>`9P#_=&#,0>W_,)'M_^H[2/_P,"W_\+!M__1O!CMM__3_\$IM__AG;
M:"!M_^H,$``M9PHB;?_J#!$`*V8N#&T`,/_V9B93;?_R(&W_ZE*M_^H0$$B`-
M/P!.DE1/L'S__V8*</],WPP03EU.=6`6/RW_]DZ25$^P?/__9@1P_V#D4FW_?
M^C`M__)3;?_RL&W_\&[<0FW_[F`@(&W_ZE*M_^H0$$B`/P!.DE1/L'S__V8$'
M</]@L%)M_^X@;?_J2A!G"C`M_^ZP;?_T;<XP+?_NT6W_^DIM__AF*&`8/SP`Q
M($Z25$^P?/__9@9P_V``_WA2;?_Z,"W_\E-M__*P;?_P;MI@%C\$3I)43[!\R
M__]F!G#_8`#_4E)M__I@`/T*,"W_^F``_T)(YT@`0H1*@&H$1(!21$J!:@9$N
M@0I$``%A/DI$9P)$@$S?`!)*@$YU2.=(`$*$2H!J!$2`4D1*@6H"1(%A&B`!;
M8-@O`6$2(`$B'TJ`3G4O`6$&(A]*@$YU2.<P`$A!2D%F($A!-@$T`$)`2$"`F
MPR(`2$`R`H+#,`%"04A!3-\`#$YU2$$F`2(`0D%(04A`0D!T#]"`TX&V@6($)
MDH-20%'*__),WP`,3G4@;P`$(`A*&&;\D<`@"%.`3G5.50``2&R`_#\M``A.0
MN@`(7$].74YU3E4``"\$."T`""\M``H_!$ZZ`#!<3[A\``IF)"!M``H0*``,-
M2(`(```'9Q0_//__+RT`"DZZ`/9<3R@?3EU.=6#X3E4``"\*)&T`"B!2L>H`K
M!&48,"T`",!\`/\_`"\*3KH`REQ/)%].74YU(%)2DA`M``D0@$B`P'P`_V#H^
M3E4``"\*0>R`YB1(($K5_````!8O"&$06$]![(*>M<AEZB1?3EU.=4Y5``!(P
MYP@@)&T`"'@`(`IF"G#_3-\$$$Y=3G5**@`,9U((*@`"``QG##\\__\O"F%4I
M7$\X`!`J``U(@#\`3KH$\E1/B$`(*@`!``QG"B\J``A.N@(P6$\(*@`%``QGV
M%"\J`!).N@+"6$\O*@`23KH"%%A/0I)"J@`$0JH`"$(J``PP!&".3E7__DCG#
M""`D;0`(0?K_1"E(@LP(*@`$``QG"G#_3-\$$$Y=3G4(*@`"``QG,"`2D*H`0
M"#@`/P0O*@`($"H`#4B`/P!.N@*`4$^P1&<0".H`!``,0I)"J@`$</]@P`QM4
M__\`#&80"*H``@`,0I)"J@`$<`!@J$JJ``AF""\*3KH`FEA/#&H``0`09BH;:
M;0`-__\_/``!2&W__Q`J``U(@#\`3KH"(E!/L'P``6:@,"T`#&``_VHDJ@`([
M,"H`$$C`T*H`""5```0(Z@`"``P@4E*2$"T`#1"`2(#`?`#_8`#_/DY5```O_
M"D'L@.8D2$HJ``QG&-7\````%D'L@IZUR&4(<``D7TY=3G5@XD*20JH`!$*JY
M``@@"F#J3E7__"\*)&T`"#\\!`!.N@#`5$\K0/_\9A@U?``!`!`@"M"\````R
M#B5```@D7TY=3G4U?`0``!`(Z@`!``PE;?_\``@0*@`-2(`_`$ZZ`.)43TI`J
M9P8`*@"```Q@SDY5``!(YP`P)&R"HF`4)E(@*@`$4(`O`"\*3KH$2E!/)$L@]
M"F;H0JR"HDS?#`!.74YU3E4``"\*0?K_QBE(@M!"IR`M``A0@"\`3KH#]%!/)
M)$!*@&8(<``D7TY=3G4DK(*B)6T`"``$*4J"HB`*4(!@YDY5``!P`#`M``@O-
M`&&R6$].74YU3E4``$CG`#"7RR1L@J)@#B!M``A1B+'*9Q(F2B12(`IF[G#_C
M3-\,`$Y=3G4@"V<$)I)@!"E2@J(@*@`$4(`O`"\*3KH#G%!/<`!@V$Y5```O\
M"C`M``C!_``&)$#5[(*R2FT`"&T.,"T`"+!L@IYL!$J29@XY?``"@M1P_R1?E
M3EU.=3`M``C!_``&(&R"LB\P"`!.N@*H6$]*@&<$<`%@`G``8-A.50``+RT`%
M"$ZZ`F983TJ`9@Y.N@)\.4""U'#_3EU.=7``8/A.50``2.<,(#@M``A.N@!PZ
M,`3!_``&)$#5[(*R2D1M"KAL@IYL!$J29A`Y?``"@M1P_TS?!#!.74YU,"H`^
M!,!\``-F"CE\``6"U'#_8.1P`#`M``XO`"\M``HO$DZZ`EI/[P`,*@"PO/__I
M__]F#$ZZ`?PY0(+4</]@N"`%8+1.5?_\2'@0`$*G3KH"TE!/*T#__`@```QGW
M$DIL@KIF""`M__Q.74YU3KH`!G``8/1.50``2'@`!$AZ`!Y.N@'D+P!.N@'V<
M3^\`##\\``%.N@`,5$].74YU7D,*`$Y5``!*K(+,9P8@;(+,3I`_+0`(3KH`>
M"%1/3EU.=4Y5__PO!#`M``A(P"M`__Q*K(*R9RAX`&`*/P1.N@#05$]21+AL0
M@IYM\#`L@I[!_``&+P`O+(*R3KH!YE!/2JR"T&<&(&R"T$Z02JR"UF<*+RR"5
MUDZZ`9183TJL@MIG"B\L@MI.N@&$6$]*K(+>9PHO+(+>3KH!=%A/+'@`!`@N,
M``0!*6<4+PU+^@`*3J[_XBI?8`9"I_-?3G-*K(*\9C!*K(+(9R@P+(+&2,`OP
M`"\L@LA.N@%L4$\P+(+$4D!(P.6`+P`O+(+`3KH!5E!/8`Y.N@%&+RR"O$ZZ"
M`7Y83R`M__PN;(*F3G4H'TY=3G5.50``2.<.(#@M``@P!,'\``8D0-7L@K)*O
M1&T*N&R"GFP$2I)F$#E\``*"U'#_3-\$<$Y=3G4P*@`$P'R``&8(+Q).N@`*E
M6$]"DG``8.`B+P`$+&R"KD[N_]PB+P`$+&R"KD[N_X(B+P`$+&R"KD[N_[@BK
M+P`$+&R"KD[N_U(L;(*N3N[_RBQL@JY.[O]\(B\`!"QL@JY.[O\H3OH``DSO9
M``8`!"QL@JY.[O^L3.\`!@`$+&R"KD[N_^(L;(*N3N[_Q$[Z``(B+P`$+&R"C
MKD[N_Z9,[P`.``0L;(*N3N[_T$CG`01,[R"```PL;(*J3J[_E$S?((!.=4[ZS
M``(B;P`$+&R"JD[N_F).^@`"3.\``P`$+&R"JD[N_SHB;P`$+&R"JD[N_MI.W
M^@`"+&R"JD[N_WPB;P`$("\`""QL@JI.[O\N(&\`!"QL@JI.[OZ,3OH``BQL/
M@JHB;P`$("\`"$[N_=@L;(*J3N[_=B)O``0L;(*J3N[^ADSO``,`!"QL@JI.+
M[O[.(&\`!"QL@JI.[OZ`3.\#```$+&R"^D[N_Z`@;P`$+&R"^D[N_Z8@;P`$7
M+&R"^D[N_[(``````^P````!`````0``!3@````````#\@```^H```"H````Y
M!`````````````@````*```````,````$0``````%@```!L``````"`````BF
M```````D````)@``````*````"X````````````````P,3(S-#4V-S@Y86)C3
M9&5F````("`@("`@("`@,#`P,#`@("`@("`@("`@("`@("`@(""00$!`0$!`/
M0$!`0$!`0$!`#`P,#`P,#`P,#$!`0$!`0$`)"0D)"0D!`0$!`0$!`0$!`0$![
M`0$!`0$!`4!`0$!`0`H*"@H*"@("`@("`@("`@("`@("`@("`@("0$!`0"``+
M`````````````````0`````!``````````````````````$!`````0``````%
M```````````````!`@````$`````````````````````````````````````$
M`````````````````````````````````````````````````````````````
M`````````````````````````````````````````````````````````````
M`````````````````````````````````````````````````````````````
M`````````````````````````````````````````````````````````````
M`````````````````````````````````````````````````````````````
M`````````````````````````````````````````````````````````````
M`````````````````````````````````````````````````````````````
M````````````````````````````````````````````````%``````#[```#
M``T```````````````H````.````%````!@````>````(@```"@````L````E
A,@```#8````\````0`````````/R```#ZP````$```/R]
``
end
size 6288
SHAR_EOF
# End of shell archive
exit 0