Google
 

Trailing-Edge - PDP-10 Archives - AP-D471B-SB_1978 - mcss.unv
There are no other files named mcss.unv in the archive.
x
(4@P CP G"^Z@ G>t8: b0
	IFE	CHAbPR-5,<
		ZZ==ZZ_1bp
		EXP	ZZ
		ZZ=c=0
		CHAR==0>
	c0ZZ==ZZ_7+A
	CHAR==CHAR+1
	CHAI5I7P I'V@ K:
+@Mf9 @ M&ut ]0
	IFE	CHA]PR-5,<
		ZZ==ZZ_1]p
		EXP	ZZ
		ZZ=^=0
		CHAR==0>
	^0ZZ==ZZ_7
	CHAR==CHAR+1
	CHAR==O%	9 [p
	IFE	CHA\R-5,<
		ZZ==ZZ_1\0
		EXP	ZZ
		ZZ=\P=0
		CHAR==0>
	\pZZ==ZZ_7+"A"
	CHAR==CHAR+1
	CO%h6 ^p
	ZZ==0
_	N==0
	CHAR==0
_0	IRPC	A,<
		N==_PN+1
		IFGE	B-N,_p<GATHER(A)>>
	R`EPEAT	B-N,<
		F`0INISH>
	IF1,	
	`P   <IFL	B-N,
		`p<PRINTX ?C "A" aTOO LONG. TRUNCATa0ED>>
	IFN	CHAR,<aPREPEAT 5-CHAR,<FIapNISH>
				EXP ZZ_1 >
			EXP ZZO&= fpI
	ZZ==0
g	N==0
	CHAR==0
g0	.SIZE==B
	MAKEgPWORD(A)
	IF1,	
	   <IFL	B-N,
h		<PRINTX ?C "Ah0" TOO LONG. TRUNChPATED>>
	IFN	CHARhp,<REPEAT 5-CHAR,<iPAD>
				EXP ZZ_1 >
			EXP ZZ_S:
8`P Y
` m0
	LEAFNO=mPLEAFNO+1
	GETNAMmpE(A,NODENAMESIZEn,LEAF A)		
	XWDn0	B,0	
	XWD	C,nPD	
	IFN	E,
		<npPRINTX ?LEAF A HoAS A NON-ZERO VALo0UE FOR NEXT NODE>oP
	XWD	E,F	
	BopYTE (18)H(1)I(2p)G(1)J(14)LEAFNO
	EXP	0,0		
Y.,W pPRINTX ?STATUS OF LEAF #A 0MULTIPLY
PRINTX PDEFINED FOR TERMINAL #B
 TERMI[\]w cp'
	IRP	A,d<
		N==N+1
		IFd0GE	.SIZE-N,<CONCAdPT(A)>>
	REPEAT	dp.SIZE-N,<
		PAD>
E-N,<
		PAD>[R@ [OYP ]mI7P ]>
x@ ]>$P kPg
	GETNAMEkp(A,NODENAMESIZE,lNODE A)		
	XWD	l0B,0	
	XWD	C,DlP	
	XWD	E,F	
	lpBYTE (18)0(1)0(2)G(1)0(14)0	
)]>$[P@ _W$Y gEXP AB_W$+ 0
	I==0
	PREPEAT LFSTSSIZE,p<OUTARRAY(L1F,\I)
			I==I+1>
)a  e03
	IFE	CHAePR-5,<
		ZZ==ZZ_1ep
		EXP	ZZ
		ZZ=f=0
		CHAR==0>
	f0ZZ==ZZ_7
	CHAR==CHAR+1
	CHAR==a=w jPY
	PCOUNT=jpPCOUNT+1
	GETNAMkE(A,^D10,PASSWORD)
D10,PASSWORg$q 




0
	FIRST==0
	IRPP	A<IFE FIRST,<
p		OK=1
		IFE	A,	< OK=0
			DIT=0
			I==0
			REPE	PAT LFSTSSIZE,<SET	pARRAY(L1F,\I,0)

					I==I+1>>
		
0IFN	A&2,<OK=0
	
P		DIT=3
			I==0
p
			REPEAT LFSTSSIZE,<SETARRAY(L1F0,\I,-1)
					I==PI+1>>
		IFE	A-1p,< OK=0
			DIT=3

			I==0
			REP
0EAT LFSTSSIZE,<SE
PTARRAY(L1F,\I,^O2
p52525252525)
			==I+1>>
		IF1LOK,<PRINTX>
		I==0
		REPEAT LFSTSSIZE,<SETA0RRAY(L2F,\I,0)
	P			I==I+1>>

	IpFN FIRST,<SETLEAF(A)>

	FIRST==01>


	IFDEF	ERPRLN,<SETLEAF(<ACCp,ERRLN>)>	
	IFDEF	DCRLN,<SETLEAF(0<ACC,DCRLN>)>	
	PIFDEF	DMRLN,<SETLpEAF(<ACC,DMRLN>)>	
	IFDEF	SONLN,<0SETLEAF(<ACC,SONLPN>)>	
	IFDEF	SOFpFLN,<SETLEAF(<ACC,SOFFLN>)>	
CCg$Y eAB==Cg%I0 =
	LFERR==00
	SLFIRST==0
	PDIT=2			
				
	p			

	IRP A<IFE SLFIRST,<WHICH=0=A>
		IFN SLFIRPST,<
		INDEX==Ap/18
		.OFFSET==<<A-<INDEX*18>>*20>+1
		SETLF(\INDPEX,.OFFSET,WHICH)p
		IF1,<IFN LFERR,<LFERROR(\WHICH0,\<SRCCNT+1>)>
	P	>
	>
	SLFIRST==1>

	SLFIRST=g%I@ }0
	IFN	<L2}PFA & <C>B<B>>,}p<LFERR==1>
	IFE ~C-3,<
		L2FA==~0L2FA ! <C>B<B>~P
		L1FA==L1FA ~p& < -<<3>B<B> > - 1 >
		>
	IFE 0C-2,<
		L2FA==PL2FA ! <C>B<B>p
		L1FA==L1FA ! <C>B<B>
		>
	IFE C-1,<
		LP2FA==L2FA ! <Cp>B<B>
		L1FA==L1FA ! <C>B<B>0
		>
	IFE C,<
		L2FA==L2FA !p <1>B<B>
		L1FA==L1FA & < -<<10>B<B> > - 1 >
		>
 > - 1 >
	gJh6@ ggh6P 
iK,P@ 	*HV Pm
	LALL
JpB$MPP::BLOCK	MAXJSN	;XWD 0,POINTER0 TO THE PROTOTYPEP MPP
			;=0 IF TpHE JOB SLOT IS UNASSIGNED
JB$UDX:0:BLOCK	MAXJSN	;SYPSTEM JOB#,,UDX
JpB$PID::BLOCK	MAXJSN	;PID FOR IPCSE0R
JB$MLF::BLOCK	PMAXJSN	;MCS LOGICp FLAGS
RECVQ::	.+1		;
	BLOCK	MAX0JSN	;RECEIVE QUEUPE
SENDQ::	.+1		;p
	BLOCK	MAXJSN	;SEND QUEUE

LHT0SN::	BLOCK	1
RHTPSN::	BLOCK	1
	SALL
LOCK	1
	SA	[: Z
	.VRGEN=Z0=:A
	IFN .VRGENZP-.VRMSS,<
	PRINTZpX ?MGNVSB VERSION[ SKEW BETWEEN MCS[0GEN AND MCSS
	PASS2
	END>
  A26H1 pP
	IFNB <ppA>,<
	GETNAME(Aq,12,LEAF TABLE Aq0)
	BYTE	(18)B(1qP)C(17)0
	EXP	0
	>
	IFB	<A>,<EXP 0>
	<A>,<E6H9 iPQ
	GETNAMEip(A,MCSIZE,MESSAGjE CLASS NAME)
	%MCNT=%MCNT+1
	%7 r0S
	IFNDEF	rPMP$BEG,<MP$BEG==.rp>
	IFNDEF	MP$ALTs,<MP$ALT==:.-MP$Bs0EG>
	XWD	A, B
	IFNDEF	MP$DEV,<spMP$DEV==:.-MP$BEGt>
	GETNAM(C,DEVt0LEN,MPP DEVICE DtP)
	IFNDEF	MP$MPPtp,<MP$MPP==:.-MP$BuEG>
	IFE L,<GETu0NAM(D,NAMLEN,MPPuP FILE D)>	; IF NupOT L MPP GATHER vD
	IFN L,<EXP v0D,0>		; IF L STvPORE ROUTINE ADDR
	IFNDEF	MP$PPN,<wMP$PPN==:.-MP$BEGw0>
	XWD	E
	IFNDwPEF	MP$COR,<MP$CORwp==:.-MP$BEG>
	EXxP	F
	IFNDEF	MP$x0COP,<MP$COP==:.-MxPP$BEG>
	XWD	G, xpH
	IFNDEF	MP$RUyN,<MP$RUN==:.-MP$y0BEG>
	XWD	I, 0
	IFNDEF	MP$HPQ,<ypMP$HPQ==:.-MP$BEGz>
	BYTE	(18)J (z01)0 (1)L (1)M (15)0
L (1)M (B~- zpc
	<SIXBIT{ /A/>
IFNB <B>{0,< XWD 0,B>
IFB{P <B>,< XWD TTLAS{pT+<FREEPORTS*<TT2|-TT1>>,0
		FREEP|0ORTS==FREEPORTS+1>
	EXP	0ORTS+1O0 0A

IFNB	<AP>,<
	GETNAME(A,pSRCNAMESIZE,SOURCE A)	
	EXP	0, 00, 0, 0, 0		
	SETPACCESS(C)		
	BYpTE	(18)0 (8)0 (1)B (1)0 (1)1 (1)00 (2)DIT (1)0 (1)PB (2)DIT
	IFB <pD>,<XWD 0,e>	
	IFNB <D>,<	XWD 0D,e >	
	0				
P	OUTBLOCK			
e:pOUTBLOCK			
	SRCCNT=SRCCNT+1
	>0
IFB	<A>,<
TTLAPST:	BLOCK	FREEPORpTS*<TT2-TT1>
	SRCCNT=SRCCNT+1
	Z					
>
	
	ZS@P [\yP >}{woP