PDP-10 Archive: fortran-tools/qsrmac.unv from bb-4157j-bm_fortran20_v11

Trailing-Edge - PDP-10 Archives - bb-4157j-bm_fortran20_v11_16mt9 - fortran-tools/qsrmac.unv

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

x
,5@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\rQH@C6Hu[rQ xCHv

ZP'CHvIWP'CHvLwQ xCJh9p CJiVp CJiWp CJjp CJkHp CJkIp CJlp CJl}p CJmp CJm	p CJmp CNah9Q CNajQP CNakQQ  CNakXQ CNakYQ @CNalQ CNalVQ CNalpQ CNamvQ @CS&*1 7;L			
	LSTO6!F.
	X	<Invalid>,6A%INVLD,0	
	X	<LO7AWER>,%LOWER,.OTLP7`T	
	X	<UPPER>,%U8PPER,.OTLPT	
	X	8 <PHYSICAL>,%PHYCL8@,<.OTLPT,.OTPTP,.8`OTCDP,.OTPLT>
	X9	<>,%GENRC,-1		
9 	X	<SITGO>,%SITGO9@,.OTBAT	
	LSTON.OTBAT	
	LSTON.E-+qP$E4P GqhVp Gql}p G$+p G%I7p 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 G0t(:P$G0t,2P'G0u+qQ xG2iiQp G2ijQp G2n:=p G4P G7
P G7
 P G?)l}p GLtIYP GLtiP'GLtkP GLu+qQ xGLuKqP'~GNih3p GNii7p GNiiRp GNiiVp GNiiXp GNiiYp GNijQp GNikp GNikZp GNiktp GNilWp GNn:=p GZahvP GZajzP GZam:P G[k[P'I5J6 My=
	RADIX 5:A+5
	IF1,<IFDEF L:a.A,<PRINTX Mult.; defined limit paMYrameter A>>
	IFP	L <36-C>,<PRINTXP( Illegal C for lPHimit A>
	IFL <3Ph5-D>,<PRINTX IllQegal position forQ( limit A>
	IFLEQH <EQLMSZ-B>,<PRIQhNTX Illegal B foRr limit A>
	L.R(A==<BYTE (18) B RH(9) C,D>
	RADIX 4+4
>
	RADII62 :yC[
	X	BAT
;	X	LPT
	X	CDP
	;8X	PTP
	X	PLT
	X	MNT
	X	RET
XIr%lP Ir5lP ItI1P It[:P ItkQQ xIu

xP Iu+qP'Iv

WP IvLVP IjQp Ikzp Il}p I$v8:Q @I$vN8P'I&:=p I7

kV {?]ASCIZ \DSK{1:PRIVATE-MASTER-Q{PUEUE-FILE.QUASAR\UE-FILE.QUASAR\I?: x?B
	IFN <%%wa.MOD-<SIXBIT /QUAwASAR/>>,<EXTERN G$x!SCHD>
	SETOM	G$SCHD
	SETOM	G$SJP KDtzP!@KDtQ 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 6KFN:=p ,KFe\}P KFu\}P KGF:=p 6KH$+3P KH$9P

KH$9P KH$9P KH$<SP KH$KVP KH$\]P 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%yP KH%P KH%WP KH%YP KH%Z7P KH%\P 
KH%\XP KH%]P KH%]P KH%]QP KH%jqP KH%kyP KH%lrP

KH%m0P KH%n7P KH%zP 	KH&

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

	X	BMG,<Bad MO|DIFY Group>,MF.FA|yT
	X	ICM,<Illega}l CREATE Message>}8,MF.FAT
	X	IFS,<}XIllegal File Spec}xification>,MF.FAT~
	X	ILM,<Illegal~8 LIST Message>,MF~X.FAT
	X	IFD,<Ill~xegally Formatted Device Name>,MF.F8AT
	X	IMT,<IllegXal Message Type>,xMF.FAT
	X	INF,<Illegal Number of 8Files>,MF.FAT
	XX	IPE,<Insufficienxt Privileges Enabled>,MF.FAT
	X	M8TL,<Message Too LXong>,MF.FAT
	X	MxTS,<Message is Too Short>,MF.FAT
8	X	NKC,<Not a KnoXwn Component>,MF.xFAT
	X	NOR,<Number Out of Range>,8MF.FAT
	X	NYO,<NXot Your Object>,MxF.FAT
	X	SNY,<Specified request i8s Not Yours>,MF.FXAT
	X	UQS,<Unknoxwn Queue Specified>,MF.FAT
	X	UOS8,<Unknown Object XSpecified>,MF.FATx
	X	WVN,<Wrong Version Number>,MF8.FAT
	X	IAS,<InvXalid Account Strixng Specified>,MF.FAT
	X	OHR,<Oper8ator Has RestrictXed Queue Entry Coxmmands>,MF.FAT
	X	IMM,<Illegal MO8UNT Message>,MF.FXAT
	X	MPN,<MOUNTx Request Processo	r Not Running>,MF	8.FAT
	X	CDU,<Can	X't Default User N	xame>,MF.FAT
	X	C
DD,<Can't Default
8 Connected Direct
Xory>,MF.FAT
	X	N
xSD,<No such device>,MF.FAT
	X	CDA8,<Can't Delete anX Allocated requesxt>,MF.FAT
	X	PRB

,<Privileges Requ

8ired for Bypass L

Xabel Processing>,

xMF.FAT
	X	ICD,<Innectedi
	X	IFvalid Function Code Specified8>,MF.FAT
	X	MDA,X<MDA is not suppoxrted in this monitor>,MF.FAT
	X	S8DY,<Specified DevXice is not Yours>x,MF.FAT
	X	IVN,<Invalid Volume Se8t Name Specified>X,MF.FAT
	X	ISS,<xInvalid Switch Specified in a Stru8cture Mount RequeXst>,MF.FAT
	X	MRxP,<Mount Request is not Pending>,M8F.WRN
	X	MIN,<MoXunt Illegal for 'xNo Operator Intervention' Request>8,MF.FAT
	X	IPB,<XInvalid Path Blocxk Specified>,MF.FAT
	X	IBL,<Inval8id Block Length/CXount Specified>,MxF.FAT
	X	MVB,<Multiple Volume Set8 Name Blocks is IXllegal>,MF.FAT
	xX	IMO,<Invalid message received fr8om ORION>,MF.FAT
	X	NUA,<No Unitsx Available for Mounting this Reque8st>,MF.FAT
	X	RTXE,<Route Table Enxtry does not Exist>,MF.FAT
	X	ISO8,<Invalid Source XObject Specified xin Route Command>,MF.FAT
	X	IDO,<8Invalid DestinatiXon Object Specifixed in Route Command>,MF.FAT
	X	CR8G,<Cannot Route aX Generic Unit>,MFx.FAT
	X	UST,<Unknown device or st8ructure name>,MF.XFAT
	X	ERZ,<Ersaxtz devices may not be mounted>,MF.8FAT
	X	DNM,<DeviXce may not be mouxnted>,MF.FAT
	X	VID,<Volume ident8ifier must be speXcified>,MF.FAT
	xX	VIU,<Volume identifiers must be 8unique>,MF.FAT
	XX	ISA,<Illegal atxtribute for structure mount reques8t>,MF.FAT
	X	ITAX,<Illegal attribuxte for tape mount  request>,MF.FAT
	X	ILN,<Illegal  Xlogical name>,MF. xFAT
	X	IDE,<Inva!lid density>,MF.F!8AT
	X	ILT,<Inval!Xid label type>,MF!x.FAT
	X	RNS,<Ree"lid not specified"8 in mount command"X>,MF.FAT
	X	XXX,"x<This is a text b#uffer for message#8s built on the fl#Xy. MAX 70 charact#xers>,MF.FAT

	LSTON..FAT

	LKXvN8P MF:=P M2,zP 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:hQ pMJn:iP MJn[TP MO*yP MO,P MO,P MOiP MOj1P MO[YP MO\YP MOj1P MO

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

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

N;MP N;LP N;LP N;=P N;

TP 
O%J6 S	=<
	IFNDEF S)L.C,<PRINTX UndeSIfined limit paramSieter C>
	..Z==UIB
	..O==<L.C&77Uh7777000000>_-^D18V
	..Z==..Z+..O
V(	..S==<L.C&77700VH0>_-^D9
	..P==<LVh.C&777>
	..P==^WD35-..P
	..Z==..W(Z+<..S>B11+<..P>BWH5
	LDB	A,[EXP ..Z]
	A,[EXP .PP QtlVQ @Q
yiVp Q
ykzp Q
ylXp Q
yl}pdQ4.2P$Q4kP'Q6i9QxQaiVpWQakVpxQakWp9Qakqp=Qal}pzQdQXxQexUP'QuX<P'QukzQxS;9PtS;;yPrS;KsPS;X<PS;z8P6S;	yPdS;PS;Qu'X:5|VP'HX:t+Q $X:u}Q HX:u}	QyHX:}ZP X:}J6Q $X:}krQ  HX:~]P X;\zP X;9Q $X;LQ $X;Q $X;

Q  Y'

Q }@Y'

(:Q @Y'

9QY'QY'SP YC$(7P YC$J;P YC%	P YC%=P YC%]6P YC&LVP YLtQ YLtlzQ  YO%GP YO%yG "*
	IFNDEF "!LSTIN.,LSTIN.==0	"@	
IFE LSTIN.,<
"`	IFIDN <XCREF><A#>,<.XCREF>	
		  #  XLIST>		
	LSTIN.==LSTIN.+1STINYO%{G #`*$
	IFG LST$IN.,LSTIN.==LSTIN$ .-1	
	IFLE LSTIN$@.,<.CREF		
		      LIST>
		   ZP [xU ;!<
	X	BAT,I<NP,<<1,,77>,<0,,^<!D600>,0,<INPOIP,,;A0>,<1,,^D512>>
	;aX	LPT,LPT,<<1,,77=!>,<1,,^D500>,<FRM=@NOR>,<FLEACT,,0>,=`0>
	X	PTP,PTP,<<>1,,77>,<1,,^D500>> ,<FRMNOR>,<FLEACT>@,,0>,0>
	X	CDP,C>`DP,<<1,,77>,<1,,^?D500>,<FRMNOR>,<F? LEACT,,0>,0>
	X	?@PLT,PLT,<<1,,77>,?`<1,,^D30>,<FRMNOR@>,<FLEACT,,0>,0>
	X	RDR,RDR,<0,0,@@0,0,0>
	X	BIN,BI@`N,<0,0,0,0,0>
	XA	DBM,DBM,<0,0,0,0A ,0>

   TOPS20 A@<
	X	RET,RET,<0,A`0,0,0,0>
	X	NOT,BNOT,<0,0,0,0,0>
B           > ;END TOPS20

;END [3@ '@*<<<<1_<A>>-1>B<B>>_<A>>[@ (@*P
	IFB <B(a>,<MAXSIZ==0
		I)RP A,<IFG <A-MA) XSIZ>,<MAXSIZ==A)@>>>
	IFNB <B>,<)`B==0
		IRP A,<*IFG <A-B>,<B==A>>>
B>,<B==[EJ6 \	=`<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 [

\Y :C
	LSTOF.

	X	NVM,<No Vol%9ume Mounted On Dr%Xive>
	X	VAU,<Vol%xume is Already in& Use>
	X	DAU,<Dr&8ive is Already in&X Use>
	X	VIL,<Vo&xlume on Drive is 'Labeled>
	X	RDM,'8<Reelid does not 'Xmatch user's requ'xest>
	X	URB,<Use(r Requested Bypas(8s Label Volumes>
	X	URL,<User Req(xuested Labeled Vo)lumes>
	X	URW,<U)8ser Requested Wri)Xte-Locked Volumes)x>
	X	URE,<User R*equested Write-En*8abled Volumes>
	*XX	RDD,<Requested *xDensity Does not +Match Volume Dens+8ity>
	X	VND,<Req+Xuested Volume not+x on this Device>
	X	IUD,<Illegal ,8for unavailable d,Xevice>
	X	RLD,<R,xequest Label Type- Doesn't Match Vo-8lume Label Type>
	X	DAD,<Drive is-x already availabl.e>
	X	NVI,<VOLID.8 Required for Thi.Xs Volume>
	X	CIU.x,<Cannot identify/ the Users Curren/8t Volume>
	X	TDM/X,<Request Track t/xype Doesn't Match0 Device Type>
	X08	DDD,<Device Allo0Xcation Error - De0xadlock Detected>
	X	IDD,<Illegal 18density for drive>
	LSTON.drive[I7p[4tKQ [4tyYQ [4ukzQ  [4v)6Q [4vx:Q @[>!iSp [>!irp [>!iwp [>!kzp [>!lXp [>!l}p [>${P'[>$|Q x[F5h6 z?SASCIZ\DSK:zQ<SPOOL>PRIMARY-MAz1STER-QUEUE-FILE.QUASAR\UE-FILE.Q[HtuQ [Ht;ZP'[HtK7Q [HtyYQ [HuKUQ x[HukzQ  [Hv2P [HvKWP'[HvLRQ x[Hvx:Q @[NF:=p [c.

TP 
] @P,IF2,<IFDEF@q A,<A==A>> IFNDEF A,<A==B>]$Q ]$qp ]$,p ]$;p ]$;vp ]$<rp ]%VQ ]%p ]%Kqp ]%h6p ]%hYp ]%l{Q @]%m8Q ]%{VQ  ]&

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

ZQ x]PvKzQx8]PvLPP p]PvN8Q ]Pw
%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 lVQ8 lYQ =Q @=Q =8Q  a3$SP a3$J;P

a3%=P a3%]6P aHukwQ @aHv*2P'aNkp aNJ6p aNh6p aNxUp aN
2p aN:=p aN5kzP'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 @cvZWP'cvx6P$cvx6P"cF:=p cOtkP'~cOu[P"cVuh6Q xcv  ;MACRO T<O GENERATE THE QU<9EUE HEADERS FROM <XTHE QUEUES MACRO
	DEFINE	X(A,B,C,=D,E,F),<	;DEFINE =8X FOR THE LATER E=XXPANSION OF QUEUE=xS
HDR'A::	INSVL.>(<SIXBIT\   A\>,Q>8H.NAM)!INSVL.(C,Q>XH.TYP)!D
	EXP	0
	IFDIF	<E> <0> ,?<GLOB(E)>
	XWD	E?8,INSVL.(B,QH.SIZ)?X
	EXP	F
	EXP	0
	>  ;END OF DEFI@NE X
	QUEUES			;@8NOW EXPAND QUEUES
EXPAND QUEUEScV.Y9 2YCS

	LSTOF2.

	X	INP,QNTSIM9Z,.QHTIP,0,S$INPT29,LIQBAT
	X	LPT,Q2yNTSIZ,.QHTOU,0,S$3LPT,LIQLPT
	X	PT38P,QNTSIZ,.QHTOU,03X,S$PTP,LIQPTP
	X3x	CDP,QNTSIZ,.QHTO4U,0,S$CDP,LIQCDP
	X	PLT,QNTSIZ,.Q4XHTOU,0,S$PLT,LIQP4xLT
	X	RET,QNTSIZ5,.QHTAR,QH.INV,S$58RET,LIQRET
	X	NO5XT,QNTSIZ,.QHTAR,Q5xH.INV,S$NOT,0
	X6	BIN,QNTSIZ,.QHTI68P,QH.INV,S$BIN,0
	X	DBM,QNTSIZ,.Q6xHFRR,QH.INV,S$DBM7,0
	X	RDR,QNTSIZ78,.QHFRR,0,S$RDR,07X
	X	SPL,SPLSIZ,.7xQHTQS,QH.INV,0,0
	X	PSB,PSBSIZ,.Q88HTQS,QH.INV,0,0
8X	X	OBJ,OBJSIZ,.QH8xTQS,QH.INV,0,0
	9X	USE,USESIZ,.QHT98QS,QH.INV,0,0
	X9X	STR,STRSIZ,.QHTQ9xS,QH.INV,0,0
	X	:NET,NETSIZ,.QHTQS:8,QH.INV,0,0

	LSTON.,0,0

	LeYj:p eYkWp eYl}p eYmp eYm7p 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  e<tQ xe<v
Q@e<v[TP'e>:=peDuWQ@@eDv+QeDvJ6PeO)hrpeO)hwpeO)ipeO)kWpeO)lpeO)l}peO)mpeO)m7peR-I7peR-xHpeR-xIpgDI3PgDjQPgEKUP 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
gBekzp gBez2p gBf

TP gBf+qp gBf,=p gBf:=p gBf=Q DSK:gBfH8Q  gCLLP'gCM+qQ xgCMI7P'gPuySP gPu{@P gPv

TP gPv91P gRM9 D<g
	LSTOF.
		X	<Invalid>,%IDXNVLD,100
		X	<IdDxle>,%IDLE,0
		X	E<Active>,%ACTIV,0E8
		X	<Stopped>,%EXSTOPD,0
		X	<NotEx Started>,%NSTRT,F0
		X	<Not AvailF8able>,%NAVAL,0
	FX	X	<No Ptys>,%NPTFxYS,.OTBAT
		X	<OGffline>,%OFLNE,<.G8OTLPT,.OTPTP,.OTCGXDP,.OTPLT,.OTRDR>Gx
		X	<System FulHl>,%SFULL,.OTBAT
		X	<Shutting DoHXwn>,%SHTDN,0
		XHx	<Aborting>,%CNCLIG,0
		X	<Opr ResI8p Wait>,%OREWT,0
		X	<Aligning FoIxrms>,%ALIGN,.OTLPJT
		X	<>,%RESET,J80
		X	<Reading>,JX%READN,.OTRDR
		JxX	<Requeing>,%REQKUE,0
		X	<ShuttiK8ng Down>,%SHUTD,0KX
		X	<Opr OutputKx Wait>,%OPRWT,.OTLLPT
		X	<Stop isL8 Pending>,%STPPN,LX0
		X	<No procesLxsor>,%NOPRC,0
	LSTON.OPRC,0
	LgR}J6 X	=X
	IFNDEF X)L.C,<PRINTX UndeXHfined limit paramXheter C>
	..Z==YB
	..O==<L.C&77Y(7777000000>_-^D18YH
	..Z==..Z+..O
Yh	..S==<L.C&77700Z0>_-^D9
	..P==<LZ(.C&777>
	..P==^ZHD35-..P
	..Z==..ZhZ+<..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)lQp gS)l}p gV6:Q @gWhwp gWiVp gWkWp gWlzp gWl}p gWmp gWm7p gg

V |8/i
	IFNB <|YB>,<TOPS10<A==B|x>>
	IFNB <C>,<T}OPS20<A==C>>
PS20<A==C>>
i&m{PP i4,.8Q i4-i;Q  i4-m6Q i4-|{Q i4.8yQ @i4.i\Q i4.y7Q i4.{Q i?4( }`/nIFN FTUUOS,B			;DEFINE UNi?4H ~ /rIFN FTJSYS,	INTERN AEDT	k

rHQ k

r$Q k

rU+Q k

rdJQ k

sQ k

tPQ k

tYQ @k

tMZQ k

uTP k

u=Q pk

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 m0t9Q m0tuQ  m0twQ @m0t;ZQ xm0tI7Q @m0tkQ ~m0uHZQ <m0uHuQ m0uM7Q @m0unP'm0u}wQ m0v

[Q xm0v)6Q  m0v,wP m0v8yQ m0v:Q m0v<RP$m0v=Q pm>eI7p mLtWP  mLtP'mLtQ  mLtRP mLt;Q mLt;ZQ xmLt=P mLtIP mLtI7P'mLtMP mLuHZQ mLuI7Q xmLuKUP'mLui;Q mLuk:P @mLukqP"mLuySP'~mLu|Q mLv9P$mLv

ZQ `mLv)6P mLv)6Q mLv*2Q xmLv,wP `mLv8yQ  mLv:7P!mLvLUP pmLvN8Q pmLvX6Q mLvl{Q @mLvx6Q mLv{Q mNeI7p

mNuI7P o&%J6 [I=\<L.A&777000>_-^D9A&7770oPu[yQ  p $=b
	MD$A==\)..XX
	..XX==..XX+1
	..XX=..XX+q@ X 
	A==:B
	A==:BuhP 
P$X2P$h6P&<P,;TP,;WP-XP-}:P<[VPL;ZPNsPNtPNzPN<P	l87Pl:P lI3P m:6P mLzP m[rP mnP n)6P n)8P uH8P u}`P 
	IFNDEF _!$$A,<
		PRINTX _@UNDEFINED COUNTER_` A USED
	>
	IF`NDEF	G$ITEM,<EXTE` RN G$ITEM>
	AOS G$ITEM+$$A
S 	+8 %B'
	LSTOF.
	  PUSHJ	P,D$MDA^AE
	  CAI	<<B>B2$x3!<A>B35>
	LSTON.A>B35>
	LSTO	'$[  ba?8
	LSTOF.
	X	(ICNT,NUMBER c OF ITEMS IN RECORc@D)
	X	(NOW,CURREc`NT TIME OF DAY)
d	X	(STAR,QUASAR Sd TART TIME)
	X	(Qd@JOB,QUASARS JOB Nd`UMBER)
	X	(IPCI,eTOTAL NUMBER OF Ie PCF INTERRUPTS REe@CEIVED)
	X	(RIPCe`,IPCF MESSAGES REfCEIVED)
	X	(SIPCf ,IPCF MESSAGES SEf@NT)
	X	(IPCF,IPCf`F SEND FAILURES)
	X	(IPCU,UNRECOVg ERABLE IPCF SEND g@FAILURES)
	X	(MRg`EL,RELEASE MESSAGhES RECEIVED)
	X	h (MCHK,CHECKPOINT h@MESSAGES RECEIVEDh`)
	X	(MREQ,REQUEiUE MESSAGES RECEIi VED)
	X	(MNXT,TOi@TAL NEXTJOB MESSAi`GES SENT BY TYPE)j
	X	(MLST,LIST Mj ESSAGES RECEIVED)j@
	X	(NLAP,LISTANj`SWER PAGES SENT)
	X	(SCRE,SUCCESSk FUL CREATES DONE)k@
	X	(MMOD,MODIFYk` MESSAGES RECEIVElD)
	X	(MKIL,KILLl  MESSAGES RECEIVEl@D)
	X	(MDEF,DEFEl`R MESSAGES RECEIVmED)
	X	(ISPL,IMMm EDIATE SPOOL MESSm@AGES RECEIVED)
	m`X	(DSPL,DEFFERED nSPOOL MESSAGES REn CEIVED)
	X	(MCANn@,COUNTANSWER MESSn`AGES SENT)
	X	(SoLCD,SCHEDULER LOOo P COUNTDOWNS)
	Xo@	(DEAD,MDA DEADLOo`CK AVOIDANCE CALLpS)
	X	(DFAL,DEADp LOCK AVOIDANCE FAp@ILURES)
	X	(VSWMp`,VOLUME SWITCH TAqPE MOUNT)
	X	(TAq PM,TAPE MOUNT)
	q@X	(STRM,PHYSICAL q`STRUCTURE MOUNT)
	X	(USTM,USER STr RUCTURE MOUNT)
	r@X	(GENM,GENERIC Mr`OUNT)
	X	(TINP,TsERMINATION BATCH s REQUESTS)
	X	(TOs@UT,TERMINATION PRs`INT REQUESTS)
	Xt	(TCNI,TERMINATIOt N CONSOLE INPUT)
	X	(TCNO,TERMINAt`TION CONSOLE OUTPuUT)
	X	(EINP,EMUu LATION BATCH REQUu@ESTS)
	X	(EOUT,Eu`MULATION PRINT REvQUESTS)
	X	(ECNIv ,EMULATION CONSOLv@E INPUT)
	X	(ECNv`O,EMULATION CONSOwLE OUTPUT)
	LSTON.UTPUT)
	LSTO	NNI6 `a>
	IFNDEF a$$B,<
		PRINTX a UNDEFINED COUNTERa@ B USED
	>
	IFa`NDEF	G$ITEM,<EXTEbRN G$ITEM>
	STORb E A,G$ITEM+$$B
A,G$ITEM+$$B
vyP J;P &=P ewP %X<P 
RP9PvPKPt;P[-I:P^N:`P[ZP:]P$PH&kvPkjPkk`P8MlP8~]P8:6P H9P H9P KqP LzP 9P TP 
6P H9P HTP J1P J6P 	TP :rP 2|:xP 2~y9P 6%X<P 6vKWP 6~[ZP :h6P :~

QP 	:~JQP :~K6P :~MP ;N9P ;LZP >5KRP >uJ7Q ?-zP ?]zP BGvP C\rP J(:P JI6P J,P J-h6P J.2P J.9:P Jn=P KYP K[PP K[QP K[uP N6[P NFIP NF]P NNIwP O$1P O$P O$7P O$zP O%X<P 	O%|P O&

P	O&(`PR	LPRj$PRk`PR4YP R4XQP R5HXQ R5X<P R5Z7P R6DHP R6[VP R6[[Q RMlP R~]P S5`P S6 P S5{P Vd:xP Vu;@P VuHuP W	9P Z
P YRP l;Zp lKp m	p mh6p n<p n=p &Jp &Lp &Lqp &M7p 
dKp 
dKVp 
dK{p 
dLwP 
dM7P \zP S@P $+p $8:P $;Zp %h6p %z2p &yP &,wp &j2p &kvp &lwp 5J2p 5Kp 5LP 5Lzp 69YP 6;p 6;[p 6;wp 6;{p 5:6P 6)6P L)p L)p mlXP \zP &=P

zp

Zp

+|p

:p

;wp 0

<zp

I1p "*2P +qp 98P :9p 5<p \yp 5\}p 6-p 6N8p 6Yp d(P fP h4P h9P hwP iWP j6P lHp lIp lpP lzp Sp I7p X<P (rp X5P 2P 3KRP 3(VP 3+qP 3RP 32P 3[ZP 3\vP 3\yP 3$YP 3$XQP 3&DHP 3&[VP 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 y6nXrp z6n[9p z6n[<p y6n[Wp {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 
2P 7&=P 7&N8P 7&kvP >;yP >kP >

TP ><wP >=P >H8P >J6P >5I0Q x>|kP >|lVP >}J6P >~

TP >~H8P ?WP ?\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 F)wP F+P

F9P Fj6P FlVP FlYP F(WP 
FkzP

FmP FyP Fz2P F

TP F2P 
F)9P F[TP F[ZP F,zp F,;wp F,<Rp F,J7p F-p F-p F-(Qp F-(Wp

Zp F.*2P F.+qp F.98P F.=p FDZp FDlYP FEJ9p FEKUp FF3p FFH9P FFJ8P FFK2P FFKzP FFL9P FFN8p FLkQP$FN):P"F|WP F|uP F|P F|vP F|+P F|87P F|8:P F|:P F|;zP F|<2P F|<RP F|IYP F|LvP F|MYP F|htP F|yYP F}WP 
F}	6P F}VP F}P F}:6P F}H1P F}H7P F}J9P F}X9P F}X:P F}[PP F}[ZP

F}[rP F}]P F}]P

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

F~=8PZ	F~LzPZF~[VPZF~iPZF~k7P[F~lrP[F~lyP[JH;`[JK`[JMYP J$)9p J$*Qp J$*Vp J$+{p J$,Xp J$-Yp J-Zp J-\wp J|(:p J|+Rp J|-p J|-0p KJp KJQp NTD+P NTEIP NTKIP NTKJP NTKLP NlP NlKp Nlkp Nm+qp Nmh6P Nn)9P R$I;p R$MZp R%	p R%(Wp R4DP R4D+P R4DHP R4E*P R4EIP R4FP RlI7P RlK<P RlLKP RlLLP RlL[P Rl^P RmTP RmKVP RmMP Rn+5P Rn9:P Rn=P RnkvP RnlP V(:p V(wp V+Vp V,zp V-Vp V-Yp Zdkp ZeMp Ze]p Zeh6p Zenp Zez2p Ze}wp Zf
[Yp [)6p [*2p [8tp 
[Np [Xqp [kvp

[lwp b
p bwoP