Google
 
Trailing-Edge - PDP-10 Archives - tops20-v7-ft-dist1-clock - 7-sources/execde.unv
There are 28 other files named execde.unv in the archive. Click here to see a list.
x
,Si@P B@ CN =aSt	IFNB <A>>,<	UACCT [ASCIZ \> A\]
>
	IFB <A>@>,<	UACCT [0]	
>
UACCT [0]	
>C5IQ C&. EQT3	IFNB <A>Eq,<	UADDR [ASCIZ \FA\]
>
	IFB <AF0>,<	UADDR [0]	
>
UADDR [0]	
>C4:P 

C4\qP C3%PP
	UALTYP [ASCIZ @A@]YP CRmI7P zCSR P9
	JSP CX,.SAVT
	JSP CX,CW%{P ,CW%{	P CW%{	P D@ Ee@P E'%[P ENf: IQZ	IFNB <A>i,<	UBSLSH [ASCIZ \A\]
>
	IFB <(A>,<	UBSLSH [0]	
>
BSLSH [0]	QEDREV2P&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". ;S_	IFNB <A>;1,<	UCHAR [ASCIZ \;PA\]
>
	IFB <A;p>,<	UCHAR [0]	
>
UCHAR [0]	
>G#:P G#m6P ?G6

(` ]!Uj.CMABC+SBLOCK.CMABC+SBLG6

, \aUf.CMABP+SBLOCK.CMABP+SBLG6

=Q  G6l ZaUV.CMBFP+SBLOCK.CMBFP+SBLG6*` `!V.CMBRK+FBLOCK.CMBRK+FBLG6k Q G6X Q `G6m [aU^.CMCNT+SBLOCK.CMCNT+SBLG6$ ^aUv.CMDAT+FBLOCK.CMDAT+FBLG6$Y@ _aU~.CMDEF+FBLOCK.CMDEF+FBLG6$]@Q @G6%@Q  G6.,\ +1Ra	IFNB <A>+Q,<	UCMERR [ASCIZ +p\A\]
>
	IFB <,A>,<	UCMERR [0]	
>
CMERR`[0]	G65IQ@`G65I`@RiU.CMFLG+SBLOCK.CMFLG+SBLG65MQCG65l ^!Ur.CMFNP+FBLOCK.CMFNP+FBLG6=(@ ]aUn.CMGJB+SBLOCK.CMGJB+SBLG6EL !Uz.CMHLP+FBLOCK.CMHLP+FBLG6Lj Q G6Mh` \!Ub.CMINC+SBLOCK.CMINC+SBLG6Mj Q G6Mz@ R)U.CMIOJ+SBLOCK.CMIOJ+SBLG6\^ P G6uyQ @G6uz Q @G6v[ Q  G6v^Q G6|j Q  G7L@ [!UZ.CMPTR+SBLOCK.CMPTR+SBLG7=Q  G7N  Z!UR.CMRTY+SBLOCK.CMRTY+SBLG7z Q `G7$Q G7%z`Q `G7'
>
	IFB <9 A>,<	UCOLON [0]	
>
COLON [0]	!S 	IFNB <A>3A,<	UCOMMA [ASCIZ 3`\A\]
>
	IFB <4A>,<	UCOMMA [0]	
>
COMMA [0]	Py
       CALL CONF      CG@,P G@,;xP G@-	6P G@.<P G@.N8P GCN.: yOT
	LOC	0
y!	ASCIZ /
COPYRIGy@HT (c) DIGITAL EQy`UIPMENT CORPORATIzON, 1976, 1988.
z ALL RIGHTS RESERVz@ED.
/				
	RELOC
/				
	RELOGHP GK !R	IFNB <A>!1,<	UCRR [ASCIZ \!PA\]
>
	IFB <A>!p,<	UCRR [0]	
>
	UCRR [0]	
>
GRI7P }GRyP 
GRd9HP @GRd9IP GSH`P GSI P GSI< AQz	IFNB <A>a,<	UCTRLE [ASCIZ \A\]
>
	IFB < A>,<	UCTRLE [0]	
>
CTRLE [0]	N@P I qQe	IFNB <A>,<	UDASH [ASCIZ \0A\]
>
	IFB <AP>,<	UDASH [0]	
>
UDASH [0]	
>I$*:Q @I:=P I$lzP'hI%|SP'pI&>6P'pI iR	IFNB <A> 	,<	UDEC [ASCIZ \ (A\]
>
	IFB <A> H,<	UDEC [0]	
>
	UDEC [0]	
>
I63 `aV	A==:PPTRa		;PCL ALLOCATE Ta HIS PAGE AT CURREa@NT PAGE POINTER
a`	B==PPTR_-9	;DEFbINE PAGE NUMBER
b 	PPTR==PPTR+C*10b@00	;STEP TO NEXT b`PAGE SLOT
	IFG PcPTR-DDTFST,<PRINTc X ?Exec page buffc@ers overlapping DDT
>rlapping DI6= j&^
	A==<-1j(B<C>+1B<C-D>> jH
	IF1,<IFDEF %Ajh,<PRINTX ?A ALREkADY DEFINED>>
	Dk(EFINE %A (OP,AC,kHY,MSK)<
	$A==<Zkh B>		
	OP (<AC>,B'Y,MSK)><AC>I7 ,YRk	IFNB <A>,y,<	UDEF [ASCIZ \-A\]
>
	IFB <A>-8,<	UDEF [0]	
>
	UDEF [0]	
>
I7 *	RV	IFNB <A>*),<	UDEV [ASCIZ \*HA\]
>
	IFB <A>*h,<	UDEV [0]	
>
	UDEV [0]	
>
IFN 9iST	IFNB <A>:	,<	UDEXT [ASCIZ \:(A\]
>
	IFB <A:H>,<	UDEXT [0]	
>
UDEXT [0]	
>IYVP I'> 1yS	IFNB <A>2,<	UDIRS [ASCIZ \28A\]
>
	IFB <A2X>,<	UDIRS [0]	
>
UDIRS [0]	
>I' 0QS	IFNB <A>0q,<	UDIR [ASCIZ \1A\]
>
	IFB <A>10,<	UDIR [0]	
>
	UDIR [0]	
>
I?' 5qS5	IFNB <A>6,<	UDOT [ASCIZ \60A\]
>
	IFB <A>6P,<	UDOT [0]	
>
	UDOT [0]	
>
IR

:P IRNn ?	S~	IFNB <A>?),<	UDTIV [ASCIZ \?HA\]
>
	IFB <A?h>,<	UDTIV [0]	
>
UDTIV [0]	
>IS CT	IFNB <A>C!,<	UDTP [ASCIZ \C@A\]
>
	IFB <A>C`,<	UDTP [0]	
>
	UDTP [0]	
>
IS D)T(	IFNB <A>DI,<	UDTR [ASCIZ \DhA\]
>
	IFB <A>E,<	UDTR [0]	
>
	UDTR [0]	
>
IS@ %	R,	IFNB <A>%),<	UDT [ASCIZ \A%H\]
>
	IFB <A>,<	UDT [0]	
>
K Q K60 P!IFN EMCSSWIFN EMCSSWK6<{P KK|@ 
YPW
       U
yERR [ASCIZ @A@]RR [ASCIZ @A@]KKPQ KSN	  Pq
	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^ Qo	IFNB <A>9,<	UFILE [ASCIZ \XA\]
>
	IFB <Ax>,<	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< @1T		IFNB <A>@Q,<	UFNODE [ASCIZ @p\A\]
>
	IFB <AA>,<	UFNODE [0]	
>
FNODE [0]	,PP%XMJ,\P 6MJ.@P MJ.:=P pO&8; P)ASCIZ \AEXE\ASCIZ \AEOexY dV 
   IF2,<
	XGLOBS>IF2,<O3F8t }Oj
	SEARCH }!QSRMAC,GLXMAC,ORNMACC,GLXMAC,ORNO?I3 }aOp
	OPDEF ~A [<B>]
	INTERN AB>]
	INTERNOJ~\P ON~	 ~AOv
	OPDEF ~aA [B]
	INTERN A
	.NODDT A OOI7P OR Oz
	CALL [	!MOVEI A,A	
		CALLRET %GTB]	
AOR%K@P 

Qf &R7	IFNB <A>&1,<	UHELP [ASCIZ \&PA\]
>
	IFB <A&p>,<	UHELP [0]	
>
UHELP [0]	
>Q&=

P ?QO%X<P 

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

SBlP&HSBX<P SB|P ,SB}YP%0SP KiT^l
	T <A>,B,C,D!CM%INV^`TZ0Q~SS0 LYThl0
	TV <A>M	,B,C,D!CM%INVB,C,D!CM%INV^cTa0M%INVU
d[@P U,kP  U^+@ yPG
	ERCAL RJWARN
	ERCAL RU^.	rP yU^.	yP .U_vP WNy $Y<-3P Y0 YP=	MOVX A,B
	MOVX A,Y+y 9P[
	ULERRO [ASCIZ@A@]ROYP	Y`PCZ \5A\]
>
	IFB <A5(>,<	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 ]<` PIFN NEWFSWIFN NEWFSW]<l{P ]FL`P ]<`P 

]6)yP  ]7<P ]>&:=P ]>-Xy YP%IFE EMCSSWIFE EMCSSW]>N9  YPu
	UNOII[ASCIZ@A@]OII[A]>dpQ]]>t]sPYPIFENEWFSWIFEINEWFSW]?RQ	]?YYPIFE SEDSWIFE SEDSW]?FKR YP
>
	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@]PTaRI7P }aS:P bD@ bH@ bL@ cNd[@P @cV~I< <9Si	IFNB <A><Y,<	UQUOTE [ASCIZ <x\A\]
>
	IFB <=A>,<	UQUOTE [0]	
>
QUOTE [0]	e&:x aO~JRST RSKP|JRST RSKPe2N=P&He::=P e:YVP de:|I< AYT	IFNB <A>Ay,<	URNODE [ASCIZ B\A\]
>
	IFB <B8A>,<	URNODE [0]	
>
RNODE [0]	
e;P g  PIFN SEDSWIFN SEDSWg&=`P g$I3P gYVP g2: !QP	IFNB <A>A,<	USLASH [ASCIZ `\A\]
>
	IFB <A>,<	USLASH [0]	
>
SLASH [0]	YRP  gRYUP ~gRYVP ~gR[SP gR\yP gR	lWP 0gR. "9R	IFNB <A>"Y,<	USTAR [ASCIZ \"xA\]
>
	IFB <A#>,<	USTAR [0]	
>
USTAR [0]	
>gR@P ,gRY@P%2gS:=P tgS (aRL	IFNB <A>),<	USTR [ASCIZ \) A\]
>
	IFB <A>)@,<	USTR [0]	
>
	USTR [0]	
>
gV;v 	9PQ	IFB <B>,	Y<
		USUBCO [	A
				0]>
	IFNB <
B>,<
		USUBCO [	A
				B]>
g^N:=P ggH6P h GTNkp
	..BITS=GI=0
	IFNB <B>,<.Gh.BITS==B>
	IFB H<C>,<$FOO==.A>
        IFNB <CHH>,<$FOO==C>
IFEHh D,<XWD [ASCIZ @IA@],[..BITS!$FOOI(]>
IFN D,<XWD [IHD!CM%FW
		ASCIZIh @A@],[..BITS!$FOO]>
..BITS!$F^_QG0Ri MITt
IFNB <BMi>,<%%X==B>
IFB N<B>,<%%X==.A>
N(	[	CM%INV!CM%ABR!NHCM%FW
		ASCIZ /A/],,%%X
IZ /iP iI  O	T~
	Z			;FIO)LLED IN BY NEXT TOHEND
	..T==.			;UOhSED BY NEXT TENDED BY NEXT TENDi%I7P i]K\P i
e<}P tit@ P)U


       .PI.U==.
        REPhLOC ..T-1
	..U-.Q.T,,..U-..T	;FILLQ( IN FIRST WORD OFQH TABLE
        RELOC ..U      Ri&l^ 7S?	IFNB <A>79,<	UTIME [ASCIZ \7XA\]
>
	IFB <A7x>,<	UTIME [0]	
>
UTIME [0]	
>i. @i.,;sQ  i/$\SQ iJ Q
	UTRAP [9	A
		ASCIZ @B@]
		ASCIZ @B@iK:P iRNK {O\
	CPYRYT
	TITLE A
	SEAR{@CH MACSYM,MONSYM
	SALL
	GGLOBSiS<;qP iS<mzP iS=-P iS=[rP iS=\uP iS>VP iS>;VP iX J)TX
IFB <C>JI,	T <A:>,B,.A,JhD

IFNB <C>,	KT <A:>,B,C,D
A:>,B,C,D

yPi
TYPE[UCIZA]PE[ASCIZA]j.,@.j8$\Y8k=@tk$L@kLt>kD@pkl\YXk}Kw lk}[0dkkVHk&+Dk:@k,0Fk,`Zk.` Vk/
XX SLASH9	
XX BSLSH	
XX XDASH		
XX FILE		x
XX CTRLE	
XX DEC		
XX CRR		
X8X STAR		
XX WORDX		
XX DT		
XX HxELP		
XX OCT		
XX STR		
XX DEV	8	
XX CMERR	
XX XDEF		
XXxUSER		
XX USERS	
XX DIR		
XX DIRS		
X8X COMMA	
XX LINEX		
XX DOT		
XX xTIME		
XX COLON	
XX DEXT		
XX C8HAR		
XXXQUOTE	
XX ACCT		
XX DTxIV		
XX FNODE	
XX RNODE	
XX DTP8		
XX DTR		
XX ADDR		
		
XX k:} &k>@ RkC{8 (kG-} rkJuy zkN.,| /)S	IFNB <A>/I,<	UUSERS [ASCIZ /h\A\]
>
	IFB <0A>,<	UUSERS [0]	
>
USERS [0]	Rv	IFNB <A>.!,<	UUSER [ASCIZ \.@A\]
>
	IFB <A.`>,<	UUSER [0]	
>
UUSER [0]	
>kNdt <kO$@ JkO&  TkO,(w :kRMY  jkRNK |Od
	TITLE |!A
	SEARCH MACSYM|@,MONSYM
	SALL
	GGLOBS
	SALL
	kS 6kSN	  "kW\@ \kW\Y ^k^~) Lo"fPQ o2&3P&Ho?N #aR$	IFNB <A>$,<	UWORD [ASCIZ \$ A\]
>
	IFB <A$@>,<	UWORD [0]	
>
UWORD [0]	
>q0 YPIFN XARCSW,IFN XARCSWq<{P qd@Q xqY P%8q\P .q\P q\}P  qexY dA^H

	XLISTda
	.XCREF

DEFIeNE QEXT (SYM)<
	e IRP SYM,<
	IFNDEe@F SYM,<EXTERN SYMe`
		SUPPRE SYM>>>f

QEXT <SJf LEN,JTAB,JLEN,CBLf@OCK,TRAPU,TRAPD,Sf`AVSP,SAVCM,RESCM>g
QEXT <CMDOUT,CLg RALL,CLRBIT,JSBDEg@F,SETALL,SETBIT,Sg`ETTRP,COPBTS,RESAhCS,SAVACS>
QEXT h <SKPON,TRPPSI,JTAh@B,SKPNAZ,TRPOKF,Th`STOPF,MRKTRP,GETLiPC,FOWNER,TFILEF,i TOPENF>
QEXT <SNi@DPDB,MYPID,QSRPIDi`,MDAPID,NEBPID> ;j[7.1232]
QEXT <Gj ETPID,GQPID,QUASNj@D,SNDMSG,SNDMS1,Ij`PCRCV,GQSRPD>
QEkXT <IPCON,IPCOFF,k IPCINT,CHECKM,IPCk@HEK,NOWPTR,IPCRCFk`,IPCWTF,IPCALF,IPlCFND>
QEXT <UNIQl UE,IPCTBL,IPCAGE,l@IPCFGS,IPCCTL,INFl`PID,OLDIDX,IPCFLMm>
QEXT <DGFRKS,Rm ELHAN,SETENT,SETGm@O,GETENT,WAITF> ;m`[3063]
QEXT <CINn0>
QEXT <FLJFNS>n 
QEXT <DOECHO>
n@QEXT <.MAKE,.TECOn`,.TV>
QEXT <SPEEoDA,SYSDWN,PRACCT,o CKSTAR,GETDVN>
Qo@EXT <SBLOCK,FBLOCo`K>
QEXT <%%LVER,p%%RVER>
QEXT <RJp WARN,REWIND,CJDEVp@,OPNMAG>
QEXT <Ap`BKCNT,INFTRM>
QEqXT <%GETER,DGETERq ,.EDIT,.EDITC,.EDq@ITP,CSVCC,EDSVB,Tq`ECSVB,CMAGN>
QEXrT <TOUT,TOUTD,TBOr UT,TSOUT0,ASOUT,Ur@SRCNT>
QEXT <DWNr`TYP,SNBLKS,SSIZE,s$CHFDB,USRNAM,DFUs SER,TTYUSR>
QEXTs@ <.P,.PP,COMAND,Cs`OMSIX,PRGCEL,CIPFt,CLF,MPENDF,NACL,t GLOADS,CLSON,BEGIt@NP,SVPRMT,ECHCMD>t`
QEXT <HELPSN>
uQEXT <GETDIR,RELDu IR,GETDRP,DIRINI>u@
QEXT <.STRST,VEu`RPNT,%VERSI>
QEXvT <.VERSI,EXECV,Cv MDINI,MONSTA,SUBSv@TA,.JOBST,.RUNST,v`.MEMST,.DSKST,.ERwRST,.FILST,.INFORw ,.PISTA>
QEXT <.w@PUSH,.POP,.UNATT,w`.INDIR>
QEXT <INxFER,UNMDIR,$CONTIx ,$LPTST,GETLPT,FIx@NLPT,$REENT>
QEXx`T <$START,..CONT,y..REEN>
QEXT <MFy OUT,MFSET,MFINP,My@FINP0>
QEXT <SIXy`PRT,.AVAIL,$OPEN7z,$OPENF,$ERSTR,OPz NERR,ERRFIN,CRIF,z@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,CRSC}@AN,$GTFDB>
QEXT }`<..STRT,RSPTR,.AC~COU,.ADVIS,.APPEN~ ,.ASSIG,.ATTAC,.B~@REAK>
QEXT <.CHA~`NG,.CLEAR,.CLOSE,.CLUST,.REMAR,.CO NNE,.CONTI,.COPY,@.CREAT>
QEXT <.A`CCES,.ENDAC>
QEXT <.DAYTI,.DDT,.D EASS,.DEFIN,.DELE@T,.DETAC>
QEXT <`.DIREC,.TDIRE,.FDIRE,.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>
QEXT <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>

QEXT

 <$DEF>
QEXT <.I

 DC,.IDPL,.IDCS,.I

@DP,.IDPRT,.IDS,.I

`DALL,.IDPRG,.IDTA
QEXT <.PUNCH>
QEXT <.QUIT,DOA
QEXT,<.R,.REREFUS,.RENAM,.RESET,.R UN>
QEXT <.CSAVE@,.SAVE,.SET,.STAR`T>
QEXT <.TAKE,.TALK,.TYPE,.TRANS ,TYPE1,.UNDEL,.UN@MOU>
QEXT <.JWAT`,IJWSEQ,JWPAG,JWPAGL,IJWPSI,WJPTAB ,JFNGON,XRMBLK,EX@CBLK,XRMPNT>
QEX`T <ASTTJ,CHKDAL,CMDIN2,CMDIN4,CIN3 ,EXEC,JOBREN,JOBS@A,JOBSYM,JOBDDT>
QEXT <XEND,.NPAGS,EVLEN>
QEXT <L EVTAB,REE,SUPER,.@JOBSY,.TEXEC>
QE`XT <READY,READY2,FIELDX,FLDSKP,CFI ELD,GETTER,REPARS@,SETT20,SAVT20,SA`VNAM,SETMOD,GETMOD,SETPRG>
QEXT < %KEYW,GETKEY>
QE@XT <PRVCK>
QEXT `<%NOI>
QEXT <%SBCOM>
QEXT <CONF, FCONF,FCONFA>
QE@XT <SPRTR,BITS>
`QEXT <CIOREL,SETIOF,TINPF,NOTIO>
 QEXT <%$TYPE,$CTY@PE>
QEXT <COUTFN`,CSAVFN,SPECFN,CPFN,CPFNA>
QEXT < .INFG,INFGNS,TYPF@LS,$INFGX,DIRARG>`
QEXT <TYPIF,TYPOK,GNFIL,NXFILE>
QEXT <DEVN,STRN,@CONST,INDT,LBLSKP`>
QEXT <DIRNAM,DIRNMX,CURNAM,CURN MS,USRNMS,STPDIR,@STPUSR>
QEXT <AT`SAVR,TOCT,OCTCOM,OCTLST>
QEXT <BU FFF,GETBUF,RETMEM@,GETMEM,RETBUF,ST`REM,XFRINI,FREINI,BCOUNT,GETNOD,CS BUFP,DICT,XDICT,B@UFFS,XBUFFS,GTBUF`X,GETSIX,GETSXB,GETSXF,GETASC,FIXP T> ;[7.1265]

Q@EXT <NOECHO,DOECH`O,LTTYMD,FIXIO,RTTYMD>
QEXT <%PRI NT>
QEXT <COUTC>@
QEXT <MAPPF,FRE`L,RANDOM,TYPEXP,TYPADD,GINSTR,PINS T,RINST,EVAL>
QE@XT <SYMF,SYMOKF,S`OFF,SYMBA,SYMEA,SYMBEG,SYMEND,LAST P,NSYMS,SYMBF>
Q@EXT <DBGEXC>
QEX`T <LOADF>
QEXT < STOREF>
QEXT <%G  TB>
QEXT <DING,C @ERR,NIYE,NIM,SCRE `WUP,JERR,JERRC,CJ!ERR,JERRE,CJERRE>! 
QEXT <%TRAP>
Q!@EXT <AUTOLO>
QEX!`T <%ERR,%$ERR,%.$"ERR >
QEXT <RERE" T>
QEXT <%ETYPE>"@
QEXT <RLJFNS,UN"`MAP,JFNSTK,CLZFFF#,JFNRLA,GTJFS,RJF# N,PION,PIOFF,ACTR#@CF,INTDF,IINTDF>
QEXT <GNJFS,FLOA$T>
QEXT <CSZ1,CS$ Z2,CSZ4>
QEXT <C$@MDACS,REPARA>
QE$`XT <CIJFN,COJFN,J%BUFP,.JBUFP,.J,JB% UF,CJFN1,CJFN2>
%@QEXT <TAKLEN,SAVT%`AK,TAKCUR,TAKDEF,&TAKJFN,TAKBTS,PUS& HIO,ALONOI,ECHNOI&@>
QEXT <INIFH1,I&`NIFH2,VALNOD,VALN'DN,CINODT,OURNOD,' NODBLK,INFCIN> ;['@7.1076]
QEXT <CF'`GNOD,INFBLK,TOUT,(INFSYS,UNAME,DIRN( ,ORGN,JRCASH,WLDP(@AG> ;[7.1076][7.1(`137]
QEXT <DPPT,)DPSTK,DSPT,DSSTK,) DCPT,DCSTK,DPLPT,)@DPLSTK,DTPT,DTSTK)`>
QEXT <EOFDSP,E*OFJER,DATDSP,ILID* SP>
QEXT <CIDLYF*@,PAXLFL,CCFLAG>
*`QEXT <CINITF,LOGI+NI,LOGINF,SYSMF,L+ OGDAT,FILINI,TAKE+@IN,TAKSYS>
QEXT +`<PRVENF,MESMSF,CU,SRNO,LIDNO,JOBNO,, POBXNO>
QEXT <EX,@DPF,EXDPLC,FSTLGN,`>
QEXT <FORK,RFO-RK,DDTFLG,NPAGE,E- FORK,BATCHF,PROG,-@SNDPRG,SDPROG,GET-`FB1,ANNKEP,INDQUS.>
QEXT <SDECHO>
QEXT <STRTIM,TTY.@ACF,PTTYAC,ALOST,.`CJPTIM>
QEXT <IT/TYMD,PTTYMD,ETTYM/ D>
QEXT <CERET>
QEXT <CTUUO>
QE/`XT <SSTACK>
QEXT0 <ERCOD>
QEXT <U0 SERNO,MCOJFN,OUTD0@SG,TYPGRP>
QEXT 0`<DEXTBL>
QEXT <P1D,INISTK,PDLOV,CB1 UF,ATMBUF,CBUFE,C1@JFNBK,XTNNUM,XTNC1`NT,ECHPTR,ECHCNT,2CTRPTR>
QEXT <TE2 XTIC,TEXTID,TEXTI2@A>
QEXT <PPATS,P2`PAT,PAGEN>
QEXT 3<LEV1PC,LEV2PC,LE3 V3PC,PCTAB>
;QEX3@T <$CTRLA,$CTRLR,3`$CTRLV,$CTRLW,$CT4RLX,$EOL,$DASH,$C4 ONT,$RUB>
QEXT <4@$FORMF,$LF,$CONT,4`$TDENS>
QEXT <US5EPSI,ILIPSI,EOFPS5 I,DATPSI,ICLEAR,C5@CPSI,TLMPSI,ALOPS5`I,COBPSI>
QEXT <6ADVFLG,SAVPGM,FIX6 ON,ADVTNM,ADVMES,6@BREAK1,ESCPSI,JFN6`SIL,QTAPSI,QTADSP7>
QEXT <CUUO>
Q7 EXT <ERRET,NESC>
QEXT <FSTAT>
QE7`XT <FSTOUT>
QEXT8 <ERRMF>
QEXT <C8 SBUF>
QEXT <%EDA8@YT>
QEXT <ACCT,P8`ASSX,PASWD,PASLIN9,PASFLD>
QEXT <C9 HRTBL>
QEXT <JOB9@OPC>
QEXT <.BACK9`S,.SKIP,.EOF,.REW:IN,.UNLOA>
QEXT : <CSCAN>
QEXT <.C:@REF,.EXECU,.COMPI:`,.DEBUG,.LOAD,OCC;LF,GOTO2,CLOPAT,D; OCCL,DOCC1,DOCC2>;@
QEXT <CSVC>
QE;`XT <MALCHK,MALWEN<,MINT0,MWATCF,MWA< TCH,MAILF> ;MAIL <@WATCH
QEXT <SUBB<`P>
QEXT <NETRDY>=				;ARPANET
QEX= T <QTIMES,SNAMES,=@SYSVER,JOBRT,TTYJ=`OB,NETRDY>
QEXT ><GETAMT,CHKPTY>
> QEXT <LRFSTS>
QE>@XT <.USEND>
QEXT>` <EDTFIL,EDTINF,E?DTCRE,EDTOUF,EDTC? FM>

;TERMINAL-?@RELATED GLOBALS
?`


QEXT <$TERM@I,$TTYP,$TERNO,TT@ YPTB,BLNKTB,NTTYP@@S,.TTY3>
QEXT <.@`T33,.T35,.T37,.TIA,.FLAG,.FORMF,.FUA LLD,.HALFD,TTYHLPA@,.IMMED,.INDIC>
A`QEXT <.LA120,.LA3B0,.LA36,.LA38,PLEB NTH,.LINE,.LOWER,B@.TERNO,.PAGE,.PAUB`SE,.RAISE>
QEXT C<.SPEED,.DFLT,.TAC BS,.TRMNT,.TTYPE,C@.VK100,.VT05,.VT1C`00,.VT102>
QEXT D<.VT125,.VT131,.VD T200,.VT300,.VT50D@,.VT52,.VTH19,.LWD`IDTH,TTYNTY,.TTH1E9>
QEXT <RTTFLG,E RTFLG1,.INHIB>
E@

;ECRJOB/PRARG

QEXT <CRPRA,..FSTCR,MESS>

; AF rchive system

F@QEXT <.ARCHI,CANAF`RC,.DISCA,.RETRI,GFTDBLK,ARCBLK>
G 
; Extended featuG@res

QEXT <.RDIG`RE,.WDIRE,.QD,ALRHCHK,MALCHK,IITPSIH ,POBCHK>
QEXT <TH@YPFIN,TPCCOC,TPTTH`YP,TYPING,SPRSED,IBYTSIZ,AUTOF,IITSI ET>
QEXT <MALBUFI@,MWATAT,MWATCT,MWI`ATDR,MWATWR,MWATNJ,MWATN0,ALRTIM,ALJ RTMS>
QEXT <RUNFJ@K,IDFORK,EDFORK,FJ`RKTAB,SLFTAB,FRKNKMS,KEPNMS,FRKDEF,K SFKNAM>
QEXT <.FK@REEZ,.UNKEE,.NAMEK`,.KEEP,UTTYMD,RFTLYMD,FTTYMD,REASONL >
QEXT <RSTFK,REL@PH,STEPH,REPH1,.EL`RUN,.BLANK,BLANK1M,KEFORK,GETILI,DWM NPNT>
QEXT <.DO,M@.KMIC,MICFRK,PAGEM`MI,MICFPG,MICPAG,NGETPAG,USEPSM>
QN EXT <.GOTO,.BACKTN@O,.ERROR,.IF,.NOEN`RROR,.OPERATOR,.NOOOPERATOR>
QEXT O <ADDNAM,.NOLM,.KFO@RKC>
QEXT <CCKEEO`P>

;ProgrammabPle Command LanguaP ge

QEXT <CTBL1P@,PCCURC,PCFLAG,PCP`TXFR,PCSFRE,PCLSTQF,PCVVAL>
QEXT <Q PCFLDB,.DECLA,.UNQ@DEC,PCMXCT,PCMPOPQ`,PCMPOS,PCMPRS>
RQEXT <PCINIT,PCCCR PL,PCIDFV,PCIUDF,R@PCIRUN,PCEXCT,SUBR`NAM>
QEXT <PCONCSE>	;[BCM] once onS ly flag for PRSINS@I
QEXT <PCMPSI,PS`CMPSO,PCIPSO,PCPOTTP,PCPRGR,WFORKX,T FFORKX,.PCLOB>
QT@EXT <PCIINF,SINVAT`R,SSTVAR,PCISGS,.UPCLVR,PCIDGS,PCICU LP>
QEXT <PCCWKEU@,PCRPAS,PCLDCO,PCU`IWEV,$SDEF,PCIGEVV>
QEXT <CIN2,PCIV DFS,PCIFGS,WAITA,V@PCLPMT>
QEXT <PCV`IPSV,PCFLDP,PCLGSWT,CUSTMF,PCWAIT,RW EAD1>
QEXT <PCRNW@FK,PCFORK,PCLNAM,W`PCCIPF,NPCLIO,.IDXDCL,ORIFLG>
QEXTX  <.PREXC,.PRENV>
QEXT <CHNS,CHNTAX`B,CM1DB,CM1DBE,CMY1XL,CTBL2>
QEXT Y <TDEFAU,$SETO,$SEY@TN,$SFILE,$SFNO>
QEXT <$RSFD,$SVFZD,$INFO>
QEXT <CZ RDSET,IVOL,NTRAP,Z@SETSRM,SPLINF,SPLZ`SET>
QEXT <SYSIN,TAPINF,TRMPNT,.[ ADBRK,.ADDRE,.ALE[@RT>
QEXT <.ALRST[`,.ARSTS,.AUTOM,.C\IDLY,.CTRLC,.DEFA\ U>
QEXT <.DEPOS,\@.ENTRY,.EXAMI,.EX\`ECM,.FEXP,.FILEV>]
QEXT <.FLINX,.F] LONX,.FPROH,.FRES]@I,.IARPA,.IDECN>
QEXT <.INVIS,.LO^CAT,.MALST,.MWATC^ ,.NODEF,.NOTIM>
^@QEXT <.OFL,.PAC,.^`PAXL,.PRESE,.SDIR_,.SETNO,.SFILE>
_ QEXT <.SFNO,.SIST_@A,.TAPE,.TERMI,.T_`IME,.TKD>
QEXT <`.TRAP,.TYPEO,.VIS` IB>
QEXT <.EPHM,`@.FRKST,.SUPER,SAV``SWI,.CTRAC,.ORIGIa,.SDDCL>
QEXT <.a INDEF,.SEDEF,.STMa@LM,$SET0>
QEXT <a`.SAVT,CMDCHT,CMDCbHR>
QEXT <MSEPSIb >
QEXT <RESET0,.b@RESE2,.RESS1,.RESb`ST>
QEXT <$FRKNMc,$NODEF>

;GLOBc AL SYMBOLS FOR COc@MMAND EDITOR

Qc`EXT <CMDHST,FTCE,dIMETKY,INFOCE>
Qd EXT <.META,.NOMETd@A>
QEXT <SETNOF,d`TERMNL>

QEXT <eCIN42,HSTCNT,HSTNe UM,HSTPTR,.REDO,.e@AGAIN,.INHST,.RECe`AL,.SEHST>

QEXfT <CEBPTR,CEDIT,Cf SAVE,CESAVE,CEBFEf@N,CEFLAG,CETSAV,If`NSMOD,.CESET>
QEgXT <CEMETA,CEFFL,g CE1ST,CELAST,CECNg@T,.CEDMO,NOPRMT,Cg`ETTMD,CEVMSD>
QEhXT <CEKBUF,CEPSICh ,PCLMID,.CEPSI,.Sh@CEIC,.SNCEI,SVSEDh`C,SVSEDP,CEPBUF>

	.CREF
	LIST
   REF
	LISTP%4qJn

P -qRt@ P	IFN XTNDSWIFN XTNDSWqRtL{P q` yQ
OPDEF UA [<%%NUUO>B12]
8%%NUUO==%%NUUO+1
DEFINE AX(HELP)x
<	IFNB <HELP>,<	UA [ASCIZ \HELP8\]
>
	IFB <HELPX>,<	UA [0]	
>
>
A [0]	
>
sd@P't@ 	+y yP_
	U$ERR [ASCIZ @A@]RR [
v]7P  \k SU
	$FKFLAGS1==<Z 0>		
	A (<B>,0C,D)A (<]7 T)U$
	$FKHAN=TI=<Z 1>		
	A (<B>,1C,D)A (<^(2 UU+
	$FKRADDU1==<Z 2>		
	A (<B>,2C,D)A (<^)9 VaU8
	$FKRESPW==<Z 4>		
	A (<B>,4C,D)A (<^+2 UyU1
	$FKRMESV==<Z 3>		
	A (<B>,3C,D)A (<.,W 

9Pc
	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 ^