Google
 

Trailing-Edge - PDP-10 Archives - BB-L014X-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 N)Dx	IFNB <A>NI,<	UACCT [ASCIZ \NhA\]
>
	IFB <AO>,<	UACCT [0]	
>
UACCT [0]	
>C5IQ C&. VE7	IFNB <A>V9,<	UADDR [ASCIZ \VXA\]
>
	IFB <AVx>,<	UADDR [0]	
>
UADDR [0]	
>C4:P 
C4\qP C3%PP
	UALTYP [ASCIZ @A@]YP CRmI7P zCSR aA>
	JSP CX,.SAVT
	JSP CX,CW%{P ,CW%{	P CW%{	P D@ Ee@P E'%[P ENf: +B_	IFNB <A>+1,<	UBSLSH [ASCIZ +P\A\]
>
	IFB <+pA>,<	UBSLSH [0]	
>
BSLSH [0]	BJDREV2P&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". KYDc	IFNB <A>Ky,<	UCHAR [ASCIZ \LA\]
>
	IFB <AL8>,<	UCHAR [0]	
>
UCHAR [0]	
>G#:P G#m6P ?G6
(` miFn.CMABC+SBLOCK.CMABC+SBLG6
, m)Fj.CMABP+SBLOCK.CMABP+SBLG6
=Q  G6l k)FZ.CMBFP+SBLOCK.CMBFP+SBLG6*` piG.CMBRK+FBLOCK.CMBRK+FBLG6k Q G6X Q `G6m l)Fb.CMCNT+SBLOCK.CMCNT+SBLG6$ o)Fz.CMDAT+FBLOCK.CMDAT+FBLG6$Y@ p)G.CMDEF+FBLOCK.CMDEF+FBLG6$]@Q @G6%@Q  G6.,\ ;yCe	IFNB <A><,<	UCMERR [ASCIZ <8\A\]
>
	IFB <<XA>,<	UCMERR [0]	
>
CMERR`[0]	G65IQ@`G65I`@c1F.CMFLG+SBLOCK.CMFLG+SBLG65MQCG65l niFv.CMFNP+FBLOCK.CMFNP+FBLG6=(@ n)Fr.CMGJB+SBLOCK.CMGJB+SBLG6EL oiF~.CMHLP+FBLOCK.CMHLP+FBLG6Lj Q G6Mh` liFf.CMINC+SBLOCK.CMINC+SBLG6Mj Q G6Mz@ bqF.CMIOJ+SBLOCK.CMIOJ+SBLG6\^ P G6uyQ @G6uz Q @G6v[ Q  G6v^Q G6|j Q  G7L@ kiF^.CMPTR+SBLOCK.CMPTR+SBLG7=Q  G7N  jiFV.CMRTY+SBLOCK.CMRTY+SBLG7z Q `G7$Q G7%z`Q `G7'
>
	IFB <IhA>,<	UCOLON [0]	
>
COLON [0]	iD$	IFNB <A>D	,<	UCOMMA [ASCIZ D(\A\]
>
	IFB <DHA>,<	UCOMMA [0]	
>
COMMA [0]	aA~
       CALL CONF      CG@,P G@,;xP G@-	6P G@.<P G@.N8P GCN.: 	I@X
	LOC	0
	i	ASCIZ /
COPYRIG
HT (c) DIGITAL EQ
(UIPMENT CORPORATI
HON, 1976, 1988.

hALL RIGHTS RESERVED.
/				
	RELOC
/				
	RELOGHP GK 1YC	IFNB <A>1y,<	UCRR [ASCIZ \2A\]
>
	IFB <A>28,<	UCRR [0]	
>
	UCRR [0]	
>
GRI7P }GRyP 
GRd9HP @GRd9IP GSH`P GSI P GSI< /	B~	IFNB <A>/),<	UCTRLE [ASCIZ /H\A\]
>
	IFB </hA>,<	UCTRLE [0]	
>
CTRLE [0]	N@P I ,9Bi	IFNB <A>,Y,<	UDASH [ASCIZ \,xA\]
>
	IFB <A->,<	UDASH [0]	
>
UDASH [0]	
>I$*:Q @I:=P I$lzP'hI%|SP'pI&>6P'pI 01C		IFNB <A>0Q,<	UDEC [ASCIZ \0pA\]
>
	IFB <A>1,<	UDEC [0]	
>
	UDEC [0]	
>
I63 q)G 	A==:PPTRqI		;PCL ALLOCATE TqhHIS PAGE AT CURRErNT PAGE POINTER
r(	B==PPTR_-9	;DEFrHINE PAGE NUMBER
rh	PPTR==PPTR+C*10s00	;STEP TO NEXT s(PAGE SLOT
	IFG PsHPTR-DDTFST,<PRINTshX ?Exec page buffters overlapping DDT
>rlapping DI6= bh$
	A==<-1cB<C>+1B<C-D>> c(
	IF1,<IFDEF %AcH,<PRINTX ?A ALREchADY DEFINED>>
	DdEFINE %A (OP,AC,d(Y,MSK)<
	$A==<ZdH B>		
	OP (<AC>,B'Y,MSK)><AC>I7 =!Cp	IFNB <A>=A,<	UDEF [ASCIZ \=`A\]
>
	IFB <A>>,<	UDEF [0]	
>
	UDEF [0]	
>
I7 :QC[	IFNB <A>:q,<	UDEV [ASCIZ \;A\]
>
	IFB <A>;0,<	UDEV [0]	
>
	UDEV [0]	
>
IFN J1DY	IFNB <A>JQ,<	UDEXT [ASCIZ \JpA\]
>
	IFB <AK>,<	UDEXT [0]	
>
UDEXT [0]	
>IYVP I'> BAD	IFNB <A>Ba,<	UDIRS [ASCIZ \CA\]
>
	IFB <AC >,<	UDIRS [0]	
>
UDIRS [0]	
>I' AD	IFNB <A>A9,<	UDIR [ASCIZ \AXA\]
>
	IFB <A>Ax,<	UDIR [0]	
>
	UDIR [0]	
>
I?' F9D9	IFNB <A>FY,<	UDOT [ASCIZ \FxA\]
>
	IFB <A>G,<	UDOT [0]	
>
	UDOT [0]	
>
IR
:P IRNn OQE	IFNB <A>Oq,<	UDTIV [ASCIZ \PA\]
>
	IFB <AP0>,<	UDTIV [0]	
>
UDTIV [0]	
>IS SIE"	IFNB <A>Si,<	UDTP [ASCIZ \TA\]
>
	IFB <A>T(,<	UDTP [0]	
>
	UDTP [0]	
>
IS TqE-	IFNB <A>U,<	UDTR [ASCIZ \U0A\]
>
	IFB <A>UP,<	UDTR [0]	
>
	UDTR [0]	
>
IS@ 5QC1	IFNB <A>5q,<	UDT [ASCIZ \A6\]
>
	IFB <A>,<	UDT [0]	
>
K Q K60 aA&IFN EMCSSWIFN EMCSSWK6<{P KK|@ !A\
       UAERR [ASCIZ @A@]RR [ASCIZ @A@]KKPQ KSN	  aAv
	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^ -aBt	IFNB <A>.,<	UFILE [ASCIZ \. A\]
>
	IFB <A.@>,<	UFILE [0]	
>
UFILE [0]	
>M&fyP $M,,*sQ M,,HSQ  M,,YQ M,-ZQ  M,- M,-<Q @M,-h6Q M,.
TQ M,.
WQM,.-7Q,M,.MQZ@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< PyE
>
	IFB <QXA>,<	UFNODE [0]	
>
FNODE [0]	,PP%XMJ,\P 6MJ.@P MJ.:=P pO&8; aA.ASCIZ \AEXE\ASCIZ \AEOexY tIG$
   IF2,<
	XGLOBS>IF2,<O3F8t 
	SEARCH,LXMAC,ORNMACC,GLXMAC,ORNO?I3 )@t
	OPDEF IA [<B>]
	INTERN AB>]
	INTERNOJ~\P ON~	 	@z
	OPDEF )A [B]
	INTERN A
	.NODDT A OOI7P OR Y@~
	CALL [	iMOVEI A,A	
		CALLRET %GTB]	
AOR%K@PYC;	IFNB <A>6y,<	UHELP [ASCIZ \7A\]
>
	IFB <A78>,<	UHELP [0]	
>
UHELP [0]	
>Q&=
P ?QO%X<P 
S,(: !A:	SKIPN BATCHF
	JRST A
St(: aA6	SKIPE BATCHF
	JRST A
SMm@PS'$:PSB,P (SB-3P% SB:P 
SBlP&HSBX<P SB|P ,SB}YP%0SP \1Ec`
	T <A>,B,C,D!CM%INVO~E_0SS0 ]!Em
	TV <A>]Q,B,C,D!CM%INVB,C,D!CM%INVPEf0M%INVU
d[@P U,kP  U^+@ AAL
	ERCAL RJWARN
	ERCAL RU^.	rP yU^.	yP .U_vP WNy $Y<-3P Y0 !AB	MOVX A,B
	MOVX A,Y+y A`
	ULERRO [ASCIZ@A@]ROYP	Y`PCZ \EPA\]
>
	IFB <AEp>,<	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 ]<` aAIFN NEWFSWIFN NEWFSW]<l{P ]FL`P ]<`P 
]6)yP  ]7<P ]>&:=P ]>-Xy !A*IFE EMCSSWIFE EMCSSW]>N9  !Az
	UNOI [ASCIZ @A@]OI [A]>dpQ ]>t]s !AIFE NEWFSWIFE NEWFSW]?RQ ]?Y !A"IFE SEDSW$IFE SEDSW]?FKR !AIFE XTNDSWIFE XTNDSW]CPP ]Nn	yP ]S'2P _' 8CF	IFNB <A>8!,<	UOCT [ASCIZ \8@A\]
>
	IFB <A>8`,<	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}\ !Ar
	UPROMPT [ASCIZ @A@]PTaRI7P }aS:P bD@ bH@ bL@ cNd[@P @cV~I< MDn	IFNB <A>M!,<	UQUOTE [ASCIZ M@\A\]
>
	IFB <M`A>,<	UQUOTE [0]	
>
QUOTE [0]	e&:x )AJRST RSKPJRST RSKPe2N=P&He::=P e:YVP de:|I< R!E	IFNB <A>RA,<	URNODE [ASCIZ R`\A\]
>
	IFB <SA>,<	URNODE [0]	
>
RNODE [0]	
e;P g  aAIFN SEDSW IFN SEDSWg&=`P g$I3P gYVP g2: )iBT	IFNB <A>*	,<	USLASH [ASCIZ *(\A\]
>
	IFB <*HA>,<	USLASH [0]	
>
SLASH [0]	YRP  gRYUP ~gRYVP ~gR[SP gR\yP gR	lWP 0gR. 3C	IFNB <A>3!,<	USTAR [ASCIZ \3@A\]
>
	IFB <A3`>,<	USTAR [0]	
>
USTAR [0]	
>gR@P ,gRY@P%2gS:=P tgS 9)CP	IFNB <A>9I,<	USTR [ASCIZ \9hA\]
>
	IFB <A>:,<	USTR [0]	
>
	USTR [0]	
>
gV;v AV	IFB <B>,!<
		USUBCO [	A
				0]>
	IFNB <`B>,<
		USUBCO [	A
				B]>
g^N:=P ggH6P h WaESP
	..BITS=X=0
	IFNB <B>,<.X0.BITS==B>
	IFB XP<C>,<$FOO==.A>
        IFNB <CY>,<$FOO==C>
IFEY0 D,<XWD [ASCIZ @YPA@],[..BITS!$FOOYp]>
IFN D,<XWD [ZD!CM%FW
		ASCIZZ0 @A@],[..BITS!$FOO]>
..BITS!$FO}BL0Ri ^Ey
IFNB <B^1>,<%%X==B>
IFB ^P<B>,<%%X==.A>
^p	[	CM%INV!CM%ABR!_CM%FW
		ASCIZ /A/],,%%X
IZ /iP iI  _QF
	Z			;FI_qLLED IN BY NEXT T`END
	..T==.			;U`0SED BY NEXT TENDED BY NEXT TENDi%I7P i]K\P i
e<}P tit@ `qF
       .a.U==.
        REa0LOC ..T-1
	..U-.aP.T,,..U-..T	;FILLap IN FIRST WORD OFb TABLE
        RELOC ..U      Ri&l^ GaDD	IFNB <A>H,<	UTIME [ASCIZ \H A\]
>
	IFB <AH@>,<	UTIME [0]	
>
UTIME [0]	
>i. @i.,;sQ  i/$\SQ iJ  aB
	UTRAP [!	A
		ASCIZ @B@]
		ASCIZ @B@iK:P iRNK I@`
	CPYRYT
	TITLE A
	SEAR
CH MACSYM,MONSYM
	SALL
	GGLOBSiS<;qP iS<mzP iS=-P iS=[rP iS=\uP iS>VP iS>;VP iX ZqE]
IFB <C>[,	T <A:>,B,.A,[0D

IFNB <C>,	[PT <A:>,B,C,D
A:>,B,C,D
 UaTYPE[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 D$`EC		
XX CRR		
X%X STAR		
XX WORD% 		
XX DT		
XX H%@ELP		
XX OCT		
%`XX STR		
XX DEV	&	
XX CMERR	
XX & DEF		
XX@USER		
XX USERS	
XX DI&`R		
XX DIRS		
X'X COMMA	
XX LINE' 		
XX DOT		
XX '@TIME		
XX COLON	'`
XX DEXT		
XX C(HAR		
XX QUOTE	
XX ACCT		
XX DT(@IV		
XX FNODE	
(`XX RNODE	
XX DTP)		
XX DTR		
XX ADDR		
		
XX k:} &k>@ RkC{8 (kG-} rkJuy zkN.,| ?qD	IFNB <A>@,<	UUSERS [ASCIZ @0\A\]
>
	IFB <@PA>,<	UUSERS [0]	
>
USERS [0]	ICz	IFNB <A>>i,<	UUSER [ASCIZ \?A\]
>
	IFB <A?(>,<	UUSER [0]	
>
UUSER [0]	
>kNdt <kO$@ JkO&  TkO,(w :kRMY  jkRNK 
I@h
	TITLE 
iA
	SEARCHMMACSYM
	SALL
	GGLOBS
	SALL
	kS 6kSN	  "kW\@ \kW\Y ^k^~) Lo"fPQ o2&3P&Ho?N 4)C(	IFNB <A>4I,<	UWORD [ASCIZ \4hA\]
>
	IFB <A5>,<	UWORD [0]	
>
UWORD [0]	
>q0 !A
IFN XARCSW,IFN XARCSWq<{P qd@Q xqY P%8q\P .q\P q\}P  qexY u	Of

	XLISTv
	.XCREF

DEFIv NE QEXT (SYM)<
	v@IRP SYM,<
	IFNDEv`F SYM,<EXTERN SYMw
		SUPPRE SYM>>>w 
QEXT <SJw@LEN,JTAB,JLEN,CBLw`OCK,TRAPU,TRAPD,SxAVSP,SAVCM,RESCM>x 
QEXT <CMDOUT,CLx@RALL,CLRBIT,JSBDEx`F,SETALL,SETBIT,SyETTRP,COPBTS,RESAy CS,SAVACS>
QEXT y@<SKPON,TRPPSI,JTAy`B,SKPNAZ,TRPOKF,TzSTOPF,MRKTRP,GETLz PC,FOWNER,TFILEF,z@TOPENF>
QEXT <SNz`DPDB,MYPID,QSRPID{,MDAPID,NEBPID> ;{ [7.1232]
QEXT <G{@ETPID,GQPID,QUASN{`D,SNDMSG,SNDMS1,I|PCRCV,GQSRPD>
QE| XT <IPCON,IPCOFF,|@IPCINT,CHECKM,IPC|`HEK,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 <FL`JFNS>
QEXT <DOECHO>
QEXT <.MAKE, .TECO,.TV>
QEXT @<SPEEDA,SYSDWN,PR`ACCT,CKSTAR,GETDVN>
QEXT <SBLOCK, FBLOCK>
QEXT <%%@LVER,%%RVER>
QEX`T <RJWARN,REWIND,CJDEV,OPNMAG>
QE XT <ABKCNT,INFTRM@>
QEXT <%GETER,D`GETER,.EDIT,.EDITC,.EDITP,CSVCC,ED SVB,TECSVB,CMAGN>@
QEXT <TOUT,TOUT`D,TBOUT,TSOUT0,ASOUT,USRCNT>
QEXT  <DWNTYP,SNBLKS,S@SIZE,$CHFDB,USRNA`M,DFUSER,TTYUSR>
QEXT <.P,.PP,COM AND,COMSIX,PRGCEL@,CIPF,CLF,MPENDF,`NACL,GLOADS,CLSON,BEGINP,SVPRMT,EC HCMD>
QEXT <HELP@SN>
QEXT <GETDIR`,RELDIR,GETDRP,DIRINI>
QEXT <.STR ST,VERPNT,%VERSI>@
QEXT <.VERSI,EX`ECV,CMDINI,MONSTA,SUBSTA,.JOBST,.R UNST,.MEMST,.DSKS@T,.ERRST,.FILST,.`INFOR,.PISTA>
QE	XT <.PUSH,.POP,.U	 NATT,.INDIR>
QEX	@T <INFER,UNMDIR,$	`CONTI,$LPTST,GETL
PT,FINLPT,$REENT>
 
QEXT <$START,..
@CONT,..REEN>
QEX
`T <MFOUT,MFSET,MFINP,MFINP0>
QEXT  <SIXPRT,.AVAIL,$@OPEN7,$OPENF,$ERS`TR,OPNERR,ERRFIN,
CRIF,LM,%MESS,PNT
 MES>
QEXT <LGORE
@T>
QEXT <CFGBLK,
`CFGSIZ>
QEXTE<BELUP,ECFOR
QEXT <STAYF,ERESE T,TRYGTJ,DOGET,TR@YGTS,TRYGTO,TRGTV`1,WHY,$GET2,$GET0,CRSCAN,$GTFDB>
 QEXT <..STRT,RSPT@R,.ACCOU,.ADVIS,.`APPEN,.ASSIG,.ATTAC,.BREAK>
QEXT  <.CHANG,.CLEAR,.C@LOSE,.CLUST,.REMA`R,.CONNE,.CONTI,.COPY,.CREAT>
QEX T <.ACCES,.ENDAC>@
QEXT <.DAYTI,.D`DT,.DEASS,.DEFIN,.DELET,.DETAC>
Q EXT <.DIREC,.TDIR@E,.FDIRE,.VDIRE,.`DISAB,.DISMO>
QEXT <.EDDT,.ENABL, .EXPUN,.FORK>
QE@XT <.GET,.HELP,.H`OST,.SEND>
QEXT <.LNLIS,.LOGIN,GS R,SSR,.LOGOU>
QE@XT <.MERGE,.MOUNT`,.PRINT,.PROTE,.PRINT,.SUBMI,.IPR, .IBR,.IRR,.IMR,.M@ODIF,.CANCE>
QEX`T <.PLOT,.SDP,.SDPL,.SNDPL,.SDS,.S NDCS,.SNDS,.SNDP,@.SDC,.SDT,.SNDCP,`.SNDTP>
QEXT <.SDCS>

;[7.1031]  For REMOTE-PRINT@ING
QEXT <SRPCHR`,SRPDEF,SRPPTR,SRPCH3>
QEXT <$RMP RT,.RMPRT,.REMOT>@
QEXT <KBTMSK,NB`TMSK,BTMSK1,BTMSK2,BTMSK3,BTMSK4>
;[7.1061] More R@EMOTE-PRINTING
Q`EXT <CHRTAB,CTBLEN,PTRTAB,PTBLEN>
;[7.1061] Still @more...
QEXT <FD`CHLP,FDPHLP,PBKFDB,CBKFDB,KEYBMS>
;[7.1061] Lowerc@ase to uppercase `translate
QEXT <UPRCAS>
;[7.1073 ] For remote prin@ting features of `PRINT command
QEXT <DSTNOD,RPNODE ,RPQUE,.REMPR>
;@[4417]For SET DEF`AULT PRINTER /REMOTE:
QEXT <DEFQU E,DEFREM,DEFDST,D@EFUNT,DEFADR,PRIF`LG>	;[4417]
QEXT <RESLV1,STPTAB>	 				;[4417]
QEXT@ <$DEF>
QEXT <.I`DC,.IDPL,.IDCS,.I DP,.IDPRT,.IDS,.I  DALL,.IDPRG,.IDTA @K>
QEXT <.PUNCH> `
QEXT <.QUIT,DOA!TI>
QEXT <.R,.RE! CEI,.REENT,.REFUS!@,.RENAM,.RESET,.R!`UN>
QEXT <.CSAVE",.SAVE,.SET,.STAR" T>
QEXT <.TAKE,."@TALK,.TYPE,.TRANS"`,TYPE1,.UNDEL,.UN#MOU>
QEXT <.JWAT# ,IJWSEQ,JWPAG,JWP#@AGL,IJWPSI,WJPTAB#`,JFNGON,XRMBLK,EX$CBLK,XRMPNT>
QEX$ T <ASTTJ,CHKDAL,C$@MDIN2,CMDIN4,CIN3$`,EXEC,JOBREN,JOBS%A,JOBSYM,JOBDDT>
QEXT <XEND,.NPAG%@S,EVLEN>
QEXT <L%`EVTAB,REE,SUPER,.&JOBSY,.TEXEC>
QE& XT <READY,READY2,&@FIELDX,FLDSKP,CFI&`ELD,GETTER,REPARS',SETT20,SAVT20,SA' VNAM,SETMOD,GETMO'@D,SETPRG>
QEXT <'`%KEYW,GETKEY>
QE(XT <PRVCK>
QEXT ( <%NOI>
QEXT <%SB(@COM>
QEXT <CONF,(`FCONF,FCONFA>
QE)XT <SPRTR,BITS>
) QEXT <CIOREL,SETI)@OF,TINPF,NOTIO>
)`QEXT <%$TYPE,$CTY*PE>
QEXT <COUTFN* ,CSAVFN,SPECFN,CP*@FN,CPFNA>
QEXT <*`.INFG,INFGNS,TYPF+LS,$INFGX,DIRARG>+ 
QEXT <TYPIF,TYP+@OK,GNFIL,NXFILE>
QEXT <DEVN,STRN,,CONST,INDT,LBLSKP, >
QEXT <DIRNAM,D,@IRNMX,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,G/@ETSXF,GETASC,FIXP/`T> ;[4403]
QEXT 0<NOECHO,DOECHO,LT0 TYMD,FIXIO,RTTYMD0@>
QEXT <%PRINT>
QEXT <COUTC>
QE1XT <MAPPF,FREL,RA1 NDOM,TYPEXP,TYPAD1@D,GINSTR,PINST,RI1`NST,EVAL>
QEXT <2SYMF,SYMOKF,SOFF,2 SYMBA,SYMEA,SYMBE2@G,SYMEND,LASTP,NS2`YMS,SYMBF>
QEXT 3<DBGEXC>
QEXT <L3 OADF>
QEXT <STOR3@EF>
QEXT <%GTB>
QEXT <DING,CERR,4NIYE,NIM,SCREWUP,4 JERR,JERRC,CJERR,4@JERRE,CJERRE>
QE4`XT <%TRAP>
QEXT 5<AUTOLO>
QEXT <%5 ERR,%$ERR,%.$ERR 5@>
QEXT <RERET>
5`QEXT <%ETYPE>
QE6XT <RLJFNS,UNMAP,6 JFNSTK,CLZFFF,JFN6@RLA,GTJFS,RJFN,PI6`ON,PIOFF,ACTRCF,I7NTDF,IINTDF>
QEX7 T <GNJFS,FLOAT>
7@QEXT <CSZ1,CSZ2,C7`SZ4>
QEXT <CMDAC8S,REPARA>
QEXT <8 CIJFN,COJFN,JBUFP8@,.JBUFP,.J,JBUF,C8`JFN1,CJFN2>
QEXT9 <TAKLEN,SAVTAK,T9 AKCUR,TAKDEF,TAKJ9@FN,TAKBTS,PUSHIO,9`ALONOI,ECHNOI>
Q:EXT <INIFH1,INIFH: 2,VALNOD,VALNDN,C:@INODT,OURNOD,NODB:`LK,INFCIN> ;[7.10;76]
QEXT <CFGNOD; ,INFBLK,TOUT,INFS;@YS,UNAME,DIRN,ORG;`N,JRCASH,WLDPAG> <;[7.1076][7.1137]< 
QEXT <DPPT,DPST<@K,DSPT,DSSTK,DCPT<`,DCSTK,DPLPT,DPLS=TK,DTPT,DTSTK>
Q= EXT <EOFDSP,EOFJE=@R,DATDSP,ILIDSP>
QEXT <CIDLYF,PAX>LFL,CCFLAG>
QEXT>  <CINITF,LOGINI,L>@OGINF,SYSMF,LOGDA>`T,FILINI,TAKEIN,T?AKSYS>
QEXT <PRV? ENF,MESMSF,CUSRNO?@,LIDNO,JOBNO,POBX?`NO>
QEXT <EXDPF,@EXDPLC,FSTLGN>
Q@ EXT <FORK,RFORK,D@@DTFLG,NPAGE,EFORK@`,BATCHF,PROG,SNDPARG,SDPROG,GETFB1,A ANNKEP,INDQUS>
QA@EXT <SDECHO>
QEXA`T <STRTIM,TTYACF,BPTTYAC,ALOST,CJPTB IM>
QEXT <ITTYMDB@,PTTYMD,ETTYMD>
B`QEXT <CERET>
QEXCT <CTUUO>
QEXT <C SSTACK>
QEXT <ERC@COD>
QEXT <USERNC`O,MCOJFN,OUTDSG,TDYPGRP>
QEXT <DEXD TBL>
QEXT <PD,IND@ISTK,PDLOV,CBUF,AD`TMBUF,CBUFE,CJFNBEK,XTNNUM,XTNCNT,EE CHPTR,ECHCNT,CTRPE@TR>
QEXT <TEXTICE`,TEXTID,TEXTIA>
FQEXT <PPATS,PPAT,F PAGEN>
QEXT <LEVF@1PC,LEV2PC,LEV3PCF`,PCTAB>
;QEXT <$GCTRLA,$CTRLR,$CTRG LV,$CTRLW,$CTRLX,G@$EOL,$DASH,$CONT,G`$RUB>
QEXT <$FORHMF,$LF,$CONT,$TDEH NS>
QEXT <USEPSIH@,ILIPSI,EOFPSI,DAH`TPSI,ICLEAR,CCPSII,TLMPSI,ALOPSI,COI BPSI>
QEXT <ADVFI@LG,SAVPGM,FIXON,AI`DVTNM,ADVMES,BREAJK1,ESCPSI,JFNSIL,J QTAPSI,QTADSP>
QJ@EXT <CUUO>
QEXT J`<ERRET,NESC>
QEXKT <FSTAT>
QEXT <K FSTOUT>
QEXT <ERK@RMF>
QEXT <CSBUFK`>
QEXT <%EDAYT>
QEXT <ACCT,PASSXL ,PASWD,PASLIN,PASL@FLD>
QEXT <CHRTBL`L>
QEXT <JOBOPC>M
QEXT <.BACKS,.SM KIP,.EOF,.REWIN,.M@UNLOA>
QEXT <CSCM`AN>
QEXT <.CREF,N.EXECU,.COMPI,.DEN BUG,.LOAD,OCCLF,GN@OTO2,CLOPAT,DOCCLN`,DOCC1,DOCC2>
QEOXT <CSVC>
QEXT <O MALCHK,MALWEN,MINO@T0,MWATCF,MWATCH,O`MAILF> ;MAIL WATCPH
QEXT <SUBBP>
P QEXT <NETRDY>				P@;ARPANET
QEXT <QP`TIMES,SNAMES,SYSVQER,JOBRT,TTYJOB,NQ ETRDY>
QEXT <GETQ@AMT,CHKPTY>
QEXTQ` <LRFSTS>
QEXT <R.USEND>
QEXT <EDR TFIL,EDTINF,EDTCRR@E,EDTOUF,EDTCFM>

;TERMINAL-RELASTED GLOBALS


S 
QEXT <$TERMI,$TS@TYP,$TERNO,TTYPTBS`,BLNKTB,NTTYPS,.TTTY3>
QEXT <.T33,T .T35,.T37,.TI,.FLT@AG,.FORMF,.FULLD,T`.HALFD,TTYHLP,.IMUMED,.INDIC>
QEXTU  <.LA120,.LA30,.LU@A36,.LA38,PLENTH,U`.LINE,.LOWER,.TERVNO,.PAGE,.PAUSE,.V RAISE>
QEXT <.SPV@EED,.DFLT,.TABS,.V`TRMNT,.TTYPE,.VK1W00,.VT05,.VT100,.W VT102>
QEXT <.VTW@125,.VT131,.VT200W`,.VT300,.VT50,.VTX52,.VTH19,.LWIDTHX ,TTYNTY,.TTH19>
X@QEXT <RTTFLG,RTFLX`G1,.INHIB,.IDEAL>Y ;[4424]


; CY RJOB/PRARG

QEXY@T <CRPRA,..STCR,MY`ESS>

; ArchiveZ system

QEXT <Z .ARCHI,CANARC,.DIZ@SCA,.RETRI,FTDBLKZ`,ARCBLK>

; Ext[ended features
[ 
QEXT <.RDIRE,.WD[@IRE,.QD,ALRCHK,MA[`LCHK,IITPSI,POBCH\K>
QEXT <TYPFIN,\ TPCCOC,TPTTYP,TYP\@ING,SPRSED,BYTSIZ\`,AUTOF,IITSET>
Q]EXT <MALBUF,MWATA] T,MWATCT,MWATDR,M]@WATWR,MWATN,MWATN]`0,ALRTIM,ALRTMS>
QEXT <RUNFK,IDFO^ RK,EDFORK,FRKTAB,^@SLFTAB,FRKNMS,KEP^`NMS,FRKDEF,SFKNAM_>
QEXT <.FREEZ,._ UNKEE,.NAME,.KEEP_@,UTTYMD,RFTYMD,FT_`TYMD,REASON>
QEX`T <RSTFK,REPH,STE` PH,REPH1,.ERUN,.B`@LANK,BLANK1,KEFOR``K,GETILI,DWNPNT>
QEXT <.DO,.KMIC,a MICFRK,PAGEMI,MICa@FPG,MICPAG,GETPAGa`,USEPSM>
QEXT <.bGOTO,.BACKTO,.ERRb OR,.IF,.NOERROR,.b@OPERATOR,.NOOPERAb`TOR>
QEXT <ADDNAcM,.NOLM,.KFRKC>
c QEXT <CCKEEP>

c@;Programmable Comc`mand Language

dQEXT <CTBL1,PCCURd C,PCFLAG,PCTXFR,Pd@CSFRE,PCLSTF,PCVVd`AL>
QEXT <PCFLDBe,.DECLA,.UNDEC,PCe MXCT,PCMPOP,PCMPOe@S,PCMPRS>
QEXT <e`PCINIT,PCCCPL,PCIfDFV,PCIUDF,PCIRUNf ,PCEXCT,SUBNAM>
f@QEXT <PCONCE>	;[Bf`CM] once only flagg for PRSINI
QEXg T <PCMPSI,PCMPSO,g@PCIPSO,PCPOTP,PCPg`RGR,WFORKX,FFORKXh,.PCLOB>
QEXT <Ph CIINF,SINVAR,SSTVh@AR,PCISGS,.PCLVR,h`PCIDGS,PCICLP>
QiEXT <PCCWKE,PCRPAi S,PCLDCO,PCIWEV,$i@SDEF,PCIGEV>
QEXi`T <CIN2,PCIDFS,PCjIFGS,WAITA,PCLPMTj >
QEXT <PCIPSV,Pj@CFLDP,PCLGST,CUSTj`MF,PCWAIT,READ1>
QEXT <PCRNFK,PCFk ORK,PCLNAM,PCCIPFk@,NPCLIO,.IDDCL,ORk`IFLG>
QEXT <.PRElXC,.PRENV>
QEXT l <CHNS,CHNTAB,CM1Dl@B,CM1DBE,CM1XL,CTl`BL2,CM1YL> ;[4427m]
QEXT <TDEFAU,$m SETO,$SETN,$SFILEm@,$SFNO>
QEXT <$Rm`SFD,$SVFD,$INFO>
QEXT <CRDSET,IVOn L,NTRAP,SETSRM,SPn@LINF,SPLSET>
QEXn`T <SYSINF,TAPINF,oTRMPNT,.ADBRK,.ADo DRE,.ALERT>
QEXTo@ <.ALRST,.ARSTS,.o`AUTOM,.CIDLY,.CTRpLC,.DEFAU>
QEXT p <.DEPOS,.ENTRY,.Ep@XAMI,.EXECM,.FEXPp`,.FILEV>
QEXT <.qFLINX,.FLONX,.FPRq OH,.FRESI,.IARPA,q@.IDECN>
QEXT <.Iq`NVIS,.LOCAT,.MALSrT,.MWATC,.NODEF,.r NOTIM>
QEXT <.OFr@L,.PAC,.PAXL,.PREr`SE,.SDIR,.SETNO,.sSFILE>
QEXT <.SFs NO,.SISTA,.TAPE,.s@TERMI,.TIME,.TKD>s`
QEXT <.TRAP,.TYtPEO,.VISIB>
QEXTt  <.EPHM,.FRKST,.St@UPER,SAVSWI,.CTRAt`C,.ORIGI,.SDDCL>
QEXT <.INDEF,.SEu DEF,.STMLM,$SET0>u@
QEXT <.SAVT,CMDu`CHT,CMDCHR>
QEXTv <MSEPSI>
QEXT <v RESET0,.RESE2,.REv@SS1,.RESST>
QEXTv` <$FRKNM,$NODEF>

;GLOBAL SYMBOLw S FOR COMMAND EDIw@TOR

QEXT <CMDHw`ST,FTCE,IMETKY,INxFOCE>
QEXT <.METx A,.NOMETA>
QEXT x@<SETNOF,TERMNL>
x`
QEXT <CIN42,HSTyCNT,HSTNUM,HSTPTRy ,.REDO,.AGAIN,.INy@HST,.RECAL,.SEHSTy`>

QEXT <CEBPTRz,CEDIT,CSAVE,CESAz VE,CEBFEN,CEFLAG,z@CETSAV,INSMOD,.CEz`SET>
QEXT <CEMET{A,CEFFL,CE1ST,CEL{ AST,CECNT,.CEDMO,{@NOPRMT,CETTMD,CEV{`MSD>
QEXT <CEKBU|F,CEPSIC,PCLMID,.| CEPSI,.SCEIC,.SNC|@EI,SVSEDC,SVSEDP,|`CEPBUF>

	.CREF
	LIST
   REFqJn3P%4qJn
P -qRt@ aAIFN XTNDSWIFN XTNDSWqRtL{P q` !AB
OPDEF U!aA [<%%NUUO>B12]
"%%NUUO==%%NUUO+1
DEFINE AX(HELP)"@
<	IFNB <HELP>,<"`	UA [ASCIZ \HELP#\]
>
	IFB <HELP# >,<	UA [0]	
>
>
A [0]	
>
sd@P't@ 	+y AAd
	U$ERR [ASCIZ @A@]RR [
v]7P  \k cYF
	$FKFLAGcy==<Z 0>		
	A (<B>,0C,D)A (<]7 dqF)
	$FKHAN=e=<Z 1>		
	A (<B>,1C,D)A (<^(2 eYF/
	$FKRADDey==<Z 2>		
	A (<B>,2C,D)A (<^)9 g)F<
	$FKRESPgI==<Z 4>		
	A (<B>,4C,D)A (<^+2 fAF6
	$FKRMESfa==<Z 3>		
	A (<B>,3C,D)A (<.,W Ah
	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 ^