Google
 
Trailing-Edge - PDP-10 Archives - BB-M836B-BM - 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 !`	IFNB <A>A,<	UACCT [ASCIZ \`A\]
>
	IFB <A>,<	UACCT [0]	
>
UACCT [0]	
>C5IQ C&. #	IFNB <A>#1,<	UADDR [ASCIZ \#PA\]
>
	IFB <A#p>,<	UADDR [0]	
>
UADDR [0]	
>C4:P 

C4\qP C3%PP
	UALTYP [ASCIZ @A@]YP CRmI7P dCSR dQ%
	JSP CX,.SAVT
	JSP CX,CW%{P ,CW%{	P CW%{	P D@ Ee@P E'%[P ENf: x	F	IFNB <A>x),<	UBSLSH [ASCIZ xH\A\]
>
	IFB <xhA>,<	UBSLSH [0]	
>
BSLSH [0]	1DREV2P&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". QK	IFNB <A>q,<	UCHAR [ASCIZ \A\]
>
	IFB <A0>,<	UCHAR [0]	
>
UCHAR [0]	
>G6

(` :QU.CMABC+SBLOCK.CMABC+SBLG6

, :Q.CMABP+SBLOCK.CMABP+SBLG6

=Q  G6l 8A.CMBFP+SBLOCK.CMBFP+SBLG6*` =Qm.CMBRK+FBLOCK.CMBRK+FBLG6k Q G6X Q `G6m 9I.CMCNT+SBLOCK.CMCNT+SBLG6$ <a.CMDAT+FBLOCK.CMDAT+FBLG6$Y@ =i.CMDEF+FBLOCK.CMDEF+FBLG6$]@Q @G6%@Q  G6.,\ qM	IFNB <A>	,<	UCMERR [ASCIZ 	0\A\]
>
	IFB <	PA>,<	UCMERR [0]	
>
CMERR`[0]	G65IQ@`G65I`@0).CMFLG+SBLOCK.CMFLG+SBLG65MQUOG65l;Q].CMFNP+FBLOCK.CMFNP+FBLG6=(@ ;Y.CMGJB+SBLOCK.CMGJB+SBLG6EL <Qe.CMHLP+FBLOCK.CMHLP+FBLG6Lj Q G6Mh` 9QM.CMINC+SBLOCK.CMINC+SBLG6Mj Q G6Mz@ /i~.CMIOJ+SBLOCK.CMIOJ+SBLG6\^ P G6uyQ @G6uz Q @G6v[ Q  G6v^Q G6|j Q  G7L@ 8QE.CMPTR+SBLOCK.CMPTR+SBLG7=Q  G7N  7Q=.CMRTY+SBLOCK.CMRTY+SBLG7z Q `G7$Q G7%z`Q `G7'
>
	IFB <`A>,<	UCOLON [0]	
>
COLON [0]	a

	IFNB <A>,<	UCOMMA [ASCIZ  \A\]
>
	IFB <@A>,<	UCOMMA [0]	
>
COMMA [0]	Ye
       CALL CONF      CG@,P G@,;xP G@-	6P G@.<P G@.N8P GHP GK ~Q{	IFNB <A>~q,<	UCRR [ASCIZ \A\]
>
	IFB <A>0,<	UCRR [0]	
>
	UCRR [0]	
>
GRyP 
GRd9HP @GRd9IP GSH`P GSI P GSI< |f	IFNB <A>|!,<	UCTRLE [ASCIZ |@\A\]
>
	IFB <|`A>,<	UCTRLE [0]	
>
CTRLE [0]	N@P I y1Q	IFNB <A>yQ,<	UDASH [ASCIZ \ypA\]
>
	IFB <Az>,<	UDASH [0]	
>
UDASH [0]	
>I$*:Q @I:=P I$lzP'hI%|SP'pI&8 P I&>6P'pI })p	IFNB <A>}I,<	UDEC [ASCIZ \}hA\]
>
	IFB <A>~,<	UDEC [0]	
>
	UDEC [0]	
>
I63 >	A==:PPTR>1		;PCL ALLOCATE T>PHIS PAGE AT CURRE>pNT PAGE POINTER
?	B==PPTR_-9	;DEF?0INE PAGE NUMBER
?P	PPTR==PPTR+C*10?p00	;STEP TO NEXT @PAGE SLOT
	IFG P@0PTR-DDTFST,<PRINT@PX ?Exec page buff@pers overlapping DDT
>rlapping DI6= h"
	A==<-1B<C>+1B<C-D>> (
	IF1,<IFDEF %AH,<PRINTX ?A ALREhADY DEFINED>>
	D EFINE %A (OP,AC, (Y,MSK)<
	$A==<Z H B>		
	OP (<AC>,B'Y,MSK)><AC>I7 
W	IFNB <A>
9,<	UDEF [ASCIZ \
XA\]
>
	IFB <A>
x,<	UDEF [0]	
>
	UDEF [0]	
>
I7 IB	IFNB <A>i,<	UDEV [ASCIZ \A\]
>
	IFB <A>(,<	UDEV [0]	
>
	UDEV [0]	
>
IFN )@	IFNB <A>I,<	UDEXT [ASCIZ \hA\]
>
	IFB <A>,<	UDEXT [0]	
>
UDEXT [0]	
>IYVP 
I'> 9	IFNB <A>Y,<	UDIRS [ASCIZ \xA\]
>
	IFB <A>,<	UDIRS [0]	
>
UDIRS [0]	
>I' w	IFNB <A>1,<	UDIR [ASCIZ \PA\]
>
	IFB <A>p,<	UDIR [0]	
>
	UDIR [0]	
>
I?' 1!	IFNB <A>Q,<	UDOT [ASCIZ \pA\]
>
	IFB <A>,<	UDOT [0]	
>
	UDOT [0]	
>
IR

:P IRNn Ij	IFNB <A>i,<	UDTIV [ASCIZ \A\]
>
	IFB <A(>,<	UDTIV [0]	
>
UDTIV [0]	
>IS  A
	IFNB <A> a,<	UDTP [ASCIZ \!A\]
>
	IFB <A>! ,<	UDTP [0]	
>
	UDTP [0]	
>
IS !i	IFNB <A>"	,<	UDTR [ASCIZ \"(A\]
>
	IFB <A>"H,<	UDTR [0]	
>
	UDTR [0]	
>
IS@ I	IFNB <A>i,<	UDT [ASCIZ \A\]
>
	IFB <A>,<	UDT [0]	
>
K Q K60 `QIFN EMCSSWIFN EMCSSWK6<{P KK|@ hC
       Uh9ERR [ASCIZ @A@]RR [ASCIZ @A@]KKPQ KSN	  kY]
	UETYPE [ASCIZ A]PE Kc&:=P LDP"LHP!LLP @LPP  LTP LXP$M
eI7P M@P 'M$,\YP'M&d<YP 2M&d^ zY[	IFNB <A>zy,<	UFILE [ASCIZ \{A\]
>
	IFB <A{8>,<	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< qu	IFNB <A>,<	UFNODE [ASCIZ 0\A\]
>
	IFB <PA>,<	UFNODE [0]	
>
FNODE [0]	,PP%HMJ,\P 2MJ.@P MJ.:=P pO&8; bQASCIZ \AEXE\ASCIZ \AEOexY A1
   IF2,<
	XGLOBS>IF2,<O3F8t ZYW
	SEARCH ZyQSRMAC,GLXMAC,ORNMACC,GLXMAC,ORNO?I3 [9]
	OPDEF [YA [<B>]
	INTERN AB>]
	INTERNOJ~\P ON~	 \c
	OPDEF \9A [B]
	INTERN A
	.NODDT A OOI7P OR 2OR%K@P 	Qf Q#	IFNB <A>q,<	UHELP [ASCIZ \A\]
>
	IFB <A0>,<	UHELP [0]	
>
UHELP [0]	
>Q&=

P ?S,(: d!	SKIPN BATCHF
	JRST A
St(: cQ	SKIPE BATCHF
	JRST A
SMm@PS'$:P (SB-3P% SB:P 

SBlP&8SBX<P SP ))J0 
	T <A>,B,C,D!CM%INV#F0j9eSS0 *T0P
	TV <A>*I,B,C,D!CM%INVB,C,D!CM%INV#M0M%INVU
d[@P U,kP  U^+@ f93
	ERCAL RJWARN
	ERCAL RWNy $Y<-3P Y0 e)	MOVX A,B
	MOVX A,Y+y hyG
	ULERRO [ASCIZ@A@]ROYP	Y`PCZ \HA\]
>
	IFB <Ah>,<	ULINE [0]	
>
ULINE [0]	
>Y>=ySP YXtH:P YXt[sP YXt\qP YXuP YXuP YXvvP YXv{P YXvP YXvLXP [E)WP [& _Q}IFN MICSWIFN MICSW[&=`P [2-`P [2u0P [2|pP [FL@P ]fL`P ]sQ ]<` ^QuIFN NEWFSWIFN NEWFSW]<l{P ]FL`P ]<`P 

]6)yP  ]7<P ]>-Xy a	IFE EMCSSWIFE EMCSSW]>N9  la
	UNOI [ASCIZ @A@]OI [A]>dpQ ]>m` `IFE MICSWIFE MICSW]>t]s _yIFE NEWFSWIFE NEWFSW]?H: bIFE STATSWIFE STATSW]?FKR ^qIFE XTNDSWIFE XTNDSW]CPP ]Nn	yP ]S'2P _' y-	IFNB <A>,<	UOCT [ASCIZ \8A\]
>
	IFB <A>X,<	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< yU	IFNB <A>,<	UQUOTE [ASCIZ 8\A\]
>
	IFB <XA>,<	UQUOTE [0]	
>
QUOTE [0]	e&:x ]9kJRST RSKPiJRST RSKPe2N=P&8e:|I< 	IFNB <A>9,<	URNODE [ASCIZ X\A\]
>
	IFB <xA>,<	URNODE [0]	
>
RNODE [0]	
e;P gYVP 
g2: va<	IFNB <A>w,<	USLASH [ASCIZ w \A\]
>
	IFB <w@A>,<	USLASH [0]	
>
SLASH [0]	. y	IFNB <A>,<	USTAR [ASCIZ \8A\]
>
	IFB <AX>,<	USTAR [0]	
>
USTAR [0]	
>gR@ aQIFN STATSWgRL{P gS:=P dgS !8	IFNB <A>A,<	USTR [ASCIZ \`A\]
>
	IFB <A>,<	USTR [0]	
>
	USTR [0]	
>
gV;v fy=	IFB <B>,g<
		USUBCO [	A
				0]>
	IFNB <gXB>,<
		USUBCO [	A
				B]>
g^N:=P ggH6P h $Y:0
	..BITS=%	=0
	IFNB <B>,<.%(.BITS==B>
	IFB %H<C>,<$FOO==.A>
        IFNB <C&>,<$FOO==C>
IFE&( D,<XWD [ASCIZ @&HA@],[..BITS!$FOO&h]>
IFN D,<XWD ['D!CM%FW
		ASCIZ'( @A@],[..BITS!$FOO]>
..BITS!$F#30Ri +	`
IFNB <B+)>,<%%X==B>
IFB +H<B>,<%%X==.A>
+h	[	CM%INV!CM%ABR!,CM%FW
		ASCIZ /A/],,%%X
IZ /iP iI  ,Ij
	Z			;FI,iLLED IN BY NEXT T-END
	..T==.			;U-(SED BY NEXT TENDED BY NEXT TENDi%I7P i]K\P i
e<}P dit@ -ix
       ..	.U==.
        RE.(LOC ..T-1
	..U-..H.T,,..U-..T	;FILL.h IN FIRST WORD OF/ TABLE
        RELOC ..U      Ri&l^ Y+	IFNB <A>y,<	UTIME [ASCIZ \A\]
>
	IFB <A8>,<	UTIME [0]	
>
UTIME [0]	
>i. @i.,;sQ  i/$\SQ iJ mYo
	UTRAP [my	A
		ASCIZ @B@]
		ASCIZ @B@iK:P iRNK YYQ
	TITLE YyA
	SEARCH MACSYMZ,MONSYM
	SALL
	GGLOBS
	SALL
	iS<;qP iS<mzP iS=-P iS=[rP iS=\uP iS>VP iS>;VP iX 'iD
IFB <C>(	,	T <A:>,B,.A,((D

IFNB <C>,	(HT <A:>,B,C,D
A:>,B,C,D
 UjYTYPE[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= pY/
XX SLASHpy	
XX BSLSH	
XX qDASH		
XX FILE		q8
XX CTRLE	
XX DqXEC		
XX CRR		
XqxX STAR		
XX WORDr		
XX DT		
XX Hr8ELP		
XX OCT		
rXXX STR		
XX DEV	rx	
XX CMERR	
XX sDEF		
XX8USER		
XX USERS	
XX DIsXR		
XX DIRS		
XsxX COMMA	
XX LINEt		
XX DOT		
XX t8TIME		
XX COLON	tX
XX DEXT		
XX CtxHAR		
XXQUOTE	
XX ACCT		
XX DTu8IV		
XX FNODE	
uXXX RNODE	
XX DTPux		
XX DTR		
XX ADDR		
		
XX k:} &k>@ RkC{8 (kG-} rkJuy zkN.,| 

il	IFNBS<A>
>
	IFB<<SERS [0]	
>
USERS [0]	Ab	IFNB <A>a,<	UUSER [ASCIZ \

A\]
>
	IFB <A

 >,<	UUSER [0]	
>
UUSER [0]	
>kNdt <kO$@ JkO&  TkO,(w :kRMY  jkS 6kSN	  "kW\@ \kW\Y ^k^~) Lo"fPQ o?N !	IFNB <A>A,<	UWORD [ASCIZ \`A\]
>
	IFB <A>,<	UWORD [0]	
>
UWORD [0]	
>q0 AqIFN XARCSW,IFN XARCSWq<{P qd@Q xqY P%(q\P *q\P q\}P  qexY B1"k

	XLISTBQ
	.XCREF

DEFIBpNE QEXT (SYM)<
	CIRP SYM,<
	IFNDEC0F SYM,<EXTERN SYMCP
		SUPPRE SYM>>>Cp

   STAT,<
QEDXT <STPTR>
   >;D0STAT

QEXT <CLRDPALL,CLRBIT,JSBDEFDp,SETALL,SETBIT,SEETTRP,COPBTS,RESACE0S,SAVACS>
QEXT <EPSKPON,TRPPSI,JTABEp,SKPNAZ,TRPOKF,TSFTOPF,MRKTRP,GETLPF0C,FOWNER,TFILEF,TFPOPENF>
QEXT <SNDFpPDB,MYPID,QSRPID,GMDAPID>
QEXT <GEG0TPID,GQPID,QUASNDGP,SNDMSG,SNDMS1,IPGpCRCV,GQSRPD>
QEXHT <IPCON,IPCOFF,IH0PCINT,CHECKM,IPCHHPEK,NOWPTR,IPCRCF,HpIPCWTF,IPCALF,IPCIFND>
QEXT <UNIQUI0E,IPCTBL,IPCAGE,IIPPCFGS,IPCCTL,INFPIpID,OLDIDX,IPCFLM>J
QEXT <DGFRKS,SEJ0TENT,SETGO,GETENTJP,WAITF>
QEXT <.MJpAKE,.TECO,.TV>
QKEXT <SPEEDA,SYSDWK0N,PRACCT,CKSTAR,GKPETDVN>
QEXT <SBLKpOCK,FBLOCK>
QEXTL <%%LVER,%%RVER>
QEXT <RJWARN,REWLPIND,CJDEV,OPNMAG>Lp
QEXT <ABKCNT,INMFTRM>
QEXT <%GETM0ER,DGETER,.EDIT,.MPEDITC,CSVCC,EDSVBMp,TECSVB,CMAGN>
QNEXT <TOUT,TOUTD,TN0BOUT,TSOUT0,USRCNNPT>
QEXT <DWNTYP,NpSNBLKS,SSIZE,$CHFODB,USRNAM,TTYUSR>O0
;**;	[722]	ChanOPge 1 line	6-APR-8Op2	KR
QEXT <.P,.PPP,COMAND,COMSIX,PP0RGCEL,CIPF,CLF,MPPPENDF,NACL,GLOADS,PpCLSON,BEGINP,SVPRQMT,ECHCMD>	;[722]Q0
QEXT <GETDIR,REQPLDIR,GETDRP,DIRINQpI>
QEXT <.STRST,RVERPNT,%VERSI>
QR0EXT <.VERSI,EXECVRP,CMDINI,MONSTA,SURpBSTA,.JOBST,.RUNSST,.MEMST,.DSKST,.S0ERRST,.FILST,.INFSPOR,.PISTA>
QEXT Sp<.PUSH,.POP,.UNATTT,.INDIR>
QEXT <T0INFER,UNMDIR,$CONTPTI,$LPTST,GETLPT,TpFINLPT,$REENT>
QUEXT <$START,..CONU0T,..REEN>
QEXT <UPMFOUT,MFSET,MFINPUp,MFINP0>
QEXT <SVIXPRT,.AVAIL,$OPEV0N7,$OPENF,$ERSTR,VPOPNERR,ERRFIN,CRIVpF,LM,%MESS,PNTMESW>
QEXT <BEFORE,DW0EVLUP,ECFORK,EDEFWPIN,EOLRET,EPRINT,WpESET,.SPEAK,ECEASXE,MESMES>
;**;[7X038] Change 1 lineXP at QEXT STAYF,..Xp.:	KR	2-JUN-82
QYEXT <STAYF,ERESETY0,TRYGTJ,DOGET,TRYYPGTS,TRYGTO,TRGTV1Yp,WHY,$GET2,$GET0,ZCRSCAN,$GTFDB>	;[Z0738]
QEXT <..STRZPT,RSPTR,.ACCOU,.AZpDVIS,.APPEN,.ASSI[G,.ATTAC,.BREAK>
QEXT <.CHANG,.CL[PEAR,.CLOSE,.REMAR[p,.CONNE,.CONTI,.C\OPY,.CREAT>
QEXT\0 <.ACCES,.ENDAC>
QEXT <.DAYTI,.DD\pT,.DEASS,.DEFIN,.]DELET,.DETAC>
QE]0XT <.DIREC,.TDIRE]P,.FDIRE,.VDIRE,.D]pISAB,.DISMO>
QEX^T <.EDDT,.ENABL,.^0EXPUN,.FORK>
QEX^PT <.GET,.HELP,.SE^pND>
QEXT <.LNLIS_,.LOGIN,GSR,SSR,._0LOGOU>
QEXT <.ME_PRGE,.MOUNT,.PRINT_p,.PROTE,.PRINT,.S`UBMI,.IPR,.IBR,.I`0RR,.IMR,.MODIF,.C`PANCE>
QEXT <.PLO`pT,.SDP,.SDPL,.SNDaPL,.SDS,.SNDCS,.Sa0NDS,.SNDP,.SDC,.SaPDT,.SNDCP,.SNDTP>ap
QEXT <.SDCS>
QbEXT <$DEF>
QEXT b0<.IDC,.IDPL,.IDCSbP,.IDP,.IDPRT,.IDSbp,.IDALL,.IDPRG,.IcDTAK>
QEXT <.PUNc0CH>
QEXT <.QUIT,cPDOATI>
QEXT <.R,cp.RECEI,.REENT,.REdFUS,.RENAM,.RESETd0,.RUN>
QEXT <.CSdPAVE,.SAVE,.SET,.SdpTART>
QEXT <.TAKeE,.TALK,.TYPE,.TRe0ANS,TYPE1,.UNDEL,eP.UNMOU>
QEXT <ASepTTJ,CHKDAL,CMDIN2f,CMDIN4,CIN3,EXECf0,JOBREN,JOBSA,JOBfPSYM,JOBDDT>
QEXTfp <XEND,.NPAGS,EVLgEN>
QEXT <LEVTABg0,REE,SUPER,.JOBSYgP,.TEXEC>
QEXT <RgpEADY,READY2,FIELDh,FLDSKP,CFIELD,GEh0TTER,REPARS,SETT2hP0,SAVT20,SAVNAM,ShpETMOD,GETMOD,SETPiRG>
QEXT <%KEYW,i0GETKEY>
QEXT <PRiPVCK>
QEXT <%NOI>ip
QEXT <%SBCOM>
jQEXT <CONF,FCONF,j0FCONFA>
QEXT <SPjPRTR,BITS>
QEXT <jpCIOREL,SETIOF,TINkPF,NOTIO>
QEXT <k0%$TYPE,$CTYPE>
QkPEXT <COUTFN,CSAVFkpN,SPECFN,CPFN,CPFlNA>
QEXT <.INFG,l0INFGNS,TYPFLS,$INlPFGX,DIRARG>
QEXTlp <TYPIF,TYPOK,GNFmIL,NXFILE>
QEXT m0<DEVN,CONST,INDT,mPLBLSKP>
QEXT <DImpRNAM,DIRNMX,CURNAnM,CURNMS,USRNMS,Sn0TPDIR,STPUSR>
QEnPXT <ATSAVR,TOCT,OnpCTCOM,OCTLST>
QEoXT <BUFFF,GETBUF,o0RETMEM,GETMEM,REToPBUF,STREM,XFRINI,opFREINI,BCOUNT,GETpNOD,CSBUFP,DICT,Xp0DICT,BUFFS,XBUFFSpP,GTBUFX,GETSIX,GEppTSXB,GETASC,FIXPTq>
QEXT <NOECHO,Dq0OECHO,LTTYMD,FIXIqPO,RTTYMD>
QEXT <qp%PRINT>
QEXT <COrUTC>
QEXT <MAPPFr0,FREL,RANDOM,TYPErPXP,TYPADD,GINSTR,rpPINST,RINST,EVAL>s
QEXT <SYMF,SYMOs0KF,SOFF,SYMBA,SYMsPEA,SYMBEG,SYMEND,spLASTP,NSYMS,SYMBFt>
QEXT <LOADF>
t0QEXT <STOREF>
QEtPXT <%GTB>
QEXT <tpDING,CERR,NIYE,NIuM,SCREWUP,JERR,JEu0RRC,CJERR,JERRE,CuPJERRE>
QEXT <%TRupAP>
QEXT <AUTOLOv>
QEXT <%ERR,%$Ev0RR,%.$ERR >
QEXTvP <RERET>
QEXT <%vpETYPE>
QEXT <RLJwFNS,UNMAP,JFNSTK,w0CLZFFF,JFNRLA,GTJwPFS,RJFN,PION,PIOFwpF,ACTRCF,INTDF,IIxNTDF>
QEXT <FLOAx0T>
QEXT <CSZ1,CSxPZ2,CSZ4>
QEXT <CxpMDACS,REPARA>
QEyXT <CIJFN,COJFN,Jy0BUFP,.JBUFP,.J,JByPUF,CJFN1,CJFN2>
ypQEXT <TAKLEN,TAKCzUR,TAKDEF,TAKJFN,z0TAKBTS,PUSHIO,ALOzPNOI,ECHNOI>
QEXTzp <INIFH1,INIFH2>
QEXT <DPPT,DPSTK{0,DSPT,DSSTK,DCPT,{PDCSTK,DPLPT,DPLST{pK,DTPT,DTSTK>
QE|XT <EOFDSP,EOFJER|0,DATDSP,ILIDSP>
|PQEXT <CIDLYF,PAXL|pFL,CCFLAG>
QEXT }<CINITF,LOGINI,SY}0SMF,LOGDAT,FILINI}P,TAKEIN>
QEXT <P}pRVENF,MESMSF,CUSR~NO,LIDNO,JOBNO>
~0QEXT <EXDPF,EXDPL~PC>
;**;[735] Cha~pnge 1 line at DEFINE QEXT + 101L	K0R	17-MAY-82
QEXTP <FORK,RFORK,DDTFpLG,NPAGE,EFORK,BATCHF,PROG,SNDPRG,0SDPROG,GETFB1,ANNPKEP,INDQUS>	;[735p]
QEXT <STRTIM,TTYACF,PTTYAC,ALOS0T,CJPTIM>
QEXT <PITTYMD,PTTYMD,ETTpYMD>
QEXT <CERET>
QEXT <CTUUO>
0QEXT <SSTACK>
QEPXT <ERCOD>
QEXT p<USERNO,MCOJFN,OUTDSG,TYPGRP>
QEX0T <DEXTBL>
QEXT P<PD,INISTK,PDLOV,pCBUF,ATMBUF,CBUFE,CJFNBK,XTNNUM,XT0NCNT,ECHPTR,ECHCNPT,CTRPTR>
QEXT <pTEXTIC,TEXTID,TEXTIA>
QEXT <PPATS0,PPAT,PAGEN>
QEXPT <LEV1PC,LEV2PC,pLEV3PC,PCTAB>
;QEXT <$CTRLA,$CTRL0R,$CTRLV,$CTRLW,$PCTRLX,$EOL,$DASH,p$CONT,$RUB>
QEXT <$FORMF,$LF,$CON0T,$TDENS>
QEXT <PUSEPSI,ILIPSI,EOFpPSI,DATPSI,ICLEAR,CCPSI,TLMPSI,ALO0PSI,COBPSI>
QEXTP <ADVFLG,SAVPGM,FpIXON,ADVTNM,ADVME	S,BREAK1,ESCPSI,J	0FNSIL,QTAPSI,QTAD	PSP>
QEXT <CUUO>
QEXT <ERRET,NESC
>
QEXT <FSTAT>

0QEXT <ERRMF>
QEX
PT <CSBUF>
QEXT <
p%EDAYT>
QEXT <ACCT,PASSX,PASWD,PA0SLIN,PASFLD>
QEXPT <CHRTBL>
QEXT p<JOBOPC>
QEXT <.

BACKS,.SKIP,.EOF,

0.REWIN,.UNLOA>
Q

PEXT <CSCAN>
QEXT

pO<.CREF,.EXECU,.C
QEXT <CSVC>
QEXT <MALCHK,MA0LWEN,MINT0,MWATCFP,MWATCH,MAILF> ;MpAIL WATCH
QEXT <SUBBP>
QEXT <NET0RDY>				;ARPANET
QEXT <QTIMES,SNApMES,SYSVER,JOBRT,TTYJOB,NETRDY>
Q0EXT <GETAMT,CHKPTPY>
QEXT <LRFSTS>p
;**;[713] Add 1 line at QEXT<LRF0STS>+1	24-MAR-82	PPED
QEXT <MONVERp>				;[713] V4.1
; CRJOB/PRARG
0
QEXT <CRPRA,..STPCR,MESS>

; Arcphive system

QEXT <.ARCHI,CANARC0,.DISCA,.RETRI,FTPDBLK,ARCBLK>

;p Extended features

QEXT <.DOWNT0,.KFRKC,.NOLM>
QPEXT <.RDIRE,.WDIRpE,.QD,ALRCHK,MALCHK,IITPSI,TYPING,0AUTOF,IITSET>
QEPXT <MALBUF,MWATATp,MWATCT,MWATDR,MWATWR,MWATN,MWATN00,ALRTIM,ALRTMS>
PQEXT <RUNFK,IDFORpK,EDFORK,FRKTAB,SLFTAB,FRKNMS,KEPN0MS,FRKDEF,SFKNAM>P
QEXT <.FREEZ,.UpNKEE,.NAME,.KEEP,UTTYMD,RFTYMD,FTT0YMD,REASON>
QEXTP <RSTFK,REPH,STEPpH,REPH1,.ERUN,.BLANK,BLANK1,KEFORK0,GETILI,DWNPNT>
PQEXT <.DO,.KMIC,MpICFRK,PAGEMI,MICFPG,MICPAG,GETPAG>0
QEXT <.GOTO,.BAPCKTO,.ERROR,.IF,.pNOERROR,.OPERATOR,.NOOPERATOR>
QE0XT <ADDNAM>
QEXTP <CCKEEP>

;Propgrammable Command Language

QEXT0 <CTBL1,PCCURC,PCPFLAG,PCTXFR,PCSFRpE,PCLSTF,PCVVAL>
QEXT <PCFLDB,.DE0CLA,.UNDEC,PCMXCTP,PCMPOP,PCMPOS,PCpMPRS>
QEXT <PCINIT,PCCCPL,PCIDFV,0PCIUDF,PCIRUN,PCEPXCT,SUBNAM>
QEXTp <PCMPSI,PCMPSO,PCIPSO,PCPOTP,PCPR0GR,WFORKX,.PCLOB>P
QEXT <PCIINF,SIpNVAR,SSTVAR,PCISG S,.PCLVR,PCIDGS,P 0CICLP>
QEXT <PCC PWKE,PCRPAS,PCLDCO p,PCIWEV,$SDEF,PCI!GEV>
QEXT <CIN2,!0PCIDFS,PCIFGS,WAI!PTA,PCLPMT>
QEXT !p<PCIPSV,PCFLDP,PC"LGST,CUSTMF>
QEX"0T <CHNS,CHNTAB,CM"P1DB,CM1DBE,CTBL2>"p
QEXT <TDEFAU,$S#ETO,$SETN,$SFILE,#0$SFNO>
QEXT <$RS#PFD,$SVFD,$INFO>
#pQEXT <CRDSET,IVOL$,NTRAP,SETSRM,SPL$0INF,SPLSET>
QEXT$P <SYSINF,TAPINF,T$pRMPNT,.ADBRK,.ADD%RE,.ALERT>
QEXT %0<.ALRST,.ARSTS,.A%PUTOM,.CIDLY,.CTRL%pC,.DEFAU>
QEXT <&.DEPOS,.ENTRY,.EX&0AMI,.EXECM,.FEXP,&P.FILEV>
QEXT <.F&pLINX,.FLONX,.FPRO'H,.FRESI,.IARPA,.'0IDECN>
QEXT <.IN'PVIS,.LOCAT,.MALST'p,.MWATC,.NODEF,.N(OTIM>
QEXT <.OFL(0,.PAC,.PAXL,.PRES(PE,.SDIR,.SETNO,.S(pFILE>
QEXT <.SFN)O,.SISTA,.TAPE,.T)0ERMI,.TIME,.TKD>
QEXT <.TRAP,.TYP)pEO,.VISIB>
QEXT *<.EPHM,.FRKST,SAV*0SWI,.CTRAC,.ORIGI*P,.SDDCL>
QEXT <.*pINDEF,.SEDEF,.STM+LM,$SET0>
QEXT <+0$CONFD,$CONF1,$CM+PODE>
QEXT <.SAVT+p,CMDCHT,CMDCHR>
,QEXT <MSEPSI,READ,01,PCWAIT>
QEXT <,PRESET0,.RESE2,.RE,pSS1,.RESST>
QEXT- <$FRKNM,$NODEF>

	.CREF
	LIST
   REF
	LIST ]inIFN XTNDSWIFN XTNDSWqRtL{P q` n9
OPDEF UnYA [<%%NUUO>B12]
nx%%NUUO==%%NUUO+1
DEFINE AX(HELP)o8
<	IFNB <HELP>,<oX	UA [ASCIZ \HELPox\]
>
	IFB <HELPp>,<	UA [0]	
>
>
A [0]	
>
sd@P't@ 	+y i9K
	U$ERR [ASCIZ @A@]RR [
v]7P  \k 0Q
	$FKFLAG0q==<Z 0>		
	A (<B>,0C,D)A (<]7 1a
	$FKHAN=2=<Z 1>		
	A (<B>,1C,D)A (<^(2 2I
	$FKRADD2i==<Z 2>		
	A (<B>,2C,D)A (<^)9 4#
	$FKRESP49==<Z 4>		
	A (<B>,4C,D)A (<^+2 31
	$FKRMES3Q==<Z 3>		
	A (<B>,3C,D)A (<.,W iyO
	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 ^