Google
 

Trailing-Edge - PDP-10 Archives - bb-l014q-bm_tops20_v6_1_atpch17 - autopatch/execde.unv
There are 28 other files named execde.unv in the archive. Click here to see a list.
x
,Se@P B@ CN o9O	IFNB <A>oY,<	UACCT [ASCIZ \oxA\]
>
	IFB <Ap>,<	UACCT [0]	
>
UACCT [0]	
>C5IQ C&. w)O@	IFNB <A>wI,<	UADDR [ASCIZ \whA\]
>
	IFB <Ax>,<	UADDR [0]	
>
UADDR [0]	
>C4:P 
C4\qP C3%PP
	UALTYP [ASCIZ @A@]YP CRmI7P zCSR 8qKG
	JSP CX,.SAVT
	JSP CX,CW%{P ,CW%{	P CW%{	P D@ Ee@P E'%[P ENf: L!Lh	IFNB <A>LA,<	UBSLSH [ASCIZ L`\A\]
>
	IFB <MA>,<	UBSLSH [0]	
>
BSLSH [0]	LSDREV2P&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". liNl	IFNB <A>m	,<	UCHAR [ASCIZ \m(A\]
>
	IFB <AmH>,<	UCHAR [0]	
>
UCHAR [0]	
>G6
(` yPw.CMABC+SBLOCK.CMABC+SBLG6
, 9Ps.CMABP+SBLOCK.CMABP+SBLG6
=Q  G6l 
9Pc.CMBFP+SBLOCK.CMBFP+SBLG6*` yQ.CMBRK+FBLOCK.CMBRK+FBLG6k@Q G6XQM`G6mCMDEF+FBLG6$]@Q @G6%@Q  G6.,\ ]	Mn	IFNB <A>]),<	UCMERR [ASCIZ ]H\A\]
>
	IFB <]hA>,<	UCMERR [0]	
>
CMERR[0]	G65IQC`G65I`LAP$.CMFLG+SBLOCK.CMFLG+SBLG65MQCG65lLyP.CMFNP+FBLOCK.CMFNP+FBLG6=(@9P{.CMGJB+SBLOCK.CMGJB+SBLG6EL yQ.CMHLP+FBLOCK.CMHLP+FBLG6Lj Q G6Mh` 
yPg.CMPTR+SBLOCK.CMPTR+SBLG7=Q\G7NyP<.CMRTY+SBLOCK.CMRTY+SBLG7z Q `G7$Q G7%z`Q `G7'
>
	IFB <jxA>,<	UCOLON [0]	
>
COLON [0]	yN-	IFNB <A>e,<	UCOMMA [ASCIZ e8\A\]
>
	IFB <eXA>,<	UCOMMA [0]	
>
COMMA [0]	qL
       CALL CONF      CG@,P G@,;xP G@-	6P G@.<P G@.N8P GCN.: )YJY
	LOC	0
)y	ASCIZ /
COPYRIG*HT (C) BY DIGITAL*8 EQUIPMENT CORPOR*XATION, MAYNARD, M*xASS. 1980,1985
A+LL RIGHTS RESERVED.
/
	RELOCVEGHP GK RiM	IFNB <A>S	,<	UCRR [ASCIZ \S(A\]
>
	IFB <A>SH,<	UCRR [0]	
>
	UCRR [0]	
>
GRyP 
GRd9HP @GRd9IP GSH`P GSI P GSI< PM	IFNB <A>P9,<	UCTRLE [ASCIZ PX\A\]
>
	IFB <PxA>,<	UCTRLE [0]	
>
CTRLE [0]	N@P I MILr	IFNB <A>Mi,<	UDASH [ASCIZ \NA\]
>
	IFB <AN(>,<	UDASH [0]	
>
UDASH [0]	
>I$*:Q @I:=P I$lzP'hI%|SP'pI&>6P'pI QAM	IFNB <A>Qa,<	UDEC [ASCIZ \RA\]
>
	IFB <A>R ,<	UDEC [0]	
>
	UDEC [0]	
>
I63 9Q)	A==:PPTRY		;PCL ALLOCATE TxHIS PAGE AT CURRENT PAGE POINTER
8	B==PPTR_-9	;DEFXINE PAGE NUMBER
x	PPTR==PPTR+C*1000	;STEP TO NEXT 8PAGE SLOT
	IFG PXPTR-DDTFST,<PRINTxX ?Exec page buffers overlapping DDT
>rlapping DI6= [x%m
	A==<-1\B<C>+1B<C-D>> \8
	IF1,<IFDEF %A\X,<PRINTX ?A ALRE\xADY DEFINED>>
	D]EFINE %A (OP,AC,]8Y,MSK)<
	$A==<Z]X B>		
	OP (<AC>,B'Y,MSK)><AC>I7 ^1My	IFNB <A>^Q,<	UDEF [ASCIZ \^pA\]
>
	IFB <A>_,<	UDEF [0]	
>
	UDEF [0]	
>
I7 [aMd	IFNB <A>\,<	UDEV [ASCIZ \\ A\]
>
	IFB <A>\@,<	UDEV [0]	
>
	UDEV [0]	
>
IFN kANb	IFNB <A>ka,<	UDEXT [ASCIZ \lA\]
>
	IFB <Al >,<	UDEXT [0]	
>
UDEXT [0]	
>IYVP I'> cQN#	IFNB <A>cq,<	UDIRS [ASCIZ \dA\]
>
	IFB <Ad0>,<	UDIRS [0]	
>
UDIRS [0]	
>I' b)N	IFNB <A>bI,<	UDIR [ASCIZ \bhA\]
>
	IFB <A>c,<	UDIR [0]	
>
	UDIR [0]	
>
I?' gINB	IFNB <A>gi,<	UDOT [ASCIZ \hA\]
>
	IFB <A>h(,<	UDOT [0]	
>
	UDOT [0]	
>
IR
:P IRNn paO
	IFNB <A>q,<	UDTIV [ASCIZ \q A\]
>
	IFB <Aq@>,<	UDTIV [0]	
>
UDTIV [0]	
>IS tYO+	IFNB <A>ty,<	UDTP [ASCIZ \uA\]
>
	IFB <A>u8,<	UDTP [0]	
>
	UDTP [0]	
>
IS vO6	IFNB <A>v!,<	UDTR [ASCIZ \v@A\]
>
	IFB <A>v`,<	UDTR [0]	
>
	UDTR [0]	
>
IS@ VaM:	IFNB <A>W,<	UDT [ASCIZ \AW \]
>
	IFB <A>,<	UDT [0]	
>
K Q K60 4qK'IFN EMCSSWIFN EMCSSWK6<{P KK|@ <1Ke
       U<QERR [ASCIZ @A@]RR [ASCIZ @A@]KKPQ KSN	  ?qK
	UETYPE [ASCIZ A]PE Kc&:=P LDP"LHP!LLP @LPP  LTP LXP$M
eI7P M@P 'M$,\YP'M&d<YP 6M&d^ NqL}	IFNB <A>O,<	UFILE [ASCIZ \O0A\]
>
	IFB <AOP>,<	UFILE [0]	
>
UFILE [0]	
>M&fyP $M,,*sQ M,,HSQ  M,,YQ M,-ZQ  M,- 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< r	O	IFNB <A>r),<	UFNODE [ASCIZ rH\A\]
>
	IFB <rhA>,<	UFNODE [0]	
>
FNODE [0]	,PP%XMJ,\P 6MJ.@P MJ.:=P pO&8; 6qK7ASCIZ \AEXE\ASCIZ \AEOexY YQ-
   IF2,<
	XGLOBS>IF2,<O3F8t -YJo
	SEARCH -yQSRMAC,GLXMAC,ORNMACC,GLXMAC,ORNO?I3 .9Ju
	OPDEF .YA [<B>]
	INTERN AB>]
	INTERNOJ~\P ON~	 /J{
	OPDEF /9A [B]
	INTERN A
	.NODDT A OOI7P OR 0iJ
	CALL [	/yMOVEI A,A	
		CALLRET %GTB]	
AOR%K@P 
Qf WiMD	IFNB <A>X	,<	UHELP [ASCIZ \X(A\]
>
	IFB <AXH>,<	UHELP [0]	
>
UHELP [0]	
>Q&=
P ?QO%X<P 
S,(: 81KC	SKIPN BATCHF
	JRST A
St(: 7qK?	SKIPE BATCHF
	JRST A
SMm@PS'$:PSB,P (SB-3P% SB:P 
SBlP&HSBX<P SB|P ,SB}YP%0SP }AOl
	T <A>,B,C,D!CM%INVYJOh0Nk^~)SS0 ~1OvH
	TV <A>~a,B,C,D!CM%INVB,C,D!CM%INVYMOo0M%INVU
d[@P U,kP  U^+@ :QKU
	ERCAL RJWARN
	ERCAL RU^.	rP yU^.	yP .U_vP WNy $Y<-3P Y0 91KK	MOVX A,B
	MOVX A,Y+y =Ki
	ULERRO [ASCIZ@A@]ROYP	Y`PCZ \f`A\]
>
	IFB <Ag>,<	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 ]<` 2qKIFN NEWFSWIFN NEWFSW]<l{P ]FL`P ]<`P 
]6)yP  ]7<P ]>&:=P ]>-Xy 51K+IFE EMCSSWIFE EMCSSW]>N9  @1L
	UNOI [ASCIZ @A@]OI [A]>dpQ ]>t]s 31KIFE NEWFSWIFE NEWFSW]?RQ ]?Y 41K#IFE SEDSW%IFE SEDSW]?H: 61K3IFE STATSWIFE STATSW]?FKR 21KIFE XTNDSWIFE XTNDSW]CPP ]Nn	yP ]S'2P _' YMO	IFNB <A>Y1,<	UOCT [ASCIZ \YPA\]
>
	IFB <A>Yp,<	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< nNw	IFNB <A>n1,<	UQUOTE [ASCIZ nP\A\]
>
	IFB <npA>,<	UQUOTE [0]	
>
QUOTE [0]	e&:x 09KJRST RSKPJRST RSKPe2N=P&He::=P e:YVP de:|I< s1O!	IFNB <A>sQ,<	URNODE [ASCIZ sp\A\]
>
	IFB <tA>,<	URNODE [0]	
>
RNODE [0]	
e;P g  3qKIFN SEDSW!IFN SEDSWg&=`P g$I3P gYVP g2: JyL]	IFNB <A>K,<	USLASH [ASCIZ K8\A\]
>
	IFB <KXA>,<	USLASH [0]	
>
SLASH [0]	YRP  gRYUP ~gRYVP ~gR[SP gR\yP gR	lWP 0gR. TM'	IFNB <A>T1,<	USTAR [ASCIZ \TPA\]
>
	IFB <ATp>,<	USTAR [0]	
>
USTAR [0]	
>gR@ 5qK/IFN STATSWIFN STATSWgRL{P gR@P ,gRY@P%2gS:=P tgS Z9MY	IFNB <A>ZY,<	USTR [ASCIZ \ZxA\]
>
	IFB <A>[,<	USTR [0]	
>
	USTR [0]	
>
gV;v ;K_	IFB <B>,;1<
		USUBCO [	A
				0]>
	IFNB <;pB>,<
		USUBCO [	A
				B]>
g^N:=P ggH6P h xqO\
	..BITS=y!=0
	IFNB <B>,<.y@.BITS==B>
	IFB y`<C>,<$FOO==.A>
        IFNB <Cz >,<$FOO==C>
IFEz@ D,<XWD [ASCIZ @z`A@],[..BITS!$FOO{]>
IFN D,<XWD [{ D!CM%FW
		ASCIZ{@ @A@],[..BITS!$FOO]>
..BITS!$FYILU0Ri !P
IFNB <BA>,<%%X==B>
IFB `<B>,<%%X==.A>
	[	CM%INV!CM%ABR! CM%FW
		ASCIZ /A/],,%%X
IZ /iP iI  aP

	Z			;FILLED IN BY NEXT T END
	..T==.			;U@SED BY NEXT TENDED BY NEXT TENDi%I7P i]K\P i
e<}P tit@ P
       .!.U==.
        RE@LOC ..T-1
	..U-.`.T,,..U-..T	;FILL IN FIRST WORD OF  TABLE
        RELOC ..U      Ri&l^ hqNM	IFNB <A>i,<	UTIME [ASCIZ \i0A\]
>
	IFB <AiP>,<	UTIME [0]	
>
UTIME [0]	
>i. @i.,;sQ  i/$\SQ iJ AqL
	UTRAP [B	A
		ASCIZ @B@]
		ASCIZ @B@iK:P iRNK +YJa
	CPYRYT
	TITLE A
	SEAR,CH MACSYM,MONSYM
	SALL
	GGLOBSiS<;qP iS<mzP iS=-P iS=[rP iS=\uP iS>VP iS>;VP iX |Of
IFB <C>|!,	T <A:>,B,.A,|@D

IFNB <C>,	|`T <A:>,B,C,D
A:>,B,C,D
 U>qTYPE[ASCIZ`A]PE[ASCIZA]j.,@.j8$\Y8k=tk$L@kLt>kD@pkl\YXk}Kwlk}[0dkkHk&+WDk: @k,0Fk,`Zk.` Vk/
XX SLASHE	
XX BSLSH	
XX E0DASH		
XX FILE		EP
XX CTRLE	
XX DEpEC		
XX CRR		
XFX STAR		
XX WORDF0		
XX DT		
XX HFPELP		
XX OCT		
FpXX STR		
XX DEV	G	
XX CMERR	
XX G0DEF		
XXPUSER		
XX USERS	
XX DIGpR		
XX DIRS		
XHX COMMA	
XX LINEH0		
XX DOT		
XX HPTIME		
XX COLON	Hp
XX DEXT		
XX CIHAR		
XX0QUOTE	
XX ACCT		
XX DTIPIV		
XX FNODE	
IpXX RNODE	
XX DTPJ		
XX DTR		
XX ADDR		
		
XX k:} &k>@ RkC{8 (kG-} rkJuy zkN.,| aN	IFNB <A>a!,<	UUSERS [ASCIZ a@\A\]
>
	IFB <a`A>,<	UUSERS [0]	
>
USERS [0]	YN	IFNB <A>y,<	UUSER [ASCIZ \`A\]
>
	IFB <A`8>,<	UUSER [0]	
>
UUSER [0]	
>kNdt <kO$@ JkO&  TkO,(w :kRMY  jkRNK ,YJi
	TITLE ,yA
	SEARCH MACSYM-,MONSYM
	SALL
	GGLOBS
	SALL
	kS 6kSN	  "kW\@ \kW\Y ^k^~) Lo"fPQ o?N U9M1	IFNB <A>UY,<	UWORD [ASCIZ \UxA\]
>
	IFB <AV>,<	UWORD [0]	
>
UWORD [0]	
>q0 11KIFN XARCSW,IFN XARCSWq<{P qd@Q xqY P%8q\P .q\P q\}P  qexY Y1

	XLIST9
	.XCREF

DEFIXNE QEXT (SYM)<
	xIRP SYM,<
	IFNDEF SYM,<EXTERN SYM8
		SUPPRE SYM>>>X


;**;[3050] xRemove SETUS			DEE		29-OCT-86

Q8EXT <SJLEN,JTAB,JXLEN,CBLOCK,TRAPU,xTRAPD,SAVSP,SAVCM,RESCM>
QEXT <CM8DOUT,CLRALL,CLRBIXT,JSBDEF,SETALL,SxETBIT,SETTRP,COPBTS,RESACS,SAVACS>8
QEXT <SKPON,TRPXPSI,JTAB,SKPNAZ,TxRPOKF,TSTOPF,MRKTRP,GETLPC,FOWNER,8TFILEF,TOPENF>
QXEXT <SNDPDB,MYPIDx,QSRPID,MDAPID>
QEXT <GETPID,GQPI8D,QUASND,SNDMSG,SXNDMS1,IPCRCV,GQSRxPD>
QEXT <IPCON,IPCOFF,IPCINT,CHE8CKM,IPCHEK,NOWPTRX,IPCRCF,IPCWTF,IPxCALF,IPCFND>
QEXT <UNIQUE,IPCTBL,8IPCAGE,IPCFGS,IPCXCTL,INFPID,OLDIDXx,IPCFLM>
;**;[3063] Change 1 line8 at QEXT <DGFRKS>X	JDM	21-Apr-87
QxEXT <DGFRKS,RELHA N,SETENT,SETGO,GE 8TENT,WAITF> ;[306 X3]
QEXT <CIN0>
 xQEXT <FLJFNS>
QE!XT <DOECHO>
QEXT!8 <.MAKE,.TECO,.TV!X>
QEXT <SPEEDA,S!xYSDWN,PRACCT,CKST"AR,GETDVN>
QEXT "8<SBLOCK,FBLOCK>
"XQEXT <%%LVER,%%RV"xER>
QEXT <RJWARN#,REWIND,CJDEV,OPN#8MAG>
QEXT <ABKCN#XT,INFTRM>
QEXT <#x%GETER,DGETER,.ED$IT,.EDITC,.EDITP,$8CSVCC,EDSVB,TECSV$XB,CMAGN>
QEXT <T$xOUT,TOUTD,TBOUT,T%SOUT0,ASOUT,USRCN%8T>
QEXT <DWNTYP,%XSNBLKS,SSIZE,$CHF%xDB,USRNAM,DFUSER,&TTYUSR>
QEXT <.P&8,.PP,COMAND,COMSI&XX,PRGCEL,CIPF,CLF&x,MPENDF,NACL,GLOA'DS,CLSON,BEGINP,S'8VPRMT,ECHCMD>
QE'XXT <HELPSN>
QEXT'x <GETDIR,RELDIR,G(ETDRP,DIRINI>
QE(8XT <.STRST,VERPNT(X,%VERSI>
QEXT <.(xVERSI,EXECV,CMDIN)I,MONSTA,SUBSTA,.)8JOBST,.RUNST,.MEM)XST,.DSKST,.ERRST,)x.FILST,.INFOR,.PI*STA>
QEXT <.PUSH*8,.POP,.UNATT,.IND*XIR>
QEXT <INFER,*xUNMDIR,$CONTI,$LP+TST,GETLPT,FINLPT+8,$REENT>
QEXT <$+XSTART,..CONT,..RE+xEN>
QEXT <MFOUT,,MFSET,MFINP,MFINP,80>
QEXT <SIXPRT,,X.AVAIL,$OPEN7,$OP,xENF,$ERSTR,OPNERR-,ERRFIN,CRIF,LM,%-8MESS,PNTMES>
QEX-XT <LGORET>
QEXT -x<CFGBLK,CFGSIZ>
.QEXT <BEFORE,DEVL.8UP,ECFORK,EDEFIN,.XEOLRET,EPRINT,ESE.xT,.SPEAK,ECEASE,M/ESMES>
QEXT <STA/8YF,ERESET,TRYGTJ,/XDOGET,TRYGTS,TRYG/xTO,TRGTV1,WHY,$GE0T2,$GET0,CRSCAN,$08GTFDB>
QEXT <..S0XTRT,RSPTR,.ACCOU,0x.ADVIS,.APPEN,.AS1SIG,.ATTAC,.BREAK18>
QEXT <.CHANG,.1XCLEAR,.CLOSE,.CLU1xST,.REMAR,.CONNE,2.CONTI,.COPY,.CRE28AT>
QEXT <.ACCES2X,.ENDAC>
QEXT <.2xDAYTI,.DDT,.DEASS3,.DEFIN,.DELET,.D38ETAC>
QEXT <.DIR3XEC,.TDIRE,.FDIRE,3x.VDIRE,.DISAB,.DI4SMO>
QEXT <.EDDT48,.ENABL,.EXPUN,.F4XORK>
QEXT <.GET,4x.HELP,.HOST,.SEND5>
QEXT <.LNLIS,.58LOGIN,GSR,SSR,.LO5XGOU>
QEXT <.MERG5xE,.MOUNT,.PRINT,.6PROTE,.PRINT,.SUB68MI,.IPR,.IBR,.IRR6X,.IMR,.MODIF,.CAN6xCE>
QEXT <.PLOT,7.SDP,.SDPL,.SNDPL78,.SDS,.SNDCS,.SND7XS,.SNDP,.SDC,.SDT7x,.SNDCP,.SNDTP>
8QEXT <.SDCS>
QEX88T <$DEF>
QEXT <.8XIDC,.IDPL,.IDCS,.8xIDP,.IDPRT,.IDS,.9IDALL,.IDPRG,.IDT98AK>
QEXT <.PUNCH9X>
QEXT <.QUIT,DO9xATI>
QEXT <.R,.R:ECEI,.REENT,.REFU:8S,.RENAM,.RESET,.:XRUN>
QEXT <.CSAV:xE,.SAVE,.SET,.STA;RT>
QEXT <.TAKE,;8.TALK,.TYPE,.TRAN;XS,TYPE1,.UNDEL,.U;xNMOU>
QEXT <.JWA<T,IJWSEQ,JWPAG,JW<8PAGL,IJWPSI,WJPTA<XB,JFNGON,XRMBLK,E<xXCBLK,XRMPNT>
QE=XT <ASTTJ,CHKDAL,=8CMDIN2,CMDIN4,CIN=X3,EXEC,JOBREN,JOB=xSA,JOBSYM,JOBDDT>>
QEXT <XEND,.NPA>8GS,EVLEN>
QEXT <>XLEVTAB,REE,SUPER,>x.JOBSY,.TEXEC>
Q?EXT <READY,READY2?8,FIELDX,FLDSKP,CF?XIELD,GETTER,REPAR?xS,SETT20,SAVT20,S@AVNAM,SETMOD,GETM@8OD,SETPRG>
QEXT @X<%KEYW,GETKEY>
Q@xEXT <PRVCK>
QEXTA <%NOI>
QEXT <%SA8BCOM>
QEXT <CONFAX,FCONF,FCONFA>
QAxEXT <SPRTR,BITS>
QEXT <CIOREL,SETB8IOF,TINPF,NOTIO>
QEXT <%$TYPE,$CTBxYPE>
QEXT <COUTFCN,CSAVFN,SPECFN,CC8PFN,CPFNA>
QEXT CX<.INFG,INFGNS,TYPCxFLS,$INFGX,DIRARGD>
QEXT <TYPIF,TYD8POK,GNFIL,NXFILE>DX
QEXT <DEVN,STRNDx,CONST,INDT,LBLSKEP>
QEXT <DIRNAM,E8DIRNMX,CURNAM,CUREXNMS,USRNMS,STPDIREx,STPUSR>
QEXT <AFTSAVR,TOCT,OCTCOMF8,OCTLST>
QEXT <BFXUFFF,GETBUF,RETMEFxM,GETMEM,RETBUF,SGTREM,XFRINI,FREING8I,BCOUNT,GETNOD,CGXSBUFP,DICT,XDICT,GxBUFFS,XBUFFS,GTBUHFX,GETSIX,GETSXB,H8GETASC,FIXPT>
QEHXXT <NOECHO,DOECHOHx,LTTYMD,FIXIO,RTTIYMD>
QEXT <%PRINI8T>
QEXT <COUTC>
QEXT <MAPPF,FRELIx,RANDOM,TYPEXP,TYJPADD,GINSTR,PINSTJ8,RINST,EVAL>
QEXJXT <SYMF,SYMOKF,SOJxFF,SYMBA,SYMEA,SYKMBEG,SYMEND,LASTPK8,NSYMS,SYMBF>
QEKXXT <DBGEXC>
QEXTKx <LOADF>
QEXT <SLTOREF>
QEXT <%GTL8B>
QEXT <DING,CELXRR,NIYE,NIM,SCREWLxUP,JERR,JERRC,CJEMRR,JERRE,CJERRE>
QEXT <%TRAP>
QEMXXT <AUTOLO>
QEXTMx <%ERR,%$ERR,%.$ENRR >
QEXT <RERETN8>
QEXT <%ETYPE>
QEXT <RLJFNS,UNMNxAP,JFNSTK,CLZFFF,OJFNRLA,GTJFS,RJFNO8,PION,PIOFF,ACTRCOXF,INTDF,IINTDF>
OxQEXT <GNJFS,FLOATP>
QEXT <CSZ1,CSZP82,CSZ4>
QEXT <CMPXDACS,REPARA>
QEXPxT <CIJFN,COJFN,JBQUFP,.JBUFP,.J,JBUQ8F,CJFN1,CJFN2>
QQXEXT <TAKLEN,SAVTAQxK,TAKCUR,TAKDEF,TRAKJFN,TAKBTS,PUSHR8IO,ALONOI,ECHNOI>RX
QEXT <INIFH1,INRxIFH2>
QEXT <DPPTS,DPSTK,DSPT,DSSTKS8,DCPT,DCSTK,DPLPTSX,DPLSTK,DTPT,DTSTSxK>
QEXT <EOFDSP,TEOFJER,DATDSP,ILIT8DSP>
QEXT <CIDLYTXF,PAXLFL,CCFLAG>
;**;[3044] Add LUOGINF			DEE		15-JU8UL-86
QEXT <CINIUXTF,LOGINI,LOGINF,UxSYSMF,LOGDAT,FILIVNI,TAKEIN,TAKSYS>V8
;**;[3040] Add VXPOBXNO			DEE		23-VxJUN-86
QEXT <PRVWENF,MESMSF,CUSRNOW8,LIDNO,JOBNO,POBXWXNO>
QEXT <EXDPF,WxEXDPLC,FSTLGN>
QXEXT <FORK,RFORK,DX8DTFLG,NPAGE,EFORKXX,BATCHF,PROG,SNDPXxRG,SDPROG,GETFB1,YANNKEP,INDQUS>
;Y8**;[3017]Add SDECYXHO			DEE		15-OCT-Yx85
QEXT <SDECHO>Z
QEXT <STRTIM,TTZ8YACF,PTTYAC,ALOSTZX,CJPTIM>
QEXT <IZxTTYMD,PTTYMD,ETTY[MD>
QEXT <CERET>[8
QEXT <CTUUO>
Q[XEXT <SSTACK>
QEX[xT <ERCOD>
QEXT <\USERNO,MCOJFN,OUT\8DSG,TYPGRP>
QEXT\X <DEXTBL>
QEXT <\xPD,INISTK,PDLOV,C]BUF,ATMBUF,CBUFE,]8CJFNBK,XTNNUM,XTN]XCNT,ECHPTR,ECHCNT]x,CTRPTR>
QEXT <T^EXTIC,TEXTID,TEXT^8IA>
QEXT <PPATS,^XPPAT,PAGEN>
QEXT^x <LEV1PC,LEV2PC,L_EV3PC,PCTAB>
;QE_8XT <$CTRLA,$CTRLR_X,$CTRLV,$CTRLW,$C_xTRLX,$EOL,$DASH,$`CONT,$RUB>
QEXT `8<$FORMF,$LF,$CONT`X,$TDENS>
QEXT <U`xSEPSI,ILIPSI,EOFPaSI,DATPSI,ICLEAR,a8CCPSI,TLMPSI,ALOPaXSI,COBPSI>
QEXT ax<ADVFLG,SAVPGM,FIbXON,ADVTNM,ADVMESb8,BREAK1,ESCPSI,JFbXNSIL,QTAPSI,QTADSbxP>
QEXT <CUUO>
cQEXT <ERRET,NESC>c8
QEXT <FSTAT>
QcXEXT <FSTOUT>
QEXcxT <ERRMF>
QEXT <dCSBUF>
QEXT <%EDd8AYT>
QEXT <ACCT,dXPASSX,PASWD,PASLIdxN,PASFLD>
QEXT <eCHRTBL>
QEXT <JOe8BOPC>
QEXT <.BACeXKS,.SKIP,.EOF,.REexWIN,.UNLOA>
QEXTf <CSCAN>
QEXT <.f8CREF,.EXECU,.COMPfXI,.DEBUG,.LOAD,OCfxCLF,GOTO2,CLOPAT,gDOCCL,DOCC1,DOCC2g8>
QEXT <CSVC>
QgXEXT <MALCHK,MALWEgxN,MINT0,MWATCF,MWhATCH,MAILF> ;MAILh8 WATCH
QEXT <SUBhXBP>
QEXT <NETRDYhx>				;ARPANET
QEiXT <QTIMES,SNAMESi8,SYSVER,JOBRT,TTYiXJOB,NETRDY>
QEXTix <GETAMT,CHKPTY>
QEXT <LRFSTS>
Qj8EXT <.USEND>
QEXjXT <EDTFIL,EDTINF,jxEDTCRE,EDTOUF,EDTkCFM>

;TERMINALk8-RELATED GLOBALS

;**;[3055] Addkx  VT300		DEE		11-lMAR-87


QEXT l8<$TERMI,$TTYP,$TElXRNO,TTYPTB,BLNKTBlx,NTTYPS,.TTY3>
QmEXT <.T33,.T35,.Tm837,.TI,.FLAG,.FORmXMF,.FULLD,.HALFD,mxTTYHLP,.IMMED,.INnDIC>
QEXT <.LA12n80,.LA30,.LA36,.LAnX38,PLENTH,.LINE,.nxLOWER,.TERNO,.PAGoE,.PAUSE,.RAISE>
QEXT <.SPEED,.DFoXLT,.TABS,.TRMNT,.oxTTYPE,.VK100,.VT0p5,.VT100,.VT102>
QEXT <.VT125,.VTpX131,.VT200,.VT300px,.VT50,.VT52,.VTHq19,.LWIDTH,TTYNTYq8,.TTH19>
QEXT <RqXTTFLG,RTFLG1,.INHqxIB>


; CRJOB/rPRARG

QEXT <CRr8PRA,..STCR,MESS>

; Archive systrxem

QEXT <.ARCHsI,CANARC,.DISCA,.s8RETRI,FTDBLK,ARCBsXLK>

; Extendedsx features

;**;t[30340] Add POBCHt8K		DEE		23-Jun-86tX
QEXT <.RDIRE,.WtxDIRE,.QD,ALRCHK,MuALCHK,IITPSI,POBCu8HK>
QEXT <TYPFINuX,TPCCOC,TPTTYP,TYuxPING,SPRSED,BYTSIvZ,AUTOF,IITSET>
v8QEXT <MALBUF,MWATvXAT,MWATCT,MWATDR,vxMWATWR,MWATN,MWATwN0,ALRTIM,ALRTMS>w8
QEXT <RUNFK,IDFwXORK,EDFORK,FRKTABwx,SLFTAB,FRKNMS,KExPNMS,FRKDEF,SFKNAx8M>
QEXT <.FREEZ,xX.UNKEE,.NAME,.KEExxP,UTTYMD,RFTYMD,FyTTYMD,REASON>
QEy8XT <RSTFK,REPH,STyXEPH,REPH1,.ERUN,.yxBLANK,BLANK1,KEFOzRK,GETILI,DWNPNT>z8
QEXT <.DO,.KMICzX,MICFRK,PAGEMI,MIzxCFPG,MICPAG,GETPA{G,USEPSM>
QEXT <{8.GOTO,.BACKTO,.ER{XROR,.IF,.NOERROR,{x.OPERATOR,.NOOPER|ATOR>
QEXT<ADDN|8AM,.NOLM,.KFRKC>D)A (<^(2 iP8
	$FKRADD	==<Z 2>		
	A (<B>,2C,D)A (<^)9 9PE
	$FKRESPY==<Z 4>		
	A (<B>,4C,D)A (<^+2 QP?
	$FKRMESq==<Z 3>		
	A (<B>,3C,D)A (<.,W >Kq
	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 ^