PDP-10 Archive: t20src/execde.unv from BB-L014Z-BM

Trailing-Edge - PDP-10 Archives - BB-L014Z-BM_1990 - t20src/execde.unv

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

x
,Up@P B@ CN YIER	IFNB <A>Yi,<	UACCT [ASCIZ \ZA\]
>
	IFB <AZ(>,<	UACCT [0]	
>
UACCT [0]	
>C5IQ C&. a9F	IFNB <A>aY,<	UADDR [ASCIZ \axA\]
>
	IFB <Ab>,<	UADDR [0]	
>
UADDR [0]	
>C4:P

C4\qP C3%PP
	UALTYP [ASCIZ @A@]YP CRmI7P zCSR #B
	JSP CX,.SAVT
	JSP CX,CW%{P ,CW%{	P CW%{	P D@ Ee@P E'%[P ENf: 61C9	IFNB <A>6Q,<	UBSLSH [ASCIZ 6p\A\]
>
	IFB <7A>,<	UBSLSH [0]	
>
BSLSH [0]	C$DR$:EV2P&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"(1P G". VyE=	IFNB <A>W,<	UCHAR [ASCIZ \W8A\]
>
	IFB <AWX>,<	UCHAR [0]	
>
UCHAR [0]	
>G#:P G#m6P ?G6

(` y	GH.CMABC+SBLOCK.CMABC+SBLG6

, xIGD.CMABP+SBLOCK.CMABP+SBLG6

=Q  G6l vIG4.CMBFP+SBLOCK.CMBFP+SBLG6*` |	G`.CMBRK+FBLOCK.CMBRK+FBLG6k Q G6X Q `G6m wIG<.CMCNT+SBLOCK.CMCNT+SBLG6$ zIGT.CMDAT+FBLOCK.CMDAT+FBLG6$Y@ {IG\.CMDEF+FBLOCK.CMDEF+FBLG6$]@Q @G6%@Q  G6.,\ GD?	IFNB <A>G9,<	UCMERR [ASCIZ GX\A\]
>
	IFB <GxA>,<	UCMERR [0]	
>
CMERR`[0]	G65IQ@`G65I`@nQFu.CMFLG+SBLOCK.CMFLG+SBLG65MQCG65l z	GP.CMFNP+FBLOCK.CMFNP+FBLG6=(@ yIGL.CMGJB+SBLOCK.CMGJB+SBLG6EL {	GX.CMHLP+FBLOCK.CMHLP+FBLG6Lj Q G6Mh` x	G@.CMINC+SBLOCK.CMINC+SBLG6Mj Q G6Mz@ nFq.CMIOJ+SBLOCK.CMIOJ+SBLG6\^ P G6uyQ @G6uz Q @G6v[ Q  G6v^Q G6|j Q  G7L@ w	G8.CMPTR+SBLOCK.CMPTR+SBLG7=Q  G7N  v	G0.CMRTY+SBLOCK.CMRTY+SBLG7z Q `G7$Q G7%z`Q `G7'
>
	IFB <UA>,<	UCOLON [0]	
>
COLON [0]		D~	IFNB <A>O),<	UCOMMA [ASCIZ OH\A\]
>
	IFB <OhA>,<	UCOMMA [0]	
>
COMMA [0]	BX
       CALL CONF      CG@,P G@,;xP G@-	6P G@.<P G@.N8P GCN.: iA2
	LOC	0
		ASCIZ /
COPYRIG(HT (c) DIGITAL EQHUIPMENT CORPORATIhON, 1976, 1990.
ALL RIGHTS RESERV(ED.
/				
	RELOC
/				
	RELOGHP GK <yCm	IFNB <A>=,<	UCRR [ASCIZ \=8A\]
>
	IFB <A>=X,<	UCRR [0]	
>
	UCRR [0]	
>
GRI7P }GRyP 
GRd9HP @GRd9IP GSH`P GSI P GSI< :)CX	IFNB <A>:I,<	UCTRLE [ASCIZ :h\A\]
>
	IFB <;A>,<	UCTRLE [0]	
>
CTRLE [0]	N@P I 7YCC	IFNB <A>7y,<	UDASH [ASCIZ \8A\]
>
	IFB <A88>,<	UDASH [0]	
>
UDASH [0]	
>I$*:Q @I:=P I$lzP'hI%|SP'pI&>6P'pI ;QCc	IFNB <A>;q,<	UDEC [ASCIZ \<A\]
>
	IFB <A><0,<	UDEC [0]	
>
	UDEC [0]	
>
I63 |IGz	A==:PPTR|i		;PCL ALLOCATE T}HIS PAGE AT CURRE}(NT PAGE POINTER
}H	B==PPTR_-9	;DEF}hINE PAGE NUMBER
~	PPTR==PPTR+C*10~(00	;STEP TO NEXT ~HPAGE SLOT
	IFG P~hPTR-DDTFST,<PRINTX ?Exec page buff(ers overlapping DDT
>rlapping DI6= c((
	A==<-1cHB<C>+1B<C-D>> ch
	IF1,<IFDEF %Ad,<PRINTX ?A ALREd(ADY DEFINED>>
	DdHEFINE %A (OP,AC,dhY,MSK)<
	$A==<Ze B>		
	OP (<AC>,B'Y,MSK)><AC>I7 HADJ	IFNB <A>Ha,<	UDEF [ASCIZ \IA\]
>
	IFB <A>I ,<	UDEF [0]	
>
	UDEF [0]	
>
I7 EqD5	IFNB <A>F,<	UDEV [ASCIZ \F0A\]
>
	IFB <A>FP,<	UDEV [0]	
>
	UDEV [0]	
>
IFN UQE3	IFNB <A>Uq,<	UDEXT [ASCIZ \VA\]
>
	IFB <AV0>,<	UDEXT [0]	
>
UDEXT [0]	
>IYVP I'> MaDt	IFNB <A>N,<	UDIRS [ASCIZ \N A\]
>
	IFB <AN@>,<	UDIRS [0]	
>
UDIRS [0]	
>I' L9Di	IFNB <A>LY,<	UDIR [ASCIZ \LxA\]
>
	IFB <A>M,<	UDIR [0]	
>
	UDIR [0]	
>
I?' QYE	IFNB <A>Qy,<	UDOT [ASCIZ \RA\]
>
	IFB <A>R8,<	UDOT [0]	
>
	UDOT [0]	
>
IR

:P IRNn ZqE]	IFNB <A>[,<	UDTIV [ASCIZ \[0A\]
>
	IFB <A[P>,<	UDTIV [0]	
>
UDTIV [0]	
>IS ^iE|	IFNB <A>_	,<	UDTP [ASCIZ \_(A\]
>
	IFB <A>_H,<	UDTP [0]	
>
	UDTP [0]	
>
IS `F	IFNB <A>`1,<	UDTR [ASCIZ \`PA\]
>
	IFB <A>`p,<	UDTR [0]	
>
	UDTR [0]	
>
IS@ @qD	IFNB <A>A,<	UDT [ASCIZ \AA0\]
>
	IFB <A>,<	UDT [0]	
>
K Q K60  BIFN EMCSSWIFN EMCSSWK6<{P KK|@ &AB6
       U&aERR [ASCIZ @A@]RR [ASCIZ @A@]KKPQ KSN	  *BP
	UETYPE [ASCIZ A]PE Kc&:=P LDP"LEP LHP!LLP @LPP  LTP LXP$L\P L`P LdP @M
eI7P M@P 'M$,\YP'M&d<YP 6M&d^ 9CN	IFNB <A>9!,<	UFILE [ASCIZ \9@A\]
>
	IFB <A9`>,<	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< \Eg	IFNB <A>\9,<	UFNODE [ASCIZ \X\A\]
>
	IFB <\xA>,<	UFNODE [0]	
>
FNODE [0]	,PP%XMJ,\P 6MJ.@P MJ.:=P pO&8; !BASCIZ \AEXE\ASCIZ \AEOexY iG~
   IF2,<
	XGLOBS>IF2,<O3F8t iAH
	SEARCH 	QSRMAC,GLXMAC,ORNMACC,GLXMAC,ORNO?I3 IAN
	OPDEF iA [<B>]
	INTERN AB>]
	INTERNOJ~\P ON~	 )AT
	OPDEF IA [B]
	INTERN A
	.NODDT A OOI7P OR yAX
	CALL [		MOVEI A,A	
		CALLRET %GTB]	
AOR%K@PyD	IFNB <A>B,<	UHELP [ASCIZ \B8A\]
>
	IFB <ABX>,<	UHELP [0]	
>
UHELP [0]	
>Q&=

P ?QO%X<P

S,(: "AB	SKIPN BATCHF
	JRST A
St(: "B	SKIPE BATCHF
	JRST A
SMm@PS'$:PSB,P (SB-3P% SB:P

SBlP&HSBX<P SB|P ,SB}YP%0SP gQF=

`
	T<A>,B,C,D!CM%INVPfF90Ge@SS0 hAFG
	TV <A>hq,B,C,D!CM%INVB,C,D!CM%INVPiF@0M%INVU
d[@P U,kP  U^+@ $aB&
	ERCAL RJWARN
	ERCAL RU^.	rP yU^.	yP .U_vP WNy $Y<-3P Y0 #AB	MOVX A,B
	MOVX A,Y+y '!B:
	ULERRO [ASCIZ@A@]ROYP	Y`PCZ \PpA\]
>
	IFB <AQ>,<	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 ]<` ApIFN NEWFSWIFN NEWFSW]<l{P ]FL`P ]<`P

]6)yP  ]7<P ]>&:=P ]>-Xy  ABIFE EMCSSWIFE EMCSSW]>N9  *ABT
	UNOI [ASCIZ @A@]OI [A]>dpQ ]>t]s AAtIFE NEWFSWIFE NEWFSW]?RQ ]?Y AA|IFE SEDSW~IFE SEDSW]?FKR AAlIFE XTNDSWIFE XTNDSW]CPP ]Nn	yP ]S'2P _' C!D 	IFNB <A>CA,<	UOCT [ASCIZ \C`A\]
>
	IFB <A>D,<	UOCT [0]	
>
	UOCT [0]	
>
a:.|RQ@PB5IQ`aCPQHPWh6QKb,0`@$`D@$`H@`L@`P@H`T@a49VQa6Q  a6LQQ @a<+P a<,xP a<,zP$@ad:P

TQ  aH.2Q aH.6Q aH.)P"aH.*P'aH.+6Q  aH.+RQ aJMm 4aJd[@P  aJ}\ )ABL
	UPROMPT [ASCIZ @A@]PTaRI7P }aS:P bD@ bH@ bL@ cNd[@P @cV~I< X!EH	IFNB <A>XA,<	UQUOTE [ASCIZ X`\A\]
>
	IFB <YA>,<	UQUOTE [0]	
>
QUOTE [0]	e&:x IA\JRST RSKPZJRST RSKPe2N=P&He::=P e:YVP de:|I< ]AEr	IFNB <A>]a,<	URNODE [ASCIZ ^\A\]
>
	IFB <^ A>,<	URNODE [0]	
>
RNODE [0]	
e;P g  AxIFN SEDSWzIFN SEDSWg&=`P g$I3P gYVP g2: 5	C.	IFNB <A>5),<	USLASH [ASCIZ 5H\A\]
>
	IFB <5hA>,<	USLASH [0]	
>
SLASH [0]	YRP  gRYUP ~gRYVP ~gR[SP gR\yP gR	lWP 0gR. >!Cx	IFNB <A>>A,<	USTAR [ASCIZ \>`A\]
>
	IFB <A?>,<	USTAR [0]	
>
USTAR [0]	
>gR@P ,gRY@P%2gS:=P tgS DID*	IFNB <A>Di,<	USTR [ASCIZ \EA\]
>
	IFB <A>E(,<	USTR [0]	
>
	USTR [0]	
>
gV;v %!B0	IFB <B>,%A<
		USUBCO [	A
				0]>
	IFNB <&B>,<
		USUBCO [	A
				B]>
g^N:=P ggH6P h cF-

P
	..BITS=c1=0
	IFNB <B>,<.cP.BITS==B>
	IFB cp<C>,<$FOO==.A>
        IFNB <Cd0>,<$FOO==C>
IFEdP D,<XWD [ASCIZ @dpA@],[..BITS!$FOOe]>
IFN D,<XWD [e0D!CM%FW
		ASCIZeP @A@],[..BITS!$FOO]>
..BITS!$FPeC&0R$ki i1FS
IFNB <BiQ>,<%%X==B>
IFB ip<B>,<%%X==.A>
j	[	CM%INV!CM%ABR!j0CM%FW
		ASCIZ /A/],,%%X
IZ /iP iI  jqF]
	Z			;FIkLLED IN BY NEXT Tk0END
	..T==.			;UkPSED BY NEXT TENDED BY NEXT TENDi%I7P i]K\P i
e<}P tit@ lFk
       .l1.U==.
        RElPLOC ..T-1
	..U-.lp.T,,..U-..T	;FILLm IN FIRST WORD OFm0 TABLE
        RELOC ..U      Ri&l^ SE	IFNB <A>S!,<	UTIME [ASCIZ \S@A\]
>
	IFB <AS`>,<	UTIME [0]	
>
UTIME [0]	
>i. @i.,;sQ  i/$\SQ iJ ,Bb
	UTRAP [,!	A
		ASCIZ @B@]
		ASCIZ @B@iK:P iRNK iA:
	CPYRYT
	TITLE A
	SEAR(CH MACSYM,MONSYM
	SALL
	GGLOBSiS<;qP iS<mzP iS=-P iS=[rP iS=\uP iS>VP iS>;VP iX fF7
IFB <C>f1,	T <A:>,B,.A,fPD

IFNB <C>,	fpT <A:>,B,C,D
A:>,B,C,D
 U)TYPE[ASCIZ`A]PE[ASCIZA]j.,@.j8$\Y8k=tk$L@kLt>kD@pkl\YXk}Kwlk}[0dkkHk&+WDk: @k,0Fk,`Zk.` Vk/
XX SLASH/!	
XX BSLSH	
XX /@DASH		
XX FILE		/`
XX CTRLE	
XX D0EC		
XX CRR		
X0 X STAR		
XX WORD0@		
XX DT		
XX H0`ELP		
XX OCT		
1XX STR		
XX DEV	1 	
XX CMERR	
XX 1@DEF		
XX`USER		
XX USERS	
XX DI2R		
XX DIRS		
X2 X COMMA	
XX LINE2@		
XX DOT		
XX 2`TIME		
XX COLON	3
XX DEXT		
XX C3 HAR		
XX@QUOTE	
XX ACCT		
XX DT3`IV		
XX FNODE	
4XX RNODE	
XX DTP4 		
XX DTR		
XX ADDR		
		
XX k:} &k>@ RkC{8 (kG-} rkJuy zkN.,| KD_	IFNB <A>K1,<	UUSERS [ASCIZ KP\A\]
>
	IFB <KpA>,<	UUSERS [0]	
>
USERS [0]	iDT	IFNB <A>J	,<	UUSER [ASCIZ \J(A\]
>
	IFB <AJH>,<	UUSER [0]	
>
UUSER [0]	
>kNdt <kO$@ JkO&  TkO,(w :kRMY  jkRNK iAB
	TITLE 	A
	SEARCH MACSYM(,MONSYM
	SALL
	GGLOBS
	SALL
	kS 6kSN	  "kW\@ \kW\Y ^k^~) Lo"fPQ o2&3P&Ho?N ?ID	IFNB <A>?i,<	UWORD [ASCIZ \@A\]
>
	IFB <A@(>,<	UWORD [0]	
>
UWORD [0]	
>q0 AAdIFN XARCSW,IFN XARCSWq<{P qd@Q xqY P%8q\P .q\P q\}P  qexY )PN

	XLIST!
	.XCREF

DEFI@NE QEXT (SYM)<
	`IRP SYM,<
	IFNDEF SYM,<EXTERN SYM 
		SUPPRE SYM>>>@

QEXT <SJ`LEN,JTAB,JLEN,CBLOCK,TRAPU,TRAPD,S AVSP,SAVCM,RESCM>@
QEXT <CMDOUT,CL`RALL,CLRBIT,JSBDEF,SETALL,SETBIT,S ETTRP,COPBTS,RESA@CS,SAVACS>
QEXT `<SKPON,TRPPSI,JTAB,SKPNAZ,TRPOKF,T STOPF,MRKTRP,GETL@PC,FOWNER,TFILEF,`TOPENF>
QEXT <SNDPDB,MYPID,QSRPID ,MDAPID,NEBPID> ;@[7.1232]
QEXT <G`ETPID,GQPID,QUASND,SNDMSG,SNDMS1,I PCRCV,GQSRPD>
QE@XT <IPCON,IPCOFF,`IPCINT,CHECKM,IPCHEK,NOWPTR,IPCRCF ,IPCWTF,IPCALF,IP@CFND>
QEXT <UNIQ`UE,IPCTBL,IPCAGE,	IPCFGS,IPCCTL,INF	 PID,OLDIDX,IPCFLM	@>
QEXT <DGFRKS,R	`ELHAN,SETENT,SETG
O,GETENT,WAITF> ;
 [3063]
QEXT <CIN
@0,SECFIL,SETPAS>	
`;[4412]
QEXT <.NODEL,.PRMNT,.SVBA K,.TMPRY> ;[4448]@

QEXT <FLJFNS>`
QEXT <DOECHO>

QEXT <.MAKE,.TECO

 ,.TV>
QEXT <SPEE

@DA,SYSDWN,PRACCT,

`CKSTAR,GETDVN>
QXT <SBLOCK,FBLOC
QEXTV<%%LVER,
QEXTN<RJIND,CJDEV,OPNMAG>
QEXT <A BKCNT,INFTRM>
QE@XT <%GETER,DGETER`,.EDIT,.EDITC,.EDITP,CSVCC,EDSVB,T ECSVB,CMAGN>
QEX@T <TOUT,TOUTD,TBO`UT,TSOUT0,ASOUT,USRCNT>
QEXT <DWN TYP,SNBLKS,SSIZE,@$CHFDB,USRNAM,DFU`SER,TTYUSR>
QEXT <.P,.PP,COMAND,C OMSIX,PRGCEL,CIPF@,CLF,MPENDF,NACL,`GLOADS,CLSON,BEGINP,SVPRMT,ECHCMD> 
QEXT <HELPSN>
@QEXT <GETDIR,RELD`IR,GETDRP,DIRINI>
QEXT <.STRST,VE RPNT,%VERSI>
QEX@T <.VERSI,EXECV,C`MDINI,MONSTA,SUBSTA,.JOBST,.RUNST, .MEMST,.DSKST,.ER@RST,.FILST,.INFOR`,.PISTA>
QEXT <.PUSH,.POP,.UNATT, .INDIR>
QEXT <IN@FER,UNMDIR,$CONTI`,$LPTST,GETLPT,FINLPT,$REENT>
QEX T <$START,..CONT,@..REEN>
QEXT <MF`OUT,MFSET,MFINP,MFINP0>
QEXT <SIX PRT,.AVAIL,$OPEN7@,$OPENF,$ERSTR,OP`NERR,ERRFIN,CRIF,LM,%MESS,PNTMES>
QEXT <LGORET>
Q@EXT <CFGBLK,CFGSI`Z>
QEXT <BEFORE,DEVLUP,ECFORK,EDE FIN,EOLRET,EPRINT@,ESET,.SPEAK,ECEA`SE,MESMES>
QEXT <STAYF,ERESET,TRY GTJ,DOGET,TRYGTS,@TRYGTO,TRGTV1,WHY`,$GET2,$GET0,CRSCAN,$GTFDB>
QEXT  <..STRT,RSPTR,.AC@COU,.ADVIS,.APPEN`,.ASSIG,.ATTAC,.BREAK>
QEXT <.CHA NG,.CLEAR,.CLOSE,@.CLUST,.REMAR,.CO`NNE,.CONTI,.COPY,.CREAT>
QEXT <.A CCES,.ENDAC>
QEX@T <.DAYTI,.DDT,.D`EASS,.DEFIN,.DELET,.DETAC>
QEXT < .DIREC,.TDIRE,.FD@IRE,.VDIRE,.DISAB`,.DISMO>
QEXT <.EDDT,.ENABL,.EXPU N,.FORK>
QEXT <.@GET,.HELP,.HOST,.`SEND>
QEXT <.LNL IS,.LOGIN,GSR,SSR  ,.LOGOU>
QEXT <. @MERGE,.MOUNT,.PRI `NT,.PROTE,.PRINT,!.SUBMI,.IPR,.IBR,! .IRR,.IMR,.MODIF,!@.CANCE>
QEXT <.P!`LOT,.SDP,.SDPL,.S"NDPL,.SDS,.SNDCS," .SNDS,.SNDP,.SDC,"@.SDT,.SNDCP,.SNDT"`P>
QEXT <.SDCS>

;[7.1031] For # REMOTE-PRINTING
#@QEXT <SRPCHR,SRPD#`EF,SRPPTR,SRPCH3>$
QEXT <$RMPRT,.R$ MPRT,.REMOT>
QEX$@T <KBTMSK,NBTMSK,$`BTMSK1,BTMSK2,BTM%SK3,BTMSK4>
;[7.% 1061] More REMOTE%@-PRINTING
QEXT <%`CHRTAB,CTBLEN,PTR&TAB,PTBLEN>
;[7.& 1061] Still more.&@..
QEXT <FDCHLP,&`FDPHLP,PBKFDB,CBK'FDB,KEYBMS>
;[7.' 1061] Lowercase t'@o uppercase trans'`late
QEXT <UPRCA(S>
;[7.1073] For(  remote printing (@features of PRINT(` command
QEXT <D)STNOD,RPNODE,RPQU) E,.REMPR>
;[4417)@]For SET DEFAULT )`PRINTER /REMOTE:
QEXT <DEFQUE,DEF* REM,DEFDST,DEFUNT*@,DEFADR,PRIFLG>	;*`[4417]
QEXT <RES+LV1,STPTAB>					;+ [4417]
QEXT <$DE+@F>
QEXT <.IDC,.I+`DPL,.IDCS,.IDP,.I,DPRT,.IDS,.IDALL,, .IDPRG,.IDTAK>
Q,@EXT <.PUNCH>
QEX,`T <.QUIT,DOATI>
-QEXT <.R,.RECEI,.- REENT,.REFUS,.REN-@AM,.RESET,.RUN>
-`QEXT <.CSAVE,.SAV.E,.SET,.START>
Q. EXT <.TAKE,.TALK,.@.TYPE,.TRANS,TYPE.`1,.UNDEL,.UNMOU>
QEXT <.JWAT,IJWS/ EQ,JWPAG,JWPAGL,I/@JWPSI,WJPTAB,JFNG/`ON,XRMBLK,EXCBLK,0XRMPNT>
QEXT <AS0 TTJ,CHKDAL,CMDIN20@,CMDIN4,CIN3,EXEC0`,JOBREN,JOBSA,JOB1SYM,JOBDDT>
QEXT1  <XEND,.NPAGS,EVL1@EN>
QEXT <LEVTAB1`,REE,SUPER,.JOBSY2,.TEXEC>
QEXT <R2 EADY,READY2,FIELD2@X,FLDSKP,CFIELD,G2`ETTER,REPARS,SETT320,SAVT20,SAVNAM,3 SETMOD,GETMOD,SET3@PRG>
QEXT <%KEYW3`,GETKEY>
QEXT <P4RVCK>
QEXT <%NOI4 >
QEXT <%SBCOM>
QEXT <CONF,FCONF4`,FCONFA>
QEXT <S5PRTR,BITS>
QEXT 5 <CIOREL,SETIOF,TI5@NPF,NOTIO>
QEXT 5`<%$TYPE,$CTYPE>
6QEXT <COUTFN,CSAV6 FN,SPECFN,CPFN,CP6@FNA>
QEXT <.INFG6`,INFGNS,TYPFLS,$I7NFGX,DIRARG>
QEX7 T <TYPIF,TYPOK,GN7@FIL,NXFILE>
QEXT7` <DEVN,STRN,CONST8,INDT,LBLSKP>
QE8 XT <DIRNAM,DIRNMX8@,CURNAM,CURNMS,US8`RNMS,STPDIR,STPUS9R>
QEXT <ATSAVR,9 TOCT,OCTCOM,OCTLS9@T>
QEXT <BUFFF,G9`ETBUF,RETMEM,GETM:EM,RETBUF,STREM,X: FRINI,FREINI,BCOU:@NT,GETNOD,CSBUFP,:`DICT,XDICT,BUFFS,;XBUFFS,GTBUFX,GET; SIX,GETSXB,GETSXF;@,GETASC,FIXPT> ;[;`4403]
QEXT <NOEC<HO,DOECHO,LTTYMD,< FIXIO,RTTYMD>
QE<@XT <%PRINT>
QEXT<` <COUTC>
QEXT <M=APPF,FREL,RANDOM,= TYPEXP,TYPADD,GIN=@STR,PINST,RINST,E=`VAL>
QEXT <SYMF,>SYMOKF,SOFF,SYMBA> ,SYMEA,SYMBEG,SYM>@END,LASTP,NSYMS,S>`YMBF>
QEXT <DBGE?XC>
QEXT <LOADF>? 
QEXT <STOREF>
?@QEXT <%GTB>
QEXT?` <DING,CERR,NIYE,@NIM,SCREWUP,JERR,@ JERRC,CJERR,JERRE@@,CJERRE>
QEXT <%@`TRAP>
QEXT <AUTOALO>
QEXT <%ERR,%A $ERR,%.$ERR >
QEA@XT <RERET>
QEXT A`<%ETYPE>
QEXT <RBLJFNS,UNMAP,JFNSTB K,CLZFFF,JFNRLA,GB@TJFS,RJFN,PION,PIB`OFF,ACTRCF,INTDF,CIINTDF>
QEXT <GNC JFS,FLOAT>
QEXT C@<CSZ1,CSZ2,CSZ4>
QEXT <CMDACS,REPDARA>
QEXT <CIJFND ,COJFN,JBUFP,.JBUD@FP,.J,JBUF,CJFN1,D`CJFN2>
QEXT <TAKELEN,SAVTAK,TAKCURE ,TAKDEF,TAKJFN,TAE@KBTS,PUSHIO,ALONOE`I,ECHNOI>
QEXT <FINIFH1,INIFH2,VALF NOD,VALNDN,CINODTF@,OURNOD,NODBLK,INF`FCIN> ;[7.1076]
GQEXT <CFGNOD,INFBG LK,TOUT,INFSYS,UNG@AME,DIRN,ORGN,JRCG`ASH,WLDPAG> ;[7.1H076][7.1137]
QEXH T <DPPT,DPSTK,DSPH@T,DSSTK,DCPT,DCSTH`K,DPLPT,DPLSTK,DTIPT,DTSTK>
QEXT <I EOFDSP,EOFJER,DATI@DSP,ILIDSP>
QEXTI` <CIDLYF,PAXLFL,CJCFLAG>
QEXT <CINJ ITF,LOGINI,LOGINFJ@,SYSMF,LOGDAT,FILJ`INI,TAKEIN,TAKSYSK>
QEXT <PRVENF,MK ESMSF,CUSRNO,LIDNK@O,JOBNO,POBXNO>
K`QEXT <EXDPF,EXDPLLC,FSTLGN>
QEXT <L FORK,RFORK,DDTFLGL@,NPAGE,EFORK,BATCL`HF,PROG,SNDPRG,SDMPROG,GETFB1,ANNKEM P,INDQUS>
QEXT <M@SDECHO>
QEXT <STM`RTIM,TTYACF,PTTYANC,ALOST,CJPTIM>
N QEXT <ITTYMD,PTTYN@MD,ETTYMD>
QEXT N`<CERET>
QEXT <CTOUUO>
QEXT <SSTACO K>
QEXT <ERCOD>
QEXT <USERNO,MCOO`JFN,OUTDSG,TYPGRPP>
QEXT <DEXTBL>
QEXT <PD,INISTK,P@PDLOV,CBUF,ATMBUFP`,CBUFE,CJFNBK,XTNQNUM,XTNCNT,ECHPTRQ ,ECHCNT,CTRPTR>
Q@QEXT <TEXTIC,TEXTQ`ID,TEXTIA>
QEXT R<PPATS,PPAT,PAGENR >
QEXT <LEV1PC,LR@EV2PC,LEV3PC,PCTAR`B>
;QEXT <$CTRLAS,$CTRLR,$CTRLV,$CS TRLW,$CTRLX,$EOL,S@$DASH,$CONT,$RUB>S`
QEXT <$FORMF,$LTF,$CONT,$TDENS>
T QEXT <USEPSI,ILIPT@SI,EOFPSI,DATPSI,T`ICLEAR,CCPSI,TLMPUSI,ALOPSI,COBPSI>U 
QEXT <ADVFLG,SAU@VPGM,FIXON,ADVTNMU`,ADVMES,BREAK1,ESVCPSI,JFNSIL,QTAPSV I,QTADSP>
QEXT <V@CUUO>
QEXT <ERREV`T,NESC>
QEXT <FSWTAT>
QEXT <FSTOUW T>
QEXT <ERRMF>
QEXT <CSBUF>
QEW`XT <%EDAYT>
QEXTX <ACCT,PASSX,PASWX D,PASLIN,PASFLD>
QEXT <CHRTBL>
QX`EXT <JOBOPC>
QEXYT <.BACKS,.SKIP,.Y EOF,.REWIN,.UNLOAY@>
QEXT <CSCAN>
Y`QEXT <.CREF,.EXECZU,.COMPI,.DEBUG,.Z LOAD,OCCLF,GOTO2,Z@CLOPAT,DOCCL,DOCCZ`1,DOCC2>
QEXT <C[SVC>
QEXT <MALCH[ K,MALWEN,MINT0,MW[@ATCF,MWATCH,MAILF[`> ;MAIL WATCH
QE\XT <SUBBP>
QEXT \ <NETRDY>				;ARPA\@NET
QEXT <QTIMES\`,SNAMES,SYSVER,JO]BRT,TTYJOB,NETRDY] >
QEXT <GETAMT,C]@HKPTY>
QEXT <LRF]`STS>
QEXT <.USEN^D>
QEXT <EDTFIL,^ EDTINF,EDTCRE,EDT^@OUF,EDTCFM>

;T^`ERMINAL-RELATED G_LOBALS



QEX T <$TERMI,$TTYP,$@TERNO,TTYPTB,BLNK`TB,NTTYPS,.TTY3>
QEXT <.T33,.T35,` .T37,.TI,.FLAG,.F`@ORMF,.FULLD,.HALF``D,TTYHLP,.IMMED,.aINDIC>
QEXT <.LAa 120,.LA30,.LA36,.a@LA38,PLENTH,.LINEa`,.LOWER,.TERNO,.PbAGE,.PAUSE,.RAISEb >
QEXT <.SPEED,.b@DFLT,.TABS,.TRMNTb`,.TTYPE,.VK100,.VcT05,.VT100,.VT102c >
QEXT <.VT125,.c@VT131,.VT200,.VT3c`00,.VT50,.VT52,.VdTH19,.LWIDTH,TTYNd TY,.TTH19>
QEXT d@<RTTFLG,RTFLG1,.Id`NHIB,.IDEAL> ;[44e24]


; CRJOB/e PRARG

QEXT <CRe@PRA,..STCR,MESS>

; Archive systfem

QEXT <.ARCHf I,CANARC,.DISCA,.f@RETRI,FTDBLK,ARCBf`LK>

; Extendedg features

QEXTg  <.RDIRE,.WDIRE,.g@QD,ALRCHK,MALCHK,g`IITPSI,POBCHK>
QhEXT <TYPFIN,TPCCOh C,TPTTYP,TYPING,Sh@PRSED,BYTSIZ,AUTOh`F,IITSET>
QEXT <iMALBUF,MWATAT,MWAi TCT,MWATDR,MWATWRi@,MWATN,MWATN0,ALRi`TIM,ALRTMS>
QEXTj <RUNFK,IDFORK,EDj FORK,FRKTAB,SLFTAj@B,FRKNMS,KEPNMS,Fj`RKDEF,SFKNAM>
QEkXT <.FREEZ,.UNKEEk ,.NAME,.KEEP,UTTYk@MD,RFTYMD,FTTYMD,k`REASON>
QEXT <RSlTFK,REPH,STEPH,REl PH1,.ERUN,.BLANK,l@BLANK1,KEFORK,GETl`ILI,DWNPNT>
QEXTm <.DO,.KMIC,MICFRm K,PAGEMI,MICFPG,Mm@ICPAG,GETPAG,USEPm`SM>
QEXT <.GOTO,n.BACKTO,.ERROR,.In F,.NOERROR,.OPERAn@TOR,.NOOPERATOR>
QEXT <ADDNAM,.NOoLM,.KFRKC>
QEXT o <CCKEEP>

;Progo@rammable Command o`Language

QEXT p<CTBL1,PCCURC,PCFp LAG,PCTXFR,PCSFREp@,PCLSTF,PCVVAL>
p`QEXT <PCFLDB,.DECqLA,.UNDEC,PCMXCT,q PCMPOP,PCMPOS,PCMq@PRS>
QEXT <PCINIq`T,PCCCPL,PCIDFV,PrCIUDF,PCIRUN,PCEXr CT,SUBNAM>
QEXT r@<PCONCE>	;[BCM] or`nce only flag fors PRSINI
QEXT <PCs MPSI,PCMPSO,PCIPSs@O,PCPOTP,PCPRGR,Ws`FORKX,FFORKX,.PCLtOB>
QEXT <PCIINFt ,SINVAR,SSTVAR,PCt@ISGS,.PCLVR,PCIDGt`S,PCICLP>
QEXT <uPCCWKE,PCRPAS,PCLu DCO,PCIWEV,$SDEF,u@PCIGEV>
QEXT <CIu`N2,PCIDFS,PCIFGS,vWAITA,PCLPMT>
QEv XT <PCIPSV,PCFLDPv@,PCLGST,CUSTMF,PCv`WAIT,READ1>
QEXTw <PCRNFK,PCFORK,Pw CLNAM,PCCIPF,NPCLw@IO,.IDDCL,ORIFLG>w`
QEXT <.PREXC,.PxRENV>
QEXT <CHNSx ,CHNTAB,CM1DB,CM1x@DBE,CM1XL,CTBL2,Cx`M1YL> ;[4427]
QEyXT <TDEFAU,$SETO,y $SETN,$SFILE,$SFNy@O>
QEXT <$RSFD,$y`SVFD,$INFO>
QEXTz <CRDSET,IVOL,NTRz AP,SETSRM,SPLINF,z@SPLSET>
QEXT <SYz`SINF,TAPINF,TRMPN{T,.ADBRK,.ADDRE,.{ ALERT>
QEXT <.AL{@RST,.ARSTS,.AUTOM{`,.CIDLY,.CTRLC,.D|EFAU>
QEXT <.DEP| OS,.ENTRY,.EXAMI,|@.EXECM,.FEXP,.FIL|`EV>
QEXT <.FLINX},.FLONX,.FPROH,.F} RESI,.IARPA,.IDEC}@N>
QEXT <.INVIS,}`.LOCAT,.MALST,.MW~ATC,.NODEF,.NOTIM~ >
QEXT <.OFL,.PA~@C,.PAXL,.PRESE,.S~`DIR,.SETNO,.SFILE>
QEXT <.SFNO,.S ISTA,.TAPE,.TERMI@,.TIME,.TKD>
QEX`T <.TRAP,.TYPEO,.VISIB>
QEXT <.EP HM,.FRKST,.SUPER,@SAVSWI,.CTRAC,.OR`IGI,.SDDCL>
QEXT <.INDEF,.SEDEF,. STMLM,$SET0>
QEX@T <.SAVT,CMDCHT,C`MDCHR>
QEXT <MSEPSI>
QEXT <RESET 0,.RESE2,.RESS1,.@RESST>
QEXT <$FR`KNM,$NODEF>

;GLOBAL SYMBOLS FOR  COMMAND EDITOR
@
QEXT <CMDHST,FT`CE,IMETKY,INFOCE>
QEXT <.META,.NO META>
QEXT <SETN@OF,TERMNL>

QEX`T <CIN42,HSTCNT,HSTNUM,HSTPTR,.RED O,.AGAIN,.INHST,.@RECAL,.SEHST>

`QEXT <CEBPTR,CEDIT,CSAVE,CESAVE,CE BFEN,CEFLAG,CETSA@V,INSMOD,.CESET>
QEXT <CEMETA,CEFFL,CE1ST,CELAST,C ECNT,.CEDMO,NOPRM@T,CETTMD,CEVMSD>
QEXT <CEKBUF,CEPSIC,PCLMID,.CEPSI ,.SCEIC,.SNCEI,SV@SEDC,SVSEDP,CEPBU`F>

QEXT <RSCAN	F,QUIT2>		;[4431]	  Rescanned EXEC c	@ommands support
	`
	.CREF
	LIST
   REF
	LIST
qJn3P%4qJn

P -qRt@ AhIFN XTNDSWIFN XTNDSWqRtL{P q` ,aBt
OPDEF U-A [<%%NUUO>B12]
-@%%NUUO==%%NUUO+1
DEFINE AX(HELP)-`
<	IFNB <HELP>,<.	UA [ASCIZ \HELP. \]
>
	IFB <HELP.@>,<	UA [0]	
>
>
A [0]	
>
sd@P't@ 	+y 'aB>
	U$ERR [ASCIZ @A@]RR [
v]7P  \k nyFy
	$FKFLAGo==<Z 0>		
	A (<B>,0C,D)A (<]7 pG
	$FKHAN=p1=<Z 1>		
	A (<B>,1C,D)A (<^(2 pyG	
	$FKRADDq==<Z 2>		
	A (<B>,2C,D)A (<^)9 rIG
	$FKRESPri==<Z 4>		
	A (<B>,4C,D)A (<^+2 qaG
	$FKRMESr==<Z 3>		
	A (<B>,3C,D)A (<.,W (!BB
	U.$ERR [ASCIZ @A@]RR $lP

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 ^