Google
 

Trailing-Edge - PDP-10 Archives - tops10_tools_bb-fp64b-sb - 10,7/galtol/qsrmv5.unv
There is 1 other file named qsrmv5.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,LA.TYTTY)
	X	(LPT,'a.TYLPT)
	X	(PTP,L!.TYPTP)
	X	(CDP,L.TYCDP)
	X	(PLT,'!.TYPLT)
	X	(RDR,.TYCDR)
	(RDR,C@P CNah9Q CNajQP CNakQQ  CNakXQ CNakYQ @CNalQ CNalVQ CNalpQ CNamvQ @CS&*1 "A2			
	LSTO!QF.
	X	<Invalid>,!)%INVLD,0	
	X	<Lo#wer>,%LOWER,.OTLP# T	
	X	<Upper>,%U#@PPER,.OTLPT	
	X	#`<Physical>,%PHYCL$,<.OTLPT,.OTPTP,.$ OTCDP,.OTPLT>
	X$@	<Generic>,%GENRC$`,-1	
	X	<Sitgo>,%%SITGO,.OTBAT	
	% X	<Input>,%NQINP,%@.OTNQC	
	X	<Outp%`ut>,%NQOUT,.OTNQC&	
	X	<IBM batch>& ,%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 LOI.A,<PRINTX Mult.Oh defined limit paPrameter A>>
	IFP(L <36-C>,<PRINTXPH Illegal C for lPhimit A>
	IFL <3Q5-D>,<PRINTX IllQ(egal position forQH limit A>
	IFLEQh <EQLMSZ-B>,<PRIRNTX Illegal B foR(r limit A>
	L.RHA==<BYTE (18) B Rh(9) C,D>
	RADIX 4+4
>
	RADII6LUP I62 Y%O
	X	BAT
Y9	X	LPT
	X	CDP
	YXX	PTP
	X	PLT
	XYx	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	N
	IFN <%%yI.MOD-<SIXBIT /QUAy)SAR/>>,<EXTERN G$yiSCHD>
	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 ~"V
	LSTOF.

	X	BMG,<Bad MO}yDIFY Group>,MF.FA~IT
	X	ICM,<Illega~hl CREATE Message>,MF.FAT
	X	IFS,<(Illegal File SpecHification>,MF.FATh
	X	ILM,<Illegal LIST Message>,MF(.FAT
	X	IFD,<IllHegally Formatted hDevice Name>,MF.FAT
	X	IMT,<Illeg(al Message Type>,HMF.FAT
	X	INF,<Ihllegal Number of Files>,MF.FAT
	X(	IPE,<InsufficienHt Privileges Enabhled>,MF.FAT
	X	MTL,<Message Too L(ong>,MF.FAT
	X	MHTS,<Message is Toho Short>,MF.FAT
	X	NKC,<Not a Kno(wn Component>,MF.HFAT
	X	NOR,<Numbher Out of Range>,MF.FAT
	X	NYO,<N(ot Your Object>,MHF.FAT
	X	SNY,<Sphecified request is Not Yours>,MF.F(AT
	X	UQN,<UnknoHwn Queue Name Spehcified>,MF.FAT
	X	UQS,<Unknown Qu(eue Specified>,MFH.FAT
	X	UOS,<Unkhnown Object Specified>,MF.FAT
	X	(WVN,<Wrong VersioHn Number>,MF.FAT
	X	IAS,<Invalid 	Account String Sp	(ecified>,MF.FAT
	H	X	IMM,<Illegal M	hOUNT Message>,MF.
FAT
	X	MPN,<MOUN
(T Request Process
Hor Not Running>,M
hF.FAT
	X	CDU,<Can't Default User (Name>,MF.FAT
	X	HCDD,<Can't Defaulht Connected Direc
tory>,MF.FAT
	X	
(NSD,<No such devi
Hce>,MF.FAT
	X	CD
hA,<Can'ttDeleteua
	X	PRivilegesaReqLabel Processing>(,MF.FAT
	X	ICD,<HIllegal Connectedh Directory Specified>,MF.FAT
	X	I(FC,<Invalid FunctHion Code Specifiehd>,MF.FAT
	X	MDA,<MDA is not supp(orted in this monHitor>,MF.FAT
	X	hSDY,<Specified Device is not Yours(>,MF.FAT
	X	IVN,H<Invalid Volume Shet Name Specified>,MF.FAT
	X	ISS,(<Invalid Switch SHpecified in a Strhucture Mount Request>,MF.FAT
	X	M(RP,<Mount RequestH is not Pending>,hMF.WRN
	X	MIN,<Mount Illegal for ('No Operator InteHrvention' Requesth>,MF.FAT
	X	IPB,<Invalid Path Blo(ck Specified>,MF.HFAT
	X	IBL,<Invahlid Block Length/Count Specified>,(MF.FAT
	X	MVB,<MHultiple Volume Seht Name Blocks is Illegal>,MF.FAT
(	X	IMO,<Invalid mHessage received fhrom ORION>,MF.FAT
	X	NUA,<No Unit(s Available for MHounting this Requhest>,MF.FAT
	X	RTE,<Route Table E(ntry does not ExiHst>,MF.FAT
	X	IShO,<Invalid Source Object Specified( in Route CommandH>,MF.FAT
	X	IDO,h<Invalid Destination Object Specif(ied in Route CommHand>,MF.FAT
	X	ChRG,<Cannot Route a Generic Unit>,M(F.FAT
	X	UST,<UnHknown device or shtructure name>,MF.FAT
	X	ERZ,<Ers(atz devices may nHot be mounted>,MFh.FAT
	X	DNM,<Device may not be mo(unted>,MF.FAT
	XH	VID,<Volume idenhtifier must be specified>,MF.FAT
(	X	VIU,<Volume idHentifiers must beh unique>,MF.FAT
 	X	ISA,<Illegal a (ttribute for stru Hcture mount reque hst>,MF.FAT
	X	IT!A,<Illegal attrib!(ute for tape moun!Ht request>,MF.FAT!h
	X	ILN,<Illegal" logical name>,MF"(.FAT
	X	IDE,<Inv"Halid density>,MF."hFAT
	X	ILT,<Inva#lid label type>,M#(F.FAT
	X	RNS,<Re#Helid not specifie#hd in mount comman$d>,MF.FAT
	X	APE$(,<Already pending$H Event Queue entr$hy>,MF.FAT
	X	ASN%,<Ambiguous struc%(ture name>,MF.FAT%H  		;[1226]
	X	I%hSN,<Invalid struc&ture name>,MF.FAT&(		;[1226]
	X	GDN&H,<Generic devices&h may not be mount'ed>,MF.FAT ;[1226'(]
	X	PLD,<Pathol'Hogical name inval'hid>,MF.FAT		;[122(6]
	X	IER,<Inval((id EQ request mes(Hsage format>,MF.F(hAT
	X	MRD,<Multi)-reel DECtape vol)(ume-sets are not )Hpermitted>,MF.FAT)h
	X	XXX,<This is* a text buffer fo*(r messages built *Hon the fly. MAX 7*h0 characters>,MF.FAT

	LSTON..KXt:Q  KXuZQ @KXvN8P KZ-m 9I$

X	TMR,9	<TIMER >,.POPJ,.PN)OPJ,<EV.INT>,<>	
X	KSY,<KSYS  >,I9i$SKSY,I$KKSY,<EV.:CHK>,<Timesharing:8 will end> 
X	SP:XL,<SPOOL >,.POPJ,:x.POPJ,<EV.INT>,<>;	
X	ATO,<TAKFIL>;8,Q$EVTR,.POPJ,<0>;X,<Time-of-day OPR;x command file> 
<X	USG,<USGFIL>,I$<8UFIL,.POPJ,<0>,<U<Xsage file closure<x>	
X	BIL,<BILCLS=>,I$UBIL,.POPJ,<0=8>,<Usage billing =Xclosure>	
X	OPR,=x<OPRFIL>,I$OCLS,.>POPJ,<0>,<ORION l>8og file closure>	>X
X	LCK,<FSLOCK>,>x.POPJ,.POPJ,<EV.I?NT>,<>	
X	IGN,<I?8GNORE>,.POPJ,.POP?XJ,<EV.INT>,<>	
X?x	AFT,<AFTER >,.PO@PJ,.POPJ,<EV.INT>@8,<>	
X	NLC,<LOCK@XED>,.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 MR&`Q 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 T	=
	IFNDEF SiL.C,<PRINTX UndeSIfined limit paramS)eter C>
	..Z==UYB
	..O==<L.C&77Ux7777000000>_-^D18V
	..Z==..Z+..O
V8	..S==<L.C&77700VX0>_-^D9
	..P==<LVx.C&777>
	..P==^WD35-..P
	..Z==..W8Z+<..S>B11+<..P>BWX5
	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 3#
	IFNDEF 30LSTIN.,LSTIN.==0	3P	
IFE LSTIN.,<
3p	IFIDN <XCREF><A4>,<.XCREF>	
		  40 XLIST>		
	LSTIN.==LSTIN.+1STINYO%{G 4p-
	IFG LST5IN.,LSTIN.==LSTIN50.-1	
	IFLE LSTIN5P.,<.CREF		
		      LIST>
		   ZP [xU 6)n
	X	BAT,I6INP,<<1,,77>,<0,,^6hD600>,0,<INPOIP,,70>,<1,,^D512>>
	7(X	LPT,LPT,<<1,,777H>,<1,,^D500>,<FRM7hNOR>,<FLEACT,,0>,80>
	X	PTP,PTP,<<8(1,,77>,<1,,^D500>8H,<FRMNOR>,<FLEACT8h,,0>,0>
	X	CDP,C9DP,<<1,,77>,<1,,^9(D500>,<FRMNOR>,<F9HLEACT,,0>,0>
	X	9hPLT,PLT,<<1,,77>,:<1,,^D30>,<FRMNOR:(>,<FLEACT,,0>,0>
	X	RDR,RDR,<0,0,:h0,0,0>
	X	BIN,BI;N,<0,0,0,0,0>
	X;(	DBM,DBM,<0,0,0,0;H,0>
	X	EVT,EVT,<;h0,0,0,0,0>
	X	FA<L,FAL,<<FALNTY>,0<(,0,0,0>
	X	NQC,Q<HNM,<<%NQOUT>,0,0,<h0,0>

   TOPS20= <
	X	RET,RET,<0=(,0,0,0,0>
	X	NOT=H,NOT,<0,0,0,0,0>
          > ;END TOPS20

;END[3@ 8PE<<<1_<A>>-1>B<B>>_<A>>[@ 9PY
	IFB <B9p>,<MAXSIZ==0
		I:RP A,<IFG <A-MA:0XSIZ>,<MAXSIZ==A:P>>>
	IFNB <B>,<:pB==0
		IRP A,<;IFG <A-B>,<B==A>>>
B>,<B==[EJ6 \a<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 +i#B
	LSTOF.

	X	NVM,<No Vol,)ume Mounted On Dr,Hive>
	X	VAU,<Vol,hume is Already in- Use>
	X	DAU,<Dr-(ive is Already in-H Use>
	X	VIL,<Vo-hlume on Drive is .Labeled>
	X	RDM,.(<Reelid does not .Hmatch user's requ.hest>
	X	URB,<Use/r Requested Bypas/(s Label Volumes>
	X	URL,<User Req/huested Labeled Vo0lumes>
	X	URW,<U0(ser Requested Wri0Hte-Locked Volumes0h>
	X	URE,<User R1equested Write-En1(abled Volumes>
	1HX	RDD,<Requested 1hDensity Does not 2Match Volume Dens2(ity>
	X	VND,<Req2Huested Volume not2h on this Device>
	X	IUD,<Illegal 3(for unavailable d3Hevice>
	X	RLD,<R3hequest Label Type4 Doesn't Match Vo4(lume Label Type>
	X	DAD,<Drive is4h already availabl5e>
	X	NVI,<VOLID5( Required for Thi5Hs Volume>
	X	CIU5h,<Cannot identify6 the Users Curren6(t Volume>
	X	TDM6H,<Request Track t6hype Doesn't Match7 Device Type>
	X7(	DDD,<Device Allo7Hcation Error - De7hadlock Detected>
	X	IDD,<Illegal 8(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( |QeSIXBIT\QSRMS1\SIXBIT\QSR[F5k) |qgSIXBIT\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 ] RIF2,<IFDEFR  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: (!t
	X	BAT,B)ATCON,%DEMND,%GEN(RC,,<SET HPQ 0,SE(aT DSKPRI 0>
	X	L(APT,LPTSPL,%DEMND,*	<%GENRC,%LOWER,%U*(PPER,%PHYCL>
	X	*H<PTP,CDP,PLT>,SPR*hOUT,%DEMND,%GENRC+
	X	RDR,CDRIVE,%+(STCMD,%GENRC
	X	+HBIN,SPRINT,%DEMND+h,%GENRC
	X	FAL,F,AL,%STCMD,%GENRC,,(<ANF10,DECNET>
	,HX	BAT,IBMSPL,%STC,hMD,%IBMBT,DN60
I-FN FTDQS,<
	X	NQ-(C,NEBULA,%ONCE,<%-HNQOUT,%NQINP>,DEC-hNET
>
REPEAT	0,.<
	X	FOO,FOOSPL,.(%DEMND,%GENRC,,<S.HET HPQ 15,SET DSKPRI 1>
>
 DSKaJn=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"cOuh6Q xcux;PcOvzP cV-	 Z9&  ;MACRO TZYO GENERATE THE QUZyEUE HEADERS FROM [THE QUEUES MACRO
	DEFINE	X(A,B,C,[YD,E,F,G,H,I,J,K,L[x,M),<

	IFDIF	<\E><0>,<GLOB (E)>
	IFDIF	<H><0>,<G\XLOB (H)>
	IFDIF	\x<I><0>,<GLOB (I)>]

HDR'A::	INSVL]8.(<SIXBIT\   A\>,]XQH.NAM)!INSVL.(C,]xQH.TYP)!D
	EXP	0^
	XWD	E,INSVL.(B^8,QH.SIZ)
	EXP	F
	EXP	G
	EXP	H
^x	EXP	I
	EXP	[ASC_IZ \J\]
	EXP	[AS_8CIZ \K\]
	EXP	[A_XSCIZ \L\]
	EXP	[_xASCIZ \M\]
	>  ;`END OF DEFINE X
`8	QUEUES			;NOW EXPAND QUEUES
EXcV.Y9 AY%E

	LSTOFA9.

X EVT,QNTSIZ^I,.QHTEV,QH.IKS,S$B9EVT,LIQEVT,.OTEVTBY,DEPEVT,0,<Event>+),<event>,<>,<>
XB INP,QNTSIZ,.QHTIAyP,0,S$INPT,LIQBATBy,.OTBAT,DEPBAT,LICST.T,<Batch>,<jobC8>,<runtime>,<execCXuting>
X LPT,QNTCxSIZ,.QHTOU,0,S$LPDT,LIQLPT,.OTLPT,DD8EPOUT,LIST.D,<PriDXnter>,<job>,<pageDxs>,<printing>
X EPTP,QNTSIZ,.QHTOUE8,0,S$PTP,LIQPTP,.EXOTPTP,DEPOUT,LISTEx.D,<Paper tape puFnch>,<job>,<feet>F8,<punching>
X CDFXP,QNTSIZ,.QHTOU,0Fx,S$CDP,LIQCDP,.OTGCDP,DEPOUT,LIST.DG8,<Card punch>,<joGXb>,<cards>,<punchGxing>
X PLT,QNTSIHZ,.QHTOU,0,S$PLT,H8LIQPLT,.OTPLT,DEPHXOUT,LIST.D,<PlottHxer>,<job>,<minuteIs>,<plotting>
X I8RET,QNTSIZ,.QHTARIX,QH.INV,S$RET,LIQIxRET,.OTRET,DEPRETJ,LIST.D,<File retJ8rieval>,<requestsJX>,<>,<retrieving>Jx
X NOT,QNTSIZ,.QKHTAR,QH.INV,S$NOTK8,0,0,0,0,<>,<>,<>KX,<>
X BIN,QNTSIZKx,.QHTIP,QH.INV,S$LBIN,0,.OTBIN,0,0,L8<Interpreter>,<joLXbs>,<decks>,<inteLxrpreting>
X DBM,MQNTSIZ,.QHFRR,QH.M8IKS!QH.INV,S$DBM,MX0,.OTDBM,0,0,<>,<Mx>,<>,<>
X RDR,QNNTSIZ,.QHFRR,0,S$RN8DR,0,.OTRDR,0,0,<NX>,<>,<>,<>
XOSPLNx,SPLSIZ,.QHTQS,QHO.IKS!QH.INV,0,0,0O8,0,0,<>,<>,<>,<>
X PSB,PSBSIZ,.QHOxTQS,QH.IKS!QH.INVP,0,0,0,0,0,<>,<>,P8<>,<>
X OBJ,OBJSPXIZ,.QHTQS,QH.IKS!PxQH.INV,0,0,0,0,0,Q<>,<>,<>,<>
X USQ8E,USESIZ,.QHTQS,QQXH.IKS!QH.INV,0,0,Qx0,0,0,<>,<>,<>,<>R
X STR,STRSIZ,.QR8HTQS,QH.IKS!QH.INRXV,0,0,0,0,0,<>,<>Rx,<>,<>
X NET,NETSSIZ,.QHTQS,QH.IKSS8!QH.INV,0,0,.OTNCSXU,0,0,<>,<>,<>,<>Sx
IFN FTINFO,<
XT PID,PIDSIZ,.QHTQT8S,QH.IKS!QH.INV!QTXH.VAR,0,0,0,0,0,<Tx>,<>,<>,<>
>
X UIPC,IPCSIZ,.QHTQSU8,QH.IKS!QH.INV!QHUX.VAR,0,0,0,0,0,<>Ux,<>,<>,<>
X FAL,VQNTSIZ,.QHFRR,0,SV8$FAL,0,.OTFAL,0,0VX,<>,<>,<>,<>
X OVxDB,ODBSIZ,.QHTQS,WQH.IKS!QH.INV!QH.W8VAR,0,0,0,0,0,<>,WX<>,<>,<>
X QNM,QWxNMSIZ,.QHTQS,QH.IXKS!QH.INV!QH.OAV,X8S$NQC,0,.OTNQC,0,XX0,<>,<>,<>,<>

	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;P'g4t;ZP'g4tKQ  g4uwQ @g4vQ @g4v,wQ xg4v98P'g6
   XLIST/)

0DEFINE X (/HOTYP,PNAM,PTYP,PA/hTR,PDEP,PTXT), <
      PRCTYP (PN0(AM,PTYP)
   >
0H
   ..CNT==0
   0h.XCREF ..CNT

 1     DEFINE PRCTY1(P (PN,PT), <
   1H      IFIDN <A><1hPN>, <
         2   IFG ..CNT-0, <2(      
         2H         IF1,<
 2h        	     PRI3NTX ?More than on3(e entry in PRCDAT3H for same process3hor
             4     >
         4(   >

         4H   B=='PT		
   4h         ..CNT==.5.CNT+1	
        5( >
      >

  5H    PRCDAT			

5h   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 @!Z
	LSTOF.
		X	<Invalid>,%I@`NVLD,100
		X	<IdAle>,%IDLE,0
		X	A <Active>,%ACTIV,0A@
		X	<Stopped>,%A`STOPD,0
		X	<NotB Started>,%NSTRT,B 0
		X	<Not AvailB@able>,%NAVAL,0
	B`	X	<No PTYs>,%NPTCYS,.OTBAT
		X	<OC ffline>,%OFLNE,<.C@OTLPT,.OTPTP,.OTCC`DP,.OTPLT,.OTRDR>D
		X	<System FulD l>,%SFULL,.OTBAT
		X	<Shutting DoD`wn>,%SHTDN,0
		XE	<Aborting>,%CNCLE G,0
		X	<Opr ResE@p Wait>,%OREWT,0
		X	<Aligning FoFrms>,%ALIGN,.OTLPF T
		X	<>,%RESET,F@0
		X	<Reading>,F`%READN,.OTRDR
		GX	<Requeing>,%REQG UE,0
		X	<ShuttiG@ng Down>,%SHUTD,0G`
		X	<Opr OutputH Wait>,%OPRWT,.OTH LPT
		X	<Stop isH@ Pending>,%STPPN,H`0
		X	<No procesIsor>,%NOPRC,0
		I X	<Changing FormsI@>,%FRMCH,<.OTLPT,I`.OTPLT,.OTPTP,.OTJCDP>
		X	<ConnecJ ting>,%CNECT,<.OTJ@NQC,.OTFAL>
		X	J`<Mount wait>,%MWAKIT,0
		X	<InactiK ve>,%INACT,0
	LSTON.NACT,0
	LSgR}J6 XY
	IFNDEF X9L.C,<PRINTX UndeXXfined limit paramXxeter C>
	..Z==YB
	..O==<L.C&77Y87777000000>_-^D18YX
	..Z==..Z+..O
Yx	..S==<L.C&77700Z0>_-^D9
	..P==<LZ8.C&777>
	..P==^ZXD35-..P
	..Z==..ZxZ+<..S>B11+<..P>B[5
	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 gV5H:Q  gV5L	Q gV6:Q @gV6<[Q gWhwp gWiVp gWkp 
gWk:p gWkWp gWlzp gWl}p gWmp gWm7p gWm:p gWmYp gg
V 8!i
	IFNB <XB>,<TOPS10<A==Bx>>
	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( !pIFN FTUUOS,B			;DEFINE UNi?4H H!tIFN 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@ P@%BYTE (3)AP`WHO (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 [Y]<L.A&777000>_-^D9A&7770oPu[yQ  p 8I#D
.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 _i$$A,<
		PRINTX `UNDEFINED COUNTER`( A USED
	>
	IF`HNDEF	G$ITEM,<EXTE`hRN G$ITEM>
	AOS G$ITEM+$$A
S 	+8 ,	z
	LSTOF.
	  PUSHJ	P,D$MDA_	E
	  CAI	<<B>B2_(3!<A>B35>
	LSTON.A>B35>
	LSTO	'$[  c)D
	LSTOF.
	X	(ICNT,Number chof items in recordd)
	X	(NOW,Curred(nt time of day)
dH	X	(STAR,QUASAR'sdh start time)
	X	e(QJOB,QUASAR's joe(b number)
	X	(IPeHCI,Total number oehf IPCF interruptsf received)
	X	(Rf(IPC,IPCF messagesfH received)
	X	(SfhIPC,IPCF messagesg sent)
	X	(IPCF,g(IPCF send failuregHs)
	X	(IPCU,Unreghcoverable IPCF sehnd failures)
	X	h((MREL,RELEASE meshHsages received)
hh	X	(MCHK,CHECKPOIiNT messages receii(ved)
	X	(MREQ,REiHQUEUE messages reihceived)
	X	(MNXTj,Total NEXTJOB mej(ssages sent by tyjHpe)
	X	(MLST,LISjhT messages receivked)
	X	(NLAP,LISk(TANSWER pages senkHt)
	X	(SCRE,Succkhessful creates dolne)
	X	(MMOD,MODl(IFY messages recelHived)
	X	(MKIL,KlhILL messages recemived)
	X	(MDEF,Dm(EFER messages recmHeived)
	X	(ISPL,mhImmediate SPOOL mnessages received)n(
	X	(DSPL,DeferrnHed SPOOL messagesnh received)
	X	(MoCAN,COUNTANSWER mo(essages sent)
	XoH	(SLCD,Scheduler ohloop countdowns)
	X	(DEAD,MDA deap(dlock avoidance cpHalls)
	X	(DFAL,MphDA deadlock avoidqance failures)
	q(X	(VSWM,Volume swqHitch tape mount)
	X	(TAPM,Tape morunt)
	X	(STRM,Phr(ysical structure rHmount)
	X	(USTM,rhUser structure mosunt)
	X	(GENM,Ges(neric mount)
	X	sH(TINP,Terminationsh batch requests)
	X	(TOUT,Terminat(tion print requestHts)
	X	(TCNI,Terthmination console uinput)
	X	(TCNO,u(Termination consouHle output)
	X	(EuhINP,Emulation batvch requests)
	X	v((EOUT,Emulation pvHrint requests)
	vhX	(ECNI,Emulationw console input)
w(	X	(ECNO,EmulatiowHn console output)wh
	X	(IPCE,Resendx queue expirationx(s)
	X	(DTAM,DECtxHape mounts)
	LSTON.ounts)
	LST	NNI6 a)
	IFNDEF aI$$B,<
		PRINTX ahUNDEFINED COUNTERb B USED
	>
	IFb(NDEF	G$ITEM,<EXTEbHRN G$ITEM>
	STORbhE 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% 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 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