PDP-10 Archive: sources/qsrmac.unv from AP-D348E-SM

Trailing-Edge - PDP-10 Archives - AP-D348E-SM - sources/qsrmac.unv

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

x
,

@P C
yhrp C
yj2p C
yj:p C
yl}p C
}|P C
~\yPPCjvPpC&:=PpC@PpGqhVpPGql}pP'G0u+qQ xG2iiQp G2ijQp G2n:=p G7
P G7
 P G?)l}p GLtIYP GLtiP'GLtiQ xGLtkP GLu+qQ xGLuKqP'~GNiip GNii7p GNiiRp GNiiXp GNiiYp GNijQp GNiktp GNilzp GNn:=p IY{P .ItkQQ xIu+qP'IjQp Il7p Il}p IXtK2P'IXtyQ xIXuKP IXuM8P IXum6P IXv=P |IXv]P JP KDt9P'KDt;yQ xKDtI8P'KDtLwP'pKDtlVQ KDuKtP'KDuLQ xKDuhVQ xKDulYQ @KDum6P'KDu}:Q `KDv	yP'KDvP'KDv

TP KDv

WQ xKDv

[P9KDvKDv)P KDv98Q xKDv<P @KDvJ6P'KDv[TQ 0KDv[WP KDvlYQ xKF<}P KFF:=p KFN:=p 
	XLIST
 
	X	BMG,<Bad MOD@IFY Group>
	X	CB`L,<Can not Build Queue Listing, wa it then try again@>
	X	CLQ,<Specif`ied queue cannot be listed>
	X	IC M,<Illegal CREATE@ Message>
	X	IFD`,<Illegally Formatted Device Name> 
	X	IMT,<Illegal@ Message Type>
	`X	INF,<Illegal Number of Files>
	 X	IPE,<Insufficie@nt Privileges Ena`bled>
	X	MTL,<Message Too Long>
 	X	MTS,<Message i@s Too Short>
	X	`NKC,<Not a Known Component>
	X	NO R,<Number Out of @Range>
	X	SNY,<S`pecified request is Not Yours>
	X 	UQS,<Unknown Que@ue Specified>
	X`	WVN,<Wrong Version Number>

	LIST
	SALL

	LIMn:=p MF:=P M@tI6P$M@th|P M@tiSQ ~M@tiYP'M@tjQ xM@tkP"M@tlQ |M@tlxQ xM@uwP  M@uiTP!M@v<P @M@wP MBn:=p MCF:=p MJm<|P 
MJmkyQ ]?X6MJmm6P MJn:hQ pMJn:iP MJnJP 2MJn[TP MO*yP MO,P MO,P MOiP MOj1P MO[YP MO\YP MOj1P MO

ZP=QMO[PMO|P MRV>9Q MS2P MSQ MS.[yP N:

hzP2N:%iYPN:%kyQ]?X6N:%m1P^N:49PN:5LP N:6P N:6
N;*0P N;

TP PP Qaj(p Qaj)p Qaj)p QakVp Qalp Qalrp$Qalzp"Qal}p Qd.2QtQdK2P'QdLwQ ~Qdl]Qt@QeKQ Qf2Q xQf)QQf8tQ Qf=Q  Qfi9P'S;9P S;;yP S;m6P S;	yP dS;P S;
@&SBn
@&	SBn@&	SBn@&
SBn

@&
SB

}P SBY9p SB

[p SB(yp SB,}P SB9p SB:2p SB:=p SB)iP&	SB)iP&SB)lXP&
SB)lsP&
SB)lxP&	SBih2P'SBihzQ xSCj2Q  SCj3Q SCmQ @W&al7p W&alXp W&al}p W&f2Q xYt(:Q @YtIYQ  Yu+qP'YuKqP'YujQ xYyiVp Yyjp YyjQp Yyl}p Y'l7p Y'l}p Y'2Q xYC$hzP YLv

TP YLv

WP'YLv98Q xYO!h3p YO!ip YO!iZp YO!jQp YO!kp YO!kZP YO!ktp YO!lp YO!lp YO!lxp YO!lzp YO!l}p ZP [3@  x<<<1_<A>>-1>B<B>>_<A>>[@ |0'o
	IFB <B|P>,<MAXSIZ==0
		I|pRP A,<IFG <A-MA}XSIZ>,<MAXSIZ==A}0>>>
	IFNB <B>,<}PB==0
		IRP A,<}pIFG <A-B>,<B==A>>>
B>,<B==[F:=P:[>!iRp>[>!iSpA[>!iTpU[>!irpQ[>!iwp[>!l7pQ[>!lXp[>!l}pZ[>$iP'[>${P'[>$|Qx[>&2Q2x[F5h6 
	IFNDEF	A,<A==B>
F	]'$[9@

a
	IFDEF 
		IFLP<A-CVALUELO
		IFGI<A-D>,EGOF 
	>A ;END IFDEF 
	IFNDEF A,<A==B>
F A,<Aa3$hzP aJ}Ks 8pk	;MACRO TO GENERATE MODULE xPROLOGUE
	SALL
X	XLIST
	SEARCH	S8BSMAC		;GET SUB-SXYSTEMS MACROS
	SxEARCH	MACTEN		;GET UNIVERSAL SYMBO8LS AND MACROS
	IXNTERN	%%.QSR,%%.SxBS	;FOR LINK CONS	ISTENCY CHECKS
		8SEARCH	MONSYM		;G	XET TOPS20-JSYS SY	xMBOLS
	IFIDN	<A
><QUASAR>,<	;IF M
8AIN MODULE
		.RE
XQUIRE QSRMEM,QSRQ
xUE,QSRSCH,QSRIPC,QSRFSS,QSRADM,QSR8T20,SBSCOM
	>  ;XEND OF IFIDN
	IFxIDN	<A><QSRT10>,

<	;IF OTHER INTER

8FACE
		PASS2		;S

XAVE THE ASSEMBLY

x
		END		;AND THE 
	> I;END O
	LIST
	SALL

	LIST
	aN)wp aNHp aNIp aNIp aNh6p aN	p aN
2p aN(up aN8tp aN9p aN:=p aN=p aOLK2P'aOLl]Q  aOM	P'aOMKQ aOMZQQ xaOMjXQ xaOMnP'aON	yQ xaON2Q xaON)Q aON8tQ @aON:QQ xaON:ZQ xaON;1Q xaON;:P'aONHQP'aONHZP'aPtQ aPt;ZP'aPuKUQ `aPv\rQ aPv|UQ aShzP ct;yQ xctI8