PDP-10 Archive: 4-sources/qsrmac.unv from bb-d868c-bm_tops20_v4_2020

Trailing-Edge - PDP-10 Archives - bb-d868c-bm_tops20_v4_2020_distr - 4-sources/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 A@/
	RADIX 5A+5
	IF1,<IFDEF L.A,<PRINTX Mult.a defined limit pa!rameter A>>
	IF1L <36-C>,<PRINTXP Illegal C for lpimit A>
	IFL <35-D>,<PRINTX Ill0egal position forP limit A>
	IFLEp <EQLMSZ-B>,<PRINTX Illegal B fo0r limit A>
	L.PA==<BYTE (18) B p(9) C,D>
	RADIX 4+4
>
	RADII62 MaDr
	X	BAT
N	X	LPT
	X	CDP
	N X	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 #yB#ASCIZ \DSK$:PRIVATE-MASTER-Q$8UEUE-FILE.QUASAR\UE-FILE.QUASAR\I?: !9B	
	IFN <%% y.MOD-<SIXBIT /QUA YSAR/>>,<EXTERN G$!SCHD>
	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 %D
	XLIST
%9
	X	BMG,<Bad MOD$xIFY Group>,MF.FAT%a
	X	ICM,<Illegal& CREATE Message>,& MF.FAT
	X	IFS,<I&@llegal File Speci&`fication>,MF.FAT
	X	ILM,<Illegal ' LIST Message>,MF.'@FAT
	X	IFD,<Ille'`gally Formatted D(evice Name>,MF.FA( T
	X	IMT,<Illega(@l Message Type>,M(`F.FAT
	X	INF,<Il)legal Number of F) iles>,MF.FAT
	X	)@IPE,<Insufficient)` Privileges Enabl*ed>,MF.FAT
	X	MT* L,<Message Too Lo*@ng>,MF.FAT
	X	MT*`S,<Message is Too+ Short>,MF.FAT
	+ X	NKC,<Not a Know+@n Component>,MF.F+`AT
	X	NOR,<Numbe,r Out of Range>,M, F.FAT
	X	NYO,<No,@t Your Object>,MF,`.FAT
	X	SNY,<Spe-cified request is-  Not Yours>,MF.FA-@T
	X	UQS,<Unknow-`n Queue Specified.>,MF.FAT
	X	UOS,. <Unknown Object S.@pecified>,MF.FAT
	X	WVN,<Wrong Ve/rsion Number>,MF./ FAT
	X	IAS,<Inva/@lid Account Strin/`g Specified>,MF.F0AT
	X	OHR,<Opera0 tor Has Restricte0@d Queue Entry Com0`mands>,MF.FAT
	X1	IMM,<Illegal MOU1 NT Message>,MF.FA1@T
	X	MPN,<MOUNT 1`Request Processor2 Not Running>,MF.2 FAT
	X	CDU,<Can'2@t Default User Na2`me>,MF.FAT
	X	CD3D,<Can't Default 3 Connected Directo3@ry>,MF.FAT
	X	NV3`M,<No Volume Moun4ted On Drive>,MF.4 FAT
	X	VAU,<Volu4@me is Already in 4`Use>,MF.FAT
	X	D5AU,<Drive is Alre5 ady in Use>,MF.FA5@T
	X	VIL,<Volume5` on Drive is Labe6led>,MF.FAT
	X	U6 RB,<User Requeste6@d Bypass Label Vo6`lumes>,MF.FAT
	X7	URL,<User Reques7 ted Labeled Volum7@es>,MF.FAT
	X	UR7`W,<User Requested8 Write-Locked Vol8 umes>,MF.FAT
	X	8@URE,<User Request8`ed Write-Enabled 9Volumes>,MF.FAT
9 	X	RDD,<Requested9@ Density Does not9` Match Volume Den:sity>,MF.FAT
	X	: VND,<Requested Vo:@lume not on this :`Device>,MF.FAT
	;X	IUD,<Illegal Fo; r UNAVAILABLE Dev;@ice>,MF.FAT
	X	N;`SD,<No Such Devic<e>,MF.FAT
	X	RLD< ,<Request Label T<@ype Doesn't Match<` Volume Label Typ=e>,MF.FAT
	X	DAD= ,<Drive is alread=@y available>,MF.F=`AT
	X	CDA,<Can't> Delete an Alloca> ted request>,MF.F>@AT
	X	CNI,<Comma>`nd Not Yet Implem?ented>,MF.FAT
	X? 	IMO,<Invalid Mes?@sage from ORION>,?`MF.FAT
	X	PRB,<P@rivileges Require@ d for Bypass Labe@@l Processing>,MF.@`FAT
	X	NVI,<VOLIAD Required for ThA is Volume>,MF.FATA@
	X	CIU,<Cannot A`IDENTIFY the UserBs Current Volume>B ,MF.FAT
	X	ICD,<B@Illegal ConnectedB` Directory SpecifCied>,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 @W
	IFNDEF qL.C,<PRINTX UndeQfined limit param1eter C>
	..Z==qB
	..O==<L.C&77	7777000000>_-^D18	0
	..Z==..Z+..O
	P	..S==<L.C&77700	p0>_-^D9
	..P==<L
.C&777>
	..P==^
0D35-..P
	..Z==..
PZ+<..S>B11+<..P>B
p5
	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 o?.
	X	BAT,InaNP,<<1,,77>,<0,,^nAD3600>,0,<INPOIP,n!,0>,<1,,^D512>>
p		X	LPT,LPT,<<1,,7p(7>,<1,,^D500>,<FRpHMNOR>,<FLEACT,,0>ph,0>
	X	PTP,PTP,<q<1,,77>,<1,,^D500q(>,<FRMNOR>,<FLEACqHT,,0>,0>
	X	CDP,qhCDP,<<1,,77>,<1,,r^D500>,<FRMNOR>,<r(FLEACT,,0>,0>
	XrH	PLT,PLT,<<1,,77>rh,<1,,^D500>,<FRMNsOR>,<FLEACT,,0>,0s(>
	X	RDR,RDR,<0,sH0,0,0,0>
	X	BIN,shBIN,<0,0,0,0,0>
t	X	DBM,DBM,<0,0,0t(,0,0>

   TOPS2tH0 <
	X	XFR,XFR,<th0,0,0,0,0>
	X	REuT,RET,<0,0,0,0,0>u(
	X	NOT,NOT,<0,0uH,0,0,0>
        uh  > ;END TOPS20

;END TOPS20
[3@ , *b<<<1_<A>>-1>B<B>>_<A>>[@ - *v
	IFB <B-@>,<MAXSIZ==0
		I-`RP A,<IFG <A-MA.XSIZ>,<MAXSIZ==A. >>>
	IFNB <B>,<.@B==0
		IRP A,<.`IFG <A-B>,<B==A>>>
B>,<B==[F:=P [I7p

[4ukzQ  [4vx:Q @[>!iSp [>!irp [>!iwp [>!kzp [>!lXp [>!l}p [>${P'[>$|Q x[F5h6 "yBASCIZ\DSK:#9<SPOOL>PRIMARY-MA#STER-QUEUE-FILE.QUASAR\UE-FILE.Q[Ht;ZQ x[HukzQ  [Hv*2P'[Hvx:Q @[NF:=p [c.

TP 
]E0,-IF2,<IFDEFEP 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  kI>n
	IFDEF k)A,<
		IFL <A-Cl>,<PRINTX VALUE Ol@F A IS TOO SMALLl`>
		IFG <A-D>,m<PRINTX VALUE OF m A IS TOO LARGE>
	>  ;END IFDEF m`A
	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[P"cOuP$cOuh6Q xcvNaE  ;MACRO TOO GENERATE THE QUO!EUE HEADERS FROM O@THE QUEUES MACRO
	DEFINE	X(A,B,C,PD,E,F),<	;DEFINE P X FOR THE LATER EP@XPANSION OF QUEUEP`S
HDR'A::	INSVL.Q(<SIXBIT\   A\>,QQ H.NAM)!INSVL.(C,QQ@H.TYP)!D
	EXP	0
	IFDIF	<E> <0> ,R<GLOB(E)>
	XWD	ER ,INSVL.(B,QH.SIZ)R@
	EXP	F
	EXP	0
	>  ;END OF DEFISNE X
	QUEUES			;S NOW EXPAND QUEUES
EXPAND QUEUEScV.Y9 D!Dj

	XLIST!

	X	INP,QNTSIZY,.QHTIP,0,S$INPT,DLIQBAT
	X	LPT,QNCaTSIZ,.QHTOU,0,S$LPT,LIQLPT
	X	PTPDA,QNTSIZ,.QHTOU,0,D`S$PTP,LIQPTP
	X	ECDP,QNTSIZ,.QHTOUE ,0,S$CDP,LIQCDP
E@	X	PLT,QNTSIZ,.QHE`TOU,0,S$PLT,LIQPLFT
	X	RET,QNTSIZ,F .QHTAR,QH.INV,S$RF@ET,LIQRET
	X	NOTF`,QNTSIZ,.QHTAR,QHG.INV,S$NOT,0
	X	G BIN,QNTSIZ,.QHTIPG@,QH.INV,S$BIN,0
G`	X	XFR,QNTSIZ,.QHHTOU,QH.INV,S$XFR,H 0
	X	DBM,QNTSIZ,H@.QHTOU,QH.INV,S$DH`BM,0
	X	RDR,QNTSIIZ,.QHFRR,0,S$RDRI ,0
	X	IPC,IPCSIZI@,.QHTQS,QH.IPC!QHI`.INV,0,0
	X	IPS,JIPCSIZ,.QHTQS,QH.J IPC!QH.INV,0,0
	J@X	SPL,SPLSIZ,.QHTJ`QS,QH.INV,0,0
	XK	PSB,PSBSIZ,.QHTQK S,QH.INV,0,0
	X	K@OBJ,OBJSIZ,.QHTQSK`,QH.INV,0,0
	X	ULSE,USESIZ,.QHTQS,L QH.INV,0,0
	X	STL@R,STRSIZ,.QHTQS,QL`H.INV,0,0
	X	NETM,NETSIZ,.QHTQS,QHM .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 wA?z
	XLIST
wa		X	<Invalid>,%INxVLD,100
		X	<Idlx e>,%IDLE,0
		X	<x@Active>,%ACTIV,0
		X	<Stopped>,%SyTOPD,0
		X	<Not y Started>,%NSTRT,0y@
		X	<Not Availay`ble>,%NAVAL,0
		zX	<No Ptys>,%NPTYz S,.OTBAT
		X	<Ofz@fline>,%OFLNE,<.Oz`TLPT,.OTPTP,.OTCD{P,.OTPLT,.OTRDR>
		X	<System Full{@>,%SFULL,.OTBAT
{`		X	<Shutting Dow|n>,%SHTDN,0
		X	| <Aborting>,%CNCLG|@,0
		X	<Opr Resp|` Wait>,%OREWT,0
}		X	<Aligning For} ms>,%ALIGN,.OTLPT}@
		X	<>,%RESET,0}`
		X	<Reading>,%~READN,.OTRDR
		X~ 	<Requeing>,%REQU~@E,0
		X	<Shuttin~`g Down>,%SHUTD,0
		X	<Opr Output  Wait>,%OPRWT,.OTLPT
	LIST
	OTLgR}J6 1@s
	IFNDEF QL.C,<PRINTX Undepfined limit param

eter C>
	..Z==

0B
	..O==<L.C&77

P7777000000>_-^D18

p
	..Z==..Z+..O
	..S==<L.C&77700
	..P==<L
	..P==^
	..Z==..Z+<..S>B11+<..P>B05
	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 {h/d
	IFNB <|B>,<TOPS10<A==B|(>>
	IFNB <C>,<T|HOPS20<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( }H/lIFN FTUUOS,B			;DEFINE UNi?4H ~/pIFN 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 Q?|
	ER$A==A..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,<
		PRINTX 8UNDEFINED COUNTERX A USED
	>
	AOxS	G$ITEM##+$$A
G$ITEM##+$$A
	'$[  yB
	XLIST
	X	(NOW,CURRENT T8IME OF DAY)
	X	(XSTAR,QUASAR STARTx TIME)
	X	(QJOB,QUASARS JOB NUMBE8R)
	X	(IPCI,TOTAXL NUMBER OF IPCF xINTERRUPTS RECEIVED)
	X	(RIPC,IPC8F MESSAGES RECEIVXED)
	X	(SIPC,IPCxF MESSAGES SENT)
	X	(IPCF,IPCF SE8ND FAILURES)
	X	X(IPCU,UNRECOVERABxLE IPCF SEND FAILURES)
	X	(MREL,R8ELEASE MESSAGES RXECEIVED)
	X	(MCHxK,CHECKPOINT MESSAGES RECEIVED)
	8X	(MREQ,REQUEUE MXESSAGES RECEIVED)x
	X	(MNXT,NEXTJOB MESSAGES SENT)
	X	(MABO,ABORT MXESSAGES SENT)
	Xx	(MLST,LIST MESSAGES RECEIVED)
	X8	(NLAP,LISTANSWERX PAGES SENT)
	X	x(SCRE,SUCCESSFUL CREATES DONE)
	X8	(MMOD,MODIFY MESXSAGES RECEIVED)
x	X	(MKIL,KILL MESSAGES RECEIVED)
8	X	(MDEF,DEFER MEXSSAGES RECEIVED)
	X	(ISPL,IMMEDIATE SPOOL MESSAGES8 RECEIVED)
	X	(DXSPL,DEFFERED SPOOxL MESSAGES RECEIVED)
	X	(MCAN,COU8NTANSWER MESSAGESX SENT)
	X	(SLCD,xSCHEDULER LOOP CO UNTDOWNS)
	LIST
	SALL

	LIST 9A
	IFNDEF Y$$B,<
		PRINTX xUNDEFINED COUNTER B USED
	>
	ST8ORE	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%[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 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