PDP-10 Archive: galaxy-subsys/ornmac.unv from bb-h137f-bm

Trailing-Edge - PDP-10 Archives - bb-h137f-bm - galaxy-subsys/ornmac.unv

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

x
,S+@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 maA
	XLIST
m!
	X	AON,<Applican!tion object blockmA and object type q1block not allowedqP together in WTORqp/WTO/ACK message>r
	X	CMI,<Commandr0 message invalid>rP
	X	UPO,<Unknownrp processor objects>
	X	UPT,<Unidens0tified processor sPtype>
	X	IPE,<SEspMI-OPERATOR or OPtERATOR privilegest0 required> ;[120]tP
	X	IOE,<Invalidtp OPR entry>
	X	IuFC,<Illegally foru0matted command meuPssage>
	X	IFM,<Iupllegally formattevd message>
	X	IRv0S,<Illegal range vPspecified>
	X	MTvpS,<Message too shwort>
	X	BML,<Badw0 message length>
	X	CSU,<Cannot swpend to specified xterminal/user>
	x0X	NOM,<No outstanxPding messages>
	xpX	ICS,<Invalid arygument count specy0ified in command>yP
	X	IAL,<Invalidyp argument length zspecified>
	X	ITz0M,<Invalid type azPrgument in messagzpe>
	X	ONS,<OPR n{ot setup .. comma{0nd ignored>
	X	D{PTM,<Duplicate typ{pe specified in me|ssage>
	X	WJP,<W|0TO, WTOR, or ACK |Pjob number field |prequires privileg}es>
	X	WTP,<WTO,}0 WTOR or ACK obje}Pct type field req}puires privileges>~
	X	IWF,<Invalid~0 WTO or WTOR fiel~Pd>
	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 typ0e field required Pwith WT.SJI set>
	X	IAC,<Invalid acknowledgement c0ode .. code was zPero>
	X	CNI,<Compmand not yet implemented>
	X	IPS,0<Invalid pid for Psender .. pid wasp zero>
	X	ISC,<Invalid switch spe0cified in commandP>
	X	IMB,<Invalipd message block>				;[110]
	X	WNA,	0<Write to operato	Pr function not al	plowed for this jo
b>
	X	LNI,<Loggi
0ng not enabled>

P	X	RNA,<Range not
p allowed in START command with /DE0VICE>
	X	IQS,<InPvalid queue specipfied in command>


	X	SUF,<ERROR.SY

0S entry failed on

P REPORT command>

p
	X	IUM,<Invalid n
	X	ARPmessages reERATOR 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| !ajH
	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: FqdI
		EXTERNGAL TXTTBL
		EXTEG0RNAL STSTBL
		EXGPTERNAL ERRTBL
		GpEXTERNAL RPTERR
H		DEFINE	X(SUFFIXH0,TEXT),<
		EXTERHPNAL	E$'SUFFIX
		Hp> ;END X
		ERRCDIS
		ERRTXT
		ORNMSG
	XT
		ORKKN Qc]
		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/WTOR/ACK request f0or ^T/@G$ARG1/ haPs different pid fprom hello .. WTO rejected>
	X	CSF0,<Class schedulerP error: ^E/G$ARG1p/>
	X	DDI,<Disk drive number ^D/G0$ARG1/ invalid onP SET command>
	Xp	DJF,<SET ONLINE failed because ^E0/G$ARG1/>
	X	IAPP,<^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,,<No messages for ,0node ^N/G$ARG1/>
	X	NON,<No opera,ptors at node ^N/G-$ARG1/>
	X	NSM,<-0Message ^D/G$ARG2-P/ does not exist>-p			;[103]
	X	NNK.,<Node ^N/G$ARG1/.0 is not known to .PORION>       	;[1.p17]
	X	NTD,<^T/@/G$ARG1/ is not a /0tape drive or val/Pid structure .. c/pommand ignored>
0	X	OAE,<DN60 OPR 00at node ^N/G$ARG10P/ already exists>0p
	X	ONE,<OPR not1 enabled for mess10age ^D/G$ARG1/ at1P node ^N/G$ARG2/>1p
	X	OSF,<OPR set2up failure for PI20D ^O/G$ARG1/ .. O2PPR ignored>
	X	P2pER,<Command error3: ^T/@G$ARG1/>
	30X	RWF,<^T/@G$ARG13P/ file retrieval 3pwaits failed  ^E/4[-2]/>
	X	SIC,<S40ET ONLINE ^T/@G$A4PRG1/ channel numb4per ^O/G$ARG2/ inv5alid>
	X	SID,<SE50T ONLINE ^T/@G$AR5PG1/ device number5p ^O/G$ARG2/ inval6id>
	X	SJF,<SET 60JOB scheduler err6Por: ^E/G$ARG1/>
6p	X	SJN,<SET JOB i7nvalid .. job ^D/70G$ARG1/ not logge7Pd in>
	X	SPI,<SE7pT priority value 8^D/G$ARG1/ invali80d .. 63 is maximu8Pm>
	X	SSF,<SET S8pCHEDULER error: ^9E/G$ARG1/>
	X	TA90B,<TAKE command a9Pborted because ^T9p/@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

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

X	<LCPPTAB,LCPORN

X	<NCP>,1,NCPTAB,

>,1,NCPN%Iw  q	X	OPERATOR-SYSTEMOPERATON%L P u	X	LPTXFRy	X	LPTXFRN:n+SP N:}KsQ O*6:=P S;:P SBI;P U
IjQp U
Ikp U
Il}pWMX4 
	X	ALIGN
	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 aYR
X	JOB,JOB				
X	OPERATOR ,OPR			
X	TERMINAL,TRM			
RMINWN{y  !] 
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,LOC,				
X	LOG,LOG		, 		
X (<LOGFILES-,@TO-SPECIFIC-PRINT,`ERS>,LSP)	
X	LOG-GING,LGG			
X (<- MEMORY-LIMITS>,ME-@M)			
X	MESSAGES-`,MSG			
X	NI,NI	.			
X	NODE,NOD		. 	
X	NOKEYPAD,NKP.@			
X	NONDUMPALB.`E,NDM			
X	NOREM/OVAL,NRM			
X(<N/ OOPR-INTERVENTION/@>,NOI)		
X <OPR-/`ACTION-MESSAGES>,0OAM		
X	<OFFLINE0 >,OFL			
X	<ONLI0@NE>,ONL			
X(<OP0`R-INTERVENTION>,O1IA)		
X	OTHER,OT1 H			
X <OUTPUT-D1@ISPLAY>,OPD			
X1`(<OUTPUT-LIMITS>,2OPL)			
X2(<PAGE2 -LIMITS>,PGL)			
X	PARAMETERS,PRM2`			
x	PORT,POR		3	
X (<PRINT-LOGF3 ILES>,LFS)		
X	P3@RIORITY,PRI			
X3` (<PRIORITY-LIMIT4S>,PRL)		
X	REMO4 VAL,REM			
X (<R4@EPORT-CONNECTION-4`FAILURES>,RCF)	
5X	REQUEST,RQN			
X	QUEUE,QUE			
5@X	SEMI-OPR,SEM			5`
X SERVER,SRV			6	
X SERVICE,SER	6 			
X	SITGO,SIT	6@		
X	STATUS,STS	6`		
X	SYSTEM,SYS	7		
X <SYSTEM-MES7 SAGES>,SYM			
X 7@<TAKE-COMMANDS>,T7`AC			
X (<TIME-L8IMITS>,TIM)			
X8 	TO,TO				
X	TYP8@E,TYP			
X	UNDEF8`INE,UDF			
X (<U9NPRIVILEGED-USER-9 ENTIRE-REMOTE-OUT9@PUT-DISPLAY>,UNP)9` 

;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 
=X	SECONDARY,SEC		= 	
X	<SILO-WARNIN=@G-LEVEL>,SWL 

=`


X	<TIMEOUT->CATEGORY>,TOU		
> X	<TRANSPARENCY>,>@TRA		
X	2780,278>`			
X	3780,378		?	

> ;END FTDN6? 0



X	<ACCES?@S-NAME>,ACC		
X	?`<APPLICATION>,PLU@		
X	<CHARACTER-@ SET>,CHS		
X	<CI@@RCUIT>,CIR			
X	@`<DATA>,DAT			
X	A<DESTINATION>,DSTA 		
X	<GATEWAY>,GA@WY			
X	<LOGON-MA`ODE>,LOM		
X	<SNBA-WORKSTATION>,SNB A		



X	<ACKB@NOWLEDGED>,ACK		
X	<ALL-TAPE-DRIVCES>,ATP		
X	<ANSC I>,ANS			
X	<AUTC@OMATIC-VOLUME-RECC`OGNITION>,AVR	
XD	<AVAILABLE>,AVA	D 		
X	<CHANNEL>,CD@HN			
X	<CONTROLD`LER>,CON		
X	<DREIVE>,DRV			
X	<DE ISK-DRIVE>,DSK		
X	<DOMESTIC>,DOME`			
X	<EBCDIC>,EFBC			
X	<EXCLUSIF VE>,EXL			
X	<FOF@REIGN>,FOR			
X	F`<INITIALIZE>,INI	G	
X	NO,NO				
XG 	<REGULATED>,REG	G@		
X	<SCRATCH>,SG`CR			
X	<SHARED>H,SHR			
X	<STRUCH TURE>,STR			
X	<H@TAPE-DRIVE>,TAP		H`
X	<TOPS20>,T20	I		
X	<UNAVAILABLI E>,UAV		
X	UNIT,I@UNI			
X	<ACTIVEI`-SWAPPING-LIST>,AJSL 
X	<CRASH-DUMJ P-LIST>,CDL		
X	J@<SYSTEM-SEARCH-LIJ`ST>,SSL 

;X	<UKNLABELED>,UNL		
K X	<UNREGULATED>,UK@RG		
X	<VOLUME-IK`D>,VID			
X	YES,LYES				
X	200,20L 0				
X	556,556	L@			
X	800,800			L`	
X	160,160				
X	625,625				
M 



X	<BIAS-COM@NTROL>,BIA		
X	<M`SCHEDULER>,SCH			N
X	<NONE>,NON			N 
X	<BACKGROUND>,N@BCK		
X	<CLASS>,N`CLS			
X	<ACCOUNOTS>,ACT			
X	<ALO LOCATED>,ALO			
O@X	<WITHHELD>,WHD	O`		
X	<POLICY-PROPGRAM>,PPR		


P 

X	<AUTOMATIC-P@STRUCTURE-RECOGNIP`TION>,ASR	
X	<SYQSTEM-LISTS>,SLS		Q 
X	<INCLUDE>,INCQ@			
X	<EXCLUDE>,Q`EXC			
X	<ALLOCARTION>,ALC		
X	<BR ATCH-REQUEST>,BRQR@		



X	<USAGR`E>,USG			
X	<BILSLING-CLOSURE>,UBCS 		
X	<FILE-CLOSUS@RE>,UFC		
X	<EVES`RY>,WKY			
X	<NOTW>,NOW			
X	<DAILY>,DLY			

IX%W ^\G$$LPT-SY

um6Q@[$PL[<P<[LuiP[LvI9P>[NF:=pE[Nahrp=[NaiVpH[Naj2p[NajQp[NajZp9[NakRp[Nalp[Nal}p[PvNP'[b|*YP]ah2p]aiVp]akVp]akZp]al}p]Fp ]>!k6p ]>!kVp ]>!kZp ]>!k\P ]>!kqp ]>!kxp ]>!l}p ]>!mp ]Pu[Q @]VlP ]Vn<[P ^eyw jn	G$$LGN	^:d[PQ ,,yQ .}Q `t,yQ v}Q `
QkRp _
Ql}p _
Qmp _
Qm7p _
U|W aY~
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-PUNCH>,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 ma]4
	DSPTAB(VAA,.KYC,B,D)
,.KYC,B,D)
_Ju9< Ta]&
	KEYTAB(.KYB,A,C)
(_Ju\s <d3
		XLIST
	X	CSE,<Class sc<Pheduler ^T/@G$ARG<p1/>
	X	CWM,<Mess=age ^D/G$ARG1/ ca=0nceled^I/@G$ARG3/=P>
	X	FRW,<File r=petrieval waits ^T>/@G$ARG1/d>
	X	J>0LO,<Message ^D/G$>PARG1/ canceled ..>p job ^D/G$JOB/ lo?gged out>
	X	LFC?0,<ORION logging d?Pisabled by ^I/@JO?pBTXT/>
	X	MCJ,<^@D/G$ARG2/ message@0(s) canceled>
	X@P	ODM,<Output disp@play for OPR modifAied>
	X	OLO,<ORIA0ON logging enableAPd by ^I/@JOBTXT/>Ap
	X	SCC,<SEND coBmmand completed>
	X	SEM,<Entry maBPde in ERROR.SYS>
	X	SJM,<Job ^D/GC$ARG1/ modified>
	X	SMO,<SEMI-OPECPRATOR ^T/@G$ARG1/Cp>	;[101]
	X	SMR,D<SEMI-OPERATOR alD0ready set DISABLEDP> ;[101]
	X	SOA,Dp<SET ONLINE accepEted>
	X	SSJ,<JobE0 ^D/G$ARG1/ now iEPn class ^D/G$ARG2Ep/>
	X	SSS,<SchedFuler setting modiF0fied>
		LIST
		SALL
		IST
		_Jv9 l!^d
	DSPTAB(lAA,.SWC,B,D)
,.SWC,B,D)
_Jv=t U!]*
	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: IQey
	EXTERNAIqL	P$GPDB		;GET THJE PDB BLOCK
	EXTJ0ERNAL	P$PNXT		;GEJPT NEXT PDB GIVEN JpA PDB BLOCK
	EXTKERNAL	P$PERR		;GEK0T ERROR BLOCK FROKPM PDB GIVEN A PDBKp
	EXTERNAL	P$PDELF		;GET DEFAULT FL0ILLING ROUTINE GILPVEN A PDB
	EXTERLpNAL	P$PACT		;GET MACTION ROUTINE GIM0VEN A PDB

	EXTMPERNAL	P$NARG		;NEMpXT ARGUMENT TYPE NTO PROCESS
	EXTEN0RNAL	P$SETU		;SETNPUP POINTER TO PARNpSER BLOCKS
	EXTEORNAL	P$CURR		;GETO0 THE CURRENT LOCAOPTION
	EXTERNAL	POp$PREV		;SET THE PPREVIOUS TO CURRENP0T
	EXTERNAL	P$FLPPOT		;FLOATING POIPpNT NUMBER
	EXTERQNAL	P$INIT		;PARSQ0ER INIT
	EXTERNAQPL	P$INTR		;PARSERQp INTERRUPTS
	EXTRERNAL	P$TINT		;TIR0MER INTERRUPTS
	RPEXTERNAL	P$NFLD		Rp;NEXT FIELD TYPE SAND BLOCK ADDRESSS0
	EXTERNAL	P$DIRSP		;DIRECTORY FIELSpD
	EXTERNAL	P$NETXT		;GET NEXT FIET0LD
	EXTERNAL	P$TTPIME		;TIME/DATE CTpHECK
	EXTERNAL	PU$COMMA		;COMMA CHU0ECK
	EXTERNAL	P$UPCFM		;CONFIRM CHEUpCK
	EXTERNAL	P$KVEYW		;KEYWORD CHEV0CK
	EXTERNAL	P$SVPWIT		;SWITCH CHECVpK
	EXTERNAL	P$USWER		;USER CHECK
W0	EXTERNAL	P$NUM		WP;NUMBER CHECK
	EWpXTERNAL	P$FILE		;XFILE SPEC CHECK
X0	EXTERNAL	P$IFIL	XP	;INPUT FILE SPECXp
	EXTERNAL	P$OFIYL		;OUTPUT FILE SY0PEC
	EXTERNAL	P$YPFLD		;FIELD CHECKYp
	EXTERNAL	P$TOKZ		;TOKEN CHECK
	Z0EXTERNAL	P$NODE		ZP;NODE CHECK
	EXTZpERNAL	P$SIXF		;SI[XBIT 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		];QUOTED STRING
	]0EXTERNAL	P$UQST		]P;UNQUOTED STRING
	EXTERNAL	P$TAKE^		;Take processin^0g
	EXTERNAL	P$AC^PCT		;Account stri^png
	EXTERNAL	P$N_PRO		;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 yAg|
	$CTEXT(yab,<node"user paszsword account"::dz ev:[directory]>,<z@$FLAGS(CM%BRK),$Bz`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
	D~SPTAB	(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 V^J
	X	<ALL>V!,ALL		
	X	<APPENWD>,APD		
	X	<AVAVaILABLE>,AVA		
	XW!	<CHARACTERISTICSW@>,CHR	
	X	<CLUSTW`ER-NODE:>,CLN	
	XX	<COPIES:>,CPY		X 
	X	<CREATE>,CREX@		
	X	<DEVICE:>,X`DEV		
	X	<FILE:>Y,FIL		
	X	<FREE>Y ,FRE		
	X	<LINESY@>,LNS		
	X	<PAGEY`S:>,PAG		
	X	<JOZBNAME:>,JOB		
	XZ 	<MOUNTED>,MNT		
	X	<NODE:>,NOD		Z`
	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:>,]SEQ		
	X	<SHORT>] ,SHT		
	X	<STOP>]@,STP		
	X	<JOB>,]`JBX		
	X	<SIGNON^-REQUIRED>,SON	
^ 	X	<SUPERSEDE>,SP^@R		
	X	<TERMINAL^`-CHARACTERISTICS:_>,TTC 
	X	<PURGE_ >,PUR		
	X	<ERRO_@R-PROCESSING>,ERR_`	
	X	<NOERROR-PR`OCESSING>,NER;/NO` ERROR-PROCESSING
	X	<REASON:>,RSN``		
	X	<REMOVE>,RaEM		
	X	<DISPLAYa >,DSP		
	X	<NODIa@SPLAY>,NDP		
	X	a`<OPR-ACTION-MESSAbGE>,OAM 
	X	<OTHb ER>,OTH		
	X	<USb@ERS>,USR		
	X	<Wb`RITE-LOCKED>,WLK	c
	X	<STRUCTURE-Ic D>,SID	


	X	<c@COUNT:>,CNT		
	Xc`	<DENSITY:>,DEN		d
	X	<INCREMENT:>d ,INC	
	X	<LABEL-d@TYPE:>,LBT	
	X	<d`OVERIDE-EXPIRATIOeN:>,OVR 
	X	<OWNe ER:>,OWN		
	X	<Pe@ROTECTION>,PRO	
e`	X	<STARTING-VOLUfME-ID:>,SVI;/STARf T-VOLUME-ID:
	X	f@<TAPE-DISPOSITIONf`:>,TDP	
	X	<VOLUgME-ID>,VID		

g 

	X	<WINDFALL:>g@,WFL		
	X	<CLASSg`-ASSIGNMENTS:>,CAhS 
	X	<NOCHECK>,h NCK		

	X	<NO-Sh@ESSION-ENTRIES>,Nh`OS 


	X	<NOTRiANSLATE>,NTL	
	Xi 	<SPOOL>,SPL		

POOL>,SPL		
gg

V p0/	
	IFNB <pQB>,<TOPS10<A==Bpp>>
	IFNB <C>,<TqOPS20<A==C>>
PS20<A==C>>
ijp ij7p ij|p il}p i UA^Z
;THIS TAUaBLE MUST BE IN ALjPAHABETICAL ORDERj! BY THE FIRST ARGj@UMENT
;	X	NAME,Cj`ODE,TABLE NAME
k
	G$$ATB				;GET k TABLE VALUES

	BLE VALUES

	iuI7P'inL}P

i?kppNi?lpi?l}pi?4(qX/r/IFNFTJSYS,Jt1PKJt9"igPPigX<P 
	IFG  <qAMAN-ADEV>,<AEDT==:AMAN>
	IFLE0 <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 kae{
	XLIST
iA	A==.ZZ
	.ZZ==._1ZZ+1
	LIST
	SALL
	NOD.NX

Tq@ ( z
	A==:B
	A==:B	f[W Aj


	$SWITaCH	(d,c,<$ACTION(BLDCNT),$ALTERN ATIVE(A)>) 
c:@	$STAB				
	  OR`NSWI (<CLUSTER-NODE:>,CLN)	
	$ETA B				

IFB	<B>@,<
d:	$KEY (CON`FRM,CLNTAB,<$ACTION(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 h.

	$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 !hj

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

IFB <B>, <
c: 	$FIELD	(d,<VMS @printer queue nam`e>,<$ACTION(DQSCHK),$FLAGS(CM%BRK) ,$BREAK(LPTMSK)>)@
>
IFNB <B>, <`
c:	$FIELD	(d,	<VMS printer queu	 e name>,<$ACTION(	@DQSSHO),$FLAGS(CM	`%BRK),$BREAK(SHOM
SK),$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(CHKNO

IF2<PURGe,f,g>

d,e,f,g>	F uagH

	.XCREF	vc,d,e
	SUPPREv SS c,d,e
	$SWv@ITCH(d,c,B)
v`c:	$STAB
	ORNSWIw	(<REASON:>,RSN)
	$ETAB
d:	$CRLw@F	(<$ALTER(e),$Aw`CTION(TXTLIN##),$xHELP(<confirm forx  multiple line rex@sponse>)>)

e:x`	$CTEXT	(CONFRM,<ysingle line response>)
nerespo	2Lx 
	$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  lAfv
	.XCREF	lab,c
	SUPPRESS mb,c

	$SWITCHm  (c,b,<$ALTERNAm@TE(A)>)

b:	$m`STAB
	ORNSWI(NODnE:,NOD)
	$ETAB
n 
c:	$NODNM	(A,n@<node name>,<$FLAn`GS(CM%PO!CM%NSF)>)

O!CM%NSF)>	?S i!f`

	.XCREF	iAd,e
	SUPPRESS i`d,e
	$NUMBER	(jd,^D10,B,<$ACTIj ON(STOBTH),C>)
j@
d:	$TOKEN	(e,j`<:>,<$HELP(<colonk to specify a rank ge>),$ALTERNATE(k@A)>)

e:	$NUMBk`ER	(A,^D10,,<$AClTION(STOOHG)>)

N(STOOHG)>)
	J ffF

	.XCREF	f!d,e
	SUPPRESS f@d,e
	$NUMBER	(f`d,^D10,B,<$ACTIgON(STOBTH),C>)
g 
d:	$TOKEN	(e,g@<:>,<$HELP(<colong` to specify a ranhge>),$ALTERNATE(h A)>)

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

N(STOHGH)>)
	N.-R i`

	$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 caf,
	.XCREF	db,c
	SUPPRESS d b,c
	$NOISE	(d@b,<stream number>d`)
b:	$ORANGE(ce,<number or rangee  (n:m)(/NODE:)>)
c:	$NODE(A)
c:	$NODE(A)
	O%m6 qAg
	.XCREF	qab
	SUPPRESS b
	$NOISE	(b,<strr eam number>)
b:r@	$NUMBER	(A,^D10r`,<stream number>,s$ACTION(CHKVAL))
TION(CHKVAL))
	.XCREF	sab,c
	SUPPRESS tb,c
	$NOISE	(t b,<stream number>t@)
b:	$NUMBER	(t`c,^D10,<stream nuumber (/NODE:)>,$Au CTION(CHKVAL))
c:	$NODE(A)
	Vu o!g
	.XCREF	oAb,c
	SUPPRESS o`b,c
	$NOISE	(pb,<unit number>)
b:	$NUMBER	(c,p@^D10,<unit numberp` (/NODE:)>,<$ACTIqON(CHKVAL)>)
c:	$NODE(A)
c:	WS `)f
	.XCREF	`	b,c
	SUPPRESS _ib,c
	$NOISE	(bAb,<unit number>)
b:	$ORANGE(c,<cnumber or range (c 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