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