cgs@umd5.umd.edu (Chris Sylvain) (09/24/88)
[ One of three programs received as a single package. I edited the submitter's description. -- R.D. ] PRENV demonstrates how to read this program's copy of the parent's environment created by COMMAND.COM ... For DOS Ver 3.x, the fully justified path name of this program will also be displayed. The executable and the assembly source are supplied. The environment consists of null-terminated ASCII strings (ASCIIZ), with the entire list terminated by another null. A 2-byte entry at offset 2Ch in the program's program segment prefix (PSP) contains the segment of the copy of the environment. The code commenting, wording of printing messages and some of the code itself have been changed in a number of places. This is one of three programs, being posted consecutively to this newsgroup, that was written using MASM 5.0 by Hardin Brothers for the April 1988 issue of PC Resource magazine, (C) Copyright 1988 by IDG Communications/Peterborough, Inc. Hardin Brothers is a freelance programmer and technical writer. Write to him at 280 N. Campus Ave., Upland, CA 91786. Enclose a self- addressed, stamped envelope for a reply. [ Uudecode this article normally or feed to the "combine" script. checksum size (bytes) file 23774 2800 this uuencoded posting 10143 2011 prenv.arc -- R.D. ] BEGIN--cut here--cut here begin 644 prenv.arc M&@A04D5.5BY!4TT`7EY>%P<``"416';Y8,4+```,8]ZT:5/	T$?!HH4)B` M"IHT<T#`D?/FC)PP;4"0*=/FC9LY="[2*1,1S9L[(.B\`2&G3!@R*1]&G%CQ M8IL3$0/"R0/BC9F891C""=/2($X0!>VDH>B&H$$08UJ&&0E3#,\A3YHT">*$ MB`NL34"X&`O"R!LY((@\F0+"2AFT,US@80&4H9DZ;-CP5%,'9!HS:<K`'$H' M#0@W&,OT_%D8HD2*%C&"N),F+X@P;.:L%*.8#$0X;,+D$>Q"(4.'BI,N]>B4 M#E2/<R#2B>CS,%XV+4;*:9,&,5400:8,29($!$@YO<]$1!%\>!(M*5@PI%P8 M*%*#2Q6SD9WR+6_?@D%8O>SF3>&WMO.Z``Y"1@NK(Z^'Y#F5H4\S<\JXEC'$ M<&_K-$5VTTR0V61<&6>T]E@9@.$!`@I03`%%"J\9%$9O$9W'4'X)%N1:;>>] MMM-BUJG&5&OKH?;:1J\-Y&%R=-UQEF=NG&'?3Q/U1D=R(!`TQQQAG$$2>3!I M1A")(0;$8AJSE<'&3VB$88=BG!4$590UAM<;0V'8U@9G:-4&6AACD%3:0@HD M<`5R=(SD!@AFG`7"5E.$58,+,(C'$Q)$T0B"$!2=)T=$<:(%Q1!2D/1&'7*4 MF2(:BIV5QAF]8<8E''"XU!),_X481(YL@!!##CC@``)$<]01*6.0+M5CD&'H MT5L9ZQ6!74L5NCG;8@QY"JJHI)J*JJH/#D'A$&_LA-P9:+@V:JEZ,I3`M$D0 M<00(R`Y4AQMIC#%5&K"]`(5^;XEQUJ+,TI6$&V.<R1"?<O@)J'F0#GIJ1%V: MT9*38;"K6(`V$816OS"--`8:W'H;ZAULOK7>FDP&E:9*(#R4T53MX9"G$^L- M@1$<?0$WI0MT53&F&V30-400(("00PPWX&!#K>RR\49^EQWX9`M<DD%&2S\* M1A=('X>7E)/)*E9HSBV!EH>[:2:$)A-&)%!&''4D`$,0:"2P`PC;N<%@&>$= M3)1"B%J-M=9$=/VUMW(@%Z1B+='!Z)MFRZ'0%%2H5045:F<=@]?&T4%PGSW5 M00?(KFVD5)FF*5`$%DD`W@:9%"5@AZ5I=F1'`D$@01<-_4W[=1).4-%>#(;E M)\?CBI&.A@Y(X<$DG!1E!#!&TII^668KU7TWOB!LSH:JZS4=6IFTL0$3ZJK+ M``,:9R;@.>A,T&6\[\++\:;QQ,(G<0(Z)B`#ZPP51$8;D2?@0A-/$%$$$PG4 M&0033##D`M]!#+%$^U^)7Q$B1S0YT$$'"1B#\Z9%.`5J2B/9&<../`*GT)Q! M![TC7,OR0Y2#X4X@8#L)03)"L8<P:X0,N1X1ID"7(DQ!!UO@#QJZ0#@XO$%' M:6$+Q4S$&@^)*`\I?,/G7-C"%\:P/S3\F@UQZ$*@M(0N*GE#$#\7.KK`0`9= M(QST5M>ZM\`.!%><W60:EK.\I60E("'#HN@PQ000(7O8D@)#RG<^-+2QBF#$ M8AO?2!>JS=$@YD-?YX3HQB18T7?Y<<T2#8*>^R3R@QEQ81N'@`6ZW,`(F'3; MJ_"P'AXVQ8>QT8-B>@""&<C@!C8PE?CFT$8A5!($?/,;X+[&L(B=L7"'BU?B M%J<XC90!=I%C`QP0.!*0)$!\$@D)"%P(0R(DH0M6S"3ABNF:I:F/1-L!"4/4 MH(<$MH$,7T!,&Q"YAC3`X99C^&8X)?,7XT@Q3:D2`_;H<C]$Z@<X3``!*6&P MQU<ZTW>,PZ4!%X.?>_Z'"%A@2-/$EH`Y>&L.\B0<!QMEF*6YX397.EN:0#:' MKE$2D5*B4A[B$Y!ML7&0GZ,D7?Y)."&YQG"5`<$*1+6A.LA3I6G!@CU=0\E; M'H=';"C(&0IS1]&!@`;3\]T6ZWB@UW4K=M.C72WC0S'`!/4%CGOJ'P]2QZ): M48\H=2,<$;750-HQK'@,XQ[AZ,<TT5&0";`A'!+P4<(!326X0F9)#;+--LQ5 MF+X+"'8NJIB)'BQRZ02G.#&(5J/.(*E:3!T7F_K%QXK1I6E92_'>$AL*7O1+ M;REK5].4SKG>CRXS\)UC&A,1M\!%+B#XP3;EJ3XFD=.<MZRM:]I9GI.2CUV% M]-U+?K;,%SI3(C<T2(96(B-=PN"YK*M@D-I7V@0T=S#*9.86G`E-43404F-8 M@W3/4#S,J&J;#-7M;<^Y0Y3=KIW;,H,%A42&GI&AD'21@7!]AA9F'G>1NRJA M2V!2&W&.3X7^3`)(IW09_I((4B^IJ3Q/B\^=XE.?8)SD*V$@S:\]TK"&,6E, MU:?0,L"!H0X-`T3MV<&*RNFBELF;AE>JX);><[AA8LR%V"!ANOI3IQ*]9T\I M]M,:@4VH1`VK*^D2RR?\C7!350R1Z:!&Q7GUJ-,3K2`5HEL$7B^M8+4>(?D8 M1RV?5<Q4-*I:PTKFMOZ6JW"=7.6TYKOR[`8SW=E-I2;HAO:IKZ&&,V#D-``: M"%!214Y6+D5810!>7EZ(````)1%C=LDL?`(```Q-M/`!(`"`01``@@#X]P^! M00*V&ADTZ&%B``"0_F$DQ\^$(P\L`'@T$)*6`%D-FH4P*4N!RE\&<_W[L^NB M"7L%_M'QH`+8HFOR7$59]&R%,EI`5+),N?*DRQ!9UG&C!4,ECP%R/!PQ,:A' ?@#H7!AT3\+.G3`!!B1JM"0"ITI-,63ZEQ006`)4:`'&C ` end END--cut here--cut here