amiga-request@abcfd20.larc.nasa.gov (Amiga Sources/Binaries Moderator) (10/15/90)
Submitted-by: "John Davis,chem dept, UoC NZ" <CHEM194@canterbury.ac.nz>
Posting-number: Volume 90, Issue 280
Archive-name: util/zapdh0-1.3/part01
[ uuencoded executables enclosed ...tad ]
a utility for 2090 owners who are sick of the the OFS partition of
their HD being called DH0:, and who are equally sick of brain-dead
install programs and filerequesters that list only dh0:. Will
rename dh0: to zh0:, allowing you to mount your main (ffs) partition
as dh0:. Also includes a facility to 'clone' the df2: drive as
df1: for people with one internal and one external drive on their
2000.
#!/bin/sh
# This is a shell archive. Remove anything before this line, then unpack
# it by saving it into a file and typing "sh file". To overwrite existing
# files, type "sh file -c". You can also feed this as standard input via
# unshar, or by typing "sh <file", e.g.. If this archive is complete, you
# will see the following message at the end:
# "End of archive 1 (of 1)."
# Contents: listdevs.mod listdevs.uu zapdh0.doc zapdh0.mod zapdh0.uu
# Wrapped by tadguy@abcfd20 on Sun Oct 14 14:27:23 1990
PATH=/bin:/usr/bin:/usr/ucb ; export PATH
if test -f 'listdevs.mod' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'listdevs.mod'\"
else
echo shar: Extracting \"'listdevs.mod'\" \(6787 characters\)
sed "s/^X//" >'listdevs.mod' <<'END_OF_FILE'
XMODULE lister;
X
X(* example code showing how to scan the DOS device list
X to work out what devices are available to DOS,
X what their types are ( whether they're a device, a dir etc ),
X and how to extract info on properties of devices ( host device
X physical parameters etc )
X*)
X
X(* by J Davis v1.0 10/89 *)
X(* v1.1 6/90 *)
X(* compiled using TDI M-2 v3.01a *)
X
X(* thanks to Patrick Horgan for the code he
X posted to UseNet showing how to do the enviroment probing
X*)
X
XFROM DOSLibrary IMPORT DOSName,DOSBase,BPTR,BSTR;
XFROM DOSExtensions IMPORT DosBaseRec,RootNode,DosInfo,DeviceList;
XFROM AmigaUtils IMPORT PtrFromBPTR;
XFROM SYSTEM IMPORT NULL;
XFROM InOut IMPORT WriteString,WriteLn,Write;
XFROM LongInOut IMPORT WriteLongCard,WriteLongInt,WriteLongHex;
XFROM Libraries IMPORT OpenLibrary,CloseLibrary;
XFROM DOSLibrary IMPORT DateStampRec;
XFROM FileHandler IMPORT DeviceNode,FileSysStartupMsg;
XFROM SYSTEM IMPORT ADDRESS,BYTE;
X
XTYPE
X
Xstring = ARRAY [0..255] OF CHAR;
Xstrptr = POINTER TO string;
X
XDOSenv = ARRAY [0..255] OF LONGCARD;
X
XVAR
X
Xourdosbase : POINTER TO DosBaseRec; (* use this to access dosbase *)
Xinfoptr : POINTER TO DosInfo; (* points to DOSinfo node *)
Xdevlistptr : POINTER TO DeviceList; (* points to current place is DOS devlist *)
Xdevnodeptr : POINTER TO DeviceNode; (* used for accessing device nodes *)
Xfssm : POINTER TO FileSysStartupMsg; (* used to access the filesystemstartupmessage *)
Xdosenvptr : POINTER TO DOSenv;
X
Xnameptr : strptr;
Xcptr : POINTER TO CHAR;
Xp : CARDINAL;
X
X
X
XPROCEDURE WriteBSTR(b:BPTR);
X(* output a BSTR *)
XVAR
Xnptr : strptr;
Xc : CARDINAL;
XBEGIN
Xnptr:=PtrFromBPTR(b);
XIF nptr^[0]>=CHR(1) THEN
X FOR c:=1 TO ORD(nptr^[0]) DO
X Write(nptr^[c]);
X END;
XEND;
XEND WriteBSTR;
X
X
XBEGIN
X
XDOSBase:=OpenLibrary(DOSName,0);
X(* open the dos lib *)
X
XWriteString("listdevs v1.2 By John Davis 6/90");
XWriteLn;
X
Xourdosbase:=DOSBase;
X(* get a usable pointer onto dosbase *)
X
Xinfoptr:=PtrFromBPTR(ourdosbase^.dlRoot^.rnInfo);
X(* get pointer to dosinfo struct *)
X
Xdevlistptr:=PtrFromBPTR(infoptr^.diDevInfo);
X(* get a pointer to start of devlist *)
X
XWHILE devlistptr<>NULL DO
X (* scan down device list checking as we go *)
X
X (* print out the device name *)
X WriteString("node name : ");
X WriteBSTR(devlistptr^.dlName);
X WriteLn;
X
X Write(CHR(9));
X
X (* determine the nodes type and display it *)
X IF devlistptr^.dlType=0 THEN
X WriteString("Type : DEV ");
X WriteLn;
X ELSIF devlistptr^.dlType=1 THEN
X WriteString("Type : DIR ");
X WriteLn;
X ELSIF devlistptr^.dlType=2 THEN
X WriteString("Type : VOL ");
X WriteLn;
X ELSE
X WriteString("Type : ??? ");
X WriteLn;
X END;
X
X (* I'm primarily interested in devices,
X VOLUMES are simply currently mounted disks
X DIRS are assigned logical drives ( such as fonts: )
X *)
X
X IF devlistptr^.dlType=0 THEN
X (* node is a device node, extract extra info *)
X
X devnodeptr:=ADDRESS(devlistptr);
X (* transform to right type *)
X
X fssm:=PtrFromBPTR(devnodeptr^.dnStartup);
X (* get pointer to filesystemstartup block *)
X
X dosenvptr:=PtrFromBPTR(fssm^.fssmEnviron);
X (* get pointer into enviroment block *)
X
X (* if there's no fssm the fssmptr _should_ be null, but this
X doesn't seem to be always true ( espec on par, prt and ser )
X so check to see if the dosenv[de_tablesize] makes sense also
X *)
X IF (fssm<>NULL) AND (dosenvptr^[0]<=16) THEN
X
X (* printout host device for this dev *)
X Write(CHR(9));
X WriteString("Device : ");
X WriteBSTR(fssm^.fssmDevice);
X WriteLn;
X
X (* and the host devices unit *)
X Write(CHR(9));
X WriteString("Unit : ");
X WriteLongCard(fssm^.fssmUnit,8);
X WriteLn;
X
X (* now probe the enivroment space *)
X
X FOR p:=0 TO SHORT(dosenvptr^[0]) DO
X Write(CHR(9));
X
X CASE p OF
X 0: WriteString("env size : "); |
X 1: WriteString("block size : "); |
X 2: WriteString("SecOrg : "); |
X 3: WriteString("Num Heads : "); |
X 4: WriteString("Sec / Blk : "); |
X 5: WriteString("blks / track : "); |
X 6: WriteString("reserved : "); |
X 7: WriteString("prefac : "); |
X 8: WriteString("Interleave : "); |
X 9: WriteString("Low Cyl : "); |
X 10: WriteString("High Cyl : "); |
X 11: WriteString("Buffers : "); |
X 12: WriteString("bufmemtype : "); |
X 13: WriteString("Maxtransfer : "); |
X 14: WriteString("Mask : "); |
X 15: WriteString("bootpri : "); |
X 16: WriteString("DOStype : ");
X END;
X
X IF p<>16 THEN
X WriteLongCard(dosenvptr^[p],8);
X ELSE
X WriteLongHex(dosenvptr^[p],16);
X END;
X
X WriteLn;
X END;
X END;
X
X (* display the taskpri of the device handler *)
X Write(CHR(9));
X WriteString("Pri : ");
X WriteLongInt(devnodeptr^.dnPriority,8);
X WriteLn;
X
X (* and the amunt of stack for that task *)
X Write(CHR(9));
X WriteString("Stack : ");
X WriteLongCard(devnodeptr^.dnStackSize,8);
X WriteLn;
X
X (* print out the name of the handler *)
X Write(CHR(9));
X WriteString("Handler : ");
X cptr:=PtrFromBPTR(devnodeptr^.dnHandler);
X IF cptr^ = CHR(0) THEN
X WriteString(" default dos handler");
X ELSE
X WriteBSTR(devnodeptr^.dnHandler);
X END;
X WriteLn;
X
X END; (* device case *)
X
X (* I don't bother extracting any info from VOLUMES|DIRS
X there's not much of interest in there anyway
X *)
X
X WriteLn;
X
X devlistptr:=PtrFromBPTR(devlistptr^.dlNext);
X (* scan on down devlist *)
XEND;
X
X
XCloseLibrary(DOSBase);
X
XEND lister.
END_OF_FILE
if test 6787 -ne `wc -c <'listdevs.mod'`; then
echo shar: \"'listdevs.mod'\" unpacked with wrong size!
fi
# end of 'listdevs.mod'
fi
if test -f 'listdevs.uu' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'listdevs.uu'\"
else
echo shar: Extracting \"'listdevs.uu'\" \(10702 characters\)
sed "s/^X//" >'listdevs.uu' <<'END_OF_FILE'
Xbegin 666 listdevs
XM```#\P`````````#``````````(```8B````=`````````/I```&(D[Y```0"
XMX"!?D)"PJ``$8@SC@-"H``C0\`@`3M#1Z``(68A.T"(`<`9.1TYU3E;_Z"H`W
XM>`G:A#U%__XJ#E"%+47_Z$#N__@M3?_T+5;_\$YH+4C_[`QN``?__F<(#&X`%
XM"/_^9A0M;@`2__HJ+O_H4(4M1?_H3OH`0@QN``___F8,3F@M:``(__I.^@`N6
XM#&X`$/_^9@Q"KO_Z0J[_\$[Z`!H,;@`)__YE"DYH+5#_^D[Z``@M;@`*__I)U
XM^0```!@XKO_^0BP``BEN__H`!#EN__@`""EN__0`"BEN__``#BEN_^P`$BENQ
XM__``%AE\``$`&BYN_^@@.0```!0O0``"/KP``"Q63FA9B$Y@3G-.7DYU2?D`)
XM``!4*@PB17``+'@`!$ZN_=@J`"Q%.CD````8!D4!]4C%(@5.KO]P($]!Z/^`W
XMD<"Q[0`$8@9R`W`&3D=.=4J?+T[__$YN+2\``CT7+2___$CF__PB42".+$E,/
XMWC__+U[__#Z>+UX``DYF+&___$YS2I\O3O_\3FXM+P`"/1<M+__\2.;__")1<
XM((Y'^@`J+0L]/$ZY/3PG`#T\1OPDCBQ)3-X__R]>__P^GB]>``).9BQO__Q.&
XM<R].__Q.;BTO``8]+P`$+2___$CF__P@7R)H`"0BCBQ(3-X__R]>__P^GB]>C
XM``).9BQO__Q.<T;\)P`N'PP'`"=F!DZY```"4`P'`"9F!DZY```!4`P'`"5F=
XM!DZY```!@@P'``IF"'#X3KD````L#`<`"V8(</=.N0```"PP!T1`4D!.N0``P
XM`"Q*GU4`9@@"5_C_@U=.<U,`9@0^@4YS4P!F!D;\(`!.<U,`9@1.<4YS4P!F8
XM"B`!3KD````L3G-.5@``2.=X`"(N``PD+@`(M+P``/__8AY"0X+":`XX`4)!)
XM2$&"PC8!,@2"PDA#-@%"04A!8!Y"@S8!2$-"04A!.#P`#^.+XY&R@F4$DH)2%
XM0U',__(M0P`,+4$`"$S?`!Y.7DYU3E8``$CG_P!,[@#P``A(1#8$2$:]0UOG5
XM-`0P/'_PQ$!G``$.-@;&0&<``0;60@1#/_!C``#\:P``_G`/R$`(Q``$S$`(^
XMQ@`$=``_`S`$P,9(0#($PL<V!$A&QL;0@S8$2$?&QTA!TD-"0TA#T8-(1#8$&
XMQL;20TA!0D-(0]&#-@1(1L;&T(,V!,;'TH/1@C8$2$?(QT)$2$32A-&"-@7&X
XMQM*#T8(V!4A&QL9"0TA#TH/1@DA%-@7&QM*#T8)(1LS%2$'21DA!0D9(1M&&M
XM2$?*QT)%2$72A=&"4('1@C8?>`1Z&0L`9P921`9#`!`4`.BZ0@+HJ.BI@H);'
XM!0L`9@S4@M.!T8`$0P`*8R1*0VLH2$`"0``/@$-(0$H?9P1V'P?`2.X``P`02
XM3-\`_TY>3G543W``<@!@ZG`%3KD````D3E8``$CG_P!,[@#P``A(1#($`D%_0
XM\&<``(Y(1C`&`D!_\&<``'"0009`/_!K``!X,@:Y05OG`D8`#PC&``0"1``/,
XM",0`!$A&2$1R'G8`82(D`W(7=@!A%G()XZO5@FM.!$``$&L``"S6@]6"8$#>"
XMA]V&O(1<R?_X`\.>A9V$6\G_[FH,WH7=A`.#2D%=R?_@3G54CW0`=@!([@`,#
XM`!!,WP#_3EY.=7`%3KD````D?``&@P``"`#5AF0*XI+BDP9``!!KXG(`,@)^/
XM"^ZJ[JONN4(!AH%(0@)"``^$0$A"2A]GMG`?`<)@L$Y6``!(Y^``<``B+@`([
XM9T@T/$'@2$$P`68*2$$P`7(`!$(!`$)!#$``_V(,X8CAF8`!0@$$0@"`2D!K[
XM"@1"`!#2@=%`:O;KB.N9@`%"`4A``D``#X!"2$!([@`#``A,WP`'3EY.=4YUG
XM3E8``$CGX``@+@`(XY@D``*``/___P*"_P```&82<`!R`$CN``,`"$S?``=.%
XM7DYUYHKBB.*2!H(X````(@#FB.:9`H%P````@()@UDYQ3G%.<2H`(\4````$\
XM*@@CQ0`````J#R/%````#"`O``0J`"/%````""HY````#)JY````"%"%(\4`[
XM``!02?D```:01_D```!4>@L6W%?-__PC_````1`````4+'@`!")\`````$ZN8
XM_MHJ`"/%````$"/Y````$````$PJ/````?XH>0```$PI10`R+'@`!'`'3J[^]
XMJG`%3J[^JG`&3J[^JD*G0J="IR)Y````4"\)0J<J3Y[\`"2=SF$*+GD````,D
XM<`!.=4[Y```&HF1O<RYL:6)R87)Y`$[Y```%Q$*Y````8D[Y```(@$Y6```O:
XM#B)N``@L>``$3J[^8BQ?3EY.=4Y6```O#BAN``PJ#")%("X`""QX``1.KOW83
XM+%\J`"U%`!).7DYU3E8``"HN``CEA2U%``Q.7DYU3E;_X@QN`"``$&44#&X`E
XM`@`490P,;@`D`!1B!'H!8`)Z`"AN``@8A2AN``A*%&<"8`1.^@#4>@`Z+@`4,
XM+47_XD)N_^@O+@`6+R[_XDZY```"ABZ?*A\]1?_F#&X`"O_F9!@Z+O_F!D4`D
XM,#@N_^A)[O_L&85``$[Z`!HZ+O_F!$4`"@9%`$$X+O_H2>[_[!F%0`!2;O_H_
XM+RX`%B\N_^).N0```H98CRU?`!9*K@`69P)@DDHN`!)G$CHN_^A)[O_L&;P`[
XM+5``3OH`!E-N_^@];O_H_^HZ+O_H2>[_[#@N_^J8;O_H)FX`#!>T4`!``%-N7
XM_^A*;O_H;0)@VCHN_^I212AN``Q"-%``3EY.=4Y6__Y9CR\\.Z/7"DZY```%M
XM>$GY````Y"C?*-\]?``#__XZ+O_^4T7G14GY````U"\T4`0O-%``+SD```%PG
XM+SD```%L3KD```0H4(\Z+O_^YT5)^0```-1)]%``*-\HWU)N__X,;@`1__YF4
XMMDY>3G5.^0``!IQ.5@``68]Z`"\%3KD```402?D```%<*-\HWUF/>@$O!4ZYO
XM```%$$GY```!9"C?*-]9CWH*+P5.N0``!1!)^0```6PHWRC?80#_0EF/>@HO`
XM!4ZY```%$$GY````G"C?*-]9CWID+P5.N0``!1!)^0```*0HWRC?68\J/```E
XM)Q`O!4ZY```%$$GY````K"C?*-\O.0```+`O.0```*PO.0```+`O.0```*Q.I
XMN0```NI0CTGY````M"C?*-\O.0```+@O.0```+0O.0```+@O.0```+1.N0``'
XM`NI0CTGY````O"C?*-\O.0```,`O.0```+PO.0```,`O.0```+Q.N0```NI0R
XMCTGY````Q"C?*-\O.0```,@O.0```,0O.0```,@O.0```,1.N0```NI0CTGYO
XM````S"C?*-\O.0```-`O.0```,PO.0```-`O.0```,Q.N0```NI0CTGY````&
XMU"C?*-\O.0```-@O.0```-0O.0```-@O.0```-1.N0```NI0CTGY````W"C?1
XM*-\C_$$@``````!F(_P[H]<*````?B/\0L@``````&HC_#H#$F\```""(_Q&@
XM'$``````;B/\.%&W%P```(8C_$R^O"````!R(_PVI\6L````BB/\6@X;R@``@
XM`'8C_#4&-[T```".(_QTG<6N````>B/\,U:_E0```))"N0```)9.7D[Y```,-
XM]DY6```O#BQY````8DZN_\HL7RH`+44`"$Y>3G5.5@``+PXL>0```&).KO]\@
XM+%\J`"U%``A.7DYU3E8``"\.(BX`""QY````8DZN_R@L7RH`2H56Q40%'44`+
XM#$Y>3G5.5@``+PXL>0```&).KO_$+%\J`"U%``A.7DYU3E8``"\.(BX`$"0N3
XM``PF+@`(+'D```!B3J[_OBQ?*@`M10`43EY.=4Y6```O#B(N`!`D+@`,)BX`%
XM""QY````8DZN_]`L7RH`+44`%$Y>3G5.5O_\*&X`#$JN``AF"CE\__\`!D[ZV
XM`'8HK@`(+PQ5CR\N``A.N0``"LI8CQH?*%]*!6<(0BP`!$[Z`$XO#%F/+RX`@
XM"$*G>@$O!4ZY```+#$_O``PJ'RA?+47__"\,68\O+@`(0J=Z_R\%3KD```L,!
XM3^\`#"H?*%\I10`(2JP`"%?%1`4910`$0FP`!DY>3G5.5O_\*&X`"DJ48U0O[
XM#%F/+Q1'[@`(*@LO!7H!+P5.N0``"S1/[P`,*A\H7RU%__QZ`;JN__QG'"\,U
XM68].N0``"JXJ'RA?.44`!AE\``$`!$[Z``I";``&0BP`!$[Z``@Y?/__``9.D
XM7DYU3E;_^BAN``Y*E&,"8`1.^@"`0F[_^CHN__JZ;@`,8A0Z+O_Z)FX`"$HS_
XM4`!G!E)N__I@XB\,68\O%"9N``@J"R\%>@`Z+O_Z+P5.N0``"S1/[P`,*A\HS
XM7RU%__QZ`#HN__JZKO_\9QPO#%F/3KD```JN*A\H7SE%``89?``!``1.^@`*O
XM0FP`!D(L``1.^@`(.7S__P`&3EY.=4[Y```(>DY6``!*N0```&)F'EF//SP`7
XM"DAY```-*$*G3KD```;&3^\`"B/?````8DY>3OD```U^9&]S+FQI8G)A<GD`/
XM3E8``$(Y```!=$Y>3G5.5O_^0F[__CHN__ZZ;@`,8AHZ+O_^*&X`"!@T4`"X]
XM.0```71G!E)N__Y@W#UN__X`#DY>3G5.^0``#/!.5@``80#_L$Y>3OD```Z._
XM3E8``$AY```!AA\N``A.N0``"^Q<CTY>3G5.5@``'SP`"F$`_]Q4CTY>3G5.^
XM5@``2'D```&&/RX`#"AN``A(5$ZY```,5D_O``I*>0```8Q7Q40%$\4```%V&
XM3EY.=4Y6_ZQ5CS\N``XH;@`*2%1.N0``#4)<CSHN``B:7SU%__X,;@!/__YOW
XM!CU\`$___D)N__PZ+O_^4T4_!3`N__RP5V\$3OH`'CHN__Q)[O^L&;P`(%``Z
XM,"[__+!7;`92;O_\8.14CPQN`$___F<,.B[__DGN_ZQ"-%``/SP`3TAN_ZQA&
XM`/]*7(\_+@`.*&X`"DA480#_.ER/3EY.=4[Y```->$Y6``!*N0```&)F'EF/@
XM/SP`"DAY```/(D*G3KD```;&3^\`"B/?````8D(Y```!>$AY```!>EF/3KD`^
XM``J23KD```M<4(])^0```7I'^0```9(FW";<)MQ(>0```899CTZY```*\$ZYW
XM```+7%"/2?D```&&1_D```&>)MPFW";<3EY.^0``$.9I;CX@``!O=70^(`!DL
XM;W,N;&EB<F%R>0!.5O_^0F[__CHN__ZZ;@`,8A0Z+O_^*&X`"$HT4`!G!E)N@
XM__Y@XCUN__X`#DY>3G5.5O_6*BX`"DJ%;`)$A2\%/SP`"DJN``I=Q40%'P4_.
XM/``G2&[_V$AN_]=.N0``!OY/[P`2/SP`)TAN_]@_+@`(3KD```WL4(\3^0``F
XM`78```&J3EY.=4Y6_]8O+@`*/SP`"D(G/SP`)TAN_]A(;O_73KD```;^3^\`C
XM$C\\`"=(;O_8/RX`"$ZY```-[%"/$_D```%V```!JDY>3G5.5O_4+RX`"C\\+
XM`!!")S\\`"=(;O_82&[_U4ZY```&_D_O`!)5CS\\`"=(;O_880#_!%R//5__*
XMUCHN_]9)[O_8&;P`2%``.B[_UE)%2>[_V$(T4``_/``G2&[_V#\N``A.N0``A
XM#>Q0CQ/Y```!=@```:I.7DYU<`9.N0```3I.5O_Z68\O+@`(3KD```;L6(\MD
XM7__\*&[__`P4``%E1#U\``'_^BAN__QZ`!H4/P4P+O_ZL%=C!$[Z`"@H;O_\K
XM.B[_^DN\`/\?-%``3KD```V.5(\P+O_ZL%=D!E)N__I@VE2/3EY.=4[Y```.Q
XMB$Y6``!9CS\\``I(>0``%H9"ITZY```&QD_O``HCWP```&(_/``?2'D``!:2A
XM3KD```VZ7(].N0``#:@C^0```&(```&L68\H>0```:PH;``B+RP`&$ZY```&,
XM[%B/(]\```&P68\H>0```;`O+``$3KD```;L6(\CWP```;1*N0```;1G`F`$[
XM3OH%`C\\``M(>0``%K1.N0``#;I<CRAY```!M"\L`"A.N0``$'!8CTZY```-T
XMJ!\\``E.N0``#8Y4CRAY```!M$JL``1F'#\\`!)(>0``%L).N0``#;I<CTZY)
XM```-J$[Z`&XH>0```;1Z`;JL``1F'#\\`!)(>0``%M9.N0``#;I<CTZY```-O
XMJ$[Z`$0H>0```;1Z`KJL``1F'#\\`!)(>0``%NI.N0``#;I<CTZY```-J$[Z]
XM`!H_/``22'D``!;^3KD```VZ7(].N0``#:@H>0```;1*K``$9@)@!$[Z!`0C`
XM^0```;0```&X68\H>0```;@O+``<3KD```;L6(\CWP```;Q9CRAY```!O"\L@
XM``A.N0``!NQ8CR/?```!P$JY```!O&<.*'D```'`>A"ZE&4"8`1.^@+('SP`2
XM"4ZY```-CE2//SP`#DAY```7$DZY```-NER/*'D```&\+RP`!$ZY```0<%B/E
XM3KD```VH'SP`"4ZY```-CE2//SP`#DAY```7(DZY```-NER/*'D```&\+Q0_!
XM/``(3KD```^T7(].N0``#:A">0```<PH>0```<`J%#\%,#D```',L%=C!$[Z-
XM`CH?/``)3KD```V.5(]Z`#HY```!S"`%3KD````&`````````!````&&/SP`C
XM#DAY```7,DZY```-NER/3OH!D#\\``Y(>0``%T).N0``#;I<CT[Z`7H_/``.2
XM2'D``!=23KD```VZ7(].^@%D/SP`#DAY```78DZY```-NER/3OH!3C\\``Y(T
XM>0``%W).N0``#;I<CT[Z`3@_/``.2'D``!>"3KD```VZ7(].^@$B/SP`#DAY-
XM```7DDZY```-NER/3OH!##\\``Y(>0``%Z).N0``#;I<CT[Z`/8_/``.2'D`[
XM`!>R3KD```VZ7(].^@#@/SP`#DAY```7PDZY```-NER/3OH`RC\\``Y(>0``B
XM%]).N0``#;I<CT[Z`+0_/``.2'D``!?B3KD```VZ7(].^@">/SP`#DAY```7A
XM\DZY```-NER/3OH`B#\\``Y(>0``&`).N0``#;I<CT[Z`'(_/``.2'D``!@2&
XM3KD```VZ7(].^@!</SP`#DAY```8(DZY```-NER/3OH`1C\\``Y(>0``&#).*
XMN0``#;I<CT[Z`#!.^@`D``P`(@`X`$X`9`!Z`)``I@"\`-(`Z`#^`10!*@%`,
XM`58!;'`"3KD````D#'D`$````<QG)BAY```!P#HY```!S$N\`/_E12\T4``_4
XM/``(3KD```^T7(].^@`D*'D```'`.CD```',2[P`_^5%+S10`#\\`!!.N0``\
XM#_I<CTZY```-J#`Y```!S+!79`I2>0```<Q@`/W*5(\?/``)3KD```V.5(\_E
XM/``.2'D``!A"3KD```VZ7(\H>0```;@O+``8/SP`"$ZY```/7ER/3KD```VH)
XM'SP`"4ZY```-CE2//SP`#DAY```84DZY```-NER/*'D```&X+RP`%#\\``A.P
XMN0``#[1<CTZY```-J!\\``E.N0``#8Y4CS\\``Y(>0``&&).N0``#;I<CUF/Q
XM*'D```&X+RP`$$ZY```&[%B/(]\```'(*'D```'(2A1F%C\\`!-(>0``&').;
XMN0``#;I<CT[Z`!0H>0```;@O+``03KD``!!P6(].N0``#:A.N0``#:A9CRAY[
XM```!M"\43KD```;L6(\CWP```;1@`/KT+SD```!B3KD```:N6(].7DYU````X
XM`&1O<RYL:6)R87)Y`&QI<W1D979S('8Q+C(@0GD@2F]H;B!$879I<R`V+SDP-
XM``!N;V1E(&YA;64@.B```%1Y<&4@("`@("`@("`Z($1%5B``5'EP92`@("`@^
XM("`@(#H@1$E2(`!4>7!E("`@("`@("`@.B!63TP@`%1Y<&4@("`@("`@("`Z"
XM(#\_/R``1&5V:6-E("`@("`@(#H@`%5N:70@("`@("`@("`Z(`!E;G8@<VEZ@
XM92`@("`@.B``8FQO8VL@<VEZ92`@(#H@`%-E8T]R9R`@("`@("`Z(`!.=6T@,
XM2&5A9',@("`@.B``4V5C("\@0FQK("`@(#H@`&)L:W,@+R!T<F%C:R`Z(`!R8
XM97-E<G9E9"`@("`@.B``<')E9F%C("`@("`@(#H@`$EN=&5R;&5A=F4@("`Z\
XM(`!,;W<@0WEL("`@("`@.B``2&EG:"!#>6P@("`@(#H@`$)U9F9E<G,@("`@#
XM("`Z(`!B=69M96UT>7!E("`@.B``36%X=')A;G-F97(@(#H@`$UA<VL@("`@#
XM("`@("`Z(`!B;V]T<')I("`@("`@.B``1$]3='EP92`@("`@(#H@`%!R:2`@`
XM("`@("`@("`Z(`!3=&%C:R`@("`@("`@.B``2&%N9&QE<B`@("`@(#H@`"!D&
XM969A=6QT(&1O<R!H86YD;&5R``````/L````I0`````````"```"#````A@`C
XM``(D```",@```D````),```"@```!"0```32```&!```!A@```9"```&C```L
XM!IX```:J```'3```!YX```@8```(4```"'P```B,```(H@``"+@```C2```(H
XMZ```"0(```DJ```)5```"7X```FH```)T@``"?P```J.```+@@``"Z@```O(&
XM```,#```#"H```RB```,Q```#/(```T*```-$@``#20```UZ```-B@``#9X`Z
XM``W0```-_@``#HH```ZB```.J@``#L@```[.```.\```#O8```\2```/B@``6
XM#Z````_0```/Y@``$!8``!!<```0=```$(0``!#&```0X@``$/(``!#Z```12
XM#@``$10``!$<```1/```$58``!%V```1?```$8X``!&6```1H```$;@``!&^W
XM```1Q@``$>(``!'H```1\```$@P``!(2```2&@``$B@``!(N```2-@``$F0`J
XM`!)^```2J@``$K8``!*\```2S@``$M8``!+@```2[```$O(``!,&```3#@``8
XM$S8``!-(```37@``$V0``!-T```3>@``$XH``!.0```3H```$Z8``!.V```3H
XMO```$\P``!/2```3X@``$^@``!/X```3_@``%`X``!04```4)```%"H``!0Z:
XM```40```%%```!16```49@``%&P``!1\```4@@``%)(``!28```4J```%*X`2
XM`!2^```4Q```%/@``!4B```52```%5```!5P```5?```%8(``!68```5H```^
XM%:H``!6V```5O```%=(``!7:```5Y```%?```!7V```6"@``%B8``!8L```6N
XM0@``%DH``!90```68```%G@```"2`````0```+H```#V```!$@```2H```7.@
XM```%U@``!=X```7J```%\```!?8```7^```&"@``!AP```8R```&.```!CP`*
XM``9(```&;@``!H(```:D```('@``"#8```A$```(2@``"%X```B2```(J```F
XM"+X```C8```([@``"0@```D2```)&```"1X```DD```),@``"3P```E"```)1
XM2```"4X```E<```)9@``"6P```ER```)>```"88```F0```)E@``"9P```FB[
XM```)L```";H```G````)Q@``"<P```G:```)Y```">H```GP```)]@``"@0`R
XM``H2```*'```"B8```HP```*.@``"D0```I.```*6```"F(```IL```*=@``:
XM"H````J&```*F@``"K8```K6```*^```"R````M(```,_```#1P```TZ```-C
XM8@``#90```W````-V@``#>0```Z4```.M```#KH```[````.U@``#MP```[HF
XM```._@``#P0```^H```/K```#^X```_R```09```$&@``!$$```1(@``$28`Z
XM`!$N```11```$4P``!%>```19```$80``!&H```1T```$?H``!(\```23@``]
XM$E(``!):```2;```$G0``!*&```2C```$I0``!+$```2^@``$Q0``!,:```3Y
XM)```$T```!4````5"```%0X``!4N```5-```%58``!5@```5B@``%<0``!8`&
XM```6$@``%A@``!8X```66```%F@``!9R`````````_(```/K````=````_(`D
X+``/J`````````_(X:
X``
Xend
Xsize 7616
END_OF_FILE
if test 10702 -ne `wc -c <'listdevs.uu'`; then
echo shar: \"'listdevs.uu'\" unpacked with wrong size!
fi
# end of 'listdevs.uu'
fi
if test -f 'zapdh0.doc' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'zapdh0.doc'\"
else
echo shar: Extracting \"'zapdh0.doc'\" \(8428 characters\)
sed "s/^X//" >'zapdh0.doc' <<'END_OF_FILE'
XZapDH0
X------
XBy John Davis,
X
XVersion 1 October 1989
XVersion 1.1 April 1990
XVersion 1.2 24 June 1990
XVersion 1.3 26 June 1990 ( 1.2 didn't last long did it :-)
X
XWhat it does
X------------
XAll you 2090 owners .... ever get _really_ annoyed with that forced
XOldFileSystem DH0 partition? It's bad enough that you hvae to waste 400k
Xof disk space with the OFS partition, but what is really inconvenient is
Xthat you can't cancel the device ( <assign dh0: remove> sends you off to
Xmeet the guru ), and therefore means you can't assign DH0: to be the FFS
Xpartition.
X
XThis in turn means that all those _nice_ programs with install programs
Xthat want to install to DH0, or those equally _nice_ programs that give
Xyou file requester gadgets only for DH0 aren't much fun at all ( okay ...
Xcall me lazy, but newzapping three zillion programs so as DH0->FH0 is not
Xmy idea of fun ... at this point I should say a big thank you to all
X_real_ programmers whose filereq's know what the _current_ dir is and
Xstart there, or even better those that know how to scan a device list for
Xavailable devices < not hard ... see the included example code for
XListDevs > )
X
XWell this program is just for you. What it does is munge it's way through
Xthe DOS device list, looking for that 'orrible DH0 node . When it finds
Xit, it alters the DeviceNodeName so as it's name is now ZH0. You are then
Xfree to assign DH0: onto your real main partition.
X
XOn top of this, if it detects that you have a df2: floppy disk but no
Xdf1: it will create a 'clone' drive called df1:. This is linked (arghhh
X... creeping unix terminology :-)) to df2:, and helps with programs that
Xonly have gadgets for df0: and df1:, or if you (like me) have got used to
Xtyping 'df1:' when referring to the second drive (old a500 traits die hard
Xit seems)
X
XUsage
X-----
X
XPretty simple really, just chuck ZAPDh0 somewhere in your
Xstartup-sequence.
X
XIt is _probably_ safer if you do it once you've assigned everything over
Xto the FFS partition, but it seems that it's pretty safe to put just about
Xanywhere (as any existing dos locks to dh0:blah will still point to the
X_old_ DH0: ... it's just any new references that will get the assigned
XDH0).
X
Xeg .. in your startup-sequence
X
X ZAPDh0
X assign DH0: fh0:
X
XFrom now on all references to DH0: will refer to FH0:. If you want to
Xacces the OFS partition, you still can (unlike if you use assigndev), it's
Xjust now called ZH0: ( and you can still access it via workbench). Plus
X( if you had a df2: but no df1: ) you'll find you've grown a df1: as
Xwell.
X
XIncidentally, should you want to STOP the floppy rename ( due to problems
Xor if you just don't like the idea ) then just add these lines to your
Xstartup-sequence instead of the above :
X
X ASSIGN DF1: sys:
X ZapDH0:
X ASSIGN DF1:
X ASSIGN DH0: fh0:
X
X( I don't check to see if an existing DF1 is really a device or just a
Xdir, so the assigned df1: will fool me into not touching the floppies )
X
XWarning
X-------
X
XThis program is what CBM tech support would probably describe as 'wildly
Xillegal' ... I access structures in a manner I've got no right to. As
Xsuch I cannot guarantee it will work on any given setup, nor that it will
Xwork in future releases of the OS. I have tested it on 2000's with
X2090's,on 500's with A590s and on C-Ltd drives, and it's worked ok on all
Xof them.
X
XBUT - there is now warranty implied or express on this package!! If it
Xcauses your hard disk to explode, killing your cat and causing you to have
Xa nervous breakdown, it is NOT MY FAULT. However, if you do experience
Xany strange side effects or any other problems with or due to this
Xprogram, get in touch so as I can see about remedying them.
X
X
X
XRevision History and Tech Notes
X-------------------------------
X
Xv 1.3
X-----
X
XTime for a total rethink of how the df2: floppy is renamed to be df1:!!
XPlus a general code cleanup ( was starting to look a tad loosed in there).
X
XPrevious versions just altered the name field of the df1: devicelist node
Xin place, this worked great for the 99% of the programs that went by the
Xrules for working out what the host device was ( by host device I mean the
Xunderlying block structured device the filesystem level device sits on e.g
Xfor df0: the host device is trackdisk.device unit 0), but it turned out
Xthat some programs were wrongly assuming that there would ALWAYS be a
Xcorrespondence between the devname and the trackdisk devce unit acting as
Xhost ( that is df1: is unit 1, df2: unit 2 etc ... which is normally
Xtrue, but assuming this is NOT an officially supported practice ).
X
X ! Included in this archive is ListDevs, a small example program that
X ! shows how to LEGALLY work out what the host device for a given dos
X ! device is, plus it shows how to extract a lot of other info on the
X ! host-dev - based in part on code posted to UseNet by Patrick
X ! Horgan.
X
X ! You should NEVER assume a connection between device name and host
X ! device and/or it's parameters .. cos sooner or later CBM are
X ! likely to change them ( to support higher densities or the like ).
X ! REMEMBER .. if they don't state it in the RKM, it's NOT safe to
X ! assume it!!!!
X
XThis release gets around this problem by instead 'cloning' the devicelist
Xnode for df2: back into the devicelist as df1:. This effectively makes
Xdf1: an alias for df2:, and still costs <100 bytes of memory.
X
XThis allows ill-behaved programs (Virusx4 and the ARP install were notable
Xoffenders) to work ( like why is it that two of my favourite programs, by
Xsome of the programmers I respect the most, have to be the one's that do
Xthings illegally :-( :-) ).
X
XI've tested the cloned drives fairly extensively, and everything seems to
Xwork as it should with them. This includes correct operation thru
XWorkBench, and with format and diskcopy ( format df1: puts a lock on BOTH
Xdf1: and df2:, diskcopy df1: to df2: is the same as diskcopy df1: to
Xdf1: in that it will prompt you to do disk-swaps ).
X
XHowever, the df2: clone/rename is still basically illegal operation
X(a.k.a a neat hack :-), and it is possible some programs may not like
Xhaving a drive clone done. Hence, if anyone experiences any anomalies due
Xto using Zapdh0_1.3, could they please contact me ( stating what program
Xhad difficulties ).
X
Xv 1.2
X-----
X
XMy conscience got the better of me, the floppy rename is now handled in a
Xsafer manner (unlike 1.1). ZapDH0 now first looks to see if there's
Xalready a DF1 in the system ( an internal 3.5 floppy ). If there is
Xalready a df1: it leaves the floppies alone (otherwise if you had an
Xexternal as well you'd end up having two DF1:'s !! having this happen
Xwasn't much fun). If it can't find a df1:, it looks to see if it can find
Xa df2: and renames it if possible.
X
Xv 1.1
X-----
X
XNothing mind-blowing I'm afraid ( boy, what I'd give to get rid of that
Xslowfilesystem partition altogether, guess I'll just have to buy a 2091 ).
X
XAll that's changed is that ZapDH0's output is now cleaner, PLUS it now
Xalso renames Df2: to be df1: (for people like me with one internal and
Xone external floppy, but who are too used to df1: being the second drive)
X
XIt still renames DH0 ( if found ) to be ZH0 (it simply traverses down the
XDOS devicelist and changes the name field in devicelist node for dh0: ->
Xzh0: and for df2: -> df1:). To see exactly how this is done ( I smell
XBPTRs :-) refer to the source code
X
X
XLicence Agreement
X-----------------
X
XThere is none !! ZapDH0 is absolutely 100% Public Domain (and is
Xdedicated to all the other PD authors who help make the Amiga a great
Xmachine).
X
XIf this program makes you happy, and makes your life a little easier,
Xthat's good. If you feel obliged to thank me, then that's alright, I
Xalways enjoy getting letters from fellow amiga users. If it makes you
Xunhappy ( i.e. it's got some bug I haven't found ), then also write to
Xme.
X
XMy contact adress is .....
X
X John Davis
X 31 Clarence St
X Christchurch 2
X New Zealand
X
Xor you can find me on AmigaINFO BBS
X NZ +3-371-531 1200/2400 Baud 24hrs a day
X "home of the midnight coders"
X
Xor you can reach me via Internet/UseNet as CHEM194@canterbury.ac.nz
X
END_OF_FILE
if test 8428 -ne `wc -c <'zapdh0.doc'`; then
echo shar: \"'zapdh0.doc'\" unpacked with wrong size!
fi
# end of 'zapdh0.doc'
fi
if test -f 'zapdh0.mod' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'zapdh0.mod'\"
else
echo shar: Extracting \"'zapdh0.mod'\" \(5239 characters\)
sed "s/^X//" >'zapdh0.mod' <<'END_OF_FILE'
XMODULE zapper;
X
X(* zap DH0 device node name *)
X(* by J Davis v1.3 26 6/90 *)
X(* compiled using TDI m-2 3.01a *)
X
X
X(*
X this is an attempt to get around the problem with 2090's where
X the first partition MUST be OFS and is called DH0. This is a real
X problem when you have a main FFS partition, on which you have all
X your programs etc, and programs that insist on using DH0
X
X This program zaps the DH0 node name so as it is called ZH0.
X this is _extremely_ grungy, illegal etc ... but if it works
X then it is a good way to cure the problem.
X*)
X
X(* v1.1 changes
X cleaned up screen output
X now also renames df2: -> df1: for people like me who have
X one internal and one external floppy drive
X*)
X
X(* v1.2 changes
X only renames df2: -> df1: if no df1: present already
X gets around nastiness if you have 2 internals and an external :-)
X*)
X
X(* v1.3 changes
X changed strategy on df2:, now clones the device node, links it
X back into the device list and renames the clone
X*)
X
XFROM Memory IMPORT AllocMem,MemReqSet,MemPublic,MemClear;
XFROM DOSLibrary IMPORT DOSName,DOSBase,BPTR,BSTR;
XFROM DOSExtensions IMPORT DosBaseRec,RootNode,DosInfo,DeviceList;
XFROM AmigaUtils IMPORT PtrFromBPTR,BPTRFromPtr;
XFROM SYSTEM IMPORT NULL;
XFROM InOut IMPORT WriteString,WriteLn;
XFROM Libraries IMPORT OpenLibrary,CloseLibrary;
XFROM DOSLibrary IMPORT DateStampRec;
XFROM SYSTEM IMPORT TSIZE;
X
XTYPE
X
Xstring = ARRAY [0..255] OF CHAR;
Xstrptr = POINTER TO string;
X
X
XVAR
X
Xourdosbase : POINTER TO DosBaseRec; (* use this to access dosbase *)
Xinfoptr : POINTER TO DosInfo; (* points to DOSinfo node *)
Xdevlistptr : POINTER TO DeviceList; (* points to current place is DOS devlist *)
Xnameptr : strptr;
Xdf1present : BOOLEAN; (* flag to indicate df1: is already mounted *)
Xcloneptr : POINTER TO DeviceList; (* for cloning operation *)
X
XBEGIN
X
XDOSBase:=OpenLibrary(DOSName,0); (* open the dos lib *)
X
XWriteString("ZAPDh0 v1.3 By John Davis 6/90");
XWriteLn;
X
Xourdosbase:=DOSBase;
X(* get a usable pointer onto dosbase *)
X
Xinfoptr:=PtrFromBPTR(ourdosbase^.dlRoot^.rnInfo);
X(* get pointer dosinfo struct *)
X
Xdevlistptr:=PtrFromBPTR(infoptr^.diDevInfo);
X(* get a pointer to start of devlist *)
X
Xdf1present:=FALSE;
X(* initially assume df1: is not present *)
X
XWHILE devlistptr<>NULL DO
X (* scan down device list checking as we go *)
X
X nameptr:=PtrFromBPTR(BPTR(devlistptr^.dlName));
X (* get pointer to nodename *)
X
X IF (nameptr^[1]='D') AND (nameptr^[2]='H') AND (nameptr^[3]='0') THEN
X (* this is dh0 so zap it *)
X WriteString(" renamed DH0: to ZH0: ");
X WriteLn;
X nameptr^[1]:='Z'; (* we'll make it be called zh0: instead *)
X END;
X
X IF (nameptr^[1]='D') AND (nameptr^[2]='F') AND (nameptr^[3]='1') THEN
X (* found an existing df1 .. set flag so as not to try rename of df2 *)
X WriteString(" found existing DF1:, will not attempt to rename DF2:");
X WriteLn;
X df1present:=TRUE;
X END;
X
X devlistptr:=PtrFromBPTR(devlistptr^.dlNext);
X (* scan on down devlist *)
XEND;
X
XIF NOT df1present THEN
X (* didn't find df1:, see if we can find df2
X go back to start of devlist and re-scan
X *)
X
X devlistptr:=PtrFromBPTR(infoptr^.diDevInfo);
X (* get a pointer to the start of the devlist *)
X
X WHILE devlistptr<>NULL DO
X (* scan down device list checking as we go *)
X
X nameptr:=PtrFromBPTR(BPTR(devlistptr^.dlName));
X
X IF (nameptr^[1]='D') AND (nameptr^[2]='F') AND (nameptr^[3]='2') THEN
X (* this is df2:,so clone it *)
X
X WriteString(" found df2:, creating clone as df1:");
X WriteLn;
X
X cloneptr:=AllocMem(TSIZE(DeviceList),MemReqSet{MemPublic,MemClear});
X
X (* first link in our clone on the devlist *)
X cloneptr^.dlNext :=devlistptr^.dlNext;
X devlistptr^.dlNext :=BPTRFromPtr(cloneptr);
X
X (* now copy the rest of the df2 struct over *)
X cloneptr^.dlType :=devlistptr^.dlType;
X cloneptr^.dlTask :=devlistptr^.dlTask;
X cloneptr^.dlLock :=devlistptr^.dlLock;
X cloneptr^.dlVolumeDate :=devlistptr^.dlVolumeDate;
X cloneptr^.dlLockList :=devlistptr^.dlLockList;
X cloneptr^.dlDiskType :=devlistptr^.dlDiskType;
X cloneptr^.dlunused :=devlistptr^.dlunused;
X
X
X (* now alter the name of the clone to be df1: *)
X nameptr:=AllocMem(4,MemReqSet{MemPublic,MemClear});
X cloneptr^.dlName:=BPTRFromPtr(nameptr);
X
X (* now put BSTR 'df1'into name *)
X nameptr^[0]:=CHR(3);
X nameptr^[1]:='D';
X nameptr^[2]:='F';
X nameptr^[3]:='1';
X
X END; (* found df2 if *)
X
X devlistptr:=PtrFromBPTR(devlistptr^.dlNext);
X (* scan on down devlist *)
X
X END; (* while *)
X
XEND; (* if not found df1 *)
X
XCloseLibrary(DOSBase);
X
XEND zapper.
END_OF_FILE
if test 5239 -ne `wc -c <'zapdh0.mod'`; then
echo shar: \"'zapdh0.mod'\" unpacked with wrong size!
fi
# end of 'zapdh0.mod'
fi
if test -f 'zapdh0.uu' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'zapdh0.uu'\"
else
echo shar: Extracting \"'zapdh0.uu'\" \(7554 characters\)
sed "s/^X//" >'zapdh0.uu' <<'END_OF_FILE'
Xbegin 666 zapdh0
XM```#\P`````````#``````````(```0Z````<`````````/I```$.D[Y```,F
XM["(`<`9.1TYU3E;_Z"H`>`G:A#U%__XJ#E"%+47_Z$#N__@M3?_T+5;_\$YH/
XM+4C_[`QN``?__F<(#&X`"/_^9A0M;@`2__HJ+O_H4(4M1?_H3OH`0@QN``__K
XM_F8,3F@M:``(__I.^@`N#&X`$/_^9@Q"KO_Z0J[_\$[Z`!H,;@`)__YE"DYHZ
XM+5#_^D[Z``@M;@`*__I)^0```!@XKO_^0BP``BEN__H`!#EN__@`""EN__0`5
XM"BEN__``#BEN_^P`$BEN__``%AE\``$`&BYN_^@@.0```!0O0``"/KP``"Q6;
XM3FA9B$Y@3G-.7DYU2?D```!4*@PB17``+'@`!$ZN_=@J`"Q%.CD````8!D4!#
XM]4C%(@5.KO]P2I\O3O_\3FXM+P`"/1<M+__\2.;__")1((XL24S>/_\O7O_\I
XM/IXO7@`"3F8L;__\3G-*GR].__Q.;BTO``(]%RTO__Q(YO_\(E$@CD?Z`"HM^
XM"ST\3KD]/"<`/3Q&_"2.+$E,WC__+U[__#Z>+UX``DYF+&___$YS+T[__$YNG
XM+2\`!CTO``0M+__\2.;__"!?(F@`)"*.+$A,WC__+U[__#Z>+UX``DYF+&__,
XM_$YS1OPG`"X?#`<`)V8&3KD```(<#`<`)F8&3KD```$<#`<`)68&3KD```%.!
XM#`<`"F8(</A.N0````X,!P`+9@AP]TZY````#C`'1$!20$ZY````#DJ?50!F6
XM"`)7^/^#5TYS4P!F!#Z!3G-3`&8&1OP@`$YS4P!F!$YQ3G-3`&8*(`%.N0``Z
XM``Y.<TY6``!(Y_\`3.X`\``(2$0V!$A&O4-;YS0$,#Q_\,1`9P`!#C8&QD!G?
XM``$&UD($0S_P8P``_&L``/YP#\A`",0`!,Q`",8`!'0`/P,P!,#&2$`R!,+')
XM-@1(1L;&T(,V!$A'QL=(0=)#0D-(0]$0V!,;&TD-(04)#2$/1@S8$2$;&A
XMQM"#-@3&Q]*#T8(V!$A'R,="1$A$TH31@C8%QL;2@]&"-@5(1L;&0D-(0]*#$
XMT8)(138%QL;2@]&"2$;,Q4A!TD9(04)&2$;1ADA'RL="14A%TH71@E"!T8(V]
XM'W@$>AD+`&<&4D0&0P`0%`#HND("Z*CHJ8*"6P4+`&8,U(+3@=&`!$,`"F,DD
XM2D-K*$A``D``#X!#2$!*'V<$=A\'P$CN``,`$$S?`/].7DYU5$]P`'(`8.IP5
XM!4ZY````!DY6``!(Y_\`3.X`\``(2$0R!`)!?_!G``".2$8P!@)`?_!G``!P+
XMD$$&0#_P:P``>#(&N4%;YP)&``\(Q@`$`D0`#PC$``1(1DA$<AYV`&$B)`-RG
XM%W8`819R">.KU8)K3@1``!!K```LUH/5@F!`WH?=AKR$7,G_^`/#GH6=A%O)J
XM_^YJ#-Z%W80#@TI!7<G_X$YU5(]T`'8`2.X`#``03-\`_TY>3G5P!4ZY````T
XM!GP`!H,```@`U89D"N*2XI,&0``0:^)R`#("?@ONJNZK[KE"`8:!2$("0@`/6
XMA$!(0DH?9[9P'P'"8+!.5@``2.?@`'``(BX`"&=(-#Q!X$A!,`%F"DA!,`%R'
XM``1"`0!"00Q``/]B#.&(X9F``4(!!$(`@$I`:PH$0@`0TH'10&KVZXCKF8`!!
XM0@%(0`)```^`0DA`2.X``P`(3-\`!TY>3G5.=4Y6``!(Y^``("X`"..8)``"U
XM@`#___\"@O\```!F$G``<@!([@`#``A,WP`'3EY.=>:*XHCBD@:".````"(`L
XMYHCFF0*!<````(""8-9.<4YQ3G$J`"/%````!"H((\4`````*@\CQ0````P@2
XM+P`$*@`CQ0````@J.0````R:N0````A0A2/%````4$GY```%^$?Y````5'H+\
XM%MQ7S?_\(_P```#R````%"QX``0B?`````!.KO[:*@`CQ0```!`C^0```!``>
XM``!,*CP```'**'D```!,*44`,BQX``1P!TZN_JIP!4ZN_JIP!DZN_JI"IT*G2
XM0J<B>0```%`O"4*G*D^>_``DG<YA"BYY````#'``3G5.^0``!BQD;W,N;&EB,
XM<F%R>0!.5@``+PX@+@`,(BX`""QX``1.KO\Z+%\J`"U%`!!.7DYU3OD```4L,
XM0KD```!B3OD```<03E8``"\.(FX`""QX``1.KOYB+%].7DYU3E8``"\.*&X`I
XM#"H,(D4@+@`(+'@`!$ZN_=@L7RH`+44`$DY>3G5.5@``*BX`".2-+44`#$Y>_
XM3G5.5@``*BX`".6%+44`#$Y>3G5.5O_^68\O/#NCUPI.N0``!.!)^0```.0H*
XMWRC?/7P``__^.B[__E-%YT5)^0```-0O-%`$+S10`"\Y```!<"\Y```!;$ZY]
XM```#D%"/.B[__N=%2?D```#42?10`"C?*-]2;O_^#&X`$?_^9K9.7DYU3OD`+
XM``8F3E8``%F/>@`O!4ZY```$>$GY```!7"C?*-]9CWH!+P5.N0``!'A)^0``R
XM`60HWRC?68]Z"B\%3KD```1X2?D```%L*-\HWV$`_T)9CWH*+P5.N0``!'A)A
XM^0```)PHWRC?68]Z9"\%3KD```1X2?D```"D*-\HWUF/*CP``"<0+P5.N0``4
XM!'A)^0```*PHWRC?+SD```"P+SD```"L+SD```"P+SD```"L3KD```)24(])3
XM^0```+0HWRC?+SD```"X+SD```"T+SD```"X+SD```"T3KD```)24(])^0``O
XM`+PHWRC?+SD```#`+SD```"\+SD```#`+SD```"\3KD```)24(])^0```,0H*
XMWRC?+SD```#(+SD```#$+SD```#(+SD```#$3KD```)24(])^0```,PHWRC?T
XM+SD```#0+SD```#,+SD```#0+SD```#,3KD```)24(])^0```-0HWRC?+SD`>
XM``#8+SD```#4+SD```#8+SD```#43KD```)24(])^0```-PHWRC?(_Q!(```V
XM````9B/\.Z/7"@```'XC_$+(``````!J(_PZ`Q)O````@B/\1AQ``````&XC&
XM_#A1MQ<```"&(_Q,OKP@````<B/\-J?%K````(HC_%H.&\H```!V(_PU!C>]W
XM````CB/\=)W%K@```'HC_#-6OY4```"20KD```"63EY.^0``"X9.5@``+PXL;
XM>0```&).KO_*+%\J`"U%``A.7DYU3E8``"\.+'D```!B3J[_?"Q?*@`M10`(,
XM3EY.=4Y6```O#B(N``@L>0```&).KO\H+%\J`$J%5L5$!1U%``Q.7DYU3E8`[
XM`"\.+'D```!B3J[_Q"Q?*@`M10`(3EY.=4Y6```O#B(N`!`D+@`,)BX`""QY!
XM````8DZN_[XL7RH`+44`%$Y>3G5.5@``+PXB+@`0)"X`#"8N``@L>0```&).5
XMKO_0+%\J`"U%`!1.7DYU3E;__"AN``Q*K@`(9@HY?/__``9.^@!V**X`""\,H
XM58\O+@`(3KD```E:6(\:'RA?2@5G"$(L``1.^@!.+PQ9CR\N``A"IWH!+P5..
XMN0``"9Q/[P`,*A\H7RU%__PO#%F/+RX`"$*G>O\O!4ZY```)G$_O``PJ'RA?)
XM*44`"$JL``A7Q40%&44`!$)L``9.7DYU3E;__"AN``I*E&-4+PQ9CR\41^X`-
XM""H++P5Z`2\%3KD```G$3^\`#"H?*%\M1?_\>@&ZKO_\9QPO#%F/3KD```D^-
XM*A\H7SE%``89?``!``1.^@`*0FP`!D(L``1.^@`(.7S__P`&3EY.=4Y6__HHC
XM;@`.2I1C`F`$3OH`@$)N__HZ+O_ZNFX`#&(4.B[_^B9N``A*,U``9P92;O_Z/
XM8.(O#%F/+Q0F;@`(*@LO!7H`.B[_^B\%3KD```G$3^\`#"H?*%\M1?_\>@`Z+
XM+O_ZNJ[__&<<+PQ9CTZY```)/BH?*%\Y10`&&7P``0`$3OH`"D)L``9"+``$D
XM3OH`"#E\__\`!DY>3G5.^0``!PI.5@``2KD```!B9AY9CS\\``I(>0``"[A"0
XMITZY```&4$_O``HCWP```&).7D[Y```+V&1O<RYL:6)R87)Y`$Y6``!".0``.
XM`71.7DYU3OD```N`3E8``&$`_^9.7D[Y```,3$Y6``!(>0```88?+@`(3KD`S
XM``I\7(].7DYU3E8``!\\``IA`/_<5(].7DYU3E8``$AY```!AC\N``PH;@`(Z
XM2%1.N0``"N9/[P`*2GD```&,5\5$!1/%```!=DY>3G5.^0``"]).5@``2KD`9
XM``!B9AY9CS\\``I(>0``#.!"ITZY```&4$_O``HCWP```&)".0```7A(>0``G
XM`7I9CTZY```)(DZY```)[%"/2?D```%Z1_D```&2)MPFW";<2'D```&&68].$
XMN0``"8!.N0``">Q0CTGY```!AD?Y```!GB;<)MPFW$Y>3OD```SR:6X^(```Q
XM;W5T/B``9&]S+FQI8G)A<GD`3OD```Q&3E8``%F//SP`"DAY```00D*G3KD`,
XM``903^\`"B/?````8C\\`!U(>0``$$Y.N0``#!1<CTZY```,`B/Y````8@``>
XM`:I9CRAY```!JBAL`"(O+``83KD```:(6(\CWP```:Y9CRAY```!KB\L``1.:
XMN0``!HA8CR/?```!LD(Y```!NDJY```!LF<"8`1.^@#068\H>0```;(O+``HS
XM3KD```:(6(\CWP```;8H>0```;8,+`!$``%F0"AY```!M@PL`$@``F8R*'D`#
XM``&V#"P`,``#9B0_/``72'D``!!N3KD```P47(].N0``#`(H>0```;89?`!:K
XM``$H>0```;8,+`!$``%F/"AY```!M@PL`$8``F8N*'D```&V#"P`,0`#9B`_M
XM/``V2'D``!"(3KD```P47(].N0``#`(3_``!```!NEF/*'D```&R+Q1.N0``#
XM!HA8CR/?```!LF``_R9*.0```;IF`F`$3OH!T%F/*'D```&N+RP`!$ZY```&V
XMB%B/(]\```&R2KD```&R9P)@!$[Z`:A9CRAY```!LB\L`"A.N0``!HA8CR/?5
XM```!MBAY```!M@PL`$0``68>*'D```&V#"P`1@`"9A`H>0```;8,+``R``-F)
XM`F`$3OH!0C\\`"1(>0``$,!.N0``#!1<CTZY```,`EF/>BPO!2\\``$``4ZY^
XM```&!%"/(]\```&\*'D```&R)GD```&\)I19CR\Y```!O$ZY```&=EB/*'D`J
XM``&R*)\H>0```;(F>0```;PG;``$``0H>0```;(F>0```;PG;``(``@H>0``Y
XM`;(F>0```;PG;``,``PH>0```;(F>0```;Q)[``01^L`$";<)MPFW"AY```!9
XMLB9Y```!O"=L`!P`'"AY```!LB9Y```!O"=L`"``("AY```!LB9Y```!O"=L?
XM`"0`)%F/>@0O!2\\``$``4ZY```&!%"/(]\```&V68\O.0```;9.N0``!G98:
XMCRAY```!O"E?`"@H>0```;88O``#*'D```&V&7P`1``!*'D```&V&7P`1@`"S
XM*'D```&V&7P`,0`#68\H>0```;(O%$ZY```&B%B/(]\```&R8`#^3B\Y````E
XM8DZY```&.%B/3EY.=0````!D;W,N;&EB<F%R>0!:05!$:#`@=C$N,R!">2!*:
XM;VAN($1A=FES(#8O.3```"`@(')E;F%M960@1$@P.B!T;R!:2#`Z(```("`@+
XM9F]U;F0@97AI<W1I;F<@1$8Q.BP@=VEL;"!N;W0@871T96UP="!T;R!R96YA9
XM;64@1$8R.@`@("!F;W5N9"!D9C(Z+"!C<F5A=&EN9R!C;&]N92!A<R!D9C$Z-
XM```````#[````%(``````````@```=@```'D```!\````?X```(,```"&```9
XM`DP```.,```$.@``!6P```6````%J@``!?0```8H```&-```!J@```;@```'\
XM#```!QP```<R```'2```!V(```=X```'D@``![H```?D```(#@``"#@```ABD
XM```(C```"1X```H2```*.```"E@```J<```*N@``"S(```M4```+@@``"YH`S
XM``NB```+M```"]0```OD```+^```#"H```Q(```,8```#&@```R&```,C```1
XM#*X```RT```,T```#.X```S^```-!@``#1H```T@```-*```#4@```UB```-'
XMD```#<P```W2```-V@``#AH```X@```.*```#D````YL```.E```#M8```[<S
XM```.Y```#O8```\:```/O```#](``!`<```0-````)L````!````G````-@`+
XM``#T```!#```!38```4^```%1@``!5(```58```%7@``!68```5R```%A```,
XM!9H```6@```%I```!;````76```%Z@``!BX```:N```&Q@``!M0```;:```&@
XM[@``!R(```<X```'3@``!V@```=^```'F```!Z(```>H```'K@``![0```?"/
XM```'S```!](```?8```'W@``!^P```?V```'_```"`(```@(```(%@``""``#
XM``@F```(+```"#(```A````(2@``"%````A6```(7```"&H```AT```(>@```
XM"(````B&```(E```"*(```BL```(M@``",````C*```(U```"-X```CH```(B
XM\@``"/P```D&```)$```"18```DJ```)1@``"68```F(```)L```"=@```N,P
XM```+K```"\H```ON```,&@``##0```P^```,4@``#'(```QX```,?@``#)0`_
XM``R:```,I@``#+P```S"```-$```#2X```TR```-.@``#5````U8```-:@``%
XM#7````UV```-A@``#9@```V>```-K```#;H```W@```-[```#?H```X(```.T
XM,```#C@```Y(```.4@``#F(```YT```.>@``#HH```Z<```.H@``#K````Z^B
XM```._@``#P0```\*```/%```#R(```\J```/,```#SP```]"```/3@``#U0`@
XM``]@```/9@``#WH```^````/C```#Y(```^>```/I```#\0```_,```/V@``O
XM#^0```_N```/^@``$`8``!`4```0)```$"X````````#\@```^L```!P```#[
X-\@```^H````````#\@8`:
X``
Xend
Xsize 5368
END_OF_FILE
if test 7554 -ne `wc -c <'zapdh0.uu'`; then
echo shar: \"'zapdh0.uu'\" unpacked with wrong size!
fi
# end of 'zapdh0.uu'
fi
echo shar: End of archive 1 \(of 1\).
cp /dev/null ark1isdone
MISSING=""
for I in 1 ; do
if test ! -f ark${I}isdone ; then
MISSING="${MISSING} ${I}"
fi
done
if test "${MISSING}" = "" ; then
echo You have the archive.
rm -f ark[1-9]isdone
else
echo You still need to unpack the following archives:
echo " " ${MISSING}
fi
## End of shell archive.
exit 0
--
Mail submissions (sources or binaries) to <amiga@uunet.uu.net>.
Mail comments to the moderator at <amiga-request@uunet.uu.net>.
Post requests for sources, and general discussion to comp.sys.amiga.