Google
 

Trailing-Edge - PDP-10 Archives - BB-4172G-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\]>M7p @) 
	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_CL@ z@'V
	..STR0 z`(.OPST1,<A>,<B>,C)1,<A>,<B>_CLV |`'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 JSMSG0a4\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)i7p @)
	HRROI .AC1,[ASCIZ \A\]
	PSOUTZ\A\]
	    ..S@TR1 (..TY,C,<A>,B,..STR3)<A>,iF !@*
	    ..S!`TR1 (..TY,CA,<A>,B,..STR3)<A>iFP  *
	    ..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
	    ..STR1 (..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(CibP  !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==..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<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>		ADDMP `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 x6MiTQ @;`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  NeNfA  NfO%<ZA  O%<ZO%<zA  O%<zO%=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