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 s IFE CHA]PR-5,< ZZ==ZZ_1]p EXP ZZ ZZ=^=0 CHAR==0> ^0ZZ==ZZ_7 CHAR==CHAR+1  CHAR==O% 9 [p g 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> R`EPEAT B-N,< F`0INISH> IF1, `P > IFN CHAR,<aPREPEAT 5-CHAR, EXP ZZ_1 >  EXP ZZO&= fpI ZZ==0 g N==0 CHAR==0 g0 .SIZE==B MAKEgPWORD(A) IF1, gp > IFN CHARhp, 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,> 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 )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>  0IFN A&2,> IFE A-1 p,< OK=0 DIT=3  I==0 REP 0EAT LFSTSSIZE,> IF1 0,> p I==0 REPEAT LFSTSSIZE,> IpFN FIRST, FIRST==01> IFDEF ERPRLN,)> IFDEF DCRLN,)> PIFDEF DMRLN,)> IFDEF SONLN,<0SETLEAF()> IFDEF SOFpFLN,)> CCg$Y eAB==Cg%I0 = LFERR==00 SLFIRST==0 PDIT=2 p IRP A IFN SLFIRPST,< INDEX==Ap/18 .OFFSET==<<A->*20>+1 SETLF(\INDPEX,.OFFSET,WHICH)p IF1,)> P > > SLFIRST==1>  SLFIRST=g%I@ }0 IFN B<B>>,}p 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> > 0 IFE C-1,< LP2FA==L2FA ! <Cp>B<B> L1FA==L1FA ! <C>B<B>0 > IFE C,< P 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> A 26H1 pP IFNB <ppA>,< GETNAME(Aq,12,LEAF TABLE Aq0) BYTE (18)B(1qP)C(17)0 EXP 0 qp > IFB <A>,  <A>, IFNDEF MP$ALTs, XWD A, B sP IFNDEF MP$DEV,<spMP$DEV==:.-MP$BEGt> GETNAM(C,DEVt0LEN,MPP DEVICE DtP) IFNDEF MP$MPPtp, IFE L, ; IF NupOT L MPP GATHER vD IFN L, ; IF L STvPORE ROUTINE ADDR vp IFNDEF MP$PPN,<wMP$PPN==:.-MP$BEGw0> XWD E IFNDwPEF MP$COR, EXxP F IFNDEF MP$x0COP, XWD G, xpH IFNDEF MP$RUyN, XWD I, 0 yP IFNDEF MP$HPQ,<ypMP$HPQ==:.-MP$BEGz> BYTE (18)J (z01)0 (1)L (1)M (15)0 L (1)M ( B~- zpc IFNB <B>{0,< XWD 0,B> IFB{P <B>,< XWD TTLAS{pT+>,0 FREEP|0ORTS==FREEPORTS+1> EXP 0ORTS+1 O0 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>, IFNB <D>,< XWD 0D,e > 0 P OUTBLOCK e:pOUTBLOCK SRCCNT=SRCCNT+1 > 0 IFB <A>,< TTLAPST: BLOCK FREEPORpTS* SRCCNT=SRCCNT+1 Z >  ZS@P [\yP >}{woP