PDP-10 Archive: galaxy-subsys/ornmac.unv from BB-H137C-BM

Trailing-Edge - PDP-10 Archives - BB-H137C-BM - galaxy-subsys/ornmac.unv

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

x
,5q@P CBd)3P'CHuI7Q xCHvN8P'CJ9ip CJ9jp CJ9l}p CRn:=P @EV6:=P @G"uZP @G"v<[P G4ulQ @G>ih6P G>ihvp G>ilp G>ilwp G>il}p G>imp GHv8;P GHv:=P IvLuP I<[P @I1kp I1k2p I1lp I1l}p I1mp Ir%lP Ir5lP It[:P Iu

xP IvLVP IX-]P IX.MP J:

9VP J:{SP J:/
:P J:MlP J:MmQP J:lP J:u|VP J:~SP J:~]P J;LsP KK9  ), 
	XLIST
 I
	X	AON,<Applica ition Block, Objec!	t Block and Objec#It Type Block Not #hallowed Together $in WTOR/WTO/ACK M$(essage>
	X	CMI,<$HCommand Message I$hnvalid>
	X	UPO,<%Unknown Processor%( Object>
	X	UPT,%H<Unidentified Pro%hcessor Type>
	X	&IPE,<Insufficient&( Privileges Enabl&Hed>
	X	IOE,<Inva&hlid OPR Entry>
	'X	IFC,<Illegally '(Formatted Command'H Message>
	X	IRS'h,<Illegal Range S(pecified>
	X	MTS((,<Message Too Sho(Hrt>
	X	BML,<Bad (hMessage Length>
)	X	CSU,<Cannot SE)(ND to specified U)Hser>
	X	NOM,<No )hOutstanding Messa*ges>
	X	ICS,<Inv*(alid Argument Cou*Hnt Specified in C*hommand>
	X	IAL,<+Invalid Argument +(Length Specified>+H
	X	ITM,<Invalid+h Type Argument in, Message>
	X	ONS,(,<OPR Not Setup..,HCommand Ignored>
	X	DTM,<Duplicat-e Type Specified -(in Message>
	X	W-HJP,<WTO, WTOR, or-h ACK Job Number F.ield Requires Pri.(vileges>
	X	WTP,.H<WTO, WTOR or ACK.h Object Type Fiel/d Requires Privil/(eges>
	X	IWF,<In/Hvalid WTO or WTOR/h Field>
	X	WOP,<0WTO, WTOR, or ACK0( Object Block Fie0Hld Requires Privi0hleges>
	X	IOU,<I1nvalid Object Uni1(t Specified in Ob1Hject Block>
	X	R1hIW,<Range Invalid2 in WTO, WTOR or 2(ACK Object Block>2H
	X	OPD,<OPR PID2h Already Defined>3
	X	ISM,<OPR SET3(UP Message Invali3Hd..OPR did not se3hnd HELLO>
	X	OAS4,<OPR Already SET4(UP..OPR Deleted>
	X	ANI,<Applicat4hion Name Invalid 5in Application He5(llo Message>
	X	5HODE,<OPR Doesn't 5hExist..Message No6t Sent>
	X	MTF,<6(WTO Message Type 6HField required wi6hth WT.SJI set>
	7X	IAC,<Invalid Ac7(knowledgement cod7He,,Code was Zero>7h
	X	CNI,<Command8 Not Yet Implemen8(ted>
	X	IPS,<Inv8Halid Pid for Send8her  Pid was zero>9
	X	ISC,<Invalid9( Switch Specified9H in Command>
	X	9hWNA,<Write To Ope:rator Function no:(t Allowed for thi:Hs Job>
	X	LNI,<L:hogging not Enable;d>
	X	RNA,<Range;( not allowed in S;HTART Command with;h /DEVICE>
	X	IQS<,<Invalid Queue S<(pecified in Comma<Hnd>
	X	SUF,<SYSE<hRR update Failed =on REPORT Command=(>
	X	IUM,<Invali=Hd User Specified =hin Message>
	X	A>RP,<ACK Messages >(Require WHEEL or >HOPERATOR Privileg>hes>
	X	NRW,<Noti?fy Message requir?(es WHEEL or OPERA?HTOR Privileges>
?h	X	JDE,<Job to be@ Notified No Long@(er Exists>
	X	NJ@HD,<Job to be Noti@hfied is DETACHED A.. Notify IgnoredA(>
	X	BNR,<Batch AHCommands Not AlloAhwed From Remote NBodes>
	X	NOD,<NoB( Operators DefineBHd>
	X	DOL,<DevicBhe Already Online C  COMMAND IGNOREDC(>
	X	SFF,<ScheduCHler Functions FaiChled for Show ScheDduler Command>

	LIST
	SALL
KK|

a1@
	XLIST
X	E.NORM,<OPR TER

AMINATED NORMALLY>A
IFN	FTJSYS,<
X`	E.OPNF,<Unable to Open ^T/DCNDAT/ >
X	E.CONF,<Unab@le to Get Connect`s for ^T/DCNDAT/>
X	E.ACFL,<Unabl e to Accept Conne@cts for Server Li`nks>
X	E.OUTF,<Output over Link ^ T/DCNDAT/ Failed @ LINK ABORTED>
X`	E.INPF,<Input over Server Link Fa iled  LINK ABORTE@D>
X	E.STSF,<Sta`tus Return for Input Server Link F ailed  LINK ABORT@ED>
X	E.INVC,<In`valid Connect Status ^O/ARG1/  LIN K ABORTED>
>;END@ FTJSYS
X	E.EXIT`,<EXIT Command Issued>

	LIST
	SALL

	LIST
	KK9: q)/
		EXTERNqIAL TXTTBL
		EXTEqhRNAL STSTBL
		EXrTERNAL ERRTBL
		r(EXTERNAL RPTERR
rH		DEFINE	X(SUFFIXrh,TEXT),<
		EXTERsNAL	E$'SUFFIX
		s(>;END X
		ERRCDSsH
		ERRTXT
		ORNMSG
	XT
		ORNKKN DI.8
		XLIST
	X	ACI,<ApplicatEion Code ^D/G$ARGE(1/ Invalid .. WTOEH Rejected>
	X	AHEhF,<^T/@G$ARG1/ HeFllo AcknowledgemeF(nt Failed .. HellFHo Ignored>
	X	ANFhS,<Application ^TG/@G$ARG1/ not SigG(ned on yet .. WTOGH/WTOR/ACK RejecteGhd>
	X	CPM,<WTO/WHTOR/ACK request fH(or ^T/@G$ARG1/ haHHs Different Pid fHhrom Hello ..WTO RIejected>
	X	CSF,I(<Class Scheduler IHError: ^E/G$ARG1/Ih>
	X	DDI,<Disk DJrive Number ^D/G$J(ARG1/ Invalid on JHSET Command>
	X	JhDJF,<SET ONLINE FKailed because ^E/K(G$ARG1/>
	X	IAP,KH<^T/@G$ARG1/ is nKhot Running>
	X	ILCN,<Channel NumbeL(r ^D/G$ARG1/ InvaLHlid on SET CommanLhd>
	X	IDD,<^T/@GM$ARG1/ is not a VM(alid Disk StructuMHre .. Command IgnMhored>
	X	IDS,<^TN/@G$ARG1/ is not N(supported for /DENHVICE .. Command INhgnored>
	X	IMT,<OIllegal Message TO(ype ^O/G$ARG1/>
OH	X	INS,<Operator Ohat Node ^N/G$ARG1P/ not Enabled forP( Node ^N/G$ARG2/>PH
	X	ION,<OPR HelPhlo Message Node ^QN/G$ARG1/ InvalidQ( .. OPR Ignored>
	X	IOT,<Invalid QhObject Type ^O/G$RARG1/ Specified iR(n Message>
	X	ITRHD,<^T/@G$ARG1/ isRh not a Valid TapeS Drive .. CommandS( Ignored>
	X	LAOSH,<ORION Log File Sh^F/@LOGFD/ AlreadTy Open .. CommandT( Ignored>
	X	LFETH,<ORION Log ErrorTh ^E/[-1]/  LogginUg Disabled>
	X	MU(NV,<Message ^D/G$UHARG1/ No Longer VUhalid .. Sender haVs gone away>
	X	V(NMC,<No Messages VHFound with Code ^VhO/G$ARG1/>
	X	NMWN,<No Messages foW(r Node ^N/G$ARG1/WH>
	X	NON,<No OpeWhrators at Node ^NX/G$ARG1/>
	X	NSMX(,<Message ^D/G$ARXHG1/ does not exisXht>
	X	NTD,<^T/@GY$ARG1/ is not a TY(ape Drive or ValiYHd Structure .. CoYhmmand Ignored>
	ZX	OAE,<DN60 OPR aZ(t Node ^N/G$ARG1/ZH already exists>
	X	ONE,<OPR not [Enabled for Messa[(ge ^D/G$ARG1/ at [HNode ^N/G$ARG2/>
	X	OSF,<OPR Setu\p Failure on PID \(^O/G$ARG1/ .. OPR\H Ignored>
	X	PER\h,<Command Error: ]^T/@G$ARG1/>
	X	](RWF,<^T/@G$ARG1/ ]HFile Retrevial Wa]hits failed  ^E/[-^2]/>
	X	SIC,<Set^( Online ^T/@G$ARG^H1/ Channel Number^h ^O/G$ARG2/ Inval_id>
	X	SID,<Set _(Online ^T/@G$ARG1_H/ Device Number ^_hO/G$ARG2/ Invalid`>
	X	SJF,<Set Jo`(b Scheduler Error`H: ^E/G$ARG1/>
	X`h	SJN,<Set Job Invaalid ,, Job ^D/G$a(ARG1/ Not Logged aHIn>
	X	SPI,<Set ahPriority Value ^Db/G$ARG1/ Invalid b( 63 is maximum>
bH	X	SSF,<Set Schedbhuler Error: ^E/G$cARG1/>
	X	TAB,<Tc(ake File Aborted cHBecause ^T/@G$ARGch1/ not running
	d	on Command "^T/@d(G$ARG2/">
	X	WTLdH,<WTO/WTOR Messagdhe Length ^D/G$ARGe1/ Exceeds Max ofe( ^D/[WTOMAX]/>
	eHX	WVN,<Wrong ORNMehAC Version Numberf ORION used Versif(on ^O/[%%.OPR]/ AfHND OPR used Versifhon ^O/.OHDRS+OPH.gOV(MI)/>
		LIST
		SALL
	LISTXKXt*7QKXt9QKXuVQ;KXuLP;KXu[ZP$KXvP;KXv'L;=+qP @L;=xUP"L;=xrP L;>-P L;>NP$L;>N8P M:=P M2

pP MR%eHQ MRV>9Q MS) Q MS.[yP N$ 8 

X	<NCPX>,0,NCPTAB	;Incluxde NCP tables

 NCP tables

N%Iw 8 	X	ORION-SYSTEM-LOGRION-SN:}KsQ O*6:=P S;:P SBI;P U
IjQp U
Ikp U
Il}pU4t(:QU4t*7QU4t9Q@U4uVQdU4uLP @U4u[ZP"U4vP U4v
	X	ALIGN:i,ALI		;ALIGN
	X	:IBACKSPACE,BKS		;B;IACKSPACE
	X	CANC;hEL,CNC		;CANCEL
<	X	CLOSE,CLO		;CL<(OSE
	X	CONTINUE,<HCNT		;CONTINUE
	<hX	DELETE,DEL		;DE=LETE COMMAND
IFN=(	FTDN60,<
	X	DEF=HINE,DEF		;DEFINE
>;END FTDN60
	X>	DISABLE,DIS		;DI>(SABLE
	X	DISMOUN>HT,DSM		;DISMOUNT >hCOMMAND
	X	ENABL?E,ENA		; ENABLE
?(	X	ENTER,ENT		;EN?HTER
	X	EXIT,EXT	?h	;EXIT
	X	FORWAR@DSPACE,FWS	;FORWA@(RDSPACE
	X	HELP,@HHLP		;HELP COMMAN@hD
	X	HOLD,HLD		;AHOLD
	X	IDENTIFYA(,IDN		;IDENTIFY
AH	X	MODIFY,MOD		;MAhODIFY COMMAND
	XB	MOUNT,MTN		;MOUNB(T COMMAND
	X	PAUBHSE,PAU		;PAUSE
TBhOPS20<	X	PUSH,PUSC>		;PUSH COMMAND
	X	PRINT,PRT		;PCHRINT COMMAND
TOPChS10 <	X	RECOGNIZED,REC >	;RECOGNIZED( COMMAND
	X	RELEDHASE,REL		;RELEASEDh
	X	REPORT,RPT		E;REPORT
	X	REQUEE(UE,REQ		;REQUEUE
	X	RESPOND,RSP		Eh;RESPOND
	X	RETUFRN,RTN		;RETURN
F(	X	ROUTE,RTE		;ROFHUTE (ROUTE COMMANFhD FOR QUASAR)
	XG	SEND,SND		;SEND
	X	SET,SET			;SEGHT
	X	SHOW,SHW		;GhSHOW
	X	SHUTDOWNH,SHD		;SHUTDOWN
H(	X	START,STA		;STHHARTUP
	X	SUBMIT,HhSUB		;SUBMIT COMMIAND
	X	SUPPRESS,I(SUP		;SUPPRESS
	IHX	TAKE,TAK		;TAKEIh
	X	UNLOAD,UNL		J;UNLOAD COMMAND
J(	X	WAIT,WAI		;WAIJHT COMMAND

	;COJhMMANDS FOR TAPE AKND DISK
	X	SWITCK(H,SWI		;SWITCH COKHMMAND

	;COMMANKhDS FOR MDA ON -10L
	X	LOCK,LOC		;LL(OCK COMMAND
	X	ULHNLOCK,ULC		;UNLOCK

LC		;UNLOCWMxU M	$n
X	JOB,JOM)B			;JOB
X	OPERAMHTOR,OPR		;OPERATOMhR
X	TERMINAL,TRM		;TERMINAL
RMWN{y TI(,
X	ALL,ALTiL			;ALL
X <ALL-UMESSAGES>,ALM		;AU(LL-MESSAGES
X <AUHLL-NODES>,ALG		;AUhLL-NODES
X	ASK,AVSK			;ASK
X(<BEGV(INNING-OF>,BEG)		VH;BEGINNING-OF
XWVh<CONTROL-FILE>,CTWL		;CONTROL-FILE
X	COPY,CPY		;COPWHY
X(<CURRENT-POSWhITION>,CUR)	;CURRXENT-POSITION
X	DX(AYTIME,DAY		;DAYTXHIME
X <ERROR-MESXhSAGES>,ERM		;ERROYR-MESSAGES
X	FILY(E,FIL		;FILE
X (YH<FORMS-TYPE>,FOT)Yh		;FORMS-TYPE
X	ZIGNORE,IGN		;IGNOZ(RE
X	<JOB-MESSAGZHES>,JOM	;JOB MESSZhAGES
X	KEYPAD,KP[D		;KEYPAD
X (<L[(IMIT-EXCEEDED-ACT[HION>,LEA)	;LIMIT-[hEXCEEDED-ACTION
\X	LINE,LIN		;LINE\(....LINE NUMBER
\HX	LOG,LOG			;LOG
X	LOGGING,LGG		;]LOGGING
X (<MEMO](RY-LIMITS>,MEM)		]H;MEMORY-LIMITS
X]h	MESSAGES,MSG		;M^ESSAGES
X	NODE,N^(OD		;NODE
X	NOKE^HYPAD,NKP		;NOKEYP^hAD
X(<NOOPR-INTE_RVENTION>,NOI)	;N_(OOPR-INTERVENTION_H
X <OPR-ACTION-M_hESSAGES>,OAM	;OPE`RATOR ACTION MESS`(AGES
X	<ONLINE>,`HONL		;ONLINE
X(<`hOPR-INTERVENTION>a,OIA)	;OPR-INTERVa(ENTION
X	OTHER,OaHTH		;OTHER MESSAGahES
X <OUTPUT-DISbPLAY>,OPD		;OUTPUb(T-DISPLAY
X(<OUTbHPUT-LIMITS>,OPL)	bh	;OUTPUT-LIMITS
cX (<PAGE-LIMITS>,c(PGL)		;PAGE-LIMITcHS
X	PARAMETERS,PchRM		;PARAMETERS
dX	PRIORITY,PRI		;d(PRIORITY
X (<PRIdHORITY-LIMITS>,PRLdh)	;PRIORITY-LIMITeS
X	REQUEST,RQN	e(	;REQUEST NUMBER
X	QUEUE,QUE		;QUehEUE
X	STATUS,STSf		;STATUS
X	SYSTf(EM,SYS		;SYSTEM
fHX <TAKE-COMMANDS>fh,TAC		;TAKE-COMMAgNDS
X (<TIME-LIMg(ITS>,TIM)		;TIME-gHLIMITS
X	TO,TO		gh	;TO (USED IN ROUhTE COMMAND)
X	TYh(PE,TYP		;TYPE (TEhHRMINAL TYPE)

hh
	;DN60 KEYWORDS

IFN	FTDN60,<
i(
X	<BYTES-PER-MEiHSSAGE>,BPM	;BYTESih PER MESSAGE
X	<jCLEAR-SEND-DELAY>j(,CSD	;CLEAR TO SEjHND DELAY
X	<DATAjh-TERMINAL-READY>,kDTR ;DATA TERMINAk(L READY
X	<EMULAkHTION>,EMU		;EMULAkhTION
X	HASP,HSP	l	;HASP
X	<NO-SIGl(NON-REQUIRED>,NSNlH;NO-SIGNON-REQUIRlhED
X	OFF,OFF			;mOFF
X	ON,ON			;Om(N
X	<RECORDS-PERmH-MESSAGE>,RPM ;REmhCORDS PER MESSAGEn
X	SECONDARY,SECn(		;SECONDARY PROTnHOCOL
X	<SILO-WARnhNING-LEVEL>,SWL ;oSILO WARNING LEVEo(L
X	<SIGNON-REQUoHIRED>,SON	;SIGNONoh-REQUIRED

;	SYpMBOL DEFINED BUT p(VALUE O.K.

;X	pH<TERMINATION>,TRMph	;TERMINATION
X	q<TIMEOUT-CATEGORYq(>,TOU	;TIMEOUT CAqHTEGORY
X	<TRANSPqhARENCY>,TRA	;TRANrSPARENCY
X	2780,r(278		;2780
X	378rH0,378		;3780

>rh;END FTDN60

	;sTAPE AND DISK KEYs(WORDS

X	<ACKNOsHWLEDGED>,ACK	;ACKshNOWLEDGED
X	<ALLt-TAPE-DRIVES>,ATPt(	;ALL TAPE DRIVEStH
X	<ANSI>,ANS		;thANSI LABELS
X	<AuUTOMATIC-VOLUME-Ru(ECOGNITION>,AVR	;uHAVR
X	<AVAILABLEuh>,AVA		;AVAILABLEv
X	<CHANNEL>,CHNv(		;CHANNEL
X	<DRvHIVE>,DRV		;DRIVE
X	<DISK-DRIVE>,DwSK	;DISK DRIVE
Xw(	<DOMESTIC>,DOM		wH;DOMESTIC
X	<EBCwhDIC>,EBC		;EBCDICx
X	<FOREIGN>,FORx(		;FOREIGN
X	<INxHITIALIZE>,INI	;INxhITIALIZE
X	NO,NOy			;NO
X	<REGULAy(TED>,REG		;REGULAyHTED
X	<SCRATCH>,yhSCR		;SCRATCH
X	z<STRUCTURE>,STR		z(;STRUCTURE
X	<TAzHPE-DRIVE>,TAP	;TAzhPE-DRIVE
X	<TOPS{20>,T20		;TOPS-20{( LABELS
X	<UNAVA{HILABLE>,UAV	;UNAV{hAILABLE
	;VALUE |ALREADY DEFINED S|(O NO NEED TO DEFI|HNE AGAIN
;X	<UNL|hABELED>,UNL		;UNL}ABELED
X	<UNREGU}(LATED>,URG	;UNREG}HULATED
X	<VOLUME}h-ID>,VID		;VOLUME~-ID
X	YES,YES			~(;YES
X	200,200		~H	;DENSITY OF 200
X	556,556			;DENSITY OF 556
X	80(0,800			;DENSITY HOF 800
X	160,160h			;DENSITY OF 1600
X	625,625			;(DENSITY OF 6250
H

	;TOPS20 COMMhANDS

X	<BIAS-CONTROL>,BIA	;BIAS( CONTROL
X	<SCHEHDULER>,SCH		;SCHEhDULER
X	<NONE>,NON		;NONE
X	<BAC(KGROUND>,BCK	;BACHKGROUND
X	<CLASSh>,CLS		;CLASS
X	<ACCOUNTS>,ACT		;(ACCOUNTS
X	<ALLOHCATED>,ALO		;ALLOhACTED
X	<WITHHELD>,WHD		;WITHHELD(
X	<POLICY-PROGRHAM>,PPR	;POLICY PhROGRAM


	;MDA COMMANDS

X	<A(UTOMATIC-STRUCTURHE-RECOGNITION>,ASR	;ASR

N>,ASYt(:Q@YtIYQYu+qP'YuKqP'YujQkxYyiVpYyjpYyjQpYyl}p[$P[<P[LuiP[LvI9P[NF:=p[Nahrp[NaiVp[Naj2p[NajQp[NajZp[NakRp[Nalp[Nal}p[PvNP']ah2p(]aiVp(]akVp(]akZp(]al}p(]F,,yQ .}Q `t,yQ v}Q `
QkRp _
Ql}p _
Qmp _
Qm7p _
U|W N)% 
X	(<BATCNIH>,BAT)		;BATCH-SNhTREAM
X	(<CARD-POUNCH>,CDP)	;CARD-O(PUNCH
X	<CARD-REOHADER-INTERPRETER>Oh,BIN	;READER INTEPRPRETER
IFN	FTJSP(YS,<
X	<FILE-RETPHRIEVAL>,RET 	;RETPhREIVAL REQUESTS
Q>;END FTJSYS
IFNQ(	FTDN60,<
X	<IBMQH>,IBM		;IBM EMULAQhTION MESSAGES
>;REND FTDN60
X	<MOR(UNT>,MNT	;MOUNT RRHEQUESTS
X	(<PAPERhR-TAPE-PUNCH>,PTPS);PAPER-TAPE-PUNCS(H
X	PLOTTER,PLT	SH	;PLOTTER
X	PRINShTER,LPT		;PRINTERT
X	READER,RDR		;READER
,RDR		;_
V:=pv4t(:Q 4t*7Q 4t9Q 4uVQ 4uLP@t4u[ZP!4vPQ 4v$I$H@tQ |@txQ $I$@tzP @t9Q p@tEHQ @ulzQ @@u}Q I$I@v)6Q  @v+:Q @@vH5Q BAkRp BAk{p BAl}p BAmWp Ch3p Cip CiVp Cj1p CjQp Ckp CkRp Ckqp Cksp Clp Clp Cl}p Cmp Cmp Cm9p JtLx ))h
	DSPTAB(	A,.KYC,B,D)
,.KYC,B,D)
_Ju9< 	(0
	KEYTAB(.KYB,A,C)
(_Ju\s gI/
		XLIST
	X	CSE,<Class Schheduler ^T/@G$ARGh(1/>
	X	CWM,<MesshHage ^D/G$ARG1/ Cahhnceled^I/@G$ARG3/i>
	X	FRW,<File Ri(etrevial Waits ^TiH/@G$ARG1/d>
	X	JihLO,<Message ^D/G$jARG1/ Canceled ..j( Job ^D/G$PRVS,MDjH.PJB/ Logged Out>jh
	X	LFC,<ORION Lkogging Disabled bk(y ^I/@JOBTXT/>
	kHX	MCJ,<^D/G$ARG2/kh Message(s) Cancelled>
	X	ODM,<OUTl(PUT DISPLAY for OlHPR Modified>
	X	lhOLO,<ORION Logginmg Enabled by ^I/@m(JOBTXT/>
	X	SCC,mH<SEND Command Commhpleted>
	X	SEM,<nSYSERR entry maden( by the REPORT ConHmmand>
	X	SJM,<Jnhob ^D/G$ARG1/ Modoified>
	X	SOA,<So(et Online AccepteoHd>
	X	SSJ,<Job ^ohD/G$ARG1/ now in pClass ^D/G$ARG2/>p(
	X	SSS,<SchedulpHer Setting Modifiphed>
		LIST
		SALL
		IST
		SA_Jv9 I)~
	DSPTAB(iA,.SWC,B,D)
,.SWC,B,D)
_Jv=t I(4
	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: t	0<
	EXTERNAt)L	P$GPDB		;GET THtHE PDB BLOCK
	EXTthERNAL	P$PNXT		;GEuT NEXT PDB GIVEN u(A PDB BLOCK
	EXTuHERNAL	P$PERR		;GEuhT ERROR BLOCK FROvM PDB GIVEN A PDBv(
	EXTERNAL	P$PDEvHF		;GET DEFAULT FvhILLING ROUTINE GIwVEN A PDB
	EXTERw(NAL	P$PACT		;GET wHACTION ROUTINE GIwhVEN A PDB

	EXTxERNAL	P$NARG		;NEx(XT ARGUMENT TYPE xHTO PROCESS
	EXTExhRNAL	P$SETU		;SETyUP POINTER TO PARy(SER BLOCKS
	EXTEyHRNAL	P$CURR		;GETyh THE CURRENT LOCAzTION
	EXTERNAL	Pz($PREV		;SET THE PzHREVIOUS TO CURRENzhT
	EXTERNAL	P$FL{OT		;FLOATING POI{(NT NUMBER
	EXTER{HNAL	P$INIT		;PARS{hER INIT
	EXTERNA|L	P$INTR		;PARSER|( INTERRUPTS
	EXT|HERNAL	P$TINT		;TI|hMER INTERRUPTS
	}EXTERNAL	P$NFLD		}(;NEXT FIELD TYPE }HAND BLOCK ADDRESS}h
	EXTERNAL	P$DIR~		;DIRECTORY FIEL~(D
	EXTERNAL	P$NE~HXT		;GET NEXT FIE~hLD
	EXTERNAL	P$TIME		;TIME/DATE C(HECK
	EXTERNAL	PH$COMMA		;COMMA CHhECK
	EXTERNAL	P$CFM		;CONFIRM CHE(CK
	EXTERNAL	P$KHEYW		;KEYWORD CHEhCK
	EXTERNAL	P$SWIT		;SWITCH CHEC(K
	EXTERNAL	P$USHER		;USER CHECK
h	EXTERNAL	P$NUM		;NUMBER CHECK
	E(XTERNAL	P$FILE		;HFILE SPEC CHECK
h	EXTERNAL	P$IFIL		;INPUT FILE SPEC(
	EXTERNAL	P$OFIHL		;OUTPUT FILE ShPEC
	EXTERNAL	P$FLD		;FIELD CHECK(
	EXTERNAL	P$TOKH		;TOKEN CHECK
	hEXTERNAL	P$NODE		;NODE CHECK
	EXT(ERNAL	P$SIXF		;SIHXBIT FIELD CHECK
	EXTERNAL	P$RNGE		;RANGE OF NUMBE(RS
	EXTERNAL	P$THEXT		;TEXT CHECK
	EXTERNAL	P$DEV		;DEVICE CHECK
	(EXTERNAL	P$QSTR		H;QUOTED STRING
QUOTED STRING
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 f9
dP f9P f9*U@P f92%(P f9BP f:

:wP f:h6P f:%{9P f:,(rP f:5|WP f:L{WP f;YzP f;"$P f;,VP f;-kP f;.)3P gahzp galp gal}p gK1hwp gK1iUp gK1j7p gK1jSp gK1l}p gK6LuP gPtQ @gPtPQ  gPt:Q gPu[ZQ gPuySP gPu{@P gPv

TP gPv91P gSmp gSmp g^NHt ))d
	X	<ALL>),ALL		;/ALL
	X	<iAPPEND>,APD		;/APIPEND
	X	<AVAILABILE>,AVA		;/AVAILAhBLE
	X	<CHARACTE	RISTICS>,CHR	;/CH	(ARACTERISTICS
	X	H	<COPIES:>,CPY		;	h/COPIES:
	X	<CRE
ATE>,CRE		;/CREAT
(E
	X	<DEVICE:>,D
HEV		;/DEVICE:
	X
h	<FILE:>,FIL		;/FILE:
	X	<FREE>,F(RE		;/FREE
	X	<LHINES>,LNS		;/LINEhS
	X	<PAGES:>,PA

G		;/PAGES:
	X	<

(JOBNAME:>,JOB		;/

HJOBNAME:
	X	<MOU

hNTED>,MNT		;/MOUN
	X	<NODE:>,N
	X	<P>,PAU		;/PAU
	X	<REQUEST-ID:>,REQ	;/REQUEST(-ID:
	X	<REPEAT-HCOUNT:>,RPT	;/REPhEAT
	X	<SEQUENCE:>,SEQ		;/SEQUENC(E:
	X	<SHORT>,SHHT		;/SHORT
	X	<ShTOP>,STP		;/STOP
	X	<JOB>,JBX		;/(JOB
	X	<SUPERCEDHE>,SPR		;/SUPERCEhDE
	X	<PURGE>,PUR		;/PURGE (FOR J(OB ERROR )
	X	<EHRROR-PROCESSING>,hERR	;/ERROR-PROCESSING
	X	<NOERRO(R-PROCESSING>,NERH;/NOERROR-PROCESShING
	X	<REASON:>,RSN		;/REASON 
(	X	<DISPLAY>,DSP	H	;/DISPLAY
	X	<NhODISPLAY>,NDP		;/NODISPLAY
	X	<OP(R-ACTION-MESSAGE>H,OAM ;/OPR-ACTIONh MESSAGES
	X	<OTHER>,OTH		;/OTHER(

	;TAPE AND DIHSK -20 COMMAND SWhITCHES
	X	<COUNT:>,CNT		;/COUNT:
	X	<DENSITY:>,DEHN		;/DENSITY:
	Xh	<INCREMENT:>,INC	;/INCREMENT:
	X(	<LABEL-TYPE:>,LBHT	;/LABEL-TYPE
	hX	<OVERIDE-EXPIRATION:>,OVR;/OVERI(DE-EXPIRATION
	XH	<OWNER:>,OWN		;/hOWNER:
	X	<PROTECTION>,PRO	;/PROT(ECTION:
	X	<STARHTING-VOLUME-ID:>,hSVI;/START-VOLUME-ID:
	X	<TAPE-DI(SPOSITION:>,TDP	;H/TAPE-DISPOSITIONh
	X	<VOLUME-ID>,VID		;/VOLUME-ID

	;-20 SCHEDULEHR SWITCHES

	X	h<WINDFALL:>,WFL		;/WINDFALL:
	X	<(CLASS-ASSIGNMENTSH:>,CAS	;/CLASS-ASSIGNMENTS:

Sgg

V }8/q
	IFNB <}YB>,<TOPS10<A==B}x>>
	IFNB <C>,<T~OPS20<A==C>>
PS20<A==C>>
ijp ij7p ij|p il}p i I)v
	;THIS T)ABLE MUST BE IN A	LPAHABETICAL ORDEiR BY THE FIRST ARGUMENT
	;	X	NAME(,CODE,TABLE NAME

	G$$ATB		;GET hTABLE VALUES

	BLE VALUES

	iuI7P'inL}P i?kpp i?lp i?l}p i?4( /yIFN FTUUOS,B			;DEFINE UNi?4H X/}IFN FTJSYS,	INTERN AEDT	igP igX<P igZ7P o<tQ po<t]VQ @o<u+qQ  o<ux1Q oPu+qQ oPu86Q oPu:6Q @oPu[yQ  oPuiQ  oPuiWQ @oPui\Q oPv

[Q #`oPv:TQ oR}X<P ap !)f
	XLIST
!)	A==.ZZ
	.ZZ==.iZZ+1
	LIST
	SALL
	+1>
	OM.Bq@  
	A==:B
	A==:B
u|P`E=P;PP$:2PEh6P @FN8P `dLuP  f:P  f,P  f=P !f=P  fH8P  h6P {p )1P  `6)1P  `

SP S@P 4+P  uy@ 9P  4VP   5TP  !5]P 6MP 6X;P   V-P *|*2P @/JP'/JHP")/J$P"(/J%lP"/J5lP"/JU+P"(/JdJP"*/KP")/LuP"/LzP"-/LP"/LP!/LP"/LP"/LP"-/LYP"/LuP"/LyP"//LP"/LPP"/LYP"/L(:@ /L(uP",/L)3P"/L*0P"*/L*7@ /L*yP!/L,P"/L9@ /L:P"/L;P!/L;P",/L;QP!/L;ZP!/L<P"/L<rP"/L=P"/L=9P"/LH<P"/LI3P!/LI6P!/LJ9P!/LKvP"!/LL[P" /LLuP" /LLvP!/LMP"/LXQP"!/L[:P"/L[PP!/L[ZP!/L\VP"/L^P!/Lj6P"/LkyP""/LkzP"/LmyP!/MP!/MP!/M

xP"/MV@ /MP!/MwP"/MTP""/M+q@ /M+vP"/M<P"/MI0P"/MIsP"	/MJ7P"/MKqP!/MKsP"/ML@ /MY6P"	/M[Z@ /M[rP!/M\sP"
/M]P!/MjxP"/Mk`P"#/MkrP"
/MktP"/MkwP"+/MlwP"/Mx6P"

/MySP"/Mz0P"

/M|P"/M|P"/M|@ /M}P"

P"./N

TP"/N

VP"/N

VP"/N

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

/N-P!

/N8tP"+/N8yP"$/N91P"/N9:P!/N:P!/N:P!/N;RP!/N=vP"/N>9P"/NDHP"%/NH1P"/NH5P!/NH8P"%/NJ6P"/NK`P"/NKzP"/NLPP"/NLV@ /NN8P"/NX;P"&/N[P!/N[VP!/N\SP"&/N\yP /Nj2P"'/Nx4P!/NzP"./O9P"'3$YP 3$XQP 3&DHP 3&[VP 6~

TP*@;&=1P8@>)qp;>+P;>+RPE>-PI>-7PI>5H3pJ>DLYpL>luP">lyP">lP">lP"

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

ZP">nP">n2P">n)6P">n)8P"
>n,xP">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=P">n=1P">n=8P" ?J6P $?N8P  ?$(:P ?$*7P ?$9P ?$J9P"?$K:P"?$LvP"?$[PP"?%VP ?%P"?%+qP ?%LP ?%Y9P"?%[ZP ?%]P"?%|P ?&P ?&

(xP K

)VP K

*QP K

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

WP !"NN=TP !$NN[VP !"NTD+P NTEIP NTKIP NTKJP NTKLP NuyP O<P  Oj6P !O3P  O$zP @O$P BO$P !O$uP O$,P O$87P O$:P  @O$<rP O$MP O$[RP O$lVP O%P AO%wP O%I0P O%Y6P O%ktP O%lwP O%z0P O%|P O&	vP O&

TP O&)P  O&,P O&;wP 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<;ZP$O<<P$O<<RP$O<I7P$O<I;P$O<LxP$
O=+qP$O=HZP$O=KYP$O=[ZP$O=iP$

O=krP$O=x6P$O=}P$O=}YP$O=}wP$O>3P$O>:P$O>

WP$O>)8P$O>,P$O>,wP$

O>98P$O>:P$	O><P$
O>=P$	O>=TP$O>IP$O>j2P$O>yVP$R	P  Z}J2P !_$rP _$YP _$I9P _$\YP _%+qP _%LzP _%xUP _%xrP _&-P _&NP _&N8P kPP >}{woP