Google
 
Trailing-Edge - PDP-10 Archives - BB-L014C-BM - autopatch/macsym.unv
There are 97 other files named macsym.unv in the archive. Click here to see a list.
x,:m@P C4@ IH,P
	..NAC==Ih0		
	IRP A,<
	J  .ACV1 (A)>		
	.ACV3 (\..NAC)C:' x!
	TXZ A,<^-<B>>TXZ A,CO,,@ F,C
	..TRR==F810		
	RADIX 8
	FX..NV==1			
	IRP FxA,<
	  .TRV1 (GA)>		
	IFG ..NV-G85,<PRINTX ?TOO MAGXNY ARGUMENTS: A>Gx
	JSP .A16,.ASSEHT		
	RADIX ..TRRH8		
	PURGE ..TRR,..NVURGE ..TRR,EJMj' ,*h[@
W0.==A
W1.==B				;INIT,hIALIZE BREAK MASK-
W2.==C
W3.==D
==C
W3.==-^*V0(aU-0B,<
	- 0QAB (-"0    ..SEJZ &@*J	..V22==a&`
	..V1==a
	IFN'B <B>,<..V22==B' >
REPEAT ..V22-<'@a>+1,<	
	%%W==.'`.V1/^D32	
	%%X==(..V1-%%W*^D32	
	( IFE C,BRKC1 \"<%(@%W+"0">	
	IFN C(`,BRKC2 \"<%%W+"0")>
	..V1==..V1+1
		   >
PURGE ..V1,..V22		
 ..EJ\4  )`*N	WA.==WA.!<1B<%%X>>
AEJ\4@ * *T	WA.==WA*@.&<-1-1B<%%X>>
&<-1-1B<%%X>>
EJ\: %**
%%FOO==% a
	BRK0 (%%FOO,B,0)
 (%%FOO,EJn:g -H*v

	BRINI. A-h,B,C,D	
	IRPC. E,<	UNBRK. "E".(>	
	IRPC F,<	BR.HKCH. "F">	
	EXP.h W0.,W1.,W2.,W3.		
W1.,W2.,W3.	Ge@ ,GeLR +I  xx'I
	..STR0 y(.DECR0,,<A>,B)DECR0,,<A>,B)I6= M8$w
	A==<-1MXB<C>+1B<C-D>> Mx
	IF1,<IFDEF %AN,<PRINTX ?A ALREN8ADY DEFINED>>
	DNXEFINE %A (OP,AC,NxY,MSK)<
	OP (<AC>,B'Y,MSK)><ACKJn9` )3
	ERJMP	[8TMSG <? A>
		 JSHLT]
A>
		 JKc  $*$
   IF2,<$ 
	IRP A,<
	IFN$@DEF A,<EXTERN A
	SUPPRE A>>>M2  8 #<<<A>B<POS(B)>>&<B>>POM2$*g 3(+@
	..XX==<3HFLD(A,CM%FNC)>+3hB+<Z G>
   IFNB4 <D>,<..XX=CM%HP4(P!..XX>
   IFNB 4H<E>,<..XX=CM%DPP4h!..XX>
   IFNB <5F>,<..XX=CM%BRK!5(..XX>
	..XX
   5HIFNB <C>,<C>
 5h  IFB <C>,<0>
 6  IFNB <D>,<POIN6(T 7,[ASCIZ \D\]>6H
   IFB <D>,<IF6hNB <EF>,<0>>
 7  IFB <E>,<IFNB 7(<F>,<0>>
   IFN7HB <E>,<POINT 7,[7hASCIZ \E\]>
   8IFNB <F>,<F>
    <F>,<F>
 M2$HG /(+


	..XX==</HFLD(A,CM%FNC)>+/hB+<0,,F>
   IFN0B <D>,<..XX=CM%H0(PP!..XX>
   IFNB0H <E>,<..XX=CM%DP0hP!..XX>
	..XX
1  IFNB <C>,<C>
1HIFB <C>,<0>
   IFNB <D>,<PO1hINT 7,[ASCIZ \D\2]>
   IFB <D>,<2(IFNB <E>,<0>>
 2H  IFNB <E>,<POIN2hT 7,[ASCIZ \E\]>7,[ASCIZ \E\]>M7p )%
	HRROI .8AC2,[ASCIZ \A\]
	MOVEI .AC3,0
	SOUTI .AC3,0
	S:  vX'7
	..STR0 vx(.INCR0,,<A>,B)INCR0,,<A>,B)S? 8!
	TXO A,<B>
	TXO A,Ut@ 

(e
	..STR1 

8(..JAN,<d,<C>>,

X<A>,B,..STR5)
d:B,..STR5)
U x(
	..STR1 (..JE,<C>,<A>,B,..STR3)<A>,U8 8(%
	..STR1X(..JN,<C>,<A>,B,..STR3)<A>,U:
	..STR1 	x(..JNA3,<C>,<A>,B,..STR4)<A>U:~  8(
	..STR1 X(..JNO,<d,<C>>,x<A>,B,..STR5)
d:B,..STR5)
U? x(I
	..STR1 	(..JN,<C>,<A>,B,..STR4)<A>,UN.,@`p0-Pp0-Mp0-Pp0-J,p0-M*p0-JUN.,HUN.,HA  UN.,HUNEM`p0-Yp0-Vp0-Yp0-S,p0-V*p0-SUNEMUNEMA  UNEMUNn9hA  UNn9hUb( )x"{
	..JX1==*B		
IFDEF .PSEC*8T,<
	.IFN ..JX1,*XABSOLUTE,<PRINTX *xB NOT ABSOLUTE
+		..JX1==0>
	.IF+8 ..JX1,ABSOLUTE,<+X
	.IF0 <<..JX1>-+x1B0>,<	
		JUMPGE, A,C>,<
	.IF0 ,8<<..JX1>+1>,<	
	,X  JUMPE A,C>,<	,x
		TXNN (A,..JX-1)
		JRST C>>>
	PURGE ..JX1>
I-XFNDEF .PSECT,<
	-x.IF0 <<..JX1>-1B0.>,<	
		JUMPGE A.8,C>,<
	.IF0 <<..X.JX1>+1>,<	
	  J.xUMPE A,C>,<	
	/	TXNN (A,..JX1)
		JRST C>>>
	PURGE ..JX1>
	PUb0 =$
	..JX1===8B		
IFDEF .PSEC=XT,<
	.IFN ..JX1,=xABSOLUTE,<PRINTX >B NOT ABSOLUTE
>8		..JX1==0>
	.IF>X ..JX1,ABSOLUTE,<>x
	.IF0 <<..JX1>-?1B0>,<
		JUMPGE ?8A,C>,<
	..ONEB?X (..BT,B)	
	.IF?x0 ..BT,<
	  SETC@M .SAC,A		
	  J@8XN (.SAC,..JX1,C@X)>,< 
	    TXNN @xA,..JX1	
	    JARST C>>>
	PURGEA8 ..JX1>
IFNDEF .AXPSECT,<
	.IF0 <<Ax..JX1>-1B0>,<
		BJUMPGE A,C>,<
B8	..ONEB (..BT,B)BX	
	.IF0 ..BT,<
Bx	  SETCM .SAC,A	C	
	  JXN (.SAC,.C8.JX1,C)>,< 
	CxCX  TXNN A,..JX1	
	  JRST C>>>
	PURGE..JX1>
	..JX1==0B		
IFDEF .PSEC08T,<
	.IFN ..JX1,0XABSOLUTE,<PRINTX 0xB NOT ABSOLUTE
1		..JX1==0>
	.IF18 ..JX1,ABSOLUTE,<1X
	.IF0 <<..JX1>-1x1B0>,<	
		JUMPL 2A,C>,<
	.IF0 <28<..JX1>+1>,<	
	22X JUMPN A,C>,<	
		TXNE (A,..JX13)
		JRST C>>>
38	PURGE ..JX1>
IF3XNDEF .PSECT,<
	.3xIF0 <<..JX1>-1B0>4,<	
		JUMPL A,48C>,<
	.IF0 <<..J4XX1>+1>,<	
	  JUM4xPN A,C>,<	
		T5XNE (A,..JX1)
	58	JRST C>>>
	PURGE ..JX1>
	PURUbx 5x#e
	..JX1==6B		
IFDEF .PSEC68T,<
	.IFN ..JX1,6XABSOLUTE,<PRINTX 6xB NOT ABSOLUTE
7		..JX1==0>
	.IF78 ..JX1,ABSOLUTE,<7X
	.IF0 <<..JX1>-7x1B0>,<
		JUMPL 8A,C>,<
	..ONEB 88(..BT,B)	
	.IF08X ..BT,<
	  SETCM8x .SAC,A		
	  JX9E (.SAC,..JX1,C)98>,< 
	    TXNE 9XA,..JX1	
	    JR9xST C>>>
	PURGE :..JX1>
IFNDEF .P:8SECT,<
	.IF0 <<.:X.JX1>-1B0>,<
		J:xUMPL A,C>,<
	.;.ONEB (..BT,B)	
	.IF0 ..BT,<
	;;X SETCM .SAC,A		
	  JXE (.SAC,..J<X1,C)>,< 
	    <8TXNE A,..JX1	
	<X    JRST C>>>
	PURGE ..JX1>
	Y>

@ fX&7
	..STR0 fx(..LDB,A,B,C)..LDB,A,B,C)[8@ X -<1B<<A>-1>-1B<B>><A>-1[>!`  1<<A>-<<A>/<B>>*<B>>A[?7 X!
   ..MX1x==B			
IFDEF .PSECT,<
   .IFN .8.MX1,ABSOLUTE,<
X	MOVE A,[B]>
 x  .IF ..MX1,ABSOLUTE,<
	..MX2==0	8	
	IFE <..MX1>B5X3,<
	x..MX2==1
	  MOVEI A,..MX	1>	
	IFE ..MX2,<	8		
	IFE <..MX1>B	X17,<
	  ..MX2==1	x
	  MOVSI A,(..
MX1)>>	
	IFE ..M
8X2,<		
	IFE <<..
XMX1>B53-^O777777>
x,<
	  ..MX2==1
	  HRROI A,<..MX81>>>	
	IFE ..MX2X,<		
	IFE <<..MXx1>B17-^O777777B17

>,<
	  ..MX2==1

8
	  HRLOI A,(..M

XX1-^O777777)>> 


x	IFE ..MX2,<		
		MOVE A,[..MX1]
	>>

IFNDEFT,<
	..MX2
	IFE <..MX1>B53,<
	  ..MX28==1
	  MOVEI A,X..MX1>	
	IFE ..MxX2,<		
	IFE <..MX1>B17,<
	  ..MX82==1
	  MOVSI AX,(..MX1)>>	
	IFEx ..MX2,<		
	IFE <<..MX1>B53-^O7778777>,<
	  ..MX2=X=1
	  HRROI A,<x..MX1>>>	
	IFE ..MX2,<		
	IFE <<8..MX1>B17-^O77777X7B17>,<
	  ..MX2x==1
	  HRLOI A,(..MX1-^O777777)>8> 
	IFE ..MX2,<	X	
	  MOVE A,[..xMX1]>	
>
	PURGE ..MX1,..MX2RGE[N^= O8%
	A==C	OX	
	IF1,<IFDEF %OxA,<PRINTX ?A ALRPEADY DEFINED>>
	P8DEFINE %A (OP,ACPX,Y,MSK)<
	OP (<AC>,B'Y,MSK)><A_CL@ {'[
	..STR0 {8(.OPST1,<A>,<B>,C)1,<A>,<B>_CLV }8'm
	..STR0 }X(.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 8<A>,<
	TMSG <AX>>
	CALL JSMSG0>
	CALL JSMSG0a4\G ` 
	..PGV0==.		
	.JBVER=:^O 137		
	LOC	.JBVE@R		
	BYTE	(3)D(`9)A(6)B(18)C
	.ORG	..PGV0		
.ORG	..PGV0		
a>Mm X <POINT WIDx(B),A,POS(B)>B),A,POS(B)>a?  <^L<<A>&<-<A>>>><<A>&<dA  de  ,~e&:x x)JRST RSKPJRST RSKPeN^A  eN^g4X1 N(-
	.NAC==0NH
	IRP A,<
	  PNhUSH P,A		
	  .NOAC=.NAC+1>		
	.NO(1==.NAC
	SETMI .OHA16,[CAIA	
		AOSOh -.N1(P)	
	  IRPP A,<
		.N1=.N1-P(1
		MOVE A,-.N1PH(P)>  
		SUB P,[Ph.NAC,,.NAC]  
		QPOPJ P,]	
	PUSH P,.A16	
	PUSH g$;8 s8'
	..STR1 sX(..TQC,,<A>,B,..STR4)<A>,B,.g%{R ox'
	..STR1 p(..TQO,,<A>,B,..STR4)<A>,B,.g',W l&c
	..STR1 l8(..TQZ,,<A>,B,..STR4)<A>,B,.gR^h9 98+[
	..STKR=9X=10		
	RADIX 8
9x	..STKN==0
	IRP :A,<
	  .STKV1 (:8A)>
	JSP .A16,.:XSTKST
	 ..STKN,,:x..STKN
	RADIX ..;STKR
	PURGE ..ST;8KN,..STKR,..STKQ
gR~TKR,..STKQ
	..STR0 iX(..DPB,A,B,C)..DPB,A,B,C)i7p )
	HRROI .XAC1,[ASCIZ \A\]
	PSOUTZ\A\]
	    ..S TR1 (..TY,C,<A>,B,..STR3)<A>,iF "*
	    ..S"8TR1 (..TY,CA,<A>,B,..STR3)<A>iFP  X*
	..S xTR1 (..TY,CE,<A>,B,..STR3)<A>iF` !8*
	    ..S!XTR1 (..TY,CN,<A>,B,..STR3)<A>iFp x)9
	    ..STR1 (..TY,N,<A>,B,..STR3)<A>,iFt )K
	    ..S8TR1 (..TY,NA,<A>,B,..STR3)<A>iFtP X)?
	    ..SxTR1 (..TY,NE,<A>,B,..STR3)<A>iFu` 8)E
	    ..SXTR1 (..TY,NN,<A>,B,..STR3)<A>iFx x)Q
	    ..STR1 (..TY,O,<A>,B,..STR3)<A>,iF| )c
	    ..S8TR1 (..TY,OA,<A>,B,..STR3)<A>iF|P X)W
	    ..SxTR1 (..TY,OE,<A>,B,..STR3)<A>iF}` 8)]
	    ..SXTR1 (..TY,ON,<A>,B,..STR3)<A>iGP x)i
	    ..STR1 (..TY,Z,<A>,B,..STR3)<A>,iGT ){
	    ..S8TR1 (..TY,ZA,<A>,B,..STR3)<A>iGTP X)o
	    ..SxTR1 (..TY,ZE,<A>,B,..STR3)<A>iGU` 8)u
	    ..SXTR1 (..TY,ZN,<A>,B,..STR3)<A>iK4@ @8,
	..TRR==@X10		
	RADIX 8
	@x..NV==1			
	IRP AA,<
	  .TRV1 (A8A)>		
	JSP .A16,AX.TRSET		
	 ..NV-Ax1,,..NV-1
	RADIXB ..TRR		
	PURGE ..TRR,..NVURGE ib 8!{
		..TX(C,A,<B>)..TX(Cib  x"
		..TX(CA,A,<B>).TX(CibP x!
		..TX(CE,A,<B>).TX(Cib`  8"
		..TX(CN,A,<B>).TX(Cibp 8!K
		..TX(N,A,<B>)..TX(Nibt x!W
		..TX(NA,A,<B>).TX(NibtP x!O
		..TX(NE,A,<B>).TX(Nibu` 8!S
		..TX(NN,A,<B>).TX(Nibx 8![
		..TX(O,A,<B>)..TX(Oib| x!g
		..TX(OA,A,<B>).TX(Oib|P x!_
		..TX(OE,A,<B>).TX(Oib}` 8!c
		..TX(ON,A,<B>).TX(OicP 8!k
		..TX(Z,A,<B>)..TX(ZicT x!w
		..TX(ZA,A,<B>).TX(ZicTP x!o
		..TX(ZE,A,<B>).TX(ZicU` 8!s
		..TX(ZN,A,<B>).TX(Zk:*g %`*0
%%FOO==&a
	BRK0 (%%FOO,B,1)
 (%%FOO,m$,YP'm$-X5Q |m$-Z7Q xm$.zQ po&  X <^L<-<<A>_<^L<A>>>-1>>>q
fC@ 8X+E
	EXTEND A,[XBLT]XTEND q"eJ  P q6~i4 C q? 8!#
	TXC A,<B>
	TXC A,:h $9
	A:&@ j&]
	..TSIZ j8(..PST,C)
	.CASjXE ..PST,<<
		MOVjxEM A,B>,<
		HRkRM A,B>,<
		HRk8LM A,B>,<
		DPkXB A,[POINTR (B,C)]>>INTR (B,:<;Y eX&1
   DEFINexE ..CNS2 (NEW,OLDf)<
	  OLD>			
	..CNS ()>			
	:L;Y c8&)
   DEFINcXE ..CNS (ARG)<
	cx..CNS2 <ARG>,>
d
   DEFINE ..CNS2d8 (NEW,OLD)<
	DEFdXINE ..CNS (ARG)<
	  ..CNS2 <ARG>,e<OLD'NEW>>>
   OLD'NEW>>>
(i:TH 
	..JNA3(A,C,D)JNA3 :TI 
	..TSAC,C)
	.IF0 ..ACT,<
	  SETC8M .SAC,C	
	  JXXE (.SAC,D,<B>)>x,<	
	  JXO (C,D,<B>)>O (C,:TP X(
	..TSAC x(..ACT,B)	
	.IF0 ..ACT,<
	  ..T8SIZ (..PST,C)	
X	  .CASE ..PST,<<x
		SKIPN B	
		JRST A>,<
		HRR8Z .SAC,B	
		JUMXPE .SAC,A>,<
		xHLRZ .SAC,B	
		JUMPE .SAC,A>,<
		MOVE .SAC,B	
		JXE (.SAC,C,<xA>)>>>,<
	  JXE (B,C,<A>)>E:U` (C
	..TSAC 8(..ACT,B)	
	.IFX0 ..ACT,<
	  ..TxSIZ (..PST,C)
	  .CASE ..PST,<<
		SKIPE B	
		JXRST A>,<
		HRRZx .SAC,B	
		JUMPN .SAC,A>,<
		H8LRZ .SAC,B	
		JXUMPN .SAC,A>,<
x		MOVE .SAC,B	
		JXN (.SAC,C,<8A>)>>>,<
	  JXN (B,C,<A>)>N :Uh) 
8(]
	..TSAC 
X(..ACT,B)
	.IF0
x ..ACT,<
	  SETCM .SAC,B	
	  JX8N (.SAC,C,<A>)>X,<	
	  JXF (B,C,<A>)>F (B,:Ukh 8)
	..JN (A,C,D)..JN (:Uki x)
	..JE (<B>,C,D)JE (<:dH@ g8&G
	..TSIZ gX(..PST,C)
	.CASgxE ..PST,<<
		MOVhE A,B>,<
		HRRh8Z A,B>,<
		HLRhXZ A,B>,<
		LDBhx A,[POINTR (B,C)]>>INTR (B,:}i1 LX$g
	A==<<<Lx-<B>>&<B>>&<1B<^L<B>>>>>&<1B<;LH Q%
	IFNDEF Q8C,<PRINTX ?C ISQX NOT DEFINED
	  QxA (<B>,D,.FWORRD)>	
	IFDEF C,<R8
	IFNDEF %C,<
RX	  A (<B>,D,CRx)>	
	IFDEF %C,<S
	  %C (A,<B>,D,C)>>A,<B>;LH SX%W

	..NS==0Sx			
	IRP C,<..NTS=..NS+1>	
	IFE T8..NS,<PRINTX ?EMPTXTY STRUCTURE LISTTx, A>
	IFE ..NS-U1,<		
	  ..STR0 U8(A,<B>,<C>,D)UX>
	IFG ..NS-1,<	Ux	
	..ICNS			
	.V.CNS (<E (A,<BV8>,,>) 
	IRP C,<VX		
	  IFNDEF C,Vx<PRINTX C NOT DEWFINED>
	  IFDEF W8C,<
	  IFNDEF %WXC,<
	  ..CNS (<Wx,C,D>)>	
	  IFXDEF %C,<
	  %CX8 (..STR2,,D,C)>XX 
	  ..CNS (<)>)Xx		
	  ..GCNS		
Y	  ..ICNS		
	  .Y8.CNS (<E (A,<BYX>>) 
	  IFNDEF %YxC,<
	  ..CNS (<Z,C,D>)>	
	  IFZ8DEF %C,<
	  %CZX (..STR2,,D,C)>Zx>> 
	..CNS (<,,)>)		
	..GCNS>);LI [8%[
	..CNS (<,C,B>).CNS (;LI [x%q


	IFDIF <\D><F>,<
	  IFN\8B <D>,<
	    A\X (<B>,D,..MSK)	\x
	    IFNB <F>,]<PRINTX C AND E]8 ARE IN DIFFERENT]X WORDS>>
	  ..MS]xK==0>		
	IFNB <^F>,<
	  ..MSK=..MSK!<E>>MSK=..;LJ ^X&


	IFDIF <^xD><F>,<	
	  IF_NB <D>,<
	    _8A (<B>,D,..MSK)_X>	
	  ..MSK==0>	_x	
	IFNB <F>,<
`	  ..MSK=..MSK!<E>>MSK=..MSK!<;LJ `X&


	IFDIF <`xD><F>,<	
	  IFaNB <D>,<
	    Ia8FNB <F>,<		
		aXA1 (B,D,..MSK)>ax 
	    IFB <F>,b<		
		A2 (B,Db8,..MSK)>> 
	  ..bXMSK==0>		
	IFNB bx<F>,<
	  ..MSK=..MSK!<E>>MSK=;&` t'1
	..TSIZ t8(..PST,C)
	.IF0tX ..PST,<		
		SETtxCMM B>,<	
	u8..uTSAC (..ACT,B)	
	uX.IF0 ..ACT,<
		MOVX .SAC,C
ux		XORM .SAC,B>,<v
		..TX(C,B,C)>>..TX(C,B,C);&` pX'
	..TSIZ px(..PST,C)
	.CASqE ..PST,<<
		SETq8OM B>,<
		HLLOSqX B>,<
		HRROS qxB>,<
	  ..TSAC (r..ACT,B)
	  .IFr80 ..ACT,<
		MOVXrX .SAC,C
		IORM rx.SAC,B>,<
		..TX (O,B,C)>>>T;&@ lx&{
	..TSIZ m(..PST,C)	
	.CAm8SE ..PST,<<
		SEmXTZM B>,<	
		HLLmxZS B>,<	
		HRRZnS B>,<	
	  ..TSn8AC (..ACT,B)	
	nX  .IF0 ..ACT,<
	nx	MOVX .SAC,C	
	o	ANDCAM .SAC,B>,o8<
		..TX (Z,B,C)>>>TX (Z,B,;&81 I$a
	IFNDEF I8.PSECT,<
	A==0	IX		
	..TSA1==<Z IxB>		
	  IFE ..TSJA1&^O777777777760J8,<A==1> 
	>
	IJXFDEF .PSECT,<
	JxA==0			
	..TSA1=K=<Z B>		
	.IF .K8.TSA1,ABSOLUTE,<	KX
	  IFE ..TSA1&^KxO777777777760,<AL==1>> 
	PURGE ..TSA1>
	PURGE ..;&:= GX$E
	A==3		Gx	
	IFE <B>+1,<HA=0>	
	IFE <B>-H8^O777777,<A==1> HX
	IFE <B>-^O777777B17,<A==2>7;' x"5
   ..TX1==C			
IFDEF .P8SECT,<
   .IFN .X.TX1,ABSOLUTE,<
x	TDA B,[C]>
 8  .IF ..TX1,ABSOLUTE,<		
	..TX2==X0		
	IFE <..TX1&x^O777777B17>,<
	  ..TX2==1		
	  8TRA B,..TX1>
	XIFE ..TX2,<		
	IxFE <..TX1&^O777777>,<
	  ..TX2==18		
	  TLA B,(.X.TX1)>>
	IFE ..TxX2,<		
	  IFE <<..TX1>B53-^O77777!87>,< 
	    ..TX3!X (A,B)>>	
	IFE!x ..TX2,<		
	  TD"A B,[..TX1]>	
"8	PURGE ..TX1,..TX"X2>>
IFNDEF .PSEC"xT,<
	..TX2==0		
	IFE <..TX1&^O77#87777B17>,<
	  ..#XTX2==1		
	  TRA#x B,..TX1>
	IFE $..TX2,<		
	IFE <$8..TX1&^O777777>,<$X
	  ..TX2==1		
$x	  TLA B,(..TX1%)>>
	IFE ..TX2,<%8		
	  IFE <<..TX%X1>B53-^O777777>,<%x 
	    ..TX3 (A&,B)>>	
	IFE ..T&8X2,<		
	  TDA &XB,[..TX1]>	
	PURGE ..TX1,..TX2>;'` '"K
	IFIDN <'8A><Z>,<		
	  ..'XTX2==1
	  ANDI 'xB,^-..TX1>	
	IFI(DN <A><O>,<		
	(8  ..TX2==1
	(xOR(XCMI B,^-..TX1>	
	IFIDN <A><C>,<)		
	  ..TX2==1
)8	  EQVI B,^-..TX1>QVI B,^-..TX;' 8)
	..TSAC X(..ACT,B)	
	.IFx0 ..ACT,<
		PRINTX ?TQA - B NOT8 IN AC>,<
		TXA B,C>
		TXA
`P P  P 0P d  JH,T
	.ACV2 (A)
	.ACV2 (d@ K,^
	A=.FPAK(C+..NAC		
	IFB <KHB>,<..NAC=..NAC+Kh1>
	IFNB <B>,<..NAC=..NAC+B>.d` L(,n
	IFG A-LH.NPAC,<PRINTX ?TOLhO MANY ACS USED>
	IFLE A-4,<
	 M( JSP .A16,.SAVA>MH	
	IFG A-4,<
	Mh  JSP .A16,.SAV8>JSP .A16,.SAV8>):A  ):9:A  9:9  EX$7
	..CSN==ExA
	..CSC==0
	IFRP B,<
	IFE ..CF8SN-..CSC,<
	  STFXOPI
	  ..CAS1 (FxB)>
	..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 yX'U
	..PST==yxC&<-C>
	.IF0 .z.PST-1,<
		SOS z8B>,<	
		MOVX .SAzXC,-..PST 
		ADDM .SAC,B>		ADDMP `P =|RQ &2 D8$)
	..IFT==DXA		
	IFE ..IFT,Dx<
	B
	..IFT==0E>		
	IFN ..IFT,<
	C>N ..IFT,<&t<H w8'C
	..PST==wXC&<-C>	
	.IF0 wx..PST-1,<
		AOS xB>,<	
		MOVX .Sx8AC,..PST	
		ADDM .SAC,B>		ADDM&tj7Q ?2DQ x6MiTQ @;`P ?= {x'g
	..TSIZ |(..PST,C)
	.IF0|8 ..PST,<
		A B|X>,<	
		..LDB .SA|xC,B,C 
		A .SAC>C 
		A .S?=	 ~'{
	..TSIZ ~8(..PST,C)
	.IF0~X ..PST,<
		A B~x>,<	
		..LDB .SAC,B,C
		A .SA8C
		..DPB .SAC,B,C>DPB .SAC,JDP'K%,z x )<<<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 ;x+_
	.STKV2 (A)
	.STKV2 O%=I <8+m
	IFB <B<X>,<..STKN==..STKN<x+1>
	IFNB <B>,<=..STKN==..STKN+B=8>
	..STKQ==..STK=XN+1
	.STKV3 (A,\..STKQ)V3 (A,O%=I >+{
   IFDEF>8 A,<.IF A,SYMBO>XL,<PRINTX STKVAR >xA ALREADY DEFINE?D>>
	DEFINE A<-?8^OB(P)>
	$A==<Z A>>
	$A==<S):A  S):S9:A  S9:Sd  BX,
	.TRV2 (A)
	.TRV2 (Sd@ C,
	.TRV3 (C8A,\..NV)	
	IFB CX<B>,<..NV=..NV+1Cx>
	IFNB <B>,<..NV=..NV+B>,<..Sd` D8,-
   IFDEFDX A,<.IF A,SYMBODxL,<PRINTX TRVAR EA ALREADY DEFINEDE8>>
	DEFINE A<^OEXB(.FP)>
	$A==<Z A>>
	$A==<>}{woP