Google
 
Trailing-Edge - PDP-10 Archives - bb-l014t-bm_tops20_v7_0_atpch20 - autopatch/ornmac.unv
There are 80 other files named ornmac.unv in the archive. Click here to see a list.
x
,U,@P Cv)6Q @CBd)3P'CJ9ip CRn:=P @EV6:=P @G"uZQ ~G"v<[P G4ulQ @G>ih6P G>ihvp G>ilp G>ilwp G>il}p G>imp GHv8;P GHv:=P IvLuP I<[P @I1h7p I1i{p I1kp I1k2p I1lp I1l}p I1mp Ir%lP Ir5lP It[:P ItkQ xIu

xP IulwP Iv;PP Iv;wP IvLP'IvLVP IX-]P IX.MP IXtPQ  IXt:P'IXt: Q IXvX;Q @J:

9VP J:{SP J:/
:P J:MlP J:MmQP J:lP J:u|VP J:~SP J:~]P J;LsP KK9 qQa
	XLIST
q!
	X	AON,<Applicar!tion object blockqA and object type u1block not alloweduP together in WTORup/WTO/ACK message>v
	X	CMI,<Commandv0 message invalid>vP
	X	UPO,<Unknownvp processor objectw>
	X	UPT,<Unidenw0tified processor wPtype>
	X	IPE,<SEwpMI-OPERATOR or OPxERATOR privilegesx0 required> ;[120]xP
	X	IOE,<Invalidxp OPR entry>
	X	IyFC,<Illegally fory0matted command meyPssage>
	X	IFM,<Iypllegally formattezd message>
	X	IRz0S,<Illegal range zPspecified>
	X	MTzpS,<Message too sh{ort>
	X	BML,<Bad{0 message length>
	X	CSU,<Cannot s{pend to specified |terminal/user>
	|0X	NOM,<No outstan|Pding messages>
	|pX	ICS,<Invalid ar}gument count spec}0ified in command>}P
	X	IAL,<Invalid}p argument length ~specified>
	X	IT~0M,<Invalid type a~Prgument in messag~pe>
	X	ONS,<OPR not setup .. comma0nd ignored>
	X	DPTM,<Duplicate typpe specified in message>
	X	WJP,<W0TO, WTOR, or ACK Pjob number field prequires privileges>
	X	WTP,<WTO,0 WTOR or ACK objePct type field reqpuires privileges>
	X	IWF,<Invalid0 WTO or WTOR fielPd>
	X	WOP,<WTO, pWTOR, or ACK object block field re0quires privilegesP>
	X	IOU,<Invalipd object unit specified in object 0block>
	X	RIW,<RPange invalid in WpTO, WTOR or ACK object block>
	X	0OPD,<OPR pid alrePady defined>
	X	pISM,<OPR setup message invalid .. 0OPR did not send Phello>
	X	OAS,<OpPR already setup .. OPR deleted>
0	X	ANI,<ApplicatiPon name invalid ipn application hello message>
	X	O0DE,<OPR Does not Pexist .. message pnot sent>
	X	MTF	,<WTO message typ	0e field required 	Pwith WT.SJI set>
	X	IAC,<Invalid 
acknowledgement c
0ode .. code was z
Pero>
	X	CNI,<Com
pmand not yet implemented>
	X	IPS,0<Invalid pid for Psender .. pid wasp zero>
	X	ISC,<I

nvalid switch spe

0cified in command

P>
	X	IMB,<Invali

pd	message block>	
	X	WNA,tonoperatob>
	X	LNI,<Loggi0ng not enabled>
P	X	RNA,<Range notp allowed in START command with /DE0VICE>
	X	IQS,<InPvalid queue specipfied in command>
	X	SUF,<ERROR.SY0S entry failed onP REPORT command>
	X	IUM,<Invalid user specified in0 message>
	X	ARPP,<ACK messages repquire WHEEL or OPERATOR privileges0>
	X	NRW,<NotifyP message requiresp WHEEL or OPERATOR privileges>
	X0	JDE,<Job to be nPotified no longerp exists>
	X	NJD,<Job to be notifi0ed is DETACHED ..P notify ignored>
	X	BNR,<Batch commands not allowe0d from remote nodPes>
	X	NOD,<No opperators defined>
	X	DOL,<Device 0already online ..P command ignored>p
	X	SFF,<Scheduler functions fail0ed for SHOW SCHEDPULER command>
	Xp	ORS,<SYSTEM, HOST or REMOTE opera0tor privilege reqPuired>
	X	OHS,<SpYSTEM or HOST operator privilege r0equired>
	X	OSY,P<SYSTEM operator pprivilege required>
	X	SAF,<Send 0to ACTDAE failed Pfor SET USAGE compmand>
	X	CLO,<Can't locate operat0or>
	X	COC,<ClusPter GALAXY optionp mismatch between ORION and OPR> 
	LIST
	SALL
KK| %aZh
	XLIST
&X	E.NORM,<OPR ter& minated normally>&@
TOPS20 <
X	E.O&`PNF,<Unable to op'en ^T/DCNDAT/>
X' 	E.CONF,<Unable t'@o get connects fo'`r ^T/DCNDAT/>
X	(E.ACFL,<Unable to(  accept connects (@for server links>(`
X	E.OUTF,<Outpu)t over link ^T/DC) NDAT/ failed .. l)@ink aborted>
X	E)`.INPF,<Input over* server link fail* ed .. link aborte*@d>
X	E.STSF,<Sta*`tus return for in+put server link f+ ailed .. link abo+@rted>
X	E.INVC,<+`Invalid connect s,tatus ^O/ARG1/ ..,  link aborted>
>,@ ;END TOPS20
X	E,`.EXIT,<EXIT comma-nd issued>

	LIST
	SALL

	LIKK9: JqTi
		EXTERNKAL TXTTBL
		EXTEK0RNAL STSTBL
		EXKPTERNAL ERRTBL
		KpEXTERNAL RPTERR
L		DEFINE	X(SUFFIXL0,TEXT),<
		EXTERLPNAL	E$'SUFFIX
		Lp> ;END X
		ERRCDMS
		ERRTXT
		ORNMSG
	XT
		ORKKN QS}
		XLIST
	X	ACI,<Application code ^D/G$ARG01/ invalid .. WTOP rejected>
	X	AHpF,<^T/@G$ARG1/ hello acknowledgeme0nt failed .. hellPo ignored>
	X	ANpS,<Application ^T/@G$ARG1/ not sig0ned on yet .. WTOP/WTOR/ACK rejectepd>
	X	CPM,<WTO/W TOR/ACK request f 0or ^T/@G$ARG1/ ha Ps different pid f prom hello .. WTO !rejected>
	X	CSF!0,<Class scheduler!P error: ^E/G$ARG1!p/>
	X	DDI,<Disk "drive number ^D/G"0$ARG1/ invalid on"P SET command>
	X"p	DJF,<SET ONLINE #failed because ^E#0/G$ARG1/>
	X	IAP#P,<^T/@G$ARG1/ is #pnot running>
	X	$ICN,<Channel numb$0er ^D/G$ARG1/ inv$Palid on SET comma$pnd>
	X	IDD,<^T/@%G$ARG1/ is not a %0valid disk struct%Pure .. command ig%pnored>
	X	IDS,<^&T/@G$ARG1/ is not&0 supported for /D&PEVICE .. command &pignored>
	X	IMT,'<Illegal message '0type ^O/G$ARG1/>
	X	INS,<Operator'p at node ^N/G$ARG(1/ not enabled fo(0r node ^N/G$ARG2/(P>
	X	INT,<Invali(pd node or no term)inal lines for no)0de ^N/G$ARG1/>
	)PX	ION,<OPR hello )pmessage node ^N/G*$ARG1/ invalid ..*0 OPR ignored>
	X*P	IOT,<Invalid obj*pect type ^O/G$ARG+1/ specified in m+0essage>
	X	ITD,<+P^T/@G$ARG1/ is no+pt a valid tape dr,ive .. command ig,0nored>
	X	LAO,<O,PRION log file ^F/,pLOGFD/ already op-en .. command ign-0ored>
	X	LFE,<OR-PION log error ^E/-p[-1]/ .. logging .disabled>
	X	MNV.0,<Message ^D/G$AR.PG1/ no longer val.pid .. sender has /gone away>
	X	NM/0C,<No messages fo/Pund with code ^O//pG$ARG1/>
	X	NMN,0<No messages for 00node ^N/G$ARG1/>
	X	NON,<No opera0ptors at node ^N/G1$ARG1/>
	X	NSM,<10Message ^D/G$ARG21P/ does not exist>1p			;[103]
	X	NNK2,<Node ^N/G$ARG1/20 is not known to 2PORION>       	;[12p17]
	X	NTD,<^T/@3G$ARG1/ is not a 30tape drive or val3Pid structure .. c3pommand ignored>
4	X	OAE,<DN60 OPR 40at node ^N/G$ARG14P/ already exists>4p
	X	ONE,<OPR not5 enabled for mess50age ^D/G$ARG1/ at5P node ^N/G$ARG2/>5p
	X	OSF,<OPR set6up failure for PI60D ^O/G$ARG1/ .. O6PPR ignored>
	X	P6pER,<Command error7: ^T/@G$ARG1/>
	70X	RWF,<^T/@G$ARG17P/ file retrieval 7pwaits failed  ^E/8[-2]/>
	X	SIC,<S80ET ONLINE ^T/@G$A8PRG1/ channel numb8per ^O/G$ARG2/ inv9alid>
	X	SID,<SE90T ONLINE ^T/@G$AR9PG1/ device number9p ^O/G$ARG2/ inval:id>
	X	SJF,<SET :0JOB scheduler err:Por: ^E/G$ARG1/>
:p	X	SJN,<SET JOB i;nvalid .. job ^D/;0G$ARG1/ not logge;Pd in>
	X	SPI,<SE;pT priority value <^D/G$ARG1/ invali<0d .. 63 is maximu<Pm>
	X	SSF,<SET S<pCHEDULER error: ^=E/G$ARG1/>
	X	TA=0B,<TAKE command a=Pborted because ^T=p/@G$ARG1/ not run>ning
		on comman>0d "^T/@G$ARG2/">
	X	WTL,<WTO/WTOR>p message length ^?D/G$ARG1/ exceeds?0 max of ^D/[WTOMA?PX]/>
		LIST
		SALL
	LIST
		SL;<rP L;<YP L;<I9P!L;<MP @L;<\YP  L;<kP'pL;=+qP @L;=hUP L;=i1P  L;=xUP"L;=xrP L;>-P L;>NP$L;>N8P M:=P M2

pP MR%eHQ MR6L`P MRV>9Q MS) Q MS.[yP N$ x3

X	<LCP>,0,LCPTAB,LCPORN8

X	<NCP>,1,NCPTAB,

>,1,NCPN%Iw x7	X	OPERATOR-SYSTEMOPERATON%L 8;	X	LPTXFR@	X	LPTXFRN:n+SP N:}KsQ O*6:=P S;:P SBI;P U
IjQp U
Ikp U
Il}p WMX4 !Ij
	X	ALIGNQ,ALI		
	X	BACKSPACE,BKS		
	X	CAN!CEL,CNC		
	X	CLO@SE,CLO		
	X	CONT`INUE,CNT		
	X	DELETE,DEL		
IFN	F TDN60,<
	X	DEFIN@E,DEF		
> ;END F`TDN60
	X	DISABLE,DIS		
	X	DISMOU NT,DSM		
	X	ENAB@LE,ENA		
	X	ENTE`R,ENT		
	X	EXIT,EXT		
	X	FORWARD SPACE,FWS	
	X	HE@LP,HLP		
	X	HOLD`,HLD		
	X	IDENTIFY,IDN		
	X	MODI FY,MOD		
	X	MOUN@T,MTN		
	X	PAUSE`,PAU		
TOPS20<	X	PUSH,PUS>		
	X	 PRINT,PRT		
TOPS@10<	X	RECOGNIZE,R`EC >		
	X	RELEASE,REL		
	X	REPOR T,RPT		
	X	REQUE@UE,REQ		
	X	RESP`OND,RSP		
	X	RETURN,RTN		
	X	ROU TE,RTE		
	X	SEND@,SND		
	X	SET,SE`T			
	X	SHOW,SHW		
	X	SHUTDOWN,S HD		
	X	START,ST@A		
	X	SUBMIT,SU`B		
	X	SUPPRESS,SUP		
	X	TAKE,TA K		
	X	UNLOAD,UN@L		
	X	WAIT,WAI	`	


	X	SWITCH,SWI		


TOPS10  <				
	X	LOCK,L@OC		
	X	UNLOCK,U`LC		
>					


	X	<\"32>,CTZ		
	X	NEXT,NXT		

	NEXT,NXT		
WMxU aIr
X	JOB,JOB				
X	OPERATOR ,OPR			
X	TERMINAL,TRM			
RMINWN{y $!M@
X	AFTER,$AAFT			
X	ALL,ALL$`				
X <ALL-MESS%AGES>,ALM			
X <% ALL-NODES>,ALG			%@
X	ASK,ASK				
%`X	ATTRIBUTE,ATR		&	
X(<BEGINNING-O& F>,BEG)			
X <BU&@GCHK-MESSAGES>,CH&`K			
X <BUGINF-M'ESSAGES>,INF			
' X	CI,CI				
X CL'@USTER,CLU				
X('`<CLUSTER-GALAXY-L(INK-STATUS>,CGL	
X	CONFIGURATION,(@CFG		
X <CONTROL(`-FILE>,CTL			
X	)COPY,CPY			
X(<C) URRENT-POSITION>,)@CUR)		
X <CURREN)`T-REQUEST>,ACR			*
X	DAYTIME,DAY		* 	
X (<DECNET-CON*@NECTION-ATTEMPTS>*`,DCA)	
X <DECNET+-EVENT-MESSAGES>,+ EVT		
X <DECNET-+@LINK-MESSAGES>,DL+`K		
X DQS,DQS			,	
X DUMPABLE,DUM, 				
X <ERROR-ME,@SSAGES>,ERM			
X,` <EVERY-REQUEST>,-AER			
X	FILE,FI- L			
X (<FORMS-T-@YPE>,FOT)			
X	I-`GNORE,IGN			
X	I.MMEDIATELY,IMM			. 
X	<JOB-MESSAGES.@>,JOM		
X	KEYPAD.`,KPD			
X LAT,LA/T				
X (<LIMIT-/ EXCEEDED-ACTION>,/@LEA)		
X	LINE,LI/`N			
X LOCAL,LOC0				
X	LOG,LOG		0 		
X (<LOGFILES-0@TO-SPECIFIC-PRINT0`ERS>,LSP)	
X	LOG1GING,LGG			
X (<1 MEMORY-LIMITS>,ME1@M)			
X	MESSAGES1`,MSG			
X	NI,NI	2			
X	NODE,NOD		2 	
X	NOKEYPAD,NKP2@			
X	NONDUMPALB2`E,NDM			
X	NOREM3OVAL,NRM			
X(<N3 OOPR-INTERVENTION3@>,NOI)		
X <OPR-3`ACTION-MESSAGES>,4OAM		
X	<OFFLINE4 >,OFL			
X	<ONLI4@NE>,ONL			
X(<OP4`R-INTERVENTION>,O5IA)		
X	OTHER,OT5 H			
X <OUTPUT-D5@ISPLAY>,OPD			
X5`(<OUTPUT-LIMITS>,6OPL)			
X6(<PAGE6 -LIMITS>,PGL)			
X	PARAMETERS,PRM6`			
x	PORT,POR		7	
X (<PRINT-LOGF7 ILES>,LFS)		
X	P7@RIORITY,PRI			
X7` (<PRIORITY-LIMIT8S>,PRL)		
X	REMO8 VAL,REM			
X (<R8@EPORT-CONNECTION-8`FAILURES>,RCF)	
9X	REQUEST,RQN			
X	QUEUE,QUE			
9@X	SEMI-OPR,SEM			9`
X SERVER,SRV			:	
X SERVICE,SER	: 			
X	SITGO,SIT	:@		
X	STATUS,STS	:`		
X	SYSTEM,SYS	;		
X <SYSTEM-MES; SAGES>,SYM			
X ;@<TAKE-COMMANDS>,T;`AC			
X (<TIME-L<IMITS>,TIM)			
X< 	TO,TO				
X	TYP<@E,TYP			
X	UNDEF<`INE,UDF			
X (<U=NPRIVILEGED-USER-= ENTIRE-REMOTE-OUT=@PUT-DISPLAY>,UNP)=` 

;DN60 KEYWOR>DS

IFN	FTDN60,> <

X	<BYTES-PER>@-MESSAGE>,BPM		
>`X	<CLEAR-SEND-DEL?AY>,CSD		
X	<DAT? A-TERMINAL-READY>?@,DTR 
X	<EMULATI?`ON>,EMU			
X	HAS@P,HSP			
X	OFF,O@ FF				
X	ON,ON		@@		
X	<RECORDS-PE@`R-MESSAGE>,RPM 
AX	SECONDARY,SEC		A 	
X	<SILO-WARNINA@G-LEVEL>,SWL 

A`


X	<TIMEOUT-BCATEGORY>,TOU		
B X	<TRANSPARENCY>,B@TRA		
X	2780,278B`			
X	3780,378		C	

> ;END FTDN6C 0



X	<ACCESC@S-NAME>,ACC		
X	C`<APPLICATION>,PLUD		
X	<CHARACTER-D SET>,CHS		
X	<CID@RCUIT>,CIR			
X	D`<DATA>,DAT			
X	E<DESTINATION>,DSTE 		
X	<GATEWAY>,GE@WY			
X	<LOGON-ME`ODE>,LOM		
X	<SNFA-WORKSTATION>,SNF A		



X	<ACKF@NOWLEDGED>,ACK		
X	<ALL-TAPE-DRIVGES>,ATP		
X	<ANSG I>,ANS			
X	<AUTG@OMATIC-VOLUME-RECG`OGNITION>,AVR	
XH	<AVAILABLE>,AVA	H 		
X	<CHANNEL>,CH@HN			
X	<CONTROLH`LER>,CON		
X	<DRIIVE>,DRV			
X	<DI ISK-DRIVE>,DSK		
X	<DOMESTIC>,DOMI`			
X	<EBCDIC>,EJBC			
X	<EXCLUSIJ VE>,EXL			
X	<FOJ@REIGN>,FOR			
X	J`<INITIALIZE>,INI	K	
X	NO,NO				
XK 	<REGULATED>,REG	K@		
X	<SCRATCH>,SK`CR			
X	<SHARED>L,SHR			
X	<STRUCL TURE>,STR			
X	<L@TAPE-DRIVE>,TAP		L`
X	<TOPS20>,T20	M		
X	<UNAVAILABLM E>,UAV		
X	UNIT,M@UNI			
X	<ACTIVEM`-SWAPPING-LIST>,ANSL 
X	<CRASH-DUMN P-LIST>,CDL		
X	N@<SYSTEM-SEARCH-LIN`ST>,SSL 

;X	<UONLABELED>,UNL		
O X	<UNREGULATED>,UO@RG		
X	<VOLUME-IO`D>,VID			
X	YES,PYES				
X	200,20P 0				
X	556,556	P@			
X	800,800			P`	
X	160,160				
X	625,625				
Q 



X	<BIAS-COQ@NTROL>,BIA		
X	<Q`SCHEDULER>,SCH			R
X	<NONE>,NON			R 
X	<BACKGROUND>,R@BCK		
X	<CLASS>,R`CLS			
X	<ACCOUNSTS>,ACT			
X	<ALS LOCATED>,ALO			
S@X	<WITHHELD>,WHD	S`		
X	<POLICY-PROTGRAM>,PPR		


T 

X	<AUTOMATIC-T@STRUCTURE-RECOGNIT`TION>,ASR	
X	<SYUSTEM-LISTS>,SLS		U 
X	<INCLUDE>,INCU@			
X	<EXCLUDE>,U`EXC			
X	<ALLOCAVTION>,ALC		
X	<BV ATCH-REQUEST>,BRQV@		



X	<USAGV`E>,USG			
X	<BILWLING-CLOSURE>,UBCW 		
X	<FILE-CLOSUW@RE>,UFC		
X	<EVEW`RY>,WKY			
X	<NOXW>,NOW			
X	<DAILY>,DLY			

IX%W N|G$$LPT-SY

um6Q@[$P[<P<[LuiP[LvI9P>[NF:=pE[Nahrp=[NaiVpH[Naj2p[NajQp[NajZp9[NakRp[Nalp[Nal}p[PvNP'[b|*YP]ah2p]aiVp]akVp]akZp]al}p]Fp ]>!iVp ]>!k6p ]>!kVp ]>!kZp ]>!k\P ]>!kqp ]>!kxp ]>!l}p ]>!mp ]Pu[Q @]VlP ]Vn<[P ^eyw [	G$$LGN	^:d[PQ ,,yQ .}Q `t,yQ v}Q `
QkRp _
Ql}p _
Qmp _
Qm7p _
U|W aJ
X	(<BATCH>,BAT)			
X	(<C ARD-PUNCH>,CDP)		@
X	<CARD-READER-`INTERPRETER>,BIN	 
IFN FTFTS,<
X	  <FAL>,FAL			
> ; @End of FTFTS cond `itional
TOPS20 <!
X	<FILE-RETRIEV! AL>,RET 		
> ;EN!@D TOPS20
IFN FTF!`TS,<
X	<FTS>,FTS"			
> ;End of FT" FTS conditional
"@X	<MOUNT>,MNT			
X	(<PAPER-TAPE-P#UNCH>,PTP) 
X	PL# OTTER,PLT			
X	P#@RINTER,LPT			
X	#`READER,RDR			;READER
RDR			;REA_
V:=p _6I;P )_6YP )_6X7P )_@rQ  _@rQ _@t8Q 0_@tZQ _@tEHQ _@u

zQ @_@uHvQ _@ulzQ @_@v)6Q  _@v+:Q @_@v96Q  _@v>9Q _@vH5Q _BAhsp _BAkRp _BAk{p _BAl}p _BAmWp _Cip _Cip _CiVp _Cj1p _CjQp _Ckp _CkRp _Ckqp _Cksp _Clp _Clp _Cl}p _Cmp _Cmp _Cm9p _JtLx qaMT
	DSPTAB(ZAA,.KYC,B,D)
,.KYC,B,D)
_Ju9< XaMF
	KEYTAB(.KYB,A,C)
(_Ju\s @TS
		XLIST
	X	CSE,<Class sc@Pheduler ^T/@G$ARG@p1/>
	X	CWM,<MessAage ^D/G$ARG1/ caA0nceled^I/@G$ARG3/AP>
	X	FRW,<File rApetrieval waits ^TB/@G$ARG1/d>
	X	JB0LO,<Message ^D/G$BPARG1/ canceled ..Bp job ^D/G$JOB/ loCgged out>
	X	LFCC0,<ORION logging dCPisabled by ^I/@JOCpBTXT/>
	X	MCJ,<^DD/G$ARG2/ messageD0(s) canceled>
	XDP	ODM,<Output dispDplay for OPR modifEied>
	X	OLO,<ORIE0ON logging enableEPd by ^I/@JOBTXT/>Ep
	X	SCC,<SEND coFmmand completed>
	X	SEM,<Entry maFPde in ERROR.SYS>
	X	SJM,<Job ^D/GG$ARG1/ modified>
	X	SMO,<SEMI-OPEGPRATOR ^T/@G$ARG1/Gp>	;[101]
	X	SMR,H<SEMI-OPERATOR alH0ready set DISABLEHP> ;[101]
	X	SOA,Hp<SET ONLINE accepIted>
	X	SSJ,<JobI0 ^D/G$ARG1/ now iIPn class ^D/G$ARG2Ip/>
	X	SSS,<SchedJuler setting modiJ0fied>
		LIST
		SALL
		IST
		_Jv9 p!O
	DSPTAB(pAA,.SWC,B,D)
,.SWC,B,D)
_Jv=t Y!MJ
	KEYTAB(.SWB,A,C)
(_W$:P _W&:=P >`:

=Q `:[sQ `:H5Q  `:$\YQ `:&<Q @`:-iQ  `:.,WQ `:MmQ `:v

WQ `;\Q `;$rQ @ahvp alp alyp al}p amp a9: MQV
	EXTERNAMqL	P$GPDB		;GET THNE PDB BLOCK
	EXTN0ERNAL	P$PNXT		;GENPT NEXT PDB GIVEN NpA PDB BLOCK
	EXTOERNAL	P$PERR		;GEO0T ERROR BLOCK FROOPM PDB GIVEN A PDBOp
	EXTERNAL	P$PDEPF		;GET DEFAULT FP0ILLING ROUTINE GIPPVEN A PDB
	EXTERPpNAL	P$PACT		;GET QACTION ROUTINE GIQ0VEN A PDB

	EXTQPERNAL	P$NARG		;NEQpXT ARGUMENT TYPE RTO PROCESS
	EXTER0RNAL	P$SETU		;SETRPUP POINTER TO PARRpSER BLOCKS
	EXTESRNAL	P$CURR		;GETS0 THE CURRENT LOCASPTION
	EXTERNAL	PSp$PREV		;SET THE PTREVIOUS TO CURRENT0T
	EXTERNAL	P$FLTPOT		;FLOATING POITpNT NUMBER
	EXTERUNAL	P$INIT		;PARSU0ER INIT
	EXTERNAUPL	P$INTR		;PARSERUp INTERRUPTS
	EXTVERNAL	P$TINT		;TIV0MER INTERRUPTS
	VPEXTERNAL	P$NFLD		Vp;NEXT FIELD TYPE WAND BLOCK ADDRESSW0
	EXTERNAL	P$DIRWP		;DIRECTORY FIELWpD
	EXTERNAL	P$NEXXT		;GET NEXT FIEX0LD
	EXTERNAL	P$TXPIME		;TIME/DATE CXpHECK
	EXTERNAL	PY$COMMA		;COMMA CHY0ECK
	EXTERNAL	P$YPCFM		;CONFIRM CHEYpCK
	EXTERNAL	P$KZEYW		;KEYWORD CHEZ0CK
	EXTERNAL	P$SZPWIT		;SWITCH CHECZpK
	EXTERNAL	P$US[ER		;USER CHECK
[0	EXTERNAL	P$NUM		[P;NUMBER CHECK
	E[pXTERNAL	P$FILE		;\FILE SPEC CHECK
\0	EXTERNAL	P$IFIL	\P	;INPUT FILE SPEC\p
	EXTERNAL	P$OFI]L		;OUTPUT FILE S]0PEC
	EXTERNAL	P$]PFLD		;FIELD CHECK]p
	EXTERNAL	P$TOK^		;TOKEN CHECK
	^0EXTERNAL	P$NODE		^P;NODE CHECK
	EXT^pERNAL	P$SIXF		;SIXBIT FIELD CHECK
	EXTERNAL	P$RNGE_P		;RANGE OF NUMBE_pRS
	EXTERNAL	P$T`EXT		;TEXT CHECK
	EXTERNAL	P$DEV	`P	;DEVICE CHECK
	`pEXTERNAL	P$QSTR		a;QUOTED STRING
	a0EXTERNAL	P$UQST		aP;UNQUOTED STRING
	EXTERNAL	P$TAKEb		;Take processinb0g
	EXTERNAL	P$ACbPCT		;Account stribpng
	EXTERNAL	P$NcPRO		;No process required
cess a

v:=P auI7Q xavN8P'a!ip a!i	p a!jp a!l}p aK!hsp aK!hvp aK!i1p aK!i6p aK!iVp aK!k9p aK!lvp aK!l}p d:v;ZQ  d;Q d;|Q d;yQ d;<:Q @eLuI7Q xeN!hzp eN!iVp eN!jp eN!k9p eN!lp eN!lZp eN!l}p eN!mp f:

:wP f:h6P f:
P f:)P f:%{9P f:&[8P f:/vP f:5|WP f:L{WP f:uyP f;K`P f;* P f;LP f;YzP f;9P f;|P f;$P f;,VP f;.)3P gahzp galp gal}p g0tvP g0t9P g0v<vP g0vHrP g0vK7P g0vK<P g:

Lz }AX
	$CTEXT(}ab,<node"user pas~sword account"::d~ ev:[directory]>,<~@$FLAGS(CM%BRK),$B~`REAK(DSTBRK)>)
b:	$SWIDSP	(e,<$ ALTERNATE(A)>)
@c:	$SWIDSP	(f,<`$ALTERNATE(A)>)
d:	$SWIDSP	(g, <$ALTERNATE(A)>)@

e:	$STAB
	D`SPTAB	(c,.SWNTL,<NOTRANSLATE>)
	 DSPTAB	(d,.SWSPL@,<SPOOL>)
	$ETAB`

f:	$STAB
	DSPTAB	(A,.SWSPL, <SPOOL>)
	$ETAB

g:	$STAB
	DS`PTAB	(A,.SWNTL,<NOTRANSLATE>)
	$ ETAB

	IF2 <PUR@GE b,c,d,e,f,g>

	,e,fg>
P g>)P g?K`P g? P g?* P g?LP g?$P gK1hwp gK1iUp gK1j7p gK1jSp gK1l}p gK6LuP gPtyQ  gPt9Q gPtQ @gPtPQ  gPt:Q gPu6Q @gPu[ZQ gPuySP gPu{@P gPv

TP gPv91P gPv\yQ @gSmp gSmp g^NHt ZNj
	X	<ALL>Z!,ALL		
	X	<APPEN[D>,APD		
	X	<AVAZaILABLE>,AVA		
	X[!	<CHARACTERISTICS[@>,CHR	
	X	<CLUST[`ER-NODE:>,CLN	
	\X	<COPIES:>,CPY		\ 
	X	<CREATE>,CRE\@		
	X	<DEVICE:>,\`DEV		
	X	<FILE:>],FIL		
	X	<FREE>] ,FRE		
	X	<LINES]@>,LNS		
	X	<PAGE]`S:>,PAG		
	X	<JO^BNAME:>,JOB		
	X^ 	<MOUNTED>,MNT		
	X	<NODE:>,NOD		^`
	X	<NO-SIGNON-R_EQUIRED>,NSN;NO-S_ IGNON-REQUIRED
	_@X	<NOUNLOAD>,NUL	_`	
	X	<PAUSE:>,PA`U		
	X	<REQUEST-` ID:>,REQ	
	X	<RE`@PEAT-COUNT:>,RPT	``
	X	<SEQUENCE:>,aSEQ		
	X	<SHORT>a ,SHT		
	X	<STOP>a@,STP		
	X	<JOB>,a`JBX		
	X	<SIGNONb-REQUIRED>,SON	
b 	X	<SUPERSEDE>,SPb@R		
	X	<TERMINALb`-CHARACTERISTICS:c>,TTC 
	X	<PURGEc >,PUR		
	X	<ERROc@R-PROCESSING>,ERRc`	
	X	<NOERROR-PRdOCESSING>,NER;/NOd ERROR-PROCESSING
	X	<REASON:>,RSNd`		
	X	<REMOVE>,ReEM		
	X	<DISPLAYe >,DSP		
	X	<NODIe@SPLAY>,NDP		
	X	e`<OPR-ACTION-MESSAfGE>,OAM 
	X	<OTHf ER>,OTH		
	X	<USf@ERS>,USR		
	X	<Wf`RITE-LOCKED>,WLK	g
	X	<STRUCTURE-Ig D>,SID	


	X	<g@COUNT:>,CNT		
	Xg`	<DENSITY:>,DEN		h
	X	<INCREMENT:>h ,INC	
	X	<LABEL-h@TYPE:>,LBT	
	X	<h`OVERIDE-EXPIRATIOiN:>,OVR 
	X	<OWNi ER:>,OWN		
	X	<Pi@ROTECTION>,PRO	
i`	X	<STARTING-VOLUjME-ID:>,SVI;/STARj T-VOLUME-ID:
	X	j@<TAPE-DISPOSITIONj`:>,TDP	
	X	<VOLUkME-ID>,VID		

k 

	X	<WINDFALL:>k@,WFL		
	X	<CLASSk`-ASSIGNMENTS:>,CAlS 
	X	<NOCHECK>,l NCK		

	X	<NO-Sl@ESSION-ENTRIES>,Nl`OS 


	X	<NOTRmANSLATE>,NTL	
	Xm 	<SPOOL>,SPL		

POOL>,SPL		
gg

V iO
	IFNB <i9B>,<TOPS10<A==BiX>>
	IFNB <C>,<TixOPS20<A==C>>
PS20<A==C>>
ijp ij7p ij|p il}p i YANz
;THIS TAYaBLE MUST BE IN ALnPAHABETICAL ORDERn! BY THE FIRST ARGn@UMENT
;	X	NAME,Cn`ODE,TABLE NAME
o
	G$$ATB				;GET o TABLE VALUES

	BLE VALUES

	iuI7P'inL}P 

i?kpp i?lp'i?l}p i?4(uj@TIFNkFTUUOS,K,}PKKLi?4H kXIFN FTJSYS,KI"PKKiBigP igX<P 
	IFG  <YAMAN-ADEV>,<AEDxT==:AMAN>
	IFLE	 <AMAN-ADEV>,<AEDT==:ADEV>
o<tQ po<t]VQ @o<u+qQ  o<ux1Q oPu+qQ oPu86Q oPu:6Q @oPu[yQ  oPuiQ  oPuiWQ @oPui\Q oPv

[Q #hoPv:TQ oPv;RQ oR}X<P ap oaV
	XLIST
mA	A==.ZZ
	.ZZ==.c1ZZ+1
	LIST
	SALL
	NOD.NXYq@ A
	A==:B
	A==:B	f[W  AZ*

	$SWIT aCH	(d,c,<$ACTIO!N(BLDCNT),$ALTERN! ATIVE(A)>) 
c:!@	$STAB				
	  OR!`NSWI (<CLUSTER-NO"DE:>,CLN)	
	$ETA" B				

IFB	<B>"@,<
d:	$KEY (CON"`FRM,CLNTAB,<$ACTI#ON(CHGBLK),$FLAGS# (CM%BRK),$BREAK(C#@LUMSK)>)
>	;If t#`here is no next F$DB use CONFRM
IF$ NB	<B>,<
d:	$K$@EY (B,CLNTAB,<$A$`CTION(CHGBLK),$FL%AGS(CM%BRK),$BREA% K(CLUMSK)>)
>	
CLUMSK)>)
>	
	f\x XN

	$NOIS!E	(c,<unit numbe@r>)
IFB <B>, <
c:	$ORANGE	(d,<number or range  (n:m)(NODE)>)
>@
IFNB <B>, <
c`:	$ORANGE	(d,<number or range (n: m)(NODE)>,<$ALTER@NATE(<B>)>) 
>`
d:	$KEY	(f,e,<$DEFAULT(<NODE>) >)
e:	$STAB
	 @ ORNKEY (<NODE>,N`OD)
	$ETAB
f:	$NOISE	(g,<clust er node name>)
@g:	$NODNM	(A,<cl`uster node name>,	<$FLAGS(CM%PO!CM%	 NSF),$ACTION(CHKN	@OD)>)

IF2 <PUR	`GE c,d,e,f,g>

d,e,f,g	<x 
!Y


	$NOIS
AE	(c,<VMS printe
`r queue name>)

IFB <B>, <
c: 	$FIELD	(d,<VMS @printer queue nam`e>,<$ACTION(DQSCH

K),$FLAGS(CM%BRK)

 ,$BREAK(LPTMSK)>)

@
>
IFNB <B>, <

`
c:	$FIELD	(d,euSK),$ALTERNATE(B )>)
>

d:	$KE@Y	(f,e,<$DEFAUL`T(NODE)>)
e:	$STAB
	  ORNKEY (< NODE>,NOD)
	$ETA@B
f:	$NOISE	(g`,<VMS node name>)
g:	$NODNM	(A, <VMS node name>,<@$FLAGS(CM%PO!CM%N`SF),$ACTION(CHKNOD)>)

IF2 <PURG E c,d,e,f,g>

d,e,f,g>	F yaWh

	.XCREF	zc,d,e
	SUPPREz SS c,d,e
	$SWz@ITCH(d,c,B)
z`c:	$STAB
	ORNSWI{	(<REASON:>,RSN)
	$ETAB
d:	$CRL{@F	(<$ALTER(e),$A{`CTION(TXTLIN##),$|HELP(<confirm for|  multiple line re|@sponse>)>)

e:|`	$CTEXT	(CONFRM,<}single line response>)
ne respo	2Lx aYd
	$NOISE	(c,<PORT or SERV ICE>)
IFB <B>, @<
c:	$KEYDSP	(`d)
>
IFNB <B>, <
c:	$KEYDSP	( d,<$ALTERNATE(B@)>)
>
d:	$STAB`
	  ORNDSP (e,<PORT>,POR)
	  OR NDSP (h,<SERVICE@>,SER)
	$ETAB
`e:	$NOISE	(f,<port name>)

IFB  <B>, <
f:	$FIE@LD	(g,<port name`>,<$ACTION(LATSAP),$FLAGS(CM%BRK), $BREAK(LPTMSK)>)
>
IFNB <B>, <
f:	$FIELD	(g,<port name>,<$ACTI ON(LATSHO),$FLAGS@(CM%BRK),$BREAK(S`HOMSK),$ALTERNATE(B)>)
>

g:	 $SERVER	(A)

@h:	$NOISE	(i,<se`rvice name>)
IFB <B>, <
i:	$FI ELD	(j,<service @name>,<$ACTION(LA`TSAP),$FLAGS(CM%BRK),$BREAK(LPTMSK )>)
>
IFNB <B>@, <
i:	$FIELD	(`j,<service name>,<$ACTION(LATSHO) ,$FLAGS(CM%BRK),$@BREAK(SHOMSK),$AL`TERNATE(B)>)
>
j:	$SERVER	(A) 

IF2 <PURGE c@,d,e,f,g,h,i,j>

g,h,	:|I  pAW
	.XCREF	pab,c
	SUPPRESS qb,c

	$SWITCHq  (c,b,<$ALTERNAq@TE(A)>)

b:	$q`STAB
	ORNSWI(NODrE:,NOD)
	$ETAB
r 
c:	$NODNM	(A,r@<node name>,<$FLAr`GS(CM%PO!CM%NSF)>)

O!CM%NSF)>	?S m!W

	.XCREF	mAd,e
	SUPPRESS m`d,e
	$NUMBER	(nd,^D10,B,<$ACTIn ON(STOBTH),C>)
n@
d:	$TOKEN	(e,n`<:>,<$HELP(<colono to specify a rano ge>),$ALTERNATE(o@A)>)

e:	$NUMBo`ER	(A,^D10,,<$ACpTION(STOOHG)>)

N(STOOHG)>)
	J jVf

	.XCREF	j!d,e
	SUPPRESS j@d,e
	$NUMBER	(j`d,^D10,B,<$ACTIkON(STOBTH),C>)
k 
d:	$TOKEN	(e,k@<:>,<$HELP(<colonk` to specify a ranlge>),$ALTERNATE(l A)>)

e:	$NUMBl@ER	(A,^D10,,<$ACl`TION(STOHGH)>)

N(STOHGH)>)
	N.-R Z

	$KEY	!(d,b,<$DEFAULT(@<SERVER>)>)
b:	`$STAB
	  ORNKEY (<SERVER>,SRV)
	 $ETAB
c:	$NOISE@	(d,<server name`>)
d:	$FIELD	(A,<server name>,< $ACTION(LATSRV),$@FLAGS(CM%BRK),$BR`EAK(LPTMSK)>)

 IF2 <PURGE b,c,d>

E b,c,	OS gaVL
	.XCREF	hb,c
	SUPPRESS h b,c
	$NOISE	(h@b,<stream number>h`)
b:	$ORANGE(ci,<number or rangei  (n:m)(/NODE:)>)
c:	$NODE(A)
c:	$NODE(A)
	O%m6 uAW8
	.XCREF	uab
	SUPPRESS b
	$NOISE	(b,<strv eam number>)
b:v@	$NUMBER	(A,^D10v`,<stream number>,w$ACTION(CHKVAL))
TION(CHKVAL))
	.XCREF	wab,c
	SUPPRESS xb,c
	$NOISE	(x b,<stream number>x@)
b:	$NUMBER	(x`c,^D10,<stream nuymber (/NODE:)>,$Ay CTION(CHKVAL))
c:	$NODE(A)
	Vu s!W(
	.XCREF	sAb,c
	SUPPRESS s`b,c
	$NOISE	(tb,<unit number>)
b:	$NUMBER	(c,t@^D10,<unit numbert` (/NODE:)>,<$ACTIuON(CHKVAL)>)
c:	$NODE(A)
c:	WS d)V:
	.XCREF	d	b,c
	SUPPRESS cib,c
	$NOISE	(fAb,<unit number>)
b:	$ORANGE(c,<gnumber or range (g n:m)(/NODE:)>)
c:	$NODE(A)
E=PI;PP$:2PiEh6P @FN8P `dLuP  f:P  f,P  f=P !f=P  fH8P  h6P {p )1P  `6)1P  `

SP S@P 4+P  mhuQ  ml[Q n+;Q @uyP 9P  4VP   5TP  !5]P 6MP 6X;P   V-P *|*2P @/JP'/JP'/JHP"A/J$P"@/J%lP",/J5lP",/JU+P"@/JdJP"B/KP"A/LqP"-/LuP"1/LyP"/LzP"E/L9P"

/LZP"/LP"I/LP"/LP!/LP"/LP"/LP"E/LYP"2/LuP"/LvP"=/LyP"G/LP"2/LP"/LPP"3/LYP"3/L(:@ /L(uP"D/L)3P"/L*0P"B/L*7@ /L*yP!/L,P"&/L,XP"I/L9P"=/L9@ /L9SP"/L9vP"/L:P"/L:P"4/L:P"./L: P"/L:9P"./L;P!/L;P"D/L;P"/L;QP!/L;ZP!/L;wP"4/L<P"/L<rP"&/L=P"/L=P!/L=9P"/LH:P"//LH<P"/LHpP"	/LI3P!/LI6P!/LJ9P!/LKP"
/LKP"L/LKvP"6/LL9P"
/LL[P"5/LLuP"5/LLvP!/LLzP"//LMP"'/LM6P"/LXQP"6/L[:P"'/L[PP!/L[ZP!/L\VP"/L]ZP"	/L^P"H/L^P"7/L^P!/Lj6P"

/LkyP"7/LkzP"0/MP!/MP!/M

xP"(/MP!/MwP"P"/MTP"8/M+q@ /M+vP"/M<P"/MH:P"/MI0P"/MIYP"/MIsP"/MJ7P"/MKqP"/MKsP"/MKvP"0/ML@ /MLxP"/MY6P"/M[Z@ /M[rP!/M\sP"/M]P!/MiP"/Mj P"/MjxP"/Mk`P"8/MkrP"/MktP"/MkwP"C/Mk{P"L/MlVP"/MnP!/Mx6P"/MySP"(/MyVP"/Mz0P"/M{@P")/M{VP"/M|P"/M|P"/M|@ /M}P"/N:P!	/N	vP"/N@ /NP"-/NyP"/N

P"F/N

TP"/N

VP"/N

VP"/N

ZP!
/N!/N2P"/N(sP"/N)@ /N)3P"9/N)6P!
/N)6P"/N)8P!/N):@ /N,P")/N,P!/N,7P"/N,xP!

/N-P!

/N8tP"C/N8yP"9/N91P"*/N96P"/N99P"!/N9:P!/N:P!/N:P":/N:P!/N::P"!/N;P"G/N;PP"1/N;RP!#/NH5P!/NH8P";/NJ6P"#/NK`P"$/NKzP"+/NLPP"+/NLV@ /NN8P"$/NX;P"</NXQP"J/NYP"%/NYQP"K/N[TP"</N[VP!/N[XP"%/N\SP">/N\sP"J/N\yP /Nj2P"?/Nx4P!/NzP"F/Nz|P"K/O9P"?6~

TP @7&:2Q 7&{Q ;&=1P @>+P >+RP >-P >-7P >KxP >+xP >;xP >$<vP"	>$J9P">$K:P">$LvP">$[PP">%P">%KqP">%Y9P">%]P">&)1P">&86P"
>&8rP">&9P">&:P">&:P">&<P"
>&<vP"	>&<zP">&=P">&=P">&=tP">&YP">&[P">&[VP">DLYp">luP">lyP">lP">lP">l[P">l[PP">l]8P" >lmyP"

>m1P">m	tP" >mP">mKsP">m[rP">mi\P">mnP">mySP">mzP">m|yP">m|zP">n:P">n

ZP">nP">n2P">n)6P">n)8P"
>n,xP">n-P">n-P">n9:P">n:P">n:P">n:P">n:P">n:P">n:P">n:P">n;RP">n<P">n<wP">n=P">n=P">n=1P">n=8P"	?%[ZP ?%|P ?&P ?&

(xP K

)VP K

*QP K

=9P K$YVP K$]P N-P !ND;P @NL=P !%NLI7P !!NMP !#NMQP !%NMHZP ! NMk{P !$NM}YP !#NM}wP !!NN

WP !"NN=TP !$NN[VP !"Nf=P ! NfN8P NuyP O<P  Oj6P !O3P  O$zP @O$P BO$P !O$uP O$P O$,P O$87P O$:P  @O$:P 	O$:9P 	O$<rP O$H:P 
O$LzP O$MP O$[RP 

O$lVP O%P AO%wP O%I0P O%KvP 
O%Y6P O%ktP O%lwP O%mP 

O%z0P O%|P O&	vP O&P O&

TP O&)P  O&,P O&;wP O&<P 

O&=vP O&J6P O&KzP O&LPP O&x:P AO.	VP @O.
QP @O.

zP AO<P$O<P$O<PP$O<89P$O<:P$O<;P$O<;ZP$O<<P$O<<RP$O<I7P$O<I;P$O<LxP$O<\YP$O<j6P$O<lRP$O=QP$O=(\P$O=+qP$O=HZP$O=KYP$O=[ZP$O=huP$O=iP$O=i9P$O=krP$O=kyP$O=lwP$O=mP$O=m6P$O=x6P$O=}P$O=}YP$O=}wP$O>3P$O>:P$O>

WP$O>O>)8P$	O>,P$	O>,wP$O>98P$
O>:P$
O>:2P$O>;wP$

O><P$O><P$

O>=P$O>=TP$O>IP$O>MP$R	P  Z}J2P !$rP $YP $I9P $L9P $MP $\YP %+qP %LzP %jP %kxP %xUP %xrP &yP &-P &99P &NP &N8P kPP >}{woP