x ,5@P CJ,V@ I$+ j>u IFN Vj83DBMS,< TXNE jXSS,V3.BIT JRSjxT [LD A, OLH,TIDk,B JRST .+2]k8 > LD A, LH,kXTID,B CAIL A,kxSYSTID CAMLEl A,TIDHIGH(SS) l8 JRST [CAIE A,TIlXD.XL EXCEP lx(DAT) IFDEmF TENBLK,< MOm8VEI TENBLK,MEXBLKmX(X) SETZM REmxCBLK > nJRST C] ADD An8, TIDVEC(SS) SKnXIPG ADR.RB(A) EXCEP (NNS)  I&X@ q? CAMLEq8 A,TIDHIGH(SS) qX EXCEP (DAT) ADqxD A, TIDVEC(SS) , TIDVEC(SS) I&XW o? CAILE o8A,SYSTID CAMLE oXA,TIDHIGH(SS) oxEXCEP (DAT) ADDp A, TIDVEC(SS) p8 SKIPG A,ADR.RB(pXA) EXCEP (NNS)  EXCEP (NNS)OH'P Q&=P Q7YgP U@P YYgP Y&p@ Y&u @ Y&v @ Y7YgP Y>]p d(>M SKIPEdX R1,NUWA(X) ;CAeN'T USE UWA? e8AOJN R1,[ ;RIGeXHT, USE LOCKED BUexFFER HLRZ A,fNUWA(X) ;START Wf8ITH ACTU LOC OF RfXECORD HLRE R1fx,LISTPT ;FIND OUgT WHICH KEY Ag8DD R1,NUWA(X) ;NgXUWA WAS 1 PAST ENgxD OF DATLIST hLD R1, RB,RDB,(R1h8) ;...SO R1 PTEDhX AT RIGHT DATBLK hxNODE ADD A,DiB.OFF(R1) JRSi8T .+2] MOVE iXA,DB.UWA(DATBLK) .UWA(DATBLK) [J,p (" IFNH LMREG., IFB <B>,( H IFNB <B>, IFB  <A>, IFG MREG.-H HMREG., IFNB <A>,!< A=MREG. !( IFDEF .A,< !H IFN .A+MREG.,!h< PRINTX ""A" ALTER-EGO AL"(READY IN USE "H > > IFN"hDEF .A,< .A==-MREG.> > -[J,s@P [WYg@ _63@P a8@ a= @ a` r8? MOVE rXPAG,A TLZ PArxG,(1B0) PALONL ) PALONaam wx?C MOVE xPAG,A TLZ PAx8G,(1B0) PALONL ) PALONaam` u?- SKIPGu8 PAG,A GLOYOuX WIN.LE PALONL  Paamp s8?% SKIPNsX PAG,A JRST sx[SKIPL WINDOW(X) t EXCEP (DAT) t8 EXCEP (CNU)] tX TLZ PAG,(1B0) PALONL ) aamy v?; SKIPGv8 PAG,A GLOYOvX WIN.LE SKvxIPE PAG MOwVEM PAG,INIDBK(X)w8 PALONL  PALONL ae{V xx?c IFE V3DyBMS,< LSHC PAy8G,-LINWID LSHyX LIN,-<^D36-LINWIyxD> > IFN V3zDBMS,< TXNE Sz8S,V3.BIT PUSHzXJ P,[LDB LIN,DBK.zxOL LDB PAG,DB{K.OP AOS 0(P){8 POPJ P,] {X PUSHJ P,[LSHC{x PAG,-LINWID |LSH LIN,-<^D36-LI|8NWID> POPJ P,] > POPJ P,dH@ dL@ dP@ dT@ e8 #("( A=B#H IFDEF .A,< #h IFN .A+B,$< PRINTX $("A" ALTER-EGO AL$HREADY IN USE $h > > IFN%DEF .A,< .A==-B> < .A==-g=Y7 r( TWOSErHG RELOC 0 rh GDATA.==0 SEGSYM  g>>6 oh OFpFS.==0 LMREG.p(==0 LGREG.==1pH6 IFDEF MUphREG., IFNDEF MURq(EG., HMREG.==MREqhG. HIGH==1  HIGH==1 g$HU |x?s IFN }A-PAG, IFE V3DBMS}X, }x IFN V3DBMS, ADD A,LIN  ADD A,LIiJ,s@P X1Q S@P 2M`Q |2MjQ ~2MlQ }B pQ }B zQ ~>}{woP