x ,53@P B;%\A B;%\B;%\ A B;%\ C2ajW@ 8E2^:= tH& A==OthFFS. OFFS.==0 OFFS.==0Eg$\` y(P POS.=yH=-1 IRP B, zOFFS.==OFFS.+1 FS.==OFFS.+1 GNcT V5Q IFN TVXOPS10,< MOVXE R1,[4,,IPC.RJ] X0 IPCFR. R1, XP YOYO DABEXpRR > IFN YTOPS20,< MOYpVEI R1,4 MOY0VEI R2,IPC.RJ YP MRECV ZYOYO DABERR > DABERR >G(@ G4t@ G4u]@ G4vv@ G4v)2@ G4vJ@ G4vkv@ G4vz@@ G6 8(CMDATA+CM.ACMDATA+CM.G6$A G6$GWJ6A GWJ6I j: cP6C IFN TcpOPS10,< MOVdSI R1,.DEQID d0 HRR R1,JN.TCH(WdPJ) DEQ. R1,dp JRST [CAeIE R1,ENQNO% e0 CAIN R1,ENQNE%eP JRST .+1 ep YOYO DABERRf] > IFN Tf0OPS20,< SAVfPE R2 MOVEI fpR1,.DEQID LgD R2, JN,TCH,(WJ)g0 DEQ gP JRST [CAIN R1,EgpNQX7 JRST .+h1 YOYO DABERh0R] RESTOR R2 > TOR RIvvP#PIvJP IVm^ ( J ONEBYT(A,B,C) YT(K; j: ZP6 MOVEIZp R0,JN.SCHEMA(CJ)[ HRRM R0,EN[0Q.J+RS.LOCK L[PD R0, JN,TCH,(CJ)[p ST R0, RS,RQ\ID,+ENQ.JH \0IFN TOPS10,< \P MOVE R1,[.ENQSI\p,,ENQ.JH] E]NQ. R1, J]0RST [CAIE R1,ENQR]PU% YOYO DABE]pRR TXZ STATU^S,$LKA.BIT ^0RETURN] > ^P IFN TOPS20,< ^p MOVEI R0,-NODE_S(CJ) ;GET OFF_0SET TO DET RUPT C_PH IDIVI R0,_pSIZ.JN ADDI` R0,^D36-MAX.JN `0 ST R0, RS,RU`PPT,+ENQ.JH `p; *** NOW THE ACTaU ENQ MOVEIa0 R1,.ENQSI aPMOVEI R2,ENQ.JH ap ENQ bJRST [CAIE R1,ENQb0X6 YOYO DABEbPRR TXZ STATUbpS,$LKA.BIT cRETURN] > ETURN] > Kc4 @8,C.A*^D100 + EXCODE(B)00M&-I H h T1.=1h IFNB ,< T1.==B ( IFN 100000*T1.H-100000*B, > A=OFFS. OFFS.==OFFS.+T1. OtH1 N@5- GDATA (N A.TMP1) ;STRLIBNx ARG HANDLING GODATA (A.TMP2) GO8DATA (CMDATA,SIZ.OXCM) GDATA (CURTOxIM) ;USED TO COPNTROL TIMING OF PP8OLL LOOP GDATA PX(JOFVOL) ;PROMPPxT DEFAULT VOL FORQ J (ONLY ACTIVE IQ8F 1 PROMPT ACTIVEQX) GDATA (J.LISTQx) ;HEAD OF J'S RDAEMDB IS PROCESSR8ING GDATA (J.PORXLL) ;POLL PERIORxD GDATA (J.THRESSH) ;JT COPY PAS8GE-THRESHOLD GDSXATA (NODES,ALL.JNSx) ;ALL THE SPACTE FOR THE JNODES T8 GDATA (RUPT.J) TX ;IF JT.COPY IS TxINTERP FOR ANY REUASON, SET THIS U8GDATA (TEMPBP,2) UX ;STRLIB INTERFACE TEMP TERFAOH h!" IFNDEF GDATA., IFDEF GDAHTA.,< IFB<hB>,<A:: BLOCK 1> IFNB,<(A:: BLOCK B> > CK B> Q&=P Q7YgP S(@ T:ezA T:ezT:uyP T;{A T;{T;%RA T;%RUtWP Ut;P Ut<0>, IFIDN <iPC><0>,> j JIO (A,B,D,IN) A,B,D,IU&x m07 IFN TmPOPS10,< ST mpR0, UUO,CHAN,+WD.nD XCT WD.n0D SKIPA nP JRST C np > IFN TOPS2o0,< MOVE R1o0,A MOVE R2oP,[POINT 36,B] op MOVNI R3,JR.PpSIZ SD p0 ERJMP C > JMP C U8%i6kvA U>6kvU?.@ jP6g IFDIFjp <C><0>, IFIDN k0<C><0>,> kp IFIDN , IFDlPIF ,<lpJIO (A,B,D,LOUT)> B,D,LOUUPvy q7( IFN Tq@OPS10,< MOVq`E R0,JN.TCH(CJ) r ST R0, UUO,Cr HAN,+WD.USB r@ MOVEI R1,A r` LSH R1,2 s XCT WD.USB s > IFN TOPSs@20,< MOVE Rs`1,JN.TCH(CJ) t MOVEI R2,A t SUBI R2,1 t@ LSH R2,^D9 t` SFPTR u ERJMP JT.ERR > JT.ERR 8R7IYYgP Y7YgP [AjWP [J,s@P ]>$\`A ]>$\`_63@P _:,.: 2# IFNB 2(<D>,<D.B=OFFS.2H-A.D> A.B2h==OFFS. A$B3==C POS.==PO3(S.+C A%B==POS. A%B==a&p u@7> IFDIFu` <C><0>, IFIDv N <C><0>, v` HRL R1,A MwOVE R2,[.FHSLF,,Pw AGJRB] MOVSI w@R3,(PM%RWX) Pw`MAP ERJMP D ERJMP D a?`P a?.@ x 7P IFDIFx@ <C><0>, IFIDyN <C><0>, y@ HRL R1,A My`OVEI R2,1 UFPzGS ERJMP D ERJMP De8 ;H#j A=B;h IFDEF .A,< < IFN .A+B,<(< PRINTX > IFN=(DEF .A,< .A==-B> < .A==-eWCUA eWCUeWCY z@7| IFN Tz`OPS10,< SET{OM R1 ;WAKE SEL{ F TXNE STAT{@US,$SL.BIT {`WAKE R1, |JFCL DEBRK.| HALT |@ YOYO DABERR |` > IFN TOP}S20,< MOVSI} R1,(1B5) ;SWI}@TCH TO USER MODE }`IF ASLEEP T~XNE STATUS,$SL.BI~ T IORM R1,P~@C.R3 ;WILL CAU~`SE ABORTION OF SLEEP STATE D EBRK ERJM@P DABERR > DABERR > g>>6 E($: OFEHFS.==0 LMREG.Eh==0 LGREG.==1F6 IFDEF MUF(REG., IFNDEF MURFhEG., HMREG.==MREG(G. HIGH==1 HIGH==1 gtCT @8$ COPI `PACK.S+DABCODE,DAXA IFN TOPS1 0,< MOVE R1@,[4,,IPC.SJ] ` IPCFS. R1, YOYO DABERR > IFN TOPS@20,< MOVEI `R1,4 MOVEI R2,IPC.SJ M SEND YOYO@ DABERR > DABERR > g'QhvP g'QjWP gRM9@ gR^:=P g^N@ 8 SWIT. ==SWIT.+1 IFB@ , IFNB , ChDpP inXA inXiJ,s@P QhTP ##QP 2\Q@ 6.#QP @ K. P NAhT@ NahTP O!hTP PQ zS@P &PQ zO$Q y>}{woP