Google
 

Trailing-Edge - PDP-10 Archives - bb-j710b-bm_tops20_v41_tools - tools/mic/execde.unv
There are 28 other files named execde.unv in the archive. Click here to see a list.
x
,5V@P B@ CN IR	IFNB <A>i,<	UACCT [ASCIZ \A\]
>
	IFB <A(>,<	UACCT [0]	
>
UACCT [0]	
>C5IQ C&. !9	IFNB <A>!Y,<	UADDR [ASCIZ \!xA\]
>
	IFB <A">,<	UADDR [0]	
>
UADDR [0]	
>C4:P 
C4\qP C3%PP
	UALTYP [ASCIZ @A@]YP CRmI7P dCSR by
	JSP CX,.SAVT
	JSP CX,CW%{P ,CW%{	P CW%{	P D@ Ee@P E'%[P ENf: v19	IFNB <A>vQ,<	UBSLSH [ASCIZ vp\A\]
>
	IFB <wA>,<	UBSLSH [0]	
>
BSLSH [0]	$DR=
EV2P&8EV2
P NEV2P&:EV2P NEV2 P&<EV2,P OEV20P&>EV4[RP'gEV5@@'fEV6
P OEV6
RP&>F@ Ge@ ,GeLR +G,kP dG-l`Q G". y=	IFNB <A>,<	UCHAR [ASCIZ \8A\]
>
	IFB <AX>,<	UCHAR [0]	
>
UCHAR [0]	
>G6
(` 8yG.CMABC+SBLOCK.CMABC+SBLG6
, 89C.CMABP+SBLOCK.CMABP+SBLG6
=Q  G6l 693.CMBFP+SBLOCK.CMBFP+SBLG6*` ;y_.CMBRK+FBLOCK.CMBRK+FBLG6k Q G6X Q `G6m 79;.CMCNT+SBLOCK.CMCNT+SBLG6$ :9S.CMDAT+FBLOCK.CMDAT+FBLG6$Y@ ;9[.CMDEF+FBLOCK.CMDEF+FBLG6$]@Q @G6%@Q  G6.,\ ?	IFNB <A>9,<	UCMERR [ASCIZ X\A\]
>
	IFB <xA>,<	UCMERR [0]	
>
CMERR`[0]	G65IQ@`G65I`@.Qu.CMFLG+SBLOCK.CMFLG+SBLG65MQUOG65l9yO.CMFNP+FBLOCK.CMFNP+FBLG6=(@ 99K.CMGJB+SBLOCK.CMGJB+SBLG6EL :yW.CMHLP+FBLOCK.CMHLP+FBLG6Lj Q G6Mh` 7y?.CMINC+SBLOCK.CMINC+SBLG6Mj Q G6Mz@ .q.CMIOJ+SBLOCK.CMIOJ+SBLG6\^ P G6uyQ @G6uz Q @G6v[ Q  G6v^Q G6|j Q  G7L@ 6y7.CMPTR+SBLOCK.CMPTR+SBLG7=Q  G7N  5y/.CMRTY+SBLOCK.CMRTY+SBLG7z Q `G7$Q G7%z`Q `G7'
>
	IFB <A>,<	UCOLON [0]	
>
COLON [0]		~	IFNB <A>),<	UCOMMA [ASCIZ H\A\]
>
	IFB <hA>,<	UCOMMA [0]	
>
COMMA [0]	X
       CALL CONF      CG@,P G@,;xP G@-	6P G@.<P G@.N8P GHP GK |ym	IFNB <A>},<	UCRR [ASCIZ \}8A\]
>
	IFB <A>}X,<	UCRR [0]	
>
	UCRR [0]	
>
GRyP 
GRd9HP @GRd9IP GSH`P GSI P GSI< z)X	IFNB <A>zI,<	UCTRLE [ASCIZ zh\A\]
>
	IFB <{A>,<	UCTRLE [0]	
>
CTRLE [0]	N@P I wYC	IFNB <A>wy,<	UDASH [ASCIZ \xA\]
>
	IFB <Ax8>,<	UDASH [0]	
>
UDASH [0]	
>I$*:Q @I:=P I$lzP'hI%|SP'pI&8 P I&>6P'pI {Qc	IFNB <A>{q,<	UDEC [ASCIZ \|A\]
>
	IFB <A>|0,<	UDEC [0]	
>
	UDEC [0]	
>
I63 <9y	A==:PPTR<Y		;PCL ALLOCATE T<xHIS PAGE AT CURRE=NT PAGE POINTER
=8	B==PPTR_-9	;DEF=XINE PAGE NUMBER
=x	PPTR==PPTR+C*10>00	;STEP TO NEXT >8PAGE SLOT
	IFG P>XPTR-DDTFST,<PRINT>xX ?Exec page buff?ers overlapping DDT
>rlapping DI6= !w
	A==<-10B<C>+1B<C-D>> P
	IF1,<IFDEF %Ap,<PRINTX ?A ALREADY DEFINED>>
	D0EFINE %A (OP,AC,PY,MSK)<
	$A==<Zp B>		
	OP (<AC>,B'Y,MSK)><AC>I7 AJ	IFNB <A>a,<	UDEF [ASCIZ \	A\]
>
	IFB <A>	 ,<	UDEF [0]	
>
	UDEF [0]	
>
I7 q5	IFNB <A>,<	UDEV [ASCIZ \0A\]
>
	IFB <A>P,<	UDEV [0]	
>
	UDEV [0]	
>
IFN Q3	IFNB <A>q,<	UDEXT [ASCIZ \A\]
>
	IFB <A0>,<	UDEXT [0]	
>
UDEXT [0]	
>IYVP 
I'>NB <A>,<	UDIRS [ASCIZ \ A\]
>
	IFB <A@>,<	UDIRS [0]	
>
UDIRS [0]	
>I' 
9i	IFNB <A>
Y,<	UDIR [ASCIZ \
xA\]
>
	IFBU<A>0]	
>
	UDIR [0]	
>
I?' Y	IFNB <A>y,<	UDOT [ASCIZ \A\]
>
	IFB <A>8,<	UDOT [0]	
>
	UDOT [0]	
>
IR
:P IRNn q]	IFNB <A>,<	UDTIV [ASCIZ \0A\]
>
	IFB <AP>,<	UDTIV [0]	
>
UDTIV [0]	
>IS i|	IFNB <A>	,<	UDTP [ASCIZ \(A\]
>
	IFB <A>H,<	UDTP [0]	
>
	UDTP [0]	
>
IS  	IFNB <A> 1,<	UDTR [ASCIZ \ PA\]
>
	IFB <A> p,<	UDTR [0]	
>
	UDTR [0]	
>
IS@ q	IFNB <A>,<	UDT [ASCIZ \A0\]
>
	IFB <A>,<	UDT [0]	
>
K Q K60 ^ywIFN EMCSSWIFN EMCSSWK6<{P KK|@ fA6
       UfaERR [ASCIZ @A@]RR [ASCIZ @A@]KKPQ KSN	  jP
	UETYPE [ASCIZ A]PE Kc&:=P LDP"LHP!LLP @LPP  LTP LXP$M
eI7P M@P 'M$,\YP'M&d<YP 2M&d^ yN	IFNB <A>y!,<	UFILE [ASCIZ \y@A\]
>
	IFB <Ay`>,<	UFILE [0]	
>
UFILE [0]	
>M&fyP $M,,*sQ M,,HSQ  M,,IQ M,,YQ M,-ZQ  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,kxQ M8-98Q  M8-h:Q @M8-i3Q M:|I< g	IFNB <A>9,<	UFNODE [ASCIZ X\A\]
>
	IFB <xA>,<	UFNODE [0]	
>
FNODE [0]	,PP%HMJ,\P 2MJ.@P MJ.:=P pO&8; `yASCIZ \AEXE\ASCIZ \AEOexY ?Y}
   IF2,<
	XGLOBS>IF2,<O3F8t YJ
	SEARCH Y!QSRMAC,GLXMAC,ORNMACC,GLXMAC,ORNO?I3 YaP
	OPDEF ZA [<B>]
	INTERN AB>]
	INTERNOJ~\P ON~	 ZAV
	OPDEF ZaA [B]
	INTERN A
	.NODDT A OOI7P OR 2OR%K@P 	Qf y	IFNB <A>,<	UHELP [ASCIZ \8A\]
>
	IFB <AX>,<	UHELP [0]	
>
UHELP [0]	
>Q&=
P ?S,(: b9	SKIPN BATCHF
	JRST A
St(: ay	SKIPE BATCHF
	JRST A
SMm@PS'$:P (SB-3P% SB:P 
SBlP&8SBX<P SP 'Q=.H
	T <A>,B,C,D!CM%INV"u90Ee@SS0 (AG.x
	TV <A>(q,B,C,D!CM%INVB,C,D!CM%INV"x@0M%INVU
d[@P U,kP  U^+@ da&
	ERCAL RJWARN
	ERCAL RWNy $Y<-3P Y0 c9	MOVX A,B
	MOVX A,Y+y g!:
	ULERRO [ASCIZ@A@]ROYP	Y`PCZ \pA\]
>
	IFB <A>,<	ULINE [0]	
>
ULINE [0]	
>Y>=ySP YXtH:P YXt[sP YXt\qP YXuP YXuP YXvvP YXv{P YXvP YXvLXP [E)WP [& ]yoIFN MICSWqIFN MICSW[&=`P [2-`P [2u0P [2|pP [FL@P ]fL`P ]sQ ]<` \ygIFN NEWFSWIFN NEWFSW]<l{P ]FL`P ]<`P 
]6)yP  ]7<P ]>-Xy _9{IFE EMCSSWIFE EMCSSW]>N9  jAT
	UNOI [ASCIZ @A@]OI [A]>dpQ ]>m` ^9sIFE MICSWuIFE MICSW]>t]s ]9kIFE NEWFSWIFE NEWFSW]?H: `9IFE STATSWIFE STATSW]?FKR \9cIFE XTNDSWIFE XTNDSW]CPP ]Nn	yP ]S'2P _' ! 	IFNB <A>A,<	UOCT [ASCIZ \`A\]
>
	IFB <A>,<	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< !H	IFNB <A>A,<	UQUOTE [ASCIZ `\A\]
>
	IFB <A>,<	UQUOTE [0]	
>
QUOTE [0]	e&:x [a^JRST RSKP\JRST RSKPe2N=P&8e:|I< Ar	IFNB <A>a,<	URNODE [ASCIZ \A\]
>
	IFB < A>,<	URNODE [0]	
>
RNODE [0]	
e;P gYVP 
g2: u	.	IFNB <A>u),<	USLASH [ASCIZ uH\A\]
>
	IFB <uhA>,<	USLASH [0]	
>
SLASH [0]	. ~!x	IFNB <A>~A,<	USTAR [ASCIZ \~`A\]
>
	IFB <A>,<	USTAR [0]	
>
USTAR [0]	
>gR@ _yIFN STATSWIFN STATSWgRL{P gS:=P dgS I*	IFNB <A>i,<	USTR [ASCIZ \A\]
>
	IFB <A>(,<	USTR [0]	
>
	USTR [0]	
>
gV;v e!0	IFB <B>,eA<
		USUBCO [	A
				0]>
	IFNB <fB>,<
		USUBCO [	A
				B]>
g^N:=P ggH6P h #-.8
	..BITS=#1=0
	IFNB <B>,<.#P.BITS==B>
	IFB #p<C>,<$FOO==.A>
        IFNB <C$0>,<$FOO==C>
IFE$P D,<XWD [ASCIZ @$pA@],[..BITS!$FOO%]>
IFN D,<XWD [%0D!CM%FW
		ASCIZ%P @A@],[..BITS!$FOO]>
..BITS!$F"t&0Rt(:i )1S
IFNB <B)Q>,<%%X==B>
IFB )p<B>,<%%X==.A>
*	[	CM%INV!CM%ABR!*0CM%FW
		ASCIZ /A/],,%%X
IZ /iP iI  *q]
	Z			;FI+LLED IN BY NEXT T+0END
	..T==.			;U+PSED BY NEXT TENDED BY NEXT TENDi%I7P i]K\P i
e<}P dit@ ,k
       .,1.U==.
        RE,PLOC ..T-1
	..U-.,p.T,,..U-..T	;FILL- IN FIRST WORD OF-0 TABLE
        RELOC ..U      Ri&l^ 	IFNB <A>!,<	UTIME [ASCIZ \@A\]
>
	IFB <A`>,<	UTIME [0]	
>
UTIME [0]	
>i. @i.,;sQ  i/$\SQ iJ lb
	UTRAP [l!	A
		ASCIZ @B@]
		ASCIZ @B@iK:P iRNK XD
	TITLE X!A
	SEARCH MACSYMX@,MONSYM
	SALL
	GGLOBS
	SALL
	iS<;qP iS<mzP iS=-P iS=[rP iS=\uP iS>VP iS>;VP iX &7
IFB <C>&1,	T <A:>,B,.A,&PD

IFNB <C>,	&pT <A:>,B,C,D
A:>,B,C,D
 UiTYPE[ASCIZ`A]PE[ASCIZA]j.,@.j8$\Y8k=tk$L@kLt>kD@pkl\YXk}Kwlk}[0dk  Hk&+ Dk: @k,0 Fk,` Zk.` Vk/
k"-L Pk2.,W *k2Mi  fk2N= o"
XX SLASHo!	
XX BSLSH	
XX o@DASH		
XX FILE		o`
XX CTRLE	
XX DpEC		
XX CRR		
Xp X STAR		
XX WORDp@		
XX DT		
XX Hp`ELP		
XX OCT		
qXX STR		
XX DEV	q 	
XX CMERR	
XX q@DEF		
XX`USER		
XX USERS	
XX DIrR		
XX DIRS		
Xr X COMMA	
XX LINEr@		
XX DOT		
XX r`TIME		
XX COLON	s
XX DEXT		
XX Cs HAR		
XX@QUOTE	
XX ACCT		
XX DTs`IV		
XX FNODE	
tXX RNODE	
XX DTPt 		
XX DTR		
XX ADDR		
		
XX k:} &k>@ RkC{8 (kG-} rkJuy zkN.,| _	IFNB <A>1,<	UUSERS [ASCIZ P\A\]
>
	IFB <pA>,<	UUSERS [0]	
>
USERS [0]	iT	IFNB <A>
	,<	UUSER [ASCIZ \
(A\]
>
	IFB <A
H>,<	UUSER [0]	
>
UUSER [0]	
>kNdt <kO$@ JkO&  TkO,(w :kRMY  jkS 6kSN	  "kW\@ \kW\Y ^k^~) Lo"fPQ o?N I	IFNB <A>i,<	UWORD [ASCIZ \A\]
>
	IFB <A(>,<	UWORD [0]	
>
UWORD [0]	
>q0 @IFN XARCSW,IFN XARCSWq<{P qd@Q xqY P%(q\P *q\P q\}P  qexY @Y"]

	XLIST@y
	.XCREF

DEFIANE QEXT (SYM)<
	A8IRP SYM,<
	IFNDEAXF SYM,<EXTERN SYMAx
		SUPPRE SYM>>>B

   STAT,<
QEB8XT <STPTR>
   >;BXSTAT

QEXT <CLRBxALL,CLRBIT,JSBDEFC,SETALL,SETBIT,SEC8TTRP,COPBTS,RESACCXS,SAVACS>
QEXT <CxSKPON,TRPPSI,JTABD,SKPNAZ,TRPOKF,TSD8TOPF,MRKTRP,GETLPDXC,FOWNER,TFILEF,TDxOPENF>
QEXT <SNDEPDB,MYPID,QSRPID,E8MDAPID>
QEXT <GEEXTPID,GQPID,QUASNDEx,SNDMSG,SNDMS1,IPFCRCV,GQSRPD>
QEXF8T <IPCON,IPCOFF,IFXPCINT,CHECKM,IPCHFxEK,NOWPTR,IPCRCF,GIPCWTF,IPCALF,IPCG8FND>
QEXT <UNIQUGXE,IPCTBL,IPCAGE,IGxPCFGS,IPCCTL,INFPHID,OLDIDX,IPCFLM>H8
QEXT <DGFRKS,SEHXTENT,SETGO,GETENTHx,WAITF>
QEXT <.MIAKE,.TECO,.TV>
QI8EXT <SPEEDA,SYSDWIXN,PRACCT,CKSTAR,GIxETDVN>
QEXT <SBLJOCK,FBLOCK>
QEXTJ8 <%%LVER,%%RVER>
QEXT <RJWARN,REWJxIND,CJDEV,OPNMAG>K
QEXT <ABKCNT,INK8FTRM>
QEXT <%GETKXER,DGETER,.EDIT,.KxEDITC,CSVCC,EDSVBL,TECSVB,CMAGN>
QL8EXT <TOUT,TOUTD,TLXBOUT,TSOUT0,USRCNLxT>
QEXT <DWNTYP,MSNBLKS,SSIZE,$CHFM8DB,USRNAM,TTYUSR>MX
;**;	[722]	ChanMxge 1 line	6-APR-8N2	KR
QEXT <.P,.PN8P,COMAND,COMSIX,PNXRGCEL,CIPF,CLF,MPNxENDF,NACL,GLOADS,OCLSON,BEGINP,SVPRO8MT,ECHCMD>	;[722]OX
QEXT <GETDIR,REOxLDIR,GETDRP,DIRINPI>
QEXT <.STRST,P8VERPNT,%VERSI>
QPXEXT <.VERSI,EXECVPx,CMDINI,MONSTA,SUQBSTA,.JOBST,.RUNSQ8T,.MEMST,.DSKST,.QXERRST,.FILST,.INFQxOR,.PISTA>
QEXT R<.PUSH,.POP,.UNATR8T,.INDIR>
QEXT <RXINFER,UNMDIR,$CONRxTI,$LPTST,GETLPT,SFINLPT,$REENT>
QS8EXT <$START,..CONSXT,..REEN>
QEXT <SxMFOUT,MFSET,MFINPT,MFINP0>
QEXT <ST8IXPRT,.AVAIL,$OPETXN7,$OPENF,$ERSTR,TxOPNERR,ERRFIN,CRIUF,LM,%MESS,PNTMESU8>
QEXT <BEFORE,DUXEVLUP,ECFORK,EDEFUxIN,EOLRET,EPRINT,VESET,.SPEAK,ECEASV8E,MESMES>
;**;[7VX38] Change 1 lineVx at QEXT STAYF,..W.:	KR	2-JUN-82
QW8EXT <STAYF,ERESETWX,TRYGTJ,DOGET,TRYWxGTS,TRYGTO,TRGTV1X,WHY,$GET2,$GET0,X8CRSCAN,$GTFDB>	;[XX738]
QEXT <..STRXxT,RSPTR,.ACCOU,.AYDVIS,.APPEN,.ASSIY8G,.ATTAC,.BREAK>
QEXT <.CHANG,.CLYxEAR,.CLOSE,.REMARZ,.CONNE,.CONTI,.CZ8OPY,.CREAT>
QEXTZX <.ACCES,.ENDAC>
QEXT <.DAYTI,.DD[T,.DEASS,.DEFIN,.[8DELET,.DETAC>
QE[XXT <.DIREC,.TDIRE[x,.FDIRE,.VDIRE,.D\ISAB,.DISMO>
QEX\8T <.EDDT,.ENABL,.\XEXPUN,.FORK>
QEX\xT <.GET,.HELP,.SE]ND>
QEXT <.LNLIS]8,.LOGIN,GSR,SSR,.]XLOGOU>
QEXT <.ME]xRGE,.MOUNT,.PRINT^,.PROTE,.PRINT,.S^8UBMI,.IPR,.IBR,.I^XRR,.IMR,.MODIF,.C^xANCE>
QEXT <.PLO_T,.SDP,.SDPL,.SND_8PL,.SDS,.SNDCS,.S_XNDS,.SNDP,.SDC,.S_xDT,.SNDCP,.SNDTP>`
QEXT <.SDCS>
Q`8EXT <$DEF>
QEXT `X<.IDC,.IDPL,.IDCS`x,.IDP,.IDPRT,.IDSa,.IDALL,.IDPRG,.Ia8DTAK>
QEXT <.PUNaXCH>
QEXT <.QUIT,axDOATI>
QEXT <.R,b.RECEI,.REENT,.REb8FUS,.RENAM,.RESETbX,.RUN>
QEXT <.CSbxAVE,.SAVE,.SET,.ScTART>
QEXT <.TAKc8E,.TALK,.TYPE,.TRcXANS,TYPE1,.UNDEL,cx.UNMOU>
QEXT <ASdTTJ,CHKDAL,CMDIN2d8,CMDIN4,CIN3,EXECdX,JOBREN,JOBSA,JOBdxSYM,JOBDDT>
QEXTe <XEND,.NPAGS,EVLe8EN>
QEXT <LEVTABeX,REE,SUPER,.JOBSYex,.TEXEC>
QEXT <RfEADY,READY2,FIELDf8,FLDSKP,CFIELD,GEfXTTER,REPARS,SETT2fx0,SAVT20,SAVNAM,SgETMOD,GETMOD,SETPg8RG>
QEXT <%KEYW,gXGETKEY>
QEXT <PRgxVCK>
QEXT <%NOI>h
QEXT <%SBCOM>
h8QEXT <CONF,FCONF,hXFCONFA>
QEXT <SPhxRTR,BITS>
QEXT <iCIOREL,SETIOF,TINi8PF,NOTIO>
QEXT <iX%$TYPE,$CTYPE>
QixEXT <COUTFN,CSAVFjN,SPECFN,CPFN,CPFj8NA>
QEXT <.INFG,jXINFGNS,TYPFLS,$INjxFGX,DIRARG>
QEXTk <TYPIF,TYPOK,GNFk8IL,NXFILE>
QEXT kX<DEVN,CONST,INDT,kxLBLSKP>
QEXT <DIlRNAM,DIRNMX,CURNAl8M,CURNMS,USRNMS,SlXTPDIR,STPUSR>
QElxXT <ATSAVR,TOCT,OmCTCOM,OCTLST>
QEm8XT <BUFFF,GETBUF,mXRETMEM,GETMEM,RETmxBUF,STREM,XFRINI,nFREINI,BCOUNT,GETn8NOD,CSBUFP,DICT,XnXDICT,BUFFS,XBUFFSnx,GTBUFX,GETSIX,GEoTSXB,GETASC,FIXPTo8>
QEXT <NOECHO,DoXOECHO,LTTYMD,FIXIoxO,RTTYMD>
QEXT <p%PRINT>
QEXT <COp8UTC>
QEXT <MAPPFpX,FREL,RANDOM,TYPEpxXP,TYPADD,GINSTR,qPINST,RINST,EVAL>q8
QEXT <SYMF,SYMOqXKF,SOFF,SYMBA,SYMqxEA,SYMBEG,SYMEND,rLASTP,NSYMS,SYMBFr8>
QEXT <LOADF>
rXQEXT <STOREF>
QErxXT <%GTB>
QEXT <sDING,CERR,NIYE,NIs8M,SCREWUP,JERR,JEsXRRC,CJERR,JERRE,CsxJERRE>
QEXT <%TRtAP>
QEXT <AUTOLOt8>
QEXT <%ERR,%$EtXRR,%.$ERR >
QEXTtx <RERET>
QEXT <%uETYPE>
QEXT <RLJu8FNS,UNMAP,JFNSTK,uXCLZFFF,JFNRLA,GTJuxFS,RJFN,PION,PIOFvF,ACTRCF,INTDF,IIv8NTDF>
QEXT <FLOAvXT>
QEXT <CSZ1,CSvxZ2,CSZ4>
QEXT <CwMDACS,REPARA>
QEw8XT <CIJFN,COJFN,JwXBUFP,.JBUFP,.J,JBwxUF,CJFN1,CJFN2>
xQEXT <TAKLEN,TAKCx8UR,TAKDEF,TAKJFN,xXTAKBTS,PUSHIO,ALOxxNOI,ECHNOI>
QEXTy <INIFH1,INIFH2>
QEXT <DPPT,DPSTKyX,DSPT,DSSTK,DCPT,yxDCSTK,DPLPT,DPLSTzK,DTPT,DTSTK>
QEz8XT <EOFDSP,EOFJERzX,DATDSP,ILIDSP>
zxQEXT <CIDLYF,PAXL{FL,CCFLAG>
QEXT {8<CINITF,LOGINI,SY{XSMF,LOGDAT,FILINI{x,TAKEIN>
QEXT <P|RVENF,MESMSF,CUSR|8NO,LIDNO,JOBNO>
|XQEXT <EXDPF,EXDPL|xC>
;**;[735] Cha}nge 1 line at DEF}8INE QEXT + 101L	K}XR	17-MAY-82
QEXT}x <FORK,RFORK,DDTF~LG,NPAGE,EFORK,BA~8TCHF,PROG,SNDPRG,~XSDPROG,GETFB1,ANN~xKEP,INDQUS>	;[735]
QEXT <STRTIM,T8TYACF,PTTYAC,ALOSXT,CJPTIM>
QEXT <xITTYMD,PTTYMD,ETTYMD>
QEXT <CERET8>
QEXT <CTUUO>
XQEXT <SSTACK>
QExXT <ERCOD>
QEXT <USERNO,MCOJFN,OU8TDSG,TYPGRP>
QEXXT <DEXTBL>
QEXT x<PD,INISTK,PDLOV,CBUF,ATMBUF,CBUFE8,CJFNBK,XTNNUM,XTXNCNT,ECHPTR,ECHCNxT,CTRPTR>
QEXT <TEXTIC,TEXTID,TEX8TIA>
QEXT <PPATSX,PPAT,PAGEN>
QEXxT <LEV1PC,LEV2PC,LEV3PC,PCTAB>
;Q8EXT <$CTRLA,$CTRLXR,$CTRLV,$CTRLW,$xCTRLX,$EOL,$DASH,$CONT,$RUB>
QEXT8 <$FORMF,$LF,$CONXT,$TDENS>
QEXT <xUSEPSI,ILIPSI,EOFPSI,DATPSI,ICLEAR8,CCPSI,TLMPSI,ALOXPSI,COBPSI>
QEXTx <ADVFLG,SAVPGM,FIXON,ADVTNM,ADVME8S,BREAK1,ESCPSI,JXFNSIL,QTAPSI,QTADxSP>
QEXT <CUUO>
QEXT <ERRET,NESC8>
QEXT <FSTAT>
XQEXT <ERRMF>
QEXxT <CSBUF>
QEXT <	%EDAYT>
QEXT <AC	8CT,PASSX,PASWD,PA	XSLIN,PASFLD>
QEX	xT <CHRTBL>
QEXT 
<JOBOPC>
QEXT <.
8BACKS,.SKIP,.EOF,
X.REWIN,.UNLOA>
Q
xEXT <CSCAN>
QEXT <.CREF,.EXECU,.C8OMPI,.DEBUG,.LOADX,OCCLF,GOTO2,CLOPxAT,DOCCL,DOCC1,DO
CC2>
QEXT <CSVC>
8
QEXT <MALCHK,MA
XLWEN,MINT0,MWATCF
x,MWATCH,MAILF> ;M
QEXTB<
QEXT><NETARPANET
QEXT <QTIMES,SNAMES,SYSVER,JOBRT,8TTYJOB,NETRDY>
QXEXT <GETAMT,CHKPTxY>
QEXT <LRFSTS>
;**;[713] Add 18 line at QEXT<LRFXSTS>+1	24-MAR-82	xPED
QEXT <MONVER>				;[713] V4.1
; CRJOB/PRARG
X
QEXT <CRPRA,..STxCR,MESS>

; Archive system

QE8XT <.ARCHI,CANARCX,.DISCA,.RETRI,FTxDBLK,ARCBLK>

; Extended feature8s

QEXT <.DOWNTX,.KFRKC,.NOLM>
QxEXT <.RDIRE,.WDIRE,.QD,ALRCHK,MALC8HK,IITPSI,TYPING,XAUTOF,IITSET>
QExXT <MALBUF,MWATAT,MWATCT,MWATDR,MW8ATWR,MWATN,MWATN0X,ALRTIM,ALRTMS>
xQEXT <RUNFK,IDFORK,EDFORK,FRKTAB,S8LFTAB,FRKNMS,KEPNXMS,FRKDEF,SFKNAM>x
QEXT <.FREEZ,.UNKEE,.NAME,.KEEP,8UTTYMD,RFTYMD,FTTXYMD,REASON>
QEXTx <RSTFK,REPH,STEPH,REPH1,.ERUN,.BL8ANK,BLANK1,KEFORKX,GETILI,DWNPNT>
xQEXT <.DO,.KMIC,MICFRK,PAGEMI,MICF8PG,MICPAG,GETPAG>X
QEXT <.GOTO,.BAxCKTO,.ERROR,.IF,.NOERROR,.OPERATOR8,.NOOPERATOR>
QEXXT <ADDNAM>
QEXTx <CCKEEP>

;Programmable Command8 Language

QEXTX <CTBL1,PCCURC,PCxFLAG,PCTXFR,PCSFRE,PCLSTF,PCVVAL>
QEXT <PCFLDB,.DEXCLA,.UNDEC,PCMXCTx,PCMPOP,PCMPOS,PCMPRS>
QEXT <PCIN8IT,PCCCPL,PCIDFV,XPCIUDF,PCIRUN,PCExXCT,SUBNAM>
QEXT <PCMPSI,PCMPSO,P8CIPSO,PCPOTP,PCPRXGR,WFORKX,.PCLOB>x
QEXT <PCIINF,SINVAR,SSTVAR,PCISG8S,.PCLVR,PCIDGS,PXCICLP>
QEXT <PCCxWKE,PCRPAS,PCLDCO,PCIWEV,$SDEF,PCI8GEV>
QEXT <CIN2,XPCIDFS,PCIFGS,WAIxTA,PCLPMT>
QEXT  <PCIPSV,PCFLDP,PC 8LGST,CUSTMF>
QEX XT <CHNS,CHNTAB,CM x1DB,CM1DBE,CTBL2>!
QEXT <TDEFAU,$S!8ETO,$SETN,$SFILE,!X$SFNO>
QEXT <$RS!xFD,$SVFD,$INFO>
"QEXT <CRDSET,IVOL"8,NTRAP,SETSRM,SPL"XINF,SPLSET>
QEXT"x <SYSINF,TAPINF,T#RMPNT,.ADBRK,.ADD#8RE,.ALERT>
QEXT #X<.ALRST,.ARSTS,.A#xUTOM,.CIDLY,.CTRL$C,.DEFAU>
QEXT <$8.DEPOS,.ENTRY,.EX$XAMI,.EXECM,.FEXP,$x.FILEV>
QEXT <.F%LINX,.FLONX,.FPRO%8H,.FRESI,.IARPA,.%XIDECN>
QEXT <.IN%xVIS,.LOCAT,.MALST&,.MWATC,.NODEF,.N&8OTIM>
QEXT <.OFL&X,.PAC,.PAXL,.PRES&xE,.SDIR,.SETNO,.S'FILE>
QEXT <.SFN'8O,.SISTA,.TAPE,.T'XERMI,.TIME,.TKD>
QEXT <.TRAP,.TYP(EO,.VISIB>
QEXT (8<.EPHM,.FRKST,SAV(XSWI,.CTRAC,.ORIGI(x,.SDDCL>
QEXT <.)INDEF,.SEDEF,.STM)8LM,$SET0>
QEXT <)X$CONFD,$CONF1,$CM)xODE>
QEXT <.SAVT*,CMDCHT,CMDCHR>
*8QEXT <MSEPSI,READ*X1,PCWAIT>
QEXT <*xRESET0,.RESE2,.RE+SS1,.RESST>
QEXT+8 <$FRKNM,$NODEF>

	.CREF
	LIST
   REF
	LIST \aIFN XTNDSWIFN XTNDSWqRtL{P q` lat
OPDEF UmA [<%%NUUO>B12]
m@%%NUUO==%%NUUO+1
DEFINE AX(HELP)m`
<	IFNB <HELP>,<n	UA [ASCIZ \HELPn \]
>
	IFB <HELPn@>,<	UA [0]	
>
>
A [0]	
>
sd@P't@ 	+y ga>
	U$ERR [ASCIZ @A@]RR [
v]7P  \k .yy
	$FKFLAG/==<Z 0>		
	A (<B>,0C,D)A (<]7 0	
	$FKHAN=0)=<Z 1>		
	A (<B>,1C,D)A (<^(2 0q	
	$FKRADD1==<Z 2>		
	A (<B>,2C,D)A (<^)9 2A
	$FKRESP2a==<Z 4>		
	A (<B>,4C,D)A (<^+2 1Y
	$FKRMES1y==<Z 3>		
	A (<B>,3C,D)A (<.,W h!B
	U.$ERR [ASCIZ @A@]RR $IRP 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 ^