PDP-10 Archive: autopatch/qsrmac.unv from BB-L014E-BM

Trailing-Edge - PDP-10 Archives - BB-L014E-BM - autopatch/qsrmac.unv

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

x
,Lg@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 q)G5
	RADIX 5r)+5
	IF1,<IFDEF Lqi.A,<PRINTX Mult.qI defined limit par	rameter A>>
	IFtL <36-C>,<PRINTXt8 Illegal C for ltXimit A>
	IFL <3tx5-D>,<PRINTX Illuegal position foru8 limit A>
	IFLEuX <EQLMSZ-B>,<PRIuxNTX Illegal B fovr limit A>
	L.v8A==<BYTE (18) B vX(9) C,D>
	RADIX 4+4
>
	RADII62 >YKy
	X	BAT
>y	X	LPT
	X	CDP
	?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 qI+ASCIZ \DSK:PRIVATE-MASTER-Q0UEUE-FILE.QUASAR\UE-FILE.QUASAR\I?: !I
	IFN <%%a.MOD-<SIXBIT /QUAASAR/>>,<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 K
	XLIST
1
	X	BMG,<Bad MODpIFY Group>,MF.FATY
	X	ICM,<Illegalx CREATE Message>,MF.FAT
	X	IFS,<I8llegal File SpeciXfication>,MF.FAT
	X	ILM,<Illegal LIST Message>,MF.8FAT
	X	IFD,<IlleXgally Formatted Dxevice Name>,MF.FAT
	X	IMT,<Illega8l Message Type>,MXF.FAT
	X	INF,<Ilxlegal Number of Files>,MF.FAT
	X	8IPE,<InsufficientX Privileges Enablxed>,MF.FAT
	X	MTL,<Message Too Lo8ng>,MF.FAT
	X	MTXS,<Message is Toox Short>,MF.FAT
	X	NKC,<Not a Know8n Component>,MF.FXAT
	X	NOR,<Numbexr Out of Range>,MF.FAT
	X	NYO,<No8t Your Object>,MFX.FAT
	X	SNY,<Spexcified request is Not Yours>,MF.FA8T
	X	UQS,<UnknowXn Queue Specifiedx>,MF.FAT
	X	UOS,<Unknown Object S8pecified>,MF.FAT
	X	WVN,<Wrong Vexrsion Number>,MF. FAT
	X	IAS,<Inva 8lid Account Strin Xg Specified>,MF.F xAT
	X	OHR,<Opera!tor Has Restricte!8d Queue Entry Com!Xmands>,MF.FAT
	X!x	IMM,<Illegal MOU"NT Message>,MF.FA"8T
	X	MPN,<MOUNT "XRequest Processor"x Not Running>,MF.#FAT
	X	CDU,<Can'#8t Default User Na#Xme>,MF.FAT
	X	CD#xD,<Can't Default $Connected Directo$8ry>,MF.FAT
	X	NV$XM,<No Volume Moun$xted On Drive>,MF.%FAT
	X	VAU,<Volu%8me is Already in %XUse>,MF.FAT
	X	D%xAU,<Drive is Alre&ady in Use>,MF.FA&8T
	X	VIL,<Volume&X on Drive is Labe&xled>,MF.FAT
	X	U'RB,<User Requeste'8d Bypass Label Vo'Xlumes>,MF.FAT
	X'x	URL,<User Reques(ted Labeled Volum(8es>,MF.FAT
	X	UR(XW,<User Requested(x Write-Locked Vol)umes>,MF.FAT
	X	)8URE,<User Request)Xed Write-Enabled )xVolumes>,MF.FAT
*	X	RDD,<Requested*8 Density Does not*X Match Volume Den*xsity>,MF.FAT
	X	+VND,<Requested Vo+8lume not on this +XDevice>,MF.FAT
	+xX	IUD,<Illegal Fo,r UNAVAILABLE Dev,8ice>,MF.FAT
	X	N,XSD,<No Such Devic,xe>,MF.FAT
	X	RLD-,<Request Label T-8ype Doesn't Match-X Volume Label Typ-xe>,MF.FAT
	X	DAD.,<Drive is alread.8y available>,MF.F.XAT
	X	CDA,<Can't.x Delete an Alloca/ted request>,MF.F/8AT
	X	CNI,<Comma/Xnd Not Yet Implem/xented>,MF.FAT
	X0	IMO,<Invalid Mes08sage from ORION>,0XMF.FAT
	X	PRB,<P0xrivileges Require1d for Bypass Labe18l Processing>,MF.1XFAT
	X	NVI,<VOLI1xD Required for Th2is Volume>,MF.FAT28
	X	CIU,<Cannot 2XIDENTIFY the User2xs Current Volume>3,MF.FAT
	X	ICD,<38Illegal Connected3X Directory Specif3xied>,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 MOLzP  MO[RP 	`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 wyG]
	IFNDEF wYL.C,<PRINTX Undew9fined limit paramweter C>
	..Z==yYB
	..O==<L.C&77yx7777000000>_-^D18z
	..Z==..Z+..O
z8	..S==<L.C&77700zX0>_-^D9
	..P==<Lzx.C&777>
	..P==^{D35-..P
	..Z==..{8Z+<..S>B11+<..P>B{X5
	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 iF5
	X	BAT,I_INP,<<1,,77>,<0,,^_)D3600>,0,<INPOIP,_	,0>,<1,,^D512>>
`q	X	LPT,LPT,<<1,,7a7>,<1,,^D500>,<FRa0MNOR>,<FLEACT,,0>aP,0>
	X	PTP,PTP,<ap<1,,77>,<1,,^D500b>,<FRMNOR>,<FLEACb0T,,0>,0>
	X	CDP,bPCDP,<<1,,77>,<1,,bp^D500>,<FRMNOR>,<cFLEACT,,0>,0>
	Xc0	PLT,PLT,<<1,,77>cP,<1,,^D500>,<FRMNcpOR>,<FLEACT,,0>,0d>
	X	RDR,RDR,<0,d00,0,0,0>
	X	BIN,dPBIN,<0,0,0,0,0>
dp	X	DBM,DBM,<0,0,0e,0,0>

   TOPS2e00 <
	X	XFR,XFR,<eP0,0,0,0,0>
	X	REepT,RET,<0,0,0,0,0>f
	X	NOT,NOT,<0,0f0,0,0,0>
        fP  > ;END TOPS20

;END TOPS20
[3@ 3+<<<1_<A>>-1>B<B>>_<A>>[@ 4+-
	IFB <B41>,<MAXSIZ==0
		I4PRP A,<IFG <A-MA4pXSIZ>,<MAXSIZ==A5>>>
	IFNB <B>,<50B==0
		IRP A,<5PIFG <A-B>,<B==A>>>
B>,<B==[F:=P [I7p

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

TP 
]L,dIF2,<IFDEFLA 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  \1Et
	IFDEF \A,<
		IFL <A-C]>,<PRINTX VALUE O](F A IS TOO SMALL]H>
		IFG <A-D>,]h<PRINTX VALUE OF ^A IS TOO LARGE>
	>  ;END IFDEF ^HA
	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 xcv?YL!  ;MACRO T?yO GENERATE THE QU@EUE HEADERS FROM @8THE QUEUES MACRO
	DEFINE	X(A,B,C,@yD,E,F),<	;DEFINE AX FOR THE LATER EA8XPANSION OF QUEUEAXS
HDR'A::	INSVL.Ax(<SIXBIT\   A\>,QBH.NAM)!INSVL.(C,QB8H.TYP)!D
	EXP	0
	IFDIF	<E> <0> ,Bx<GLOB(E)>
	XWD	EC,INSVL.(B,QH.SIZ)C8
	EXP	F
	EXP	0
	>  ;END OF DEFICxNE X
	QUEUES			;DNOW EXPAND QUEUES
EXPAND QUEUEScV.Y9 5Kq

	XLISTq	

	X	INP,QNTSIZA,.QHTIP,0,S$INPT,4xLIQBAT
	X	LPT,QN4YTSIZ,.QHTOU,0,S$LpiPT,LIQLPT
	X	PTP59,QNTSIZ,.QHTOU,0,5XS$PTP,LIQPTP
	X	5xCDP,QNTSIZ,.QHTOU6,0,S$CDP,LIQCDP
68	X	PLT,QNTSIZ,.QH6XTOU,0,S$PLT,LIQPL6xT
	X	RET,QNTSIZ,7.QHTAR,QH.INV,S$R78ET,LIQRET
	X	NOT7X,QNTSIZ,.QHTAR,QH7x.INV,S$NOT,0
	X	8BIN,QNTSIZ,.QHTIP88,QH.INV,S$BIN,0
8X	X	XFR,QNTSIZ,.QH8xTOU,QH.INV,S$XFR,90
	X	DBM,QNTSIZ,98.QHTOU,QH.INV,S$D9XBM,0
	X	RDR,QNTS9xIZ,.QHFRR,0,S$RDR:,0
	X	IPC,IPCSIZ:8,.QHTQS,QH.IPC!QH:X.INV,0,0
	X	IPS,:xIPCSIZ,.QHTQS,QH.;IPC!QH.INV,0,0
	;8X	SPL,SPLSIZ,.QHT;XQS,QH.INV,0,0
	X;x	PSB,PSBSIZ,.QHTQ<S,QH.INV,0,0
	X	<8OBJ,OBJSIZ,.QHTQS<X,QH.INV,0,0
	X	U<xSE,USESIZ,.QHTQS,=QH.INV,0,0
	X	ST=8R,STRSIZ,.QHTQS,Q=XH.INV,0,0
	X	NET=x,NETSIZ,.QHTQS,QH>.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 e"luP'e0tKQ @e0u+qP'e0v<Q  e4tYQ xe4uP'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 h)G
	XLIST
hI		X	<Invalid>,%INhhVLD,100
		X	<Idlie>,%IDLE,0
		X	<i(Active>,%ACTIV,0
		X	<Stopped>,%SihTOPD,0
		X	<Not jStarted>,%NSTRT,0j(
		X	<Not AvailajHble>,%NAVAL,0
		jhX	<No Ptys>,%NPTYkS,.OTBAT
		X	<Ofk(fline>,%OFLNE,<.OkHTLPT,.OTPTP,.OTCDkhP,.OTPLT,.OTRDR>
		X	<System Fulll(>,%SFULL,.OTBAT
lH		X	<Shutting Dowlhn>,%SHTDN,0
		X	m<Aborting>,%CNCLGm(,0
		X	<Opr RespmH Wait>,%OREWT,0
mh		X	<Aligning Fornms>,%ALIGN,.OTLPTn(
		X	<>,%RESET,0nH
		X	<Reading>,%nhREADN,.OTRDR
		Xo	<Requeing>,%REQUo(E,0
		X	<ShuttinoHg Down>,%SHUTD,0
		X	<Opr Output pWait>,%OPRWT,.OTLPT
	LIST
	OTLgR}J6 |Gy
	IFNDEF |9L.C,<PRINTX Unde|Xfined limit param|xeter C>
	..Z==}B
	..O==<L.C&77}87777000000>_-^D18}X
	..Z==..Z+..O
}x	..S==<L.C&77700~0>_-^D9
	..P==<L~8.C&777>
	..P==^~XD35-..P
	..Z==..~xZ+<..S>B11+<..P>B5
	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 X0
	IFNB <yB>,<TOPS10<A==B>>
	IFNB <C>,<T8OPS20<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( 80#IFN FTUUOS,B			;DEFINE UNi?4H x0'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 9G
	ER$A==p)..XX
	..XX=..XX+1
RN	$$A
	$$q@ 0 C
	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  UNDEFINED COUNTER@ A USED
	>
	AO`S	G$ITEM##+$$A
G$ITEM##+$$A
	'$[  aI
	XLIST
	X	(NOW,CURRENT T IME OF DAY)
	X	(@STAR,QUASAR START` TIME)
	X	(QJOB,QUASARS JOB NUMBE R)
	X	(IPCI,TOTA@L NUMBER OF IPCF `INTERRUPTS RECEIVED)
	X	(RIPC,IPC F MESSAGES RECEIV@ED)
	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 R	@ECEIVED)
	X	(MCH	`K,CHECKPOINT MESS
AGES RECEIVED)
	
 X	(MREQ,REQUEUE M
@ESSAGES RECEIVED)
`
	X	(MNXT,NEXTJOB MESSAGES SENT)
	X	(MABO,ABORT M@ESSAGES SENT)
	X`	(MLST,LIST MESSA

GES RECEIVED)
	X

 	(NLAP,LISTANSWER

@ PAGES SENT)
	X

`(SCRE,SUCCESSFUL 
	XMMOD,MODIFYDMES
	X	(MKIL,KILL MESSAGES RECEIVED)
`	X	(MDEF,DEFER ME@SSAGES RECEIVED)
	X	(ISPL,IMMEDIATE SPOOL MESSAGES  RECEIVED)
	X	(D@SPL,DEFFERED SPOO`L MESSAGES RECEIVED)
	X	(MCAN,COU NTANSWER MESSAGES@ SENT)
	X	(SLCD,`SCHEDULER LOOP COUNTDOWNS)
	LIST
	SALL

	LIST !H"
	IFNDEF A$$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

QP 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