PDP-10 Archive: 6-1-sources/execde.unv from bb-h138e-bm_tops20_v6_1

Trailing-Edge - PDP-10 Archives - bb-h138e-bm_tops20_v6_1_distr - 6-1-sources/execde.unv

There are 28 other files named execde.unv in the archive. Click here to see a list.

x
,Qe@P B@ CN fN6	IFNB <A>f!,<	UACCT [ASCIZ \f@A\]
>
	IFB <Af`>,<	UACCT [0]	
>
UACCT [0]	
>C5IQ C&. mqNu	IFNB <A>n,<	UADDR [ASCIZ \n0A\]
>
	IFB <AnP>,<	UADDR [0]	
>
UADDR [0]	
>C4:P

C4\qP C3%PP
	UALTYP [ASCIZ @A@]YP CRmI7P zCSR /9J{
	JSP CX,.SAVT
	JSP CX,CW%{P ,CW%{	P CW%{	P D@ Ee@P E'%[P ENf: BiL	IFNB <A>C	,<	UBSLSH [ASCIZ C(\A\]
>
	IFB <CHA>,<	UBSLSH [0]	
>
BSLSH [0]	LDREV2P&HEV2

P REV2P&JEV2P REV2 P&LEV2,P SEV20P&NEV4[RP'gEV5@@'fEV6

P SEV6

RP&NF@ Ge@ ,GeLR +G,kP tG$:P G\+P /G+P G$+P _G-l`Q G>:=P G". c1N!	IFNB <A>cQ,<	UCHAR [ASCIZ \cpA\]
>
	IFB <Ad>,<	UCHAR [0]	
>
UCHAR [0]	
>G6

(` AP,.CMABC+SBLOCK.CMABC+SBLG6

, P(.CMABP+SBLOCK.CMABP+SBLG6

=Q  G6l P.CMBFP+SBLOCK.CMBFP+SBLG6*` APD.CMBRK+FBLOCK.CMBRK+FBLG6k Q G6X Q `G6m P .CMCNT+SBLOCK.CMCNT+SBLG6$ P8.CMDAT+FBLOCK.CMDAT+FBLG6$Y@ P@.CMDEF+FBLOCK.CMDEF+FBLG6$]@Q @G6%@Q  G6.,\ SQM#	IFNB <A>Sq,<	UCMERR [ASCIZ T\A\]
>
	IFB <T0A>,<	UCMERR [0]	
>
CMERR`[0]	G65IQ@`G65I`@{	OX.CMFLG+SBLOCK.CMFLG+SBLG65MQ  G65l AP4.CMFNP+FBLOCK.CMFNP+FBLG6=(@ P0.CMGJB+SBLOCK.CMGJB+SBLG6EL AP<.CMHLP+FBLOCK.CMHLP+FBLG6Lj Q G6Mh` AP$.CMINC+SBLOCK.CMINC+SBLG6Mj Q G6Mz@ zIOT.CMIOJ+SBLOCK.CMIOJ+SBLG6\^ P G6uyQ @G6uz Q @G6v[ Q  G6v^Q G6|j Q  G7L@ AP.CMPTR+SBLOCK.CMPTR+SBLG7=Q  G7N  AP.CMRTY+SBLOCK.CMRTY+SBLG7z Q `G7$Q G7%z`Q `G7'

	IFNB <A>a,<	UCOLON [ASCIZ a \A\]
>
	IFB <a@A>,<	UCOLON [0]	
>
COLON [0]	AMb	IFNB <A>[a,<	UCOMMA [ASCIZ \\A\]
>
	IFB <\ A>,<	UCOMMA [0]	
>
COMMA [0]	9K;
       CALL CONF      CG@,P G@,;xP G@-	6P G@.<P [email protected] GCN.:  !J
	LOC	0
 A	ASCIZ /
COPYRIG `HT (C) BY DIGITAL! EQUIPMENT CORPOR! ATION, MAYNARD, M!@ASS. 1980,1985
A!`LL RIGHTS RESERVED.
/
	RELOCVEGHP GK I1LQ	IFNB <A>IQ,<	UCRR [ASCIZ \IpA\]
>
	IFB <A>J,<	UCRR [0]	
>
	UCRR [0]	
>
GRyP 
GRd9HP @GRd9IP GSH`P GSI P GSI< FaL<	IFNB <A>G,<	UCTRLE [ASCIZ G \A\]
>
	IFB <G@A>,<	UCTRLE [0]	
>
CTRLE [0]	N@P I DL'	IFNB <A>D1,<	UDASH [ASCIZ \DPA\]
>
	IFB <ADp>,<	UDASH [0]	
>
UDASH [0]	
>I$*:Q @I:=P I$lzP'hI%|SP'pI&>6P'pI H	LF	IFNB <A>H),<	UDEC [ASCIZ \HHA\]
>
	IFB <A>Hh,<	UDEC [0]	
>
	UDEC [0]	
>
I63 	P^	A==:PPTR	!		;PCL ALLOCATE T	@HIS PAGE AT CURRE	`NT PAGE POINTER

	B==PPTR_-9	;DEF
 INE PAGE NUMBER

@	PPTR==PPTR+C*10
`00	;STEP TO NEXT PAGE SLOT
	IFG P PTR-DDTFST,<PRINT@X ?Exec page buff`ers overlapping DDT
>rlapping DI6= gh&L
	A==<-1hB<C>+1B<C-D>> h(
	IF1,<IFDEF %AhH,<PRINTX ?A ALREhhADY DEFINED>>
	DiEFINE %A (OP,AC,i(Y,MSK)<
	$A==<ZiH B>		
	OP (<AC>,B'Y,MSK)><AC>I7 TyM-	IFNB <A>U,<	UDEF [ASCIZ \U8A\]
>
	IFB <A>UX,<	UDEF [0]	
>
	UDEF [0]	
>
I7 R)M	IFNB <A>RI,<	UDEV [ASCIZ \RhA\]
>
	IFB <A>S,<	UDEV [0]	
>
	UDEV [0]	
>
IFN b	N	IFNB <A>b),<	UDEXT [ASCIZ \bHA\]
>
	IFB <Abh>,<	UDEXT [0]	
>
UDEXT [0]	
>IYVP I'> ZMW	IFNB <A>Z9,<	UDIRS [ASCIZ \ZXA\]
>
	IFB <AZx>,<	UDIRS [0]	
>
UDIRS [0]	
>I' XqMM	IFNB <A>Y,<	UDIR [ASCIZ \Y0A\]
>
	IFB <A>YP,<	UDIR [0]	
>
	UDIR [0]	
>
I?' ^Mw	IFNB <A>^1,<	UDOT [ASCIZ \^PA\]
>
	IFB <A>^p,<	UDOT [0]	
>
	UDOT [0]	
>
IR

:P IRNn g)N@	IFNB <A>gI,<	UDTIV [ASCIZ \ghA\]
>
	IFB <Ah>,<	UDTIV [0]	
>
UDTIV [0]	
>IS k!N`	IFNB <A>kA,<	UDTP [ASCIZ \k`A\]
>
	IFB <A>l,<	UDTP [0]	
>
	UDTP [0]	
>
IS lINj	IFNB <A>li,<	UDTR [ASCIZ \mA\]
>
	IFB <A>m(,<	UDTR [0]	
>
	UDTR [0]	
>
IS@ M)Ln	IFNB <A>MI,<	UDT [ASCIZ \AMh\]
>
	IFB <A>,<	UDT [0]	
>
K Q K60 +9J[IFN EMCSSWIFN EMCSSWK6<{P KK|@ 2yK
       U3ERR [ASCIZ @A@]RR [ASCIZ @A@]KKPQ KSN	  69K3
	UETYPE [ASCIZ A]PE Kc&:=P LDP"LHP!LLP @LPP  LTP LXP$M
eI7P M@P 'M$,\YP'M&d<YP 6M&d^ E9L1	IFNB <A>EY,<	UFILE [ASCIZ \ExA\]
>
	IFB <AF>,<	UFILE [0]	
>
UFILE [0]	
>M&fyP $M,,*sQ M,,HSQ  M,,YQ M,-ZQ  M,-[Q M,-<Q @M,-h6Q M,.

TQ M,.

WQ M,.-7Q M,.MQ @M.5H3Q M.D@Q M/Q M/\xQ M/Y9Q M/%I7P M8,Q M8,\Q M8,kxQ M8-98Q  M8-h:Q @M8-i3Q M:|I< hQNK	IFNB <A>hq,<	UFNODE [ASCIZ i\A\]
>
	IFB <i0A>,<	UFNODE [0]	
>
FNODE [0]	,PP%XMJ,\P 6MJ.@P MJ.:=P pO&8; -9JkASCIZ \AEXE\ASCIZ \AEOexY

!Pb
   IF2,<
	XGLOBS>IF2,<O3F8t $!J$
	SEARCH $AQSRMAC,GLXMAC,ORNMACC,GLXMAC,ORNO?I3 %J*
	OPDEF %!A [<B>]
	INTERN AB>]
	INTERNOJ~\P ON~	 %aJ0
	OPDEF &A [B]
	INTERN A
	.NODDT A OOI7P OR '1J4
	CALL [	&AMOVEI A,A	
		CALLRET %GTB]	
AOR%K@P

Qf N1Ly	IFNB <A>NQ,<	UHELP [ASCIZ \NpA\]
>
	IFB <AO>,<	UHELP [0]	
>
UHELP [0]	
>Q&=

P ?QO%X<P

S,(: .yJw	SKIPN BATCHF
	JRST A
St(: .9Js	SKIPE BATCHF
	JRST A
SMm@PS'$:PSB,P (SB-3P% SB:P

SBlP&HSBX<P SB|P ,SB}YP%0SP t	O 
`
	T <A>,B,C,D!CM%INVXVO0SS0 tyO*
	TV <A>u),B,C,D!CM%INVB,C,D!CM%INVXYO#0M%INVU
d[@P U,kP  U^+@ 1K	
	ERCAL RJWARN
	ERCAL RU^.	rP yU^.	yP .U_vP WNy $Y<-3P Y0 /yJ	MOVX A,B
	MOVX A,Y+y 3YK
	ULERRO [ASCIZ@A@]ROYP	Y`PCZ \](A\]
>
	IFB <A]H>,<	ULINE [0]	
>
ULINE [0]	
>Y>=ySP YXt92P YXtH:P YXt[sP YXt\qP YXu[P YXuP YXuP YXvvP YXv{P YXvP YXvLXP [E)WP [2-`P [2u0P [2|pP [FL@P ]fL`P ]sQ ]<` )9JKIFN NEWFSWIFN NEWFSW]<l{P ]FL`P ]<`P

]6)yP  ]7<P ]>&:=P ]>-Xy +yJ_IFE EMCSSWIFE EMCSSW]>N9  6yK7
	UNOI [ASCIZ @A@]OI [A]>dpQ ]>t]s )yJOIFE NEWFSWIFE NEWFSW]?RQ ]?Y *yJWIFE SEDSWYIFE SEDSW]?H: ,yJgIFE STATSWIFE STATSW]?FKR (yJGIFE XTNDSWIFE XTNDSW]CPP ]Nn	yP ]S'2P _' OYM	IFNB <A>Oy,<	UOCT [ASCIZ \PA\]
>
	IFB <A>P8,<	UOCT [0]	
>
	UOCT [0]	
>
a:.|RQ@PB5IQ`aCPQJPWh6QKb,0`@$`D@$`H@ `L@ `P@ `T@ a49VQ a6Q  a6LQQ @a<+P a<,xP a<,zP$@ad:P 
	UPROMPT [ASCIZ @A@]PTbD@ bH@ bL@ cNd[@P @cV~I< dYN+	IFNB <A>dy,<	UQUOTE [ASCIZ e\A\]
>
	IFB <e8A>,<	UQUOTE [0]	
>
QUOTE [0]	e&:x 'J8JRST RSKP6JRST RSKPe2N=P&He::=P e:YVP de:|I< iyNU	IFNB <A>j,<	URNODE [ASCIZ j8\A\]
>
	IFB <jXA>,<	URNODE [0]	
>
RNODE [0]	
e;P g  *9JSIFN SEDSWUIFN SEDSWg&=`P g$I3P gYVP g2: AAL	IFNB <A>Aa,<	USLASH [ASCIZ B\A\]
>
	IFB <B A>,<	USLASH [0]	
>
SLASH [0]	YRP  gRYUP ~gRYVP ~gR[SP gR\yP gR	lWP 0gR. JYL[	IFNB <A>Jy,<	USTAR [ASCIZ \KA\]
>
	IFB <AK8>,<	USTAR [0]	
>
USTAR [0]	
>gR@ ,9JcIFN STATSWIFN STATSWgRL{P gR@P ,gRY@P%2gS:=P tgS QM	IFNB <A>Q!,<	USTR [ASCIZ \Q@A\]
>
	IFB <A>Q`,<	USTR [0]	
>
	USTR [0]	
>
gV;v 1YK	IFB <B>,1y<
		USUBCO [	A
				0]>
	IFNB <28B>,<
		USUBCO [	A
				B]>
g^N:=P ggH6P h o9O
P
	..BITS=oi=0
	IFNB <B>,<.p.BITS==B>
	IFB p(<C>,<$FOO==.A>
        IFNB <Cph>,<$FOO==C>
IFEq D,<XWD [ASCIZ @q(A@],[..BITS!$FOOqH]>
IFN D,<XWD [qhD!CM%FW
		ASCIZr @A@],[..BITS!$FOO]>
..BITS!$FXUL	0Ri uiO6
IFNB <Bv	>,<%%X==B>
IFB v(<B>,<%%X==.A>
vH	[	CM%INV!CM%ABR!vhCM%FW
		ASCIZ /A/],,%%X
IZ /iP iI  w)O@
	Z			;FIwILLED IN BY NEXT TwhEND
	..T==.			;UxSED BY NEXT TENDED BY NEXT TENDi%I7P i]K\P i
e<}P tit@ xION
       .xi.U==.
        REyLOC ..T-1
	..U-.y(.T,,..U-..T	;FILLyH IN FIRST WORD OFyh TABLE
        RELOC ..U      Ri&l^ _9N	IFNB <A>_Y,<	UTIME [ASCIZ \_xA\]
>
	IFB <A`>,<	UTIME [0]	
>
UTIME [0]	
>i. @i.,;sQ  i/$\SQ iJ 89KE
	UTRAP [8Y	A
		ASCIZ @B@]
		ASCIZ @B@iK:P iRNK "!J
	CPYRYT
	TITLE A
	SEAR"`CH MACSYM,MONSYM
	SALL
	GGLOBSiS<;qP iS<mzP iS=-P iS=[rP iS=\uP iS>VP iS>;VP iX rIO
IFB <C>ri,	T <A:>,B,.A,sD

IFNB <C>,	s(T <A:>,B,C,D
A:>,B,C,D
 U59TYPE[ASCIZ`A]PE[ASCIZA]j.,@.j8$\Y8k=tk$L@kLt>kD@pkl\YXk}Kwlk}[0dkkHk&+WDk: @k,0Fk,`Zk.` Vk/
XX SLASH;Y	
XX BSLSH	
XX ;xDASH		
XX FILE		<
XX CTRLE	
XX D<8EC		
XX CRR		
X<XX STAR		
XX WORD<x		
XX DT		
XX H=ELP		
XX OCT		
=8XX STR		
XX DEV	=X	
XX CMERR	
XX =xDEF		
XXUSER		
XX USERS	
XX DI>8R		
XX DIRS		
X>XX COMMA	
XX LINE>x		
XX DOT		
XX ?TIME		
XX COLON	?8
XX DEXT		
XX C?XHAR		
XXxQUOTE	
XX ACCT		
XX DT@IV		
XX FNODE	
@8XX RNODE	
XX DTP@X		
XX DTR		
XX ADDR		
		
XX k:} &k>@ RkC{8 (kG-} rkJuy zkN.,| WIMB	IFNB <A>Wi,<	UUSERS [ASCIZ X\A\]
>
	IFB <X(A>,<	UUSERS [0]	
>
USERS [0]	!M8	IFNB <A>VA,<	UUSER [ASCIZ \V`A\]
>
	IFB <AW>,<	UUSER [0]	
>
UUSER [0]	
>kNdt <kO$@ JkO&  TkO,(w :kRMY  jkRNK #!J
	TITLE #AA
	SEARCH MACSYM#`,MONSYM
	SALL
	GGLOBS
	SALL
	kS 6kSN	  "kW\@ \kW\Y ^k^~) Lo"fPQ o?N LLf	IFNB <A>L!,<	UWORD [ASCIZ \L@A\]
>
	IFB <AL`>,<	UWORD [0]	
>
UWORD [0]	
>q0 'yJ?IFN XARCSW,IFN XARCSWq<{P qd@Q xqY P%8q\P .q\P q\}P  qexY

aX>

	XLIST
	.XCREF

DEFIEXT (SYM)<
	RP SYM,<
	IFNDE<EXTERN SYM
		SUPPRE SYM>>> 

   STAT,<
QE@XT <SETUS>
   >;`STAT

QEXT <SJLEN,JTAB,JLEN,CBLO CK,TRAPU,TRAPD,SA@VSP,SAVCM,RESCM>
QEXT <CMDOUT,CLRALL,CLRBIT,JSBDEF ,SETALL,SETBIT,SE@TTRP,COPBTS,RESAC`S,SAVACS>
QEXT <SKPON,TRPPSI,JTAB ,SKPNAZ,TRPOKF,TS@TOPF,MRKTRP,GETLP`C,FOWNER,TFILEF,TOPENF>
QEXT <SND PDB,MYPID,QSRPID,@MDAPID>
QEXT <GE`TPID,GQPID,QUASND,SNDMSG,SNDMS1,IP CRCV,GQSRPD>
QEX@T <IPCON,IPCOFF,I`PCINT,CHECKM,IPCHEK,NOWPTR,IPCRCF, IPCWTF,IPCALF,IPC@FND>
QEXT <UNIQU`E,IPCTBL,IPCAGE,IPCFGS,IPCCTL,INFP ID,OLDIDX,IPCFLM>@
QEXT <DGFRKS,SE`TENT,SETGO,GETENT,WAITF>
QEXT <CI N0>
QEXT <FLJFNS@>
QEXT <DOECHO>
QEXT <.MAKE,.TECO,.TV>
QEXT <SPE EDA,SYSDWN,PRACCT@,CKSTAR,GETDVN>
`QEXT <SBLOCK,FBLOCK>
QEXT <%%LVER ,%%RVER>
QEXT <R@JWARN,REWIND,CJDE`V,OPNMAG>
QEXT <ABKCNT,INFTRM>
Q EXT <%GETER,DGETE@R,.EDIT,.EDITC,.E`DITP,CSVCC,EDSVB,TECSVB,CMAGN>
QE XT <TOUT,TOUTD,TB@OUT,TSOUT0,ASOUT,`USRCNT>
QEXT <DWNTYP,SNBLKS,SSIZE ,$CHFDB,USRNAM,DF@USER,TTYUSR>
QEX`T <.P,.PP,COMAND,COMSIX,PRGCEL,CIP F,CLF,MPENDF,NACL@,GLOADS,CLSON,BEG`INP,SVPRMT,ECHCMD>
QEXT <HELPSN>
QEXT <GETDIR,REL@DIR,GETDRP,DIRINI`>
QEXT <.STRST,VERPNT,%VERSI>
QE XT <.VERSI,EXECV,@CMDINI,MONSTA,SUB`STA,.JOBST,.RUNST,.MEMST,.DSKST,.E RRST,.FILST,.INFO@R,.PISTA>
QEXT <`.PUSH,.POP,.UNATT ,.INDIR>
QEXT <I  NFER,UNMDIR,$CONT @I,$LPTST,GETLPT,F `INLPT,$REENT>
QE!XT <$START,..CONT! ,..REEN>
QEXT <M!@FOUT,MFSET,MFINP,!`MFINP0>
QEXT <SI"XPRT,.AVAIL,$OPEN" 7,$OPENF,$ERSTR,O"@PNERR,ERRFIN,CRIF"`,LM,%MESS,PNTMES>#
QEXT <LGORET>
# QEXT <CFGBLK,CFGS#@IZ>
QEXT <BEFORE#`,DEVLUP,ECFORK,ED$EFIN,EOLRET,EPRIN$ T,ESET,.SPEAK,ECE$@ASE,MESMES>
QEXT$` <STAYF,ERESET,TR%YGTJ,DOGET,TRYGTS% ,TRYGTO,TRGTV1,WH%@Y,$GET2,$GET0,CRS%`CAN,$GTFDB>
QEXT& <..STRT,RSPTR,.A& CCOU,.ADVIS,.APPE&@N,.ASSIG,.ATTAC,.&`BREAK>
QEXT <.CH'ANG,.CLEAR,.CLOSE' ,.CLUST,.REMAR,.C'@ONNE,.CONTI,.COPY'`,.CREAT>
QEXT <.(ACCES,.ENDAC>
QE( XT <.DAYTI,.DDT,.(@DEASS,.DEFIN,.DEL(`ET,.DETAC>
QEXT )<.DIREC,.TDIRE,.F) DIRE,.VDIRE,.DISA)@B,.DISMO>
QEXT <)`.EDDT,.ENABL,.EXP*UN,.FORK>
QEXT <* .GET,.HELP,.HOST,*@.SEND>
QEXT <.LN*`LIS,.LOGIN,GSR,SS+R,.LOGOU>
QEXT <+ .MERGE,.MOUNT,.PR+@INT,.PROTE,.PRINT+`,.SUBMI,.IPR,.IBR,,.IRR,.IMR,.MODIF, ,.CANCE>
QEXT <.,@PLOT,.SDP,.SDPL,.,`SNDPL,.SDS,.SNDCS-,.SNDS,.SNDP,.SDC- ,.SDT,.SNDCP,.SND-@TP>
QEXT <.SDCS>-`
QEXT <$DEF>
QE.XT <.IDC,.IDPL,.I. DCS,.IDP,.IDPRT,..@IDS,.IDALL,.IDPRG.`,.IDTAK>
QEXT <./PUNCH>
QEXT <.QU/ IT,DOATI>
QEXT </@.R,.RECEI,.REENT,/`.REFUS,.RENAM,.RE0SET,.RUN>
QEXT <0 .CSAVE,.SAVE,.SET0@,.START>
QEXT <.0`TAKE,.TALK,.TYPE,1.TRANS,TYPE1,.UND1 EL,.UNMOU>
QEXT 1@<.JWAT,IJWSEQ,JWP1`AG,JWPAGL,IJWPSI,2WJPTAB,JFNGON,XRM2 BLK,EXCBLK,XRMPNT2@>
QEXT <ASTTJ,CH2`KDAL,CMDIN2,CMDIN34,CIN3,EXEC,JOBRE3 N,JOBSA,JOBSYM,JO3@BDDT>
QEXT <XEND3`,.NPAGS,EVLEN>
Q4EXT <LEVTAB,REE,S4 UPER,.JOBSY,.TEXE4@C>
QEXT <READY,R4`EADY2,FIELDX,FLDS5KP,CFIELD,GETTER,5 REPARS,SETT20,SAV5@T20,SAVNAM,SETMOD5`,GETMOD,SETPRG>
6QEXT <%KEYW,GETKE6 Y>
QEXT <PRVCK>
QEXT <%NOI>
QEX6`T <%SBCOM>
QEXT 7<CONF,FCONF,FCONF7 A>
QEXT <SPRTR,B7@ITS>
QEXT <CIORE7`L,SETIOF,TINPF,NO8TIO>
QEXT <%$TYP8 E,$CTYPE>
QEXT <8@COUTFN,CSAVFN,SPE8`CFN,CPFN,CPFNA>
9QEXT <.INFG,INFGN9 S,TYPFLS,$INFGX,D9@IRARG>
QEXT <TYP9`IF,TYPOK,GNFIL,NX:FILE>
QEXT <DEVN: ,STRN,CONST,INDT,:@LBLSKP>
QEXT <DI:`RNAM,DIRNMX,CURNA;M,CURNMS,USRNMS,S; TPDIR,STPUSR>
QE;@XT <ATSAVR,TOCT,O;`CTCOM,OCTLST>
QE<XT <BUFFF,GETBUF,< RETMEM,GETMEM,RET<@BUF,STREM,XFRINI,<`FREINI,BCOUNT,GET=NOD,CSBUFP,DICT,X= DICT,BUFFS,XBUFFS=@,GTBUFX,GETSIX,GE=`TSXB,GETASC,FIXPT>>
QEXT <NOECHO,D> OECHO,LTTYMD,FIXI>@O,RTTYMD>
QEXT <>`%PRINT>
QEXT <CO?UTC>
QEXT <MAPPF? ,FREL,RANDOM,TYPE?@XP,TYPADD,GINSTR,?`PINST,RINST,EVAL>@
QEXT <SYMF,SYMO@ KF,SOFF,SYMBA,SYM@@EA,SYMBEG,SYMEND,@`LASTP,NSYMS,SYMBFA>
QEXT <DBGEXC>
QEXT <LOADF>
QEA@XT <STOREF>
QEXTA` <%GTB>
QEXT <DIBNG,CERR,NIYE,NIM,B SCREWUP,JERR,JERRB@C,CJERR,JERRE,CJEB`RRE>
QEXT <%TRAPC>
QEXT <AUTOLO>
QEXT <%ERR,%$ERRC@,%.$ERR >
QEXT <C`RERET>
QEXT <%ETDYPE>
QEXT <RLJFND S,UNMAP,JFNSTK,CLD@ZFFF,JFNRLA,GTJFSD`,RJFN,PION,PIOFF,EACTRCF,INTDF,IINTE DF>
QEXT <GNJFS,E@FLOAT>
QEXT <CSZE`1,CSZ2,CSZ4>
QEXFT <CMDACS,REPARA>F 
QEXT <CIJFN,COJF@FN,JBUFP,.JBUFP,.F`J,JBUF,CJFN1,CJFNG2>
QEXT <TAKLEN,G SAVTAK,TAKCUR,TAKG@DEF,TAKJFN,TAKBTSG`,PUSHIO,ALONOI,ECHHNOI>
QEXT <INIFH H1,INIFH2>
QEXT H@<DPPT,DPSTK,DSPT,H`DSSTK,DCPT,DCSTK,IDPLPT,DPLSTK,DTPTI ,DTSTK>
QEXT <EOI@FDSP,EOFJER,DATDSI`P,ILIDSP>
QEXT <JCIDLYF,PAXLFL,CCFJ LAG>
QEXT <CINITJ@F,LOGINI,SYSMF,LOJ`GDAT,FILINI,TAKEIKN,TAKSYS>
QEXT <K PRVENF,MESMSF,CUSK@RNO,LIDNO,JOBNO>
QEXT <EXDPF,EXDPLLC,FSTLGN>
QEXT L <FORK,RFORK,DDTFLL@G,NPAGE,EFORK,BATL`CHF,PROG,SNDPRG,SMDPROG,GETFB1,ANNKM EP,INDQUS>
QEXT M@<STRTIM,TTYACF,PTM`TYAC,ALOST,CJPTIMN>
QEXT <ITTYMD,PN TTYMD,ETTYMD>
QEN@XT <CERET>
QEXT N`<CTUUO>
QEXT <SSOTACK>
QEXT <ERCOO D>
QEXT <USERNO,O@MCOJFN,OUTDSG,TYPO`GRP>
QEXT <DEXTBPL>
QEXT <PD,INISP TK,PDLOV,CBUF,ATMP@BUF,CBUFE,CJFNBK,P`XTNNUM,XTNCNT,ECHQPTR,ECHCNT,CTRPTRQ >
QEXT <TEXTIC,TQ@EXTID,TEXTIA>
QEQ`XT <PPATS,PPAT,PARGEN>
QEXT <LEV1PR C,LEV2PC,LEV3PC,PR@CTAB>
;QEXT <$CTR`RLA,$CTRLR,$CTRLVS,$CTRLW,$CTRLX,$ES OL,$DASH,$CONT,$RS@UB>
QEXT <$FORMFS`,$LF,$CONT,$TDENST>
QEXT <USEPSI,IT LIPSI,EOFPSI,DATPT@SI,ICLEAR,CCPSI,TT`LMPSI,ALOPSI,COBPUSI>
QEXT <ADVFLGU ,SAVPGM,FIXON,ADVU@TNM,ADVMES,BREAK1U`,ESCPSI,JFNSIL,QTVAPSI,QTADSP>
QEXV T <CUUO>
QEXT <EV@RRET,NESC>
QEXT V`<FSTAT>
QEXT <FSWTOUT>
QEXT <ERRMW F>
QEXT <CSBUF>
QEXT <%EDAYT>
QW`EXT <ACCT,PASSX,PXASWD,PASLIN,PASFLX D>
QEXT <CHRTBL>X@
QEXT <JOBOPC>
X`QEXT <.BACKS,.SKIYP,.EOF,.REWIN,.UNY LOA>
QEXT <CSCANY@>
QEXT <.CREF,.EY`XECU,.COMPI,.DEBUZG,.LOAD,OCCLF,GOTZ O2,CLOPAT,DOCCL,DZ@OCC1,DOCC2>
QEXTZ` <CSVC>
QEXT <MA[LCHK,MALWEN,MINT0[ ,MWATCF,MWATCH,MA[@ILF> ;MAIL WATCH
QEXT <SUBBP>
QE\XT <NETRDY>				;A\ RPANET
QEXT <QTI\@MES,SNAMES,SYSVER\`,JOBRT,TTYJOB,NET]RDY>
QEXT <GETAM] T,CHKPTY>
QEXT <]@LRFSTS>
QEXT <.U]`SEND>
QEXT <EDTF^IL,EDTINF,EDTCRE,^ EDTOUF,EDTCFM>
^@
;TERMINAL-RELATE^`D GLOBALS

QEXT_ <$TERMI,$TTYP,$T_ ERNO,TTYPTB,BLNKT_@B,NTTYPS,.TTY3>
_`QEXT <.T33,.T35,.`T37,.TI,.FLAG,.FO` RMF,.FULLD,.HALFD`@,TTYHLP,.IMMED,.I``NDIC>
QEXT <.LA1a20,.LA30,.LA36,.La A38,PLENTH,.LINE,[email protected],.TERNO,.PAa`GE,.PAUSE,.RAISE>b
QEXT <.SPEED,.Db FLT,.TABS,.TRMNT,[email protected],.VK100,.VTb`05,.VT100,.VT102>c
QEXT <.VT125,.Vc T131,.VT200,.VT50c@,.VT52,.VTH19,.LWc`IDTH,TTYNTY,.TTH1d9>
QEXT <RTTFLG,d RTFLG1,.INHIB>
d@

;dCRJOB/PRARG

QEXT <CRPRA,..eSTCR,MESS>

; Ae rchive system

e@QEXT <.ARCHI,CANAe`RC,.DISCA,.RETRI,fFTDBLK,ARCBLK>
f 
; Extended featuf@res

QEXT <.RDIf`RE,.WDIRE,.QD,ALRgCHK,MALCHK,IITPSIg >
QEXT <TYPFIN,Tg@PCCOC,TPTTYP,TYPIg`NG,SPRSED,BYTSIZ,hAUTOF,IITSET>
QEh XT <MALBUF,MWATATh@,MWATCT,MWATDR,MWh`ATWR,MWATN,MWATN0i,ALRTIM,ALRTMS>
i QEXT <RUNFK,IDFORi@K,EDFORK,FRKTAB,Si`LFTAB,FRKNMS,KEPNjMS,FRKDEF,SFKNAM>j 
QEXT <.FREEZ,.Uj@NKEE,.NAME,.KEEP,j`UTTYMD,RFTYMD,FTTkYMD,REASON>
QEXTk  <RSTFK,REPH,STEPk@H,REPH1,.ERUN,.BLk`ANK,BLANK1,KEFORKl,GETILI,DWNPNT>
l QEXT <.DO,.KMIC,Ml@ICFRK,PAGEMI,MICFl`PG,MICPAG,GETPAG,mUSEPSM>
QEXT <.Gm OTO,.BACKTO,.ERROm@R,.IF,.NOERROR,.Om`PERATOR,.NOOPERATnOR>
QEXT <ADDNAMn ,.NOLM,.KFRKC>
Qn@EXT <CCKEEP>

;n`Programmable Commoand Language

Qo EXT <CTBL1,PCCURCo@,PCFLAG,PCTXFR,PCo`SFRE,PCLSTF,PCVVApL>
QEXT <PCFLDB,p .DECLA,.UNDEC,PCMp@XCT,PCMPOP,PCMPOSp`,PCMPRS>
QEXT <PqCINIT,PCCCPL,PCIDq FV,PCIUDF,PCIRUN,q@PCEXCT,SUBNAM>
Qq`EXT <PCONCE>	;[BCrM] once only flagr  for PRSINI
QEXTr@ <PCMPSI,PCMPSO,Pr`CIPSO,PCPOTP,PCPRsGR,WFORKX,FFORKX,s .PCLOB>
QEXT <PCs@IINF,SINVAR,SSTVAs`R,PCISGS,.PCLVR,PtCIDGS,PCICLP>
QEt XT <PCCWKE,PCRPASt@,PCLDCO,PCIWEV,$St`DEF,PCIGEV>
QEXTu <CIN2,PCIDFS,PCIu FGS,WAITA,PCLPMT>u@
QEXT <PCIPSV,PCu`FLDP,PCLGST,CUSTMvF,PCWAIT,READ1>
v QEXT <PCRNFK,PCFOv@RK,PCLNAM,PCCIPF,v`NPCLIO,.IDDCL,ORIwFLG>
QEXT <.PREXw C,.PRENV>
QEXT <w@CHNS,CHNTAB,CM1DBw`,CM1DBE,CM1XL,CTBxL2>
QEXT <TDEFAUx ,$SETO,$SETN,$SFIx@LE,$SFNO>
QEXT <x`$RSFD,$SVFD,$INFOy>
QEXT <CRDSET,Iy VOL,NTRAP,SETSRM,y@SPLINF,SPLSET>
Qy`EXT <SYSINF,TAPINzF,TRMPNT,.ADBRK,.z ADDRE,.ALERT>
QEz@XT <.ALRST,.ARSTSz`,.AUTOM,.CIDLY,.C{TRLC,.DEFAU>
QEX{ T <.DEPOS,.ENTRY,{@.EXAMI,.EXECM,.FE{`XP,.FILEV>
QEXT |<.FLINX,.FLONX,.F| PROH,.FRESI,.IARP|@A,.IDECN>
QEXT <|`.INVIS,.LOCAT,.MA}LST,.MWATC,.NODEF} ,.NOTIM>
QEXT <.}@OFL,.PAC,.PAXL,.P}`RESE,.SDIR,.SETNO~,.SFILE>
QEXT <.~ SFNO,.SISTA,.TAPE~@,.TERMI,.TIME,.TK~`D>
QEXT <.TRAP,.TYPEO,.VISIB>
QE XT <.EPHM,.FRKST,@.SUPER,SAVSWI,.CT`RAC,.ORIGI,.SDDCL>
QEXT <.INDEF,. SEDEF,.STMLM,$SET@0>
QEXT <.SAVT,C`MDCHT,CMDCHR>
QEXT <MSEPSI>
QEXT  <RESET0,.RESE2,.@RESS1,.RESST>
QE`XT <$FRKNM,$NODEF>

;GLOBAL SYMB OLS FOR COMMAND E@DITOR

QEXT <CM`DHST,FTCE,IMETKY,INFOCE>
QEXT <.M ETA,.NOMETA>
QEX@T <SETNOF,TERMNL>`

QEXT <CIN42,HSTCNT,HSTNUM,HSTP TR,.REDO,.AGAIN,.@INHST,.RECAL,.SEH`ST>

QEXT <CEBPTR,CEDIT,CSAVE,CE SAVE,CEBFEN,CEFLA@G,CETSAV,INSMOD,.`CESET>
QEXT <CEMETA,CEFFL,CE1ST,C ELAST,CECNT,.CEDM@O,NOPRMT,CETTMD,C`EVMSD>
QEXT <CEKBUF,CEPSIC,PCLMID ,.CEPSI,.SCEIC,.S@NCEI,SVSEDC,SVSED`P,CEPBUF>

	.CREF
	LIST
   RqJn3P%4qJn

P -qRt@ (9JCIFN XTNDSWIFN XTNDSWqRtL{P q` 9KW
OPDEF U99A [<%%NUUO>B12]
9X%%NUUO==%%NUUO+1
DEFINE AX(HELP):
<	IFNB <HELP>,<:8	UA [ASCIZ \HELP:X\]
>
	IFB <HELP:x>,<	UA [0]	
>
>
A [0]	
>
sd@P't@ 	+y 4K!
	U$ERR [ASCIZ @A@]RR [
v]7P  \k {1O]
	$FKFLAG{Q==<Z 0>		
	A (<B>,0C,D)A (<]7 |IOf
	$FKHAN=|i=<Z 1>		
	A (<B>,1C,D)A (<^(2 }1Om
	$FKRADD}Q==<Z 2>		
	A (<B>,2C,D)A (<^)9 Oz
	$FKRESP!==<Z 4>		
	A (<B>,4C,D)A (<^+2 ~Os
	$FKRMES~9==<Z 3>		
	A (<B>,3C,D)A (<.,W 4YK%
	U.$ERR [ASCIZ @A@]RR &

P V
P V
xP VP VP lzP 
l9VP l;0P lI;P lJ9P lj6P lkP lkP mTP mTP m9<P mkrP mktP mm6P mm<P 
myTPnzPJn=tPKnH2PKnKuPR	nNP}n\9P 	n\yP S@P \P L\YP M)WP MI7P N=P \YP ]h6P ]}wP ^