PDP-10 Archive: qsrmc2.unv from BB-D480F-SB_FORTRAN10

Trailing-Edge - PDP-10 Archives - BB-D480F-SB_FORTRAN10_V10 - qsrmc2.unv

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

x
,5@P C
yhrp C
yj2p C
yj:p C
yl}p C
}|P C
~\yP CjvP C&:=P 
C@P GqhVp Gql}p G")l}p G0t(:P$G0t,2P'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 GNim9p GNn:=p IY{P`:a*|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
4
	X	BMG,<Bad MOD48IFY Group>
	X	CB4XL,<Can not Build 4xQueue Listing, wa5it then try again58>
	X	CLQ,<Specif5Xied queue cannot 5xbe listed>
	X	IC6M,<Illegal CREATE68 Message>
	X	IFD6X,<Illegally Forma6xtted Device Name>7
	X	IMT,<Illegal78 Message Type>
	7XX	INF,<Illegal Nu7xmber of Files>
	8X	IPE,<Insufficie88nt Privileges Ena8Xbled>
	X	MTL,<Me8xssage Too Long>
9	X	MTS,<Message i98s Too Short>
	X	9XNKC,<Not a Known 9xComponent>
	X	NO:R,<Number Out of :8Range>
	X	SNY,<S:Xpecified request :xis Not Yours>
	X;	UQS,<Unknown Que;8ue Specified>
	X;X	WVN,<Wrong Versi;xon 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[P MO|P MRV>9P MS2Q MSQ MS.[yQ N:

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

TP PP Qaj(p Qaj)pvQaj)pQakVp Qalp Qalrp Qalzp Qal}p Qd.2Q QdK2P'QdLwQ ~Qdl]Q @QeKQ Qf2Q xQf)Q Qf8tQ Qf=Q  Qfi9P'S;9P 2S;;yP S;m6P S;	yP dS;P S;

}P SBY9p SB

[p SB(yp SB,BP SB,bP SB,}P 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(:P YtIYP @Yu+qQ xYuKqP'~Yyjp YyjQp Yyl}p Y'l7p Y'l}p Y'2Q xYC$hzQ 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 YO!m9p ZP [3@ w8<<<1_<A>>-1>B<B>>_<A>>[@ dP1
	IFB <Bdp>,<MAXSIZ==0
		IeRP A,<IFG <A-MAe0XSIZ>,<MAXSIZ==AeP>>>
	IFNB <B>,<epB==0
		IRP A,<fIFG <A-B>,<B==A>>>
B>,<B==[F:=P 
[>!iRp [>!iSp [>!iTp [>!irp [>!iwp [>!l7p [>!lXp [>!l}p [>$iP'[>${P'[>$|Q x[>&2Q x[F5k( 2p;SIXBIT\QSRMS1\SIXBIT\QSR[F5k) 3;SIXBIT\QSRMS2\SIXBIT\QSR[LtuQ @[Lt;ZQ ?x[LvN8P'[NF:=p ] ~(r
	IFNDEF	A,<A==B>
F	]'$[9@

a  9
	IFDEF 0A,<
		IFL <A-C>,<PRINTX VALUE OPF A IS TOO SMALLp>
		IFG <A-D>,<PRINTX VALUE OF 0A IS TOO LARGE>
	>  ;END IFDEF pA
	IFNDEF A,<A==B>
F A,<Aa3$hzP aJ}Ks +(;	;MACRO TO+ GENERATE MODULE *hPROLOGUE
	SALL
*H	XLIST
	SEARCH	S,0BSMAC		;GET SUB-S,PYSTEMS MACROS
	S,pEARCH	MACTEN		;GE-T UNIVERSAL SYMBO-0LS AND MACROS
	I-PNTERN	%%.QSR,%%.S-pBS	;FOR LINK CONS.ISTENCY CHECKS
	.0SEARCH	UUOSYM		;G.PET TOPS10-UUO SYM.pBOLS
	IFIDN	<A>/<QUASAR>,<	;IF MA/0IN MODULE
		.REQ/PUIRE QSRMEM,QSRQU/pE,QSRSCH,QSRIPC,Q0SRFSS,QSRADM,QSRT0010,SBSCOM
	>  ;E0PND OF IFIDN
	IFI0pDN	<A><QSRT20>,<1	;IF OTHER INTERF10ACE
		PASS2		;SA1PVE THE ASSEMBLY
1p		END		;AND THE P2APER
	>  ;END OF20 IFIDN
	LIST
	SALL

	LIST
	SaN)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 xctI8P'ctK2P'ctLQ xcv	yP'cv

TP cv

WQ'xcv)P cv,8P'xcv98Qvxcv<P @cvJ6P'cv[TQ 0cv[WP cF:=p c tkP'~c uP$c uLzP"c uh6Q xc umP c v
cOYP cOZ7P cOi9P cOzP cV-	 BX<7  ;MACRO TBxO GENERATE THE QUCEUE HEADERS FROM C8THE QUEUES MACRO
	DEFINE	X(A,B,C,CxD,E),<	;DEFINE X DFOR THE LATER EXPD8ANSION OF QUEUES
HDR'A::	INSVL.(<DxSIXBIT\   A\>,QH.ENAM)!INSVL.(C,QH.E8TYP)!D
	EXP	0
	EXIFDIF	<E> <0> ,<GExLOB(E)>
	XWD	E,IFNSVL.(B,QH.SIZ)
F8	>  ;END OF DEFINFXE X
	QUEUES			;NFxOW EXPAND QUEUES
EXPANDQUEUES

	XLIST<X

	X	INP,QNTSIZ<x,.QHTIP,QH.LST,S$=INPT
	X	LPT,QNTS=8IZ,.QHTOU,QH.LST,=XS$LPT
	X	PTP,QNT=xSIZ,.QHTOU,QH.LST>,S$PTP
	X	CDP,QN>8TSIZ,.QHTOU,QH.LS>XT,S$CDP
	X	PLT,Q>xNTSIZ,.QHTOU,QH.L?ST,S$PLT
	X	IPC,?8IPCSIZ,.QHTQS,QH.?XIPC,0
	X	IPS,IPC?xSIZ,.QHTQS,QH.IPC@,0
	X	SPL,SPLSIZ@8,.QHTQS,0,0
	X	P@XSB,PSBSIZ,.QHTQS,@x0,0
	X	USE,USESIAZ,.QHTQS,0,0
	X	A8AFT,AFTSIZ,.QHTQSAX,0,S$AFTR
	X	RDEAx,RDESIZ,.QHTQS,0,BS$RDE

	LIST
	SALL

LIST
	eYl}p e:=p e.:=P 
eahUp eahVp eaiRp eaj:p eal}p e	h3p e	j7p e	j:p e	l}p e0tKQ @e0u+qP'e0v

VQ  e<ui;P'e<u|SQ xe?)lzp e?)l}p gDI3P gEKUP gE[rP gF8tP g@t(:P g@tIYP @g@u2P  g@u+qQ xg@uKqP'~g@uYP g@vyP g@v2Q xgBaip gBai7p gBaiWp gBaiYp gBajp gBajQp gBalzp gBal}p gBam9p gBe+qp gBeJ6P gBeXQP gBez2p gBf

TP gBf2p gBf,=p gBf:=p gBf=p gCLLP'gCM+qQ xgCMI7P'gg

V c0!
	IFNB <cPB>,<IFN FTUUOS,<cpA==B>>
	IFNB <dC>,<IFN FTJSYS,<A==C>>
SYS,<iAk9p iAlzp i`t^Q i`th:Q @i`u[yQ i`uk9Q i`u|Q i`v=3P'i`v|WQ  kN.:=P 
p 9#
	XLIST
p	INTERN	$$A
	$$PA==$$
	$$==$$+10
	LIST
	SALL

	LIST
	SALL
q@ Mm
	INTERN	M0A
	IFB  <C>,<MPA==B>
	IFNB <C>,<A=B>
 <CP

&<P NrP NsP NtP NzP N<P lWP l87P

l:P lI3P 
m:6P 
mLzPm[rP	mnPn)6Pn)8P	txqPuH8P u}`P v	qP 
	IFNDEF $$A,<
		PRINTX (UNDEFINED COUNTERH A USED
	>
	AOhS	G$ITEM##+$$A
G$ITEM##+$$A
	'$[  h:P
	XLIST
	X	(NOW,CURRENT T(IME OF DAY)
	X	(HSTAR,QUASAR STARTh TIME)
	X	(QJOB,QUASARS JOB NUMBE(R)
	X	(IPCI,TOTAHL NUMBER OF IPCF hINTERRUPTS RECEIVED)
	X	(IPCD,DEF(ERRED IPCF INTERRHUPTS)
	X	(RIPC,IhPCF MESSAGES RECE IVED)
	X	(SIPC,I (PCF MESSAGES SENT H)
	X	(IPCF,IPCF  hSEND FAILURES)
	!X	(IPCU,UNRECOVER!(ABLE IPCF SEND FA!HILURES)
	X	(MREL!h,RELEASE MESSAGES" RECEIVED)
	X	(M"(CHK,CHECKPOINT ME"HSSAGES RECEIVED)
	X	(MREQ,REQUEUE# MESSAGES RECEIVE#(D)
	X	(MNXT,NEXT#HJOB MESSAGES SENT#h)
	X	(MABO,ABORT$ MESSAGES SENT)
$(	X	(NPGC,PAGES GA$HRBAGE COLLECTED)
	X	(NGCC,GARBAGE% COLLECTOR CALLS)%(
	X	(MLST,LIST M%HESSAGES RECEIVED)%h
	X	(NLAP,LISTAN&SWER PAGES SENT)
	X	(SCRE,SUCCESS&HFUL CREATES DONE)&h
	X	(MMOD,MODIFY' MESSAGES RECEIVE'(D)
	X	(MKIL,KILL'H MESSAGES RECEIVE'hD)
	X	(MDEF,DEFE(R MESSAGES RECEIV((ED)
	X	(ISPL,IMM(HEDIATE SPOOL MESS(hAGES RECEIVED)
	)X	(DSPL,DEFFERED )(SPOOL MESSAGES RE)HCEIVED)
	X	(MCAN)h,COUNTANSWER MESS*AGES SENT)
	LIST
	SALL

	LIST	NNI6 (9b
	IFNDEF H$$B,<
		PRINTX hUNDEFINED COUNTER B USED
	>
	ST(ORE	A,G$ITEM##+$$B
G$ITEM##+$
vyP89P 8QP 8TP :6P H9P H9P KqP LzP 9P TP 
6P H9P HTP J1P J6P )7P S@P 5:6P 6)6P

zp

Zp

:p

I2p :p

}p^)ph98p<p \yp

p &=p d(P h9P hwP iWP lHp lIp lzp Sp :=p lvP X5P 2P '<P '<P *|A  *|6|H1P 6|K4P 6|LP 7N8p F,<Rp F,I2p F,I;p F-p F-p F-+qp F-K(p F-K)p F-K)p F-K*p F-K*p F-KUp F-z2p F.
2p F.

Zp F.98p F.=p F.=p F.\yp 	FEKUp FF3p FFJ8P FFK2P FFKzP FFL9P FFN8p FLkQP$F|WP F|87P F|:P F|;zP F|<RP F|IYP F}	6P F}:6P F}H7P F}J9P F}[rP F}i<P F~(uP F~)6P F~)8P F~+zP F~I<P J$)9p J$*Qp J$*Vp J$+tp J$+vp >}{woP