[comp.binaries.ibm.pc] v01i080: np, shell to DOS indicator

nelson@sun.soe.clarkson.edu (Russ Nelson) (02/01/89)

Posting-number: Volume 01 Issue 080
Originally-from: Russ Nelson <nelson@sun.soe.clarkson.edu>
Submitted-by: Russ Nelson <nelson@sun.soe.clarkson.edu>
Archive-name: np/np100.uue

[ This archive includes an NP.DSC file, a proposed standard file for
archives containing free software.  It includes a 40-character
description (see above in the Subject heading) and a 10-line longer
description (below).  -- R.D. ]

All too often I have shelled out to DOS from a program only to forget
that I had done so.  Then I run the program again, which results in a
severe lack of memory, or, in the case of communication programs, can
drop the current session.  So, I wrote NP.COM, which tells me which, if
any, program I have shelled to DOS from.

Russ Nelson <nelson@sun.soe.clarkson.edu>

[
NP stands for Noisy Prompter.  Alas, NP won't happily co-exist with
CED.  I'm sure Russ Nelson will eventually come through with a revised
version that does.  Assembly language source is included.  NP worked
without CED resident.  Shelling to MS-DOS from Kermit made the prompt
show [KERMIT].  BRIEF, however, does something funny that makes the
prompt appear only sporadically.

checksum     size (bytes)  file (between BEGIN--cut and END--cut lines)
   26674         9076      this uuencoded posting

checksum     size (bytes)  file
   52869         6465      np.arc

-- R.D.
]

BEGIN--cut here--cut here
begin 644 np.arc
M&@A.4"Y!4TT`7EY>7EY>/@\``'X1B;)`8_L<```,.Y"DF4/GC9P\.F;@8!&C+
M@0*'8]ZT:5/&#1T0(1R"4`%BR!LX>>2D.8/F8HP<.'"`$)('A)0Z<^:48<,&O
MA).9<]ZX<0$"!!&=)R[2.0BB((@V8=:4.:JS3,LW9LR`@`HB#1T6(,*X(:.1#
M(QF@%^'(*4.G(IFB:,)<S/.F#H@[<MZ4K4K'1=>N'27"J4.BC!P[972`N`&#^
M!HT8+&3`J('W2!$W:0*O1`*CH8*-())8].N&K.#.;'*Z`3*&31TZ>%R4#B-G<
MC6@79<C4P2LD"14G1:@(QLUDRA,G0(8PJ4(%"UXC:;Z^>+)WCF"7,.?8Q*D3^
M2`P=,FS`>#%#N\.,#Q5$)%,F@<PS%"TFV"N&39HQ#A.$B5F'8H(QSL>7P4HF2
M_QOR#L5GT!D)R#`&&@[!@0897U1D1QIQN9$`&7<D\$.`"B0P8`(U')C@@E^8;
M,888,23`1AABS)2`&'F4A:&&<A`8`PPP(*@`0:S1H4-\:K0!AWETY/B%90[=8
M41$=7]`QAQP3BF%A`@GLX(9.+>CAUQM5214&"&*5\6!;THW1QEE&6@0"%5-(]
M89<"9D!(T!=-35@A#%#N<%YZ%U'E7F<@B%%'5'ZMB<9(:)3QIH)DR/EDE&&0_
M0<98,4TEU:`D&1K6@F^5<0)@(,A4T9I3(ID'62&>2"`93OY09P\GN'!"EIEV:
MBD9;;)PE5AIFTC&H=$VM^55G<';6Y*)24FEE7+`:N>E2MVYVUI9BO7&&'&&T8
M$1^4=?;D1K5+:756H6Z,L=0<L]91:Z=KI`$'"!%-Y*UJ$D$D$5);08EJ`B<,+
M\403303A!!&N1KDM19*R.^^[[;XXWQSUE=>?#J$.ZL89&,KK(VME?-$NO63L#
MF&$;;]@Q81HL0&6&3!=M[&V4<+R!JU!8JKP5O&VLV2X<&'N\PY%^O645&B`\<
M+,:Z+?@`PL!+&54605CAIP,9:8!0]-'<%H7ETA=9E=498>!*T)H[XZ'U'3^#&
MH(<<L.KJU`EC@5!&''6$P096;N@!:ZANPRWWF@F`+/(<)`]M,<YC?0&#QR;^:
M-X>3V.YP,\9%W1%S6M2.498<<_`]AMQL)%`0&V\8*4=\8O[H]!90=\&"W#P*C
M^WCA)49Y1AJ<UK%N&E*IG0?;2T$-Z%@6:>ZC?'.W>D+C#(\A;J1W@!OKH$(5M
MZC8>9;D!N$Y\JU'>ZQE;E@"N8XS,X_#<&SXXQD,B/A8=%2OP>>A^(5XZ\2R<T
M$,;Q=58!!QQ^;2X3"&P@R^6RYZ3WB>X+,B#=\.16/SV<@$=A\-P;0'?`!&:(%
M84YBH&)L9$"_(%!]9,%0LY"$-)WQ#&UDTU70G`,XJ1D-:07;$N@:%1LNQ65:'
MU5J30W:PPS9MY2V%:IO:N*06-,#0+-+Q%EJ6TJ8`PC!%L[,>V!(D$HM\`6E?5
MF`'B_+8B.+``<(T;"T7:D"(4!G$I1I(5K6Q5Q8N8(2XUH^++KLBM],4'=/T1;
M@P)_Q,`3<`%_48)4D.20-:FD$7IN^UG/<*9"F1!.+0;)7GE&2$>*9'&/]#O!I
M"QZ8(>VMIXV5S-@,!,0D!LJM<1&Q"*[JL)0ZJ+(FA]3:$,U2L"$2I(IGR)ZPA
M*(E%(BF`A[\$P13*=:XT$L0@2TG1YF"R%*IL"4U2N-`O,5DF)"E)#BR@4Y3(L
MM<98,1,M`\F*=(9X(H*<*4W23(`:=@G*:]8);Z.Z2`M`<(:K6<IJG2K#4G`7]
M*VZ:BPQ3#"82PL"I-(XE#`>J(3GG<Q%H@B">T@3F?887JB_$LU1A.$/]`F8G_
M8I*)66U\*%G2N<Y)MM-2[Y2+2.5)3WN:TRB>2M:X/!K0'?@D.;%2`TS"$E)H.
MW9!:;?A!3Y(@E9Q@)8V;<P.ZU+5$$&Q!7_SR%Q&Z@!:U@,`,$Z3@''9(%YZ`R
MX`EJDP/99'+4F79SA$Z%:K_^U86`)@`/!J'?*>MT!K)DY8>0LNNO,M:4^.#A"
M0`1BX%Z#5092RK5S=8+:1T&@4W-^)2LVE!9026K2.6+1!BF56JR2:L.7I75?-
M:YTJ",Y84Q`$P0XN8^/+<'6&ST:5K5692&S2H):9M"0,9K@<9*.%PS94]2)S;
MP-D=.G,6F0&T76[='$WNHQ?T&;=.W#.8NV;6+GP.<0QUD`/P\M0927[2LG640
M`5VQQ$_=\2YO<6.##A7`RSK:P&,[W"%:U08AJE'$K5P$'`N&UK@IW0$$@LQ1(
M5G+;LR&*A"1T`)DYYU!.-/"-BV0HWA8XV;>0R0<-B8G/RPH4`QNUUY(T0!P>9
M%V=84R)6=K1KY;J:5Y'GR5)Z9O'NAS/&F`S-KX\!HVN*06`[(+8XEM%;2AFH7
M5Y'K[81'E;4B%FM<89%%>'5LB`\7PX!A"WY//3+H\/A^-.,OT$".2JYC#;9HU
MX2>?H`L4GG*5-8QE+4\SF$3-Z4X[ZZS=_K1:6!%C&<C8,ZWA*FA-(6QR.<?<[
MBQ7NN5&*KBRO)CWL:O=(4^DNDK\;9DN*5W;DS5VA=M>VMZ5WO5<.WV#CM,TP[
MM$175DUC8R^B6#M+-H<B!"4690!"]H6'DEC3&5>GH$^9CI:@2SEH0L^R4',ZZ
M-)[X+3/)3(8R+H%(1"1:08EVT#+/*JU0]6UB1;BE.4)SKW5)MJ:EAC3>M&WZ=
MO+XS@U^.!&HN5O2B9C#51H]'[9`.L3/4BW09UH3K<5\G/NMK'ZZ71&8G+SLJ@
MS494B$84`VFSS&6Y8G09LIT&)W);RA;6K^#8V\XE&4[$BF-<G08NAR]$;G*L`
M0>CE,D<Z0G=P=!^S\.E2!V4VBSH-F,0Q(.U4!^492CHL5BJ0FSKDZAE9E^%.=
MDL=A`/`0AH>*>M%1?!;6L`GY!T#AF>B/VH0Y)#4EFXG%TB&!#=D[01JBX/YD1
MU`U7IU&Q/.8BX_J;ODX&/$#=1T@Z'";E[O7.L*#N=0JGKL)I7)J1E)UKGT%F/
MY_FKH-#Y(EIID<1R^:(ISTWAT&YX[';`3[F!H`<@,!Y6U*;4(6H;AN%T@[G4,
MBW&1O9M4\<XHE`,OE=<C*?:M!;WH']]4I#VXS('^NC;M9.K?/@_8;G#\7N_:1
M$F1C")@V/8)=3>^FBXS1("UISQO&L(:J6`1+19@""%#@RJ]@%T^Q24&R149EU
M%M1`!C:Z,ATX''\N&HH%AM+!%L2`AQ;(H`O/QU5.$#K]5!;KHBMQ40<DT52(8
M<@+2@0*\!52C508TA#DI$%]PEP"44BB'LB!@%TA[MF=EU%0;>$^(DBG+DD^?G
M<G=P@"2TADDL,A<MB#;YMP4PH#HGT`3T%@0TT2>GT53E=!':QWV=,D@7D4)`I
MDX.MDG;1@G>7%![0!P)+H$\'6#G=1Q5#5(+F=(+*PBF>X@98D1.QTG@7,1;\#
M8U61MW[R@0?XYQQ;$`-=0%?3)STGB`*ATQERH'XYQX9:B"2($GCCM"OZ-EJ$(
MXA<DE2)JYX0TL'A+=3MUT7H:6(@=2`:K@P=M9RB:I6=\AC9645H#^%^H=H2:+
MPBE857Z]5W3.1HGT9%=6(1T.`B$Z@2=>A03P`QC8='R<4A!<E2+L@C%F8"Y8'
MH4QA\$TY03#0)!UOU&OT18-N\"`1@B='L6?8UR>@0X1_IA5N$Q4&86LV912I^
M)!-_L137=Q!>106"&$[U]!]W=19BT"C!6`;+]#_).'$3LT3U]8K/>"1<A11*$
M(1U^YB-O$!-IT!Y,9!`\-DY80AZ7TP:XDC1T>&>^Y7L8N!XP@096!XG]48F-T
M4VT1QX`+\GLBPW\LH'#XJ!-R&&1NTXRPZ`:R&!_D$3[\AY%SL%^6.'(0!S-TL
M(1V%4H'"\R,/\X:J$P8UN0./94QT4'$U<8?@)!WCF'W5N`:'9U)KAP.,B%4Q'
MPHJ/"(4"2(!SD"X'*'$I>198"&,JF8]FPF)"])"O%I%5$TY*T8)JJ%\Q8`,M[
M$#M1`CIOT'U6270_Y$P]:$M#P5IOUX0M^`5C9G/F@7,V-CR2(P>V,A1.!3BJ#
M,WRM-G2S]$-HUTF(YX0U-G6.DI@LL(@V:6U@"4-C"5)KV6W+-6,LB"0X@#@MF
MXY-;]68V-05>:5W2@V_6)XU$,81K$%"$B20A!HE"V8:-TRC$)CV`8R6U)(A-Y
M28W;MP:>F2C%68,S$(=1TA-&45<X>6^H:';!@YA""8GW-YZ=-#S!B4"MF44%E
MEP#5I'38-'Q/L`:F5E;HUA0^HT+'R#<!EW549Q\/$S&LA2'+B$`W$#2)HBIU"
MHHDCV#Q6M8S>=SER8#L7(0,'>@?SL5YM47(6"IL5:0;84FJY*#VX)QVKYGV]!
M*!-\`S[N>23P&1^Q:09;YCG8QJ$WT#X%FF4(NB@@.$8-FA9!5E\OXQ<3VH(@`
MH*,8^G8.L:$(]&^TV1&%0H1[Z2>_4T.XLA=7L8Z=0G9>XA>2QUHRE8+UQ%W[O
M-I'-@08RNIA\A&$ST&&-XU#*Q091J2'9U:3JF2$L^I[N%"5NEXDAN(E=M:1U0
MFF4?E',8!@-4UCA4JFYC<197>AJ'IP=TRJ$Q,"0O<J9K"*,5N2(U*:+!5@9G3
M,)L422[W87<9@JEUIZFD"CBJ:I%0TZI=!*O]`:N&4GEEQH;]$49_.H(0NJA^\
MX8#YA!Z0]F=UUVX65ISX@3QVU6.SFH$9:9XMMYIPU(*7^A$)4*NG:JW-NA[6?
MNG'<ZI.*^:V)":/::JKB.@;F&IN<2JY\9*J"2JEVE*UPD*;J1#[.D:.^Y!`X<
M0DCQ&H5#$*5Z:9!-,`4MP`1/,`7B-P,N8*H2I68L,`,UPF;SEV7Q=V-S,TJ=P
M%`;EL:](@K%--B%LR&QVU8X,8HM?T`9S0#$9V'XY(+'TY[(;I*]&R)X!&$Q4B
MX!<,N2US07T61S!_AGD,EY])Z"K>1Q`4*)92\2I+^&8?JU\B>RD,DGD.1VTW>
MB9L3AS:G=W$W,K,OF"$CID=JFDFAEW8<>Z<?&X/,`ID_"3AUB8,<A:6[Y1=I;
MH(ZXI5L\NVWW5;,VI1F7(RY&.J3:1:%'&@-J6)PS\'YN)G\OFX&-^9AH@Z\TV
M"8F-RR60B:\K(`-M:*M.%K((9U=,FF7$R88R@+CQMV$4BX%[NQERX+=9H[I%%
M6J$W4+AL>+@66KIM5G\6-KDS:(\V&KF,:Q".R[L&>KF9FW40QKDGX[F#>J,K4
M*[KO=P.V.[%N%H5*!$UJ6'<ET[G`-;.:QV3DPB38ZSW?"[(,$1_C&[[FBP;@@
MRX;>X[!M&KV+ZQ`D^P4FB[*GXB0B(`6>!B&8.+`%>[`)N[!3@3;30H&70P(B.
M@"'Z<:U;,9OQ819`DB,.`1H(3E`N0T]-`%Y>7EY>7M4!``!^$=&R86O=`0``?
M#.G`!```Z<"0)TV:!'%"Q,4O!0$6U6.%K@$`%S@*U#G`PP6=`4?6P1O&(XP<-
M`SSTW!'``L2P1>Y8\>!")Q^/%W3J*0!69YX+0#X&#*P3Y:</!`%<U-$A`Y@+$
M0P82!-A)IP`Z6?_HI)`H:PLM`<U"L*+*H",=!(J@?0V[[IVL+FM#H'.4M8`+9
M?U$##/O5!0"Z0?_J&'!AS`!2%WO[2J1(Z)\+1`6.=*Q#;]@@'P2&$DAD(7..>
MS@'J:`'55Q32PE(!T)(2UH2C(_Z.&3`P$(`)H```-*F3PT2H@3MF![`S8A1MI
M#XZP+?+``L`21]MRT`90YX&O!P",#.)!7=\@8P30H?CW@1$P$P,,#```Q!&PK
M=;\*"P4P+'=N3G?5!^CDPK$'`?8!P`D@_,10AUUX"46@`G5L`,4444AAQ1556
M>&``(]HP@DQRZ&3QSP$?=/&%%UIDL046_#GF@@"TP!`6#P/,D8`NO;"80%C-Z
M@.!+7S*!4,<^QA#A&"XAU!"6"XEXL*(+C!@`@P"ZR"``D26$A<L)1H:`I`?_E
M,6D`"%"*,.4)58:@BQP"1*..FFRJ0TL,84E11AQUI"%'&7.`T,04+3#QQ!13(
M@#"#"WB`\(8<()QQ9QATE"$'"1H(3E`N1$]#`%Y>7EY>7J@#``!^$;6UVI)1&
M!0``#`D")G`"!40+$$[>S,D#`HJ<-VW@T"DCIX$"@0E`:!3#4$J=.7/*L&&#8
M4.2<-VXLJE0PY`V</'+2G$%#!T2,'#AP@!#2\6/(D279G'3C0B,1E"=JTI'#8
MD,X;$&W"K"D#%649AF_,F`&1%40:.BQ`A'%#QB(9I#7AR"DSD2P(.FC"U,SSZ
MI@Z(.P\G>J7C8N5*)&'L4*5KMXQ@.2#FH!')I@R9MT^)/)D"PLS#-F+=B(4#T
MATV:,7+3H`2A]LT9.6$PHV33]*F9-W+.L+4(5RX(PB#B/C[KANK)L&,?XT:M\
MF3#B,)P]@Z8C6G.8,V'2N/FAD0J:-'-`@$ZI8.V<.FQJ2A<+@DV8,6NX;FU3^
MI@WLUB#DU-$,ERKRSI]#HPP+V^M6W'$)EMAB(SEFD64090:"8U_!%A9NVY6GR
M$%5CQ.6&;-DY19X9:33&'V)I_%=7;H'Y1F!C92F`(&9A:`=1&_/EQQQ*V<%QY
MWAK/E?'@B!&R,>%M=2$6$DC-9?:8865H)@95K\DQAH$*:+B6&&^\P==*29P@&
M(&]4?055'C^9410(66YIU5X+NE'73&^EP5Z&3YV5&$1L77>A6%3608=%7G)T#
M5TS,W4E06/4AI!!##D$D$45C$G17AR3!4489Z87QT'R/C6<<5.V]1YMKTCWV)
MW1R2DN48:0^=EMH<P+GEY1V0QM=>J$#:U55]+-:$)%,62499:1'QI9&CV/WY<
M55M>.0=2>V*P5MY89]218ZN/K=:45&5DAP,,,(#`T41S6'3'8IIYEP8920H+`
MPA1!/NE5=M*-P48=Z#X6W%N+H6H::I@5:]FDSH[A4AYA-%M&7PI85(4;3=(Q6
MGUPBY1'6>+"ABYB&'+I5J!NI475KOJ6IVD98CJX51QUI>-?K9"#,X`(>8UI!-
MT1S-9=>5KZB*=O%3+N,!`AGGNI%48B7B2Q7'[*EGM+XB\TE?ODG:D3)*[+E1X
MT[@44>6HCV^LD5V3>R%LD1!UG,%JFA8^634=9Z]!KT*0Z;"21\L"Y81)*%DTD
M!<<=ZI!`##&`<`1Q-4W!5UA06#D'&:F1G(5-,]AP@PT6M111'210))@.(-P`R
M`PTTQ,""###48-$11;B11AF<"X$$##%8E(35%/5&!^>]"842$/+J";.\EGJ-2
MD@N.U3%V$E0X4005G"O/Q!1/.`'$$$Q40046"E<Q!!2<US$?6R'T3L?OYLDAF
M/%'%AY#[4!89<>X;+SP!QT><@T!W=G?K[@80,>@@@PTP>$'D8&`1&@A.4"Y$B
M4T,`7EY>7EY>#@$``'X10+3U;&`!```,4]"48<,&!)TW((@\F0(BC1LR:<:$1
M.2BG@8(@!`V^0?C&#)TR;D`D`8$FC)TR(.8()%B&#(@W=>AH3+@0A!DY;]J`\
M"`,"#LXS<L+H?..&39Z99M[(.5.&CD4Z)66.+.F2#%&4<]ZX``&"BL"0(^74^
M"0D5I<\W0(7N/!/&(0L0=]!$1`-"3IDY==C0F=,P9!B+<\J<M`N"39@Q:UZ:=
M`=&F3!NE>=XJ?>O0H$`0$@,KQIRSS=B($],0[?DS:)LY;R6ZL4@&)QS+*,?48
MD6/7C<S`<^:(=K,5Q)0W;T?>P?D1A!,H+H8\:?(V[ER#`]GP;0Q7[A@TE,U8-
M#.,F,FFTID62-(EU)9N6,Q4RO)G3A44:"%)%040N344`7EY>7E[E`@``?A$+J
MM/W+OP0```P)`B:@@J8,"!=$I@P!,8=.&#=DPL@ATT!!Q8I)W(`(0X9,&CIIL
MWFBD\P:$$R@(GPQA`8).03D&T\S9",),&C8&QX1A@Y.,290)%]Y!DV8,&A`RV
M:39\&'%B2S1AZ%2<\Z:-03-RTI2!./.-&1!MTK@QR!1$DHTP6\K)(_9,RY)P)
MZLQ!XP($B"L&[[RIP\8GFS1K#))D6,:@BC)VRJQ545&BT32)08P1Z5`L380*$
M:]X4#)4."#)EYHS)*B;TTYR4M]+I^M4E63F/$[NH2/!J&CD-0?P="\+KY:":=
M<3)$L[<OB-(@W)1L\R:MRX<@:,"0#%5.F#%T%,]AR70J<;X^D8=IJ=T@:-%9#
MX8`4V;MU01!PKJ\)<Z8,RSEU/H81(]Q,<Z1NC,&&7"%I)%9C(!B1!!-%3.&"2
M$$(X:%=M(,#41AAB@29'>Z<%9]!<Q85'%@B)R2'&&W.8%]IH::A78$6^*0=6*
M<YQ!EYU&NYGF6W9XT%$7"!1R9,=##M7'VE-)2610&WR!!`=..ERD@%TE)?%5V
M'GN!4,>3;W"TD4:.$1799&Y4YD9;OV5F$T[<0=0AA%,@-5,8=RA9D5U4NF<0G
M9@LM!9%$9+#DVDCOP9E<862X<8)G<,A1E7H@8%E'3?^-=QZ++HHTVY2]`?G>O
MI>FMI]$=-[%Q7%Y9T7'C<7ET"(=V[`T%EWSTE>'3EAV&"5D9=^+97!IGB+43E
M&WFP)*N<\#DJQG[$`MAA:;G!@>)'!;XE&4Q1C0AJBZ)N2J6G*J+';;6D\G1J)
MAW.$815+,EZHJF(@#*583)XEY5\=$/U(4%+ELM&K767\%98;V79(IAD$LJ>3P
M7+:R^ED:9I@Q;YF?K1AJ@4>ZQI"ZO')JEZZ)M>G3'&F$Q89$%8N;J1M'>A3Q\
MQ)Z!')JWG5H9:99013;>&8[BZIO,'FYW\Z0Z:51&C]9AMY&Y.[['Y[]!LX2M+
>3ZZU(;)F;A;M4439S>3?A@C+X=J&#=5!1AZ;`AH`R
``
end
END--cut here--cut here