Google
 

Trailing-Edge - PDP-10 Archives - BB-H137C-BM - galaxy-subsys/qsrmac.unv
There are 88 other files named qsrmac.unv in the archive. Click here to see a list.
x
,5c@P C
yhrp C
yj2p C
yj:p C
ykWp C
yl}p C
ymp C
ym7p C
~\yP CjvP C@P CHtkQP'CHuI7A xCHu[rQ xCHv
ZP'CHvIWP'CHvLwQhxCHvN8@'CJh9pCJiVpCJiWpCJjpCJkHpCJkIpCJlpCJl}pCJmp CJm	p CJmp CJ9ip CJ9jp GqhVp Gql}p 
P G7
 P G8&:=P G?)l}p GLtIYP GLtiP'GLtkP GLu+qQ xGLuKqP'~GNih3p GNii7p GNiiRp GNiiVp GNiiXp GNiiYp GNijQp GNikp GNikZp GNiktp GNilWp GNn:=p I5J6 kiG	
	RADIX 5li+5
	IF1,<IFDEF Ll).A,<PRINTX Mult.l	 defined limit palIrameter A>>
	IFnYL <36-C>,<PRINTXnx Illegal C for loimit A>
	IFL <3o85-D>,<PRINTX IlloXegal position forox limit A>
	IFLEp <EQLMSZ-B>,<PRIp8NTX Illegal B fopXr limit A>
	L.pxA==<BYTE (18) B q(9) C,D>
	RADIX 4+4
>
	RADII62 9	KL
	X	BAT
9)	X	LPT
	X	CDP
	9HX	PTP
	X	PLT
	X	MNT
	X	RET
XIr%lP Ir5lP ItI1P It[:P ItkQQ xIu
xP Iu+qP'IvLVP IjQp Ikzp Il}p I$v8:Q @I$vN8P'I&:=p I7
kV !H~ASCIZ \DSKA:PRIVATE-MASTER-Q`UEUE-FILE.QUASAR\UE-FILE.QUASAR\I?: 
aHd
	IFN <%%
!.MOD-<SIXBIT /QUA
SAR/>>,<EXTERN G$
ASCHD>
	SETOM	G$SCHD
	SETOM	G$SJP KDtzP @KDuWP KDu9P  KDu(QP KDuKtP'KDukzP KDum6P'KDv
TP KDv
WQ xKDv
[PKDv)PPKDv98QxKDv<P@KDvlYQxKF<}PKFF:=p KFN:=p KFe\}P KFu\}P KGF:=p KH$+3P KH$9P KH$9P KH$9P KH$::P KH$;TP KH$H2P KH$H:P 
KH%7P KH%:P KH%SP KH%P KH%2P KH%\P 
KH%]P KH%]P KH%jqP KH%kyP KH%lrP KH%mTP KH%mVP 
KH%n7P KH%zP 	KH&
QP KH&)P KH&+P KH&;\P KH&[yP KH&\9P KH&\QP KH&\RP KH&\VP KH&\[P KH&h:P 
KH&j6P KH&}WP KK9 AJr
	XLIST
a
	X	BMG,<Bad MOD IFY Group>,MF.FAT	
	X	ICM,<Illegal( CREATE Message>,HMF.FAT
	X	IFS,<Ihllegal File Specification>,MF.FAT
	X	ILM,<Illegal HLIST Message>,MF.hFAT
	X	IFD,<Illegally Formatted D(evice Name>,MF.FAHT
	X	IMT,<Illegahl Message Type>,MF.FAT
	X	INF,<Il(legal Number of FHiles>,MF.FAT
	X	hIPE,<Insufficient Privileges Enabl(ed>,MF.FAT
	X	MTHL,<Message Too Lohng>,MF.FAT
	X	MTS,<Message is Too( Short>,MF.FAT
	HX	NKC,<Not a Knowhn Component>,MF.FAT
	X	NOR,<Numbe(r Out of Range>,MHF.FAT
	X	NYO,<Noht Your Object>,MF.FAT
	X	SNY,<Spe(cified request isH Not Yours>,MF.FAhT
	X	UQS,<Unknown Queue Specified(>,MF.FAT
	X	UOS,H<Unknown Object Shpecified>,MF.FAT
	X	WVN,<Wrong Ve(rsion Number>,MF.HFAT
	X	IAS,<Invahlid Account String Specified>,MF.F(AT
	X	OHR,<OperaHtor Has Restrictehd Queue Entry Commands>,MF.FAT
	X(	IMM,<Illegal MOUHNT Message>,MF.FAhT
	X	MPN,<MOUNT Request Processor( Not Running>,MF.HFAT
	X	CDU,<Can'ht Default User Name>,MF.FAT
	X	CD(D,<Can't Default HConnected Directohry>,MF.FAT
	X	NVM,<No Volume Moun(ted On Drive>,MF.HFAT
	X	VAU,<Voluhme is Already in  Use>,MF.FAT
	X	D (AU,<Drive is Alre Hady in Use>,MF.FA hT
	X	VIL,<Volume! on Drive is Labe!(led>,MF.FAT
	X	U!HRB,<User Requeste!hd Bypass Label Vo"lumes>,MF.FAT
	X"(	URL,<User Reques"Hted Labeled Volum"hes>,MF.FAT
	X	UR#W,<User Requested#( Write-Locked Vol#Humes>,MF.FAT
	X	#hURE,<User Request$ed Write-Enabled $(Volumes>,MF.FAT
$H	X	RDD,<Requested$h Density Does not% Match Volume Den%(sity>,MF.FAT
	X	%HVND,<Requested Vo%hlume not on this &Device>,MF.FAT
	&(X	IUD,<Illegal Fo&Hr UNAVAILABLE Dev&hice>,MF.FAT
	X	N'SD,<No Such Devic'(e>,MF.FAT
	X	RLD'H,<Request Label T'hype Doesn't Match( Volume Label Typ((e>,MF.FAT
	X	DAD(H,<Drive is alread(hy available>,MF.F)AT
	X	CDA,<Can't)( Delete an Alloca)Hted request>,MF.F)hAT
	X	CNI,<Comma*nd Not Yet Implem*(ented>,MF.FAT
	X*H	IMO,<Invalid Mes*hsage from ORION>,+MF.FAT
	X	PRB,<P+(rivileges Require+Hd for Bypass Labe+hl Processing>,MF.,FAT
	X	NVI,<VOLI,(D Required for Th,His Volume>,MF.FAT,h
	X	CIU,<Cannot -IDENTIFY the User-(s Current Volume>-H,MF.FAT
	X	ICD,<-hIllegal Connected. Directory Specif.(ied>,MF.FAT

	LIST
	SALL

	LMF:=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)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 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 dN:N
TP 
O%J6 r9G1
	IFNDEF rL.C,<PRINTX Undeqyfined limit paramqYeter C>
	..Z==tB
	..O==<L.C&77t87777000000>_-^D18tX
	..Z==..Z+..O
tx	..S==<L.C&77700u0>_-^D9
	..P==<Lu8.C&777>
	..P==^uXD35-..P
	..Z==..uxZ+<..S>B11+<..P>Bv5
	LDB	A,[EXP ..Z]
	A,[EXP .PP QtlVQ @Q
yiVp Q
ykzp Q
ylXp Q
yl}pdQ4.2P$Q4kP'Q6i9QxQaiVpQakVp:QakWpQakqp Qal}p QuX<P'QukzQ xS;9P tS;;yP S;KsP S;X<P S;z8P S;	yP dS;P dS;
}P SBp SBY9p SB
[p SB(yp$SB,}P$SB9p%SB:2pSB:=p SBih2P'SBihzQxSCiVQ@SCj2Q XSCj3QSCj<P'SCmQ @U&j2p U&jWp&U&lxp-U&m9ptU&:=pW&akzp W&alXpuW&al}puX:KsQu(X:+qQy$X:krQ HX:|RQy$X:J6Q HX:$\P $X:5I0Q  X:5|VP HX:t+Q $X:u}Q HX:u}	Q HX:}ZP X:}J6Q $X:}krQ  HX:~]P X;\zP X;9Q $X;LQ $X;Q $X;
Q }@Y'
(:Q @Y'
9QY'QY';P YC%]6P YLtQ YLtlzQ  ZP [xU Z)F	
	X	BAT,IZ	NP,<<1,,77>,<0,,^YiD3600>,0,<INPOIP,YI,0>,<1,,^D512>>
[1	X	LPT,LPT,<<1,,7[P7>,<1,,^D500>,<FR[pMNOR>,<FLEACT,,0>\,0>
	X	PTP,PTP,<\0<1,,77>,<1,,^D500\P>,<FRMNOR>,<FLEAC\pT,,0>,0>
	X	CDP,]CDP,<<1,,77>,<1,,]0^D500>,<FRMNOR>,<]PFLEACT,,0>,0>
	X]p	PLT,PLT,<<1,,77>^,<1,,^D500>,<FRMN^0OR>,<FLEACT,,0>,0^P>
	X	RDR,RDR,<0,^p0,0,0,0>
	X	BIN,_BIN,<0,0,0,0,0>
_0	X	DBM,DBM,<0,0,0_P,0,0>

   TOPS2_p0 <
	X	XFR,XFR,<`0,0,0,0,0>
	X	RE`0T,RET,<0,0,0,0,0>`P
	X	NOT,NOT,<0,0`p,0,0,0>
        a  > ;END TOPS20

;END TOPS20
[3@ -p*o<<<1_<A>>-1>B<B>>_<A>>[@ .p+
	IFB <B/>,<MAXSIZ==0
		I/0RP A,<IFG <A-MA/PXSIZ>,<MAXSIZ==A/p>>>
	IFNB <B>,<0B==0
		IRP A,<00IFG <A-B>,<B==A>>>
B>,<B==[F:=P [I7p 
[4ukzQ  [4vx:Q @[>!iSp [>!irp [>!iwp [>!kzp [>!lXp [>!l}p [>${P'[>$|Q x[F5h6 !HtASCIZ\DSK:a<SPOOL>PRIMARY-MAASTER-QUEUE-FILE.QUASAR\UE-FILE.Q[Ht;ZQ x[HukzQ  [Hv*2P'[Hvx:Q @[NF:=p [c.
TP 
]G,:IF2,<IFDEFG! A,<A==A>>QIFNDEF]A,<A==B>]$Q]$qp]$,p]$;vpP]$<rp]%VQ]%p]%h6p ]%hYp ]%l{Q @]%{VQ  ]&
ZQ x]PvKzQx@]PvLPP']PvN8Q `]Pw
%KQ  _
%M1Q _
Ql}p _
T8:p _
TH:p _
Up _
Ukrp _
V
2p _
V
Vp _
V8tp _
V:=p _
V=p _
V=p _
VJ6p _
VN8p _
V[TpX<P' Z7Qx ,}P-9QH0Q lYQ <Q =Q @=Q =8Q  a  VqEH
	IFDEF VQA,<
		IFL <A-CWA>,<PRINTX VALUE OWhF A IS TOO SMALLX>
		IFG <A-D>,X(<PRINTX VALUE OF XHA IS TOO LARGE>
	>  ;END IFDEF YA
	IFNDEF A,<A==B>
F A,<Aa3$J;P a3%]6P aNkp aNJ6p aNh6p aNxUp aN
2p aN:=p aN5kzP'aNd=9Q xaNeX<P'aSJ;P aS]6P ctzP @ctTQ ctWQ ~ct*WQ xctKP'ctLQ xcuWP cu9P  cu(QP cukzP cv
TP cv
WQ xcv
[P'cvcv)P cv98Qvxcv<P @cvZWP'cF:=p cOtkP'~cOu"cOuP$cOuh6Q xcv:	Kt  ;MACRO T:)O GENERATE THE QU:IEUE HEADERS FROM :hTHE QUEUES MACRO
	DEFINE	X(A,B,C,;)D,E,F),<	;DEFINE ;HX FOR THE LATER E;hXPANSION OF QUEUE<S
HDR'A::	INSVL.<((<SIXBIT\   A\>,Q<HH.NAM)!INSVL.(C,Q<hH.TYP)!D
	EXP	0
	IFDIF	<E> <0> ,=(<GLOB(E)>
	XWD	E=H,INSVL.(B,QH.SIZ)=h
	EXP	F
	EXP	0
	>  ;END OF DEFI>(NE X
	QUEUES			;>HNOW EXPAND QUEUES
EXPAND QUEUEScV.Y9 /IKD

	XLISTkI

	X	INP,QNTSIZ|,.QHTIP,0,S$INPT,/(LIQBAT
	X	LPT,QN/	TSIZ,.QHTOU,0,S$Lk)PT,LIQLPT
	X	PTP/i,QNTSIZ,.QHTOU,0,0S$PTP,LIQPTP
	X	0(CDP,QNTSIZ,.QHTOU0H,0,S$CDP,LIQCDP
0h	X	PLT,QNTSIZ,.QH1TOU,0,S$PLT,LIQPL1(T
	X	RET,QNTSIZ,1H.QHTAR,QH.INV,S$R1hET,LIQRET
	X	NOT2,QNTSIZ,.QHTAR,QH2(.INV,S$NOT,0
	X	2HBIN,QNTSIZ,.QHTIP2h,QH.INV,S$BIN,0
3	X	XFR,QNTSIZ,.QH3(TOU,QH.INV,S$XFR,3H0
	X	DBM,QNTSIZ,3h.QHTOU,QH.INV,S$D4BM,0
	X	RDR,QNTS4(IZ,.QHFRR,0,S$RDR4H,0
	X	IPC,IPCSIZ4h,.QHTQS,QH.IPC!QH5.INV,0,0
	X	IPS,5(IPCSIZ,.QHTQS,QH.5HIPC!QH.INV,0,0
	5hX	SPL,SPLSIZ,.QHT6QS,QH.INV,0,0
	X6(	PSB,PSBSIZ,.QHTQ6HS,QH.INV,0,0
	X	6hOBJ,OBJSIZ,.QHTQS7,QH.INV,0,0
	X	U7(SE,USESIZ,.QHTQS,7HQH.INV,0,0
	X	ST7hR,STRSIZ,.QHTQS,Q8H.INV,0,0
	X	NET8(,NETSIZ,.QHTQS,QH8H.INV,0,0

	LIST

,0

	LISTeYj:p eYkWp eYl}p eYmp eYm7p e:=p e.:=P eahUp eahVp  eaiRp eaj:p eal}p e	iVp e	j7p e	j:p e	l}p e0tKQ @e0u+qP'e0v<Q  e<tQ xe<v
Q @e<v[TP'e>:=p eDuWQ @eDv+Q  eO)hrp eO)hwp eO)ip eO)kWp eO)l}p eO)mp eO)m7p gDI3P gDjQP gEKUP gE[rP gF*TP gF8tP g$tkQ @g$uP'g@t(:Q @g@tIYQ  g@u+qP'g@uKqP'g@ujQ xg@v:=P'gBah[p gBai3p gBaiTp gBaiVp gBajp gBajQp gBalp gBal}p gBdZp gBdlVp gBe+qp gBeXQP 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 biFT
	XLIST
c			X	<Invalid>,%INc(VLD,100
		X	<IdlcHe>,%IDLE,0
		X	<chActive>,%ACTIV,0
		X	<Stopped>,%Sd(TOPD,0
		X	<Not dHStarted>,%NSTRT,0dh
		X	<Not Availaeble>,%NAVAL,0
		e(X	<No Ptys>,%NPTYeHS,.OTBAT
		X	<Ofehfline>,%OFLNE,<.OfTLPT,.OTPTP,.OTCDf(P,.OTPLT,.OTRDR>
		X	<System Fullfh>,%SFULL,.OTBAT
g		X	<Shutting Dowg(n>,%SHTDN,0
		X	gH<Aborting>,%CNCLGgh,0
		X	<Opr Resph Wait>,%OREWT,0
h(		X	<Aligning ForhHms>,%ALIGN,.OTLPThh
		X	<>,%RESET,0i
		X	<Reading>,%i(READN,.OTRDR
		XiH	<Requeing>,%REQUihE,0
		X	<Shuttinjg Down>,%SHUTD,0
		X	<Opr Output jHWait>,%OPRWT,.OTLPT
	LIST
	OTLgR}J6 vYGM
	IFNDEF vyL.C,<PRINTX Undewfined limit paramw8eter C>
	..Z==wXB
	..O==<L.C&77wx7777000000>_-^D18x
	..Z==..Z+..O
x8	..S==<L.C&77700xX0>_-^D9
	..P==<Lxx.C&777>
	..P==^yD35-..P
	..Z==..y8Z+<..S>B11+<..P>ByX5
	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/q
	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 i?4( /yIFN FTUUOS,B			;DEFINE UNi?4H X/}IFN FTJSYS,	INTERN AEDT	k
rHQ k
r$Q k
rU+Q k
rdJQ k
sQ k
tPQ k
tYQ @k
tMZQ k
u=Q `k
uyVQ k
vLUQ  k
vl{Q k
v{Q  kI7p kN.:=P m0t;ZQ xm0tI7Q @m0uHZQ <m0uySP'm0v8yQ m0v:Q m0v=Q pm>eI7p mLt;ZQ xmLtI7P'mLuHZQ mLuMVP mLui;Q mLum6Q mLuySP'~mLu|Q mLvK8Q  mLvLUQ xmLvN8Q pmLvi\Q mLvl{Q @mLv{Q mNeI7p 
mNuI7P oPu[yQ  p yyFV
	ER$A==ji..XX
	..XX=..XX+1
RN	$$A
	$$q@  
	A==:B
	A==:BqcGP 	P &<P 
NsP NtP NzP N<P 	lWP l87P 
l:PlI3P	m:6PmLzPm[rPmnP	n)6Pn)8P uH8P u}`P 
	IFNDEF |A$$A,<
		PRINTX |`UNDEFINED COUNTER} A USED
	>
	AO} S	G$ITEM##+$$A
G$ITEM##+$$A
	'$[  !H\
	XLIST
A	X	(NOW,CURRENT T`IME OF DAY)
	X	(STAR,QUASAR START  TIME)
	X	(QJOB,@QUASARS JOB NUMBE`R)
	X	(IPCI,TOTAL NUMBER OF IPCF  INTERRUPTS RECEIV@ED)
	X	(RIPC,IPC`F MESSAGES RECEIVED)
	X	(SIPC,IPC F MESSAGES SENT)
	X	(IPCF,IPCF SE`ND FAILURES)
	X	(IPCU,UNRECOVERAB LE IPCF SEND FAIL@URES)
	X	(MREL,R`ELEASE MESSAGES RECEIVED)
	X	(MCH K,CHECKPOINT MESS@AGES RECEIVED)
	`X	(MREQ,REQUEUE MESSAGES RECEIVED) 
	X	(MNXT,NEXTJO@B MESSAGES SENT)
	X	(MABO,ABORT MESSAGES SENT)
	X 	(MLST,LIST MESSA@GES RECEIVED)
	X`	(NLAP,LISTANSWER PAGES SENT)
	X	 (SCRE,SUCCESSFUL @CREATES DONE)
	X`	(MMOD,MODIFY MESSAGES RECEIVED)
 	X	(MKIL,KILL MES@SAGES RECEIVED)
`	X	(MDEF,DEFER ME	SSAGES RECEIVED)
	X	(ISPL,IMMEDIA	@TE SPOOL MESSAGES	` RECEIVED)
	X	(D
SPL,DEFFERED SPOO
 L MESSAGES RECEIV
@ED)
	X	(MCAN,COU
`NTANSWER MESSAGES SENT)
	X	(SLCD, SCHEDULER LOOP CO@UNTDOWNS)
	LIST
	SALL

	LIST }aGv
	IFNDEF ~$$B,<
		PRINTX ~ UNDEFINED COUNTER~@ B USED
	>
	ST~`ORE	A,G$ITEM##+$$B
G$ITEM##+$
vyP J;P ewP 
RP9PvPt;PN:`P[]P^$P88QP 8TP :6P H9P H9P KqP LzP 9P TP 
6P H9P HTP J1P J6P 	TP h6P :~JQP :~K6P :~MP ;N9P ;LZP >5KRP >uJ7Q ?-zP ?]zP BGvP J(:P JI6P J,P J.2P J.9:P KYP K[PP K[QP K[uP N6[P NFIP NF]P O$1P O$P O$7P O$zP O%X<P O%|P R	 P W	9P Z}HVP Z}LqP ;GP \zP S@P 5:6P 6)6P L)p L)p \zP &=P 
zp 
Zp 
:p 
;wp 
I2p *2P +qp 98P :9p <p <p d(P fP h4P h9P hwP iWP j6P lHp lIp lpP lzp Sp I7p X<P (rp X5P 2P 32P 3\yP 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 y6nXrp z6n[9p z6n[<p y6n[Wp {6v)P 6v)1P 6v+VP 6v-P 6v9P 6vLzP 6vMP 6|H1P 6|K4P 6|LP 7zp 7kp 
7+qp 7Ksp 
7h6p 7
2p 	7)8p 7*2p 7\yp 7lvp 7%P 7&
2P 7&=P 7&N8P 7&kvP >)qp >;yP >kP >
TP ><wP >=P >H8P >J6P >5H3p >5I0Q x>DLYp >|kP >|lVP >}J6P >~
TP >~H8P ?WP ?\P ?*7Q xFzP 	FZP F)wP F+P 
F9P Fj6P FlVP F(WP 
FkzP 
FmP FyP Fz2P F
TP F2P 
F)9P F[TP F[ZP F,;wp F,<Rp F,I2p F,J7p F-p F-p F-(Qp F-(Wp F-+qP F-J6p F-KUp F-j2p F-xUp F-z2P F-}wp 
F.
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|87P F|:P F|;zP F|<2P F|<RP F|IYP F}WP 
F}	6P F}:6P F}H7P F}J9P F}X9P F}X:P F}[PP F}[ZP 
F}[rP F}]P F}]P 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 J$)9p J$*Qp J$*Vp J$+{p J$,Xp J|(:p J|+Rp J|-p J|-0p NlP Nmh6P R$I;p R$MZp R%	p R%(Wp RlI7P RlK<P RlLKP RlLLP RlL[P RmTP RmKVP RmMP Rn+5P Rn9:P Rn=P RnkvP RnlP V(wp V+Vp V,zp V-Vp V-Yp Zdkp Zeh6p Ze}wp ZfXqp Zflvp [p [=Vp 	[kp [KVp [Yp [)6p [Xqp 	[kvp 
[lwp >}{woP