PDP-10 Archive: 10,7/galaxy/quasar/qsrmac.unv from bb-jr93k-bb

Trailing-Edge - PDP-10 Archives - bb-jr93k-bb - 10,7/galaxy/quasar/qsrmac.unv

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

x
,U'@P C
yhrp C
yj2p C
yj:p C
ykWp C
yl}p C
ymp C
ym7p C
~\yP C

vlvP'pCjvP C,uh5Q C,vN8P'C4tQ pC4tPQ |C4t;P C4t;ZP C4tMZQ C4uI7Q xC4uXwP'~C4uh6P'C4v

VQ  C4v

YQC4v\rQ.@C6
	X	(BAT,S1.TYTTY)
	X	(LPT,.q.TYLPT)
	X	(PTP,S.TYPTP)
	X	(CDP,Rq.TYCDP)
	X	(PLT,.1.TYPLT)
	X	(RDR,.TYCDR)
	(RDR,C@P CNah9Q CNajQP CNakQQ  CNakXQ CNakYQ @CNalQ CNalVQ CNalpQ CNamvQ @CS&*1 )Qk			
	LSTO(IF.
	X	<Invalid>,(q%INVLD,0	
	X	<Lo*wer>,%LOWER,.OTLP*0T	
	X	<Upper>,%U*PPPER,.OTLPT	
	X	*p<Physical>,%PHYCL+,<.OTLPT,.OTPTP,.+0OTCDP,.OTPLT>
	X+P	<Generic>,%GENRC+p,-1	
	X	<Sitgo>,,%SITGO,.OTBAT	
	,0X	<Input>,%NQINP,,P.OTNQC	
	X	<Outp,put>,%NQOUT,.OTNQC-	
	X	<IBM batch>-0,%IBMBT,.OTBAT 
	LSTON.OTBAT 
E-+qQ E4P GqhVp Gql}p  GSP GJ;P G=P G]6P G thtQ @G tlzQ  G u(WP'G")iVp G")j7p G")j:p G")k9p G")lzp G")l}p G#:=P G0t(:P$G0t,2P'G0u+qQ xG2iiQp G2ijQp G2n:=p G4P G7
P G7
GPvG?)l}pzGDt+P:GDvN8P[GDv\rQxGLtIYPGLtiP'GLtkPGLu+qQxGLuKqP'~GNih1p 	GNih3p GNii7p GNiiRp GNiiVp GNiiXp GNiiYp GNijQp GNikp GNikZp GNiktp GNilWp GNim9p GNn:=p 
	RADIX 5.+5
	IF1,<IFDEF LV9.A,<PRINTX Mult.VX defined limit paVxrameter A>>
	IFWL <36-C>,<PRINTXW8 Illegal C for lWXimit A>
	IFL <3Wx5-D>,<PRINTX IllXegal position forX8 limit A>
	IFLEXX <EQLMSZ-B>,<PRIXxNTX Illegal B foYr limit A>
	L.Y8A==<BYTE (18) B YX(9) C,D>
	RADIX 4+4
>
	RADII6LUP I62 `&
	X	BAT
`1	X	LPT
	X	CDP
	`PX	PTP
	X	PLT
	X`p	MNT
	X	RET
	X	EVT
X	RET
	X	Ir%lP Ir5lP ItI1P It[:P ItkQQ xIu

xP Iu+qP'IuH:P Iv

WP IvLVP IjQp Ikzp Il}p I=Q INXI$v8:Q @I$vN8P'I&:=p I?: y 
	IFN <%%9.MOD-<SIXBIT /QUASAR/>>,<EXTERN G$YSCHD>
	SETOM	G$SCHD
	SETOM	G$SJP KDtzP!@KDtQ KDt:Q KDuWP KDu9P  KDu(QP KDuKtP'KDukzP KDum6P'KDv

TP KDv

WQ xKDv

[P KDv)P  KDv98Q |KDv<P @KDvlYQ xKDvx6P$KDvx6P"KF<}P KFF:=p ;KFN:=p 8KFe\}P KFu\}P KGF:=p ;KH$P KH$wP KH$+3P KH$9P

KH$9P KH$9P KH$<SP KH$KVP KH$\]P KH$yP KH%9P 	KH%VP KH%rP KH%P KH%6P 
KH%7P KH%:P KH%SP KH%P KH%P KH%pP KH%wP KH%wP KH%yP KH%P KH%WP KH%YP KH%Z7P KH%\P 
KH%\RP KH%\XP KH%]P KH%]P KH%]QP KH%jqP KH%kyP KH%lrP

KH%m0P KH%n7P KH&P KH&

QP+P KH&-P KH&9P KH&;\P KH&[yP KH&\7P KH&\9P KH&\zP KH&j2P KH&j:P KH&}WP 	KH'P KHt9P KK9 #
	LSTOF.

	X	BMG,<Bad MOqDIFY Group>,MF.FAAT
	X	ICM,<Illega`l CREATE Message>,MF.FAT
	X	IFS,< Illegal File Spec@ification>,MF.FAT`
	X	ILM,<Illegal LIST Message>,MF .FAT
	X	IFD,<Ill@egally Formatted `Device Name>,MF.FAT
	X	IMT,<Illeg al Message Type>,@MF.FAT
	X	INF,<I`llegal Number of 	Files>,MF.FAT
	X	 	IPE,<Insufficien	@t Privileges Enab	`led>,MF.FAT
	X	M
TL,<Message Too L
 ong>,MF.FAT
	X	M
@TS,<Message is To
`o Short>,MF.FAT
	X	NKC,<Not a Kno wn Component>,MF.@FAT
	X	NOR,<Numb`er Out of Range>,

MF.FAT
	X	NYO,<N

 ot Your Object>,M

@F.FAT
	X	SNY,<Sp

`ecifiedorequest.i
	X	UQN,<UnknoTSpe
	X	UQS,<Unknown Qu eue Specified>,MF@.FAT
	X	UOS,<Unk`nown Object Specified>,MF.FAT
	X	 WVN,<Wrong Versio@n Number>,MF.FAT
	X	IAS,<Invalid Account String Sp ecified>,MF.FAT
@	X	IMM,<Illegal M`OUNT Message>,MF.FAT
	X	MPN,<MOUN T Request Process@or Not Running>,M`F.FAT
	X	CDU,<Can't Default User  Name>,MF.FAT
	X	@CDD,<Can't Defaul`t Connected Directory>,MF.FAT
	X	 NSD,<No such devi@ce>,MF.FAT
	X	CD`A,<Can't Delete an Allocated reque st>,MF.FAT
	X	PR@B,<Privileges Req`uired for Bypass Label Processing> ,MF.FAT
	X	ICD,<@Illegal Connected` Directory Specified>,MF.FAT
	X	I FC,<Invalid Funct@ion Code Specifie`d>,MF.FAT
	X	MDA,<MDA is not supp orted in this mon@itor>,MF.FAT
	X	`SDY,<Specified Device is not Yours >,MF.FAT
	X	IVN,@<Invalid Volume S`et Name Specified>,MF.FAT
	X	ISS, <Invalid Switch S@pecified in a Str`ucture Mount Request>,MF.FAT
	X	M RP,<Mount Request@ is not Pending>,`MF.WRN
	X	MIN,<Mount Illegal for  'No Operator Inte@rvention' Request`>,MF.FAT
	X	IPB,<Invalid Path Blo ck Specified>,MF.@FAT
	X	IBL,<Inva`lid Block Length/Count Specified>, MF.FAT
	X	MVB,<M@ultiple Volume Se`t Name Blocks is Illegal>,MF.FAT
 	X	IMO,<Invalid m@essage received f`rom ORION>,MF.FAT
	X	NUA,<No Unit s Available for M@ounting this Requ`est>,MF.FAT
	X	R TE,<Route Table E  ntry does not Exi @st>,MF.FAT
	X	IS `O,<Invalid Source! Object Specified!  in Route Command!@>,MF.FAT
	X	IDO,!`<Invalid Destinat"ion Object Specif" ied in Route Comm"@and>,MF.FAT
	X	C"`RG,<Cannot Route #a Generic Unit>,M# F.FAT
	X	UST,<Un#@known device or s#`tructure name>,MF$.FAT
	X	ERZ,<Ers$ atz devices may n$@ot be mounted>,MF$`.FAT
	X	DNM,<Dev%ice may not be mo% unted>,MF.FAT
	X%@	VID,<Volume iden%`tifier must be sp&ecified>,MF.FAT
& 	X	VIU,<Volume id&@entifiers must be&` unique>,MF.FAT
'	X	ISA,<Illegal a' ttribute for stru'@cture mount reque'`st>,MF.FAT
	X	IT(A,<Illegal attrib( ute for tape moun(@t request>,MF.FAT(`
	X	ILN,<Illegal) logical name>,MF) .FAT
	X	IDE,<Inv)@alid density>,MF.)`FAT
	X	ILT,<Inva*lid label type>,M* F.FAT
	X	RNS,<Re*@elid not specifie*`d in mount comman+d>,MF.FAT
	X	APE+ ,<Already pending+@ Event Queue entr+`y>,MF.FAT
	X	ASN,,<Ambiguous struc, ture name>,MF.FAT,@  		;[1226]
	X	I,`SN,<Invalid struc-ture name>,MF.FAT- 		;[1226]
	X	GDN-@,<Generic devices-` may not be mount.ed>,MF.FAT ;[1226. ]
	X	PLD,<Pathol.@ogical name inval.`id>,MF.FAT		;[122/6]
	X	IER,<Inval/ id EQ request mes/@sage format>,MF.F/`AT
	X	MRD,<Multi0-reel DECtape vol0 ume-sets are not 0@permitted>,MF.FAT0`
	X	XXX,<This is1 a text buffer fo1 r messages built 1@on the fly. MAX 71`0 characters>,MF.FAT

	LSTON..KXt:Q  KXuZQ @KXvN8P KZ-m @A$=

X	TMR,@<TIMER >,.POPJ,.PUOPJ,<EV.INT>,<>	
X	KSY,<KSYS  >,I@a$SKSY,I$KKSY,<EV.ACHK>,<TimesharingA0 will end> 
X	SPAPL,<SPOOL >,.POPJ,Ap.POPJ,<EV.INT>,<>B	
X	ATO,<TAKFIL>B0,Q$EVTR,.POPJ,<0>BP,<Time-of-day OPRBp command file> 
CX	USG,<USGFIL>,I$C0UFIL,.POPJ,<0>,<UCPsage file closureCp>	
X	BIL,<BILCLSD>,I$UBIL,.POPJ,<0D0>,<Usage billing DPclosure>	
X	OPR,Dp<OPRFIL>,I$OCLS,.EPOPJ,<0>,<ORION lE0og file closure>	EP
X	LCK,<FSLOCK>,Ep.POPJ,.POPJ,<EV.IFNT>,<>	
X	IGN,<IF0GNORE>,.POPJ,.POPFPJ,<EV.INT>,<>	
XFp	AFT,<AFTER >,.POGPJ,.POPJ,<EV.INT>G0,<>	
X	NLC,<LOCKGPED>,.POPJ,.POPJ,<EV.INT>,<>	

Malp Malzp Mal}p MemP MF:=p M2,zP M:mMP M@tI6P$M@th|P M@tiSQ ~M@tkP"M@tlQ |M@tlxQ xM@uI7Q xM@u\YP M@uiTP!M@vyP  M@v(sQ ~M@v(vP M@v)7P M@v)VQ |M@v<P @M@wP MBn:=p MCF:=p MJmkyQ ]?X6MJn:=P MJn:hQ pMJn:iP MJn[TP MO*yP @MO,P MO,P MOiP MOj1P MO[YP MO\YP MOj1P MO

ZP _MO[P MO=Q gN`MO|P MR%eHQ MRL+9Q MRMiWQ MRV>9P MS) P MS2P MS.[yQ N:LP N:LP N:$X2Q N:%kyQ ]?X6N:%m1P N:&

TP N:5I0P N:5mP N:L9P tN:L;yP N:MKsP N:MLP dN:MZ7PN:NP N:N

TP 
O%J6 Zyt
	IFNDEF ZYL.C,<PRINTX UndeZ9fined limit paramZeter C>
	..Z==\IB
	..O==<L.C&77\h7777000000>_-^D18]
	..Z==..Z+..O
](	..S==<L.C&77700]H0>_-^D9
	..P==<L]h.C&777>
	..P==^^D35-..P
	..Z==..^(Z+<..S>B11+<..P>B^H5
	LDB	A,[EXP ..Z]
	A,[EXP .PP QtlVQ @Q
yiVp Q
ykzp Q
ylXp Q
yl}p Q4.2P$Q4kP'Q6i9Q xQaiVp QakVp QakWp Qakqp Qal}p 
QdQ;xQexUP'QuX<P'QukzQxSeZ7P&S;9P&tS;97P&S;;yP&S;KsP&S;X<P&S;z8P&S;	yP&dS;P&S; X:

=PX:KsQ](X:<PX:+qQ\$X:krQHX:|RQ$$X:J6Q$HX:$\P$$X:%KsQ+(X:46PKX:5Q=HX:5I0QjX:5|VPHX:MmYPX:t+Q$X:uyYPjX:u}QjHX:u}	QHX:}ZP X:}J6Q $X:}krQ  HX:~

Q  Y'

Q }PY'

(:Q @Y'

9Q Y'

]ZQY'QY':p Y'l}p Y>:=P YC$SP YC$(7P YC$J;P YC%	P YC%=P YC%]6P YC%kP YC&LVP YLtQ YLtlzQ  YLv+:P YLv=6Q YO!iZp YO!k9p YO!kZP YO%GP YO%yG 4H.
	IFNDEF 4hLSTIN.,LSTIN.==0	5	
IFE LSTIN.,<
5(	IFIDN <XCREF><A5H>,<.XCREF>	
		  5h XLIST>		
	LSTIN.==LSTIN.+1STINYO%{G 6(8
	IFG LST6HIN.,LSTIN.==LSTIN6h.-1	
	IFLE LSTIN7.,<.CREF		
		      LIST>
		   ZP [xU =%
	X	BAT,I=9NP,<<1,,77>,<0,,^=XD600>,0,<INPOIP,,=x0>,<1,,^D512>>
	>X	LPT,LPT,<<1,,77>8>,<1,,^D500>,<FRM>XNOR>,<FLEACT,,0>,>x0>
	X	PTP,PTP,<<?1,,77>,<1,,^D500>?8,<FRMNOR>,<FLEACT?X,,0>,0>
	X	CDP,C?xDP,<<1,,77>,<1,,^@D500>,<FRMNOR>,<F@8LEACT,,0>,0>
	X	@XPLT,PLT,<<1,,77>,@x<1,,^D30>,<FRMNORA>,<FLEACT,,0>,0>
	X	RDR,RDR,<0,0,AX0,0,0>
	X	BIN,BIAxN,<0,0,0,0,0>
	XB	DBM,DBM,<0,0,0,0B8,0>
	X	EVT,EVT,<BX0,0,0,0,0>
	X	FABxL,FAL,<<FALNTY>,0C,0,0,0>
	X	NQC,QC8NM,<<%NQOUT>,0,0,CX0,0>

   TOPS20Cx <
	X	RET,RET,<0D,0,0,0,0>
	X	NOTD8,NOT,<0,0,0,0,0>
          > ;END TOPS20

;END[3@ :P<<<1_<A>>-1>B<B>>_<A>>[@ ;d
	IFB <B;(>,<MAXSIZ==0
		I;HRP A,<IFG <A-MA;hXSIZ>,<MAXSIZ==A<>>>
	IFNB <B>,<<(B==0
		IRP A,<<HIFG <A-B>,<B==A>>>
B>,<B==[EJ6 c	<1_<WIDLIM(A)>>-1<WIDLIM[F)9P [F:=P [$::P [$H2P [$H:P [$IP 	[%P 	[%2P [%mTP [%mVP [&)P [&)P [&+P [&IP [&\QP [&\RP [&\VP [&\[P [&h:P [&j6P [&kRP [

H2Q [

\Y 2a#z
	LSTOF.

	X	NVM,<No Vol3!ume Mounted On Dr3@ive>
	X	VAU,<Vol3`ume is Already in4 Use>
	X	DAU,<Dr4 ive is Already in4@ Use>
	X	VIL,<Vo4`lume on Drive is 5Labeled>
	X	RDM,5 <Reelid does not 5@match user's requ5`est>
	X	URB,<Use6r Requested Bypas6 s Label Volumes>
	X	URL,<User Req6`uested Labeled Vo7lumes>
	X	URW,<U7 ser Requested Wri7@te-Locked Volumes7`>
	X	URE,<User R8equested Write-En8 abled Volumes>
	8@X	RDD,<Requested 8`Density Does not 9Match Volume Dens9 ity>
	X	VND,<Req9@uested Volume not9` on this Device>
	X	IUD,<Illegal : for unavailable d:@evice>
	X	RLD,<R:`equest Label Type; Doesn't Match Vo; lume Label Type>
	X	DAD,<Drive is;` already availabl<e>
	X	NVI,<VOLID<  Required for Thi<@s Volume>
	X	CIU<`,<Cannot identify= the Users Curren= t Volume>
	X	TDM=@,<Request Track t=`ype Doesn't Match> Device Type>
	X> 	DDD,<Device Allo>@cation Error - De>`adlock Detected>
	X	IDD,<Illegal ? density for drive>
	LSTON.drive[I7p 
[,Q [th:Q [4tKQ [4tyYQ [4ukzQ  [4v)6Q [4vx:Q @[>!iSp [>!irp [>!iwp [>!kzp [>!lXp [>!l}p [>${P'[>$|Q x[F5k( I SIXBIT\QSRMS1\SIXBIT\QSR[F5k) i SIXBIT\QSRMS2\SIXBIT\QSR[HtuQ [Ht;ZP'[HtK7Q [HtyYQ [Hu+qQ [HuKUQ x[HukzQ  [Hv2P [HvKWP'[HvLRQ x[Hvx:Q @[NF:=p [c-j:P ?[c.

TP 
]n:=P ] S8IF2,<IFDEFSX A,<A==A>> IFNDEF A,<A==B>]$Q ]$qp ]$(:p ]$,p ]$9p ]$;p ]$;vp ]$<rp ]%VQ ]%p ]%H:Q ]%KVp ]%Kqp ]%Lp ]%h6p ]%hYp ]%l1Q  ]%l{Q @]%m8Q ]%xUp ]%xVP ]%{VQ  ]&p ]&

WQ @]&]&,p ]&9wQ ]&:Q ]&:=p ]&<[Q  ]&=p ]&=vp ]'$[9@ ]CHVP ]CKP ]PtMP p]PtkQ |]PuJ7P']Pu[rQ 8]Pv

ZQ x]PvKzP']PvLPP ]PvN8Qu@]Pwu[Q u\Q 0u\VQ u]Q @v<wQ xvIWP'
%KQ  _
%M1Q _
Ql}p _
T8:p _
TH:p _
Up _
Ukrp _
V
2p _
V

Vp _
V*2p _
V8tp _
V:=p _
V=p 
V=p

_
VN8p _
V[TpX<P' Z7Qx ,}PQ@-9Q H0Q htQ lVQ lYQ @=Q =8Q  h1p ip kzp :=p uL	P#a>:=P a&!h|P'~a&!jQP a&!jQP'a&!kP'a&!kQ xa&!kQ xa&%+qp a&%KUp a&%h6p a&&
2p a&&:=p a3$SP a3$J;P 2a3%=P a3%]6P aHukwQ @aHv*2Q aJH: /1+
	X	BAT,B0ATCON,%DEMND,%GEN/RC,,<SET HPQ 0,SE/qT DSKPRI 0>
	X	L/QPT,LPTSPL,%DEMND,1<%GENRC,%LOWER,%U18PPER,%PHYCL>
	X	1X<PTP,CDP,PLT>,SPR1xOUT,%DEMND,%GENRC2
	X	RDR,CDRIVE,%28STCMD,%GENRC
	X	2XBIN,SPRINT,%DEMND2x,%GENRC
	X	FAL,F3AL,%STCMD,%GENRC,38<ANF10,DECNET>
	3XX	BAT,IBMSPL,%STC3xMD,%IBMBT,DN60
	4X	NQC,NEBULA,%ONC48E,<%NQOUT,%NQINP>4X,DECNET
REPEAT	04x,<
	X	FOO,FOOSPL5,%DEMND,%GENRC,,<58SET HPQ 15,SET DSKPRI 1>
>
 DSaJn=P aLtj9P aLu<|P aLv-7P aLvx:P aNkp aNJ6p aNh6p aNxUp aN
2p aN:=p 
aNYp aN4;ZQ xaN5kzP'aN6=Q `aNd=9Q xaNeX<P'aSSP

aSJ;P aS=P aS]6P ctLuQ ct^Q  cukqQ cv9Q @cv)6Q @cv8yQ  cvH8Q cvy7Q cv{Q ctzP!@ctQ ctTQ ctWQ ~ct*WQ xctKP'ctLQ xcuWP cu9P  cu(QP cukzP cv

TP cv

WQ xcv

[P'cvcv)P cv98Qv|cv<P @cv=Q$@cvZWP'cvl}P'cvx6P$cvx6P"cF:=p cFl}p c:tJ9P!c;tkP'~cOuyP @cOu[P"cOuh6Q xcux;PcOvzP cV-	 a1&;  ;MACRO TaQO GENERATE THE QUaqEUE HEADERS FROM bTHE QUEUES MACRO
	DEFINE	X(A,B,C,bQD,E,F,G,H,I,J,K,Lbp,M),<

	IFDIF	<cE><0>,<GLOB (E)>
	IFDIF	<H><0>,<GcPLOB (H)>
	IFDIF	cp<I><0>,<GLOB (I)>d

HDR'A::	INSVLd0.(<SIXBIT\   A\>,dPQH.NAM)!INSVL.(C,dpQH.TYP)!D
	EXP	0e
	XWD	E,INSVL.(Be0,QH.SIZ)
	EXP	F
	EXP	G
	EXP	H
ep	EXP	I
	EXP	[ASCfIZ \J\]
	EXP	[ASf0CIZ \K\]
	EXP	[AfPSCIZ \L\]
	EXP	[fpASCIZ \M\]
	>  ;gEND OF DEFINE X
g0	QUEUES			;NOW EXPAND QUEUES
EXcV.Y9 HQ%}

	LSTOFH1.

X EVT,QNTSIZe9,.QHTEV,QH.IKS,S$I1EVT,LIQEVT,.OTEVTIQ,DEPEVT,0,<Event>2!,<event>,<>,<>
XI INP,QNTSIZ,.QHTIHqP,0,S$INPT,LIQBATIq,.OTBAT,DEPBAT,LIJST.T,<Batch>,<jobJ0>,<runtime>,<execJPuting>
X LPT,QNTJpSIZ,.QHTOU,0,S$LPKT,LIQLPT,.OTLPT,DK0EPOUT,LIST.D,<PriKPnter>,<job>,<pageKps>,<printing>
X LPTP,QNTSIZ,.QHTOUL0,0,S$PTP,LIQPTP,.LPOTPTP,DEPOUT,LISTLp.D,<Paper tape puMnch>,<job>,<feet>M0,<punching>
X CDMPP,QNTSIZ,.QHTOU,0Mp,S$CDP,LIQCDP,.OTNCDP,DEPOUT,LIST.DN0,<Card punch>,<joNPb>,<cards>,<punchNping>
X PLT,QNTSIOZ,.QHTOU,0,S$PLT,O0LIQPLT,.OTPLT,DEPOPOUT,LIST.D,<PlottOper>,<job>,<minutePs>,<plotting>
X P0RET,QNTSIZ,.QHTARPP,QH.INV,S$RET,LIQPpRET,.OTRET,DEPRETQ,LIST.D,<File retQ0rieval>,<requestsQP>,<>,<retrieving>Qp
X NOT,QNTSIZ,.QRHTAR,QH.INV,S$NOTR0,0,0,0,0,<>,<>,<>RP,<>
X BIN,QNTSIZRp,.QHTIP,QH.INV,S$SBIN,0,.OTBIN,0,0,S0<Interpreter>,<joSPbs>,<decks>,<inteSprpreting>
X DBM,TQNTSIZ,.QHFRR,QH.T0IKS!QH.INV,S$DBM,TP0,.OTDBM,0,0,<>,<Tp>,<>,<>
X RDR,QNUTSIZ,.QHFRR,0,S$RU0DR,0,.OTRDR,0,0,<UP>,<>,<>,<>
XVSPLUp,SPLSIZ,.QHTQS,QHV.IKS!QH.INV,0,0,0V0,0,0,<>,<>,<>,<>
X PSB,PSBSIZ,.QHVpTQS,QH.IKS!QH.INVW,0,0,0,0,0,<>,<>,W0<>,<>
X OBJ,OBJSWPIZ,.QHTQS,QH.IKS!WpQH.INV,0,0,0,0,0,X<>,<>,<>,<>
X USX0E,USESIZ,.QHTQS,QXPH.IKS!QH.INV,0,0,Xp0,0,0,<>,<>,<>,<>Y
X STR,STRSIZ,.QY0HTQS,QH.IKS!QH.INYPV,0,0,0,0,0,<>,<>Yp,<>,<>
X NET,NETZSIZ,.QHTQS,QH.IKSZ0!QH.INV,0,0,.OTNCZPU,0,0,<>,<>,<>,<>Zp
IFN FTINFO,<
X[ PID,PIDSIZ,.QHTQ[0S,QH.IKS!QH.INV!Q[PH.VAR,0,0,0,0,0,<[p>,<>,<>,<>
>
X \IPC,IPCSIZ,.QHTQS\0,QH.IKS!QH.INV!QH\P.VAR,0,0,0,0,0,<>\p,<>,<>,<>
X FAL,]QNTSIZ,.QHFRR,0,S]0$FAL,0,.OTFAL,0,0]P,<>,<>,<>,<>
X O]pDB,ODBSIZ,.QHTQS,^QH.IKS!QH.INV!QH.^0VAR,0,0,0,0,0,<>,^P<>,<>,<>
X QNM,Q^pNMSIZ,.QHTQS,QH.I_KS!QH.INV!QH.OAV,_0S$NQC,0,.OTNQC,0,_P0,<>,<>,<>,<>

	LSTON.>,<>

eYj:p eYkWp eYl}p eYmp eYm7p e\}p e:=p e.:=P eahUp eahVp eaiRp eaiVp eaj:p eal}p eamp e	iVp e	j7p e	j:p e	l}p etWQ @et<zP'etI1Q xe"luP'e0tKQ @e0u+qP'e0v<Q  e31hrP e6]I7P e<tQ xe<v
Q@e<v[TP'e>:=p eDuWQ @eDv+Q  eDvJ6P eLt;Zp eLu\sp eLv81p eO)hrp eO)hwp eO)ip eO)iVp eO)kWp eO)lp eO)l}p eO)mp eO)m7p eO)m:p eR-I7p eR-xHp eR-xIp gl}p gDI3P gDjQP gEKUP gE[rP gF*TP gF8tP gt*:P g4,RQ g4,I3Q g4,^Q  g4-kqQ g4.9Q @g4t;ZP'g4uwQ @g6
   XLIST6

6xDEFINE X (68OTYP,PNAM,PTYP,PA6XTR,PDEP,PTXT), <
      PRCTYP (PN7AM,PTYP)
   >
78
   ..CNT==0
   7X.XCREF ..CNT

 7x     DEFINE PRCTY8P (PN,PT), <
   88      IFIDN <A><8XPN>, <
         8x   IFG ..CNT-0, <9      
         98         IF1,<
 9X        	     PRI9xNTX ?More than on:e entry in PRCDAT:8 for same process:Xor
             :x     >
         ;   >

         ;8   B=='PT		
   ;X         ..CNT==.;x.CNT+1	
        < >
      >

  <8    PRCDAT			

<X   PURGE ..CNT
   LIST
.CNT
gg@t(:Pg@tIYP@g@t^Qxg@tkQk0g@u+qQxg@uKqP'~g@v=Q `g@vN8P gBah1p 	gBah3p gBahxp gBaip gBaip gBai7p gBai<p gBaiVp gBaiWp gBaiYp gBajp gBajQp gBakp gBakRp gBalsp gBalzp gBal}p

TP gBf+qp gBf,=p gBf:=p gBf=Q INXgCLLP'gCM+qQ xgCMI7P'gPuKuQ  gPuySP gPuyVQ @gPu{@P gPv

TP gPv91P gRM9 G
	LSTOF.
		X	<Invalid>,%IGPNVLD,100
		X	<IdGple>,%IDLE,0
		X	H<Active>,%ACTIV,0H0
		X	<Stopped>,%HPSTOPD,0
		X	<NotHp Started>,%NSTRT,I0
		X	<Not AvailI0able>,%NAVAL,0
	IP	X	<No PTYs>,%NPTIpYS,.OTBAT
		X	<OJffline>,%OFLNE,<.J0OTLPT,.OTPTP,.OTCJPDP,.OTPLT,.OTRDR>Jp
		X	<System FulKl>,%SFULL,.OTBAT
		X	<Shutting DoKPwn>,%SHTDN,0
		XKp	<Aborting>,%CNCLLG,0
		X	<Opr ResL0p Wait>,%OREWT,0
		X	<Aligning FoLprms>,%ALIGN,.OTLPMT
		X	<>,%RESET,M00
		X	<Reading>,MP%READN,.OTRDR
		MpX	<Requeing>,%REQNUE,0
		X	<ShuttiN0ng Down>,%SHUTD,0NP
		X	<Opr OutputNp Wait>,%OPRWT,.OTOLPT
		X	<Stop isO0 Pending>,%STPPN,OP0
		X	<No procesOpsor>,%NOPRC,0
		PX	<Changing FormsP0>,%FRMCH,<.OTLPT,PP.OTPLT,.OTPTP,.OTPpCDP>
		X	<ConnecQting>,%CNECT,<.OTQ0NQC,.OTFAL>
		X	QP<Mount wait>,%MWAQpIT,0
		X	<InactiRve>,%INACT,0
	LSTON.NACT,0
	LSgR}J6 _	
	IFNDEF _)L.C,<PRINTX Unde_Hfined limit param_heter C>
	..Z==`B
	..O==<L.C&77`(7777000000>_-^D18`H
	..Z==..Z+..O
`h	..S==<L.C&77700a0>_-^D9
	..P==<La(.C&777>
	..P==^aHD35-..P
	..Z==..ahZ+<..S>B11+<..P>Bb5
	DPB	A,[EXP ..Z]
	A,[EXP .gSh6p gS:=p gS=p gS{VQ  gS:=P gS<{Q @gS)hrp gS)k<p gS)lp gS)lQp gS)lzp gS)l}p gV5ZQ gV5H:Q  gV5L	Q gV6:Q @gV6<[Q gWhwp gWiVp gWkp

gWk:p gWkWp gWlzp gWl}p gWmp gWm7p gWm:p gWmYp gg

V 0!q
	IFNB <PB>,<TOPS10<A==Bp>>
	IFNB <C>,<TOPS20<A==C>>
PS20<A==C>>
ivl{P$i!iP'i!iVQ xi&m{PP i4,.8Q i4-i;Q  i4-m6Q i4-|{Q i4.8yQ @i4.i\Q i4.y7Q i4.{Q i>qmP i?4( !xIFN FTUUOS,B			;DEFINE UNi?4H @!|IFN FTJSYS,	INTERN AEDT	iLtI7Q `iLuH1Q @jDtlQQ @k

rHQ k

r$Q k

rU+Q k

rdJQ k

sQ k

tPQ  k

tYQ @k

tMZQ k

uTP k

u=Q |k

uyVQ k

v,wP ?pk

v96Q @k

v:P @k

v=xP k

vLUP k

v]P#k

vl{P k

v{Q  kI7p kN.:=P m$u+qQ xm$uMQ ~m$v{Q m0t9Q m0tuQ  m0twQ @m0t;ZQ xm0tI7Q @m0tkQ ~m0tlQP"m0uHZQ <m0uHuQ m0uM7Q @m0unP'm0u}wQ m0v

[Q xm0v)6Q  m0v,wP m0v8yQ m0v:Q m0v<RP$m0v=Q pm>eI7p mKc@ R8%BYTE (3)ARXWHO (9)AVER (6)AMIN (18)AEDTmLtWP  mLtP'mLtP mLtQ  mLtRP mLt;Q mLt;ZQ xmLt=P mLtIP mLtI7P'mLtLP mLtMP mLtiP @mLuTP mLuHZQ mLuI7Q xmLuKUP'mLu]rP mLu]vP  mLui;Q mLuk:P @mLukqP"mLuySP'~mLu|Q mLv9P$mLv

RP mLv

ZQ `mLv)6P mLv)6Q mLv,wP `mLv8yQ  mLv:7P!mLvLUP pmLvN8Q pmLvX6Q mLvl{Q @mLvx6Q mLv{Q mN%I7p mNeI7p mNuI7P mNv:=P o&%J6 bI<L.A&777000>_-^D9A&7770oPu[yQ  p ?A#|

.EVA==<ZZ==ZZ+1>	MD$A==q@ h~
	A==:B
	A==:BuhPP$X2P$h6P&<P&H6P,;TP,;WP-XP-}:P<[VPL;ZPNrPNsPNtPNzP N<P l87P l:P lI3P m:6P mLzP m[rP mnP n)6P n)8P uH8P u}`P 
	IFNDEF fY$$A,<
		PRINTX fxUNDEFINED COUNTERg A USED
	>
	IFg8NDEF	G$ITEM,<EXTEgXRN G$ITEM>
	AOS G$ITEM+$$A
S 	+8 31
	LSTOF.
	  PUSHJ	P,D$MDAeyE
	  CAI	<<B>B2f3!<A>B35>
	LSTON.A>B35>
	LSTO	'$[  j{
	LSTOF.
	X	(ICNT,Number jXof items in recorjxd)
	X	(NOW,Curreknt time of day)
k8	X	(STAR,QUASAR'skX start time)
	X	kx(QJOB,QUASAR's jolb number)
	X	(IPl8CI,Total number olXf IPCF interruptslx received)
	X	(RmIPC,IPCF messagesm8 received)
	X	(SmXIPC,IPCF messagesmx sent)
	X	(IPCF,nIPCF send failuren8s)
	X	(IPCU,UnrenXcoverable IPCF senxnd failures)
	X	o(MREL,RELEASE meso8sages received)
oX	X	(MCHK,CHECKPOIoxNT messages receipved)
	X	(MREQ,REp8QUEUE messages repXceived)
	X	(MNXTpx,Total NEXTJOB meqssages sent by tyq8pe)
	X	(MLST,LISqXT messages receivqxed)
	X	(NLAP,LISrTANSWER pages senr8t)
	X	(SCRE,SuccrXessful creates dorxne)
	X	(MMOD,MODsIFY messages reces8ived)
	X	(MKIL,KsXILL messages recesxived)
	X	(MDEF,DtEFER messages rect8eived)
	X	(ISPL,tXImmediate SPOOL mtxessages received)u
	X	(DSPL,Deferru8ed SPOOL messagesuX received)
	X	(MuxCAN,COUNTANSWER mvessages sent)
	Xv8	(SLCD,Scheduler vXloop countdowns)
	X	(DEAD,MDA deawdlock avoidance cw8alls)
	X	(DFAL,MwXDA deadlock avoidwxance failures)
	xX	(VSWM,Volume swx8itch tape mount)
	X	(TAPM,Tape moxxunt)
	X	(STRM,Phyysical structure y8mount)
	X	(USTM,yXUser structure moyxunt)
	X	(GENM,Gezneric mount)
	X	z8(TINP,TerminationzX batch requests)
	X	(TOUT,Termina{tion print reques{8ts)
	X	(TCNI,Ter{Xmination console {xinput)
	X	(TCNO,|Termination conso|8le output)
	X	(E|XINP,Emulation bat|xch requests)
	X	}(EOUT,Emulation p}8rint requests)
	}XX	(ECNI,Emulation}x console input)
~	X	(ECNO,Emulatio~8n console output)~X
	X	(IPCE,Resend~x queue expirations)
	X	(DTAM,DECt8ape mounts)
	LSTON.ounts)
	LST	NNI6 hM
	IFNDEF h9$$B,<
		PRINTX hXUNDEFINED COUNTERhx B USED
	>
	IFiNDEF	G$ITEM,<EXTEi8RN G$ITEM>
	STORiXE A,G$ITEM+$$B
A,G$ITEM+$$B
vyP J;P &=P ewP %X<P 
RP 9P vP KP t;P tXzP 
-I:P-[RPN:`P[ZP@]PP$PP&kvPPj4PPk`PPMlPP~]PP5kzP 89P 8QP 8TP :6P |SP H9P H9P KqP LzP 9P TP 
6P H9P HTP J1P J6P 	TP 
-lQP "f$ P &XZP &%I P &tzP &vkP 2f$ P 2|:rP 2|:xP 2~y9P 6%X<P 6vKWP 6~[ZP 7<:P :h6P :~

QP	:~JQP:~K6P:~MP;N9P;?-zP ?]zP BGvP C\rP J(:P JI6P J,P J-h6P J.2P J.9:P JdWP Jdj9P JenP Jf

[P Jn=P KYP K[PP K[QP K[uP N6[P NFIP NF]P NNIwP O$1P O$P O$7P O$7P O$zP O$;2P O%X<P O%|P O&

P 	O&(`P R	 P Rj P Rk`P R4YP R4XQP R5HXP R5X<P R5Z7P R6DHQ R6[VP R6[[P RMlP R~]P S5`P S6 P S5{P Vd:xP Vu;@P VuHuP W	9P Z

-Q Z @Z}HVP Z}LqP [%]@Q [>-Q @j.$ P ;GP 
P )7P YRP l;Zp lKp m	p mh6p n<p n=p &Jp &Lp &Lqp &M7p 
dKp 
dKVp 
dK{p 
dLwP 
dM7P S@P

8:P

kp yP ,wp j2p kp kp kVp lqp lvp lwp m9p 5J2p 5Kp 5LP 5Lzp 69YP 6;p 6;[p 6;wp 6;{p 5:6P 6)6P L)p L)p f*2p f:=p f=P mlXP 
2p M7p \zP np

p :=p ;Vp =P &=P

zp

Zp

+|p

:p

:P %

<zp )

I1p .

I8p !

lVP ':p 8

}p ;VP !*2P +qp 98P <p Np !\yp 4ZP 4P 4*6P 5wP 5<|P 5HuP 5X<P 5\}p 5kP 5|P 6-p 6<P 6K9P 6N8p 6Yp 6\sP d(P fP h4P h9P hwP iWP j6P kVp lHp lIp lpP lzp Sp I7p X<P {Vp ~p (rp X5P 2P 3KRP 3(VP 3+qP 3
2P 3RP 3VP 32P 3[ZP 3\vP 3\yP 3]P 6Hxp 6IP  6Ip 6Lp 6L9p 6M9p 6%[P 6,;Zp 6,kp 6-	p 6-

}p 6lzp |6lQp 6l88p {6lkp 6m

}p 6mp y6mh6p 6n
2p y6nX9p 6nXrp z6n[9p z6n[<p y6n[Wp {6n\yp 6v)P 6v)1P 6v+VP 6v-P 6v9P 6vLzP 6vMP 6v[UP 6|H1P 6|K4P 6|LP 7up 7zp 7;Zp 	7kp 7+qp 7Ksp 	7h6p 7krp 7
2p 70p 7Mp 7\yp 7lvp 
7$p 7$7p 7%P 7&
2P 7&=P 7&N8P 7&kvP >.:P >;wP >;yP >kP >YP >YP >YP >\P >\P >\P >\RP >\WP >\\P >iP >mP >

TP ><wP >=P >H8P >J6P >5IP >5I0Q x>5KWP >5N2P >t.:P >t;wP >uKUP >ukrP >|kP >|lVP >}J6P >}]P >~

TP >~H8P >~[ZP >~lwP ?WP ?YP ?\P ?*7Q x?%X<P FI7P FLKP FLLP FL[P FH1P FIwP FKVP FMP FYP FYSP F)6P F+5P FIP FLUP FkP FkvP FzP 	FZP FzP F)wP F+P

F9P Fj6P FlVP FlYP F(WP 
FkzP

FmP FyP Fz2P F

QP F

TP F2P 
F)9P F[TP F[ZP F,zp F,<Rp F,J7p F-p F-p F-(Qp F-(Wp F-+qP F-J6p

Zp F.Vp 	F.*2P F.+qp F.98P F.=p F.\yP F.l}p FDI8p FDlYP FEJ9p FEKUp FEL7p FEkzp FExUp FF3p FF<7p FF<:p FF=6p FFH9P FFI;P FFJ8P FFK2P FFKzP FFL9P FFN8p FLkQP$FN):P"F|WP F|uP F|P F|vP F|P F|+P F|+P F|+P F|87P F|8:P F|:P F|;zP F|<2P F|<RP F|IYP F|LvP F|MYP F|\0P F|\9P F|h9P F|htP F|yYP F}WP 
F}	6P F}VP F}P F}:6P F}<|P F}H1P F}H7P F}J9P F}X9P F}X:P F}[PP F}[ZP

F}[rP F}]P F}]P F}{P F~

VP F~(uP F~(zP F~)1P F~)6P F~)8P F~);P F~+zP F~,zP 	F~=P

F~=8P 	F~LzP F~[VP F~iP F~k7P F~lrP F~lyP JH;` JK` JMYP J$)9p J$*Qp J$*Vp J$+tp J$+vp J$,Xp J$-Yp J,9p J,9P J,<}p J-Zp J-\wp Jfhrp JfkvP Jfl}p J|(:p J|+Rp J|-p J|-0p J|-:p KJp KJQp NlP Nlkp Nm+qp Nmh6P Nn)9P OIRP OITP O$kp O%I7p O&=P O&[Zp R$<Rp R$=yp R$I;p R$Mp R$Mp R$MZp R%	p R%

Rp R%(Wp R%Z7p R&<Rp R&=rp R4DP R4D+P R4DHP R4E*P R4EIP R4FP R5H6P R5HXP R5J6P R5KVP R5K[P Rf:=p Rf=P Rfkvp RlI7P RlK<P RlLKP RlLLP RlLRP RlL[P Rl^P RmTP RmKVP RmMP Rn+5P Rn9:P Rn=P RnkvP RnlP R}ip R}jp R}lzp V(:p V(wp V+Vp V,hP V,hp V,zp V-Vp V-Yp Zdkp ZeMp Ze]p Zeh6p Zenp Zez2p Ze}wp Zf
2p [)6p [)Vp [*2p [8tp [Np [Xqp [kvp [lwp b
p bwoP