x,Uc@P C4@ ( ..NAC==00 IRP A, p .ACV3 (\..NAC) DEFINE ENDAV.<.ENAV1 <A>>V.@#t ..TAGF (,) C:$s@ ?@#| ..TAGF (,)C:$y' @$ ..TAGF (,) C:%C@ A$ ..TAGF (,)C:%I' @@$ ..TAGF (,) C:%c@ ?#x ..TAGF (,) C:&' B@$ ..TAGF B`(,,>,)N <A>,,>,C:&G C $ ..TAGF C@(,,>,)E <A>,,>,C:' 2H TXZ A,<^->TXZ A,C:' ' A@$ ..TAGF (,)C:'G B$ ..TAGF (,)C:u)' =#h ..TAGF (ERJMP,)..TAGF C:v:g <@#d TRNA ..TAGF (JRST,) C;< <#` ..TAGF (JRST,) ..TAGF CO,,@ { 'n ..TRR=={@10 RADIX 8 {`..NV==1 IRP |A,< .TRV1 (| A)> IFG ..NV-|@5,} JSP .A16,.ASSE} T RADIX ..TRR}@ DEFINE ENDAS}`.<.ENSV1 <A>> .ENSV1 <A>> E>= H ~ IFN FTSHOW,..LOC==. DEFINE WORD(NAM,@NUMB<1>),< IFN `<..MSK>,<..OFF==..OFF+1> ..MS K==0 FIELDM(N@AM,<.FWORD>) ` ..MSK==0 ..OFF==..OFF+NUMB > DEFINE NXT@WRD(NUMB<1>),< `..MSK==0 ..OFF=..OFF+NUMB > DEFINE FILLER(N@UM),< ..FLG==PO`S(..MSK) IFE ..MSK,<..FLG==-1> IFG <^D-<^D@35-..FLG>>, ...MSK==MASK.(^D@,<..FLG+^D>) IFN FTSHOW,< PHASE ..O FF EXP ...MSK@ > ..MSK==..M`SK!...MSK > DEFINE HWORD(n am),< ..FLG==0 @ IFE ..MSK&.LH`ALF, IFE ..FLG@,<..MSK==..MSK!.L`HALF IFE ..MSK&.RHALF, ` IFE ..FLG,<NXTWRD FIELDM(nam,.LHALF@) > > > ` DEFINE FIELD(NAM,SIZ,POS),< .. FLG==0 IFB @,,`< ...MSK==.RTMSK(<<^-<<..MSK>> >>) IFE ...M@SK,<..OFF==..OFF+`1 ..MSK==0 ...MSK== -1 > FIEL@DM(NAM,<...MSK>) ` ..FLG==-1 >> IFNB ,<.SIZ==^D@> IFNB `,< FIELDM(NAM,MASK.(.SIZ,POS )) ..FLG==-1@ ..BITS==MA`SK.(.SIZ,POS) > IFE ..FLG,< IFGE <^D<.SIZ>-^D @36>,< WORD(N `AM,<^D<.SIZ>/^D36!>) IFN <<^D-<^D<.SIZ>/^!@D36>*^D36>>,< !` FIELD(...,<<^"D<.SIZ>-<^D<.SIZ>" /^D36>*^D36>>) "@ > ..FLG="`=-1 >> IF#E ..FLG,< .# .BITS==MASK.(^D<.#@SIZ>,<^D<.SIZ>-1>#`) REPEAT <$^D36-^D<.SIZ>+1>,$ < IFE ..FL$@G,< IFE $`<..BITS&..MSK>,< % ..MSK==..MSK% !..BITS ..FLG%@==-1 > %` IFE ..FL&G,..BITS==..BITS_& <-1> > &@ > IFE ..FLG,&`< ..BITS==M'ASK.(^D<.SIZ>,<^D' <.SIZ>-1>) .'@.OFF==..OFF+1 '` ..MSK==..BITS ( > MSKSTR(( A'NAM,\..OFFC,..(@BITS) A.'NAM=(`=..OFF IFN FTSH)OW,< PHASE A) .'NAM EXP A')@NAM >> ..OL)`D==..BITS ...*OLD==..BITS * > DEFINE BIT(N*@AM),< ..BITS==L*`FTBT.(..OLD) + IFE ..BITS,+` A%'NAM==..B,ITS_<-<^D35-POS(., ..OLD)>> A.'N,@AM==..OFF M,`SKSTR(A'NAM,\..O-FFC,..BITS) I- FN FTSHOW,< P-@HASE ..OFF EX-`P A'NAM > ...OLD==..OLD&<^-<. ..BITS>> > .@ DEFINE FIELDM(NA.`M,MASK),< IFN M/ASK&..MSK,< / ..MSK==0 ../@OFF==..OFF+1 > /` ..MSK==..MSK!0MASK MSKSTR(0 A'NAM,\..OFFC,M0@ASK) A.'NAM==0`..OFF IFN FTSHO1W,< PHASE A.1 'NAM EXP A'N1@AM > > DEFI1`NE ENDSTR(LENNAM<2LEN>,LSTNAM)2 ,< IFN ..MSK,2@<..OFF==..OFF+1> 2` A.'LSTNAM==3..OFF IFN FT3 SHOW,DEPHASE 3@..LOK==..LOK+1 3`IFN ..LOK, IF2,< I4@FDEF ...MSK, 5IFDEF ..BITS, 5@ IFDEF .SIZ, IF6DEF ..MSK, IFD6@EF ..OFF, IFDE7F ..FLG, IFDEF7@ ..LOK, IFDEF 8..LOC, IFDEF .8@.OLD, IFDEF ..9.OLD, > IF19@,< IFDEF ...M9`SK,<.XCREF ...MSK:> IFDEF ..BIT: S,<.XCREF ..BITS>:@ IFDEF .SIZ,<:`.XCREF .SIZ> ;IFDEF ..MSK,<.XCR; EF ..MSK> IFD;@EF ..FLG,<.XCREF ;`..FLG> IFDEF <..OFF,<.XCREF ..O< FF> IFDEF ..L<@OK,<.XCREF ..LOK><` IFDEF ..LOC,=<.XCREF ..LOC> = IFDEF ..OLD,<.X=@CREF ..OLD> I=`FDEF ...OLD,<.XCR>EF ...OLD> > > PURGE WORD,NXTW>@RD,FILLER,HWORD,F>`IELD,BIT,FIELDM ? A.'LENNAM==..? OFF-B IFN FTSH?@OW,>?` ..MSK==0@ ..OFF==B @ A.D==B @@IFDEF ..LOK,> ..LOK==-1 ..L/qv0/>BEG E2 ,@*l ..NA==0,` IRP B,< - .BLCL2 B> - PUSH P,[..NA+1,,.-@.NA+1] PUSHJ P,A SHJ PE2|:g ` V ..SVBK XMOVEI .A16, a PUSH P,.A16 @ DEFINE ENDBK. ` < RET a:! .POPX>:!E3XG '*T ..TRR=' =10 RADIX 8 '@ ..NA==2 '`IRP A,< ..NA(=..NA+1> IRP ( A,< .BLSU1((@A,\..NA) ..N(`A=..NA-1> ..NV=)=1 IRP B,< ) .TRV1 (B)> )@ DEFINE ENDBS.)` <.ENBS1 <A> *.ENSV1 > J* SP .A16,.ENTER *@..NV-1,,..NV-1 RADIX ..TRR1 EJMj' [(%c` W0.==A [p W1.==B ;INIT\IALIZE BREAK MASK\0 W2.==C W3.==D ==C W3.==0%P0/B0B,< /D0QAB (/H0 ..SEJZ V%D ..V22==aV( ..V1==a IFNVHB ,<..V22==BVh> REPEAT ..V22-+1,< %%W==.W(.V1/^D32 %%X==WH..V1-%%W*^D32 WhIFE C,BRKC1 \"<%X%W+"0"> IFN CX(,BRKC2 \"<%%W+"0"XH> ..V1==..V1+1 > .V1+1 EJ\4 Y%H WA.==WA.!<1B<%%X>> AEJ\4@ YH%N WA.==WAYh.&<-1-1B<%%X>> &<-1-1B<%%X>> EJ\: TH%& %%FOO==Tha BRK0 (%%FOO,B,0) (%%FOO,EJn:g \p%q BRINI. A],B,C,D IRPC]0 E,< UNBRK. "E"]P> IRPC F,< BR]pKCH. "F"> EXP^ W0.,W1.,W2.,W3. W1.,W2.,W3. Ge@ ,GeLR +G@ U(*OP%%CA (A,B,)OP%%CA (AGD XhFOP%%CA (A,B,A)P%%CA (AGDP Vh6OP%%CA (A,B,E)P%%CA (AGDp W(:OP%%CA (A,B,G)P%%CA (AGDy Wh>OP%%CA (A,B,GE)%%CA (AGE@ Uh.OP%%CA (A,B,L)P%%CA (AGEI V(2OP%%CA (A,B,LE)%%CA (AGE` X(BOP%%CA (A,B,N)P%%CA (AG?Z Hl ASCIZ /h COPYRIGHT (c) D IGITAL EQUIPMENT (CORPORATION A. HALL RIGHTS RESERVED. /TS RESERVI \@f ..STR0 \`(.DECR0,,<A>,)CR0,,<A>,<BI6= ph A==<-1qB<C>+1B<C-D>> q( IF1,> DrEFINE %A (OP,AC,r(Y,MSK)< $A== OP (,B'Y,MSK)>I'7 ]HlOP%%IN (A,B,DIV)%IN (AI DEFINE LOOP. < @ JRST a> `DEFINE TOP. <a> DEFINE ENDLP . DEFIN@E EXIT. < JRST b>T. < JRST IKH1 0* ..TMSK==P..MASK ..TNAC==.p.NAC-1 REPEAT ..NAC,< IFN ..T0MSK,< ..NUM==^LP<..TMSK> ..TMSKp==..TMSK-1B<..NUM > IFE ..TMSK & 01B<..NUM+1>,< PMOVE ..NUM,-..TNA pC(P) ..TNAC==.!.TNAC-1> IFN ..!0TMSK & 1B<..NUM+1!P>,< DMOVE ..NU!pM,-..TNAC(P) .".TNAC==..TNAC-2 "0 ..TMSK==..TMSK-"P1B<..NUM+1>> >>"p IFG ..NAC, JSINh1 0)o IFG ..NAPC,p ..TMSK==..MASK ..TNAC==..NAC-1 0 REPEAT ..NAC, ..TMSK==..TMS0K-1B<..NUM> IFEP ..TMSK & 1B<..NUpM+1>,< MOVEM ..NUM,-..TNAC(P) 0 ..TNAC==..TNAC-P1> IFN ..TMSK &p 1B<..NUM+1>,< DMOVEM ..NUM,-..0TNAC(P) ..TNACP==..TNAC-2 ..TpMSK==..TMSK-1B<..NUM+1>> >> .K,lz s& A==<-1s(B<C>+1B<C-D>> sH IF1,> Dt(EFINE %A (OP,AC,tHY,MSK)< OP (,<@[EP. B'Y]>,MSK)>P. B'Y]>,MK+\Y`p00p004p00$rp00UN.,HK+`p00p004p00$tp00UNEMK3S@ #j....U~.K7> x(DEFINE %A (OP,ACxH,Y,MSK)< OP (,<@[EP. B'Y]>,MSK)>P. B'Y]>,K:$Kg v OD.K:%G #l....U2K@p >, ..I==0 > ..X==0 MAKRM.>@ (..CON,..GET) >`..CON IRPC A,< ? ..SC==0 IFE?@ "A"-"@",<..I==1?` ..SC=1> @IFE "A"-"(",<..C@ ON <,> ..SC=1@@ ..X==1> @`IFE "A"-")",< A IFE ..X, ..SC=1B> IFE ..SC,>>B@ IFE ..X,< B`..CON <,0>> ..CCON < > ..GET > ..GET KCm <+l DEFIN< E ..EP. (LOCN,PTE<@XT) = ..EP.(\.,<A>) =@ PURGE ..EP. URGE ..EP. KJn9` Rh% ERJMP [STMSG JSHLT] A> JKbMi C@,<<A>B1+<C>B5+>B1+<Kc SH% IF2,>>M&. cHOP%%FP (A,B,FADR)FP (AM6. e(OP%%FP (A,B,FDVR)FP (AM2 H<<<A>B)>>&>M2$*g bP&; ..XX==+cB+ IFNBc0 <D>,<..XX=CM%HPcPP!..XX> IFNB cp<E>,<..XX=CM%DPPd!..XX> IFNB ,<..XX=CM%BRK!dP..XX> ..XX dpIFNB <C>,<C> e IFB <C>,<0> e0 IFNB <D>,ep IFB <D>,,<0>> f0 IFB <E>,,<0>> IFNfpB <E>, g0IFNB <F>,<F> <F>,<F> M2$HG ^P& ..XX==<^pFLD(A,CM%FNC)>+_B+<0,,F> IFN_0B <D>,<..XX=CM%H_PPP!..XX> IFNB_p <E>,<..XX=CM%DP`P!..XX> ..XX `0 IFNB <C>,<C> `P IFB <C>,<0> `p IFNB <D>, IFB <D>,,<0>> ap IFNB <E>,7,[ASCIZ \E\]>M7. dH$OP%%FP (A,B,FMPR)FP (AM7p P(% HRROI .PHAC2,[ASCIZ \A\] Ph MOVEI .AC3,0 SOUTI .AC3,0 M?c@ "h DEFINE# e(C)<D> ..FO#(RN==A REPEAT B#H-A+1,< .FORN1 #h(e) ..FORN=..FORN+1>.FORN=..FM?3@ &4 DEFINE&( %MN1 (B)<C> &H..FORN==A .FORN1 (%MN1) .FM?@ $h* DEFINE% d (B)<C> I%(RP A,< .FORX1 d,A> .FORX1 MN. d OP%%FP (A,B,FSBR)FP (AMS{P NF ] -H(<..OWGP (\Y,<A,,C>,\<D>)>A,,C>,\<1#04^O44C==:NJ c@/.X ..ERR.=c`0 .BSIZ.=Bd .BPOS.=D d IFN <<A>&<^O<-d@1,,770000>>>,< d` MPRNTX(G2BPT,Seection greater thak n 12 bits: A) k@ ..ERR.=1 > k` IFN <<C>&<^O<7l77740,,0>>>,< l MPRNTX(G2BPT,Bitl@s 0 - 12 non-zerol` in address fieldm: C) ..ERR.=m 1 > IFN <<m@E>&<-1,,0>>,< m` MPRNTX(G2BPT,Bitns 0-17 non-zero in n optional field:n@ E) ..ERR.=1n` > IFN <.BSoIZ.&<^O<-1,,77770o 0>>>,< MPRNTXo@(G2BPT,Bytesize go`reater than 6 bitps: B) ..ERR.p =1 > IFN <.p@BPOS.&<^O<-1,,777p`700>>>,< MPRNqTX(G2BPT,Byte offq set greater than q@6 bits: D) .q`.ERR.=1 > IrFN ..ERR.,<-1,-1,r -1> IFE ..r@ERR.,< IFDIF r`<D><>,<<!s 1B12>&<^O<777740,s@,-1>>> IFIDN s`<D><>,<<!1B12>&<t ^O<777740,,-1>>> t@ <<<t`C>_<^O14>>&<^O<37u0000,,0>>!<<C>&>!<<A>_<^Ou@22>>> > PURu`GE ..ERR.,.BSIZ.,.BPOS. BSIZ.,1&.0 GENBPON{ G ,b ..ERR.=G@0 IFN <<A>&<G`^O<-1,,770000>>>,H< MPRNTX(GFIWH M,Section greaterH@ than 12 bits: AH`) ..ERR.=1 I > IFN <&>>,<I@ MPRNTX(GFIWMI`,Bits 0 - 12 non-Jzero in address fJ ield: B) ..EJ@RR.=1 > IFNJ` ..ERR.,<-1,-1,-1K> IFE ..K ERR.,< <<K@_<^O14>>&<^O<3700K`00,,0>>!<&<0,L,-1>>!<<A>_<^O22L >>>> PURGE ..ERR. PURGE ..ERSNn ^pOP%%IN (A,B,IDIV)IN (AS)` '@"H JUMPN '`A,b ..SVDF ( DEFINE ..TA( GF (INST,PCT)< (@INST b'PCT> (` DEFINE ..TAGE ()INST,PCT)< INST c'PCT> STS.:g & "8 PRINTX &@% IFESK. should b&`e changed to IFNJ'E. IFNJE. <A>. IFNJE. <A>S9` +@"h JUMPLE +`A,b ..SVDF , DEFINE ..T, AGF (INST,PCT)< ,@ INST b'PCT> ,` DEFINE ..TAGE -(INST,PCT)< INST c'PCT> SS .` DEFINE ..TAGE (/INST,PCT)< INST c'PCT> STSTS@ !` IFB < BC>,< ..SVD@F ERJMPA f` JRST d f:! DEFINE .. TAGF (INST,PCT)< @ INST d'PCT> ` DEFINE ..TAGE (INST,PCT)< IN ST e'PCT> > @ IFNB <BC>,<` ERJMPA d C JRST e d:! B e:!> ST\G @!D IFB <`AB>,< ..SVDF ERJMP e JRST c e:@! DEFINE ..TA`GF (INST,PCT)< INST c'PCT> DEFINE ..TAGE (@INST,PCT)< INST` d'PCT> > IFNB <AB>,< ERJMP c @B JRST d c:! A d:!> c:!SUc@ # ". IFB <#@B>,< ..SVDF #` ERJMPA c $ DEFINE ..TAGF $ (INST,PCT)< INS$@T c'PCT> D$`EFINE ..TAGE (INS%T,PCT)< INST d% 'PCT> > I%@FNB ,< ERJM%`PA c B c:!> c B c:!Sa` 1@# JUMPGE 1`A,b ..SVDF 2 DEFINE ..T2 AGF (INST,PCT)< 2@ INST b'PCT> 2` DEFINE ..TAGE 3(INST,PCT)< INST c'PCT> SSdS@ /@# JUMPG /`A,b ..SVDF 0 DEFINE ..TA0 GF (INST,PCT)< 0@INST b'PCT> 0` DEFINE ..TAGE (1INST,PCT)< INST c'PCT> STSq` )@"X JUMPE )`A,b ..SVDF * DEFINE ..TA* GF (INST,PCT)< *@INST b'PCT> *` DEFINE ..TAGE (+INST,PCT)< INST c'PCT> STSt\g @!j PRINTX `% IFNES. should be changed to IFJE R. IFJER. <A>,FJER. <A>,Su)' @" IFB < `A>,< ..SVDF ! ERJMP b ! DEFINE ..TAGF (I!@NST,PCT)< INST !`b'PCT> DEF"INE ..TAGE (INST," PCT)< INST c'P"@CT> > IFN"`B <A>,< ERJMP b A b:!> Sv:g !( IFB < AB>,< ..SVD@F TRNA `JRST c DEFINE ..TAGF (INST, PCT)< INST c'P@CT> DEFINE `..TAGE (INST,PCT)< INST d'PCT> > IFNB <@AB>,< JRST `c B JRST d c:! A d:!> c:! A d:!>SS@ 7@#J JN <A>7`,,c ..SVD8F DEFINE .8 .TAGF (INST,PCT)<8@ INST c'PCT> 8` DEFINE ..TAG9E (INST,PCT)< I9 NST d'PCT> ST d'PCT> S c@ 9`#\ JE <A>:,,c ..SVD: F DEFINE .:@.TAGF (INST,PCT)<:` INST c'PCT> ; DEFINE ..TAG; E (INST,PCT)< I;@NST d'PCT> ST d'PCT> S< `" IFB <A>,< ..SVDF JRST b @DEFINE ..TAGF (IN`ST,PCT)< INST b'PCT> DEFI NE ..TAGE (INST,P@CT)< INST c'PC`T> > IFNB <A>,< JRST b A b:!> bSDS@ 3@#( JXN A,3`B,c ..SVDF 4 DEFINE ..TA4 GF (INST,PCT)< 4@INST c'PCT> 4` DEFINE ..TAGE (5INST,PCT)< INST d'PCT> STSEc@ 5@#8 JXE A,5`B,c ..SVDF 6 DEFINE ..TA6 GF (INST,PCT)< 6@INST c'PCT> 6` DEFINE ..TAGE (7INST,PCT)< INST d'PCT> STS7-N ]hOP%%IN (A,B,IMUL)IN (AS: Z T ..STR0 Z@(.INCR0,,<A>,)CR0,,<A>,<BS? 2 TXO A, TXO A,Ut@ o` ..STR1 p(..JAN,<d,<C>>,p <A>,,..STR5) d:B>,..STR5)U c@ ..STR1 c`(..JE,<C>,<A>,,..STR3)A>,,<A>,,..STR3)A>,,<A>,,..STR4)A>U:~ s ..STR1 s (..JNO,<d,<C>>,s@<A>,,..STR5) d:B>,..STR5)U? l@f ..STR1 l`(..JN,<C>,<A>,,..STR4)A>, .IGHF ..JX1,ABSOLUTE,Gh< .IF0 <<..JX1>H-1B0>,< JUMPGH(E A,C>,< .IF0HH <<..JX1>+1>,< Hh JUMPE A,C>,>>) JRST C>>>Ub0 Q(& ..JX1==QHB .IFN ..JX1Qh,ABSOLUTE, .IRHF ..JX1,ABSOLUTE,Rh< .IF0 <<..JX1>S-1B0>,< JUMPGES( A,C>,< ..ONESHB (..BT,B) .IShF0 ..BT,< SETTCM .SAC,A T(JXN (.SAC,..JX1,THC)>,< TXNNTh A,..JX1 JRST C>>> Ubp Ihf ..JX1==JB .IFN ..JX1J(,ABSOLUTE, .IKF ..JX1,ABSOLUTE,K(< .IF0 <<..JX1>KH-1B0>,< JUMPLKh A,C>,< .IF0 L<<..JX1>+1>,< L( JUMPN A,C>,< LH TXNE (A,..JXLh1) JRST C>>>) JRST C>>>Ubx M( ..JX1==MHB .IFN ..JX1Mh,ABSOLUTE, .INHF ..JX1,ABSOLUTE,Nh< .IF0 <<..JX1>O-1B0>,< JUMPL O(A,C>,< ..ONEBOH (..BT,B) .IFOh0 ..BT,< SETCPM .SAC,A JP(XE (.SAC,..JX1,CPH)>,< TXNE PhA,..JX1 JRST C>>> JXF L`-" .BSIZ.=MA .BPOS.=C M ..ERR.=0 IFM@N <&<^O<77774M`0,,0>>>,< MPRNNTX(L1BPT,Bits 0 N - 12 non-zero in N@address field: BN`) ..ERR.=1 O > IFN <.BSIZ.O &<^O<-1,,777700>>O@>,< MPRNTX(L1O`BPT,Bytesize greaPter than 6 bits: P A) ..ERR.=1 P@ > IFN <.BPOP`S.&<^O<-1,,777700Q>>>,< MPRNTX(Q L1BPT,Byte offsetQ@ greater than 6 bQ`its: C) ..ERRR.=1 > IR FN <..ERR.>,<-1,-R@1,-1> IFE <.R`.ERR.>,< IFIDSN <C><>, IFDS@IF <C><>,T > PURGE ..T ERR.,.BSIZ.,.BPOS. BSIZ.,.BPOSXJ [.H ..ERR.=[ 0 .BSIZ.=A[@ .BPOS.=C [` IFN <&<^O<7\77740,,0>>>,< \ MPRNTX(L2BPT,Bit\@s 0 - 12 non-zero\` in address fieldT`: B) ..ERR.=U1 > IFN <&<-1,,0>>,< U@ MPRNTX(L2BPT,BitU`s 0-17 non-zero iVn optional field:V D) ..ERR.=1V@ > IFN <.BSV`IZ.&<^O<-1,,77770W0>>>,< MPRNTXW (L2BPT,Bytesize gW@reater than 6 bitW`s: A) ..ERR.X=1 > IFN <.X BPOS.&<^O<-1,,777X@700>>>,< MPRNX`TX(L2BPT,Byte off^`set greater than _6 bits: C) ._ .ERR.=1 > I_@FN ..ERR.,<-1,-1,_`-1> IFE ..`ERR.,< IFDIF ` <C><>,<<!``1B12>&<^O<777740,a,-1>>> IFIDN a <C><>,<<!1B12>&<a`^O<777740,,-1>>> b <1B0!<<^O<4b 00037,,-1>>&>b@> > PURGE b`..ERR.,.BSIZ.,.BPOS. BSIZ.,.BP1%-T0(B).YN{ D,6 ..ERR.=D 0 IFN <<A>&<D@^O<777740,,0>>>,<D` MPRNTX(LFIWME,Bits 0 - 12 non-E zero in address fE@ield: A) ..EE`RR.=1 > IFNF ..ERR.,<-1,-1,-1F > IFE ..ERR.,<F@1B0!<<^O<400037,,F`-1>>&<A>>> PURGE ..ERR. PUY$- A`1_<^D35-^L<A>>1_<^D35-^LY>@ E* ..STR0 E (..LDB,A,B,<C>)LDB,A,B,<C>Y>I HB ..STR0 H (..LDBE,A,B,<C>)DBE,A,B,<C[i9Q ~[^+' 'J DEFINE'( A (STUFF)< c'H (,)> 'h DEFINE c (NEW,O(LD)< DEFINE ((A (STUFF)< c (H(,)>> DEFINE )B < DEFINE )(c (NEW,OLD) A ()> OLD>[3@ B <<<1_<A>>-1>B>_<A>>[8@ !h<1B<<A>-1>-1B><A>-1[>!` "(<<A>-<<A>/>*>A[?7 )h ..MX1*==B .IFN *(..MX1,ABSOLUTE,< *H MOVE A,[B]> *h .IF ..MX1,ABSO+LUTE,< ..MX2==0+( IFE <..MX1>B+H53,< ..MX2==1+h MOVEI A,..M,X1> IFE ..MX2,,(< IFE <..MX1>,HB17,< ..MX2==,h1 MOVSI A,(.-.MX1)>> IFE ..-(MX2,< IFE <<.-H.MX1>B53-^O777777-h>,< ..MX2==1 . HRROI A,<..M.(X1>>> IFE ..MX.H2,< IFE <<..M.hX1>B17-^O777777B1/7>,< ..MX2==1/( HRLOI A,(../HMX1-^O777777)>> /h IFE ..MX2,< 0 MOVE A,[..MX1]> >,[..MX1[Cm 9`+\ DEFIN:E ..MP. (LOCN,MTE: XT,PTEXT)< :@PRINTX Location ':`LOCN', Macro 'MTE;XT': PTEXT ; > ..MP.(\.,A;@,) PURGE ..MP. URGE [N^= u(6 A==C uH IF1,> v(DEFINE %A (OP,ACvH,Y,MSK)< $A== OP (,B'Y,MSK)> MOVEM .SAC,B MOVEM ._@(Xp Y(X .XCREF YH IFE <_-^D18>Yh,< .CREF CAIZC A, .XCREZ(F > IFN <_-ZH^D18>,< .CREF Zh CAMC A,[B] [.XCREF > .CREFCREF > .CREF_@(YX eH8 .XCREF eh IFE <_^D18>,f< .CREF CI f(A,(B) .XCREF fH> IFN <_^D18fh>,< .CREF C gA,[B] .XCREF > .CREFCREF _@(Z0 ^H .XCREF ^h TEST%%=0 IFE <_<_-^D18>-^O77_(7777>,< IFN <<B_H>&^O777777>,< T_hEST%%=1 .CREF ` DI A,- .`(XCREF >> IFE TE`HST%%,< OP%%IN `hA,,C > PUaRGE TEST%% .CREF TEST%% .CRE_@(Z7 aH .XCREF ah IFE <_-^D18>b,< .CREF CI b(A, .XCREF bH > IFN <_-^Dbh18>,< .CREF cC A,[B] .XCREF > .CREFCRE_CL@ ^`x ..STR0 _(.OPST1,<A>,,<C>)<A>,_CLV a ..STR0 a (.OPST2,<A>,,<C>)<A>,_^>@ Y`-N8<..OWGP (\<A>,B,\<C>)>1$-J^O44 B-_^>G Z -ROWGP. WID(B),A,POS(B)(`@ 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= Q(% IFNB QH<A>,< TMSG <AQh>> CALL JSMSG0> CALL JSMSG0a4\G ..PGV0=0=. .JBVER=:^OP137 LOC .JBVEpR BYTE (3)D(9)A(6)B(18)C 0 .ORG ..PGV0 .ORG ..PGV0 a>Mm h),A,POS()>),A,POS(<Ba? (z<^L<<A>&<-<A>>>><<A>&,< & POP P,..NUM> &0..NUM==..NUM-1 > ==..NUM-1 aNh1 #0*% ..TMSK=#P=..MASK REPEAT #p..NAC,< ..NUM=$=^L<..TMSK> ..$0TMSK==..TMSK-1B<.$P.NUM> PUSH P,..NUM > H P,.aR<& vh/6 TXO A,.FR8BY TXO A,aRd6 v /2 HRLI A,(POINT 8,0) AdA de ,~e&:x O$xJRST RSKPzJRST RSKPeN^A eN^gXY ~@( ..TRR==~`10 RADIX 8 ..NV==1 IRP A,< .TRV1 (@A)> IFG ..NV-`5, JSP .A16,.SASE@T RADIX ..TRR` DEFINE ENDSA.<.ENSV1 <A>> .ENSV1 <A>> g4X1 p)3 ..DONE==0 ..SACC==0 .0.NAC==0 ..MASK==P0 IRP <A>, ..SYApC==A IFN A-.SAC,, ..NAC==..NAC+1>> 0> IFE ..SACC, IFE ..DOpNE,< IFLE ..SACC, 0 IFG ..SACC,p IFG ..NAC-3, 0 IFLE ..NAC-3,<PIFG ..NAC,> PUSHJ P,(.SAC) 0TRNA AOS -P..NAC-..SACC(P) p IFG ..NAC-3, 0 IFLE ..NAC-3,>p IFG ..SACC, 0 POPJ P,] > P PURGE ..NAC,..TNpAC,..MASK,..TMSK,..SACC,..NUM,..SM0SK,..DONE,..SYAC DONE,..SYAC g$;8 W: ..STR1 W (..TQC,,<A>,,..STR4)A>,g%{R S@ ..STR1 S`(..TQO,,<A>,,..STR4)A>,g',W O` ..STR1 P(..TQZ,,<A>,,..STR4)A>,g"~s@ (r ....Z=A ....Z=gB8; p)G IFE ..DONE,< ..SMSK==00 IRP ,0> IFE ..MASKP-..SMSK, > .DONgR$g $ F=:0 T1(=:1 T2=:2 T3=:3H T4=:4 Q1=:5 Qh2=:6 Q3=:7 P1=:10 P2=:11 P3=:1(2 P4=:13 P5=:14H P6=:15 CX=:16 P=:17 CX=:16 gR^h9 h`&^ ..STKR=i=10 RADIX 8 i ..STKN==0 IRP i@A,< .STKV1 (i`A)> JSP .A16,.jXSTKS ;Call intej rnal routine for j@allocation EXPj` ..STKN ;Size ofk block to allocatk e RADIX ..STKR k@ DEFINE ENDSV.<.k`ENSV1 <A>> NSV1 <A>> gR~ L`h ..STR0 M(..DPB,A,B,<C>)DPB,A,B,<C>gV \`OP%%IA (A,B,SUB,ADD)(Ai6tP u* ..STR1 u (..TYNE,,<A>,,..STR3)A>,<Bi6u` x`H ..STR1 y(..TYNN,,<A>,,..STR3)A>,<Bi7p OH$~ HRROI .OhAC1,[ASCIZ \A\] PSOUTZ \A\] iF @ ..S`TR1 (..TY,C,<A>,,..STR3)A>,iF ` 0 ..STR1 (..TY,CA,<A>,,..STR3)A>iFP $ ..S@TR1 (..TY,CE,<A>,,..STR3)A>iF` * ..S TR1 (..TY,CN,<A>,,..STR3)A>iFp z@V ..Sz`TR1 (..TY,N,<A>,,..STR3)A>,iFt |`h ..S}TR1 (..TY,NA,<A>,,..STR3)A>iFtP { \ ..S{@TR1 (..TY,NE,<A>,,..STR3)A>iFu` |b ..S| TR1 (..TY,NN,<A>,,..STR3)A>iFx }@n ..S}`TR1 (..TY,O,<A>,,..STR3)A>,iF| ` ..STR1 (..TY,OA,<A>,,..STR3)A>iF|P ~ t ..S~@TR1 (..TY,OE,<A>,,..STR3)A>iF}` z ..S TR1 (..TY,ON,<A>,,..STR3)A>iGP @ ..S`TR1 (..TY,Z,<A>,,..STR3)A>,iGT ` ..STR1 (..TY,ZA,<A>,,..STR3)A>iGTP ..S@TR1 (..TY,ZE,<A>,,..STR3)A>iGU` ..S TR1 (..TY,ZN,<A>,,..STR3)A>iK4@ s@'. ..TRR==s`10 RADIX 8 t..NV==1 IRP t A,< .TRV1 (t@A)> JSP .A16,t`.XTRST EXP .u.NV-1 ;Size of bu lock to allocate u@ RADIX ..TRR u` DEFINE ENDTV.<.ENSV1 <A>> .Eib >p ..TX(C,A,)..TX(Cib ?H| ..TX(CA,A,).TX(CibP >Ht ..TX(CE,A,).TX(Cib` ?x ..TX(CN,A,).TX(Cibp 8@ ..TX(N,A,)..TX(Nibt 9HL ..TX(NA,A,).TX(NibtP 8HD ..TX(NE,A,).TX(Nibu` 9H ..TX(NN,A,).TX(Nibx :P ..TX(O,A,)..TX(Oib| ;H\ ..TX(OA,A,).TX(Oib|P :HT ..TX(OE,A,).TX(Oib}` ;X ..TX(ON,A,).TX(OicP <` ..TX(Z,A,)..TX(ZicT =Hl ..TX(ZA,A,).TX(ZicTP ).TX(ZicU` =h ..TX(ZN,A,).TX(Zk:*g U(%, %%FOO==UHa BRK0 (%%FOO,B,1) (%%FOO,kO8; ([m$,I1P$m$,YP#m$-X5Q |m$-Z7Q xm$.zQ po& hv<^L<-<<A>_<^L<A>>>-1>>>q fC@ h&@ EXTEND A,[XBLT]XTEND q"eJ P q6~i4 C q? 3 TXC A, TXC A,+Q zjQ |kQ x2 Q N2`Q P2$`Q R2& Q T25 Q V25@Q J2PQ L:`Q f:$Q h:%`Q j:5Q l:5@Q b:`Q dB Q \B$`Q ^B4 Q `B5@Q XBpQ ZJ`Q rJ%@Q tJ5 Q vJ5@Q nKQ p +Q \ KQ ^ kQ ` Q X `Q Z (Q p HQ r iQ t Q v Q n$HQ z% Q |% Q x2`Q N2$ Q P2%`Q R25 Q T2D`Q V2EQ J2PQ L: Q f:%Q h:4`Q j:D@Q l:EQ b:`Q d:h R A:&@ M@z ..TSIZ M`(..PST,C) .CASNE ..PST,<< MOVN EM A,B>,< HRN@RM A,B>,< HRN`LM A,B>,< DPOB A,[POINT WID(),B,POS(<C>)]>>B,POS(<C>):<;Y t DEFIN(E ..CNS2 (NEW,OLDH)< OLD> ..CNS ()> :L;Y hl DEFINE ..CNS (ARG)< (..CNS2 ,> H DEFINE ..CNS2h (NEW,OLD)< DEF INE ..CNS (ARG)< ( ..CNS2 , H>> OLD'NEW>>> :Mi D$0 DEFINE D ELSE. < ..TAGE D@(JRST,) ..TAGD`F (,<:!>) SYNE ..TAGE,..TAGF E DEFINE ELSE. > DEFIE`NE ENDIF. < ..TFAGF (,<:!>) ..RSDF> .:TH p` ..JNA3 (A,C,D)JNA3 :TI q ..TSAC q@(..ACT,C) .IF0q` ..ACT,< SETCrM .SAC,C JXr E (.SAC,D,)>r@,< JXO (C,D,)>O (C,:TP d < ..TSAC d@(..ACT,B) .IFd`0 ..ACT,< ..TeSIZ (..PST,C) e .CASE ..PST,<,< HRRfZ .SAC,B JUMf PE .SAC,A>,< f@HLRZ .SAC,B f`JUMPE .SAC,A>,< g MOVE .SAC,B g JXE (.SAC,C,)>>>,< JXE (B,C,<A>)>E:U` h`` ..TSAC i(..ACT,B) .IFi 0 ..ACT,< ..Ti@SIZ (..PST,C) i` .CASE ..PST,<< j SKIPE B Jj RST A>,< HRRZj@ .SAC,B JUMPj`N .SAC,A>,< HkLRZ .SAC,B Jk UMPN .SAC,A>,< k@ MOVE .SAC,B k` JXN (.SAC,C,<lA>)>>>,< JXN (B,C,<A>)>N :Uh) nz ..TSAC n (..ACT,B) .IF0n@ ..ACT,< SETCn`M .SAC,B JXoN (.SAC,C,<A>)>o ,< JXF (B,C,<A>)>F (B,:Ukh t ..JN (A,C,D)..JN (:Uki t@$ ..JE (,C,D)JE (<:dH@ E`< ..TSIZ F(..PST,C) .CASF E ..PST,<< MOVF@E A,B>,< HRRF`Z A,B>,< HLRGZ A,B>,< LDBG A,[POINT WID(<G@C>),B,POS(<C>)]>>B,POS(<C>)]:dHR H`b ..TSIZ I(..PST,C) .CASI E ..PST,<< MOVI@E A,B>,< HRRI`E A,B>,< HLRJE A,B>,< JSPJ .SAC,[LDB A,[POJ@INT WID(<C>),B,J`POS(<C>)] K..MSK==MASK.(WID(K C),35) TXNK@E A,LFTBT.(..MSKK`) TXO A,^L-..MSK PURL GE ..MSK JRST (.SAC)]>> JR:}i1 p A==<<>&>&<1B<^L>>>>&<1B<:~yx ]@-rIFE 10-8, ]` <.%AC!>+ ^ IFE 10-^D^ 10,<.$AC!>0,<.$AC!>;@ ;9 $H .POPX;LH y(Z IFNDEF yHC,,<D>,.FWz(ORD)> IFDEF CzH,< IFNDEF %C,,<D{>,C)> IFDEF %{(C,< %C (A,,<D>,C)>>;LH {h ..NS==0| IRP C,<..N|(S=..NS+1> IFE |H..NS, IFE ..NS-}(1,< ..STR0 }H(A,,<C>,<D}h>)> IFG ..NS-1,~< ..ICNS ~( ..CNS (<E (A,<~HB>,,>) IRP C~h,< IFNDEF C, IFDEHF C,< IFNDEFh %C,< ..CNS (<,C,D>)> (IFDEF %C,< %HC (..STR2,,<D>,hC)> ..CNS (<)>) ..GCNS( ..ICNS H ..CNS (<E (Ah,>) IFNDEF %C,< ..CN(S (<,C,D>)> H IFDEF %C,< h %C (..STR2,,<D>,C)>>> ..CNS( (<,,)>) ..GCNS>)>) ..GC;LI h ..CNS (<,C,B>).CNS (;LI (4 IFDIF <F>,< IFNhB <D>,< A (,D,..MSK) ( IFNB <F>,H> ..MS(K==0> IFNB <HF>,< ..MSK=..MSK!<E>>MSK=..;LJ D IFDIF <(D><F>,< IFHNB <D>,< hA (,D,..MSK)> ..MSK==0> ( IFNB <F>,< H ..MSK=..MSK!<E>>MSK=..MSK!<;LJ Z IFDIF < (D><F>,< IF HNB <D>,,< A1 (B,D,..MSK)> ( IFB <F>, H< A2 (B,D h,..MSK)>> ..MSK==0> IFNB (<F>,< ..MSK=..MSK!<E>>MSK=;hU ^ SYN END@BK.,a .PSHX < ` SYN a,ENDBK.> SYN a,ENDBK.>;i F@$F SYN ELSF`E.,a SYN ENDIFG.,b SYN ..TAGFG ,c SYN ..TAGE,G@d .PSHX < G`SYN a,ELSE. HSYN b,ENDIF. H SYN c,..TAGF H@ SYN d,..TAGE> H` ..INDF NDF ;k ! SYN OD.@,a SYN LOOP.,`b SYN TOP.,c SYN EXIT.,d S YN ENDLP.,e .P@SHX < SYN a,O`D. SYN b,LOOP. SYN c,TOP. SYN d,EXIT. @ SYN e,ENDLP.> SYN e,ENDLP.>;$r #p....Ui2;$s #n....Utj7;&` W`N ..TSIZ X(..PST,C) .IF0X ..PST,< SETX@CMM B>,< ..X`TSAC (..ACT,B) Y .IF0 ..ACT,< Y MOVX .SAC,C Y@ XORM .SAC,B>,>..TX(C,B,C);&` T 4 ..TSIZ T@(..PST,C) .CAST`E ..PST,<< SETUOM B>,< HLLOSU B>,< HRROS U@B>,< ..TSAC (U`..ACT,B) .IFV0 ..ACT,< MOVXV .SAC,C IORM V@.SAC,B>,< ..TX (O,B,C)>>>T;&@ P@ ..TSIZ P`(..PST,C) .CAQSE ..PST,<< SEQ TZM B>,< HLLQ@ZS B>,< HRRZQ`S B>,< ..TSRAC (..ACT,B) R .IF0 ..ACT,< R@ MOVX .SAC,C R` ANDCAM .SAC,B>,S< ..TX (Z,B,C)>>>TX (Z,B,;&81 l(l A==0 lH ..TSA1== .IF ..TSA1,mABSOLUTE,< Im(FE ..TSA1&^O77777mH7777760,<A==1>> 60,<A==1>> ;&:= jh^ A==3 k IFE +1,<k(A=0> IFE -kH^O777777,<A==1> kh IFE -^O777777B17,<A==2>7;&;Q n| A==0 n( ..TSA1==0 nH IRPC C,< ..nhTSA1=..TSA1+1 o IFE ..TSA1-B,< o( IFIDN <C><oHD>,< A==1> STOPI>> ;' 3H ..TX13h==C .IFN 4..TX1,ABSOLUTE,< 4( TDA B,[C]> 4H .IF ..TX1,ABSO5LUTE,< ..TX2=4h=0 IFE <..TX15(&^O777777B17>,< 5H ..TX2==1 5h TRA B,..TX1> 6 IFE ..TX2,< 6(IFE <..TX1&^O77776H77>,< ..TX2==6h1 TLA B,(7..TX1)>> IFE ..7(TX2,< IFE <7H<..TX1>B53-^O77777h77>,< ..TX@3 (A,B)>> IF@(E ..TX2,< I@HFE <..TX1+1>,< @h ..TX4 (A,BA)>> IFE ..TX2, >,[.;'` Ah IFIDN ,< ..B(TX2==1 ANDI BHB,^-..TX1> IFIBhDN <A>,< C ..TX2==1 ORC(CMI B,^-..TX1> CH IFIDN <A>,QVI B,^-..TX;' DH. IFIDN ,< ..TEX2==1 CAIN BE(,0> IFIDN <AEH>,< ..TX2Eh==1 CAIE B,0> CAIE B,0;' J ..TSAC @(..ACT,B) .IF`0 ..ACT,< PRIN TX ?TQA - B NOT IN AC>,< TXA B,C> TXA;'R u`B ..TSAC v(..ACT,B) .IFv 0 ..ACT,< ..Jv@X1==C .IF0 ,< Sv`KIPGE B>,< w .IF0 <..JX1+1>,,< w` MOVE .SAC,B x TXNE .SAC,C>>>,x < TXNE B,C> TXNE B,C>;'W y@ > ..TSAC y`(..ACT,B) .IFz0 ..ACT,< ..Jz X1==C .IF0 <@..JX1-1B0>,< S`KIPL B>,< .IF0 <..JX1+1>,< SKIPN B>,< @ MOVE .SAC,B `TXNN .SAC,C>>>,< TXNN B,C> `P P P 0P d P( .ACV2 (A) .ACV2 (d@ (; IFDEF0 A,<.IF A,SYMBOPL,> A==.FPAC+..0NAC $A==A P IFB ,<..NACp=..NAC+1> IFNB ,< ...X==B0 IF2,<.IFN ...XP,ABSOLUTE,> 0 ..NAC=..NAC+...X>NAC=..NAC+...Xd` p(K IFG A-.NPAC, P IFLE A-4, IFG A-4,< 0 JSP .A16,.SAV8>JSP .A16,.SAV8>):A ):9:A 9: d; .@+2 IFIDN.` <A><.>,< XMO/VEI .A16,B P/ USH P,.A16> I/@FDIF <A><.>,< /` .IFATM <A>,.BL0F4 .BLF1==0 0 IFN .BLF4,<0@ .IF %A,0`MACRO,< .BLF11==1> IFNB 1 ,< .BLF1==1@1> IFN .BL1`F1,< LOAD .A216,A,B PUSH 2 P,.A16>> IFE 2@.BLF1,< ;IF WASN2`'T A STRUCTURE RE3F, IFN .BLF3 4,< .BLF3@2==<&17B17>3`-

B17 4.IF .BLF2,ABSOLUT4 E,< IFE4@ .BLF2,< 4` .BLF1==1 5 .BLF3==&777777 PUSH5@ P,.BLF3-..NA(P)>5`>>> IFE .BLF61,< PUSH P,6 A>> ..NA=..NA+1 ..NA=..N d; .*p .BLCL1 A .BLCL1 f=( +*Z DEFINE + A<-^OB(.FP)> $A==> 9 hhP ..CSN==iA ..CSC==0 Ii(RP B,< IFE ..CiHSN-..CSC,< STihOPI ..CAS1 (jB)> ..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 IFGE .-^Oh22, RELOC LIST SALL LIS, .IF0 .]`.PST-1,< SOS ^B>,< MOVX .SA^ C,-..PST ADDM .SAC,B> ADDMtH p(Q IRP A, < .ENAV2 (A)> .ENAV2 (A)tI P(U .ENAV3 (A) .ENAV3 tI (Y PURGE A,A PURGE t,h +`*` IRP A,,< DEFINE A<....U>>FINE A<.v=H q@' IRP A,q`< .ENSV2 (A)> .ENSV2 (A)v=I r ' .ENSV3 (A) .ENSV3 v=I r`' DEFINE A<....U>EFINE vI9A vI9~+H $(" A (\..FORN) A (\..~. , A BP `P \Q X=|RQ &2 gHB ..IFT==ghA IFE ..IFT,h IFN ..IFT,< C>N ..IFT,<&4 6`+J IRPC A7,< B==0 IFGE7 "A"-"A",> 7` IFGE "A"-"0",<8IFLE "A"-"9",<B8 =1>> IFE "A"-"8@%",<B=1> IFE "8`A"-"$",<B=1> 9IFE "A"-".",<B=9 1> IFE B,>IFE B, .IF0 [@..PST-1,< AOS [`B>,< MOVX .S\AC,..PST ADDM .SAC,B> ADDM&tj7Q ?2DQ x6i2P ~6k0P 6k4P 6mtP 6MiTQ @;`P ?= _@ ..TSIZ _`(..PST,C) .IF0` ..PST,< A B` >,< ..LDB .SA`@C,B,C A .SAC>C A .S?= a` ..TSIZ b(..PST,C) .IF0b ..PST,< A Bb@>,< ..LDB .SAb`C,B,C A .SAcC ..DPB .SAC,B,C>DPB .SAC,A`Q JAd Q LAd(Q NAd+Q PAdIQ RAdLQ TAdjQ VAdkQ JApQ bAtQ dAt)Q fAtHQ hAtKQ jAtjQ lAtkQ bAQ XAQ ZA*Q \AIQ ^AhQ `AkQ XAQ nAQ pA+Q rAKQ tAjQ vAkQ nAQ xA+Q zAjQ |AkQ xB~ K@$\ .PSHX1 (.POPX2).PSHX1 B~ L$` .POPX4 A .POPX4 B~ M$n A M DEFINE .PSHX1 (WCM@H,STUFF)< WCH (M`<,>)>,>)>B~ L@$d .POPX3 B .POPX3 C I@$L .PSHX1 (.PSHX2,<A>)1 C J$P A () A (<BC J@$X DEFINJ`E .PSHX1 (WCH,STUKFF)< WCH (<,<A>>)>&<B!(>>B<^D70-POS()>>D70-POS(K%\u B`$ )&<^-AC >>>,<A>>!)&<^-C`A> >><)&<^-A>>>)>_D@-1>>!)>>>RGHBT.(A)>N0@ N):A N):N9:A N9:Nd A" Nd Nd@A" Nd@Nd`A" Nd`NeA NeNfA NfO%=H l &b .STKV2 (A) .STKV2 O%=I l`&z IFB <Bm>,<..STKN==..STKNm +1> IFNB ,> ..STn`KN==..STKN+...X> o ..STKQ==..STKN+o 1 .STKV3 (A,\..STKQ)V3 (A,\.O%=I o`' IFDEFp A,<.IF A,SYMBOp L,> DEFINE A<-q^OB(P)> $A==<Z A>> $A==<Sd v '2 .TRV2 (A) .TRV2 (Sd@ v`'F .TRV3 (wA,\..NV) IFB w ,<..NV=..NV+1w@> IFNB ,< w` ...X==B IF2,> ..NV=..NV+...X>..NV=..Sd` y 'T IFDEFy@ A,<.IF A,SYMBOy`L,> DEFINE A<^Oz@B(.FP)> $A==<Z A>> $A==<b\| h .XCREF ( .XCRF1 <..ACT,.H.CSC,..CSN,..IFT,h..JX1,..MSK,..MX1,..MX2> .XCRF1 (<..NAC,..NRGS,..NHS,..NV,..PST,..SThKN,..STKQ,..STKR> .XCRF1 <..TRR,(..TSA1,..TX1,..TXH2,.FP,.FPAC,.NAC,h.SAC,.SAV1> .XCRF1 <.SAV2,.SAV3,(POINTR,POS,WID,..HCAS1,..CNS,..CNS2h> .XCRF1 <..DPB,..GNCS,..ICNS,..(JE,..LDB,..STR0,.H.STR1,..STR2> .hXCRF1 <..STR4,..TQO,..TQZ,..TSAC,.(.TSIZ,..TX,..TY,.HACV1,.ACV2> .XChRF1 <.ACV3,.CASE,.DECR0,.IF0,.INCR(0,.OPST1,.OPST2,.HSTKV1> .XCRF1 <h.STKV2,.STKV3,.TRV1,.TRV2,.TRV3> .CREF 3> b)H Hn IRP A,h< IFDEF A,< .XCREF A>>A,< .cJyA cJycJyA cJyc&,ZA c&,Zc&,zA c&,z>}{woP