PDP-10 Archive: autopatch/execde.unv from bb-l014w-bm_tops20_v7_0_atpch

Trailing-Edge - PDP-10 Archives - bb-l014w-bm_tops20_v7_0_atpch_23 - autopatch/execde.unv

There are 28 other files named execde.unv in the archive. Click here to see a list.

x
,Up@P B@ CN JyD]	IFNB <A>K,<	UACCT [ASCIZ \K8A\]
>
	IFB <AKX>,<	UACCT [0]	
>
UACCT [0]	
>C5IQ C&. RiE	IFNB <A>S	,<	UADDR [ASCIZ \S(A\]
>
	IFB <ASH>,<	UADDR [0]	
>
UADDR [0]	
>C4:P

C4\qP C3%PP
	UALTYP [ASCIZ @A@]YP CRmI7P zCSR 1A#
	JSP CX,.SAVT
	JSP CX,CW%{P ,CW%{	P CW%{	P D@ Ee@P E'%[P ENf: 'aBD	IFNB <A>(,<	UBSLSH [ASCIZ ( \A\]
>
	IFB <(@A>,<	UBSLSH [0]	
>
BSLSH [0]	B/DREV2P&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". H)DH	IFNB <A>HI,<	UCHAR [ASCIZ \HhA\]
>
	IFB <AI>,<	UCHAR [0]	
>
UCHAR [0]	
>G#:P G#m6P ?G6

(` j9FS.CMABC+SBLOCK.CMABC+SBLG6

, iyFO.CMABP+SBLOCK.CMABP+SBLG6

=Q  G6l gyF?.CMBFP+SBLOCK.CMBFP+SBLG6*` m9Fk.CMBRK+FBLOCK.CMBRK+FBLG6k Q G6X Q `G6m hyFG.CMCNT+SBLOCK.CMCNT+SBLG6$ kyF_.CMDAT+FBLOCK.CMDAT+FBLG6$Y@ lyFg.CMDEF+FBLOCK.CMDEF+FBLG6$]@Q @G6%@Q  G6.,\ 8ICJ	IFNB <A>8i,<	UCMERR [ASCIZ 9\A\]
>
	IFB <9(A>,<	UCMERR [0]	
>
CMERR`[0]	G65IQ@`G65I`@`F.CMFLG+SBLOCK.CMFLG+SBLG65MQCG65l k9F[.CMFNP+FBLOCK.CMFNP+FBLG6=(@ jyFW.CMGJB+SBLOCK.CMGJB+SBLG6EL l9Fc.CMHLP+FBLOCK.CMHLP+FBLG6Lj Q G6Mh` i9FK.CMINC+SBLOCK.CMINC+SBLG6Mj Q G6Mz@ AE|.CMIOJ+SBLOCK.CMIOJ+SBLG6\^ P G6uyQ @G6uz Q @G6v[ Q  G6v^Q G6|j Q  G7L@ h9FC.CMPTR+SBLOCK.CMPTR+SBLG7=Q  G7N  g9F;.CMRTY+SBLOCK.CMRTY+SBLG7z Q `G7$Q G7%z`Q `G7'
>
	IFB <F8A>,<	UCOLON [0]	
>
COLON [0]	9D		IFNB <A>@Y,<	UCOMMA [ASCIZ @x\A\]
>
	IFB <AA>,<	UCOMMA [0]	
>
COMMA [0]	1Ac
       CALL CONF      CG@,P G@,;xP G@-	6P G@.<P G@.N8P GCN.: @=
	LOC	0
9	ASCIZ /
COPYRIGXHT (c) DIGITAL EQxUIPMENT CORPORATION, 1976, 1988.
8ALL RIGHTS RESERVXED.
/				
	RELOC
/				
	RELOGHP GK .)Bx	IFNB <A>.I,<	UCRR [ASCIZ \.hA\]
>
	IFB <A>/,<	UCRR [0]	
>
	UCRR [0]	
>
GRI7P }GRyP 
GRd9HP @GRd9IP GSH`P GSI P GSI< +YBc	IFNB <A>+y,<	UCTRLE [ASCIZ ,\A\]
>
	IFB <,8A>,<	UCTRLE [0]	
>
CTRLE [0]	N@P I )	BN	IFNB <A>)),<	UDASH [ASCIZ \)HA\]
>
	IFB <A)h>,<	UDASH [0]	
>
UDASH [0]	
>I$*:Q @I:=P I$lzP'hI%|SP'pI&>6P'pI -Bn	IFNB <A>-!,<	UDEC [ASCIZ \-@A\]
>
	IFB <A>-`,<	UDEC [0]	
>
	UDEC [0]	
>
I63 myG	A==:PPTRn		;PCL ALLOCATE Tn8HIS PAGE AT CURREnXNT PAGE POINTER
nx	B==PPTR_-9	;DEFoINE PAGE NUMBER
o8	PPTR==PPTR+C*10oX00	;STEP TO NEXT oxPAGE SLOT
	IFG PpPTR-DDTFST,<PRINTp8X ?Exec page buffpXers 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 9qCU	IFNB <A>:,<	UDEF [ASCIZ \:0A\]
>
	IFB <A>:P,<	UDEF [0]	
>
	UDEF [0]	
>
I7 7!C@	IFNB <A>7A,<	UDEV [ASCIZ \7`A\]
>
	IFB <A>8,<	UDEV [0]	
>
	UDEV [0]	
>
IFN GD>	IFNB <A>G!,<	UDEXT [ASCIZ \G@A\]
>
	IFB <AG`>,<	UDEXT [0]	
>
UDEXT [0]	
>IYVP I'> ?C	IFNB <A>?1,<	UDIRS [ASCIZ \?PA\]
>
	IFB <A?p>,<	UDIRS [0]	
>
UDIRS [0]	
>I' =iCt	IFNB <A>>	,<	UDIR [ASCIZ \>(A\]
>
	IFB <A>>H,<	UDIR [0]	
>
	UDIR [0]	
>
I?' C	D	IFNB <A>C),<	UDOT [ASCIZ \CHA\]
>
	IFB <A>Ch,<	UDOT [0]	
>
	UDOT [0]	
>
IR

:P IRNn L!Dh	IFNB <A>LA,<	UDTIV [ASCIZ \L`A\]
>
	IFB <AM>,<	UDTIV [0]	
>
UDTIV [0]	
>IS PE	IFNB <A>P9,<	UDTP [ASCIZ \PXA\]
>
	IFB <A>Px,<	UDTP [0]	
>
	UDTP [0]	
>
IS QAE	IFNB <A>Qa,<	UDTR [ASCIZ \RA\]
>
	IFB <A>R ,<	UDTR [0]	
>
	UDTR [0]	
>
IS@ 2!C	IFNB <A>2A,<	UDT [ASCIZ \A2`\]
>
	IFB <A>,<	UDT [0]	
>
K Q K60 1AIFN EMCSSWIFN EMCSSWK6<{P KK|@ qAA
       UERR [ASCIZ @A@]RR [ASCIZ @A@]KKPQ KSN	  1A[
	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^ *1BY	IFNB <A>*Q,<	UFILE [ASCIZ \*pA\]
>
	IFB <A+>,<	UFILE [0]	
>
UFILE [0]	
>M&fyP $M,,*sQ M,,HSQ  M,,YQ M,-ZQ  M,-[Q 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< MIDr	IFNB <A>Mi,<	UFNODE [ASCIZ N\A\]
>
	IFB <N(A>,<	UFNODE [0]	
>
FNODE [0]	,PP%XMJ,\P 6MJ.@P MJ.:=P pO&8; 1AASCIZ \AEXE\ASCIZ \AEOexY qG	
   IF2,<
	XGLOBS>IF2,<O3F8t 
@S
	SEARCH 
9QSRMAC,GLXMAC,ORNMACC,GLXMAC,ORNO?I3 
y@Y
	OPDEF A [<B>]
	INTERN AB>]
	INTERNOJ~\P ON~	 Y@_
	OPDEF yA [B]
	INTERN A
	.NODDTA OOI7P OR 
	CALL [

9MOVEI A,A	
		CALLRET %GTB]	
AOR%K@P)C 	IFNB <A>3I,<	UHELP [ASCIZ \3hA\]
>
	IFB <A4>,<	UHELP [0]	
>
UHELP [0]	
>Q&=

P ?QO%X<P

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

SBlP&HSBX<P SB|P ,SB}YP%0SP YEH|0
	T <A>,B,C,D!CM%INVOcED0SS0 YqER|`
	TV <A>Z!,B,C,D!CM%INVB,C,D!CM%INVOfEK0M%INVU
d[@P U,kP  U^+@ A1
	ERCAL RJWARN
	ERCAL RU^.	rP yU^.	yP .U_vP WNy $Y<-3P Y0 qA'	MOVX A,B
	MOVX A,Y+y QAE
	ULERRO [ASCIZ@A@]ROYP	Y`PCZ \B A\]
>
	IFB <AB@>,<	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 ]<` 1@{IFN NEWFSWIFN NEWFSW]<l{P ]FL`P ]<`P

]6)yP  ]7<P ]>&:=P ]>-Xy qAIFE EMCSSWIFE EMCSSW]>N9  qA_
	UNOI [ASCIZ @A@]OI [A]>dpQ ]>t]s q@IFE NEWFSWIFE NEWFSW]?RQ ]?Y qAIFE SEDSW	IFE SEDSW]?FKR q@wIFE XTNDSWIFE XTNDSW]CPP ]Nn	yP ]S'2P _' 4QC+	IFNB <A>4q,<	UOCT [ASCIZ \5A\]
>
	IFB <A>50,<	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}\ qAW
	UPROMPT [ASCIZ @A@]PTaRI7P }aS:P bD@ bH@ bL@ cNd[@P @cV~I< IQDS	IFNB <A>Iq,<	UQUOTE [ASCIZ J\A\]
>
	IFB <J0A>,<	UQUOTE [0]	
>
QUOTE [0]	e&:x

y@gJRST RSKPeJRST RSKPe2N=P&He::=P e:YVP de:|I< NqD}	IFNB <A>O,<	URNODE [ASCIZ O0\A\]
>
	IFB <OPA>,<	URNODE [0]	
>
RNODE [0]	
e;P g  1AIFN SEDSWIFN SEDSWg&=`P g$I3P gYVP g2: &9B9	IFNB <A>&Y,<	USLASH [ASCIZ &x\A\]
>
	IFB <'A>,<	USLASH [0]	
>
SLASH [0]	YRP  gRYUP ~gRYVP ~gR[SP gR\yP gR	lWP 0gR. /QC	IFNB <A>/q,<	USTAR [ASCIZ \0A\]
>
	IFB <A00>,<	USTAR [0]	
>
USTAR [0]	
>gR@P ,gRY@P%2gS:=P tgS 5yC5	IFNB <A>6,<	USTR [ASCIZ \68A\]
>
	IFB <A>6X,<	USTR [0]	
>
	USTR [0]	
>
gV;v QA;	IFB <B>,q<
		USUBCO [	A
				0]>
	IFNB <0B>,<
		USUBCO [	A
				B]>
g^N:=P ggH6P h T1E8| 
	..BITS=Ta=0
	IFNB <B>,<.U.BITS==B>
	IFB U <C>,<$FOO==.A>
        IFNB <CU`>,<$FOO==C>
IFEV D,<XWD [ASCIZ @V A@],[..BITS!$FOOV@]>
IFN D,<XWD [V`D!CM%FW
		ASCIZW @A@],[..BITS!$FOO]>
..BITS!$FObB10Ri ZaE^
IFNB <B[>,<%%X==B>
IFB [ <B>,<%%X==.A>
[@	[	CM%INV!CM%ABR![`CM%FW
		ASCIZ /A/],,%%X
IZ /iP iI  \!Eh
	Z			;FI\ALLED IN BY NEXT T\`END
	..T==.			;U]SED BY NEXT TENDED BY NEXT TENDi%I7P i]K\P i
e<}P tit@ ]AEv
       .]a.U==.
        RE^LOC ..T-1
	..U-.^ .T,,..U-..T	;FILL^@ IN FIRST WORD OF^` TABLE
        RELOC ..U      Ri&l^ D1D)	IFNB <A>DQ,<	UTIME [ASCIZ \DpA\]
>
	IFB <AE>,<	UTIME [0]	
>
UTIME [0]	
>i. @i.,;sQ  i/$\SQ iJ 1Am
	UTRAP [Q	A
		ASCIZ @B@]
		ASCIZ @B@iK:P iRNK @E
	CPYRYT
	TITLE A
	SEARXCH MACSYM,MONSYM
	SALL
	GGLOBSiS<;qP iS<mzP iS=-P iS=[rP iS=\uP iS>VP iS>;VP iX WAEB
IFB <C>Wa,	T <A:>,B,.A,XD

IFNB <C>,	X T <A:>,B,C,D
A:>,B,C,D
 U1TYPE[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 H"ELP		
XX OCT		
"0XX STR		
XX DEV	"P	
XX CMERR	
XX "pDEF		
XXUSER		
XX USERS	
XX DI#0R		
XX DIRS		
X#PX COMMA	
XX LINE#p		
XX DOT		
XX $TIME		
XX COLON	$0
XX DEXT		
XX C$PHAR		
XXpQUOTE	
XX ACCT		
XX DT%IV		
XX FNODE	
%0XX RNODE	
XX DTP%P		
XX DTR		
XX ADDR		
		
XX k:} &k>@ RkC{8 (kG-} rkJuy zkN.,| <ACj	IFNB <A><a,<	UUSERS [ASCIZ =\A\]
>
	IFB <= A>,<	UUSERS [0]	
>
USERS [0]	C	IFNB <A>;9,<	UUSER [ASCIZ \;XA\]
>
	IFB <A;x>,<	UUSER [0]	
>
UUSER [0]	
>kNdt <kO$@ JkO&  TkO,(w :kRMY  jkRNK 	@M
	TITLE 	9A
	SEARCH MACSYM	X,MONSYM
	SALL
	GGLOBS
	SALL
	kSN6kSN		O"kW\@\kW\Y ^k^~) Lo"fPQ o2&3P&Ho?N 0yC
>
	IFB <A1X>,<	UWORD [0]	
>
UWORD [0]	
>q0IXARCSW,IFN XARCSWq<{P qd@Q xqY P%8q\P .q\P q\}P  qexY qYOK

	XLISTrQ
	.XCREF

DEFIrpNE QEXT (SYM)<
	sIRP SYM,<
	IFNDEs0F SYM,<EXTERN SYMsP
		SUPPRE SYM>>>sp

QEXT <SJtLEN,JTAB,JLEN,CBLt0OCK,TRAPU,TRAPD,StPAVSP,SAVCM,RESCM>tp
QEXT <CMDOUT,CLuRALL,CLRBIT,JSBDEu0F,SETALL,SETBIT,SuPETTRP,COPBTS,RESAupCS,SAVACS>
QEXT v<SKPON,TRPPSI,JTAv0B,SKPNAZ,TRPOKF,TvPSTOPF,MRKTRP,GETLvpPC,FOWNER,TFILEF,wTOPENF>
QEXT <SNw0DPDB,MYPID,QSRPIDwP,MDAPID,NEBPID> ;wp[7.1232]
QEXT <GxETPID,GQPID,QUASNx0D,SNDMSG,SNDMS1,IxPPCRCV,GQSRPD>
QExpXT <IPCON,IPCOFF,yIPCINT,CHECKM,IPCy0HEK,NOWPTR,IPCRCFyP,IPCWTF,IPCALF,IPypCFND>
QEXT <UNIQzUE,IPCTBL,IPCAGE,z0IPCFGS,IPCCTL,INFzPPID,OLDIDX,IPCFLMzp>
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,PR}0ACCT,CKSTAR,GETDV}PN>
QEXT <SBLOCK,}pFBLOCK>
QEXT <%%~LVER,%%RVER>
QEX~0T <RJWARN,REWIND,~PCJDEV,OPNMAG>
QE~pXT <ABKCNT,INFTRM>
QEXT <%GETER,D0GETER,.EDIT,.EDITPC,.EDITP,CSVCC,EDpSVB,TECSVB,CMAGN>
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 <LGORE	T>
QEXT <CFGBLK,	0CFGSIZ>
QEXT <BE	PFORE,DEVLUP,ECFOR	pK,EDEFIN,EOLRET,E
PRINT,ESET,.SPEAK
0,ECEASE,MESMES>

PQEXT <STAYF,ERESE
pT,TRYGTJ,DOGET,TRYGTS,TRYGTO,TRGTV01,WHY,$GET2,$GET0P,CRSCAN,$GTFDB>
pQEXT <..STRT,RSPT

R,.ACCOU,.ADVIS,.

0APPEN,.ASSIG,.ATT

PAC,.BREAK>
QEXT

p<.CHANG,.CLEAR,.C
QEX.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,.MODIF,.CANCE>
QEX0T <.PLOT,.SDP,.SDPPL,.SNDPL,.SDS,.SpNDCS,.SNDS,.SNDP,.SDC,.SDT,.SNDCP,0.SNDTP>
QEXT <.SPDCS>

;[7.1031]p For REMOTE-PRINTING
QEXT <SRPCHR0,SRPDEF,SRPPTR,SRPPCH3>
QEXT <$RMPpRT,.RMPRT,.REMOT>
QEXT <KBTMSK,NB0TMSK,BTMSK1,BTMSKP2,BTMSK3,BTMSK4>
;[7.1061] More REMOTE-PRINTING
Q0EXT <CHRTAB,CTBLEPN,PTRTAB,PTBLEN>
;[7.1061] Still more...
QEXT <FD0CHLP,FDPHLP,PBKFDPB,CBKFDB,KEYBMS>
;[7.1061] Lowercase to uppercase 0translate
QEXT <PUPRCAS>
;[7.1073p] For remote printing features of 0PRINT command
QEPXT <DSTNOD,RPNODEp,RPQUE,.REMPR>
;[4417]For SET DEF0AULT PRINTER /REMPOTE:
QEXT <DEFQUpE,DEFREM,DEFDST,DEFUNT,DEFADR,PRIF0LG>	;[4417]
QEXTP <RESLV1,STPTAB>	p				;[4417]
QEXT <$DEF>
QEXT <.I0DC,.IDPL,.IDCS,.IPDP,.IDPRT,.IDS,.IpDALL,.IDPRG,.IDTAK>
QEXT <.PUNCH>0
QEXT <.QUIT,DOAPTI>
QEXT <.R,.REpCEI,.REENT,.REFUS,.RENAM,.RESET,.R0UN>
QEXT <.CSAVEP,.SAVE,.SET,.STARpT>
QEXT <.TAKE,.TALK,.TYPE,.TRANS0,TYPE1,.UNDEL,.UNPMOU>
QEXT <.JWATp,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,.NPAG"S,EVLEN>
QEXT <L"0EVTAB,REE,SUPER,."PJOBSY,.TEXEC>
QE"pXT <READY,READY2,#FIELDX,FLDSKP,CFI#0ELD,GETTER,REPARS#P,SETT20,SAVT20,SA#pVNAM,SETMOD,GETMO$D,SETPRG>
QEXT <$0%KEYW,GETKEY>
QE$PXT <PRVCK>
QEXT $p<%NOI>
QEXT <%SB%COM>
QEXT <CONF,%0FCONF,FCONFA>
QE%PXT <SPRTR,BITS>
%pQEXT <CIOREL,SETI&OF,TINPF,NOTIO>
&0QEXT <%$TYPE,$CTY&PPE>
QEXT <COUTFN&p,CSAVFN,SPECFN,CP'FN,CPFNA>
QEXT <'0.INFG,INFGNS,TYPF'PLS,$INFGX,DIRARG>'p
QEXT <TYPIF,TYP(OK,GNFIL,NXFILE>
QEXT <DEVN,STRN,(PCONST,INDT,LBLSKP(p>
QEXT <DIRNAM,D)IRNMX,CURNAM,CURN)0MS,USRNMS,STPDIR,)PSTPUSR>
QEXT <AT)pSAVR,TOCT,OCTCOM,*OCTLST>
QEXT <BU*0FFF,GETBUF,RETMEM*P,GETMEM,RETBUF,ST*pREM,XFRINI,FREINI+,BCOUNT,GETNOD,CS+0BUFP,DICT,XDICT,B+PUFFS,XBUFFS,GTBUF+pX,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 <STOR0EF>
QEXT <%GTB>
QEXT <DING,CERR,0PNIYE,NIM,SCREWUP,0pJERR,JERRC,CJERR,1JERRE,CJERRE>
QE10XT <%TRAP>
QEXT 1P<AUTOLO>
QEXT <%1pERR,%$ERR,%.$ERR 2>
QEXT <RERET>
20QEXT <%ETYPE>
QE2PXT <RLJFNS,UNMAP,2pJFNSTK,CLZFFF,JFN3RLA,GTJFS,RJFN,PI30ON,PIOFF,ACTRCF,I3PNTDF,IINTDF>
QEX3pT <GNJFS,FLOAT>
4QEXT <CSZ1,CSZ2,C40SZ4>
QEXT <CMDAC4PS,REPARA>
QEXT <4pCIJFN,COJFN,JBUFP5,.JBUFP,.J,JBUF,C50JFN1,CJFN2>
QEXT5P <TAKLEN,SAVTAK,T5pAKCUR,TAKDEF,TAKJ6FN,TAKBTS,PUSHIO,60ALONOI,ECHNOI>
Q6PEXT <INIFH1,INIFH6p2,VALNOD,VALNDN,C7INODT,OURNOD,NODB70LK,INFCIN> ;[7.107P76]
QEXT <CFGNOD7p,INFBLK,TOUT,INFS8YS,UNAME,DIRN,ORG80N,JRCASH,WLDPAG> 8P;[7.1076][7.1137]8p
QEXT <DPPT,DPST9K,DSPT,DSSTK,DCPT90,DCSTK,DPLPT,DPLS9PTK,DTPT,DTSTK>
Q9pEXT <EOFDSP,EOFJE:R,DATDSP,ILIDSP>
QEXT <CIDLYF,PAX:PLFL,CCFLAG>
QEXT:p <CINITF,LOGINI,L;OGINF,SYSMF,LOGDA;0T,FILINI,TAKEIN,T;PAKSYS>
QEXT <PRV;pENF,MESMSF,CUSRNO<,LIDNO,JOBNO,POBX<0NO>
QEXT <EXDPF,<PEXDPLC,FSTLGN>
Q<pEXT <FORK,RFORK,D=DTFLG,NPAGE,EFORK=0,BATCHF,PROG,SNDP=PRG,SDPROG,GETFB1,=pANNKEP,INDQUS>
Q>EXT <SDECHO>
QEX>0T <STRTIM,TTYACF,>PPTTYAC,ALOST,CJPT>pIM>
QEXT <ITTYMD?,PTTYMD,ETTYMD>
?0QEXT <CERET>
QEX?PT <CTUUO>
QEXT <?pSSTACK>
QEXT <ER@COD>
QEXT <USERN@0O,MCOJFN,OUTDSG,T@PYPGRP>
QEXT <DEX@pTBL>
QEXT <PD,INAISTK,PDLOV,CBUF,AA0TMBUF,CBUFE,CJFNBAPK,XTNNUM,XTNCNT,EApCHPTR,ECHCNT,CTRPBTR>
QEXT <TEXTICB0,TEXTID,TEXTIA>
BPQEXT <PPATS,PPAT,BpPAGEN>
QEXT <LEVC1PC,LEV2PC,LEV3PCC0,PCTAB>
;QEXT <$CPCTRLA,$CTRLR,$CTRCpLV,$CTRLW,$CTRLX,D$EOL,$DASH,$CONT,D0$RUB>
QEXT <$FORDPMF,$LF,$CONT,$TDEDpNS>
QEXT <USEPSIE,ILIPSI,EOFPSI,DAE0TPSI,ICLEAR,CCPSIEP,TLMPSI,ALOPSI,COEpBPSI>
QEXT <ADVFFLG,SAVPGM,FIXON,AF0DVTNM,ADVMES,BREAFPK1,ESCPSI,JFNSIL,FpQTAPSI,QTADSP>
QGEXT <CUUO>
QEXT G0<ERRET,NESC>
QEXGPT <FSTAT>
QEXT <GpFSTOUT>
QEXT <ERHRMF>
QEXT <CSBUFH0>
QEXT <%EDAYT>
QEXT <ACCT,PASSXHp,PASWD,PASLIN,PASIFLD>
QEXT <CHRTBI0L>
QEXT <JOBOPC>IP
QEXT <.BACKS,.SIpKIP,.EOF,.REWIN,.JUNLOA>
QEXT <CSCJ0AN>
QEXT <.CREF,JP.EXECU,.COMPI,.DEJpBUG,.LOAD,OCCLF,GKOTO2,CLOPAT,DOCCLK0,DOCC1,DOCC2>
QEKPXT <CSVC>
QEXT <KpMALCHK,MALWEN,MINLT0,MWATCF,MWATCH,L0MAILF> ;MAIL WATCLPH
QEXT <SUBBP>
LpQEXT <NETRDY>				M;ARPANET
QEXT <QM0TIMES,SNAMES,SYSVMPER,JOBRT,TTYJOB,NMpETRDY>
QEXT <GETNAMT,CHKPTY>
QEXTN0 <LRFSTS>
QEXT <NP.USEND>
QEXT <EDNpTFIL,EDTINF,EDTCROE,EDTOUF,EDTCFM>

;TERMINAL-RELAOPTED GLOBALS


Op
QEXT <$TERMI,$TPTYP,$TERNO,TTYPTBP0,BLNKTB,NTTYPS,.TPPTY3>
QEXT <.T33,Pp.T35,.T37,.TI,.FLQAG,.FORMF,.FULLD,Q0.HALFD,TTYHLP,.IMQPMED,.INDIC>
QEXTQp <.LA120,.LA30,.LRA36,.LA38,PLENTH,R0.LINE,.LOWER,.TERRPNO,.PAGE,.PAUSE,.RpRAISE>
QEXT <.SPSEED,.DFLT,.TABS,.S0TRMNT,.TTYPE,.VK1SP00,.VT05,.VT100,.SpVT102>
QEXT <.VTT125,.VT131,.VT200T0,.VT300,.VT50,.VTTP52,.VTH19,.LWIDTHTp,TTYNTY,.TTH19>
UQEXT <RTTFLG,RTFLU0G1,.INHIB,.IDEAL>UP ;[4424]


; CUpRJOB/PRARG

QEXVT <CRPRA,..STCR,MV0ESS>

; ArchiveVP system

QEXT <Vp.ARCHI,CANARC,.DIWSCA,.RETRI,FTDBLKW0,ARCBLK>

; ExtWPended features
Wp
QEXT <.RDIRE,.WDXIRE,.QD,ALRCHK,MAX0LCHK,IITPSI,POBCHXPK>
QEXT <TYPFIN,XpTPCCOC,TPTTYP,TYPYING,SPRSED,BYTSIZY0,AUTOF,IITSET>
QYPEXT <MALBUF,MWATAYpT,MWATCT,MWATDR,MZWATWR,MWATN,MWATNZ00,ALRTIM,ALRTMS>
QEXT <RUNFK,IDFOZpRK,EDFORK,FRKTAB,[SLFTAB,FRKNMS,KEP[0NMS,FRKDEF,SFKNAM[P>
QEXT <.FREEZ,.[pUNKEE,.NAME,.KEEP\,UTTYMD,RFTYMD,FT\0TYMD,REASON>
QEX\PT <RSTFK,REPH,STE\pPH,REPH1,.ERUN,.B]LANK,BLANK1,KEFOR]0K,GETILI,DWNPNT>
QEXT <.DO,.KMIC,]pMICFRK,PAGEMI,MIC^FPG,MICPAG,GETPAG^0,USEPSM>
QEXT <.^PGOTO,.BACKTO,.ERR^pOR,.IF,.NOERROR,._OPERATOR,.NOOPERA_0TOR>
QEXT <ADDNA_PM,.NOLM,.KFRKC>
_pQEXT <CCKEEP>

`;Programmable Com`0mand Language

`PQEXT <CTBL1,PCCUR`pC,PCFLAG,PCTXFR,PaCSFRE,PCLSTF,PCVVa0AL>
QEXT <PCFLDBaP,.DECLA,.UNDEC,PCapMXCT,PCMPOP,PCMPObS,PCMPRS>
QEXT <b0PCINIT,PCCCPL,PCIbPDFV,PCIUDF,PCIRUNbp,PCEXCT,SUBNAM>
cQEXT <PCONCE>	;[Bc0CM] once only flacPg for PRSINI
QEXcpT <PCMPSI,PCMPSO,dPCIPSO,PCPOTP,PCPd0RGR,WFORKX,FFORKXdP,.PCLOB>
QEXT <PdpCIINF,SINVAR,SSTVeAR,PCISGS,.PCLVR,e0PCIDGS,PCICLP>
QePEXT <PCCWKE,PCRPAepS,PCLDCO,PCIWEV,$fSDEF,PCIGEV>
QEXf0T <CIN2,PCIDFS,PCfPIFGS,WAITA,PCLPMTfp>
QEXT <PCIPSV,PgCFLDP,PCLGST,CUSTg0MF,PCWAIT,READ1>
QEXT <PCRNFK,PCFgpORK,PCLNAM,PCCIPFh,NPCLIO,.IDDCL,ORh0IFLG>
QEXT <.PREhPXC,.PRENV>
QEXT hp<CHNS,CHNTAB,CM1DiB,CM1DBE,CM1XL,CTi0BL2,CM1YL> ;[4427iP]
QEXT <TDEFAU,$ipSETO,$SETN,$SFILEj,$SFNO>
QEXT <$Rj0SFD,$SVFD,$INFO>
QEXT <CRDSET,IVOjpL,NTRAP,SETSRM,SPkLINF,SPLSET>
QEXk0T <SYSINF,TAPINF,kPTRMPNT,.ADBRK,.ADkpDRE,.ALERT>
QEXTl <.ALRST,.ARSTS,.l0AUTOM,.CIDLY,.CTRlPLC,.DEFAU>
QEXT lp<.DEPOS,.ENTRY,.EmXAMI,.EXECM,.FEXPm0,.FILEV>
QEXT <.mPFLINX,.FLONX,.FPRmpOH,.FRESI,.IARPA,n.IDECN>
QEXT <.In0NVIS,.LOCAT,.MALSnPT,.MWATC,.NODEF,.npNOTIM>
QEXT <.OFoL,.PAC,.PAXL,.PREo0SE,.SDIR,.SETNO,.oPSFILE>
QEXT <.SFopNO,.SISTA,.TAPE,.pTERMI,.TIME,.TKD>p0
QEXT <.TRAP,.TYpPPEO,.VISIB>
QEXTpp <.EPHM,.FRKST,.SqUPER,SAVSWI,.CTRAq0C,.ORIGI,.SDDCL>
QEXT <.INDEF,.SEqpDEF,.STMLM,$SET0>r
QEXT <.SAVT,CMDr0CHT,CMDCHR>
QEXTrP <MSEPSI>
QEXT <rpRESET0,.RESE2,.REsSS1,.RESST>
QEXTs0 <$FRKNM,$NODEF>

;GLOBAL SYMBOLspS FOR COMMAND EDItTOR

QEXT <CMDHt0ST,FTCE,IMETKY,INtPFOCE>
QEXT <.METtpA,.NOMETA>
QEXT u<SETNOF,TERMNL>
u0
QEXT <CIN42,HSTuPCNT,HSTNUM,HSTPTRup,.REDO,.AGAIN,.INvHST,.RECAL,.SEHSTv0>

QEXT <CEBPTRvP,CEDIT,CSAVE,CESAvpVE,CEBFEN,CEFLAG,wCETSAV,INSMOD,.CEw0SET>
QEXT <CEMETwPA,CEFFL,CE1ST,CELwpAST,CECNT,.CEDMO,xNOPRMT,CETTMD,CEVx0MSD>
QEXT <CEKBUxPF,CEPSIC,PCLMID,.xpCEPSI,.SCEIC,.SNCyEI,SVSEDC,SVSEDP,y0CEPBUF>

	.CREF
	LIST
   REFqJn3P%4qJn

P -qRt@ 1@sIFN XTNDSWIFN XTNDSWqRtL{P q` A
OPDEF U1A [<%%NUUO>B12]
P%%NUUO==%%NUUO+1
DEFINE AX(HELP)
<	IFNB <HELP>,<0	UA [ASCIZ \HELPP\]
>
	IFB <HELPp>,<	UA [0]	
>
>
A [0]	
>
sd@P't@ 	+y AI
	U$ERR [ASCIZ @A@]RR [
v]7P  \k `)F
	$FKFLAG`I==<Z 0>		
	A (<B>,0C,D)A (<]7 aAF
	$FKHAN=aa=<Z 1>		
	A (<B>,1C,D)A (<^(2 b)F
	$FKRADDbI==<Z 2>		
	A (<B>,2C,D)A (<^)9 cyF!
	$FKRESPd==<Z 4>		
	A (<B>,4C,D)A (<^+2 cF
	$FKRMESc1==<Z 3>		
	A (<B>,3C,D)A (<.,W QAM
	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 ^