x ,5u@P C!n@ CH1P CKPP CLQP CX1P C[PP C\QP Ch1P CkPP ClQP C2+ 5;^ IFNDE5 F AL.NAM,< 5@ FUNCT ALC.M,<[SI5`Z.AB]> MOV6EM R0,CIC > 6 IFDEF AL.NAM,6@< HRRZ R0,6`AL.NLEN(CRU) 7 MOVEI CIC,SIZ.7 AB GLOYO TR7@U.BLK MOV7`SI R1,AL.NLEN(CR8U) HRRI R1,8 AB.NLEN(CIC) 8@ BLT R1,@R0 8` FUNCT UPDSY.,9<AB.ID(CIC)> 9 > IFDEF AL.9@NMID,< LD R9`1, AL,NMID,(CRU): ADD R1,IDV: EC(SS) HRLI:@ CIC,TID.AL :` MOVEM CIC,0(R1); IFDEF AL.; NAM, H;`RRZS CIC > CIC >C2aly@ C>=9@ 6CJ,@ CJt @ CJ|jr #@:. MOVE #`B,AREALST(SS) $ LD C, ADR,AB,($ B) CAMLE $@A,AB.LASP(C) $` AOBJN B,.-2 % JUMPGE B,EXJRST% (KIA) CAMG%@E A,AB.1STP(C) %` EXCEP (KIA) EP (KIA)CK  0h# T1.==11 IFNB <B>,<1( T1.==B 1H IFN 100000*T11h.-100000*B, > 2( A==OFFS. - 1 2H OFFS.==OFFS.+T1. .==OFFS.+T1E2^:= 3# A==O3(FFS. OFFS.==0  OFFS.==0EV9:@ 6Eg$\` *H"Z POS.=*h=-1 IRP B, +(OFFS.==OFFS.+1 FS.==OFFS.+1 GeMr@ G"YlQ@ 7G0t;z@ G0vJ6@ G;!ip@ "G;!ir@ !G;!iw@ "G;!l@ #G>$S[P GC8P GWlQ@ $GWlZ@ #GWly@ )GW8p@ 7I$:@ $I 3YA I 3YI 3\A I 3\I Yj@ 8I Yl@ 8I H1P *I j: . ; IFN TOP.@S10< MOVSI R1.`,B HRRI R1,/A DEQ. R1, / EXCEP (QOS) /@ > IFN TOPS20< /` MOVEI R1,B 0 MOVEI R2,A 0 DEQ EXCEP (QOS) > EPI'@ 9I JUMPE R0,A@B MOVEM R1,CRU MOVEM R1,CRIVm^  (("B ONEBYT(A,B,C) YT(K:!n@ K; j@ 'K; j@ !K; j@ %K; j: & :n IFN TOP&@S10,< MOVSI R&`1,B HRRI R1,'A ENQ. R1, ' JRST [CAIN R'@1,ENQRU% C '` CAIN R1,ENQDR%( EXCEP (DOR) ( CAIE R1,ENQQE(@% CAIN R1,ENQ(`NC% EXCEP (RS)X) ;MONITOR RAN ) OUT OF ROOM IN SO)@ME WAY EXCEP )`(QOS)] ;ALL OTH*ERS > ;END I* FN TOPS10 IFN T*@OPS20,< MOVEI*` R1,B MOVEI +R2,A ENQ + JRST [CAIN R1,+@ENQX6 C +`CAIN R1,ENQX5 , EXCEP (DOR) , CAIE R1,ENQX18 ,@ CAIN R1,IPCFX8 ,` ;NO MONITOR CORE- EXCEP (RSX) - EXCEP (QOS)] -@ ;ALL ELSE > -` ;END IFN TOPS20 D IFN TOPS20K; l@@ "K; m @ #K; 3T 0`;$ IFN TOP1S10,< MOVEI R1 0,A MOVEI R11@,OTSTAT(X) ;(MU1`ST BE AC+1)USE TH2ESE 3 WDS ENQ2 C. R0, EXCE2@P (QOS) HRRE 2`R0,OTSTAT(X) > 3 IFN TOPS20,< 3 MOVEI R1,.ENQCS3@ MOVEI R2,A 3` MOVEI R3,OTST4AT(X) ENQC 4 EXCEP (QOS) 4@ HRRE R0,OTSTAT(X) > TSTATK; ,` IFE MODE.-PORTAL,<< C>B+B+ B`##> IFE MODE.-GATE,< IRP A,< A: E@NTRY A > ` PUSHJ P,OTSCALL > TSCK;&.9 `8 ENTRY. a(CLOSED,CLOSE$,C.`8CLOSE,ENQ.X) ;ENa(Q.X SINCE PLAYS WaHITH J LABEL PAGE ah ENTRY. (DELETR,bDELET$,C.DELETE,Jb0R.UPD!ENQ.X!CRU.MbPUST!VAC.UPD) ENbpTRY. (FIND1,FIND1d0$,C.FIND,ENQ.SH) c0 ENTRY. (FIND2,FcIND2$,C.FIND,ENQ.dSH) ENTRY. (FINcpD3,FIND3$,C.FIND,cPENQ.SH) ENTRY. d`(FINDO,FINDO$,C.FeIND,ENQ.SH) ENTe RY. (FIND4,FIND4$e@,C.FIND,ENQ.SH) e` ENTRY. (FIND5,FIfND5$,C.FIND,ENQ.Sf H) ENTRY. (FINSf@6,FINS6$,C.FIND,Ef`NQ.SH) ENTRY. (g,GET$,Cg .GET,CRU.MUST!ENQg@.SH) ENTRY. (,INSEhR$,C.INSERT,JR.UPh D!ENQ.X!CRU.MUST!h@VAC.UPD) ENTRY.h` (,iMODIF$,C.MODIFY,Ji R.UPD!ENQ.X!CRU.Mi@UST!VAC.UPD) ENi`TRY. (OPEND,OPEN$j,C.OPEN,ENQ.ALT) j ;ENQ.ALT PLAYS Sj@AFE SINCE OPEN CAj`N INCREASE SIMULTkANEITY ENTRY. (k ,REk@MOV$,C.REMOVE,JR.k`UPD!ENQ.X!CRU.MUSlT!VAC.UPD) ENTRl Y. (,STORE$,C.STORE,l`JR.UPD!ENQ.X!VAC.mUPD) ; *** Cm ONTEXT AFFECTING m@ENTRY. PTS ENTRm`Y. (SBIND,SBIND$,nC.BIND,OK.NOSS!VAn C.BIND!OK.SUS!SCHn@.IO) ; *** OK.Sn`US ON IN 2 BELOW oSO THAT THE BINDIo NG EXCEP WILL BE o@CORRECTLY RETURNEo`D ; *** BUT NO pOTHER VERBS AFTERp THE FAULTY BINDIp@NG WILL SUCCEED p` ENTRY. (BIND,BINqD$,C.BIND,VAC.BINq D!OK.SUS!SCH.IO) q@ ENTRY. (EBIND,Eq`BIND$,C.BIND,VAC.rBIND!OK.SUS!SCH.Ir O) IFN COBOL, IFN s FORTRA, ENTtRY. (SETDB,SETDB$t ,C.CALL,VAC.CALL!t@OK.SUS) ENTRY. t`(UNSET,UNSET$,C.CuALL,VAC.CALL!OK.Su US) ENTRY. (SAVu@ESS,SAVES$,C.CALLu`,VAC.CALL) ; **v* JOURNAL ENTRY. v PTS ENTRY. (JMNv@AME,JMNAM$,C.CALLv`,VAC.CALL) ENTRwY. (JMDISK,JMDIS$w ,C.CALL,VAC.CALL)w@ ENTRY. (JMAFT,w`JMAFT$,C.CALL,VACx.CALL) ENTRY. (x JMBEF,JMBEF$,C.CAx@LL,VAC.CALL) ENx`TRY. (JMBOTH,JMBOyT$,C.CALL,VAC.CALy L) ENTRY. (JMNOy@NE,JMNON$,C.CALL,y`VAC.CALL) ENTRYz. (JSTRAN,JSTRA$,z C.CALL,VAC.CALL!Jz@R.OVU!JR.UPD!ENQ.z`X) ENTRY. (JETR{AN,JETRA$,C.CALL,{ VAC.CALL!JR.OVU!J{@R.UPD!ENQ.X) EN{`TRY. (JBTRAN,JBTR|A$,C.CALL,VAC.CAL| L!JR.OVU!JR.UPD!E|@NQ.X!OK.SUS) EN|`TRY. (JRDATA,JRDA}T$,C.CALL,VAC.CAL} L!JR.OVU!JR.UPD!E}@NQ.X) ENTRY. (J}`RTEXT,JRTEX$,C.CA~LL,VAC.CALL!JR.OV~ U!JR.UPD!ENQ.X) ~@ ; *** STATISTICS~` ENTRY. (STATS,STATS$,C.CALL,VAC .CALL) ; *** PS@EUDO-HOST ACTIONS`: PREDICATES & COPY ENTRY. (MOVE C,MOVE$,C.HOST) @ ENTRY. (,EMPTY$,C.HOST,ENQ.SH) ;KE EP LOUSY NAMES RA@THER THAN CHANGE `COMPILER ENTRY. (, TENAN$,C.HOST,ENQ@.SH) ENTRY. (,MEMB$,C.HOST,ENQ.SH) ENTRY. (,OWNER$,C`.HOST,ENQ.SH) HOST,ENQ.SH) KJ)0@ KJ  @8\ERCAL EXJRST(A)RCAL EXJRKJm@ KKX`@ KK]@ KKH:@ Kb = 8NXCA:Kb\  `8VPUSHJ P,XC.A##PUSHJ P,XCKby 8^XC%A##KbV,z 8XXC.A##Kbm 8PXC$AKbn9` 8RXC$A##Kbuy  8D XC.A:: @ XC%A==:XC.A`-VEC.XC+1 IFNB <B>, IFB <B>@,  P,DBSABORKc4  8HC.A*^D100 + EXCODE(B)00Kc4  @8LC.A*^D100 + XC%BA*^D100M&-I -h"z T1.=1. IFNB <B>,< .( T1.==B .H IFN 100000*T1..h-100000*B, > /(A=OFFS. OFFS.==OFFS.+T1. M:!d @ M?S@ M?+@ M?:=P O$PP OJ,p H!n IFBh <B>, IFNB <(B>, H IFL GREG.-LGREGh.,  A=GREG. (IFDEF .A,< H IFN .A+GREG.,< h PRINTX "A" ALTER-EGO ALRE(ADY IN USE H> > IFNDEhF .A,< .A==-GREG.> .A==-GROJ,s@P OO$@ /Q @ %Q R@ %QlYP Q$w@@ 9Q&=P Q7YgP SEt@ &S4X`@ &S:LHU@ :S:Mlz@ -SRmLz@ :U ;Z@ ;UHt(z@ UHt+@ UHt-3@ UHt:@ UHtj6@ UHuI3@ UHui2@ UHvz@ UHv2@ UHv+T@ UHvK@ UHvj2@ ULv:7@ 0ULv;z@ 0WcH@ Yh1@ 'Y-3@ 'YCY@ )YYgP Y&u3W@ Y&u3X@ Y7YgP Y> @ 9 TREG= =R0 IFNB <D>@, SKI`PL A,B CAMLE A,IDHIGH(SS)  LINK ARG.SYM @ SKIPN TREG,A ` JRST e ADD A,IDVEC(SS)  IFN TREG, IFN`B <C>,< IFE TREG, CAIE TR@EG,C EXCEP (`ARG) > HRRZ A,0(A) IFB < C>, e: ARG)> e:Y> HW < < TRE<@G==R0 IFNB <<`C>, J=UMPLE A,EXJRST (= SOB) CAMLE A,I=@DHIGH(SS) EXCEP=` (SOB) ADD A,I>DVEC(SS) IFN TR> EG,@A)> IFNB <B>,<>` IFE TREG, ? CAIE TREG,B ?@ JUMPN TREG,EXJR?`ST (SOB) > @HRRZ A,0(A) SKIPG A ) SY> I  @9b TRE`G==R0 IFNB <D>, S KIPL A,B CA@MLE A,IDHIGH(SS)` LINK ARG.SYM  SKIPN TREG, A JRST e+1 @ ADD A,IDVEC(SS`) IFN TREG,  IFNB <C>,< @IFE TREG, CAIE TREG,C EXC EP (ARG) > HR@RZ A,0(A) I`FB <C>, ; EMPTY SLOT ILLEGAL e: ILLEGAY> I2 98 TREG ==R0 IFNB <D@>, SK`IPLE A,B CAMLE A,IDHIGH(SS) LINK ARG.SYM @ ADD A,IDVEC`(SS) IFN TREG, IFNB <C>,< @ IFE TREG, CAIE TREG,C  EXCEP (ARG) > @ HRRZ A,0(A) `JUMPE A,EXJRST (ARG) ;EMPTY SLOT ILLEGAL SLOTY> K@ `: TREG==R0 IFNB < D>, S@KIPL A,B CA`MLE A,IDHIGH(SS) LINK ARG.SYM  SKIPN TREG,@A JRST e `ADD A,IDVEC(SS)  IFN TREG, I@FNB <C>,< IF`E TREG, CAIE  TREG,C EXCEP @ (ARG) > HRRZ ` A,0(A) IFB! <C>, ;EM!@PTY SLOT ILLEGAL SKIPA e: Y?9n@ C[AjQP [Al@ ([AlyP [AnP <[D+@ ,s@P ]mI7P ],HT@ (]Vn)9@ )]Vn\@ )]W<@ ;_ V)1@ <_63@P _:,.: (h"P IFNB )<D>,<D.B=OFFS.)(-A.D> A.B)H==OFFS. A$B)h==C POS.==PO*S.+C A%B==POS.  A%B==_@r@ _Sh(@ 4_Sh)@ 4_Sh1@ _Shw@ 2_Sm7@ 3_SJ9@ _SH:@ 3_W%Y@ ._^tHU@ et{0  @8l MOVE  `R1,B MOVEI R 0, AB.1STP(R1)  ST R1, RB,RAB,+ @A ST R0, RB,RWB,+A , RB,et}t@ ?e=9@ *eKs@ +eJ9@ +eh6@ e<R@ edY9@ /et @ .e&h6@ ?g4(9@ ,g59<@ @g>>6 oh OFpFS.==0 LMREG.p(==0 LGREG.==1pH6 IFDEF MUphREG., IFNDEF MURq(EG., HMREG.==MREqhG. HIGH==1  HIGH==1 g%xx@ @g&\@ Ag"~-P g'Qk]P 1g'QlYP g'QlqP g'QlyP 3g'QnP g'V) OFFS.==0  OFFp@ q. 2@ S@P OQ z`Q y>}{woP