Google
 

Trailing-Edge - PDP-10 Archives - bb-l014y-bm_tops20_v7_0_tsu02_1_of_2 - 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 XyEM	IFNB <A>Y,<	UACCT [ASCIZ \Y8A\]
>
	IFB <AYX>,<	UACCT [0]	
>
UACCT [0]	
>C5IQ C&. `iF
	IFNB <A>a	,<	UADDR [ASCIZ \a(A\]
>
	IFB <AaH>,<	UADDR [0]	
>
UADDR [0]	
>C4:P 
C4\qP C3%PP
	UALTYP [ASCIZ @A@]YP CRmI7P zCSR "1B
	JSP CX,.SAVT
	JSP CX,CW%{P ,CW%{	P CW%{	P D@ Ee@P E'%[P ENf: 5aC4	IFNB <A>6,<	UBSLSH [ASCIZ 6 \A\]
>
	IFB <6@A>,<	UBSLSH [0]	
>
BSLSH [0]	CDR~	EV2P&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". V)E8	IFNB <A>VI,<	UCHAR [ASCIZ \VhA\]
>
	IFB <AW>,<	UCHAR [0]	
>
UCHAR [0]	
>G#:P G#m6P ?G6
(` x9GC.CMABC+SBLOCK.CMABC+SBLG6
, wyG?.CMABP+SBLOCK.CMABP+SBLG6
=Q  G6l uyG/.CMBFP+SBLOCK.CMBFP+SBLG6*` {9G[.CMBRK+FBLOCK.CMBRK+FBLG6k Q G6X Q `G6m vyG7.CMCNT+SBLOCK.CMCNT+SBLG6$ yyGO.CMDAT+FBLOCK.CMDAT+FBLG6$Y@ zyGW.CMDEF+FBLOCK.CMDEF+FBLG6$]@Q @G6%@Q  G6.,\ FID:	IFNB <A>Fi,<	UCMERR [ASCIZ G\A\]
>
	IFB <G(A>,<	UCMERR [0]	
>
CMERR`[0]	G65IQ@`G65I`@nFp.CMFLG+SBLOCK.CMFLG+SBLG65MQCG65l y9GK.CMFNP+FBLOCK.CMFNP+FBLG6=(@ xyGG.CMGJB+SBLOCK.CMGJB+SBLG6EL z9GS.CMHLP+FBLOCK.CMHLP+FBLG6Lj Q G6Mh` w9G;.CMINC+SBLOCK.CMINC+SBLG6Mj Q G6Mz@ mAFl.CMIOJ+SBLOCK.CMIOJ+SBLG6\^ P G6uyQ @G6uz Q @G6v[ Q  G6v^Q G6|j Q  G7L@ v9G3.CMPTR+SBLOCK.CMPTR+SBLG7=Q  G7N  u9G+.CMRTY+SBLOCK.CMRTY+SBLG7z Q `G7$Q G7%z`Q `G7'
>
	IFB <T8A>,<	UCOLON [0]	
>
COLON [0]	9Dy	IFNB <A>NY,<	UCOMMA [ASCIZ Nx\A\]
>
	IFB <OA>,<	UCOMMA [0]	
>
COMMA [0]	1BS
       CALL CONF      CG@,P G@,;xP G@-	6P G@.<P G@.N8P GCN.: A-
	LOC	0
9	ASCIZ /
COPYRIGXHT (c) DIGITAL EQxUIPMENT CORPORATION, 1976, 1988.
8ALL RIGHTS RESERVXED.
/				
	RELOC
/				
	RELOGHP GK <)Ch	IFNB <A><I,<	UCRR [ASCIZ \<hA\]
>
	IFB <A>=,<	UCRR [0]	
>
	UCRR [0]	
>
GRI7P }GRyP 
GRd9HP @GRd9IP GSH`P GSI P GSI< 9YCS	IFNB <A>9y,<	UCTRLE [ASCIZ :\A\]
>
	IFB <:8A>,<	UCTRLE [0]	
>
CTRLE [0]	N@P I 7	C>	IFNB <A>7),<	UDASH [ASCIZ \7HA\]
>
	IFB <A7h>,<	UDASH [0]	
>
UDASH [0]	
>I$*:Q @I:=P I$lzP'hI%|SP'pI&>6P'pI ;C^	IFNB <A>;!,<	UDEC [ASCIZ \;@A\]
>
	IFB <A>;`,<	UDEC [0]	
>
	UDEC [0]	
>
I63 {yGu	A==:PPTR|		;PCL ALLOCATE T|8HIS PAGE AT CURRE|XNT PAGE POINTER
|x	B==PPTR_-9	;DEF}INE PAGE NUMBER
}8	PPTR==PPTR+C*10}X00	;STEP TO NEXT }xPAGE SLOT
	IFG P~PTR-DDTFST,<PRINT~8X ?Exec page buff~Xers 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 GqDE	IFNB <A>H,<	UDEF [ASCIZ \H0A\]
>
	IFB <A>HP,<	UDEF [0]	
>
	UDEF [0]	
>
I7 E!D0	IFNB <A>EA,<	UDEV [ASCIZ \E`A\]
>
	IFB <A>F,<	UDEV [0]	
>
	UDEV [0]	
>
IFN UE.	IFNB <A>U!,<	UDEXT [ASCIZ \U@A\]
>
	IFB <AU`>,<	UDEXT [0]	
>
UDEXT [0]	
>IYVP I'> MDo	IFNB <A>M1,<	UDIRS [ASCIZ \MPA\]
>
	IFB <AMp>,<	UDIRS [0]	
>
UDIRS [0]	
>I' KiDd	IFNB <A>L	,<	UDIR [ASCIZ \L(A\]
>
	IFB <A>LH,<	UDIR [0]	
>
	UDIR [0]	
>
I?' Q	E	IFNB <A>Q),<	UDOT [ASCIZ \QHA\]
>
	IFB <A>Qh,<	UDOT [0]	
>
	UDOT [0]	
>
IR
:P IRNn Z!EX	IFNB <A>ZA,<	UDTIV [ASCIZ \Z`A\]
>
	IFB <A[>,<	UDTIV [0]	
>
UDTIV [0]	
>IS ^Ew	IFNB <A>^9,<	UDTP [ASCIZ \^XA\]
>
	IFB <A>^x,<	UDTP [0]	
>
	UDTP [0]	
>
IS _AF	IFNB <A>_a,<	UDTR [ASCIZ \`A\]
>
	IFB <A>` ,<	UDTR [0]	
>
	UDTR [0]	
>
IS@ @!D	IFNB <A>@A,<	UDT [ASCIZ \A@`\]
>
	IFB <A>,<	UDT [0]	
>
K Q K60 1A{IFN EMCSSWIFN EMCSSWK6<{P KK|@ %qB1
       U&ERR [ASCIZ @A@]RR [ASCIZ @A@]KKPQ KSN	  )1BK
	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^ 81CI	IFNB <A>8Q,<	UFILE [ASCIZ \8pA\]
>
	IFB <A9>,<	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< [IEb	IFNB <A>[i,<	UFNODE [ASCIZ \\A\]
>
	IFB <\(A>,<	UFNODE [0]	
>
FNODE [0]	,PP%XMJ,\P 6MJ.@P MJ.:=P pO&8;  1BASCIZ \AEXE\ASCIZ \AEOexY Gy
   IF2,<
	XGLOBS>IF2,<O3F8t AC
	SEARCH 9QSRMAC,GLXMAC,ORNMACC,GLXMAC,ORNO?I3 yAI
	OPDEF A [<B>]
	INTERN AB>]
	INTERNOJ~\P ON~	 YAO
	OPDEF yA [B]
	INTERN A
	.NODDT A OOI7P OR )AS
	CALL [	9MOVEI A,A	
		CALLRET %GTB]	
AOR%K@P)D	IFNB <A>AI,<	UHELP [ASCIZ \AhA\]
>
	IFB <AB>,<	UHELP [0]	
>
UHELP [0]	
>Q&=
P ?QO%X<P 
S,(: !qB	SKIPN BATCHF
	JRST A
St(: !1B	SKIPE BATCHF
	JRST A
SMm@PS'$:PSB,P (SB-3P% SB:P 
SBlP&HSBX<P SB|P ,SB}YP%0SP gF8
0
	T <A>,B,C,D!CM%INVPSF40Ee@SS0 gqFB
`
	TV <A>h!,B,C,D!CM%INVB,C,D!CM%INVPVF;0M%INVU
d[@P U,kP  U^+@ $B!
	ERCAL RJWARN
	ERCAL RU^.	rP yU^.	yP .U_vP WNy $Y<-3P Y0 "qB	MOVX A,B
	MOVX A,Y+y &QB5
	ULERRO [ASCIZ@A@]ROYP	Y`PCZ \P A\]
>
	IFB <AP@>,<	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 ]<` 1AkIFN NEWFSWIFN NEWFSW]<l{P ]FL`P ]<`P 
]6)yP  ]7<P ]>&:=P ]>-Xy qAIFE EMCSSWIFE EMCSSW]>N9  )qBO
	UNOI [ASCIZ @A@]OI [A]>dpQ ]>t]s qAoIFE NEWFSWIFE NEWFSW]?RQ ]?Y qAwIFE SEDSWyIFE SEDSW]?FKR qAgIFE XTNDSWIFE XTNDSW]CPP ]Nn	yP ]S'2P _' BQD	IFNB <A>Bq,<	UOCT [ASCIZ \CA\]
>
	IFB <A>C0,<	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}\ (qBG
	UPROMPT [ASCIZ @A@]PTaRI7P }aS:P bD@ bH@ bL@ cNd[@P @cV~I< WQEC	IFNB <A>Wq,<	UQUOTE [ASCIZ X\A\]
>
	IFB <X0A>,<	UQUOTE [0]	
>
QUOTE [0]	e&:x yAWJRST RSKPUJRST RSKPe2N=P&He::=P e:YVP de:|I< \qEm	IFNB <A>],<	URNODE [ASCIZ ]0\A\]
>
	IFB <]PA>,<	URNODE [0]	
>
RNODE [0]	
e;P g  1AsIFN SEDSWuIFN SEDSWg&=`P g$I3P gYVP g2: 49C)	IFNB <A>4Y,<	USLASH [ASCIZ 4x\A\]
>
	IFB <5A>,<	USLASH [0]	
>
SLASH [0]	YRP  gRYUP ~gRYVP ~gR[SP gR\yP gR	lWP 0gR. =QCs	IFNB <A>=q,<	USTAR [ASCIZ \>A\]
>
	IFB <A>0>,<	USTAR [0]	
>
USTAR [0]	
>gR@P ,gRY@P%2gS:=P tgS CyD%	IFNB <A>D,<	USTR [ASCIZ \D8A\]
>
	IFB <A>DX,<	USTR [0]	
>
	USTR [0]	
>
gV;v $QB+	IFB <B>,$q<
		USUBCO [	A
				0]>
	IFNB <%0B>,<
		USUBCO [	A
				B]>
g^N:=P ggH6P h b1F(
 
	..BITS=ba=0
	IFNB <B>,<.c.BITS==B>
	IFB c <C>,<$FOO==.A>
        IFNB <Cc`>,<$FOO==C>
IFEd D,<XWD [ASCIZ @d A@],[..BITS!$FOOd@]>
IFN D,<XWD [d`D!CM%FW
		ASCIZe @A@],[..BITS!$FOO]>
..BITS!$FPRC!0R=
i haFN
IFNB <Bi>,<%%X==B>
IFB i <B>,<%%X==.A>
i@	[	CM%INV!CM%ABR!i`CM%FW
		ASCIZ /A/],,%%X
IZ /iP iI  j!FX
	Z			;FIjALLED IN BY NEXT Tj`END
	..T==.			;UkSED BY NEXT TENDED BY NEXT TENDi%I7P i]K\P i
e<}P tit@ kAFf
       .ka.U==.
        RElLOC ..T-1
	..U-.l .T,,..U-..T	;FILLl@ IN FIRST WORD OFl` TABLE
        RELOC ..U      Ri&l^ R1E	IFNB <A>RQ,<	UTIME [ASCIZ \RpA\]
>
	IFB <AS>,<	UTIME [0]	
>
UTIME [0]	
>i. @i.,;sQ  i/$\SQ iJ +1B]
	UTRAP [+Q	A
		ASCIZ @B@]
		ASCIZ @B@iK:P iRNK A5
	CPYRYT
	TITLE A
	SEARXCH MACSYM,MONSYM
	SALL
	GGLOBSiS<;qP iS<mzP iS=-P iS=[rP iS=\uP iS>VP iS>;VP iX eAF2
IFB <C>ea,	T <A:>,B,.A,fD

IFNB <C>,	f T <A:>,B,C,D
A:>,B,C,D
 U(1TYPE[ASCIZ`A]PE[ASCIZA]j.,@.j8$\Y8k=tk$L@kLt>kD@pkl\YXk}Kwlk}[0dkkHk&+WDk: @k,0Fk,`Zk.` Vk/
XX SLASH.Q	
XX BSLSH	
XX .pDASH		
XX FILE		/
XX CTRLE	
XX D/0EC		
XX CRR		
X/PX STAR		
XX WORD/p		
XX DT		
XX H0ELP		
XX OCT		
00XX STR		
XX DEV	0P	
XX CMERR	
XX 0pDEF		
XXUSER		
XX USERS	
XX DI10R		
XX DIRS		
X1PX COMMA	
XX LINE1p		
XX DOT		
XX 2TIME		
XX COLON	20
XX DEXT		
XX C2PHAR		
XXpQUOTE	
XX ACCT		
XX DT3IV		
XX FNODE	
30XX RNODE	
XX DTP3P		
XX DTR		
XX ADDR		
		
XX k:} &k>@ RkC{8 (kG-} rkJuy zkN.,| JADZ	IFNB <A>Ja,<	UUSERS [ASCIZ K\A\]
>
	IFB <K A>,<	UUSERS [0]	
>
USERS [0]	DO	IFNB <A>I9,<	UUSER [ASCIZ \IXA\]
>
	IFB <AIx>,<	UUSER [0]	
>
UUSER [0]	
>kNdt <kO$@ JkO&  TkO,(w :kRMY  jkRNK A=
	TITLE 9A
	SEARCH MACSYMX,MONSYM
	SALL
	GGLOBS
	SALL
	kS 6kSN	  "kW\@ \kW\Y ^k^~) Lo"fPQ o2&3P&Ho?N >yC}	IFNB <A>?,<	UWORD [ASCIZ \?8A\]
>
	IFB <A?X>,<	UWORD [0]	
>
UWORD [0]	
>q0 qA_IFN XARCSW,IFN XARCSWq<{P qd@Q xqY P%8q\P .q\P q\}P  qexY YP;

	XLISTQ
	.XCREF

DEFIpNE QEXT (SYM)<
	IRP SYM,<
	IFNDE0F SYM,<EXTERN SYMP
		SUPPRE SYM>>>p
QEXT <SJLEN,JTAB,JLEN,CBL0OCK,TRAPU,TRAPD,SPAVSP,SAVCM,RESCM>p
QEXT <CMDOUT,CLRALL,CLRBIT,JSBDE0F,SETALL,SETBIT,SPETTRP,COPBTS,RESApCS,SAVACS>
QEXT <SKPON,TRPPSI,JTA0B,SKPNAZ,TRPOKF,TPSTOPF,MRKTRP,GETLpPC,FOWNER,TFILEF,TOPENF>
QEXT <SN0DPDB,MYPID,QSRPIDP,MDAPID,NEBPID> ;p[7.1232]
QEXT <GETPID,GQPID,QUASN0D,SNDMSG,SNDMS1,IPPCRCV,GQSRPD>
QEpXT <IPCON,IPCOFF,IPCINT,CHECKM,IPC0HEK,NOWPTR,IPCRCFP,IPCWTF,IPCALF,IPpCFND>
QEXT <UNIQUE,IPCTBL,IPCAGE,0IPCFGS,IPCCTL,INFPPID,OLDIDX,IPCFLMp>
QEXT <DGFRKS,R	ELHAN,SETENT,SETG	0O,GETENT,WAITF> ;	P[3063]
QEXT <CIN	p0,SECFIL,SETPAS>	
;[4412]
QEXT <FL
0JFNS>
QEXT <DOEC
PHO>
QEXT <.MAKE,
p.TECO,.TV>
QEXT <SPEEDA,SYSDWN,PR0ACCT,CKSTAR,GETDVPN>
QEXT <SBLOCK,pFBLOCK>
QEXT <%%
LVER,%%RVER>
QEX
0T <RJWARN,REWIND,
PCJDEV,OPNMAG>
QE
pXT <ABKCNT,INFTRM
QEXTE<%GETER,DDIT
QEXT <TOUT,TOUT0D,TBOUT,TSOUT0,ASPOUT,USRCNT>
QEXTp <DWNTYP,SNBLKS,SSIZE,$CHFDB,USRNA0M,DFUSER,TTYUSR>
QEXT <.P,.PP,COMpAND,COMSIX,PRGCEL,CIPF,CLF,MPENDF,0NACL,GLOADS,CLSONP,BEGINP,SVPRMT,ECpHCMD>
QEXT <HELPSN>
QEXT <GETDIR0,RELDIR,GETDRP,DIPRINI>
QEXT <.STRpST,VERPNT,%VERSI>
QEXT <.VERSI,EX0ECV,CMDINI,MONSTAP,SUBSTA,.JOBST,.RpUNST,.MEMST,.DSKST,.ERRST,.FILST,.0INFOR,.PISTA>
QEPXT <.PUSH,.POP,.UpNATT,.INDIR>
QEXT <INFER,UNMDIR,$0CONTI,$LPTST,GETLPPT,FINLPT,$REENT>p
QEXT <$START,..CONT,..REEN>
QEX0T <MFOUT,MFSET,MFPINP,MFINP0>
QEXTp <SIXPRT,.AVAIL,$OPEN7,$OPENF,$ERS0TR,OPNERR,ERRFIN,PCRIF,LM,%MESS,PNTpMES>
QEXT <LGORET>
QEXT <CFGBLK,0CFGSIZ>
QEXT <BEPFORE,DEVLUP,ECFORpK,EDEFIN,EOLRET,EPRINT,ESET,.SPEAK0,ECEASE,MESMES>
PQEXT <STAYF,ERESEpT,TRYGTJ,DOGET,TRYGTS,TRYGTO,TRGTV01,WHY,$GET2,$GET0P,CRSCAN,$GTFDB>
pQEXT <..STRT,RSPTR,.ACCOU,.ADVIS,.0APPEN,.ASSIG,.ATTPAC,.BREAK>
QEXT p<.CHANG,.CLEAR,.CLOSE,.CLUST,.REMA0R,.CONNE,.CONTI,.PCOPY,.CREAT>
QEXpT <.ACCES,.ENDAC>
QEXT <.DAYTI,.D0DT,.DEASS,.DEFIN,P.DELET,.DETAC>
QpEXT <.DIREC,.TDIRE,.FDIRE,.VDIRE,.0DISAB,.DISMO>
QEPXT <.EDDT,.ENABL,p.EXPUN,.FORK>
QEXT <.GET,.HELP,.H0OST,.SEND>
QEXT P<.LNLIS,.LOGIN,GSpR,SSR,.LOGOU>
QEXT <.MERGE,.MOUNT0,.PRINT,.PROTE,.PPRINT,.SUBMI,.IPR,p.IBR,.IRR,.IMR,.M ODIF,.CANCE>
QEX 0T <.PLOT,.SDP,.SD PPL,.SNDPL,.SDS,.S pNDCS,.SNDS,.SNDP,!.SDC,.SDT,.SNDCP,!0.SNDTP>
QEXT <.S!PDCS>

;[7.1031]!p For REMOTE-PRINT"ING
QEXT <SRPCHR"0,SRPDEF,SRPPTR,SR"PPCH3>
QEXT <$RMP"pRT,.RMPRT,.REMOT>#
QEXT <KBTMSK,NB#0TMSK,BTMSK1,BTMSK#P2,BTMSK3,BTMSK4>
;[7.1061] More R$EMOTE-PRINTING
Q$0EXT <CHRTAB,CTBLE$PN,PTRTAB,PTBLEN>
;[7.1061] Still %more...
QEXT <FD%0CHLP,FDPHLP,PBKFD%PB,CBKFDB,KEYBMS>
;[7.1061] Lowerc&ase to uppercase &0translate
QEXT <&PUPRCAS>
;[7.1073&p] For remote prin'ting features of '0PRINT command
QE'PXT <DSTNOD,RPNODE'p,RPQUE,.REMPR>
;([4417]For SET DEF(0AULT PRINTER /REM(POTE:
QEXT <DEFQU(pE,DEFREM,DEFDST,D)EFUNT,DEFADR,PRIF)0LG>	;[4417]
QEXT)P <RESLV1,STPTAB>	)p				;[4417]
QEXT* <$DEF>
QEXT <.I*0DC,.IDPL,.IDCS,.I*PDP,.IDPRT,.IDS,.I*pDALL,.IDPRG,.IDTA+K>
QEXT <.PUNCH>+0
QEXT <.QUIT,DOA+PTI>
QEXT <.R,.RE+pCEI,.REENT,.REFUS,,.RENAM,.RESET,.R,0UN>
QEXT <.CSAVE,P,.SAVE,.SET,.STAR,pT>
QEXT <.TAKE,.-TALK,.TYPE,.TRANS-0,TYPE1,.UNDEL,.UN-PMOU>
QEXT <.JWAT-p,IJWSEQ,JWPAG,JWP.AGL,IJWPSI,WJPTAB.0,JFNGON,XRMBLK,EX.PCBLK,XRMPNT>
QEX.pT <ASTTJ,CHKDAL,C/MDIN2,CMDIN4,CIN3/0,EXEC,JOBREN,JOBS/PA,JOBSYM,JOBDDT>
QEXT <XEND,.NPAG0S,EVLEN>
QEXT <L00EVTAB,REE,SUPER,.0PJOBSY,.TEXEC>
QE0pXT <READY,READY2,1FIELDX,FLDSKP,CFI10ELD,GETTER,REPARS1P,SETT20,SAVT20,SA1pVNAM,SETMOD,GETMO2D,SETPRG>
QEXT <20%KEYW,GETKEY>
QE2PXT <PRVCK>
QEXT 2p<%NOI>
QEXT <%SB3COM>
QEXT <CONF,30FCONF,FCONFA>
QE3PXT <SPRTR,BITS>
3pQEXT <CIOREL,SETI4OF,TINPF,NOTIO>
40QEXT <%$TYPE,$CTY4PPE>
QEXT <COUTFN4p,CSAVFN,SPECFN,CP5FN,CPFNA>
QEXT <50.INFG,INFGNS,TYPF5PLS,$INFGX,DIRARG>5p
QEXT <TYPIF,TYP6OK,GNFIL,NXFILE>
QEXT <DEVN,STRN,6PCONST,INDT,LBLSKP6p>
QEXT <DIRNAM,D7IRNMX,CURNAM,CURN70MS,USRNMS,STPDIR,7PSTPUSR>
QEXT <AT7pSAVR,TOCT,OCTCOM,8OCTLST>
QEXT <BU80FFF,GETBUF,RETMEM8P,GETMEM,RETBUF,ST8pREM,XFRINI,FREINI9,BCOUNT,GETNOD,CS90BUFP,DICT,XDICT,B9PUFFS,XBUFFS,GTBUF9pX,GETSIX,GETSXB,G:ETSXF,GETASC,FIXP:0T> ;[4403]
QEXT :P<NOECHO,DOECHO,LT:pTYMD,FIXIO,RTTYMD;>
QEXT <%PRINT>
QEXT <COUTC>
QE;PXT <MAPPF,FREL,RA;pNDOM,TYPEXP,TYPAD<D,GINSTR,PINST,RI<0NST,EVAL>
QEXT <<PSYMF,SYMOKF,SOFF,<pSYMBA,SYMEA,SYMBE=G,SYMEND,LASTP,NS=0YMS,SYMBF>
QEXT =P<DBGEXC>
QEXT <L=pOADF>
QEXT <STOR>EF>
QEXT <%GTB>
QEXT <DING,CERR,>PNIYE,NIM,SCREWUP,>pJERR,JERRC,CJERR,?JERRE,CJERRE>
QE?0XT <%TRAP>
QEXT ?P<AUTOLO>
QEXT <%?pERR,%$ERR,%.$ERR @>
QEXT <RERET>
@0QEXT <%ETYPE>
QE@PXT <RLJFNS,UNMAP,@pJFNSTK,CLZFFF,JFNARLA,GTJFS,RJFN,PIA0ON,PIOFF,ACTRCF,IAPNTDF,IINTDF>
QEXApT <GNJFS,FLOAT>
BQEXT <CSZ1,CSZ2,CB0SZ4>
QEXT <CMDACBPS,REPARA>
QEXT <BpCIJFN,COJFN,JBUFPC,.JBUFP,.J,JBUF,CC0JFN1,CJFN2>
QEXTCP <TAKLEN,SAVTAK,TCpAKCUR,TAKDEF,TAKJDFN,TAKBTS,PUSHIO,D0ALONOI,ECHNOI>
QDPEXT <INIFH1,INIFHDp2,VALNOD,VALNDN,CEINODT,OURNOD,NODBE0LK,INFCIN> ;[7.10EP76]
QEXT <CFGNODEp,INFBLK,TOUT,INFSFYS,UNAME,DIRN,ORGF0N,JRCASH,WLDPAG> FP;[7.1076][7.1137]Fp
QEXT <DPPT,DPSTGK,DSPT,DSSTK,DCPTG0,DCSTK,DPLPT,DPLSGPTK,DTPT,DTSTK>
QGpEXT <EOFDSP,EOFJEHR,DATDSP,ILIDSP>
QEXT <CIDLYF,PAXHPLFL,CCFLAG>
QEXTHp <CINITF,LOGINI,LIOGINF,SYSMF,LOGDAI0T,FILINI,TAKEIN,TIPAKSYS>
QEXT <PRVIpENF,MESMSF,CUSRNOJ,LIDNO,JOBNO,POBXJ0NO>
QEXT <EXDPF,JPEXDPLC,FSTLGN>
QJpEXT <FORK,RFORK,DKDTFLG,NPAGE,EFORKK0,BATCHF,PROG,SNDPKPRG,SDPROG,GETFB1,KpANNKEP,INDQUS>
QLEXT <SDECHO>
QEXL0T <STRTIM,TTYACF,LPPTTYAC,ALOST,CJPTLpIM>
QEXT <ITTYMDM,PTTYMD,ETTYMD>
M0QEXT <CERET>
QEXMPT <CTUUO>
QEXT <MpSSTACK>
QEXT <ERNCOD>
QEXT <USERNN0O,MCOJFN,OUTDSG,TNPYPGRP>
QEXT <DEXNpTBL>
QEXT <PD,INOISTK,PDLOV,CBUF,AO0TMBUF,CBUFE,CJFNBOPK,XTNNUM,XTNCNT,EOpCHPTR,ECHCNT,CTRPPTR>
QEXT <TEXTICP0,TEXTID,TEXTIA>
PPQEXT <PPATS,PPAT,PpPAGEN>
QEXT <LEVQ1PC,LEV2PC,LEV3PCQ0,PCTAB>
;QEXT <$QPCTRLA,$CTRLR,$CTRQpLV,$CTRLW,$CTRLX,R$EOL,$DASH,$CONT,R0$RUB>
QEXT <$FORRPMF,$LF,$CONT,$TDERpNS>
QEXT <USEPSIS,ILIPSI,EOFPSI,DAS0TPSI,ICLEAR,CCPSISP,TLMPSI,ALOPSI,COSpBPSI>
QEXT <ADVFTLG,SAVPGM,FIXON,AT0DVTNM,ADVMES,BREATPK1,ESCPSI,JFNSIL,TpQTAPSI,QTADSP>
QUEXT <CUUO>
QEXT U0<ERRET,NESC>
QEXUPT <FSTAT>
QEXT <UpFSTOUT>
QEXT <ERVRMF>
QEXT <CSBUFV0>
QEXT <%EDAYT>
QEXT <ACCT,PASSXVp,PASWD,PASLIN,PASWFLD>
QEXT <CHRTBW0L>
QEXT <JOBOPC>WP
QEXT <.BACKS,.SWpKIP,.EOF,.REWIN,.XUNLOA>
QEXT <CSCX0AN>
QEXT <.CREF,XP.EXECU,.COMPI,.DEXpBUG,.LOAD,OCCLF,GYOTO2,CLOPAT,DOCCLY0,DOCC1,DOCC2>
QEYPXT <CSVC>
QEXT <YpMALCHK,MALWEN,MINZT0,MWATCF,MWATCH,Z0MAILF> ;MAIL WATCZPH
QEXT <SUBBP>
ZpQEXT <NETRDY>				[;ARPANET
QEXT <Q[0TIMES,SNAMES,SYSV[PER,JOBRT,TTYJOB,N[pETRDY>
QEXT <GET\AMT,CHKPTY>
QEXT\0 <LRFSTS>
QEXT <\P.USEND>
QEXT <ED\pTFIL,EDTINF,EDTCR]E,EDTOUF,EDTCFM>

;TERMINAL-RELA]PTED GLOBALS


]p
QEXT <$TERMI,$T^TYP,$TERNO,TTYPTB^0,BLNKTB,NTTYPS,.T^PTY3>
QEXT <.T33,^p.T35,.T37,.TI,.FL_AG,.FORMF,.FULLD,_0.HALFD,TTYHLP,.IM_PMED,.INDIC>
QEXT_p <.LA120,.LA30,.L`A36,.LA38,PLENTH,`0.LINE,.LOWER,.TER`PNO,.PAGE,.PAUSE,.`pRAISE>
QEXT <.SPaEED,.DFLT,.TABS,.a0TRMNT,.TTYPE,.VK1aP00,.VT05,.VT100,.apVT102>
QEXT <.VTb125,.VT131,.VT200b0,.VT300,.VT50,.VTbP52,.VTH19,.LWIDTHbp,TTYNTY,.TTH19>
cQEXT <RTTFLG,RTFLc0G1,.INHIB,.IDEAL>cP ;[4424]


; CcpRJOB/PRARG

QEXdT <CRPRA,..STCR,Md0ESS>

; ArchivedP system

QEXT <dp.ARCHI,CANARC,.DIeSCA,.RETRI,FTDBLKe0,ARCBLK>

; ExtePended features
ep
QEXT <.RDIRE,.WDfIRE,.QD,ALRCHK,MAf0LCHK,IITPSI,POBCHfPK>
QEXT <TYPFIN,fpTPCCOC,TPTTYP,TYPgING,SPRSED,BYTSIZg0,AUTOF,IITSET>
QgPEXT <MALBUF,MWATAgpT,MWATCT,MWATDR,MhWATWR,MWATN,MWATNh00,ALRTIM,ALRTMS>
QEXT <RUNFK,IDFOhpRK,EDFORK,FRKTAB,iSLFTAB,FRKNMS,KEPi0NMS,FRKDEF,SFKNAMiP>
QEXT <.FREEZ,.ipUNKEE,.NAME,.KEEPj,UTTYMD,RFTYMD,FTj0TYMD,REASON>
QEXjPT <RSTFK,REPH,STEjpPH,REPH1,.ERUN,.BkLANK,BLANK1,KEFORk0K,GETILI,DWNPNT>
QEXT <.DO,.KMIC,kpMICFRK,PAGEMI,MIClFPG,MICPAG,GETPAGl0,USEPSM>
QEXT <.lPGOTO,.BACKTO,.ERRlpOR,.IF,.NOERROR,.mOPERATOR,.NOOPERAm0TOR>
QEXT <ADDNAmPM,.NOLM,.KFRKC>
mpQEXT <CCKEEP>

n;Programmable Comn0mand Language

nPQEXT <CTBL1,PCCURnpC,PCFLAG,PCTXFR,PoCSFRE,PCLSTF,PCVVo0AL>
QEXT <PCFLDBoP,.DECLA,.UNDEC,PCopMXCT,PCMPOP,PCMPOpS,PCMPRS>
QEXT <p0PCINIT,PCCCPL,PCIpPDFV,PCIUDF,PCIRUNpp,PCEXCT,SUBNAM>
qQEXT <PCONCE>	;[Bq0CM] once only flaqPg for PRSINI
QEXqpT <PCMPSI,PCMPSO,rPCIPSO,PCPOTP,PCPr0RGR,WFORKX,FFORKXrP,.PCLOB>
QEXT <PrpCIINF,SINVAR,SSTVsAR,PCISGS,.PCLVR,s0PCIDGS,PCICLP>
QsPEXT <PCCWKE,PCRPAspS,PCLDCO,PCIWEV,$tSDEF,PCIGEV>
QEXt0T <CIN2,PCIDFS,PCtPIFGS,WAITA,PCLPMTtp>
QEXT <PCIPSV,PuCFLDP,PCLGST,CUSTu0MF,PCWAIT,READ1>
QEXT <PCRNFK,PCFupORK,PCLNAM,PCCIPFv,NPCLIO,.IDDCL,ORv0IFLG>
QEXT <.PREvPXC,.PRENV>
QEXT vp<CHNS,CHNTAB,CM1DwB,CM1DBE,CM1XL,CTw0BL2,CM1YL> ;[4427wP]
QEXT <TDEFAU,$wpSETO,$SETN,$SFILEx,$SFNO>
QEXT <$Rx0SFD,$SVFD,$INFO>
QEXT <CRDSET,IVOxpL,NTRAP,SETSRM,SPyLINF,SPLSET>
QEXy0T <SYSINF,TAPINF,yPTRMPNT,.ADBRK,.ADypDRE,.ALERT>
QEXTz <.ALRST,.ARSTS,.z0AUTOM,.CIDLY,.CTRzPLC,.DEFAU>
QEXT zp<.DEPOS,.ENTRY,.E{XAMI,.EXECM,.FEXP{0,.FILEV>
QEXT <.{PFLINX,.FLONX,.FPR{pOH,.FRESI,.IARPA,|.IDECN>
QEXT <.I|0NVIS,.LOCAT,.MALS|PT,.MWATC,.NODEF,.|pNOTIM>
QEXT <.OF}L,.PAC,.PAXL,.PRE}0SE,.SDIR,.SETNO,.}PSFILE>
QEXT <.SF}pNO,.SISTA,.TAPE,.~TERMI,.TIME,.TKD>~0
QEXT <.TRAP,.TY~PPEO,.VISIB>
QEXT~p <.EPHM,.FRKST,.SUPER,SAVSWI,.CTRA0C,.ORIGI,.SDDCL>
QEXT <.INDEF,.SEpDEF,.STMLM,$SET0>
QEXT <.SAVT,CMD0CHT,CMDCHR>
QEXTP <MSEPSI>
QEXT <pRESET0,.RESE2,.RESS1,.RESST>
QEXT0 <$FRKNM,$NODEF>

;GLOBAL SYMBOLpS FOR COMMAND EDITOR

QEXT <CMDH0ST,FTCE,IMETKY,INPFOCE>
QEXT <.METpA,.NOMETA>
QEXT <SETNOF,TERMNL>
0
QEXT <CIN42,HSTPCNT,HSTNUM,HSTPTRp,.REDO,.AGAIN,.INHST,.RECAL,.SEHST0>

QEXT <CEBPTRP,CEDIT,CSAVE,CESApVE,CEBFEN,CEFLAG,CETSAV,INSMOD,.CE0SET>
QEXT <CEMETPA,CEFFL,CE1ST,CELpAST,CECNT,.CEDMO,NOPRMT,CETTMD,CEV0MSD>
QEXT <CEKBUPF,CEPSIC,PCLMID,.pCEPSI,.SCEIC,.SNCEI,SVSEDC,SVSEDP,0CEPBUF>

	.CREF
	LIST
   REFqJn3P%4qJn
P -qRt@ 1AcIFN XTNDSWIFN XTNDSWqRtL{P q` ,Bo
OPDEF U,1A [<%%NUUO>B12]
,P%%NUUO==%%NUUO+1
DEFINE AX(HELP)-
<	IFNB <HELP>,<-0	UA [ASCIZ \HELP-P\]
>
	IFB <HELP-p>,<	UA [0]	
>
>
A [0]	
>
sd@P't@ 	+y 'B9
	U$ERR [ASCIZ @A@]RR [
v]7P  \k n)Ft
	$FKFLAGnI==<Z 0>		
	A (<B>,0C,D)A (<]7 oAF~
	$FKHAN=oa=<Z 1>		
	A (<B>,1C,D)A (<^(2 p)G
	$FKRADDpI==<Z 2>		
	A (<B>,2C,D)A (<^)9 qyG
	$FKRESPr==<Z 4>		
	A (<B>,4C,D)A (<^+2 qG
	$FKRMESq1==<Z 3>		
	A (<B>,3C,D)A (<.,W 'QB=
	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 ^