Google
 
Trailing-Edge - PDP-10 Archives - bb-bt99l-bb - ornmac.unv
There are 80 other files named ornmac.unv in the archive. Click here to see a list.
x
,S0@PCv)6Q@CBd)3P'CJ9ipCRn:=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 I6

xP IulwP Iv;wP Iv<[P IvLP'IvLVP I	kRp I	kzp I	l7p I	l}p I	mp I	m7p I	m:p IX,MQ IX-]Q IX.MQ @IXtMQ IXu]Q IXvMQ @J:/
:P J:lP J:u|VP KK9 p!D
	XLIST
pA
	X	AON,<Applicap`tion object blockq and object type q block not allowedq@ together in WTORq`/WTO/ACK message>r
	X	CMI,<Commandr  message invalid>r@
	X	UPO,<Unknownr` processor objects>
	X	UPT,<Unidens tified processor s@type>
	X	IPE,<OPs`ERATOR privilegest required>
	X	IOt E,<Invalid OPR ent@try>
	X	IFC,<Illt`egally formatted ucommand message>
	X	IRS,<Illegal u@range specified>
	X	MTS,<Message vtoo short>
	X	BMv L,<Bad message lev@ngth>
	X	CSU,<Cav`nnot send to specwified user>
	X	Nw OM,<No outstandinw@g messages>
	X	Iw`CS,<Invalid argumxent count specifix ed in command>
	x@X	IAL,<Invalid arx`gument length speycified>
	X	ITM,<y Invalid type arguy@ment in message>
	X	ONS,<OPR not zsetup .. command z ignored>
	X	DTM,z@<Duplicate type sz`pecified in messa{ge>
	X	WJP,<WTO,{  WTOR, or ACK job{@ number field req{`uires privileges>|
	X	WTP,<WTO, WT| OR or ACK object |@type field requir|`es privileges>
	}X	IWF,<Invalid WT} O or WTOR field>
	X	WOP,<WTO, WTO}`R, or ACK object ~block field requi~ res privileges>
~@	X	IOU,<Invalid o~`bject unit specified in object blo ck>
	X	RIW,<Rang@e invalid in WTO,` WTOR or ACK object block>
	X	OPD ,<OPR pid already@ defined>
	X	ISM`,<OPR setup message invalid .. OPR  did not send hel@lo>
	X	OAS,<OPR `already setup .. OPR deleted>
	X	 ANI,<Application @name invalid in a`pplication hello message>
	X	ODE, <OPR Does not exi@st .. message not` sent>
	X	MTF,<WTO message type f ield required wit@h WT.SJI set>
	X`	IAC,<Invalid acknowledgement code  .. code was zero@>
	X	CNI,<Comman`d not yet implemented>
	X	IPS,<In valid pid for sen@der .. pid was ze`ro>
	X	ISC,<Invalid switch specif ied in command>
@	X	WNA,<Write to `operator function not allowed for  this job>
	X	LNI@,<Logging not ena`bled>
	X	RNA,<Ra	nge not allowed i	 n START command w	@ith /DEVICE>
	X		`IQS,<Invalid queu
e specified in co
 mmand>
	X	SUF,<E
@RROR.SYS entry fa
`iled on REPORT command>
	X	IUM,<I nvalid user speci@fied in message>
	X	ARP,<ACK mess

ages require WHEE

 L or OPERATOR pri

@vileges>
	X	NRW,

`<NotifyRmessagerr
	X	JDE,<Jobfed no longer exists>
 	X	NJD,<Job to be@ notified is DETA`CHED .. notify ignored>
	X	BNR,<B atch commands not@ allowed from rem`ote nodes>
	X	NOD,<No operators d efined>
	X	DOL,<@Device already on`line .. command ignored>
	X	SFF,< Scheduler functio@ns failed for SHO`W SCHEDULER command>
	X	ORS,<SYST EM, HOST or REMOT@E operator privil`ege required>
	X	OHS,<SYSTEM or H OST operator priv@ilege required>
`	X	OSY,<SYSTEM operator privilege  required>
	X	SAF@,<Send to ACTDAE `failed for SET USAGE command>
	X	 CLO,<Can't locate@ operator>
	X	SC`N,< Specified CPU not running >
	 X	ICP,< Invalid C@PU number specifi`ed >
	X	NRN,< No CPUs will be abl e to run jobs .. @command ignored >`
	X	ACS,< All CPUs are already sc hedulable .. comm@and ignored >
	LIST
	SALL

	LKK| k9 
	XLIST
kX	E.NORM,<OPR terjyminated normally>mI
TOPS20 <
X	E.OmhPNF,<Unable to opnen ^T/DCNDAT/>
Xn(	E.CONF,<Unable tnHo get connects fonhr ^T/DCNDAT/>
X	oE.ACFL,<Unable too( accept connects oHfor server links>oh
X	E.OUTF,<Outpupt over link ^T/DCp(NDAT/ failed .. lpHink aborted>
X	Eph.INPF,<Input overq server link failq(ed .. link aborteqHd>
X	E.STSF,<Staqhtus return for inrput server link fr(ailed .. link aborHrted>
X	E.INVC,<rhInvalid connect sstatus ^O/ARG1/ ..s( link aborted>
>sH ;END TOPS20
X	Esh.EXIT,<EXIT commatnd issued>

	LIST
	SALL

	LIKK9: Q!
		EXTERNQAAL TXTTBL
		EXTEQ`RNAL STSTBL
		EXRTERNAL ERRTBL
		R EXTERNAL RPTERR
R@		DEFINE	X(SUFFIXR`,TEXT),<
		EXTERSNAL	E$'SUFFIX
		S > ;END X
		ERRCDS@S
		ERRTXT
		ORNMSG
	XT
		ORKKN 0
		XLIST
	X	ACI,<Applicat@ion code ^D/G$ARG`1/ invalid .. WTO rejected>
	X	AH F,<Application ^T@/@APLNAM/ hello a`cknowledgement failed .. hello ign ored>
	X	ANS,<Ap@plication ^T/@APL`NAM/ not signed on yet .. WTO/WTOR /ACK rejected>
	@X	CAS,<^W/G$ARG2/` is already running jobs .. comman d ignored>
	X	CD@E,<^W/G$ARG2/ doe`s not exist>
	X	CDN,<^W/G$ARG2/ i s down .. command@ ignored>
	X	CNM`,<^W/G$ARG2/ is an invalid CPU nam e>
	X	CPM,<WTO/W@TOR/ACK request f`or ^T/@APLNAM/ ha s different pid f  rom hello .. WTO  @rejected>
	X	CSF `,<Class scheduler! error: ^E/G$ARG1! />
	X	DDI,<Disk !@drive number ^D/G!`$ARG1/ invalid on" SET command>
	X" 	DJF,<SET ONLINE "@failed because ^E"`/G$ARG1/>
	X	DUF#,<DEVTYP UUO fail# ed for device ^W/#@G$ARG1/:>
	X	EDC#`,<Job scheduling $^T/@G$ARG1/d for $ specified CPU(s)>$@
	X	IAP,<^T/@G$A$`RG1/ is not runni%ng>
	X	ICN,<Chan% nel number ^D/G$A%@RG1/ invalid on S%`ET command>
	X	I&DD,<^T/@G$ARG1/ i& s not a valid dis&@k structure .. co&`mmand ignored>
	'X	IDS,<^T/@G$ARG1' / is not supporte'@d for /DEVICE .. '`command ignored>
	X	IMT,<Illegal ( message type ^O/G(@$ARG1/>
	X	INS,<(`Operator at node )^N/G$ARG1/ not en) abled for node ^N)@/G$ARG2/>
	X	INT)`,<Invalid node or* no terminal line* s for node ^N/G$A*@RG1/>
	X	ION,<OP*`R hello message n+ode ^N/G$ARG1/ in+ valid .. OPR igno+@red>
	X	IOT,<Inv+`alid object type ,^O/G$ARG1/ specif, ied in message>
,@	X	ISP,<Insuffici,`ent privileges to- set ^W/G$ARG1/>
	X	IRD,<Can't ^T-@/@G$ARG2/ a disk -`device (^W/G$ARG1./:)>
	X	ITD,<^T/. @G$ARG1/ is not a.@ valid tape drive.` .. command ignor/ed>
	X	LAO,<ORIO/ N log file ^F/LOG/@FD/ already open /`.. command ignore0d>
	X	LFE,<ORION0  log error ^E/[-10@]/ .. logging dis0`abled>
	X	MBP,<O1RION must be [1,21 ] or JACCT to ^T/1@@G$ARG1/ CPU job 1`scheduling>
	X	M2DA,<Can't ^T/@G$A2 RG2/ a device con2@trolled by MDA (^2`W/G$ARG1/:)>
	X	3MNV,<Message ^D/G3 $ARG1/ no longer 3@valid .. sender h3`as gone away>
	X4	NJA,<Can't ^T/@G4 $ARG2/ device, OR4@ION not [1,2] or 4`JACCT>
	X	NMC,<N5o messages found 5 with code ^O/G$AR5@G1/>
	X	NMN,<No 5`messages for node6 ^N/G$ARG1/>
	X	6 NON,<No operators6@ at node ^N/G$ARG6`1/>
	X	NSM,<Mess7age ^D/G$ARG1/ do7 es not exist>
	X7@	NTD,<^T/@G$ARG1/7` is not a tape dr8ive or valid stru8 cture .. command 8@ignored>
	X	OAE,8`<DN60 OPR at node9 ^N/G$ARG1/ alrea9 dy exists>
	X	ON9@E,<OPR not enable9`d for message ^D/:G$ARG1/ at node ^: N/G$ARG2/>
	X	OS:@F,<OPR setup fail:`ure for pid ^O/G$;ARG1/ .. OPR igno; red>
	X	PER,<Com;@mand error: ^T/@G;`$ARG1/>
	X	RWF,<<^T/@G$ARG1/ file < retrieval waits f<@ailed  ^E/[-2]/>
	X	SIC,<SET ONLI=NE ^T/@G$ARG1/ ch= annel number ^O/G=@$ARG2/ invalid>
=`	X	SID,<SET ONLIN>E ^T/@G$ARG1/ dev> ice number ^O/G$A>@RG2/ invalid>
	X>`	SJF,<SET JOB sch?eduler error: ^E/? G$ARG1/>
	X	SJN,?@<SET JOB invalid ?`.. job ^D/G$ARG1/@ not logged in>
@ 	X	SPI,<SET prior@@ity value ^D/G$AR@`G1/ invalid .. 63A is maximum>
	X	A SSF,<SET SCHEDULEA@R error: ^E/G$ARGA`1/>
	X	TAB,<TAKEB command aborted B because ^T/@G$ARGB@1/ not running
	B`	on command "^T/@CG$ARG2/">
	X	UFRC ,<UUO failed tryiC@ng to ^T/@G$ARG2/C` ^W/G$ARG1/:>
	XD	UUF,<SETUUO failD ed trying to ^T/@D@G$ARG1/ CPU job sD`cheduling>
	X	WTEL,<WTO/WTOR messaE ge length ^D/G$ARE@G1/ exceeds max oE`f ^D/[WTOMAX]/>
F		LIST
		SALL
	LIST
		SALL
	L;<rP L;<YP L;<I9P!L;<\YP  L;<kP'@L;=+qP @L;=xUP"L;=xrP L;>-P L;>MP @L;>NP$L;>N8P M:=P MF:=p M2

pP MR%eHQ MR&`Q MR6L`P MRV>9P MS) P MS.[yQ N$ {hl

X	<CAT|ALOG>,0,CATTAB,
|(
X	<CONFIG>,1,CN|HFTAB,CNFORN

X	|h<LCP>,2,LCPTAB,LC}PORN

X	<NCP>,3}(,NCPTAB,

X	<QU}HOTA>,4,QUOTAB,

>,4,QUOTAB,
N%Iw ~p	X	OPERAT	X	OPERATN:}KsQ O*6:=P Q\t9RP$Q\t: P"Q\t<P!Q\t=P Q\tLuP @Q\u[2P  Q\uj P Q\vH8P Q\vXPP Q\v\QP S;:P SBI;P U
IjQp U
Ikp U
Il}p WMX4 	y-
	X	ALIGN,ALI		
	X	BACKSP8ACE,BKS		
	X	CAN	PCEL,CNC		
	X	CLO	pSE,CLO		
	X	CONT
INUE,CNT		
	X	DE
0LETE,DEL		
IFN	F
PTDN60,<
	X	DEFIN
pE,DEF		
> ;END FTDN60
IFE	FTDN600,<
TOPS10<	X	DEFPINE,DEF	>	
> ;ENpD FTDN60
	X	DISA

BLE,DIS		
	X	DIS

0MOUNT,DSM		
	X	E

PNABLE,ENA		
	X	E

pNTER,ENT		
	X	EXT		
	X	FORWE,FWS	
	XELP,HLP		
	X	HHLD		
	X	IDENTIFY,IDN		
	X	M0ODIFY,MOD		
	X	MPOUNT,MTN		
	X	PApUSE,PAU		
	X	PUSH,PUS		
	X	PRINT0,PRT		
TOPS10<	XP	RECOGNIZE,REC >	p	
	X	RELEASE,REL		
	X	REPORT,RPT0		
	X	REQUEUE,REPQ		
	X	RESPOND,RpSP		
TOPS10<	X	RESTRICT,RST >		
0	X	RETURN,RTN		
P	X	ROUTE,RTE		
	pX	SEND,SND		
	X	SET,SET			
	X	SH0OW,SHW		
	X	SHUTPDOWN,SHD		
	X	STpART,STA		
	X	SUBMIT,SUB		
	X	SUP0PRESS,SUP		
	X	TPAKE,TAK		
	X	UNLpOAD,UNL		
TOPS10<	X	UNRESTRICT,UR0S >	
	X	WAIT,WAIP		


	X	SWITCHp,SWI		


	X	LOCK,LOC		
	X	UNLO0CK,ULC		


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

	WMxU y5
X	JOB,JO0B				
X	OPERATORP,OPR			
X	TERMINAL,TRM			
RMINWN{y P|m
X	AFTER,pAFT			
X	<ANF-10>,ANF			
X	ALL,A0LL				
X <ALL-MEPSSAGES>,ALM			
Xp <ALL-NODES>,ALG			
X	ASK,ASK				0
X	ATTRIBUTE,ATRP			
X(<BEGINNINGp-OF>,BEG)			
X <CONTROL-FILE>,CTL0			
X	COPY,CPY		P	
X(<CURRENT-POSpITION>,CUR)		
X  <CURRENT-REQUEST> 0,ACR			
X	DAYTIM PE,DAY			
X	DECNE pT,DCN			
X <DEFA!ULT-PPN>,DPP			
!0X <ERROR-MESSAGES!P>,ERM			
X <EVER!pY-REQUEST>,AER			"
X	FILE,FIL			
"0X (<FORMS-TYPE>,F"POT)			
X	IGNORE,"pIGN			
X	IMMEDIA#TELY,IMM			
X	<J#0OB-MESSAGES>,JOM	#P	
X	KEYPAD,KPD		#p	
X (<LIMIT-EXCE$EDED-ACTION>,LEA)$0		
X	LINE,LIN			$P
X	LOG,LOG				
$pX	LOGGING,LGG			
X	(<LP20-SIMULAT%0ION>,LP2)		
X (<%PMEMORY-LIMITS>,ME%pM)			
X	MESSAGES&,MSG			
X	(<NETW&0ORK>,NET)			
X	N&PODE,NOD			
X	NOK&pEYPAD,NKP			
X(<'NOOPR-INTERVENTIO'0N>,NOI)		
X <OPR'P-ACTION-MESSAGES>'p,OAM		
X	<ONLINE(>,ONL			
X(<OPR-(0INTERVENTION>,OIA(P)		
X	OTHER,OTH	(p		
X <OUTPUT-DIS)PLAY>,OPD			
X(<)0OUTPUT-LIMITS>,OP)PL)			
X (<PAGE-L)pIMITS>,PGL)			
X*	PARAMETERS,PRM		*0	
X	PRIORITY,PRI*P			
X (<PRIORITY*p-LIMITS>,PRL)		
+X <REJECTION-LIST+0>,REJ			
X	REQUE+PST,RQN			
X	QUEU+pE,QUE			
X	<QUEU,E-NAME>,QNM		
IF,0N FTDQS,<
X	SERV,PER,SRV			
>
X	S,pITGO,SIT			
X	ST-ATUS,STS			
X	SY-0STEM,SYS			
X <S-PYSTEM-OPR-INTERVE-pNTION>,SOI		
X <.TAKE-COMMANDS>,TA.0C			
X (<TIME-LI.PMITS>,TIM)			
X	.pTIMESHARING,TSR		/	
X	TO,TO				
X/0	TYPE,TYP			
X	(/P<UNIT-TYPE>,UTY)	/p	


X	<7>,7TK	0			
X	<9>,9TK			00	
X	<DEFAULT>,DF0PL			
X	<EVEN>,EV0pN			
X	<MAGTAPE>1,MTA			
X	<ODD>,10ODD			


X	<IN1PPUT>,NQI			
X	<O1pUTPUT>,NQO			
X	2<LOCAL>,LCL			
X20	<REMOTE>,RMT			

;DN60 KEYWORDS2p

IFN	FTDN60,<

X	<BYTES-PER-M30ESSAGE>,BPM		
X	3P<CLEAR-SEND-DELAY3p>,CSD		
X	<DATA-4TERMINAL-READY>,D40TR 
X	<EMULATION4P>,EMU			
X	HASP,4pHSP			
X	OFF,OFF5				
X	ON,ON				50
X	<RECORDS-PER-5PMESSAGE>,RPM 
X	5pSECONDARY,SEC			
X	<SILO-WARNING-60LEVEL>,SWL 


6P

X	<TIMEOUT-CA6pTEGORY>,TOU		
X	7<TRANSPARENCY>,TR70A		
X	2780,278		7P	
X	3780,378			
X	CPU,CPU				
X8	<DL10-PORT>,D10	80		
X	DTE,D20				8P

> ;END FTDN608p



X	<ACKNOW9LEDGED>,ACK		
X	90<ALL-TAPE-DRIVES>9P,ATP		
X	<ANSI>,9pANS			
X	<AUTOMA:TIC-VOLUME-RECOGN:0ITION>,AVR	
X	<A:PVAILABLE>,AVA			
X	<CHANNEL>,CHN	;		
X	<DRIVE>,DRV;0			
X	<DISK-DRIV;PE>,DSK		
X	<DOME;pSTIC>,DOM			
X	<<EBCDIC>,EBC			
X<0	<FOREIGN>,FOR			<P
X	<INITIALIZE>,<pINI		
X	NO,NO			=	
X	<REGULATED>,=0REG			
X	<SCRATC=PH>,SCR			
X	<STR=pUCTURE>,STR			
X>	<TAPE-DRIVE>,TAP>0		
X	<TOPS20>,T2>P0			
X	<UNAVAILA>pBLE>,UAV		
X	UNI?T,UNI			
X	<ACTI?0VE-SWAPPING-LIST>?P,ASL 
X	<CRASH-D?pUMP-LIST>,CDL		
@X	<SYSTEM-SEARCH-@0LIST>,SSL 

;X	@P<UNLABELED>,UNL		@p
X	<UNREGULATED>A,URG		
X	<VOLUMEA0-ID>,VID			
X	YEAPS,YES				
X	200,Ap200				
X	556,55B6				
X	800,800	B0			
X	160,160			BP	
X	625,625				




X	<BIAS-CCONTROL>,BIA		
XC0	<SCHEDULER>,SCH	CP		
X	<NONE>,NON	Cp		
X	<BACKGROUNDD>,BCK		
X	<CLASSD0>,CLS			
X	<ACCODPUNTS>,ACT			
X	<DpALLOCATED>,ALO			E
X	<WITHHELD>,WHE0D			
X	<POLICY-PEPROGRAM>,PPR		

Ep


X	<AUTOMATIFC-STRUCTURE-RECOGF0NITION>,ASR	
X	<FPSYSTEM-LISTS>,SLSFp		
X	<INCLUDE>,IGNC			
X	<EXCLUDEG0>,EXC			
X	<ALLOGPCATION>,ALC		
X	Gp<BATCH-REQUEST>,BHRQ		



X	<KSH0YS>,KSY			


HP
X	<USAGE>,USG			Hp
X	<BILLING-CLOSIURE>,UBC		
X	<FII0LE-CLOSURE>,UFC		IP
X	<EVERY>,WKY		Ip	
X	<NOW>,NOW			J
X	<DAILY>,DLY		J0	



X	<BATMAJPX>,BMX			
X	<BATJpMIN>,BMN			
X	<CKORMAX>,CMX			
X	K0<CORMIN>,CMN			
KPX	<DATE>,DAT			
KpX	<LOGMAX>,LMX			L
X	<SCHEDULE>,SCL0D			
X	<JOB-SCHELPDULING>,JSC		
X	Lp<ALL-CPUs>,ACP			M
X	<ONLY>,NLY			M0
X	<LISTS>,LST		MP	
X	<DISK-CACHE-SIZE>,CSZ		

Y

um6Q @[$P [<P [LuiP [LvI9P [NF:=p [Nahrp [NaiVp [Naj2p [NajQp [NajZp [NakRp [Nalp [Nal}p [PvNP']ah2p ]aiVp ]akVp ]akZp ]al}p ]tEHQ ]ukQ @]v>9Q  ]!iUp ]!kp ]!lp ]!lpp ]!l}p ]$,}P ]>!h4p ]>!h7p ]>!hzp ]>!iVp ]>!k6p ]>!kVp ]>!kZp ]>!k\P ]>!kqp ]>!kxp ]>!l}p ]>!mp ]Pu[Q @]VlP ]Vn<[P ^eyw F	G$$LGN	^:d[PQ _t,yQ _v}Q `_
QkRp _
Ql}p _
Qmp _
Qm7p _
U|W ya
X	(<BATC0H>,BAT)			
X	(<CPARD-PUNCH>,CDP)		p
X	<CARD-READER-INTERPRETER>,BIN	0
X	(<EVENT>,EVT)P			
X	<FAL>,FAL	p		
TOPS20 <
X	<FILE-RETRIEVAL>,R0ET 		
> ;END TOPPS20
IFN FTFTS,<
X	<FTS>,FTS			
> ;End of FTFTS c0onditional
X	<MOPUNT>,MNT			
X	(<pNQC>,NQC)			
X	(<PAPER-TAPE-PUNCH0>,PTP)	
X	PLOTTEPR,PLT			
X	PRINTpER,LPT			
X	READER,RDR			;READER
RDR			;READER
V:=p _@rQ  _@rQ _@r Q _@r0Q _@r@Q _@t8Q >_@tZQ _@tEHQ _@u

zQ @_@uHvQ _@ulzQ @_@v)6Q  _@v+:Q @_@v>9Q _@vH5Q _BAkRp _BAk{p _BAl}p _BAmWp _Cip _CiVp _Cj1p _CjQp _Ckp _CkRp _Ckqp _Cksp _Clp _Clp _Cl}p _Cmp _Cmp _Cm7p _Cm9p _CYP _CZ7P _Ci9P _ClYQ _CzP _JtLx O~O
	DSPTAB(ipA,.KYC,B,D)
,.KYC,B,D)
_Ju9< N|q
	KEYTAB(.KYB,A,C)
(_Ju\s FA
		XLIST
	X	CSE,<Class scGheduler ^T/@G$ARGG 1/>
	X	CWM,<MessG@age ^D/G$ARG1/ caG`nceled^I/@G$ARG3/H>
	X	DRU,<DeviceH  ^W/G$ARG1/: ^T/@H@G$ARG2/ed>
	X	FRH`W,<File retrievalI waits ^T/@G$ARG1I /d>
	X	JLO,<MessI@age ^D/G$ARG1/ caI`nceled .. job ^D/JG$JOB/ logged outJ >
	X	LFC,<ORION J@logging disabled J`by ^I/@JOBTXT/>
K	X	MCJ,<^D/G$ARG2K / message(s) cancK@eled>
	X	ODM,<OuK`tput display for LOPR modified>
	XL 	OLO,<ORION loggiL@ng enabled by ^I/L`@JOBTXT/>
	X	SCCM,<SEND command coM mpleted>
	X	SEM,M@<Entry made in ERM`ROR.SYS>
	X	SET,N<Set accepted, ^WN /G$ARG1/ is now ^N@D/G$ARG2/>
	X	SJN`M,<Job ^D/G$ARG1/O modified>
	X	SOO A,<SET ONLINE accO@epted>
	X	SSJ,<JO`ob ^D/G$ARG1/ nowP in class ^D/G$ARP G2/>
	X	SSS,<SchP@eduler setting moP`dified>
		LIST
		SALL
		IST
_Jv9 j0~U
	DSPTAB(jPA,.SWC,B,D)
,.SWC,B,D)
_Jv=t NP|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: TR
	EXTERNAT!L	P$GPDB		;GET THT@E PDB BLOCK
	EXTT`ERNAL	P$PNXT		;GEUT NEXT PDB GIVEN U A PDB BLOCK
	EXTU@ERNAL	P$PERR		;GEU`T ERROR BLOCK FROVM PDB GIVEN A PDBV 
	EXTERNAL	P$PDEV@F		;GET DEFAULT FV`ILLING ROUTINE GIWVEN A PDB
	EXTERW NAL	P$PACT		;GET W@ACTION ROUTINE GIW`VEN A PDB

	EXTXERNAL	P$NARG		;NEX XT ARGUMENT TYPE X@TO PROCESS
	EXTEX`RNAL	P$SETU		;SETYUP POINTER TO PARY SER BLOCKS
	EXTEY@RNAL	P$CURR		;GETY` THE CURRENT LOCAZTION
	EXTERNAL	PZ $PREV		;SET THE PZ@REVIOUS TO CURRENZ`T
	EXTERNAL	P$FL[OT		;FLOATING POI[ NT NUMBER
	EXTER[@NAL	P$INIT		;PARS[`ER INIT
	EXTERNA\L	P$INTR		;PARSER\  INTERRUPTS
	EXT\@ERNAL	P$TINT		;TI\`MER INTERRUPTS
	]EXTERNAL	P$NFLD		] ;NEXT FIELD TYPE ]@AND BLOCK ADDRESS]`
	EXTERNAL	P$DIR^		;DIRECTORY FIEL^ D
	EXTERNAL	P$NE^@XT		;GET NEXT FIE^`LD
	EXTERNAL	P$T_IME		;TIME/DATE C_ HECK
	EXTERNAL	P_@$COMMA		;COMMA CH_`ECK
	EXTERNAL	P$`CFM		;CONFIRM CHE` CK
	EXTERNAL	P$K`@EYW		;KEYWORD CHE``CK
	EXTERNAL	P$SaWIT		;SWITCH CHECa K
	EXTERNAL	P$USa@ER		;USER CHECK
a`	EXTERNAL	P$NUM		b;NUMBER CHECK
	Eb XTERNAL	P$FILE		;b@FILE SPEC CHECK
b`	EXTERNAL	P$IFIL	c	;INPUT FILE SPECc 
	EXTERNAL	P$OFIc@L		;OUTPUT FILE Sc`PEC
	EXTERNAL	P$dFLD		;FIELD CHECKd 
	EXTERNAL	P$TOKd@		;TOKEN CHECK
	d`EXTERNAL	P$NODE		e;NODE CHECK
	EXTe ERNAL	P$SIXF		;SIe@XBIT FIELD CHECK
	EXTERNAL	P$RNGEf		;RANGE OF NUMBEf RS
	EXTERNAL	P$Tf@EXT		;TEXT CHECK
	EXTERNAL	P$DEV	g	;DEVICE CHECK
	g EXTERNAL	P$QSTR		g@;QUOTED STRING
	g`EXTERNAL	P$UQST		h;UNQUOTED STRING
	EXTERNAL	P$TAKEh@		;Take processinh`g
	EXTERNAL	P$ACiCT		;Account strii ng
	EXTERNAL	P$Ni@PRO		;No process i`required
	EXTERNjAL	P$FIXP		;Fixupj  command pointer on error
nter 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 c:mI7P d:v;ZQ  d;Q d;|Q d;yQ d;<:Q @eQk5p eQkRp eQlp eQl}p eLuI7Q xeN!hzp eN!iVp eN!jp eN!k9p eN!lp eN!lZp eN!l}p eN!mp f:

:wP f:h6P f:%{9P f:5|WP f:L{WP f;YzP f;,VP f;.)3P gahzp galp gal}p g0tvP g0t9P g0v<vP g0vHrP g0vK7P g0vK<P gK1hwp gK1iUp gK1j7p gK1jSp gK1l}p gK6LuP gPtyQ  gPt9Q gPtQ @gPtSP gPtPQ  gPt:Q gPtHwP gPu6Q @gPu[ZQ gPuySP gPu{@P gPv

TP gPv91P gPv\yQ @gSmp gSmp g^NHt Op~K
	X	<ALL>P0,ALL		
	X	<APPENOPD>,APD		
	X	<AVAPPILABLE>,AVA		
	XPp	<CHARACTERISTICSQ>,CHR	
	X	<COPIEQ0S:>,CPY		
	X	<CRQPEATE>,CRE		
	X	<QpDEVICE:>,DEV		
	RX	<FILE:>,FIL		
R0	X	<FREE>,FRE		
RP	X	<LINES>,LNS		
	X	<PAGES:>,PAG	S	
	X	<JOBNAME:>,S0JOB		
	X	<MOUNTESPD>,MNT		
	X	<NODSpE:>,NOD		
	X	<NOT-SIGNON-REQUIRED>T0,NSN;NO-SIGNON-RETPQUIRED
	X	<NOUNLTpOAD>,NUL		
	X	<PUAUSE:>,PAU		
	X	U0<REQUEST-ID:>,REQUP	
	X	<REPEAT-COUUpNT:>,RPT	
	X	<SEVQUENCE:>,SEQ		
	V0X	<SHORT>,SHT		
VP	X	<STOP>,STP		
Vp	X	<JOB>,JBX		
	WX	<SIGNON-REQUIREW0D>,SON	
	X	<SUPEWPRSEDE>,SPR		
	X	Wp<PURGE>,PUR		
	XX	<ERROR-PROCESSINX0G>,ERR	
	X	<NOERXPROR-PROCESSING>,NXpER;/NOERROR-PROCEYSSING
	X	<REASONY0:>,RSN		
	X	<REMYPOVE>,REM		
	X	<DYpISPLAY>,DSP		
	XZ	<NODISPLAY>,NDP	Z0	
	X	<OPR-ACTIONZP-MESSAGE>,OAM 
	ZpX	<OTHER>,OTH		
[	X	<USERS>,USR		
	X	<WRITE-LOCKED[P>,WLK	
	X	<OVERR[pIDE-SET-NUMBER>,O\SN 
	X	<REMOTE>,\0RMT		
	X	<SUMMAR\PY>,SUM		


	X	\p<COUNT:>,CNT		
	]X	<DENSITY:>,DEN	]0	
	X	<INCREMENT:]P>,INC	
	X	<LABEL]p-TYPE:>,LBT	
	X	^<OVERIDE-EXPIRATI^0ON:>,OVR 
	X	<OW^PNER:>,OWN		
	X	<^pPROTECTION>,PRO	
	X	<STARTING-VOL_0UME-ID:>,SVI;/STA_PRT-VOLUME-ID:
	X_p	<TAPE-DISPOSITIO`N:>,TDP	
	X	<VOL`0UME-ID>,VID		

`P

	X	<WINDFALL:`p>,WFL		
	X	<CLASaS-ASSIGNMENTS:>,Ca0AS 
	X	<NOCHECK>aP,NCK		



	X	ap<NO-SESSION-ENTRIbES>,NOS 



	b0X	<CANCEL>,KIL		
	X	<CM>,CM			
	bpX	<NEW>,NEW		
	Xc	<PM>,PM			
	X	<c0SA>,SA			
	X	<SCcPHED>,SCH		


cp
	X	<FAILSOFT>,FSdF		



	X	<DEd0NSITY:>,MDN		
	XdP	<DIRECTORY-FILE:dp>,MDI	
	X	<LABELe-TYPE:>,MLT	
	X	e0<MULTI-REEL:>,MRLeP	
	X	<PARITY:>,MepPR		
	X	<TRACKS:f>,MTK		
	X	<VOLUf0ME-SET:>,MVS	

fP

	X	<CFE>,HCF	fp	
	X	<CI>,HCI		
	X	<CPU>,HCP		
g0	X	<DISK>,HDI		
gP	X	<MONITOR-MEMORgpY>,HMM	
	X	<NI>,hHNI		
	X	<TAPE>,h0HTA		
	X	<UBAS>,hPHUB		
	X	<UNIT-RhpECORD>,HUR	
	X	<iLOG>,HLG		
	X	<Ci0ONTROLLER-MICROCODES>,HCM 

COgg

V x!e
	IFNB <B>,<TOPS10<A==B8>>
	IFNB <C>,<TXOPS20<A==C>>
PS20<A==C>>
ijp ij7p ij|p il}p i j~Q



	G$$ATB				

	GiuI7P'inL}PLi?kppi?lpi?l}pLi?4(H!lIFNFTUUOS,B			;DEFINEUNi?4HK!pIFNFTJSYS,	INTERN(AEDT	igPigX<P)AEDTo<tQ po<t]VQ @o<u+qQ  o<ux1Q oPu+qQ oPu86Q oPu:6Q @oPu[yQ  oPuiQ  oPuiWQ @oPui\Q oPv

[Q #`oPv:TQ oPv;RQ oR}X<P ap lT
	XLIST
iP	A==.ZZ
	.ZZ==.j@ZZ+1
	LIST
	SALL
	NOD.NXlq@ 0{
	A==:B
	A==:B	&

:` k~f
	IF2,<IFk0NDEF INTACK,<EXTEkPRN INTACK>>
	PUSkpHJ	P,INTACK
	JUMl`P	[ITEXT (A)]
	[ITEXT (A)]

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 $p $=p %I7p %h6p &;Vp &=p &[p 'tp 4+P  6VP  mhuQ  m|wQ n+;Q @uyP 9P  4VP   5TP  !6X;P   &2P  p*i9P /*|*2P @/JP'/JP'/JHP"9/J P'/J$P"8/J%lP"(/J0P'/J5lP")/J@P'/JU+P"8/JdJP":/J}P"/KP"9/KP"/LuP"+/LxP"I/LyP"/LzP"=/L9P"/LZP"/LP"A/LP"/LP!/LP"/LP"/LP"=/LSP"/LYP",/LuP"/LvP"5/LyP"?/LP"+/LP"/LPP"-/LYP",/L(:P /L(uP"</L)3P"/L*0P":/L*7P /L*yP!/L+7P"F/L+<P"E/L,P""/L,XP"A/L9P"5/L9P /L:P"-/L;P!/L;P"</L;7P"G/L;<P"F/L;QP!/L;ZP!/L<P")/L<P"/L<rP"#/L<}P"K/L=P"/L=P!/L=9P"/LD(P"*/LDHP"*/LH:P"G/LH<P"/LHwP"/LI3P!/LI6P!/LIVP"/LJ9P!/LKP"E/LKvP"//LLP"/LL[P"./LLuP"./LLvP!/LMP"#/LXQP"//L[:P"$/L[PP!/L[ZP!/L\VP"/L]WP"/L]ZP 	/L^P"@/L^P!/Lh6P 	/Lj6P"/LkyP"0/LkzP"	/LmyP!/MP!/MP!/M

xP"$/MP!/MwP"	/M6P"
/MQP"@/MTP"0/M+qP /M+vP"
/M,qP"I/M<P"/M<|P"B/MHvP"!/MI0P"/MIsP"

/MK<P"H/MKqP!/MKsP"

/ML	P"/MLzP"J/MY6P"/M[ZP /M[rP!/M\sP"/M]P"/M]P!/Mi:P"/MjxP"/MkP"J/Mk`P"1/MkrP"/MktP"/MkwP";/Mk{P"D/Ml1P /Ml4P" /Ml7P"!/MnP!/Mx6P"/MyP" /MySP"%/Mz0P"/M{@P"%/M{VP"/M|P"/M|P"/M|P /M}P"/N:P!	/N	vP"/NP /N

P">/N

TP"/N

VP"/N

VP"/N

ZP!
/N!/NVP"/N2P"/N)P /N)1P!
/N)3P"1/N)5P"/N)6P!/N)8P!

/N+:P""/N,P"&/N,P!/N,7P"/N,xP!

/N,zP!/N-P!;/N8yP"2/N91P"&/N9:P!/N:P!/N:P!/N::P"/N;P"?/N;RP!/N;tP"/N<[P"/N<vP"6/N=P!/N=P"2/N=P"/N=1P!/N=8P!/N=tP!/N=vP"'/N>9P"/NDHP"3/NH1P"/NH5P!/NH8P"3/NJ6P"/NK`P"/NKzP"'/NLPP"(/NLVP /NLyP"/NN8P"/NX;P"4/NXQP"C/NYQP"C/N[P!/N[TP"4/N[VP!/N\SP"6/N\YP!/N\sP"B/N\yP /N]P"/Nj2P"7/Nx4P!/NzP">/Nz|P"D/O9P"76~

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

>m1P">m	tP">mP">mKsP">m[rP">mi\P">mnP">myP">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<7P">n<wP">n=P">n=P">n=1P">n=8P"?%LP ?%X<P ?%[ZP ?%l1P ?%|P ?&P ?&

(xP K

)VP K

*QP K

=9P K$YVP K$]P N-P !ND;P @NLWP !&NL=P !%NLI7P !!NL\PP !&NMP !#NMQP !%NMHZP ! NMLzP !'NMi;P !'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$<rP O$MP O$[RP O$lVP O%P AO%wP O%I0P O%L	P 
O%Y6P O%]P 	O%ktP O%lwP O%mP 	O%z0P O%|P O&	vP O&

TP O&)P  O&,P O&;tP O&;wP O&=vP O&J6P O&KzP O&LPP O&]P 
O&x:P AO.	VP @O.
QP @O.

zPjAO<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=]YP$!O=huP$O=iP$O=i9P$

WP$O>

O>)6P$O>)8P$O>+:P$O>,P$	O>,wP$O>8 P$O>8tP$O>98P$	O>:P$
O>;wP$O><P$

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