x ,Ue@P C4@ +pZc ..NAC== ,0 IRP A,< ,0 .ACV1 (A)> .ACV3 (\..NAC)C' SpU..AS(A,B,ADD,SUB)(A,BC, 58S+LSH A,-^D9LSH A,-^DC2f} Pxe .EAWTO( QMTY,0) .EAWTO(T Q8YP,2) .EAWTO(TX QXT,2) .EAWTO(OBJ Qx,0) .EAWTO(ACK, R0) .EAWTO(FLG,1 R8) .EAWTO(NOD,0) RX .EAWTO(JBN,0) Rx .EAWTO(ACD,0) S .EAWTO(OCD,0) .EAWTO(MFL,1) C:' x0WC TXZ A,<^-<B>>TXZ A,CHuI7Q xCHvN8P'CJ9ip CJ9jp CJ9l}p E K S0]# ..NA==0 SP IRP B,< Sp .BCAL2 B> TPUSHJ P,A AD T0JSP P,-..NA  P,-..NA E2"@ nP^{ IFE  npB,<..TA==0> oIFN B, PURGE ..TE@tP'E@v yQ ~E@v:=Q |F;z:Q @G@ LpTg ..CX(,A,B) ..CGD P0U ..CX(A,A,B) ..CGDP N0Ts ..CX(E,A,B) ..CGDp NpTw ..CX(G,A,B) ..CGDy  O0T{ ..CX(GE,A,B) ..CGE@ M0Tk ..CX(L,A,B) ..CGEI  MpTo ..CX(LE,A,B) ..CGE` OpT ..CX(N,A,B) ..CGH CxlK LST DxOF. X CRE DX X GEN X PRT D8 X CLS X A DUT X USW EX SPL X SIZ E8 X MOD X CH EXN X ACT X Ex CRY X DTY F X DTO X DCC F8 X BSZ X FXFSZ X HSZ Fx X RFM X RFO G X RSZ X B G8LS X FFB GXX ACW X RMS Gx X MCY X CT HG X NSB X H8 ACD X MTA HX X STS X IDT Hx X PCA X ITIM X LAD I8 X EXP LSTON.  LSG"\Y e8~A IF1, eX<%%EDT==AEDT> ex IF2, ,< PRf8INTX ? Edit NumbefXr Doesn't Match GfxLXVER in GLXA g A$WHO(\AEDT)> g8 A$NOTE IgXNTERN AEDT IgxNTERN LODLEV ;h PURGE %%EDT> ;END IF2 =QS2G(tSQ @G(tEHQ G(tHwQ G(tI8Q pG(vyP 8G(v<P'G(v=P G(vJ6Q xG*iVp G*kVp G*lzp G*l}p G*mp G4,YP G4,,UQ G4,LQ G4,[qQ G4,\qQ @G4,iVQ xG4,kQQ `G4,m:Q G4,m`Q @G4,zQP'G4- Q G4-Q @G4-ZQ G4- G4-Q G4-LzP'G4-htQ G4-kxQ G4-kyP G4-lsQ G4. RQ G4. `Q @G4. zQ G4.(4Q G4.,Q G4.9Q G4.=zQ G4.lXQ @G4.zsQ G4.{Q G4.{Q G4/ 3Q @G:YlP G>hKW hB IFNB <>,< PRINTX (Fro(m GLXVER) > ;END IFNB G>hMt (: PRINTX HGLXVER GLXCOM Ediht(63) by DPM on 9-Aug-88 PRINTX ( GLXCOM Actual Edit(A) G>lYP G>vC@ uPO5LALL PAGE up; (A Continued o vn next page) SAL v0L; (A Continued vPfrom previous page) previous pagG?T m(NjASCIZ \ COPYRIGHT Z \ CGHt;rP GHtkP GHv P GHv)9P GHv:=P I!k7P I!k,<..STR0 (.DECR L00,,<B>,A)> IF LPB <B>, <B>,I6= 0X' A==<-1 PB<C>+1B<C-D>> p IF1,> D PEFINE %A (OP,AC, pY,MSK)< IFDIF <>,< OP (,B+'Y,MSK)> I PFIDN <>,< OP p (,B'Y,MSK)>>AC>,B'Y,MSK)>I'7 V0U3..OP(A,B,DIV)..OP(A,BIOH1 shw( IFB <Dt>,< XWD [ASCIZ\t(C\],[XWD B,A]>tH IFNB <D>,< thXWD [EXP CM%FW!Du ASCIZ\C\],[XWD B,A]> ,[XKuzQ @KuLzQ Ku|zQ KvHVQ KH(Q P :KJ ,bP KJ XBP KJ)bP KJIBP KJLbP KJ=P +KJ{P KJIBP !KJ=bP (KJIP &KJZ"P 0KJ|P 4KJX"P KJ9P &KJ$\BP *KJ$kP KJ$nBP KJ$|bP KJ%bP KJ%h"P KJ%i"P KJ%lP :KJ%|BP KJ&I"P +KJ&K"P KJ&mP #KJ-P KJ-iBP 1KJ-l"P )KJ-yBP KJ-{P KJ.;P 'KJ4"P KJ4"P 0KJ4+"P %KJ49BP KJ4="P )KJ4I"P KJ4LbP KJ5bP $KJ5iP KJ5iBP KJLbP 5KJL;BP KJLLBP 8KJLMP KJLMBP 6KJL^P 7KJLh"P /KJLhBP 3KJLkBP KJLlP KJLlbP KJL{BP 7KJM+BP KJMHbP -KJMLBP KJMh"P 6KJMiP 5KJMmP KJMmbP KJN P ,KJN bP KJNI"P KJNIBP KJN\bP KJfkP (KJlIP KJlLbP KJt1P KJt9"P KJt:"P #KJtKBP 3KJtlP 2KJtmP -KJu"P 8KJuX"P KJu]P KJuhbP KJuiP KJu{"P KJv BP KJv "P 2KJv bP .KJvbP KJv)"P KJv9P KJv;P 1KJv;BP KJv<P KJv=bP KJv[P KJv["P KK-P KKx"P 4KK YBP KK B8l IF1, ERA$= C8=ER%%% ER%%%==ER%%%+1 R%%%==EKKP KK,}P KKLP KK|Y xl ERR EOF , 8ERR IFP, xERR FDE, ERR FN 8D, ERR NSD, x  ERR FCF, X ERR SLE, ERR IFS, 8 ERR x FNF, ERR PRT,

ERR DNA, ERR NCE, ERR NMA x, 8ERR FDS, ERR F AE, ERR USE X, ERR N SP, 8 ERR BOL, ERR EOL, ERR RQF, x ERR SQF, 8ERR NRE, ER xR TBF, ERR EIT, ERR I xTE, ERR QEF 8, E xRR ARG, ERR IFN, ERR IJN,  E XRR RAD,  ERR NUM, ERR IDT, ERR IT 8F, x ERR DOR, 8 ERR DTM, ERR MDD, ERR DFZ X, ERR M DS, ER xR DFL, ERR ILR, E RR NND, ERR NPF, ERR XRDP,  ERR NSW, ERR x NOM, ERR NUL, ERR INW, ERR NC, X x ERR ICN, ERR NQS, 8 ERR AMB, ERR NMT, ERR CMA, xERR NNC, E XRR INT, E 8RR NSN, ERR I xPS, 8ERR IUS, ERR DGS, ERR DNE, E "RR DIO, ERR BD "xF, ERR #8 ABS, ERR TMT $, ERR BDS,< $xInvalid default s %tring> ERR BTF, %8 ERR TME,< %xDate/time must be & in the future> &8 ERR TMN, ERR TMA, ERR DV 'XT, ERR N (8CI, ERR TLU ), )XERR FIO, ERR FB *M, ERR WLK, *X ERR CSD, ERR +X CDD, ERR SN ,8F, ,x ERR ESL, -8ERR LVL, ERR CCW .8, ERR FCU, /X ERR ENQ, ERR SWS, ER 1R DER, ER 1XR DTE, ERR BKT, 2 28 ERR IPP, ER 2xR TRN, 38 ERR ILC, ERR NF 4T, ERR NPS, ERR U 58DM, ERR UDN, ERR 6X IFA, ER 7R FAI, ERR CEI, ERR ENF, ERR NSL 9, ERR NFP,< 9XNo free pages> 9xERR NPI, ERR IF :XB, ER ;8R NDN, ;x ERR PWA, ERR CGP <8, ERR IND, =ERR IAC, =XERR IDV, ER >R INA,8le name> ERR IE >XX,xxtension> ERR I ?GN, E ?XRR IDR, ERR NHA, @X ERR TOF, ERR TOP,< A8Timeout waiting f AXor PID> ERR DNP Ax,  noKKBP KKI"P KKiBP 'KKBP KK|bP *KK$)BP KK%M"P $KK%X"P "KK%Y"P !KK%[BP "KK%]P KK%yBP 9KK%|P 9KK&+BP ,KK,K"P .KK,KBP /KK-*"P KK.9"P KK=JbP %KLtkQ xKLv:=Q xKLv=P'KO&:=p KZ` (`4 IFIDN < HBC><>, h> IFDIF <BC>< >,< IFE <A+1> (,<> H IFN <A+1>,< h IFIDN <C><>,< EXP <A,B>> ( IFDIF <C><>,> >>A,B,C>> >KbN@ `Kc  sOIRP A,< s0 IF2,>>A,h,< PRINTX (From GLXVER) > ;END IFNB M&`Mt  PRINTX (GLXVER GLXFIL EdiHt(122) by DPM on h18-Sep-89 PRINTX GLXFIL Actual Edit(A) M&dYP )M2  :SQ<<<A>B)>>&<B>>M>h1p M>hrp M>h{p M>iRp M>k=p M>l}p M>m9p MHuiWQ @MHv Q MJh1p MJhrp MJip MJiVp MJk=p MJlsp MJl}p MJm9p MR4zP MR6L`P MRV>9P MS.[yQ MVpKW H( IFNB <>h,< PRINTX (From GLXVER) > ;END IFNB MVpMt   PRINTX (GLXVER GLXFUN EdiHt(2) by BAH on 14h-Nov-86 PRINTX  GLXFUN Actual Edit(A) MVtYP M^luQ O2|  spO)IRP A,< t IF2,> tpIFNDEF A, SUPPRES A>> SUPPRO3DYP FO3EKrP FO3EZ7P O3F 9Q O3Fi9P O3FlYQ FO3FzP Qf@ +StLQ St\Yp Stkp SuZp SulQ Su}:p Sv 1p Sv Sp Sv8;Q Sv>@p SNn UpU/..OP(A,B,IDIV).OP(A,BSNp @S7-N TpU'..OP(A,B,IMUL).OP(A,BS:  Hp\M IFNB < IB>,<..STR0 (.INCR I00,,<B>,A)> IF IPB <B>, <B>,S:HKW  IFNB <>(,< PRINTX (FroHm GLXVER) > ;END IFNB S:HMt H PRINTX hGLXVER GLXINI Edit(24) by RCB on 2(3-Jun-89 PRINTXH GLXINI Actual Edit(A) S:LYP S;k B)>>&<B>>S; KW {H` IFNB <>{h,< PRINTX (Fro|m GLXVER) > ;END IFNB S; Mt zX PRINTX z(GLXVER GLXINT EdizHt(120) by DPM on zh29-Nov-89 PRINT{X GLXINT Actual Edit(A) S;!kP S;!k TXO A,S@t,:P'S@t9QQ @S@t9QP S@t9RP `S@t9VP S@t9XP$S@t9YQ S@t9YQ S@t9ZQ S@t9[P"S@t:P S@u-xQ S@u[XQ xS@v tQ @S@v,:P S@v,rQ S@v<Q S@v<Q S@v<Q xS@v<:P'~S@v=Q S@vMQ SBKW H IFNB <>h,< PRINTX (From GLXVER) > ;END IFNB SBMt x PRINTX (GLXVER GLXIPC EdiHt(77) by LWS on 2h4-Aug-87 PRINTX GLXIPC Actual Edit(A) SBIP SBM"P SBYP SBlP SB2P SB BP SB,BP SB,bP SB."P SB\P SB)iP SB)iP SB)kVP SB)kYP SB)lXP SB)lsP SB)lxP SB)mvP SBal}P SPuxzQ @SR/  `< LSTOF. (XCREF ..TEXT<A H> EXP 0 LSTON.  0 Uv98Q |U $@ 2Xlu LST JOF. X JNO,.JI J8JNO,<-1,,GJBJNO> JX X TNO,.JITNO,< Jx-1,,GJBTTY> X KUSR,.JIUNO,.GTPPN K8 X CDN,.JIDNO KX,<-1,,GJBPTH> KxX PRG,.JIPNM,.GTP LRG X CJN,.JIC L8PJ,<-1,,GJBCJB> LX X BAT,.JIBCH,.G LxTOBI X JLT,.J MISTM,.GTJLT X M8 LOC,<-1,,GJBLOC> MX,<-1,,GJBLOC> MxX RTM,.JIRT,<-1,, NGJBRTM> X TLC, N8<-1,,GJBTLC>,<-1, NX,GJBTLC> LSTON.  LSTU +,U +(U  +$Up +U~` +"U$t(:P U$t9P U$t:WP U$u+P U$u+WP U$uKqP U$uX(,< PRINTX (FroHm GLXVER) > ;END IFNB W Mt H  PRINTX hGLXVER GLXKBD Edit(103) by LWS on (24-Aug-87 PRINTHX GLXKBD Actual Edit(A) W $YP !WNH1 uHw4 IFB <Cuh>,< XWD [ASCIZ\vB\],A> IFNB <v(C>,< XWD [EXP vHCM%FW!C ASCIZ\B\],A> SCIZY"luQ xY&i1 S# LST 8OF. XCREF CDO X OTSINI CDO x CDO .ZP AGA CDO .ZPAGN 8 CDO .ZCHNK CD XO .SAVE1 CDO .S xAVE2 CDO .SAVE3  CDO .SAVE4 C 8DO .SAVET CDO . XSV13 CDO .SV14 x CDO .SV15 CDO  .SV16 NT .RETT 8 NT .RETF CDO X .RETE CDO .AOS x CDO .SOS  CDO .ZERO NT 8 .POPJ CDO .S XTOP CDO .SAVE x8 CDO .STKST  CDO .TRSET 8 NT .POPJ1 C XDO .UD2SC CDO x .SC2UD CDO . CPUTY CDO .DI 8E CDO CDO X CDO CDO C x%RPRM CDO C%INT R CDO C%SEND 8CDO C%RECV CDO XC%BRCV CDO C%RE xL CDO C%CPID CDO C%KPID CDO 8C%SPID CDO C%MA XXP CDO C%PIDJ x CDO C%PIDH CDO  C%SIDX CDO C 8DO CDO CDO X CDO F x%IOPN CDO F%AOP N CDO F%OOPN 8CDO F%IBYT CDO XF%OBYT CDO F%IB xUF CDO F%OBUF  CDO F%REL CDO 8F%DREL CDO F%RR XEL CDO F%REW xCDO F%POS CDO F %CHKP CDO F%INF 8O CDO F%FD CD XO F%REN CDO F%D xEL CDO F%FCHN ! CDO CDO CDO !8 CDO CDO CDO !X CDO CDO CD !xO FUNCT. C "DO CD "8O M%ACQP CDO M% "XRELP CDO M%IPSN "x CDO M%NXPG C #DO M%IPRC CDO M #8%IPRM CDO M%AQN #XP CDO M%RLNP #xCDO M%CLNC CDO $M%FPGS CDO M%GM $8EM CDO M%RMEM $X CDO CDO CDO $x CDO CDO CDO % CDO M%GPAG C %8DO M%RPAG CDO %X CDO CDO CDO %x CDO CDO CDO & CDO CDO &8 CDO T%T &XEXT CDO T%TTY &x CDO CDO CDO ' CDO CDO CDO '8 CDO CDO CD 'XO CDO CDO 'x CDO L% (CLST CDO L%DLST (8 CDO L%CENT C (XDO L%CBFR CDO L (x%DENT CDO L%NEX )T CDO L%FIRS )8CDO L%LAST CDO )XL%PREV CDO L%PR )xEM CDO L%CURR * CDO L%RENT CDO *8 L%SIZE CDO L%A *XPOS CDO CDO *x CDO CDO CDO + CDO CDO CDO +8 CDO CDO +X I%NOW CDO I%EX +xIT CDO I%ION ,CDO I%IOFF CDO ,8I%SLP CDO I%INT ,X1 CDO I%INT2 ,xCDO I%INT3 CDO -I%TIMR CDO CD -8O CDO I%SOPR -XCDO I%WTO CDO -x CDO I%HOST CDO . I%JINF CDO I%C .8JOB CDO I%KJOB .X CDO S%U2DT .x CDO S%DT2U CD /O S%DATI CDO S% /8SIXB CDO S%CMND /X CDO S%TBLK C /xDO S%SCMP CDO S 0%ERR CDO S%INTR 08 CDO S%EXIT C 0XDO S%TBAD CDO S 0x%TBDL CDO S%NUM 1I CDO K%RCO 18C CDO K%WCOC 1X CDO K%SUET C 1xDO K%STYP CDO K 2%TXTI CDO K%SOU 28T CDO K%BOUT 2XCDO K%BIN CDO K 2x%BACK CDO K%TPO 3S CDO K%BUFF 38CDO K%FLSH CDO 3XK%OPEN CDO K%EC 3xHO CDO CDO 4CDO CDO CDO 48 CDO CDO CDO LSTON.  Y:XKW d IFNB <>(,< PRINTX (FroHm GLXVER) > ;END IFNB Y:XMt H\ PRINTX hGLXVER GLXLNK Edit(11) by AWC on 2(9-Jan-82 PRINTXH GLXLNK Actual Edit(A) Y:\YP Y> @ B0\ IFNB < BPC>,<..STR0 (..LDB Bp,A,C,B)> IFB C <C>,C>,%I;P YO%GP YO%yG wOC IFNDEF w0LSTIN.,LSTIN.==0 wP IFE LSTIN.,< wp IFIDN <A x>,<.XCREF> x0 XLIST> LSTIN.==LSTIN.+1STINYO%{G xpOM IFG LST yIN.,LSTIN.==LSTIN y0.-1 IFLE LSTIN yP.,<.CREF LIST> [KW ~t IFNB <>~(,< PRINTX (Fro~Hm GLXVER) > ;END IFNB Z[Mt |Hl PRINTX |hGLXVER GLXMAC Edi}t(525) by DPM on }(16-Oct-89 PRINT}HX GLXMAC Actual Edit(A) [YP *[3@ <Sa<<<1_<A>>-1>B<B>>_<A>>[8@ ;SY1B<<A>-1>-1B<B><<A>-1>[@ XQ  IFB <B x>,,>> IFNB <B>,< xB==0 IRP A,< IFG <A-B>,<B==A>>> B>,<B==[tP'[t;ZQ x[v 8Q [v QP [v TP'[v Q [v :Q [v uQ [v xQ [v tQ @[vQ [hrp [iSp [k9p [lp [lXp [lrp [ltp [lxp [l}p [hKW  HX IFNB <> h,< PRINTX (Fro m GLXVER) > ;END IFNB [hMt  P PRINTX  (GLXVER GLXMEM Edi Ht(33) by DPM on 1 h9-Apr-88 PRINTX  GLXMEM Actual Edit(A) [lYP [n:=P [tuQ @[th:Q [u[yQ [ukvQ [v=3P'[v|WQ [&p XQ IFB <B x>,,>> x IFNB <B>,<B== 377777,,777777 8 IRP A,,<B==A>>> A>,<B==A>>> [>!` ;PS]<A-<A/B>*B><A-<A/B[?7 =TK ..MX1 =0==B IFDEF .P =PSECT,< .IFN . =p.MX1,ABSOLUTE,< > MOVE A,[B]> >0 .IF ..MX1,ABSOL >PUTE,< ..MX2==0 >p IFE <..MX1>B5 ?3,< ..MX2==1 ?0 MOVEI A,..MX ?P1> IFE ..MX2,< ?p IFE <..MX1>B @17,< ..MX2==1 @0 MOVSI A,(.. @PMX1)>> IFE ..M @pX2,< IFE <<.. AMX1>B53-^O777777> A0,< ..MX2==1 AP HRROI A,<..MX Ap1>>> IFE ..MX2 B,< IFE <<..MX B01>B17-^O777777B17 BP>,< ..MX2==1 Bp HRLOI A,(..M CX1-^O777777)>> C0 IFE ..MX2,< CP MOVE A,[..MX1] Cp> >> IFNDEF D .PSECT,< ..MX2 D0==0 IFE <..MX DP1>B53,< ..MX2 Dp==1 MOVEI A, E..MX1> IFE ..M E0X2,< IFE <..M EPX1>B17,< ..MX Ep2==1 MOVSI A F,(..MX1)>> IFE F0 ..MX2,< IFE FP<<..MX1>B53-^O777 Fp777>,< ..MX2= G=1 HRROI A,< G0..MX1>>> IFE . GP.MX2,< IFE << Gp..MX1>B17-^O77777 H7B17>,< ..MX2 H0==1 HRLOI A, HP(..MX1-^O777777)> Hp> IFE ..MX2,< I MOVE A,[.. I0MX1]> > PURGE ..MX1,..MX2RGE[Lt;ZQ x[LvN8P'[NF:=p [N^= 0X= A==C P IF1,> 0DEFINE %A (OP,AC P,Y,MSK)< IFDIF p <>,< OP (,B+'Y,MSK)> 0IFIDN <>,< O PP (,B'Y,MSK)>>AC>,B'Y,MSK)[PuySP'[PvNP'[Vg U0U+..OP(A,B,MUL)..OP(A,B[`v 2P ] qPOIF2,> IFNDEF A,<A==B>]F@ qHTEMFDB##_ QkRp _ Ql}p _ Qmp _ Qm7p _ T= 2o X .OT g RDR,Reader X .O fTNCU,Network-Cont g`roller X .OTLPT e`,Printer X .OTB f@AT,Batch-Stream f` X .OTCDP,Card-Pu f nch X .OTPTP,Pa g@pertape X .OTPL gT,Plotter X .OT lTRM,Terminal X l .OTJOB,Job X .O l@TOPR,Operator X l` .OTIBM, X .OTMNT, X .OTFTS m@, m` X .OTBIN, X .OTRET, X n` .OTNOT, o X .OTDBM, X .OTFAL o`, X p .OTEVT, p X .OTFCH, X .OTXER, p` X .OTNQ qC, , _SKW H0 IFNB <>h,< PRINTX (From GLXVER) > ;END IFNB _SMt ( PRINTX (GLXVER GLXOTS EdiHt(14) by RCB on 2h3-Jun-89 PRINTX GLXOTS Actual Edit(A) _SYP _Sh6Q O3EJ1_Tu SQ x_TuLSP'`P `DP `HP `LP `PP a<VP a>:=P a,I3p a,\Yp a- P a-np a. :p a.-p a.:=p atzp atiP'atkp au p auZp auI7Q xauKqp au[Yp au^p auh6p av Q xav 2p av>9p a ,TQ a ,Q a ,*9Q a ,>(Q a ,>(Q a ,k{Q a ,m3Q a -J8Q @a -iQ a -}SQ @a .Z7Q a .\yQ a tTQ a tQ a t*9Q a t>(Q a t>(Q a tk{Q a tm3Q a uJ8Q @a uiQ a u}SQ @a vZ7Q a v\yQ al}P aI3 p# ..XX= ~x= }X+B+ }x IFNB <D>,<..XX= ~..XX!CM%HPP> ~X IFNB <E>,<..XX= ~8..XX!CM%DPP> P EXP ..XX p IFNB <C>, IFB <C>,<0EXP 0> IFNBP <D>, IFB <D>,<0> 0 IFNB <E>, p IFB <E>,<0>  IFB <I0>,<0> IFNB <PI>, p IFB <J>,<0>  IFNB <J>, IFB <H>P,<0> IFNB <Hp>, IFB <G>,<0> 0IFNB <G>, G>,h,< PRINTX (From GLXVER) > ;END IFNB a@Mt p PRINTX (GLXVER GLXPFH EdiHt(16) by TARL on h17-Apr-81 PRINTX GLXPFH Actual Edit(A) aDYP a 4xS'LSH A,^D9LSH A,^D9a+= 5a;&  *xb_ IFB < +B>,<..STR0(..PNT +8,,,A)> +X IFNB <B>,<..ST +xR0(..PNT,,<B>,A)>.PNT,,<B>,Aa>Mm 90SMB),A,POS(B)>a?H6 +a? 6pS7<^L<<A>&<-<A>>>><<A>&,<%%.MOD {X==SIXBIT/A/> {xIFNB <B>,<%%.OTS |==SIXBIT/B/> |8 GLOB I%INIT |X TOPS10 < |x SEARCH UUOSYM } %%UUOS==%%UUO }8S > T }XOPS20 < SEA }xRCH MONSYM ; ~%%MONS==%%MONS ~8 > IFB < ~XB>,< IFN G ~xLXPUR,< .TEXT  |,REL:GLXLIB/SEA 8RCH/REQUIRE:I%INI XT/SEGMENT:LOW| x > DEFINE $ DATA (NAM,SIZ<1>) 8,< NAM: BLOC XK SIZ > xDEFINE CDO (X), DEFINE 8 NT(X), X LIBVEC > x IFNB <B>, < CHKEDT ( 8B) IFDIF < XB>,< IF xN GLXPURE,<.PSECT  .HIGH.> IFE 8GLXPURE,< T XWOSEG 400000 x RELOC 0 REL OC 400000 > 8 DEFINE $DA XTA(NAM,SIZ<1>),< x IFN GLXPURE, <.PSECT DATA> 8 IFE GLXPURE, IFNDEF xB%D,<B%D::! B% DL==:0> NAM: 8BLOCK SIZ B% XDL==:B%DL+SIZ x IFN GLXPURE,<. ENDPS DATA> 8IFE GLXPURE, > I xFDIF <B>,<  DEFINE CDO ( 8X), D XEFINE NT(X), LIBVEC  > > 8 IFIDN <B>,< DEFINE x$DATA (NAM,SIZ<1> ),< NAM: BLO 8CK SIZ > X> > LST xON. GLOB <.POPJ, .RETT, .R 8ETF> OPDEF $RE XT [POPJ P,] OP xDEF $RETT [PJRST .RETT] OPDEF $ 8RETF [PJRST .RETF X] OPDEF $RETIT x [JUMPT .POPJ]  OPDEF $RETIF [JU 8MPF .POPJ] .NO XDDT $RET,$RETT,$R xETF,$RETIT,$RETIF $RETIT,$RETIFaPtP aPtkP aPuTP aPv\rP e,(SQ e,)6Q e,)RQ e,+Q @e,,UQ @e,-Q e, (,< PRINTX (Fro Hm GLXVER) > ;END IFNB gpMt  Hd PRINTX  hGLXVER GLXSCN Edi t(135) by DPM on  (19-Apr-88 PRINT HX GLXSCN Actual Edit(A) gtYP .g"@ op_ IFN <<. p.TA>&B>, pp ..TVAL==<C> q ..TMSK==<B> q0 ..TA==..TA! qP PURGE ..TVAL,..TMSK .TgtXrP gv [P g#=z q`C.SWIT+PDBCPY##C.SWIT+PDBg$tkQ @g$uP'g$uh6Q g.N @ 6@g.N  7@g@tzP g@t8:P g@tKvP g@t\VP g@tj6P g@tyYP g@uSP g@uP g@uX4P g@uYP g@uhxP g@u|P g@vyP g@vItP g@vKP g@vKvP gBLL` Oo] .SPID (S e@P.QSR,.IPCPQ,.SPQ q`SR,QUASAR) .SPI tD (SP.OPR,.IPCPO, t8.SPOPR,OPERATOR) tX .SPID (SP.INF,.I txPCPI,.SPINF,INFO) u .SPID (SP.MDA, u8.IPCPM,.SPMDA,MDA uX) TOPS10< .SPI uxD (SP.IPC,.IPCPS, v,IPCC) .SPID ( v8SP.ACT,.IPCPA,,AC vXCOUNTING DAEMON) vx .SPID (SP.TLP,.I wPCPT,,TAPE LABELL w8ER) .SPID (SP.TO wXL,.IPCPC,,TAPE AV wxR) .SPID (SP.DO xL,.IPCPD,,DISK AV x8R) .SPID (SP.FI xXL,.IPCPF,,FILE DA xxEMON) .SPID (SP. yCAT,.IPCPV,,CATAL y8OG DAEMON) .SPID yX (SP.ERL,.IPCPL,, yxERROR LOGGER) .S zPID (SP.TGH,.IPCP z8E,,TGHA) .SPID ( zXSP.NCP,.IPCNM,,DE zxCNET CONTROLLER) { .SPID (SP.MAI,.I {8PCPX,,MAILER) .S {XPID (SP.GFR,.IPCPG,,GOPHER) > gR^h9 PY ..STKR= p=10 RADIX 8  ..STKN==0 IRP 0A,< .STKV1 ( PA)> $CALL .STK pST ..STKN,,..S TKN RADIX ..STK 0R DEFINE ENDSV. P<.ENSV1 <A>> P pURGE ..STKN,..STKR,..STKQ TKgR~r xh_~ .TYPE= y=-1 IFIDN < y(B>,<.TYPE== yH0> IFIDN <B>< yhCONT>,<.TYPE==1> z IFIDN <B>,<.TYPE==2> zH IFL .TYPE,< zh IF2, S..A: {h:JRST 4,. > | IFB <A>,< |( IF2, S..:: }(JRST 4,. > }H IFGE .TYPE, }h< S..A::PUS ~HJ P,.DIE CA ~(I .TYPE,[ &77777 ~h7000000 EXP %% .MOD EXP C ( EXP [ASCIZ | HD|] ] > h PURGE .TYPE URGE .gR~)  EP\3 IFNB < EpC>,<..STR0 (..DPB F,A,C,B)> IFB F0 <C>,>,,> IFNB <C>,> PS20<A==C>> ght-3P @ghuWP ghuSP ghuxSP @ghv5P ghv 2P hDP hHP hLP hPP i,YQ @iP i$tkQP'i$tlUQ xi0,YQ i0,1Q i0,^Q i0-kvQ @i?4( _0}{IFN FTUUOS,B ;DEFINE UNi?4H _p}IFN FTJSYS, INTERN AEDT iD a IFNB ( <A>,<.TQCHA==^ HD<B>B17+ZZ> I hFNB <D>,> (IFNB <C>,<.TQC= H=^D<B>B17+ZZ> ZZ==ZZ+1ZZ> iG, a LSTOF. ( TQ(T,2,ASCIZ) H TQ(O,2,OCTAL) h TQ(D,2,DECI MAL) TQ(F,2, (FILE) TQ(7,2 H,CSEVEN) TQ( h6,2,CSIXBIT)  TQ(W,2,SIXBIT) ( TQ(5,2,SVNBIT H) TQ(P,2,USE hR) TQ(U,2,DI RECTORY) TQ( (H,2,DAYTIME) H TQ(C,2,TIME) h TQ(E,2,ERROR)  TQ(I,1,INDIRE (CT) TQ(M,0,CR H,..TXC0(\".CHCRT) h) TQ(J,0,LF,.. TXC0(\".CHLFD)) ( TQ(L,0,FF,..TXC H0(\".CHFFD)) T hQ(K,0,VT,..TXC0(\ ".CHVTB)) TQ(A (,0,NOCRLF,..TXA(. HTQCHA)) TQ(0,0 h,NULL,..TXA(.TQCH 0)) TQ(3,0,STR (ING,..TXER(IQU)) H TQ(V,2,VERSION h) TQ(2,0,CAR ET,..TXER(IQU)) ( TQ(Q,2,POINTER) H TQ(B,2,ROB) h TQ(1,2,OBJE CT) TQ(N,2,N (ODE) TQ(R,2, HJIB) LSTON. ) LSTON. iJnN8 28n( LSTOF. O8 X(33,TTY33,33,. OXRETT,,,) X(3 P5,TTY35,35,.RETT, Ox,,) TOPS20< P@ X(37,TTY37,37,.R P`ETT,,,) X(EX QECUPORT,EXEC,EXE, Q .RETT,,,) > Q@TOPS10< X(LA120 Q`,LA120,L12,.RETT, R,,) > X(LA3 R 6,LA36,L36,.RETT, R@,,) X(VK100, R`VK100,K10,SETTLC, S<.CHESC,"[","K">, S <.CHESC,"=">,<.CH S@ESC,.CHRAB>) X( S`VT05,VT05,V05,.RE TTT,<37,177,177,17 T 7>,,) X(VT100, T@VT100,100,SETTLC, T`<.CHESC,"[","K">, U<.CHESC,"=">,<.CH U ESC,.CHRAB>) U@TOPS10< X(VT101,V U`T101,101,SETTLC,< V.CHESC,"[","K">,< V .CHESC,"=">,<.CHE V@SC,.CHRAB>)> X V`(VT102,VT102,102, WSETTLC,<.CHESC,"[ W ","K">,<.CHESC,"= W@">,<.CHESC,.CHRAB W`>) TOPS10< X(VT X103,VT103,103,SET X TLC,<.CHESC,"["," X@K">,<.CHESC,"=">, X`<.CHESC,.CHRAB>)> Y X(VT125,VT125 Y ,125,SETTLC,<.CHE Y@SC,"[","K">,<.CHE Y`SC,"=">,<.CHESC,. ZCHRAB>) TOPS10< Z X(VT180,VT180,18 Z@0,SETTLC,<.CHESC, Z`"[","K">,<.CHESC, ["=">,<.CHESC,.CHR [ AB>)> TOPS10< X [@(VT185,VT185,185, [`SETTLC,<.CHESC,"[ \","K">,<.CHESC,"= \ ">,<.CHESC,.CHRAB \@>)> X(VT220,VT \`220,220,SETTLC,<. ]CHESC,"[","K">,<. ] CHESC,"=">,<.CHES ]@C,.CHRAB>) X(V ]`T240,VT240,240,SE ^TTLC,<.CHESC,"[", ^ "K">,<.CHESC,"="> ^@,<.CHESC,.CHRAB>) ^` X(VT320,VT320 _,320,SETTLC,<.CHE _ SC,"[","K">,<.CHE _@SC,"=">,<.CHESC,. _`CHRAB>) X(VT33 `0,VT330,330,SETTL ` C,<.CHESC,"[","K" `@>,<.CHESC,"=">,<. ``CHESC,.CHRAB>) a X(VT340,VT340,34 a 0,SETTLC,<.CHESC, a@"[","K">,<.CHESC, a`"=">,<.CHESC,.CHR bAB>) X(VT50,VT b 50,V50,SETTLC,<.C b@HESC,"K">,<.CHESC b`,"=">,<.CHESC,.CH cRAB>) X(VT52,V c T52,V52,SETTLC,<. c@CHESC,"K">,<.CHES c`C,"=">,<.CHESC,.C dHRAB>) TOPS10< d X(VT61,VT61,V61,S d@ETTLC,<.CHESC,"K" d`>,<.CHESC,"=">,<. eCHESC,.CHRAB>)> LSTON. > iK,PA iK4@ &Z? ..TRR== &010 RADIX 8 &P..NV==1 IRP &pA,< .TRV1 ( 'A)> $CALL .TR '0SET ..NV-1,, 'P..NV-1 RADIX .. 'pTRR PURGE ..TRR,..NVURGE ..Tib m0Vk ..TX(C,A,<B>)..TX(Cib npVw ..TX(CA,A,<B>).TX(CibP mpVo ..TX(CE,A,<B>).TX(Cib` n0Vs ..TX(CN,A,<B>).TX(Cibp g0V; ..TX(N,A,<B>)..TX(Nibt hpVG ..TX(NA,A,<B>).TX(NibtP gpV? ..TX(NE,A,<B>).TX(Nibu` h0VC ..TX(NN,A,<B>).TX(Nibx i0VK ..TX(O,A,<B>)..TX(Oib| jpVW ..TX(OA,A,<B>).TX(Oib|P ipVO ..TX(OE,A,<B>).TX(Oib}` j0VS ..TX(ON,A,<B>).TX(Oic KW < IFNB <>(,< PRINTX (FroHm GLXVER) > ;END IFNB ic Mt H4 PRINTX hGLXVER GLXTXT Edit(55) by BAH on 1(4-Nov-86 PRINTXH GLXTXT Actual Edit(A) ic!h2Q ic!i0Q ic!iQP ic!iWQ `ic!j6Q ic!jZQ ic!k Q `ic!kPQ @ic!lQ ic!lQ |ic!l`Q ic!lqQ ic!lvP ic!lvP ic!lxP'ic!lyP ic!lyQ ic!mrQ pic!nQ ic$YP icP k0V[ ..TX(Z,A,<B>)..TX(ZicT lpVg ..TX(ZA,A,<B>).TX(ZicTP kpV_ ..TX(ZE,A,<B>).TX(ZicU` l0Vc ..TX(ZN,A,<B>).TX(ZkR`KW (N IFNB <>H,< PRINTX (Frohm GLXVER) > ;END IFNB kR`Mt hF PRINTX GLXVER GLXUTL Edi(t(2) by DPM on 4-HDec-85 PRINTX h GLXUTL Actual Edit(A) kRdYP mKc@ `OQBYTE (3)A zWHO (9)AVER (6)AMIN (18)AEDTo&  60S3<^L<-<<A>_<^L<A>>>-1>>>o .TTC==.q"eJ  P q*-` + q+= + q6~i4 C q? xpWG TXC A,<B> TXC A,q@ r0OIFB <C>,< rPA==:B> IFNB <C>,<A=:B>B <CqBp +qN5P +up Np\} IFNB < OB>,<..STR1 (..TQZ O0,,<B>,A,..STR4) OP> IFB <B>,<B>,) $NEXT (Ap() IFIDN <B> <>,pH< IRP C,<C> ph .$BUILD> IFDIF q<B> <>,< $HELPq( (B) IRP C,<C> .$BUILD>< 0 y8gO .WTOX.(.OM yXACK,<A>,<B>,<C yx>,<D>,<$WTFLG(WT.SJI),E>)LG(WT J7  q>.XCREF .%R@TN, .$RTN DEF`INE .$RTN <A> .%RTN==1A> D[  @pT IFDIF < `A> <>,<.XCREF .% HLPM, .$HLPM DEF INE .$HLPM .%HLPM==-1> fI9  q.XCREF .%L@ST, .$LST DEF`INE .$LST <A+1> .%LST==11> =Z `p^ IFG  aA-INT.LV, .BGINT.(\A)  .BGINT.(\A X5  q.XCREF .%B@REA, .$BREA D`EFINE .$BREA <A> .%BREA==1> - cP^- IFDEF cp ..BSIZ, . dP.BSIZ==0 . dp.BLOC==. R eEPEAT A,< e0BLD0.(\..BSIZ,0) eP ..BSIZ==..BSIZ+1> ==..BSI  K , }[0 Su  .XCREF S(.$RESET, .$BUILD SH .$RESET $TYPESh (.CMCMA) $NEXTT (A) IRP B,<B> .$BUILD,< I@ NHt| .XCREF Nh.$RESET, .$BUILD O .$RESET $TYPEO( (.CMCFM) IRP OHA,<A> .$BUILD,<A> .$BUILD $^ \ur .XCREF \(.$RESET, .$BUILD \H .$RESET $TYPE\h (.CMTXT) $HELP] (<>) $NEXT (A]() IFIDN <B> <>,]H< IRP C,<C> ]h .$BUILD> IFDIF ^<B> <>,< $HELP^( (B) IRP C,<C> .$BUILD>< I  ^hv .XCREF _.$RESET, .$BUILD _( .$RESET $TYPE_H (.CMTAD) $PDAT_hA (CM%IDA) $NEX`T (A) IRP B,<B> .$BUILD,< ,,U bp^ $RET c ;WILL INVOKE RIGHT ROUTINE  ,h:  @pt IFDIF < `A> <>,<.XCREF .% DEFM, .$DEFM DEF INE .$DEFM  ` .%DEFM==1> IFIDN <A> <>,< I F1 < PRINTX %Nul@l argument in $DEFAULT macro>>DE .` ZHu\ .XCREF Zh.$RESET, .$BUILD [ .$RESET $TYPE[( (.CMDEV) $NEXT[H (A) IRP B,<B> .$BUILD,< Lz: ;sl .XCREF ;(.$RESET, .$BUILD ;H .$RESET $TYPE;h (.CMNUX) $PDAT<A (B) $HELP (<<(>) $NEXT (A)  <>,< I .$=BUILD> IFDIF <C=(> <>,< $HELP (=HC) IRP D,<D> .$BUILD><D> N  Pu .XCREF P(.$RESET, .$BUILD PH .$RESET $TYPEPh (.CMDIR) $NEXTQ (A) IRP B,<B> .$BUILD,< |  jP^q IFNDE jpF ..BSIZ, kP IFN <.-..BLOC>,< kpPRINTX ?Address c lhange between $BU l0ILD and $EOB> lP LSTOF. .. lpT==0 REPEAT . m.BSIZ,< BLD m00.(\..T,1) mP ..T==..T+1 > mp PURGE ..BSIZ,.. nT,..BLOC LSTON.  LST +y  q.XCREF .%E@RTN, .$ERTN D`EFINE .$ERTN <A> .%ERTN==1> ,  q(.XCREF .%E@RTN, .$ERTN D`EFINE .$ERTN <1B0+A+1> .%ERTN==1> .%ERTN - @q6.XCREF .%E`RTN, .$ERTN DEFINE .$ERTN <[MO VEI S2,[ASCIZ\A\@] $RET`F]> .%ERTN==1> .%ERTN==1  K pOIF2,-.,>EGAL $FALL A>> H6 tH_, $CALL . thSTOP LSTOF. J uUMP [XWD 0,[ITEXT u( (<A>)] EXP uH%%.MOD] LSTON. .MOD] LSTON. L[ Khtp .XCREF L.$RESET, .$BUILD L( .$RESET $TYPELH (.CMFLD) $NEXTLh (A) $HELP (<>M) IFIDN <B> <>,M(< IRP C,<C> MH .$BUILD> IFDIF Mh<B> <>,< $HELPN (B) IRP C,<C> .$BUILD>< MI  ItZ .XCREF I(.$RESET, .$BUILD IH .$RESET $TYPEIh (.CMFIL) $HELPJ (<>) $NEXT (AJ() IFIDN <B> <>,JH< IRP C,<C> Jh .$BUILD> IFDIF K<B> <>,< $HELPK( (B) IRP C,<C> .$BUILD>< dy p4.XCREF .%F LGS, .$FLGS D@EFINE .$FLGS <A> .%FLGS==1> ex: WhuP .XCREF X.$RESET, .$BUILD X( .$RESET $TYPEXH (.CMFLT) $HELPXh (<>) $NEXT (AY) IFIDN <B> <>,Y(< IRP C,<C> YH .$BUILD> IFDIF Yh<B> <>,< $HELPZ (B) IRP C,<C> .$BUILD>< $ d(v. .XCREF dH.$RESET, .$BUILD dh .$RESET $TYPEe (.CMTAD) $PDATe(A () $NEXTeh (A) IRP B,<B> .$BUILD,< $ sX_ j` INTER tN A $DATA(A,<B>) ATA(A~V_1P* " MQ b "-L pH IFDIF < A> <>,<.XCREF .%@HLPM, .$HLPM DEF`INE .$HLPM .%HLPM==1> &5 CHt. .XCREF Ch.$RESET, .$BUILD D .$RESET $TYPED( (.CMIFI) $HELPDH (<>) $NEXT (ADh) IFIDN <B> <>,E< IRP C,<C> E( .$BUILD> IFDIF EH<B> <>,< $HELPEh (B) IRP C,<C> .$BUILD>< &u V(u: .XCREF VH.$RESET, .$BUILD Vh .$RESET $NEXTW (A) $TYPE (.CW(MINI) IRP B,<B> .$BUILD,< ./ 6(s< .XCREF 6H.$RESET, .$BUILD 6h .$RESET $TYPE7 (.CMKEY) $PDAT7(A (B) $NEXT (7HA) IRP C,<C> .$BUILD,<C> ./ 4Hs. .XCREF 4h.$RESET, .$BUILD 5 .$RESET $TYPE5( (.CMKEY) $PDAT5HA (A) $NEXT (05h) IRP B,<B> .$BUILD,<B> />Ky |gc.WTOX.(.OM |8WTR,,,,<A>,<$WTFLG(WT.KIL),B>) 2|p {8g].WTOX.(.OM {XLOG,<A>,<B>,<C>,,<D>)B>,<C :/   q.XCREF .%N@XT, .$NXT DEF`INE .$NXT <A> .%NXT==1A> :|KV lvt .XCREF l(.$RESET, .$BUILD lH .$RESET $TYPElh (.CMNOD) $HELPm (<>) $NEXT (Am() IFIDN <B> <>,mH< IRP C,<C> mh .$BUILD> IFDIF n<B> <>,< $HELPn( (B) ; $FLAGS (nHCM%PO) IRP C,<C> .$BUILD>< :}r >s| .XCREF >(.$RESET, .$BUILD >H .$RESET $TYPE>h (.CMNOI) $PDAT?A () $NEXT ?H(A) IRP C,<C> .$BUILD,<C ;-XR 8sT .XCREF 8(.$RESET, .$BUILD 8H .$RESET $TYPE8h (.CMNUM) $PDAT9A (B) $HELP (<9(>) $NEXT (A) 9HIFIDN <C> <>,< I9hRP D,<D> .$:BUILD> IFDIF <C:(> <>,< $HELP (:HC) IRP D,<D> .$BUILD><D> >5 F(tD .XCREF FH.$RESET, .$BUILD Fh .$RESET $TYPEG (.CMOFI) $NEXTG( (A) $HELP (<>GH) IFIDN <B> <>,Gh< IRP C,<C> H .$BUILD> IFDIF H(<B> <>,< $HELPHH (B) IRP C,<C> .$BUILD>< B$ p<.XCREF .%D ATA, .$DATA D@EFINE .$DATA <A> .%DATA==1> B$YP p~.XCREF .%D EFM, .$DEFM D@EFINE .$DEFM > .%DEFM==1> .% CYT  qF.XCREF .%D@EFR, .$DEFR D`EFINE .$DEFR <A> .%DEFR==1> G-} f(vD .XCREF fH.$RESET, .$BUILD fh .$RESET $TYPEg (.CMQST) $HELPg( (<>) $NEXT (AgH) IFIDN <B> <>,gh< IRP C,<C> h .$BUILD> IFDIF h(<B> <>,< $HELPhH (B) IRP C,<C> .$BUILD>< J.I  r8_ $CALL rX .RETE LSTO rxF. JUMP ERA$ LSTON.ERA$ Ni  00[ .NVR==0 0P .ACM==0 0p IRP A,< 1 ..TSAC(.ACB,A) 10 IFN .ACB,<.A 1PCM==.ACM!1B<A>> 1p IFE .ACB,< 2 IFE .NVR,< 20 PUSHJ P,[ 2P > .. 2pPUSH(A,\<.NVR+1> 3)>> IFE . 30NVR,< IFN .ACM 3P,< IFE <.A 3pCM-17B>,<.ACM 4==0 $CALL .S 40AVET> IFE < 4P.ACM-377B<.A16>>, 4p<.ACM==0 $CA 5LL .SAVE8> 50IFE <.ACM-17B 5P>,<.ACM==0 $ 5pCALL .SAVE4> 6 IFE <.ACM-7B>,<.ACM==0 6P$CALL .SAVE3> 6p IFE <.ACM-3B>,<.ACM==0 70 $CALL .SAVE2> 7P IFE <.ACM-1B< 7pP1>>,<.ACM==0 8 $CALL .SAVE1> 80 IFE <.ACM-1B 8P<.A13>>,<.ACM==0 8p $CALL .SV13> 9 IFE <.ACM- 901B<.A14>>,<.ACM== 9P0 $CALL .SV1 9p4> IFE <.AC :M-1B<.A15>>,<.ACM :0==0 $CALL .S :PV15> IFE <. :pACM-1B<.A16>>,<.A ;CM==0 $CALL ;0.SV16> >> ;P IFN .ACM,< ;p IFE .NVR,< < PUSHJ P,[ <0 > .ACB= >, =0< ..PUSH(\.AC =PB,\<.NVR+1>)> =p.ACB==.ACB+1>> > IFN .NVR,< >0 PUSHJ P,@-.NVR( >PP) TRNA >p AOS -1-.NVR(P) ? REPEAT .NV ?0R,<..POP(\.NVR)> ?P ADJSP P,-1 ?p POPJ P,]>  POPJ P,]>  N;   p`.XCREF .%S BCM, .$SBCM IFD @IF <A><>, >> .%SBCM==1 > .%SBCM==1  N.@ f^A IFNDE f0F ..BSIZ, g IFNB <B>,<..STR g00 (..SET,<C>,B, gPA)> IFB <B gp>,<..STR0 (..SET, h<C>,FWMASK,A)> ,FWMASK,A)> O$@ ww@ .XCREF w(a, b a==. wHXWD b-1,b-1 DwhEFINE $ETAB <.XCRxEF a, b b==.-a>b b== O%| (` IF1, S..A::! $ HCALL .STOP LST hOF. JUMP [XWD 'A',[ITEXT (<B> ()] EXP %%.MOD] LSTON. MOD O,(v THu. .XCREF Th.$RESET, .$BUILD U .$RESET $NEXTU( (A) $TYPE (.CUHMINI) $SBCM (BUh) IRP C,<C> .$BUILD,<C> O= Aht .XCREF B.$RESET, .$BUILD B( .$RESET $TYPEBH (.CMSWI) $PDATBhA (A) $NEXT (0C) IRP B,<B> .$BUILD,<B> O= @t  .XCREF @(.$RESET, .$BUILD @H .$RESET $TYPE@h (.CMSWI) $PDATAA (B) $NEXT (A(A) IRP C,<C> .$BUILD,<C> R @ b(v .XCREF bH.$RESET, .$BUILD bh .$RESET $TYPEc (.CMTAD) $PDATc(A () $NEXT (A) ch IRP B,<B> .$BUILD,<B> .$ R/  h` $CALL T %TEXT LSTOF. XC (REF JUMP [XWD 2 H,0 EVL (A) h ITEXT(<B>)] LSTON.B>)] RMY  `Hv .XCREF `h.$RESET, .$BUILD a .$RESET $TYPEa( (.CMTAD) $PDATaHA (CM%ITM) $NEXahT (A) IRP B,<B> .$BUILD,< R}97 qhw .XCREF r.$RESET, .$BUILD r( .$RESET $TYPErH (.CMTOK) $PDATrhA () $NEXT s((A) IRP C,<C> .$BUILD,<C S ha" ..TX xA(.TQA,C,D,E, B) IFN . H.TXEF,< ..TE (RR<$TQ(A,B,C,D,E)>> C, S@I9 -Xc LSTOF. -x X(UQU,Unknown q .ualifier) X(IQU .8,Invalid qualifie .Xr) X(IJA,Invali .xd justification a /rgument) X(IWA, /8Invalid width arg /Xument) X(PEA,Pr /xemature end of ar 0gument) X(JNA,J 08ustification is n 0Xot allowed) X(A 0xNA,Arguments are 1not allowed) X( 18ADS,Address must 1Xbe specified) LSTON. ied) L SN  p,.XCREF .%T YPE, .$TYP DE@FINE .$TYP <A> .%TYPE==1> W= iv\ .XCREF i(.$RESET, .$BUILD iH .$RESET $TYPEih (.CMUQS) $HELPj (<>) $NEXT (Aj() $PDATA (B) jHIFIDN <C> <>,< IjhRP D,<D> .$kBUILD> IFDIF <Ck(> <>,< $HELP (kHC) IRP D,<D> .$BUILD><D> W\@ QHu .XCREF Qh.$RESET, .$BUILD R .$RESET $TYPER( (.CMUSR) $NEXTRH (A) IRP B,<B> .$BUILD,< ^+@ v_B IFE %%.O v(TS,)>> I w(FN %%.OTS,)>> $WARN <A> _$r m8f} IFB < mXA>,<.WFACD==0 mx IFN <0-2>,<.$WAC nD==0>> IFNB < n8A>,<.WFACD==-1 nX IFN <0-2>,<.$WA nxCD==.$WACD!<A>> o IFE <0-2>,B8+[ITEXT (<A>)]>> > < _$u b8f% IFB < bXA>,<.WFACK==0 bx IFN <0-2>,<.$WAC cK==0>> IFNB < c8A>,<.WFACK==-1 cX IFN <0-2>,<.$WA cxCK==.$WACK!<A>> d IFE <0-2>,B8+[ITEXT (<A>)]>> > < _$+ Tg; IFE <.W T8FMTY>, DEFINE . UEAWTO(SUFFIX,ARGC U8OD),< IFN .WF'SU UXFFIX',< IFE ,<B8+ .$W'SUFF V8IX'> IFE ,<B8+ [EXP .$W'SU vXFFIX']> IFE ,<.$W'SUFF wIX'> > > ALLW w8TO EXP 0  EXP 0 _$k ef; IFB < e8A>,<.WFFLG==0 eX IFN <1-2>,<.$WFL exG==0>> IFNB < fA>,<.WFFLG==-1 f8 IFN <1-2>,<.$WF fXLG==.$WFLG!<A>> fx IFE <1-2>,B8+[ITEXT (<A>)]>> > < _%(W jXfg IFB < jxA>,<.WFJBN==0 k IFN <0-2>,<.$WJB k8N==0>> IFNB < kXA>,<.WFJBN==-1 kx IFN <0-2>,<.$WJ lBN==.$WJBN!<A>> l8 IFE <0-2>,B8+[ITEXT (<A>)]>> > < _%YV rxg) IFB < sA>,<.WFMFL==0 s8 IFN <1-2>,<.$WMF sXL==0>> IFNB < sxA>,<.WFMFL==-1 t IFN <1-2>,<.$WM t8FL==.$WMFL!<A>> tX IFE <1-2>,B8+[ITEXT (<A>)]>> > < _%] W8eM IFB < WXA>,<.WFMTY==0 Wx IFN <0-2>,<.$WMT XY==0>> IFNB < X8A>,<.WFMTY==-1 XX IFN <0-2>,<.$WM XxTY==.$WMTY!<A>> Y IFE <0-2>,B8+[ITEXT (<A>)]>> > < _%kr gxfQ IFB < hA>,<.WFNOD==0 h8 IFN <0-2>,<.$WNO hXD==0>> IFNB < hxA>,<.WFNOD==-1 i IFN <0-2>,<.$WN i8OD==.$WNOD!<A>> iX IFE <0-2>,B8+[ITEXT (<A>)]>> > < _%p wxgA.WTOX.(.OM xWTO,<A>,<B>,<C>,,<D>)B>,<C _%xU _Xf IFB < _xA>,<.WFOBJ==0 ` IFN <0-2>,<.$WOB `8J==0>> IFNB < `XA>,<.WFOBJ==-1 `x IFN <0-2>,<.$WO aBJ==.$WOBJ!<A>> a8 IFE <0-2>,B8+[ITEXT (<A>)]>> > < _%xr pg IFB < p8A>,<.WFOCD==0 pX IFN <0-2>,<.$WOC pxD==0>> IFNB < qA>,<.WFOCD==-1 q8 IFN <0-2>,<.$WO qXCD==.$WOCD!<A>> qx IFE <0-2>,B8+[ITEXT (<A>)]>> > < _%z@ z8gW.WTOX.(.OM zXWTO,<A>,<B>,<C zx>,,<$WTFLG(WT.JOB),D>)LG(WT.JOB _%|@ xXgG .WTOX.(.OM xxWTR,<A>,<B>,<C>,<D>,<E>)<C _&,z Wg- DEFINE Vx.EAWTO(SUFFIX),<$ uXWT'SUFFIX' <>> ALLWTO  _&N \xey IFB < ]A>,<.WFTXT==0 ]8 IFN <2-2>,<.$WTX ]XT==0>> IFNB < ]xA>,<.WFTXT==-1 ^ IFN <2-2>,<.$WT ^8XT==.$WTXT!<A>> ^X IFE <2-2>,B8+[ITEXT (<A>)]>> > < _&N8 Zec IFB < Z8A>,<.WFTYP==0 ZX IFN <2-2>,<.$WTY ZxP==0>> IFNB < [A>,<.WFTYP==-1 [8 IFN <2-2>,<.$WT [XYP==.$WTYP!<A>> [x IFE <2-2>,B8+[ITEXT (<A>)]>> > < t{P  u[rQ ]>t2 u}P ,MP * V=P  . P .JP  .bP  /P  B&@P cGP )0 qX0oM$uX|Z6 "hs  .X#CREF a, b, c, #(d .XCREF .%T#HYPE, .%FLGS, .%DA#hTA, .%HLPM, .%DEF$M, .%LST .XCREF$( .$TYP, .$FLGS, .$H$DATA, .$HLPM, .$$hDEFM, .$LST .%XCREF .%BREA, .%N%(XT, .%ERTN, .%RTN%H, .%DEFR, .%SBCM %h .XCREF .$BREA, &.$NXT, .$ERTN, .$&(RTN, .$DEFR, .$SB&HCM d==!.$F'LGS!<.$LST> '(IFN <.%BREA>,<d='H=d!CM%BRK> 'hIFG <.%HLPM>,<d=(=d!CM%HPP!CM%SDH((> IFL (H<.%HLPM>,<d==d!(hCM%HPP> ) IFN <.%DEFM>,)(<d==d!CM%DPP> )H c:! ! ;PD*(B, FDB EXP d *H EXP .$DATA *h IFN <.%HLPM!.%D+EFM!.%BREA>,< E+(XP .$HLPM> IF+HN <.%DEFM!.%BREA>+h,< EXP .$DEFM> , IFN <.%BREA>,,(< EXP .$BREA> ,H a==.-c ,h IFN <.%NXT!.%-DEFR!.%RTN!.%ERTN-(!.%SBCM>,< EXP -H.$NXT > IFN <-h.%DEFR!.%RTN!.%ER.TN!.%SBCM>,< EX.(P .$RTN > IFN.H <.%DEFR!.%ERTN!..h%SBCM>,< EXP .$/ERTN> IFN <.%/(DEFR!.%SBCM>,< /HEXP .$DEFR> I/hFN <.%SBCM>,< E0XP .$SBCM> 0( b==.-c I0HF2,< PURGE .%TY0hPE, .%FLGS, .%DAT1A, .%HLPM, .%DEFM1(, .%LST PURGE .1H$TYP, .$FLGS, .$D1hATA, .$HLPM, .$DE2FM, .$LST PUR2(GE .%BREA, .%NXT,2H .%ERTN, .%RTN, .2h%DEFR, .%SBCM P3URGE .$BREA, .$NX3(T, .$ERTN, .$RTN,3H .$DEFR, .$SBCM 3h PURGE a, b, 4c, d > LIST, d > LIST$YV qPPOINT 7,[ASCIZ\0\]NT 7,[A$YY q\0 M$vp.- qV0oM$uH25Iy qL0M$tMf= qR0+1M$u }w  qT0M$uW\r Hr .XCREF h SALL XLIST DEFINE .$TYP <0> ( .%TYPE==0 DEFHINE .$FLGS <0> h.%FLGS==0 DEFINE .$DATA <0> .%(DATA==0 DEFINE H.$HLPM <> .%HLPhM==0 DEFINE .$DEFM <0> .%DEFM=(=0 DEFINE .$LSTH <0> .%LST==0 h DEFINE .$BREA <0 > .%BREA==0 D (EFINE .$NXT <0>  H .%NXT==0 DEFIN hE .$ERTN <0> .%!ERTN==0 DEFINE !(.$RTN <0> .%RTN!H==0 DEFINE .$DE!hFR <0> .%DEFR=="0 DEFINE .$SBCM"( <0> .%SBCM==0 .CREF CM==0 K@ qZ0M$u]' ~0T 1,O)0P $YVP $YYP .-P 5IyP f=P w P K@P 'P :0 VpUc ..AS W1==-<B> IFDEF W0 .PSECT,< .IFN WP..AS1,ABSOLUTE,< Wp C A,[-.. XAS1]> .IF ..AS X01,ABSOLUTE,< . XP.AS2==0 IFE Xp<..AS1&^O777777B1 Y7>,< ..AS2==1 Y0 DI A,..A YPS1> IFE ..AS2 Yp,< ..OP(A, ZB,C)> PURGE Z0..AS1,..AS2>> I ZPFNDEF .PSECT,< Zp ..AS2==0 IF [E <..AS1&^O777777 [0B17>,< ..AS2== [P1 DI A,. [p.AS1> IFE ..A \S2,< ..OP \0(A,B,C)> PURGE ..AS1,..AS2>:h Wa AD;Z: IpU ..CX1 J==C IFDEF .PSE J0CT,< .IFN ..CX JP1,ABSOLUTE,< Jp CAMA B,[C] K> .IF ..CX1,ABS K0OLUTE,< ..CX2 KP==0 IFE <..C KpX1&^O777777B17>,< L ..CX2==1 L0 CAIA B,C> LP IFE ..CX2,< Pp CAMA B,[ QC]> PURGE ..CX1 Q0,..CX2>> IFNDEF QP .PSECT,< ..CX Qp2==0 IFE <.. RCX1&^O777777B17>, R0< ..CX2==1 RP CAIA B,C> Rp IFE ..CX2,< S CAMA B,[ S0C]> PURGE ..CX1,..CX2>GE ..CX:&@ Fp\C ..TSIZ G(..PST,C) .CAS G0E ..PST,<< MOV GPEM A,B>,< HR GpRM A,B>,< HR HLM A,B>,< DP H0B A,[POINTR (B,C)]>>INTR (B,:<;Y PYi DEFIN pE ..CNS2 (NEW,OLD )< OLD> ..CNS ()> :L;Y 0Ya DEFIN PE ..CNS (%%%)< p..CNS2 <%%%>,>  DEFINE ..CNS2 0 (NEW,OLD)< DEF PINE ..CNS (%%%)< p ..CNS2 <%%%>, >> OLD'NEW>>> :dH@ CP\) ..TSIZ Cp(..PST,C) .CAS DE ..PST,<< MOV D0E A,B>,< HRR DPZ A,B>,< HLR DpZ A,B>,< LDB E A,[POINTR (B,C)]>>INTR (B,:}i1 PX A==<<< p-<B>>&<B>>&<1B<^L<B>>>>>&<1B<:~ \pV ..OP1 ]==B IFDEF .PSE ]0CT,< .IFN ..OP ]P1,ABSOLUTE,< ]p C A,[..OP1] ^> .IF ..OP1,ABS ^0OLUTE,< ..OP2 ^P==0 IFE <..O ^pP1&^O777777B17>,< _ ..OP2==1 _0 CI A,..OP1> _P IFE ..OP2,< _p C A,[..O `P1]> PURGE ..OP `01,..OP2>> IFNDE `PF .PSECT,< ..O `pP2==0 IFE <. a.OP1&^O777777B17> a0,< ..OP2==1 aP CI A,..OP1 ap> IFE ..OP2,< b C A,[. b0.OP1]> PURGE ..OP1,..OP2>GE ..;m ,8bi ..PST== ,XC-FWMASK .IF0 ,x..PST,< POINT -0,B,35>,< POINTR (B,C)>POI;| A0\ POP P, AP.NVA PURGE .N ApVA .NVR==.NVR-1 .NVR==.NVR;\t @0\ PUSH P @P,A DEFINE .NV @pB<A> .NVR==.NVR+1 .NVR==.;] hP^Q IFGE hp<<<B>&777777>-.. iBSIZ>,< PRINTX i0 ?WORD offset gre iPater than $BUILD ipsize parameter> j SET0. (\<B>,C,<A>) B>,;LH XQ IFNDEF 0C,,D,FWMASK )> IFDEF C,< 0 IFNDEF %C,< P A (<B>,D,C) p> IFDEF %C,<  %C (A,<B>,D,C)>>A,<B>,;LH PY ..NS==0 p IRP C,<..N S=..NS+1> IFE 0..NS, IFE ..NS- 1,< ..STR0 0(A,<B>,<C>,D) P> IFG ..NS-1,< p ..ICNS . .CNS (<E (A,<B 0>,,>) IRP C,< P IFNDEF C, p IFDEF 0C,< IFNDEF % PC,< ..CNS (< p,C,D>)> IF DEF %C,< %C 0 (..STR2,,D,C)> P ..CNS (<)>) p ..GCNS  ..ICNS . 0.CNS (<E (A,<B P>>) IFNDEF % pC,< ..CNS (< ,C,D>)> IF 0DEF %C,< %C P (..STR2,,D,C)> p>> ..CNS (<,,)>) ..GCNS>);LI 0Y ..CNS (<,C,B>).CNS (;LI pY) IFDIF < D><F>,< IFN 0B <D>,< A P (<B>,D,..MSK) p IFNB <F>, > ..MS pK==0> IFNB < F>,< ..MSK=..MSK!<E>>MSK=..;LJ PY9 IFDIF < pD><F>,< IF NB <D>,<  0A (<B>,D,..MSK) P> ..MSK==0> p IFNB <F>,<  ..MSK=..MSK!<E>>MSK=..MSK!<;LJ PYO IFDIF < pD><F>,< IF NB <D>,< I 0FNB <F>,<  PA1 (B,D,..MSK)> p IFB <F>, < A2 (B,D 0,..MSK)>> .. PMSK==0> IFNB p<F>,< ..MSK=..MSK!<E>>MSK=;$\Y 38c' IF1,< 2x PRINTX ? Err 3or in "A" D 3hEFINE X(NAM,ERR) 48 4x> $TX$ERR>  $TX$ERR> ;$^ 6Xc] .. 6xTXF==0 . 7.TXB==0 78..TXP==0 7X ..TXEG==<..TXEF= 7x=0> IRPC 8A,< ..TXC= 88=ASCII\A\_-35 8X IFN ..TXB,) IFE 98..TXB-..TXC,..TXB 9X==0> IFE ..TXB, 9x<..TXQ(<A>,\..TX :F)>> ..TXC1 :8 IFN ..T :XXB,,<..TXER(PEA)>> ; ..TXEF==..T ;8XEF!..TXEG ;X IFN ..TXEF,<..TERR<A>> ,<..TE;&( HaL..TXA(.TQCH0)..TXA(.TQC;&) XaU..TXER(IQU)..TXER(IQU;&) aP..TXER(IQU)..TXER(IQU;&0 aH..TXA(.TQCHA)..TXA(.TQC;&5 Ha<..TXC0(\".CHLFD).TXC0(\".;&5 HaD..TXC0(\".CHVTB).TXC0(\".;&6 a@..TXC0(\".CHFFD).TXC0(\".;&6 a8..TXC0(\".CHCRT).TXC0(\".;&@ P] ..TSIZ P0(..PST,C) .CA PPSE ..PST,<< SE PpTZM B>,< HLL QZS B>,< HRRZ Q0S B>,< ..TS QPAC (..ACT,B) Qp .IF0 ..ACT,< R $CALL .ZERO R0LSTOF. JUMP [P RPOINTR(B,C)] RpLSTON.>,< ..TX (Z,B,C)>>>TX;&81 ~X  IFNDEF ~0.PSECT,< A==0 ~P ..TSA1== IFE ..TS A1&^O777777777760 0,<A==1> > I PFDEF .PSECT,<  pA==0 ..TSA1= = .IF . 0.TSA1,ABSOLUTE,< P IFE ..TSA1&^ pO777777777760,<A ==1>> PURGE ..TSA1> PURGE ..;&:= |PWm A==3 |p IFE <B>+1,< }A=0> IFE <B>- }0^O777777,<A==1> }P IFE <B>-^O777777B17,<A==2>7;' bpW% ..TX1 c==C IFDEF .P c0SECT,< .IFN . cP.TX1,ABSOLUTE,< cp TDA B,[C]> d0 .IF ..TX1,ABSOL dUTE,< ..TX2== dP0 IFE <..TX1& dp^O777777B17>,< e ..TX2==1 e0TRA B,..TX1> ePIFE ..TX2,< I epFE <..TX1&^O77777 f7>,< ..TX2==1 f0 TLA B,(. fP.TX1)>> IFE ..T fpX2,< IFE << g..TX1>B53-^O77777 o07>,< ..TX3 oP (A,B)>> IFE op ..TX2,< TD pA B,[..TX1]> p0 PURGE ..TX1,..TX pP2>> IFNDEF .PSEC ppT,< ..TX2==0 q IFE <..TX1&^O77 q07777B17>,< .. qPTX2==1 TRA qp B,..TX1> IFE r..TX2,< IFE < r0..TX1&^O777777>,< rP ..TX2==1 rp TLA B,(..TX1 s)>> IFE ..TX2,< s0 IFE <<..TX sP1>B53-^O777777>,< sp ..TX3 (A t,B)>> IFE ..T t0X2,< TDA  tPB,[..TX1]> PURGE ..TX1,..TX2>;'` uW; IFIDN < u0A>,< .. uPTX2==1 ANDI  upB,^-..TX1> IFI vDN <A>,< v0 ..TX2==1 OR vPCMI B,^-..TX1> vp IFIDN <A>,< w ..TX2==1 w0 EQVI B,^-..TX1>QVI B,^-..TX;'  xbS ..TXE F==0 IFNDEF 8 A,<..TXER(UQU)> X IFDIF <B><>, x,NUMERIC,..TXER 8(IWA)>> IFNB <C X>,> IFDEF A,< IF 8E <A_-^D18>,<> x,<..TXER(ANA)>>  IFE <1-<A_-^D1 88>>,<>,<..TXER(JNA) x>> IFE <2-<A_ !-^D18>>,<>,<..TXER(AD !XS)>>> IF !xE ..TXEF,< IFID "N <B><>,<..TXWD= "8=<..TXJU==<..TXFC "X==0>>> IFDIF < "xB><>,< IFE <^ #D<B>>,<..TXWD==< #8..TXJU==<..TXFC== #X0>>> IFN <^D< #xB>>,<..TXWD==^D< $B> IFNB < $8C>,<..TXJU==.TXTJ $XC> IFB < $xC>,<..TXJU==.TXTJ %L IFE <A %8-.TQOCT>,<..TXJU= %X=.TXTJR> %xIFE <A-.TQDEC>,< &..TXJU==.TXTJR>> &8 IFB <D>,< &X..TXFC==" "> &x IFNB <D>,<..TX 'FC=="D">>> I '8FB <EF>,<..TXP 'XT==0> IFNB <E 'xF>,<..TXPT==1> (IFE <..TXWD+..TXP (8T>,< EXP FL (XD(A,TXT.FN)> I (xFN <..TXWD+..TXPT )>,< EXP FLD )8(A,TXT.FN)+FLD(. )X.TXJU,TXT.JU)+FLD )x(..TXWD,TXT.WD)+F *LD(..TXFC,TXT.FC) *8+TXT.AD PNTR(E,F)>> T;'h M8dw IFE MX..TXP,< ..IC MxNS ..CNS ..TXP==1 N8> ..CNS<A NX> ..TXF== Nx0 ..TXB=="^" ..TXB==;'h O8e IF OXN ..TXP,< .. OxCNS<\> EXP > ..TXP==0> ;' 9 58c1 ..TX 5XEF==..TXEF!..XA 5x ..TXF==0 6 ..TXB=="^" ..TXB=="^;'  <ca..TXQB(<A>)..TXQB(<;' ( )> =8IFE ..TXC-"^",<..TXF==1>-"^",<..;' ( =xd  IF >E ..TXC-"^",<..TX >8C0(<A>)> I >XFN ..TXF,< . >x.TXF==0 IFDEF ? .TQCHA,< ?8 IFDEF ..TQMA,. ?X.TQMA IFN ?x <.TQCHA_-^D18>, @<..TXF==2>>> @8 IFE ..TXF-2,<..T @XXC1(<A>) ..IC @xNS ..CNS<..T AXA(.TQCHA,>> A8 ..TXEG==..TXEG!..TXEF==..TXEG;' ) Axd ..TX BF==3 IFG B8E ..TXC-"0",IFLE BX..TXC-"9",<..TXF= Bx=2> IFE ..TX CF-2,<..CNS(A)> C8 IFE ..TXF-3 CX,<..CNS<,> ..TXQ3(A)> ;' ) Dd1 ..TX D8F==4 IFE DX ..TXC-"/",<..TXF Dx==5> IFE . E.TXC-"[",<..TXF== E85> IFE ..T EXXF-4,<..CNS<A,>> Ex IFE ..TXF F-5,<..CNS<,,> ..TXQ5(A)> ;' * FXdG ..TX FxF==4 IFE G ..TXC-"/",..TXF= G8=5 IFE ..T GXXC-"[",..TXF==5 Gx IFE ..TXF-5 H,<..CNS<,> H8..TXQ5<A>> HX IFE ..TXF-4,<.. HxCNS<A,> ..TXF==5> ..;' * I8dY ..TX IXF==6 IFE Ix ..TXC-"/",..TXB= J="/" IFE . J8.TXC-"[",..TXB==" JX]" IFE ..TXB Jx-"]",..CNS<[> K IFE ..TXB,..TXF==5 ..TXB,..T;' + KXdg ..TX KxF==0 IFE L..TXC-"]",..CNS<] L8> ..CNS<)> LX ..GCNS Lx ..TXEG==..TXEG!..TXEF==..T;DQ @;DPQ ;EPQ ;E:Q ;EpQ ;E+PQ ;F 0Q ;F\:Q @ 0P  @P  PP  `P d  ,pZg .ACV2 (A) .ACV2 (d@ -0Zq A=.FPA -PC+..NAC IFB < -pB>,<..NAC=..NAC+ .1> IFNB <B>,<..NAC=..NAC+B>.d` .PZ IFG A- .p.NPAC, /0 IFLE A-4,< /P $CALL .SAVEA> /p IFG A-4,< $CALL .SAVE8>   U0]k IFIDN UP <A><.>,< UpXMOVEI .SAC,B V PUSH P,.SAC V0 > IFDIF < VPA><.>,< .IFA VpTM <A>,.BLF4 W .BLF1==0 W0IFN .BLF4,< WP .IF %A,MACRO, Wp< .BLF1==1> X > IFNB < X0B>,< .BLF1==1> XP IFN .BLF1,< Xp LOAD .SA YC,A,B PUS Y0H P,.SAC > YP IFE .BLF1,< ;I YpF WASN'T A STRUCT ZURE REF, IF Z0N .BLF4,< ZP .BLF2==<& Zp17B17>-

B17 [ .IF .BLF2,A [0BSOLUTE,< [P IFE .BLF2,< [p .BLF1==1 \ .BLF3 \0==&777777 \P PUSH P,.BLF3-.. \pNA(P)>>>> IF ]E .BLF1,< PU ]0SH P,A>> ..NA=..NA+1 ..   Tp]' .BCAL1 A .BCAL1  | l@Nf XLIST l` .ORG 0 LIST .ORG 0 LIST  =Z b0^$CALL I%INTA$CALL I%IN9  zPW_ ..CSN== zpA ..CSC==0 I {RP B,< IFE ..C {0SN-..CSC,< ST {POPI ..CAS1 ( {pB)> ..CSC==..CSC+1>..CSC==..CSD P ?DP >D)6P D,xP D8YP D8sP D;PP D;QP D;QP D;RP D;RP D;SP D;WP D;WP D;XP D;XP D;YP D;YP D;ZP D;ZP D;[P D;[P D;\P D;\P D;]P D,< $CALL .SO NS LSTOF. J N0UMP [POINTR(B,C)] LSTON.>C} S8g1 .OPCD== v.OPCD+1 WO.A==.OPCD G),< | mhNv XLIST n .....X=. .ORG n( .ORG 0 REPEAT nH .....X, nh PURGE .....X .ORG LIST  .v=H $0Z% IRP A, $P< .ENSV2 (A)> .ENSV2 (A)v=I %Z) .ENSV3 (A) .ENSV3 v=I %PZ- DEFINE A<....U>EFINE [Zp $^p $j6p $lWP %I7p %KqP %h6p %h:P %i:P %lzp &:p & p &=p LrP LzP L{P L:P L+P L,}P L IFN ..IFT,< C>N ..IFT,<&4 ]p^ IRPC A ^,< B==0 IFGE ^0 "A"-"A",> ^p IFGE "A"-"0",< _IFLE "A"-"9",<B _0=1>> IFE "A"-" _P%",<B=1> IFE " _pA"-"$",<B=1> `IFE "A"-".",<B= `01> IFE B,>IFE B,,< $CALL .AO KS LSTOF. J K0UMP [POINTR(B,C)] LSTON.>C&tj7Q ?';VP '<P '<P '<P '<P '<P '<P '<P '<P '<P '<P '<P '<P '<P '<P '<P *IA *I*|A *|6MiTQ @7;rp 7H:p 7kp 7N8p ;`P ;-J7P#~>)qp >5H3p >DLYp ?EHP $?LxP "?(WP !?+ZP %?krP #?xUP ?)0P "?)8P #?98P !?J6P $?N8P ?$(:P ?$*7P ?$9P ?$HVP ?$]ZP ?$h6P ?$htP ?$mP ?%VP ?%+qP ?%LP ?%XB<^D70-POS(B)>B<^D70N 0P O |Xoa SYSPRM |8A,B,C IFG  |A-MX.PID, ,<..STKN==..STKN !0+1> IFNB <B>,< !P..STKN==..STKN+B !p> ..STKQ==..STK "N+1 .STKV3 (A,\..STKQ)V3 (A,O%=I "PZ IFDEF "p A,<.IF A,SYMBO #L,> DEFINE A<- #p^OB(P)> $A==<Z A>> $A==<RJP RJP RJ P RJ P RJJP RJP RJ P RJ$HP RJ%P RJ4HP RJ4`P RJ4hP RJ5P RJ5 P RLH:P RLkQP RM4(P RMD)P RMDkP RMX6P RMX,<..NV=..NV+1 )P> IFNB <B>,<..NV=..NV+B>,<..Sd` *Z[ IFDEF *0 A,<.IF A,SYMBO *PL,> DEFINE A<^O +0B(.FP)> $A==<Z A>> $A==<S"P S"P S" P S" P S"JP S"P S" P S"$HP S"%P S"4HP S"4`P S"4hP S"5P S"5 P S%4(P S%D)P S%DkP S&d P S&e(P S&e)P S&eHP SFH2P SFIVP SFJQP SFJVP SFJYP _%~ |xh $CALL }I%WTO LSTOF. }8 JRST g }X $WTRST IF }xNB <A>,<$WTMTY ( ~<A>)> IFNB < ~8B>,<$WTTYP (<B>) ~X> IFNB <C>,<$ ~xWTTXT (<C>)> IFNB <D>,<$WTOBJ 8 (<D>)> IFNB X<E>,<$WTACK (<E x>)> IRP F,< F> $WTBLD 8 g:! LSTON. g:! LSTON. kPP >}{woP