PDP-10 Archive: exec/qsrmac.unv from tops20v41

Trailing-Edge - PDP-10 Archives - tops20v41_execsrcmod - exec/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 yA2
	RADIX 5y+5
	IF1,<IFDEF L9.A,<PRINTX Mult. defined limit paYrameter A>>
	IFiL <36-C>,<PRINTX Illegal C for l(imit A>
	IFL <3H5-D>,<PRINTX Illhegal position for limit A>
	IFLE( <EQLMSZ-B>,<PRIHNTX Illegal B fohr limit A>
	L.A==<BYTE (18) B ((9) C,D>
	RADIX 4+4
>
	RADII62 ^Eu
	X	BAT
^9	X	LPT
	X	CDP
	^XX	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

kV41C'ASCIZ \DSK4Q:PRIVATE-MASTER-Q4pUEUE-FILE.QUASAR\UE-FILE.QUASAR\I?: 1qC
	IFN <%%11.MOD-<SIXBIT /QUA1SAR/>>,<EXTERN G$1QSCHD>
	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 5QE
	XLIST
5q
	X	BMG,<Bad MOD50IFY Group>,MF.FAT6
	X	ICM,<Illegal68 CREATE Message>,6XMF.FAT
	X	IFS,<I6xllegal File Speci7fication>,MF.FAT
	X	ILM,<Illegal 7XLIST Message>,MF.7xFAT
	X	IFD,<Ille8gally Formatted D88evice Name>,MF.FA8XT
	X	IMT,<Illega8xl Message Type>,M9F.FAT
	X	INF,<Il98legal Number of F9Xiles>,MF.FAT
	X	9xIPE,<Insufficient: Privileges Enabl:8ed>,MF.FAT
	X	MT:XL,<Message Too Lo:xng>,MF.FAT
	X	MT;S,<Message is Too;8 Short>,MF.FAT
	;XX	NKC,<Not a Know;xn Component>,MF.F<AT
	X	NOR,<Numbe<8r Out of Range>,M<XF.FAT
	X	NYO,<No<xt Your Object>,MF=.FAT
	X	SNY,<Spe=8cified request is=X Not Yours>,MF.FA=xT
	X	UQS,<Unknow>n Queue Specified>8>,MF.FAT
	X	UOS,>X<Unknown Object S>xpecified>,MF.FAT
	X	WVN,<Wrong Ve?8rsion Number>,MF.?XFAT
	X	IAS,<Inva?xlid Account Strin@g Specified>,MF.F@8AT
	X	OHR,<Opera@Xtor Has Restricte@xd Queue Entry ComAmands>,MF.FAT
	XA8	IMM,<Illegal MOUAXNT Message>,MF.FAAxT
	X	MPN,<MOUNT BRequest ProcessorB8 Not Running>,MF.BXFAT
	X	CDU,<Can'Bxt Default User NaCme>,MF.FAT
	X	CDC8D,<Can't Default CXConnected DirectoCxry>,MF.FAT
	X	NVDM,<No Volume MounD8ted On Drive>,MF.DXFAT
	X	VAU,<VoluDxme is Already in EUse>,MF.FAT
	X	DE8AU,<Drive is AlreEXady in Use>,MF.FAExT
	X	VIL,<VolumeF on Drive is LabeF8led>,MF.FAT
	X	UFXRB,<User RequesteFxd Bypass Label VoGlumes>,MF.FAT
	XG8	URL,<User RequesGXted Labeled VolumGxes>,MF.FAT
	X	URHW,<User RequestedH8 Write-Locked VolHXumes>,MF.FAT
	X	HxURE,<User RequestIed Write-Enabled I8Volumes>,MF.FAT
IX	X	RDD,<RequestedIx Density Does notJ Match Volume DenJ8sity>,MF.FAT
	X	JXVND,<Requested VoJxlume not on this KDevice>,MF.FAT
	K8X	IUD,<Illegal FoKXr UNAVAILABLE DevKxice>,MF.FAT
	X	NLSD,<No Such DevicL8e>,MF.FAT
	X	RLDLX,<Request Label TLxype Doesn't MatchM Volume Label TypM8e>,MF.FAT
	X	DADMX,<Drive is alreadMxy available>,MF.FNAT
	X	CDA,<Can'tN8 Delete an AllocaNXted request>,MF.FNxAT
	X	CNI,<CommaOnd Not Yet ImplemO8ented>,MF.FAT
	XOX	IMO,<Invalid MesOxsage from ORION>,PMF.FAT
	X	PRB,<PP8rivileges RequirePXd for Bypass LabePxl Processing>,MF.QFAT
	X	NVI,<VOLIQ8D Required for ThQXis Volume>,MF.FATQx
	X	CIU,<Cannot RIDENTIFY the UserR8s Current Volume>RX,MF.FAT
	X	ICD,<RxIllegal ConnectedS Directory SpecifS8ied>,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 IAZ
	IFNDEF )L.C,<PRINTX Unde	fined limit paramieter C>
	..Z==)B
	..O==<L.C&77H7777000000>_-^D18h
	..Z==..Z+..O
	..S==<L.C&77700(0>_-^D9
	..P==<LH.C&777>
	..P==^hD35-..P
	..Z==..Z+<..S>B11+<..P>B(5
	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 9@2
	X	BAT,INP,<<1,,77>,<0,,^~yD3600>,0,<INPOIP,~Y,0>,<1,,^D512>>
A	X	LPT,LPT,<<1,,7`7>,<1,,^D500>,<FRMNOR>,<FLEACT,,0> ,0>
	X	PTP,PTP,<@<1,,77>,<1,,^D500`>,<FRMNOR>,<FLEACT,,0>,0>
	X	CDP, CDP,<<1,,77>,<1,,@^D500>,<FRMNOR>,<`FLEACT,,0>,0>
	X	PLT,PLT,<<1,,77> ,<1,,^D500>,<FRMN@OR>,<FLEACT,,0>,0`>
	X	RDR,RDR,<0,0,0,0,0>
	X	BIN, BIN,<0,0,0,0,0>
@	X	DBM,DBM,<0,0,0`,0,0>

   TOPS20 <
	X	XFR,XFR,< 0,0,0,0,0>
	X	RE@T,RET,<0,0,0,0,0>`
	X	NOT,NOT,<0,0,0,0,0>
           > ;END TOPS20

;END TOPS20
[3@ <X+e<<<1_<A>>-1>B<B>>_<A>>[@ =X+y
	IFB <B=x>,<MAXSIZ==0
		I>RP A,<IFG <A-MA>8XSIZ>,<MAXSIZ==A>X>>>
	IFNB <B>,<>xB==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 31CASCIZ\DSK:3q<SPOOL>PRIMARY-MA3QSTER-QUEUE-FILE.QUASAR\UE-FILE.Q[Ht;ZQ x[HukzQ  [Hv*2P'[Hvx:Q @[NF:=p [c.

TP 
]Uh-0IF2,<IFDEFV 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  |?q
	IFDEF {aA,<
		IFL <A-C|Q>,<PRINTX VALUE O|xF A IS TOO SMALL}>
		IFG <A-D>,}8<PRINTX VALUE OF }XA IS TOO LARGE>
	>  ;END IFDEF ~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 xcvF  ;MACRO T9O GENERATE THE QUYEUE HEADERS FROM xTHE QUEUES MACRO
	DEFINE	X(A,B,C,`9D,E,F),<	;DEFINE `XX FOR THE LATER E`xXPANSION OF QUEUEaS
HDR'A::	INSVL.a8(<SIXBIT\   A\>,QaXH.NAM)!INSVL.(C,QaxH.TYP)!D
	EXP	0
	IFDIF	<E> <0> ,b8<GLOB(E)>
	XWD	EbX,INSVL.(B,QH.SIZ)bx
	EXP	F
	EXP	0
	>  ;END OF DEFIc8NE X
	QUEUES			;cXNOW EXPAND QUEUES
EXPAND QUEUEScV.Y9 TYEm

	XLISTY

	X	INP,QNTSIZ!,.QHTIP,0,S$INPT,T8LIQBAT
	X	LPT,QNTTSIZ,.QHTOU,0,S$L9PT,LIQLPT
	X	PTPTy,QNTSIZ,.QHTOU,0,US$PTP,LIQPTP
	X	U8CDP,QNTSIZ,.QHTOUUX,0,S$CDP,LIQCDP
Ux	X	PLT,QNTSIZ,.QHVTOU,0,S$PLT,LIQPLV8T
	X	RET,QNTSIZ,VX.QHTAR,QH.INV,S$RVxET,LIQRET
	X	NOTW,QNTSIZ,.QHTAR,QHW8.INV,S$NOT,0
	X	WXBIN,QNTSIZ,.QHTIPWx,QH.INV,S$BIN,0
X	X	XFR,QNTSIZ,.QHX8TOU,QH.INV,S$XFR,XX0
	X	DBM,QNTSIZ,Xx.QHTOU,QH.INV,S$DYBM,0
	X	RDR,QNTSY8IZ,.QHFRR,0,S$RDRYX,0
	X	IPC,IPCSIZYx,.QHTQS,QH.IPC!QHZ.INV,0,0
	X	IPS,Z8IPCSIZ,.QHTQS,QH.ZXIPC!QH.INV,0,0
	ZxX	SPL,SPLSIZ,.QHT[QS,QH.INV,0,0
	X[8	PSB,PSBSIZ,.QHTQ[XS,QH.INV,0,0
	X	[xOBJ,OBJSIZ,.QHTQS\,QH.INV,0,0
	X	U\8SE,USESIZ,.QHTQS,\XQH.INV,0,0
	X	ST\xR,STRSIZ,.QHTQS,Q]H.INV,0,0
	X	NET]8,NETSIZ,.QHTQS,QH]X.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 y@}
	XLIST
		X	<Invalid>,%IN8VLD,100
		X	<IdlXe>,%IDLE,0
		X	<xActive>,%ACTIV,0
		X	<Stopped>,%S	8TOPD,0
		X	<Not 	XStarted>,%NSTRT,0	x
		X	<Not Availa
ble>,%NAVAL,0
		
8X	<No Ptys>,%NPTY
XS,.OTBAT
		X	<Of
xfline>,%OFLNE,<.OTLPT,.OTPTP,.OTCD8P,.OTPLT,.OTRDR>
		X	<System Fullx>,%SFULL,.OTBAT

		X	<Shutting Dow

8n>,%SHTDN,0
		X

X<Aborting>,%CNCLG

x,0
		X	<Opr%Resp,0
		X	<AligningTFor
		X	<>,%RESET,0
		X	<Reading>,%8READN,.OTRDR
		XX	<Requeing>,%REQUxE,0
		X	<Shutting Down>,%SHUTD,0
		X	<Opr Output XWait>,%OPRWT,.OTLPT
	LIST
	OTLgR}J6 iAv
	IFNDEF 	L.C,<PRINTX Unde(fined limit paramHeter C>
	..Z==hB
	..O==<L.C&777777000000>_-^D18(
	..Z==..Z+..O
H	..S==<L.C&77700h0>_-^D9
	..P==<L.C&777>
	..P==^(D35-..P
	..Z==..HZ+<..S>B11+<..P>Bh5
	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

 0h
	IFNB <

@B>,<TOPS10<A==B

`>>
	IFNB0<C>,<T>
PS20<A==C>>
i&m{PP i4,.8Q i4-i;Q  i4-m6Q i4-|{Q i4.8yQ @i4.i\Q i4.y7Q i?4( 0pIFN FTUUOS,B			;DEFINE UNi?4H @0tIFN 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 	@
	ER$A==y..XX
	..XX=..XX+1
RN	$$A
	$$q@ x!
	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 !Q$$A,<
		PRINTX !pUNDEFINED COUNTER" A USED
	>
	AO"0S	G$ITEM##+$$A
G$ITEM##+$$A
	'$[  $1C
	XLIST
$Q	X	(NOW,CURRENT T$pIME OF DAY)
	X	(%STAR,QUASAR START%0 TIME)
	X	(QJOB,%PQUASARS JOB NUMBE%pR)
	X	(IPCI,TOTA&L NUMBER OF IPCF &0INTERRUPTS RECEIV&PED)
	X	(RIPC,IPC&pF MESSAGES RECEIV'ED)
	X	(SIPC,IPC'0F MESSAGES SENT)
	X	(IPCF,IPCF SE'pND FAILURES)
	X	((IPCU,UNRECOVERAB(0LE IPCF SEND FAIL(PURES)
	X	(MREL,R(pELEASE MESSAGES R)ECEIVED)
	X	(MCH)0K,CHECKPOINT MESS)PAGES RECEIVED)
	)pX	(MREQ,REQUEUE M*ESSAGES RECEIVED)*0
	X	(MNXT,NEXTJO*PB MESSAGES SENT)
	X	(MABO,ABORT M+ESSAGES SENT)
	X+0	(MLST,LIST MESSA+PGES RECEIVED)
	X+p	(NLAP,LISTANSWER, PAGES SENT)
	X	,0(SCRE,SUCCESSFUL ,PCREATES DONE)
	X,p	(MMOD,MODIFY MES-SAGES RECEIVED)
-0	X	(MKIL,KILL MES-PSAGES RECEIVED)
-p	X	(MDEF,DEFER ME.SSAGES RECEIVED)
	X	(ISPL,IMMEDIA.PTE SPOOL MESSAGES.p RECEIVED)
	X	(D/SPL,DEFFERED SPOO/0L MESSAGES RECEIV/PED)
	X	(MCAN,COU/pNTANSWER MESSAGES0 SENT)
	X	(SLCD,00SCHEDULER LOOP CO0PUNTDOWNS)
	LIST
	SALL

	LIST "qB
	IFNDEF #$$B,<
		PRINTX #0UNDEFINED COUNTER#P B USED
	>
	ST#pORE	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