Google
 

Trailing-Edge - PDP-10 Archives - k20v7c - 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 miaG
	XLIST
n	
	X	AON,<Applicao	tion object blockn) and object type rblock not allowedr8 together in WTORrX/WTO/ACK message>rx
	X	CMI,<Commands message invalid>s8
	X	UPO,<UnknownsX processor objectsx>
	X	UPT,<Unidenttified processor t8type>
	X	IPE,<SEtXMI-OPERATOR or OPtxERATOR privilegesu required> ;[120]u8
	X	IOE,<InvaliduX OPR entry>
	X	IuxFC,<Illegally forvmatted command mev8ssage>
	X	IFM,<IvXllegally formattevxd message>
	X	IRwS,<Illegal range w8specified>
	X	MTwXS,<Message too shwxort>
	X	BML,<Badx message length>
	X	CSU,<Cannot sxXend to specified xxterminal/user>
	yX	NOM,<No outstany8ding messages>
	yXX	ICS,<Invalid aryxgument count speczified in command>z8
	X	IAL,<InvalidzX argument length zxspecified>
	X	IT{M,<Invalid type a{8rgument in messag{Xe>
	X	ONS,<OPR n{xot setup .. comma|nd ignored>
	X	D|8TM,<Duplicate typ|Xe specified in me|xssage>
	X	WJP,<W}TO, WTOR, or ACK }8job number field }Xrequires privileg}xes>
	X	WTP,<WTO,~ WTOR or ACK obje~8ct type field req~Xuires privileges>~x
	X	IWF,<Invalid WTO or WTOR fiel8d>
	X	WOP,<WTO, XWTOR, or ACK objexct block field requires privileges8>
	X	IOU,<InvaliXd object unit spexcified in object block>
	X	RIW,<R8ange invalid in WXTO, WTOR or ACK oxbject block>
	X	OPD,<OPR pid alre8ady defined>
	X	XISM,<OPR setup mexssage invalid .. OPR did not send 8hello>
	X	OAS,<OXPR already setup x.. OPR deleted>
	X	ANI,<Applicati8on name invalid iXn application helxlo message>
	X	ODE,<OPR Does not 8exist .. message Xnot sent>
	X	MTFx,<WTO message type field required 8with WT.SJI set>
	X	IAC,<Invalid xacknowledgement code .. code was z8ero>
	X	CNI,<ComXmand not yet implxemented>
	X	IPS,<Invalid pid for 8sender .. pid wasX zero>
	X	ISC,<Ixnvalid switch spe	cified in command	8>
	X	IMB,<Invali	Xd message block>		x		;[110]
	X	WNA,
<Write to operato
8r function not al
Xlowed for this jo
xb>
	X	LNI,<Logging not enabled>
8	X	RNA,<Range notX allowed in STARTx command with /DE
VICE>
	X	IQS,<In
8valid queue speci
Xfied in command>
x
	X	SUF,<ERROR.SYn
	X	IUM,<Invalid n message>
	X	ARP8,<ACK messages reXquire WHEEL or OPxERATOR privileges>
	X	NRW,<Notify8 message requiresX WHEEL or OPERATOxR privileges>
	X	JDE,<Job to be n8otified no longerX exists>
	X	NJD,x<Job to be notified is DETACHED ..8 notify ignored>
	X	BNR,<Batch coxmmands not allowed from remote nod8es>
	X	NOD,<No oXperators defined>x
	X	DOL,<Device already online ..8 command ignored>X
	X	SFF,<Schedulxer functions failed for SHOW SCHED8ULER command>
	XX	ORS,<SYSTEM, HOSxT or REMOTE operator privilege req8uired>
	X	OHS,<SXYSTEM or HOST opexrator privilege required>
	X	OSY,8<SYSTEM operator Xprivilege requirexd>
	X	SAF,<Send to ACTDAE failed 8for SET USAGE comXmand>
	X	CLO,<Caxn't locate operator>
	X	COC,<Clus8ter GALAXY optionX mismatch betweenx ORION and OPR> 
	LIST
	SALL
KK| "IjN
	XLIST
"iX	E.NORM,<OPR ter#minated normally>#(
TOPS20 <
X	E.O#HPNF,<Unable to op#hen ^T/DCNDAT/>
X$	E.CONF,<Unable t$(o get connects fo$Hr ^T/DCNDAT/>
X	$hE.ACFL,<Unable to% accept connects %(for server links>%H
X	E.OUTF,<Outpu%ht over link ^T/DC&NDAT/ failed .. l&(ink aborted>
X	E&H.INPF,<Input over&h server link fail'ed .. link aborte'(d>
X	E.STSF,<Sta'Htus return for in'hput server link f(ailed .. link abo((rted>
X	E.INVC,<(HInvalid connect s(htatus ^O/ARG1/ ..) link aborted>
>)( ;END TOPS20
X	E)H.EXIT,<EXIT comma)hnd issued>

	LIST
	SALL

	LIKK9: GYdO
		EXTERNGyAL TXTTBL
		EXTEHRNAL STSTBL
		EXH8TERNAL ERRTBL
		HXEXTERNAL RPTERR
Hx		DEFINE	X(SUFFIXI,TEXT),<
		EXTERI8NAL	E$'SUFFIX
		IX> ;END X
		ERRCDIxS
		ERRTXT
		ORNMSG
	XT
		ORKKN 9cc
		XLIST
	X	ACI,<Applicatxion code ^D/G$ARG1/ invalid .. WTO8 rejected>
	X	AHXF,<^T/@G$ARG1/ hexllo acknowledgement failed .. hell8o ignored>
	X	ANXS,<Application ^Tx/@G$ARG1/ not signed on yet .. WTO8/WTOR/ACK rejecteXd>
	X	CPM,<WTO/WxTOR/ACK request for ^T/@G$ARG1/ ha8s different pid fXrom hello .. WTO xrejected>
	X	CSF,<Class scheduler8 error: ^E/G$ARG1X/>
	X	DDI,<Disk xdrive number ^D/G$ARG1/ invalid on8 SET command>
	XX	DJF,<SET ONLINE xfailed because ^E /G$ARG1/>
	X	IAP 8,<^T/@G$ARG1/ is  Xnot running>
	X	 xICN,<Channel numb!er ^D/G$ARG1/ inv!8alid on SET comma!Xnd>
	X	IDD,<^T/@!xG$ARG1/ is not a "valid disk struct"8ure .. command ig"Xnored>
	X	IDS,<^"xT/@G$ARG1/ is not# supported for /D#8EVICE .. command #Xignored>
	X	IMT,#x<Illegal message $type ^O/G$ARG1/>
	X	INS,<Operator$X at node ^N/G$ARG$x1/ not enabled fo%r node ^N/G$ARG2/%8>
	X	INT,<Invali%Xd node or no term%xinal lines for no&de ^N/G$ARG1/>
	&8X	ION,<OPR hello &Xmessage node ^N/G&x$ARG1/ invalid ..' OPR ignored>
	X'8	IOT,<Invalid obj'Xect type ^O/G$ARG'x1/ specified in m(essage>
	X	ITD,<(8^T/@G$ARG1/ is no(Xt a valid tape dr(xive .. command ig)nored>
	X	LAO,<O)8RION log file ^F/)XLOGFD/ already op)xen .. command ign*ored>
	X	LFE,<OR*8ION log error ^E/*X[-1]/ .. logging *xdisabled>
	X	MNV+,<Message ^D/G$AR+8G1/ no longer val+Xid .. sender has +xgone away>
	X	NM,C,<No messages fo,8und with code ^O/,XG$ARG1/>
	X	NMN,,x<No messages for -node ^N/G$ARG1/>
	X	NON,<No opera-Xtors at node ^N/G-x$ARG1/>
	X	NSM,<.Message ^D/G$ARG2.8/ does not exist>.X			;[103]
	X	NNK.x,<Node ^N/G$ARG1// is not known to /8ORION>       	;[1/X17]
	X	NTD,<^T/@/xG$ARG1/ is not a 0tape drive or val08id structure .. c0Xommand ignored>
0x	X	OAE,<DN60 OPR 1at node ^N/G$ARG118/ already exists>1X
	X	ONE,<OPR not1x enabled for mess2age ^D/G$ARG1/ at28 node ^N/G$ARG2/>2X
	X	OSF,<OPR set2xup failure for PI3D ^O/G$ARG1/ .. O38PR ignored>
	X	P3XER,<Command error3x: ^T/@G$ARG1/>
	4X	RWF,<^T/@G$ARG148/ file retrieval 4Xwaits failed  ^E/4x[-2]/>
	X	SIC,<S5ET ONLINE ^T/@G$A58RG1/ channel numb5Xer ^O/G$ARG2/ inv5xalid>
	X	SID,<SE6T ONLINE ^T/@G$AR68G1/ device number6X ^O/G$ARG2/ inval6xid>
	X	SJF,<SET 7JOB scheduler err78or: ^E/G$ARG1/>
7X	X	SJN,<SET JOB i7xnvalid .. job ^D/8G$ARG1/ not logge88d in>
	X	SPI,<SE8XT priority value 8x^D/G$ARG1/ invali9d .. 63 is maximu98m>
	X	SSF,<SET S9XCHEDULER error: ^9xE/G$ARG1/>
	X	TA:B,<TAKE command a:8borted because ^T:X/@G$ARG1/ not run:xning
		on comman;d "^T/@G$ARG2/">
	X	WTL,<WTO/WTOR;X message length ^;xD/G$ARG1/ exceeds< max of ^D/[WTOMA<8X]/>
		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}p WMX4 	YP
	X	ALIGN9,ALI		
	X	BACKSPiACE,BKS		
	X	CAN	CEL,CNC		
	X	CLO(SE,CLO		
	X	CONTHINUE,CNT		
	X	DEhLETE,DEL		
IFN	FTDN60,<
	X	DEFIN(E,DEF		
> ;END FHTDN60
	X	DISABLEh,DIS		
	X	DISMOUNT,DSM		
	X	ENAB(LE,ENA		
	X	ENTEHR,ENT		
	X	EXIT,hEXT		
	X	FORWARDSPACE,FWS	
	X	HE(LP,HLP		
	X	HOLDH,HLD		
	X	IDENTIhFY,IDN		
	X	MODIFY,MOD		
	X	MOUN(T,MTN		
	X	PAUSEH,PAU		
TOPS20<	Xh	PUSH,PUS>		
	X	PRINT,PRT		
TOPS(10<	X	RECOGNIZE,RHEC >		
	X	RELEAShE,REL		
	X	REPORT,RPT		
	X	REQUE(UE,REQ		
	X	RESPHOND,RSP		
	X	REThURN,RTN		
	X	ROUTE,RTE		
	X	SEND(,SND		
	X	SET,SEHT			
	X	SHOW,SHWh		
	X	SHUTDOWN,SHD		
	X	START,ST(A		
	X	SUBMIT,SUHB		
	X	SUPPRESS,hSUP		
	X	TAKE,TAK		
	X	UNLOAD,UN(L		
	X	WAIT,WAI	H	


	X	SWITCH,hSWI		


TOPS10 <				
	X	LOCK,L(OC		
	X	UNLOCK,UHLC		
>					

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

	NEXT,NXT		
WMxU IYX
X	JOB,JOiB				
X	OPERATOR,OPR			
X	TERMINAL,TRM			
RMINWN{y !	]&
X	AFTER,!)AFT			
X	ALL,ALL!H				
X <ALL-MESS!hAGES>,ALM			
X <"ALL-NODES>,ALG			"(
X	ASK,ASK				
"HX	ATTRIBUTE,ATR		"h	
X(<BEGINNING-O#F>,BEG)			
X <BU#(GCHK-MESSAGES>,CH#HK			
X <BUGINF-M#hESSAGES>,INF			
$X	CI,CI				
X CL$(USTER,CLU				
X%$H<CLUSTER-GALAXY-L$hINK-STATUS>,CGL	
X	CONFIGURATION,%(CFG		
X <CONTROL%H-FILE>,CTL			
X	%hCOPY,CPY			
X(<C&URRENT-POSITION>,&(CUR)		
X <CURREN&HT-REQUEST>,ACR			&h
X	DAYTIME,DAY		'	
X (<DECNET-CON'(NECTION-ATTEMPTS>'H,DCA)	
X <DECNET'h-EVENT-MESSAGES>,(EVT		
X <DECNET-((LINK-MESSAGES>,DL(HK		
X DQS,DQS			(h	
X DUMPABLE,DUM)				
X <ERROR-ME)(SSAGES>,ERM			
X)H <EVERY-REQUEST>,)hAER			
X	FILE,FI*L			
X (<FORMS-T*(YPE>,FOT)			
X	I*HGNORE,IGN			
X	I*hMMEDIATELY,IMM			+
X	<JOB-MESSAGES+(>,JOM		
X	KEYPAD+H,KPD			
X LAT,LA+hT				
X (<LIMIT-,EXCEEDED-ACTION>,,(LEA)		
X	LINE,LI,HN			
X LOCAL,LOC,h				
X	LOG,LOG		-		
X (<LOGFILES--(TO-SPECIFIC-PRINT-HERS>,LSP)	
X	LOG-hGING,LGG			
X (<.MEMORY-LIMITS>,ME.(M)			
X	MESSAGES.H,MSG			
X	NI,NI	.h			
X	NODE,NOD		/	
X	NOKEYPAD,NKP/(			
X	NONDUMPALB/HE,NDM			
X	NOREM/hOVAL,NRM			
X(<N0OOPR-INTERVENTION0(>,NOI)		
X <OPR-0HACTION-MESSAGES>,0hOAM		
X	<OFFLINE1>,OFL			
X	<ONLI1(NE>,ONL			
X(<OP1HR-INTERVENTION>,O1hIA)		
X	OTHER,OT2H			
X <OUTPUT-D2(ISPLAY>,OPD			
X2H(<OUTPUT-LIMITS>,2hOPL)			
X3(<PAGE3-LIMITS>,PGL)			
X	PARAMETERS,PRM3H			
x	PORT,POR		3h	
X (<PRINT-LOGF4ILES>,LFS)		
X	P4(RIORITY,PRI			
X4H (<PRIORITY-LIMIT4hS>,PRL)		
X	REMO5VAL,REM			
X (<R5(EPORT-CONNECTION-5HFAILURES>,RCF)	
5hX	REQUEST,RQN			
X	QUEUE,QUE			
6(X	SEMI-OPR,SEM			6H
X SERVER,SRV			6h	
X SERVICE,SER	7			
X	SITGO,SIT	7(		
X	STATUS,STS	7H		
X	SYSTEM,SYS	7h		
X <SYSTEM-MES8SAGES>,SYM			
X 8(<TAKE-COMMANDS>,T8HAC			
X (<TIME-L8hIMITS>,TIM)			
X9	TO,TO				
X	TYP9(E,TYP			
X	UNDEF9HINE,UDF			
X (<U9hNPRIVILEGED-USER-:ENTIRE-REMOTE-OUT:(PUT-DISPLAY>,UNP):H 

;DN60 KEYWOR:hDS

IFN	FTDN60,;<

X	<BYTES-PER;(-MESSAGE>,BPM		
;HX	<CLEAR-SEND-DEL;hAY>,CSD		
X	<DAT<A-TERMINAL-READY><(,DTR 
X	<EMULATI<HON>,EMU			
X	HAS<hP,HSP			
X	OFF,O=FF				
X	ON,ON		=(		
X	<RECORDS-PE=HR-MESSAGE>,RPM 
=hX	SECONDARY,SEC		>	
X	<SILO-WARNIN>(G-LEVEL>,SWL 

>H


X	<TIMEOUT->hCATEGORY>,TOU		
?X	<TRANSPARENCY>,?(TRA		
X	2780,278?H			
X	3780,378		?h	

> ;END FTDN6@0



X	<ACCES@(S-NAME>,ACC		
X	@H<APPLICATION>,PLU@h		
X	<CHARACTER-ASET>,CHS		
X	<CIA(RCUIT>,CIR			
X	AH<DATA>,DAT			
X	Ah<DESTINATION>,DSTB		
X	<GATEWAY>,GB(WY			
X	<LOGON-MBHODE>,LOM		
X	<SNBhA-WORKSTATION>,SNCA		



X	<ACKC(NOWLEDGED>,ACK		
X	<ALL-TAPE-DRIVChES>,ATP		
X	<ANSDI>,ANS			
X	<AUTD(OMATIC-VOLUME-RECDHOGNITION>,AVR	
XDh	<AVAILABLE>,AVA	E		
X	<CHANNEL>,CE(HN			
X	<CONTROLEHLER>,CON		
X	<DREhIVE>,DRV			
X	<DFISK-DRIVE>,DSK		
X	<DOMESTIC>,DOMFH			
X	<EBCDIC>,EFhBC			
X	<EXCLUSIGVE>,EXL			
X	<FOG(REIGN>,FOR			
X	GH<INITIALIZE>,INI	Gh	
X	NO,NO				
XH	<REGULATED>,REG	H(		
X	<SCRATCH>,SHHCR			
X	<SHARED>Hh,SHR			
X	<STRUCITURE>,STR			
X	<I(TAPE-DRIVE>,TAP		IH
X	<TOPS20>,T20	Ih		
X	<UNAVAILABLJE>,UAV		
X	UNIT,J(UNI			
X	<ACTIVEJH-SWAPPING-LIST>,AJhSL 
X	<CRASH-DUMKP-LIST>,CDL		
X	K(<SYSTEM-SEARCH-LIKHST>,SSL 

;X	<UKhNLABELED>,UNL		
LX	<UNREGULATED>,UL(RG		
X	<VOLUME-ILHD>,VID			
X	YES,LhYES				
X	200,20M0				
X	556,556	M(			
X	800,800			MH	
X	160,160				
X	625,625				
N



X	<BIAS-CON(NTROL>,BIA		
X	<NHSCHEDULER>,SCH			Nh
X	<NONE>,NON			O
X	<BACKGROUND>,O(BCK		
X	<CLASS>,OHCLS			
X	<ACCOUNOhTS>,ACT			
X	<ALPLOCATED>,ALO			
P(X	<WITHHELD>,WHD	PH		
X	<POLICY-PROPhGRAM>,PPR		


Q

X	<AUTOMATIC-Q(STRUCTURE-RECOGNIQHTION>,ASR	
X	<SYQhSTEM-LISTS>,SLS		R
X	<INCLUDE>,INCR(			
X	<EXCLUDE>,RHEXC			
X	<ALLOCARhTION>,ALC		
X	<BSATCH-REQUEST>,BRQS(		



X	<USAGSHE>,USG			
X	<BILShLING-CLOSURE>,UBCT		
X	<FILE-CLOSUT(RE>,UFC		
X	<EVETHRY>,WKY			
X	<NOThW>,NOW			
X	<DAILY>,DLY			

IX%W ^bG$$LPT-SY
um6Q@[$PK[<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 jt	G$$LGN	^:d[PQ ,,yQ .}Q `t,yQ v}Q `
QkRp _
Ql}p _
Qmp _
Qm7p _
U|W IZ
X	(<BATCiH>,BAT)			
X	(<CARD-PUNCH>,CDP)		(
X	<CARD-READER-HINTERPRETER>,BIN	h
IFN FTFTS,<
X	<FAL>,FAL			
> ;(End of FTFTS condHitional
TOPS20 <h
X	<FILE-RETRIEVAL>,RET 		
> ;EN(D TOPS20
IFN FTFHTS,<
X	<FTS>,FTSh			
> ;End of FTFTS conditional
(X	<MOUNT>,MNT			
X	(<PAPER-TAPE-PhUNCH>,PTP) 
X	PL OTTER,PLT			
X	P (RINTER,LPT			
X	 HREADER,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 nI]:
	DSPTAB(W)A,.KYC,B,D)
,.KYC,B,D)
_Ju9< UI],
	KEYTAB(.KYB,A,C)
(_Ju\s <yd9
		XLIST
	X	CSE,<Class sc=8heduler ^T/@G$ARG=X1/>
	X	CWM,<Mess=xage ^D/G$ARG1/ ca>nceled^I/@G$ARG3/>8>
	X	FRW,<File r>Xetrieval waits ^T>x/@G$ARG1/d>
	X	J?LO,<Message ^D/G$?8ARG1/ canceled ..?X job ^D/G$JOB/ lo?xgged out>
	X	LFC@,<ORION logging d@8isabled by ^I/@JO@XBTXT/>
	X	MCJ,<^@xD/G$ARG2/ messageA(s) canceled>
	XA8	ODM,<Output dispAXlay for OPR modifAxied>
	X	OLO,<ORIBON logging enableB8d by ^I/@JOBTXT/>BX
	X	SCC,<SEND coBxmmand completed>
	X	SEM,<Entry maC8de in ERROR.SYS>
	X	SJM,<Job ^D/GCx$ARG1/ modified>
	X	SMO,<SEMI-OPED8RATOR ^T/@G$ARG1/DX>	;[101]
	X	SMR,Dx<SEMI-OPERATOR alEready set DISABLEE8> ;[101]
	X	SOA,EX<SET ONLINE accepExted>
	X	SSJ,<JobF ^D/G$ARG1/ now iF8n class ^D/G$ARG2FX/>
	X	SSS,<SchedFxuler setting modiGfied>
		LIST
		SALL
		IST
		_Jv9 m	^j
	DSPTAB(m)A,.SWC,B,D)
,.SWC,B,D)
_Jv=t V	]0
	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: J9e
	EXTERNAJYL	P$GPDB		;GET THJxE PDB BLOCK
	EXTKERNAL	P$PNXT		;GEK8T NEXT PDB GIVEN KXA PDB BLOCK
	EXTKxERNAL	P$PERR		;GELT ERROR BLOCK FROL8M PDB GIVEN A PDBLX
	EXTERNAL	P$PDELxF		;GET DEFAULT FMILLING ROUTINE GIM8VEN A PDB
	EXTERMXNAL	P$PACT		;GET MxACTION ROUTINE GINVEN A PDB

	EXTN8ERNAL	P$NARG		;NENXXT ARGUMENT TYPE NxTO PROCESS
	EXTEORNAL	P$SETU		;SETO8UP POINTER TO PAROXSER BLOCKS
	EXTEOxRNAL	P$CURR		;GETP THE CURRENT LOCAP8TION
	EXTERNAL	PPX$PREV		;SET THE PPxREVIOUS TO CURRENQT
	EXTERNAL	P$FLQ8OT		;FLOATING POIQXNT NUMBER
	EXTERQxNAL	P$INIT		;PARSRER INIT
	EXTERNAR8L	P$INTR		;PARSERRX INTERRUPTS
	EXTRxERNAL	P$TINT		;TISMER INTERRUPTS
	S8EXTERNAL	P$NFLD		SX;NEXT FIELD TYPE SxAND BLOCK ADDRESST
	EXTERNAL	P$DIRT8		;DIRECTORY FIELTXD
	EXTERNAL	P$NETxXT		;GET NEXT FIEULD
	EXTERNAL	P$TU8IME		;TIME/DATE CUXHECK
	EXTERNAL	PUx$COMMA		;COMMA CHVECK
	EXTERNAL	P$V8CFM		;CONFIRM CHEVXCK
	EXTERNAL	P$KVxEYW		;KEYWORD CHEWCK
	EXTERNAL	P$SW8WIT		;SWITCH CHECWXK
	EXTERNAL	P$USWxER		;USER CHECK
X	EXTERNAL	P$NUM		X8;NUMBER CHECK
	EXXXTERNAL	P$FILE		;XxFILE SPEC CHECK
Y	EXTERNAL	P$IFIL	Y8	;INPUT FILE SPECYX
	EXTERNAL	P$OFIYxL		;OUTPUT FILE SZPEC
	EXTERNAL	P$Z8FLD		;FIELD CHECKZX
	EXTERNAL	P$TOKZx		;TOKEN CHECK
	[EXTERNAL	P$NODE		[8;NODE CHECK
	EXT[XERNAL	P$SIXF		;SI[xXBIT FIELD CHECK
	EXTERNAL	P$RNGE\8		;RANGE OF NUMBE\XRS
	EXTERNAL	P$T\xEXT		;TEXT CHECK
	EXTERNAL	P$DEV	]8	;DEVICE CHECK
	]XEXTERNAL	P$QSTR		]x;QUOTED STRING
	^EXTERNAL	P$UQST		^8;UNQUOTED STRING
	EXTERNAL	P$TAKE^x		;Take processin_g
	EXTERNAL	P$AC_8CT		;Account stri_Xng
	EXTERNAL	P$N_xPRO		;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 z)h
	$CTEXT(zIb,<node"user paszhsword account"::d{ev:[directory]>,<{($FLAGS(CM%BRK),$B{HREAK(DSTBRK)>)
{hb:	$SWIDSP	(e,<$|ALTERNATE(A)>)
|(c:	$SWIDSP	(f,<|H$ALTERNATE(A)>)
d:	$SWIDSP	(g,}<$ALTERNATE(A)>)}(

e:	$STAB
	D}HSPTAB	(c,.SWNTL,}h<NOTRANSLATE>)
	~DSPTAB	(d,.SWSPL~(,<SPOOL>)
	$ETAB~H

f:	$STAB
	D~hSPTAB	(A,.SWSPL,<SPOOL>)
	$ETAB

g:	$STAB
	DSHPTAB	(A,.SWNTL,<hNOTRANSLATE>)
	$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 Vi^P
	X	<ALL>W	,ALL		
	X	<APPENWiD>,APD		
	X	<AVAWIILABLE>,AVA		
	XX		<CHARACTERISTICSX(>,CHR	
	X	<CLUSTXHER-NODE:>,CLN	
	XhX	<COPIES:>,CPY		Y
	X	<CREATE>,CREY(		
	X	<DEVICE:>,YHDEV		
	X	<FILE:>Yh,FIL		
	X	<FREE>Z,FRE		
	X	<LINESZ(>,LNS		
	X	<PAGEZHS:>,PAG		
	X	<JOZhBNAME:>,JOB		
	X[	<MOUNTED>,MNT		
	X	<NODE:>,NOD		
	X	<NO-SIGNON-REQUIRED>,NSN;NO-S\IGNON-REQUIRED
	\(X	<NOUNLOAD>,NUL	\H	
	X	<PAUSE:>,PA\hU		
	X	<REQUEST-]ID:>,REQ	
	X	<RE](PEAT-COUNT:>,RPT	]H
	X	<SEQUENCE:>,]hSEQ		
	X	<SHORT>^,SHT		
	X	<STOP>^(,STP		
	X	<JOB>,^HJBX		
	X	<SIGNON^h-REQUIRED>,SON	
_	X	<SUPERSEDE>,SP_(R		
	X	<TERMINAL_H-CHARACTERISTICS:_h>,TTC 
	X	<PURGE`>,PUR		
	X	<ERRO`(R-PROCESSING>,ERR`H	
	X	<NOERROR-PR`hOCESSING>,NER;/NOaERROR-PROCESSING
	X	<REASON:>,RSNaH		
	X	<REMOVE>,RahEM		
	X	<DISPLAYb>,DSP		
	X	<NODIb(SPLAY>,NDP		
	X	bH<OPR-ACTION-MESSAbhGE>,OAM 
	X	<OTHcER>,OTH		
	X	<USc(ERS>,USR		
	X	<WcHRITE-LOCKED>,WLK	ch
	X	<STRUCTURE-IdD>,SID	


	X	<d(COUNT:>,CNT		
	XdH	<DENSITY:>,DEN		dh
	X	<INCREMENT:>e,INC	
	X	<LABEL-e(TYPE:>,LBT	
	X	<eHOVERIDE-EXPIRATIOehN:>,OVR 
	X	<OWNfER:>,OWN		
	X	<Pf(ROTECTION>,PRO	
fH	X	<STARTING-VOLUfhME-ID:>,SVI;/STARgT-VOLUME-ID:
	X	g(<TAPE-DISPOSITIONgH:>,TDP	
	X	<VOLUghME-ID>,VID		

h

	X	<WINDFALL:>h(,WFL		
	X	<CLASShH-ASSIGNMENTS:>,CAhhS 
	X	<NOCHECK>,iNCK		

	X	<NO-Si(ESSION-ENTRIES>,NiHOS 


	X	<NOTRihANSLATE>,NTL	
	Xj	<SPOOL>,SPL		

POOL>,SPL		
gg
V p(/
	IFNB <pIB>,<TOPS10<A==Bph>>
	IFNB <C>,<TqOPS20<A==C>>
PS20<A==C>>
ijp ij7p ij|p il}p i V)^`
;THIS TAVIBLE MUST BE IN ALjiPAHABETICAL ORDERk	 BY THE FIRST ARGk(UMENT
;	X	NAME,CkHODE,TABLE NAME
kh
	G$$ATB				;GET lTABLE VALUES

	BLE VALUES

	iuI7P'inL}P 
i?kppNi?lpi?l}pi?4(qP/r/IFNFTJSYS,Ju]PKJuhbigPHigX<P 
	IFG  <iAMAN-ADEV>,<AEDT==: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 lIf
	XLIST
j)	A==.ZZ
	.ZZ==.`ZZ+1
	LIST
	SALL
	NOD.NXq@ ( z
	A==:B
	A==:B	f[W )j

	$SWITICH	(d,c,<$ACTIOhN(BLDCNT),$ALTERNATIVE(A)>) 
c:(	$STAB				
	  ORHNSWI (<CLUSTER-NOhDE:>,CLN)	
	$ETAB				

IFB	<B>(,<
d:	$KEY (CONHFRM,CLNTAB,<$ACTIhON(CHGBLK),$FLAGS (CM%BRK),$BREAK(C (LUMSK)>)
>	;If t Hhere is no next F hDB use CONFRM
IF!NB	<B>,<
d:	$K!(EY (B,CLNTAB,<$A!HCTION(CHGBLK),$FL!hAGS(CM%BRK),$BREA"K(CLUMSK)>)
>	
CLUMSK)>)
>	
	f\x ih4

	$NOIS	E	(c,<unit numbe(r>)
IFB <B>, <
c:	$ORANGE	(d,h<number or range (n:m)(NODE)>)
>(
IFNB <B>, <
cH:	$ORANGE	(d,<nuhmber or range (n:m)(NODE)>,<$ALTER(NATE(<B>)>) 
>H
d:	$KEY	(f,e,h<$DEFAULT(<NODE>)>)
e:	$STAB
	 ( ORNKEY (<NODE>,NHOD)
	$ETAB
f:	h$NOISE	(g,<cluster node name>)
(g:	$NODNM	(A,<clHuster node name>,h<$FLAGS(CM%PO!CM%NSF),$ACTION(CHKN(OD)>)

IF2 <PURHGE c,d,e,f,g>

d,e,f,g	<x 	hp

	$NOIS)E	(c,<VMS printeHr queue name>)
h
IFB <B>, <
c:	$FIELD	(d,<VMS (printer queue namHe>,<$ACTION(DQSCHhK),$FLAGS(CM%BRK)	,$BREAK(LPTMSK)>)	(
>
IFNB <B>, <	H
c:	$FIELD	(d,	h<VMS printer queu
e name>,<$ACTION(
(DQSSHO),$FLAGS(CM
H%BRK),$BREAK(SHOM
hSK),$ALTERNATE(B)>)
>

d:	$KE(Y	(f,e,<$DEFAULHT(NODE)>)
e:	$ShTAB
	  ORNKEY (<
NODE>,NOD)
	$ETA
(B
f:	$NOISE	(g
H,<VMS node name>)
h
g:	$NODNM	(A,,<

IF2 <PURGE c,d,e,f,g>

d,e,f,g>	F vIgN

	.XCREF	vic,d,e
	SUPPREwSS c,d,e
	$SWw(ITCH(d,c,B)
wHc:	$STAB
	ORNSWIwh	(<REASON:>,RSN)
	$ETAB
d:	$CRLx(F	(<$ALTER(e),$AxHCTION(TXTLIN##),$xhHELP(<confirm fory multiple line rey(sponse>)>)

e:yH	$CTEXT	(CONFRM,<yhsingle line response>)
ne respo	2Lx IiJ
	$NOISE	i(c,<PORT or SERVICE>)
IFB <B>, (<
c:	$KEYDSP	(Hd)
>
IFNB <B>,h <
c:	$KEYDSP	(d,<$ALTERNATE(B()>)
>
d:	$STABH
	  ORNDSP (e,<hPORT>,POR)
	  ORNDSP (h,<SERVICE(>,SER)
	$ETAB
He:	$NOISE	(f,<pohrt name>)

IFB <B>, <
f:	$FIE(LD	(g,<port nameH>,<$ACTION(LATSAPh),$FLAGS(CM%BRK),$BREAK(LPTMSK)>)
>
IFNB <B>, <
f:	$FIELD	(g,<hport name>,<$ACTION(LATSHO),$FLAGS((CM%BRK),$BREAK(SHHOMSK),$ALTERNATEh(B)>)
>

g:	$SERVER	(A)

(h:	$NOISE	(i,<seHrvice name>)
IFBh <B>, <
i:	$FIELD	(j,<service (name>,<$ACTION(LAHTSAP),$FLAGS(CM%BhRK),$BREAK(LPTMSK)>)
>
IFNB <B>(, <
i:	$FIELD	(Hj,<service name>h,<$ACTION(LATSHO),$FLAGS(CM%BRK),$(BREAK(SHOMSK),$ALHTERNATE(B)>)
>h
j:	$SERVER	(A)

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

g,h,	:|I  m)f|
	.XCREF	mIb,c
	SUPPRESS mhb,c

	$SWITCHn (c,b,<$ALTERNAn(TE(A)>)

b:	$nHSTAB
	ORNSWI(NODnhE:,NOD)
	$ETAB
o
c:	$NODNM	(A,o(<node name>,<$FLAoHGS(CM%PO!CM%NSF)>)

O!CM%NSF)>	?S j	ff

	.XCREF	j)d,e
	SUPPRESS jHd,e
	$NUMBER	(jhd,^D10,B,<$ACTIkON(STOBTH),C>)
k(
d:	$TOKEN	(e,kH<:>,<$HELP(<colonkh to specify a ranlge>),$ALTERNATE(l(A)>)

e:	$NUMBlHER	(A,^D10,,<$AClhTION(STOOHG)>)

N(STOOHG)>)
	J fifL

	.XCREF	g	d,e
	SUPPRESS g(d,e
	$NUMBER	(gHd,^D10,B,<$ACTIghON(STOBTH),C>)
h
d:	$TOKEN	(e,h(<:>,<$HELP(<colonhH to specify a ranhhge>),$ALTERNATE(iA)>)

e:	$NUMBi(ER	(A,^D10,,<$ACiHTION(STOHGH)>)

N(STOHGH)>)
	N.-R iif

	$KEY		(d,b,<$DEFAULT((<SERVER>)>)
b:	H$STAB
	  ORNKEY h(<SERVER>,SRV)
	$ETAB
c:	$NOISE(	(d,<server nameH>)
d:	$FIELD	(hA,<server name>,<$ACTION(LATSRV),$(FLAGS(CM%BRK),$BRHEAK(LPTMSK)>)

hIF2 <PURGE b,c,d>

E b,c,	OS dIf2
	.XCREF	dib,c
	SUPPRESS eb,c
	$NOISE	(e(b,<stream number>eH)
b:	$ORANGE(ceh,<number or rangef (n:m)(/NODE:)>)
c:	$NODE(A)
c:	$NODE(A)
	O%m6 r)g
	.XCREF	rIb
	SUPPRESS b
	$NOISE	(b,<strseam number>)
b:s(	$NUMBER	(A,^D10sH,<stream number>,sh$ACTION(CHKVAL))
TION(CHKVAL))
	.XCREF	tIb,c
	SUPPRESS thb,c
	$NOISE	(ub,<stream number>u()
b:	$NUMBER	(uHc,^D10,<stream nuuhmber (/NODE:)>,$AvCTION(CHKVAL))
c:	$NODE(A)
	Vu p	g
	.XCREF	p)b,c
	SUPPRESS pHb,c
	$NOISE	(phb,<unit number>)
b:	$NUMBER	(c,q(^D10,<unit numberqH (/NODE:)>,<$ACTIqhON(CHKVAL)>)
c:	$NODE(A)
c:	WS af 
	.XCREF	`qb,c
	SUPPRESS `Qb,c
	$NOISE	(c)b,<unit number>)
b:	$ORANGE(c,<chnumber or range (dn: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