Google
 
Trailing-Edge - PDP-10 Archives - tops20v41_execsrcmod - exec/foo.unv
There are 12 other files named foo.unv in the archive. Click here to see a list.
x
,FV@P B@ CN 9QS	IFNB <A>9q,<	UACCT [ASCIZ \:A\]
>
	IFB <A:0>,<	UACCT [0]	
>
UACCT [0]	
>C5IQ C&. AA	IFNB <A>Aa,<	UADDR [ASCIZ \BA\]
>
	IFB <AB >,<	UADDR [0]	
>
UADDR [0]	
>C4:P 

C4\qP C3%PP
	UALTYP [ASCIZ @A@]YP CRmI7P dCSR 
	JSP CX,.SAVT
	JSP CX,CW%{P ,CW%{	P CW%{	P D@ Ee@P E'%[P ENf: 99	IFNB <A>Y,<	UBSLSH [ASCIZ x\A\]
>
	IFB <A>,<	UBSLSH [0]	
>
BSLSH [0]	$DREV2P&8EV2

P NEV2P&:EV2P NEV2 P&<EV2,P OEV20P&>EV4[RP'gEV5@@'fEV6

P OEV6

RP&>F@ Ge@ ,GeLR +G,kP dG-l`Q G". 7>	IFNB <A>7!,<	UCHAR [ASCIZ \7@A\]
>
	IFB <A7`>,<	UCHAR [0]	
>
UCHAR [0]	
>G6

(` YH.CMABC+SBLOCK.CMABC+SBLG6

, XAD.CMABP+SBLOCK.CMABP+SBLG6

=Q  G6l VA4.CMBFP+SBLOCK.CMBFP+SBLG6*` \`.CMBRK+FBLOCK.CMBRK+FBLG6k Q G6X Q `G6m WA<.CMCNT+SBLOCK.CMCNT+SBLG6$ ZAT.CMDAT+FBLOCK.CMDAT+FBLG6$Y@ [A\.CMDEF+FBLOCK.CMDEF+FBLG6$]@Q @G6%@Q  G6.,\ '!@	IFNB <A>'A,<	UCMERR [ASCIZ '`\A\]
>
	IFB <(A>,<	UCMERR [0]	
>
CMERR`[0]	G65IQ@`G65I`@NYu.CMFLG+SBLOCK.CMFLG+SBLG65MQUOG65l4ZP.CMFNP+FBLOCK.CMFNP+FBLG6=(@ YAL.CMGJB+SBLOCK.CMGJB+SBLG6EL [X.CMHLP+FBLOCK.CMHLP+FBLG6Lj Q G6Mh` X@.CMINC+SBLOCK.CMINC+SBLG6Mj Q G6Mz@ Nq.CMIOJ+SBLOCK.CMIOJ+SBLG6\^ P G6uyQ @G6uz Q @G6v[ Q  G6v^Q G6|j Q  G7L@ W8.CMPTR+SBLOCK.CMPTR+SBLG7=Q  G7N  V0.CMRTY+SBLOCK.CMRTY+SBLG7z Q `G7$Q G7%z`Q `G7'
>
	IFB <5A>,<	UCOLON [0]	
>
COLON [0]		IFNB <A>/1,<	UCOMMA [ASCIZ /P\A\]
>
	IFB </pA>,<	UCOMMA [0]	
>
COMMA [0]		X
       CALL CONF      CG@,P G@,;xP G@-	6P G@.<P [email protected] GHP GK n	IFNB <A>!,<	UCRR [ASCIZ \@A\]
>
	IFB <A>`,<	UCRR [0]	
>
	UCRR [0]	
>
GRyP 
GRd9HP @GRd9IP GSH`P GSI P GSI< 1Y	IFNB <A>Q,<	UCTRLE [ASCIZ p\A\]
>
	IFB <A>,<	UCTRLE [0]	
>
CTRLE [0]	N@P I aD	IFNB <A>,<	UDASH [ASCIZ \ A\]
>
	IFB <A@>,<	UDASH [0]	
>
UDASH [0]	
>I$*:Q @I:=P I$lzP'hI%|SP'pI&8 P I&>6P'pI Yc	IFNB <A>y,<	UDEC [ASCIZ \A\]
>
	IFB <A>8,<	UDEC [0]	
>
	UDEC [0]	
>
I63 \Az	A==:PPTR\a		;PCL ALLOCATE T]HIS PAGE AT CURRE] NT PAGE POINTER
]@	B==PPTR_-9	;DEF]`INE PAGE NUMBER
^	PPTR==PPTR+C*10^ 00	;STEP TO NEXT ^@PAGE SLOT
	IFG P^`PTR-DDTFST,<PRINT_X ?Exec page buff_ ers overlapping DDT
>rlapping DI6= %p"=
	A==<-1&B<C>+1B<C-D>> &0
	IF1,<IFDEF %A&P,<PRINTX ?A ALRE&pADY DEFINED>>
	D'EFINE %A (OP,AC,'0Y,MSK)<
	$A==<Z'P B>		
	OP (<AC>,B'Y,MSK)><AC>I7 (IJ	IFNB <A>(i,<	UDEF [ASCIZ \)A\]
>
	IFB <A>)(,<	UDEF [0]	
>
	UDEF [0]	
>
I7 %y5	IFNB <A>&,<	UDEV [ASCIZ \&8A\]
>
	IFB <A>&X,<	UDEV [0]	
>
	UDEV [0]	
>
IFN 5Y3	IFNB <A>5y,<	UDEXT [ASCIZ \6A\]
>
	IFB <A68>,<	UDEXT [0]	
>
UDEXT [0]	
>IYVP 
I'> -it	IFNB <A>.	,<	UDIRS [ASCIZ \.(A\]
>
	IFB <A.H>,<	UDIRS [0]	
>
UDIRS [0]	
>I' ,Aj	IFNB <A>,a,<	UDIR [ASCIZ \-A\]
>
	IFB <A>- ,<	UDIR [0]	
>
	UDIR [0]	
>
I?' 1a	IFNB <A>2,<	UDOT [ASCIZ \2 A\]
>
	IFB <A>2@,<	UDOT [0]	
>
	UDOT [0]	
>
IR

:P IRNn :y]	IFNB <A>;,<	UDTIV [ASCIZ \;8A\]
>
	IFB <A;X>,<	UDTIV [0]	
>
UDTIV [0]	
>IS >q}	IFNB <A>?,<	UDTP [ASCIZ \?0A\]
>
	IFB <A>?P,<	UDTP [0]	
>
	UDTP [0]	
>
IS @	IFNB <A>@9,<	UDTR [ASCIZ \@XA\]
>
	IFB <A>@x,<	UDTR [0]	
>
	UDTR [0]	
>
IS@  y	IFNB <A>!,<	UDT [ASCIZ \A!8\]
>
	IFB <A>,<	UDT [0]	
>
K Q K60 xIFN EMCSSWIFN EMCSSWK6<{P KK|@ I6
       UiERR [ASCIZ @A@]RR [ASCIZ @A@]KKPQ KSN	  
	P
	UETYPE [ASCIZ A]PE Kc&:=P LDP"LHP!LLP @LPP  LTP LXP$M
eI7P M@P 'M$,\YP'M&d<YP 2M&d^ 	N	IFNB <A>),<	UFILE [ASCIZ \HA\]
>
	IFB <Ah>,<	UFILE [0]	
>
UFILE [0]	
>M&fyP $M,,*sQ M,,HSQ  M,,IQ M,,YQ M,-ZQ  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,kxQ M8-98Q  M8-h:Q @M8-i3Q M:|I< <!h	IFNB <A><A,<	UFNODE [ASCIZ <`\A\]
>
	IFB <=A>,<	UFNODE [0]	
>
FNODE [0]	,PP%HMJ,\P 2MJ.@P MJ.:=P pO&8; ASCIZ \AEXE\ASCIZ \AEOexY `
   IF2,<
	XGLOBS>IF2,<O3F8t y	J
	SEARCH y)QSRMAC,GLXMAC,ORNMACC,GLXMAC,ORNO?I3 yiP
	OPDEF z	A [<B>]
	INTERN AB>]
	INTERNOJ~\P ON~	 zIV
	OPDEF ziA [B]
	INTERN A
	.NODDT A OOI7P OR 2OR%K@P 	Qf "	IFNB <A>"!,<	UHELP [ASCIZ \"@A\]
>
	IFB <A"`>,<	UHELP [0]	
>
UHELP [0]	
>Q&=

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

SBlP&8SBX<P SP GY=NP
	T <A>,B,C,D!CM%INV$u90SS0 HIGO
	TV <A>Hy,B,C,D!CM%INVB,C,D!CM%INV$x@0M%INVU
d[@P U,kP  U^+@ i&
	ERCAL RJWARN
	ERCAL RWNy $Y<-3P Y0 A	MOVX A,B
	MOVX A,Y+y ):
	ULERRO [ASCIZ@A@]ROYP	Y`PCZ \0xA\]
>
	IFB <A1>,<	ULINE [0]	
>
ULINE [0]	
>Y>=ySP YXtH:P YXt[sP YXt\qP YXuP YXuP YXvvP YXv{P YXvP YXvLXP [E)WP [& ~pIFN MICSWrIFN MICSW[&=`P [2-`P [2u0P [2|pP [FL@P ]fL`P ]sQ ]<` }hIFN NEWFSWIFN NEWFSW]<l{P ]FL`P ]<`P 

]6)yP  ]7<P ]>-Xy A|IFE EMCSSWIFE EMCSSW]>N9  
IT
	UNOI [ASCIZ @A@]OI [A]>dpQ ]>m` ~AtIFE MICSWvIFE MICSW]>t]s }AlIFE NEWFSWIFE NEWFSW]?H: AIFE STATSWIFE STATSW]?FKR |AdIFE XTNDSWIFE XTNDSW]CPP ]Nn	yP ]S'2P _' #) 	IFNB <A>#I,<	UOCT [ASCIZ \#hA\]
>
	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@]PTbD@ bH@ bL@ cNd[@P @cV~I< 8)H	IFNB <A>8I,<	UQUOTE [ASCIZ 8h\A\]
>
	IFB <9A>,<	UQUOTE [0]	
>
QUOTE [0]	e&:x {i^JRST RSKP\JRST RSKPe2N=P&8e:|I< =Ir	IFNB <A>=i,<	URNODE [ASCIZ >\A\]
>
	IFB <>(A>,<	URNODE [0]	
>
RNODE [0]	
e;P gYVP 
g2: /	IFNB <A>1,<	USLASH [ASCIZ P\A\]
>
	IFB <pA>,<	USLASH [0]	
>
SLASH [0]	. )x	IFNB <A>I,<	USTAR [ASCIZ \hA\]
>
	IFB <A>,<	USTAR [0]	
>
USTAR [0]	
>gR@ IFN STATSWIFN STATSWgRL{P gS:=P dgS $Q+	IFNB <A>$q,<	USTR [ASCIZ \%A\]
>
	IFB <A>%0,<	USTR [0]	
>
	USTR [0]	
>
gV;v )0	IFB <B>,I<
		USUBCO [	A
				0]>
	IFNB <B>,<
		USUBCO [	A
				B]>
g^N:=P ggH6P h C	-N@
	..BITS=C9=0
	IFNB <B>,<.CX.BITS==B>
	IFB Cx<C>,<$FOO==.A>
        IFNB <CD8>,<$FOO==C>
IFEDX D,<XWD [ASCIZ @DxA@],[..BITS!$FOOE]>
IFN D,<XWD [E8D!CM%FW
		ASCIZEX @A@],[..BITS!$FOO]>
..BITS!$F$t&0Ri I9S
IFNB <BIY>,<%%X==B>
IFB Ix<B>,<%%X==.A>
J	[	CM%INV!CM%ABR!J8CM%FW
		ASCIZ /A/],,%%X
IZ /iP iI  Jy]
	Z			;FIKLLED IN BY NEXT TK8END
	..T==.			;UKXSED BY NEXT TENDED BY NEXT TENDi%I7P i]K\P i
e<}P dit@ Lk
       .L9.U==.
        RELXLOC ..T-1
	..U-.Lx.T,,..U-..T	;FILLM IN FIRST WORD OFM8 TABLE
        RELOC ..U      Ri&l^ 3		IFNB <A>3),<	UTIME [ASCIZ \3HA\]
>
	IFB <A3h>,<	UTIME [0]	
>
UTIME [0]	
>i. @i.,;sQ  i/$\SQ iJ 

	b
	UTRAP [

)	A
		ASCIZ @B@]
		ASCIZ @B@iK:P iRNK x	D
	TITLE x)A
	SEARCH MACSYMxH,MONSYM
	SALL
	GGLOBS
	SALL
	iS<;qP iS<mzP iS=-P iS=[rP iS=\uP iS>VP iS>;VP iX F7
IFB <C>F9,	T <A:>,B,.A,FXD

IFNB <C>,	FxT <A:>,B,C,D
A:>,B,C,D
 U		TYPE[ASCIZ`A]PE[ASCIZA]j.,@.j8$\Y8k=tk$L@kLt>kD@pkl\YXk}Kwlk}[0dk  Hk&+ Dk: @k,0 Fk,` Zk.` Vk/
k"-L Pk2.,W *k2Mi  fk2N= 	"
XX SLASH)	
XX BSLSH	
XX HDASH		
XX FILE		h
XX CTRLE	
XX DEC		
XX CRR		
X(X STAR		
XX WORDH		
XX DT		
XX HhELP		
XX OCT		
XX STR		
XX DEV	(	
XX CMERR	
XX HDEF		
XXhUSER		
XX USERS	
XX DIR		
XX DIRS		
X(X COMMA	
XX LINEH		
XX DOT		
XX hTIME		
XX COLON	
XX DEXT		
XX C(HAR		
XXHQUOTE	
XX ACCT		
XX DThIV		
XX FNODE	
XX RNODE	
XX DTP(		
XX DTR		
XX ADDR		
		
XX k:} &k>@ RkC{8 (kG-} rkJuy zkN.,| +_	IFNB <A>+9,<	UUSERS [ASCIZ +X\A\]
>
	IFB <+xA>,<	UUSERS [0]	
>
USERS [0]	qU	IFNB <A>*,<	UUSER [ASCIZ \*0A\]
>
	IFB <A*P>,<	UUSER [0]	
>
UUSER [0]	
>kNdt <kO$@ JkO&  TkO,(w :kRMY  jkS 6kSN	  "kW\@ \kW\Y ^k^~) Lo"fPQ o?N Q	IFNB <A>q,<	UWORD [ASCIZ \ A\]
>
	IFB <A 0>,<	UWORD [0]	
>
UWORD [0]	
>q0 O$yIFN XARCSW,IFN XARCSWq<{P qd@Q xqY P%(q\P *q\P q\}P  qexY `a$^

	XLISTa
	.XCREF

DEFIa NE QEXT (SYM)<
	a@IRP SYM,<
	IFNDEa`F SYM,<EXTERN SYMb
		SUPPRE SYM>>>b 

   STAT,<
QEb@XT <STPTR>
   >;b`STAT

QEXT <CLRcALL,CLRBIT,JSBDEFc ,SETALL,SETBIT,SEc@TTRP,COPBTS,RESACc`S,SAVACS>
QEXT <dSKPON,TRPPSI,JTABd ,SKPNAZ,TRPOKF,TSd@TOPF,MRKTRP,GETLPd`C,FOWNER,TFILEF,TeOPENF>
QEXT <SNDe PDB,MYPID,QSRPID,e@MDAPID>
QEXT <GEe`TPID,GQPID,QUASNDf,SNDMSG,SNDMS1,IPf CRCV,GQSRPD>
QEXf@T <IPCON,IPCOFF,If`PCINT,CHECKM,IPCHgEK,NOWPTR,IPCRCF,g IPCWTF,IPCALF,IPCg@FND>
QEXT <UNIQUg`E,IPCTBL,IPCAGE,IhPCFGS,IPCCTL,INFPh ID,OLDIDX,IPCFLM>h@
QEXT <DGFRKS,SEh`TENT,SETGO,GETENTi,WAITF>
QEXT <.Mi AKE,.TECO,.TV>
Qi@EXT <SPEEDA,SYSDWi`N,PRACCT,CKSTAR,GjETDVN>
QEXT <SBLj OCK,FBLOCK>
QEXTj@ <%%LVER,%%RVER>
QEXT <RJWARN,REWkIND,CJDEV,OPNMAG>k 
QEXT <ABKCNT,INk@FTRM>
QEXT <%GETk`ER,DGETER,.EDIT,.lEDITC,CSVCC,EDSVBl ,TECSVB,CMAGN>
Ql@EXT <TOUT,TOUTD,Tl`BOUT,TSOUT0,USRCNmT>
QEXT <DWNTYP,m SNBLKS,SSIZE,$CHFm@DB,USRNAM,TTYUSR>m`
;**;	[722]	Channge 1 line	6-APR-8n 2	KR
QEXT <.P,.Pn@P,COMAND,COMSIX,Pn`RGCEL,CIPF,CLF,MPoENDF,NACL,GLOADS,o CLSON,BEGINP,SVPRo@MT,ECHCMD>	;[722]o`
QEXT <GETDIR,REpLDIR,GETDRP,DIRINp I>
QEXT <.STRST,p@VERPNT,%VERSI>
Qp`EXT <.VERSI,EXECVq,CMDINI,MONSTA,SUq BSTA,.JOBST,.RUNSq@T,.MEMST,.DSKST,.q`ERRST,.FILST,.INFrOR,.PISTA>
QEXT r <.PUSH,.POP,.UNATr@T,.INDIR>
QEXT <r`INFER,UNMDIR,$CONsTI,$LPTST,GETLPT,s FINLPT,$REENT>
Qs@EXT <$START,..CONs`T,..REEN>
QEXT <tMFOUT,MFSET,MFINPt ,MFINP0>
QEXT <St@IXPRT,.AVAIL,$OPEt`N7,$OPENF,$ERSTR,uOPNERR,ERRFIN,CRIu F,LM,%MESS,PNTMESu@>
QEXT <BEFORE,Du`EVLUP,ECFORK,EDEFvIN,EOLRET,EPRINT,v ESET,.SPEAK,ECEASv@E,MESMES>
;**;[7v`38] Change 1 linew at QEXT STAYF,..w .:	KR	2-JUN-82
Qw@EXT <STAYF,ERESETw`,TRYGTJ,DOGET,TRYxGTS,TRYGTO,TRGTV1x ,WHY,$GET2,$GET0,x@CRSCAN,$GTFDB>	;[x`738]
QEXT <..STRyT,RSPTR,.ACCOU,.Ay DVIS,.APPEN,.ASSIy@G,.ATTAC,.BREAK>
QEXT <.CHANG,.CLzEAR,.CLOSE,.REMARz ,.CONNE,.CONTI,.Cz@OPY,.CREAT>
QEXTz` <.ACCES,.ENDAC>
QEXT <.DAYTI,.DD{ T,.DEASS,.DEFIN,.{@DELET,.DETAC>
QE{`XT <.DIREC,.TDIRE|,.FDIRE,.VDIRE,.D| ISAB,.DISMO>
QEX|@T <.EDDT,.ENABL,.|`EXPUN,.FORK>
QEX}T <.GET,.HELP,.SE} ND>
QEXT <.LNLIS}@,.LOGIN,GSR,SSR,.}`LOGOU>
QEXT <.ME~RGE,.MOUNT,.PRINT~ ,.PROTE,.PRINT,.S~@UBMI,.IPR,.IBR,.I~`RR,.IMR,.MODIF,.CANCE>
QEXT <.PLO T,.SDP,.SDPL,.SND@PL,.SDS,.SNDCS,.S`NDS,.SNDP,.SDC,.SDT,.SNDCP,.SNDTP> 
QEXT <.SDCS>
Q@EXT <$DEF>
QEXT `<.IDC,.IDPL,.IDCS,.IDP,.IDPRT,.IDS ,.IDALL,.IDPRG,.I@DTAK>
QEXT <.PUN`CH>
QEXT <.QUIT,DOATI>
QEXT <.R, .RECEI,.REENT,.RE@FUS,.RENAM,.RESET`,.RUN>
QEXT <.CSAVE,.SAVE,.SET,.S TART>
QEXT <.TAK@E,.TALK,.TYPE,.TR`ANS,TYPE1,.UNDEL,.UNMOU>
QEXT <AS TTJ,CHKDAL,CMDIN2@,CMDIN4,CIN3,EXEC`,JOBREN,JOBSA,JOBSYM,JOBDDT>
QEXT  <XEND,.NPAGS,EVL@EN>
QEXT <LEVTAB`,REE,SUPER,.JOBSY,.TEXEC>
QEXT <R EADY,READY2,FIELD@,FLDSKP,CFIELD,GE`TTER,REPARS,SETT20,SAVT20,SAVNAM,S ETMOD,GETMOD,SETP@RG>
QEXT <%KEYW,`GETKEY>
QEXT <PRVCK>
QEXT <%NOI> 
QEXT <%SBCOM>
@QEXT <CONF,FCONF,`FCONFA>
QEXT <SP	RTR,BITS>
QEXT <	 CIOREL,SETIOF,TIN	@PF,NOTIO>
QEXT <	`%$TYPE,$CTYPE>
Q
EXT <COUTFN,CSAVF
 N,SPECFN,CPFN,CPF
@NA>
QEXT <.INFG,
`INFGNS,TYPFLS,$INFGX,DIRARG>
QEXT  <TYPIF,TYPOK,GNF@IL,NXFILE>
QEXT `<DEVN,CONST,INDT,

LBLSKP>
QEXT <DI

 RNAM,DIRNMX,CURNA

@M,CURNMS,USRNMS,S

`TPDIR,STPUSR>
QEC<ATSAVR,TOCT,O
QET<BUFFF,GETBUF,BUF,STREM,XFRINI, FREINI,BCOUNT,GET@NOD,CSBUFP,DICT,X`DICT,BUFFS,XBUFFS,GTBUFX,GETSIX,GE TSXB,GETASC,FIXPT@>
QEXT <NOECHO,D`OECHO,LTTYMD,FIXIO,RTTYMD>
QEXT < %PRINT>
QEXT <CO@UTC>
QEXT <MAPPF`,FREL,RANDOM,TYPEXP,TYPADD,GINSTR, PINST,RINST,EVAL>@
QEXT <SYMF,SYMO`KF,SOFF,SYMBA,SYMEA,SYMBEG,SYMEND, LASTP,NSYMS,SYMBF@>
QEXT <LOADF>
`QEXT <STOREF>
QEXT <%GTB>
QEXT < DING,CERR,NIYE,NI@M,SCREWUP,JERR,JE`RRC,CJERR,JERRE,CJERRE>
QEXT <%TR AP>
QEXT <AUTOLO@>
QEXT <%ERR,%$E`RR,%.$ERR >
QEXT <RERET>
QEXT <% ETYPE>
QEXT <RLJ@FNS,UNMAP,JFNSTK,`CLZFFF,JFNRLA,GTJFS,RJFN,PION,PIOF F,ACTRCF,INTDF,II@NTDF>
QEXT <FLOA`T>
QEXT <CSZ1,CSZ2,CSZ4>
QEXT <C MDACS,REPARA>
QE@XT <CIJFN,COJFN,J`BUFP,.JBUFP,.J,JBUF,CJFN1,CJFN2>
 QEXT <TAKLEN,TAKC@UR,TAKDEF,TAKJFN,`TAKBTS,PUSHIO,ALONOI,ECHNOI>
QEXT  <INIFH1,INIFH2>
QEXT <DPPT,DPSTK`,DSPT,DSSTK,DCPT,DCSTK,DPLPT,DPLST K,DTPT,DTSTK>
QE@XT <EOFDSP,EOFJER`,DATDSP,ILIDSP>
QEXT <CIDLYF,PAXL FL,CCFLAG>
QEXT @<CINITF,LOGINI,SY`SMF,LOGDAT,FILINI,TAKEIN>
QEXT <P RVENF,MESMSF,CUSR@NO,LIDNO,JOBNO>
`QEXT <EXDPF,EXDPLC>
;**;[735] Cha nge 1 line at DEF@INE QEXT + 101L	K`R	17-MAY-82
QEXT <FORK,RFORK,DDTF LG,NPAGE,EFORK,BA@TCHF,PROG,SNDPRG,`SDPROG,GETFB1,ANNKEP,INDQUS>	;[735 ]
QEXT <STRTIM,T@TYACF,PTTYAC,ALOS`T,CJPTIM>
QEXT < ITTYMD,PTTYMD,ETT  YMD>
QEXT <CERET @>
QEXT <CTUUO>
 `QEXT <SSTACK>
QE!XT <ERCOD>
QEXT ! <USERNO,MCOJFN,OU!@TDSG,TYPGRP>
QEX!`T <DEXTBL>
QEXT "<PD,INISTK,PDLOV," CBUF,ATMBUF,CBUFE"@,CJFNBK,XTNNUM,XT"`NCNT,ECHPTR,ECHCN#T,CTRPTR>
QEXT <# TEXTIC,TEXTID,TEX#@TIA>
QEXT <PPATS#`,PPAT,PAGEN>
QEX$T <LEV1PC,LEV2PC,$ LEV3PC,PCTAB>
;Q$@EXT <$CTRLA,$CTRL$`R,$CTRLV,$CTRLW,$%CTRLX,$EOL,$DASH,% $CONT,$RUB>
QEXT%@ <$FORMF,$LF,$CON%`T,$TDENS>
QEXT <&USEPSI,ILIPSI,EOF& PSI,DATPSI,ICLEAR&@,CCPSI,TLMPSI,ALO&`PSI,COBPSI>
QEXT' <ADVFLG,SAVPGM,F' IXON,ADVTNM,ADVME'@S,BREAK1,ESCPSI,J'`FNSIL,QTAPSI,QTAD(SP>
QEXT <CUUO>
QEXT <ERRET,NESC(@>
QEXT <FSTAT>
(`QEXT <ERRMF>
QEX)T <CSBUF>
QEXT <) %EDAYT>
QEXT <AC)@CT,PASSX,PASWD,PA)`SLIN,PASFLD>
QEX*T <CHRTBL>
QEXT * <JOBOPC>
QEXT <.*@BACKS,.SKIP,.EOF,*`.REWIN,.UNLOA>
Q+EXT <CSCAN>
QEXT+  <.CREF,.EXECU,.C+@OMPI,.DEBUG,.LOAD+`,OCCLF,GOTO2,CLOP,AT,DOCCL,DOCC1,DO, CC2>
QEXT <CSVC>,@
QEXT <MALCHK,MA,`LWEN,MINT0,MWATCF-,MWATCH,MAILF> ;M- AIL WATCH
QEXT <-@SUBBP>
QEXT <NET-`RDY>				;ARPANET
QEXT <QTIMES,SNA. MES,SYSVER,JOBRT,.@TTYJOB,NETRDY>
Q.`EXT <GETAMT,CHKPT/Y>
QEXT <LRFSTS>/ 
;**;[713] Add 1/@ line at QEXT<LRF/`STS>+1	24-MAR-82	0PED
QEXT <MONVER0 >				;[713] V4.1
; CRJOB/PRARG
0`
QEXT <CRPRA,..ST1CR,MESS>

; Arc1 hive system

QE1@XT <.ARCHI,CANARC1`,.DISCA,.RETRI,FT2DBLK,ARCBLK>

;2  Extended feature2@s

QEXT <.DOWNT2`,.KFRKC,.NOLM>
Q3EXT <.RDIRE,.WDIR3 E,.QD,ALRCHK,MALC3@HK,IITPSI,TYPING,3`AUTOF,IITSET>
QE4XT <MALBUF,MWATAT4 ,MWATCT,MWATDR,MW4@ATWR,MWATN,MWATN04`,ALRTIM,ALRTMS>
5QEXT <RUNFK,IDFOR5 K,EDFORK,FRKTAB,S5@LFTAB,FRKNMS,KEPN5`MS,FRKDEF,SFKNAM>6
QEXT <.FREEZ,.U6 NKEE,.NAME,.KEEP,6@UTTYMD,RFTYMD,FTT6`YMD,REASON>
QEXT7 <RSTFK,REPH,STEP7 H,REPH1,.ERUN,.BL7@ANK,BLANK1,KEFORK7`,GETILI,DWNPNT>
8QEXT <.DO,.KMIC,M8 ICFRK,PAGEMI,MICF8@PG,MICPAG,GETPAG>8`
QEXT <.GOTO,.BA9CKTO,.ERROR,.IF,.9 NOERROR,.OPERATOR9@,.NOOPERATOR>
QE9`XT <ADDNAM>
QEXT: <CCKEEP>

;Pro: grammable Command:@ Language

QEXT:` <CTBL1,PCCURC,PC;FLAG,PCTXFR,PCSFR; E,PCLSTF,PCVVAL>
QEXT <PCFLDB,.DE;`CLA,.UNDEC,PCMXCT<,PCMPOP,PCMPOS,PC< MPRS>
QEXT <PCIN<@IT,PCCCPL,PCIDFV,<`PCIUDF,PCIRUN,PCE=XCT,SUBNAM>
QEXT=  <PCMPSI,PCMPSO,P=@CIPSO,PCPOTP,PCPR=`GR,WFORKX,.PCLOB>>
QEXT <PCIINF,SI> NVAR,SSTVAR,PCISG>@S,.PCLVR,PCIDGS,P>`CICLP>
QEXT <PCC?WKE,PCRPAS,PCLDCO? ,PCIWEV,$SDEF,PCI?@GEV>
QEXT <CIN2,?`PCIDFS,PCIFGS,WAI@TA,PCLPMT>
QEXT @ <PCIPSV,PCFLDP,PC@@LGST,CUSTMF>
QEX@`T <CHNS,CHNTAB,CMA1DB,CM1DBE,CTBL2>A 
QEXT <TDEFAU,$SA@ETO,$SETN,$SFILE,A`$SFNO>
QEXT <$RSBFD,$SVFD,$INFO>
B QEXT <CRDSET,IVOLB@,NTRAP,SETSRM,SPLB`INF,SPLSET>
QEXTC <SYSINF,TAPINF,TC RMPNT,.ADBRK,.ADDC@RE,.ALERT>
QEXT C`<.ALRST,.ARSTS,.ADUTOM,.CIDLY,.CTRLD C,.DEFAU>
QEXT <[email protected],.ENTRY,.EXD`AMI,.EXECM,.FEXP,E.FILEV>
QEXT <.FE LINX,.FLONX,.FPROE@H,.FRESI,.IARPA,.E`IDECN>
QEXT <.INFVIS,.LOCAT,.MALSTF ,.MWATC,.NODEF,.NF@OTIM>
QEXT <.OFLF`,.PAC,.PAXL,.PRESGE,.SDIR,.SETNO,.SG FILE>
QEXT <.SFNG@O,.SISTA,.TAPE,.TG`ERMI,.TIME,.TKD>
QEXT <.TRAP,.TYPH EO,.VISIB>
QEXT H@<.EPHM,.FRKST,SAVH`SWI,.CTRAC,.ORIGII,.SDDCL>
QEXT <.I INDEF,.SEDEF,.STMI@LM,$SET0>
QEXT <I`$CONFD,$CONF1,$CMJODE>
QEXT <.SAVTJ ,CMDCHT,CMDCHR>
J@QEXT <MSEPSI,READJ`1,PCWAIT>
QEXT <KRESET0,.RESE2,.REK SS1,.RESST>
QEXTK@ <$FRKNM,$NODEF>

	.CREF
	LIST
   REF
	LIST |aIFN XTNDSWIFN XTNDSWqRtL{P q` 

it
OPDEF%UUO>B12]
%%NUUO==%%NUUO+1
DEFINE AX(HELP)
<	IFNB <HELP>,<	UA [ASCIZ \HELP(\]
>
	IFB <HELPH>,<	UA [0]	
>
>
A [0]	
>
sd@P't@ 	+y i>
	U$ERR [ASCIZ @A@]RR [
v]7P  \k Oz
	$FKFLAGO!==<Z 0>		
	A (<B>,0C,D)A (<]7 P
	$FKHAN=P1=<Z 1>		
	A (<B>,1C,D)A (<^(2 Py	
	$FKRADDQ==<Z 2>		
	A (<B>,2C,D)A (<^)9 RI
	$FKRESPRi==<Z 4>		
	A (<B>,4C,D)A (<^+2 Qa
	$FKRMESR==<Z 3>		
	A (<B>,3C,D)A (<.,W )B
	U.$ERR [ASCIZ @A@]RR $IRP 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 ^