Trailing-Edge
-
PDP-10 Archives
-
BB-H138B-BM
-
new-subsys/macsym.unv
There are 97 other files named macsym.unv in the archive. Click here to see a list.
x ,5m@P C4 @ Hp,K
..NAC==I0
IRP A,<
I0 .ACV1 (A)>
.ACV3 (\..NAC)C:' !
TXZ A,<^-<B>>TXZ A,CO,,@ E@,>
..TRR==E`10
RADIX 8
F..NV==1
IRP F A,<
.TRV1 (F@A)>
IFG ..NV-F`5,<PRINTX ?TOO MAGNY ARGUMENTS: A>G
JSP .A16,.ASSEG@T
RADIX ..TRRG`
PURGE ..TRR,..NVURGE ..TRR,EJMj' +(*cZh
W0.==A
W1.==B ;INIT,IALIZE BREAK MASK,0
W2.==C
W3.==D
==C
W3.==-X*P0*-0B,<
-0QAB (- 0 ..SEJZ %h*D ..V22==a&
..V1==a
IFN&(B <B>,<..V22==B&H>
REPEAT ..V22-<&ha>+1,<
%%W==.'.V1/^D32
%%X=='(..V1-%%W*^D32
'HIFE C,BRKC1 \"<%'h%W+"0">
IFN C(,BRKC2 \"<%%W+"0"((>
..V1==..V1+1
>
PURGE ..V1,..V22
..EJ\4 )*H WA.==WA.!<1B<%%X>>
AEJ\4@ )H*N WA.==WA)h.&<-1-1B<%%X>>
&<-1-1B<%%X>>
EJ\: $(*$
%%FOO==$Ha
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 +I x 'D
..STR0 x@(.DECR0,,<A>,B)DECR0,,<A>,B)I6= L`$r
A==<-1MB<C>+1B<C-D>> M
IF1,<IFDEF %AM@,<PRINTX ?A ALREM`ADY DEFINED>>
DNEFINE %A (OP,AC,N Y,MSK)<
OP (<AC>,B'Y,MSK)><ACKJn9` @).
ERJMP [`TMSG <? A>
JSHLT]
A>
JKc #(*
IF2,<#H
IRP A,<
IFN#hDEF A,<EXTERN A
SUPPRE A>>>M2 ` <<<A>B<POS(B)>>&<B>>POM2$*g 2P+;
..XX==<2pFLD(A,CM%FNC)>+3B+<Z G>
IFNB30 <D>,<..XX=CM%HP3PP!..XX>
IFNB 3p<E>,<..XX=CM%DPP4!..XX>
IFNB <40F>,<..XX=CM%BRK!4P..XX>
..XX
4pIFNB <C>,<C>
5 IFB <C>,<0>
50 IFNB <D>,<POIN5PT 7,[ASCIZ \D\]>5p
IFB <D>,<IF6NB <EF>,<0>>
60 IFB <E>,<IFNB 6P<F>,<0>>
IFN6pB <E>,<POINT 7,[7ASCIZ \E\]>
70IFNB <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%DP0P!..XX>
..XX
00 IFNB <C>,<C>
0pIFB <C>,<0>
IFNB <D>,<PO1INT 7,[ASCIZ \D\10]>
IFB <D>,<1PIFNB <E>,<0>>
1p IFNB <E>,<POIN2T 7,[ASCIZ \E\]>7,[ASCIZ \E\]>M7 p @)
HRROI .`AC2,[ASCIZ \A\]
MOVEI .AC3,0
SOUTI .AC3,0
S: v'2
..STR0 v (.INCR0,,<A>,B)INCR0,,<A>,B)S? `!
TXO A,<B>
TXO A,Ut@ @(`
..STR1 `(..JAN,<d,<C>>,
<A>,B,..STR5)
d:B,..STR5)
U '|
..STR1 @(..JE,<C>,<A>,B,..STR3)<A>,U8 `(
..STR1(..JN,<C>,<A>,B,..STR3)<A>,U:
..STR1 (..JNA3,<C>,<A>,B,..STR4)<A>U:~ `(z
..STR1 (..JNO,<d,<C>>, <A>,B,..STR5)
d:B,..STR5)
U? (D
..STR1 @(..JN,<C>,<A>,B,..STR4)<A>,UN.,@`p0-Jp0-Gp0-Jp0-D, p0-G*p0-DUN.,HUN.,HA UN.,HUNEM`p0-Sp0-Pp0-Sp0-M, p0-P*p0-MUNEMUNEMA UNEMUNn9hA UNn9hUb( ) "v
..JX1==)@B
IFDEF .PSEC)`T,<
.IFN ..JX1,*ABSOLUTE,<PRINTX * B NOT ABSOLUTE
*@ ..JX1==0>
.IF*` ..JX1,ABSOLUTE,<+
.IF0 <<..JX1>-+ 1B0>,<
JUMPGE+@ A,C>,<
.IF0 +`<<..JX1>+1>,<
, JUMPE A,C>,< ,
TXNN (A,..JX,@1)
JRST C>>>
PURGE ..JX1>
I-FNDEF .PSECT,<
- .IF0 <<..JX1>-1B0-@>,<
JUMPGE A-`,C>,<
.IF0 <<...JX1>+1>,<
J. UMPE A,C>,<
.@ TXNN (A,..JX1)
JRST C>>>
PURGE ..JX1>
PUb0 <@$
..JX1==<`B
IFDEF .PSEC=T,<
.IFN ..JX1,= ABSOLUTE,<PRINTX =@B NOT ABSOLUTE
=` ..JX1==0>
.IF> ..JX1,ABSOLUTE,<>
.IF0 <<..JX1>->@1B0>,<
JUMPGE >`A,C>,<
..ONEB? (..BT,B)
.IF? 0 ..BT,<
SETC?@M .SAC,A
J?`XN (.SAC,..JX1,C@)>,<
TXNN @ A,..JX1
J@@RST C>>>
PURGE@` ..JX1>
IFNDEF .APSECT,<
.IF0 <<A ..JX1>-1B0>,<
A@JUMPGE A,C>,<
A` ..ONEB (..BT,B)B
.IF0 ..BT,<
B SETCM .SAC,A B@
JXN (.SAC,.B`.JX1,C)>,<
C C TXNN A,..JX1
JRST C>>>
PURGE..JX1>
..JX1==/@B
IFDEF .PSEC/`T,<
.IFN ..JX1,0ABSOLUTE,<PRINTX 0 B NOT ABSOLUTE
0@ ..JX1==0>
.IF0` ..JX1,ABSOLUTE,<1
.IF0 <<..JX1>-1 1B0>,<
JUMPL 1@A,C>,<
.IF0 <1`<..JX1>+1>,<
22 JUMPN A,C>,<
TXNE (A,..JX12@)
JRST C>>>
2` PURGE ..JX1>
IF3NDEF .PSECT,<
.3 IF0 <<..JX1>-1B0>3@,<
JUMPL A,3`C>,<
.IF0 <<..J4X1>+1>,<
JUM4 PN A,C>,<
T4@XNE (A,..JX1)
4` JRST C>>>
PURGE ..JX1>
PURUbx 5 #`
..JX1==5@B
IFDEF .PSEC5`T,<
.IFN ..JX1,6ABSOLUTE,<PRINTX 6 B NOT ABSOLUTE
6@ ..JX1==0>
.IF6` ..JX1,ABSOLUTE,<7
.IF0 <<..JX1>-7 1B0>,<
JUMPL 7@A,C>,<
..ONEB 7`(..BT,B)
.IF08 ..BT,<
SETCM8 .SAC,A
JX8@E (.SAC,..JX1,C)8`>,<
TXNE 9A,..JX1
JR9 ST C>>>
PURGE 9@..JX1>
IFNDEF .P9`SECT,<
.IF0 <<.:.JX1>-1B0>,<
J: UMPL A,C>,<
.:@.ONEB (..BT,B)
.IF0 ..BT,<
;; SETCM .SAC,A
JXE (.SAC,..J;@X1,C)>,<
;`TXNE A,..JX1
< JRST C>>>
PURGE ..JX1>
Y>
@ f&2
..STR0 f (..LDB,A,B,C)..LDB,A,B,C)[ 8@ (<1B<<A>-1>-1B<B>><A>-1[>!` @ ,<<A>-<<A>/<B>>*<B>>A[?7 !
..MX1 ==B
IFDEF .P@SECT,<
.IFN .`.MX1,ABSOLUTE,<
MOVE A,[B]>
.IF ..MX1,ABSOL@UTE,<
..MX2==0 `
IFE <..MX1>B53,<
..MX2==1
MOVEI A,..MX@1>
IFE ..MX2,<`
IFE <..MX1>B 17,<
..MX2==1
MOVSI A,(.. @MX1)>>
IFE ..M `X2,<
IFE <<..
MX1>B53-^O777777>
,<
..MX2==1
@ HRROI A,<..MX
`1>>>
IFE ..MX2 ,<
IFE <<..MX 1>B17-^O777777B17 @>,<
`..MX2==1
HRLOI A,(..M
X1-^O777777)>>
IFE ..MX2,<
@ MOVE A,[..MX1]
`>
>>
IFNDEFT,<
..MX2
IFE5<..MX
==..MX2
MOVEI A,..MX1>
IFE ..M X2,<
IFE <..M@X1>B17,<
..MX`2==1
MOVSI A,(..MX1)>>
IFE ..MX2,<
IFE @<<..MX1>B53-^O777`777>,<
..MX2==1
HRROI A,< ..MX1>>>
IFE .@.MX2,<
IFE <<`..MX1>B17-^O777777B17>,<
..MX2 ==1
HRLOI A,@(..MX1-^O777777)>`>
IFE ..MX2,<
MOVE A,[.. MX1]>
>
PURGE ..MX1,..MX2RGE[N^= N`%
A==C O
IF1,<IFDEF %O A,<PRINTX ?A ALRO@EADY DEFINED>>
O`DEFINE %A (OP,ACP,Y,MSK)<
OP (<AC>,B'Y,MSK)><A_C L@ z@'V
..STR0 z`(.OPST1,<A>,<B>,C)1,<A>,<B>_C LV |`'h
..STR0 }(.OPST2,<A>,<B>,C)2,<A>,<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= @)(
IFNB `<A>,<
TMSG <A>>
CALL JSMSG0>
CALL JSMSG0a 4\G (
..PGV0=H=.
.JBVER=:13h7
LOC .JBVER
BYTE (3)D(9)(A(6)B(18)C
.ORG ..PGV0
.a>Mm <POINT WID (B),A,POS(B)>B),A,POS(B)>a? @ <^L<<A>&<-<A>>>><<A>&<dA de ,~e&:x )JRST RSKPJRST RSKPeN^A eN^g4X1 MP-
.NAC==0Mp
IRP A,<
PNUSH P,A
.NN0AC=.NAC+1>
.NNP1==.NAC
SETMI .NpA16,[CAIA
AOSO -.N1(P)
IRPO0 A,<
.N1=.N1-OP1
MOVE A,-.N1Op(P)>
SUB P,[P.NAC,,.NAC]
P0POPJ P,]
PUSH P,.A16
PUSH g$;8 r`'
..STR1 s(..TQC,,<A>,B,..STR4)<A>,B,.g%{R o &|
..STR1 o@(..TQO,,<A>,B,..STR4)<A>,B,.g',W k@&^
..STR1 k`(..TQZ,,<A>,B,..STR4)<A>,B,.gR^h9 8`+V
..STKR=9=10
RADIX 8
9 ..STKN==0
IRP 9@A,<
.STKV1 (9`A)>
JSP .A16,.:STKST
..STKN,,: ..STKN
RADIX ..:@STKR
PURGE ..ST:`KN,..STKR,..STKQ
gR~TKR,..STKQ
..STR0 i(..DPB,A,B,C)..DPB,A,B,C)i7 p @)
HRROI .AC1,[ASCIZ \A\]
PSOUTZ\A\]
..S @TR1 (..TY,C,<A>,B,..STR3)<A>,iF !@*
..S!`TR1 (..TY,CA,<A>,B,..STR3)<A>iF P *
..S TR1 (..TY,CE,<A>,B,..STR3)<A>iF ` `*
..S!TR1 (..TY,CN,<A>,B,..STR3)<A>iFp )4
..S@TR1 (..TY,N,<A>,B,..STR3)<A>,iFt @)F
..S`TR1 (..TY,NA,<A>,B,..STR3)<A>iFtP ):
..S TR1 (..TY,NE,<A>,B,..STR3)<A>iFu` `)@
..STR1 (..TY,NN,<A>,B,..STR3)<A>iFx )L
..S@TR1 (..TY,O,<A>,B,..STR3)<A>,iF| @)^
..S`TR1 (..TY,OA,<A>,B,..STR3)<A>iF|P )R
..S TR1 (..TY,OE,<A>,B,..STR3)<A>iF}` `)X
..STR1 (..TY,ON,<A>,B,..STR3)<A>iGP )d
..S @TR1 (..TY,Z,<A>,B,..STR3)<A>,iGT @)v
..S `TR1 (..TY,ZA,<A>,B,..STR3)<A>iGTP )j
..S TR1 (..TY,ZE,<A>,B,..STR3)<A>iGU` `)p
..S TR1 (..TY,ZN,<A>,B,..STR3)<A>iK4 @ ?`,
..TRR==@10
RADIX 8
@ ..NV==1
IRP @@A,<
.TRV1 (@`A)>
JSP .A16,A.TRSET
..NV-A 1,,..NV-1
RADIXA@ ..TRR
PURGE ..TRR,..NVURGE ib `!v
..TX(C,A,<B>)..TX(Cib "
..TX(CA,A,<B>).TX(Cib P !z
..TX(CE,A,<B>).TX(Cib ` `!~
..TX(CN,A,<B>).TX(Cibp `!F
..TX(N,A,<B>)..TX(Nibt !R
..TX(NA,A,<B>).TX(NibtP !J
..TX(NE,A,<B>).TX(Nibu` `!N
..TX(NN,A,<B>).TX(Nibx `!V
..TX(O,A,<B>)..TX(Oib| !b
..TX(OA,A,<B>).TX(Oib|P !Z
..TX(OE,A,<B>).TX(Oib}` `!^
..TX(ON,A,<B>).TX(OicP `!f
..TX(Z,A,<B>)..TX(ZicT !r
..TX(ZA,A,<B>).TX(ZicTP !j
..TX(ZE,A,<B>).TX(ZicU` `!n
..TX(ZN,A,<B>).TX(Zk:*g %**
%%FOO==%(a
BRK0 (%%FOO,B,1)
(%%FOO,m$,YP'm$-X5Q |m$-Z7Q xm$.zQ po& <^L<-<<A>_<^L<A>>>-1>>>q
fC@ 8+@
EXTEND A,[XBLT]XTEND q"eJ P q6~i4 C q? `!
TXC A,<B>
TXC A, : h $4
A :&@ i@&X
..TSIZ i`(..PST,C)
.CASjE ..PST,<<
MOVj EM A,B>,<
HRj@RM A,B>,<
HRj`LM A,B>,<
DPkB A,[POINTR (B,C)]>>INTR (B, :<;Y e&,
DEFINe E ..CNS2 (NEW,OLDe@)<
OLD>
..CNS ()>
:L;Y b`&$
DEFINcE ..CNS (ARG)<
c ..CNS2 <ARG>,>
c@
DEFINE ..CNS2c` (NEW,OLD)<
DEFdINE ..CNS (ARG)<
..CNS2 <ARG>,d@<OLD'NEW>>>
OLD'NEW>>>
:TH
@(d
..JNA3(A,C,D)JNA3 :TI
..TSAC,C)
.IF0T,<
M SETCC
JXE (.SAC,D,<B>)> ,<
JXO (C,D,<B>)>O (C, :TP (
..TSAC (..ACT,B)
.IF@0 ..ACT,<
..T`SIZ (..PST,C)
.CASE ..PST,<<
SKIPN B
@JRST A>,<
HRR`Z .SAC,B
JUMPE .SAC,A>,<
HLRZ .SAC,B
@JUMPE .SAC,A>,<
MOVE .SAC,B
JXE (.SAC,C,< A>)>>>,<
JXE (B,C,<A>)>E :U` @(>
..TSAC `(..ACT,B)
.IF0 ..ACT,<
..T SIZ (..PST,C)
@ .CASE ..PST,<<
SKIPE B
JRST A>,<
HRRZ .SAC,B
JUMP@N .SAC,A>,<
H`LRZ .SAC,B
JUMPN .SAC,A>,<
MOVE .SAC,B
@ JXN (.SAC,C,<`A>)>>>,<
JXN (B,C,<A>)>N :Uh) `(X
..TSAC
(..ACT,B)
.IF0
..ACT,<
SETC
@M .SAC,B
JX
`N (.SAC,C,<A>)> ,<
JXF (B,C,<A>)>F (B, :Ukh `(~
..JN (A,C,D)..JN ( :Uki )
..JE (<B>,C,D)JE (< :dH@ f`&B
..TSIZ g(..PST,C)
.CASg E ..PST,<<
MOVg@E A,B>,<
HRRg`Z A,B>,<
HLRhZ A,B>,<
LDBh A,[POINTR (B,C)]>>INTR (B, :}i1 L$b
A==<<<L -<B>>&<B>>&<1B<^L<B>>>>>&<1B< ; LH P@%
IFNDEF P`C,<PRINTX ?C ISQ NOT DEFINED
Q A (<B>,D,.FWORQ@D)>
IFDEF C,<Q`
IFNDEF %C,<
R A (<B>,D,CR )>
IFDEF %C,<R@
%C (A,<B>,D,C)>>A,<B> ; LH S%R
..NS==0S
IRP C,<..NS@S=..NS+1>
IFE S`..NS,<PRINTX ?EMPTTY STRUCTURE LISTT , A>
IFE ..NS-T@1,<
..STR0 T`(A,<B>,<C>,D)U>
IFG ..NS-1,< U
..ICNS
.U@.CNS (<E (A,<BU`>,,>)
IRP C,<V
IFNDEF C,V <PRINTX C NOT DEV@FINED>
IFDEF V`C,<
IFNDEF %WC,<
..CNS (<W ,C,D>)>
IFW@DEF %C,<
%CW` (..STR2,,D,C)>X
..CNS (<)>)X
..GCNS
X@ ..ICNS
.X`.CNS (<E (A,<BY>>)
IFNDEF %Y C,<
..CNS (<Y@,C,D>)>
IFY`DEF %C,<
%CZ (..STR2,,D,C)>Z >>
..CNS (<,,)>)
..GCNS>) ; LI Z`%V
..CNS (<,C,B>).CNS ( ; LI [ %l
IFDIF <[@D><F>,<
IFN[`B <D>,<
A\ (<B>,D,..MSK) \
IFNB <F>,\@<PRINTX C AND E\` ARE IN DIFFERENT] WORDS>>
..MS] K==0>
IFNB <]@F>,<
..MSK=..MSK!<E>>MSK=.. ; LJ ^%|
IFDIF <^ D><F>,<
IF^@NB <D>,<
^`A (<B>,D,..MSK)_>
..MSK==0> _
IFNB <F>,<
_@ ..MSK=..MSK!<E>>MSK=..MSK!< ; LJ `&
IFDIF <` D><F>,<
IF`@NB <D>,<
I``FNB <F>,<
aA1 (B,D,..MSK)>a
IFB <F>,a@<
A2 (B,Da`,..MSK)>>
..bMSK==0>
IFNB b <F>,<
..MSK=..MSK!<E>>MSK= ;&` s@',
..TSIZ s`(..PST,C)
.IF0t ..PST,<
SETt CMM B>,<
t`..t@TSAC (..ACT,B)
u.IF0 ..ACT,<
MOVX .SAC,C
u XORM .SAC,B>,<u@
..TX(C,B,C)>>..TX(C,B,C) ;&` p'
..TSIZ p (..PST,C)
.CASp@E ..PST,<<
SETp`OM B>,<
HLLOSq B>,<
HRROS q B>,<
..TSAC (q@..ACT,B)
.IFq`0 ..ACT,<
MOVXr .SAC,C
IORM r .SAC,B>,<
..TX (O,B,C)>>>T ;& @ l &v
..TSIZ l@(..PST,C)
.CAl`SE ..PST,<<
SEmTZM B>,<
HLLm ZS B>,<
HRRZm@S B>,<
..TSm`AC (..ACT,B)
n .IF0 ..ACT,<
n MOVX .SAC,C
n@ ANDCAM .SAC,B>,n`<
..TX (Z,B,C)>>>TX (Z,B, ;&81 H@$\
IFNDEF H`.PSECT,<
A==0 I
..TSA1==<Z I B>
IFE ..TSI@A1&^O777777777760I`,<A==1>
>
IJFDEF .PSECT,<
J A==0
..TSA1=J@=<Z B>
.IF .J`.TSA1,ABSOLUTE,< K
IFE ..TSA1&^K O777777777760,<AK@==1>>
PURGE ..TSA1>
PURGE .. ;&:= G$@
A==3 G
IFE <B>+1,<G@A=0>
IFE <B>-G`^O777777,<A==1> H
IFE <B>-^O777777B17,<A==2>7 ;' "0
..TX1@==C
IFDEF .P`SECT,<
.IFN ..TX1,ABSOLUTE,<
TDA B,[C]>
` .IF ..TX1,ABSOL@UTE,<
..TX2==0
IFE <..TX1& ^O777777B17>,<
@ ..TX2==1
`TRA B,..TX1>
IFE ..TX2,<
I FE <..TX1&^O77777@7>,<
..TX2==1`
TLA B,(..TX1)>>
IFE ..T X2,<
IFE <<@..TX1>B53-^O77777 `7>,<
..TX3! (A,B)>>
IFE! ..TX2,<
TD!@A B,[..TX1]>
!` PURGE ..TX1,..TX"2>>
IFNDEF .PSEC" T,<
..TX2==0
IFE <..TX1&^O77"`7777B17>,<
..#TX2==1
TRA# B,..TX1>
IFE #@..TX2,<
IFE <#`..TX1&^O777777>,<$
..TX2==1
$ TLA B,(..TX1$@)>>
IFE ..TX2,<$`
IFE <<..TX%1>B53-^O777777>,<%
..TX3 (A%@,B)>>
IFE ..T%`X2,<
TDA &B,[..TX1]>
PURGE ..TX1,..TX2> ;'` &@"F
IFIDN <&`A><Z>,<
..'TX2==1
ANDI ' B,^-..TX1>
IFI'@DN <A><O>,<
'` ..TX2==1
( OR(CMI B,^-..TX1>
IFIDN <A><C>,<(@
..TX2==1
(` EQVI B,^-..TX1>QVI B,^-..TX ;' `)
..TSAC (..ACT,B)
.IF 0 ..ACT,<
PRIN@TX ?TQA - B NOT` IN AC>,<
TXA B,C>
TXA
`P P P 0P d Ip,O
.ACV2 (A)
.ACV2 ( d@ J0,Y
A=.FPAJPC+..NAC
IFB <JpB>,<..NAC=..NAC+K1>
IFNB <B>,<..NAC=..NAC+B>. d` KP,i
IFG A-Kp.NPAC,<PRINTX ?TOLO MANY ACS USED>
IFLE A-4,<
LP JSP .A16,.SAVA>Lp
IFG A-4,<
M JSP .A16,.SAV8>JSP .A16,.SAV8> ):A ): 9:A 9: 9 E$2
..CSN==E A
..CSC==0
IE@RP B,<
IFE ..CE`SN-..CSC,<
STFOPI
..CAS1 (F B)>
..CSC==..CSC+1>..CSC==..CS D 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<ZP D=7P DI6P ? D\qP S@P ,<H y'P
..PST==y C&<-C>
.IF0 .y@.PST-1,<
SOS y`B>,<
MOVX .SAzC,-..PST
ADDM .SAC,B> ADDM P `P =|RQ &2 C`$$
..IFT==DA
IFE ..IFT,D <
B
..IFT==0D@>
IFN ..IFT,<
C>N ..IFT,< &t<H v`'>
..PST==wC&<-C>
.IF0 w ..PST-1,<
AOS w@B>,<
MOVX .Sw`AC,..PST
ADDM .SAC,B> ADDM &tj7Q ? 2DQ x 6MiTQ @ ;`P ?= { 'b
..TSIZ {@(..PST,C)
.IF0{` ..PST,<
A B|>,<
..LDB .SA| C,B,C
A .SAC>C
A .S ?= }@'v
..TSIZ }`(..PST,C)
.IF0~ ..PST,<
A B~ >,<
..LDB .SA~@C,B,C
A .SA~`C
..DPB .SAC,B,C>DPB .SAC, JDP' K%,z $<<<A>&<B@>>B<^D70-POS(B)>><^D70-POS(B)> N
0@ Nd A Nd Nd@A Nd@ Nd`A Nd` NeA Ne NfA Nf O%<ZA O%<Z O%<zA O%<z O%=H ; +Z
.STKV2 (A)
.STKV2 O%=I ;`+h
IFB <B<>,<..STKN==..STKN< +1>
IFNB <B>,<<@..STKN==..STKN+B<`>
..STKQ==..STK=N+1
.STKV3 (A,\..STKQ)V3 (A, O%=I =@+v
IFDEF=` A,<.IF A,SYMBO>L,<PRINTX STKVAR > A ALREADY DEFINE>@D>>
DEFINE A<->`^OB(P)>
$A==<Z A>>
$A==< S):A S): S9:A S9: Sd B,
.TRV2 (A)
.TRV2 ( Sd@ B@,
.TRV3 (B`A,\..NV)
IFB C<B>,<..NV=..NV+1C >
IFNB <B>,<..NV=..NV+B>,<.. Sd` C`,(
IFDEFD A,<.IF A,SYMBOD L,<PRINTX TRVAR D@A ALREADY DEFINEDD`>>
DEFINE A<^OEB(.FP)>
$A==<Z A>>
$A==<>}{woP