Google
 
Trailing-Edge - PDP-10 Archives - BB-4160E-BM - sort-development/macsym.unv
There are 97 other files named macsym.unv in the archive. Click here to see a list.
x
,m@P C4@ 78+?
	..NAC==7X0		
	IRP A,<
	7x  .ACV1 (A)>		
	.ACV3 (\..NAC)C:'  
	TXZ A,<^-<B>>TXZ A,CO,,@ 4+2
	..TRR==4(10		
	RADIX 8
	4H..NV==1			
	IRP 4hA,<
	  .TRV1 (5A)>		
	IFG ..NV-5(5,<PRINTX ?TOO MA5HNY ARGUMENTS: A>5h
	JSP .A16,.ASSE6T		
	RADIX ..TRR6(		
	PURGE ..TRR,..NVURGE ..TRR,EJMj' h)WG
W0.==A
W1.==B				;INITPIALIZE BREAK MASKp
W2.==C
W3.==D
==C
W3.==,;)D0,
	,0QAB (,0    ..SEJZ h)8	V22==a
	V1==a
	IFNB <(B>,<V22==B>
REPHEAT V22-<a>+1,<	h
	%%W==V1/^D32	
	%%X==V1-%%W*^D3(2	
	IFE C,BRKC1H \"<%%W+"0">	
	IhFN C,BRKC2 \"<%%W+"0">
	V1==V1+1
		   >
=V1+1EJ\4  H)<	WA.==WA.!<1B<%%X>>
AEJ\4@ )B	WA.==WA(.&<-1-1B<%%X>>
&<-1-1B<%%X>>
EJ\: h)	BRK1 (a,B,0)
RK1 (a,EJn:g 0)e

	BRINI. AP,B,C,D	
	IRPCp E,<	UNBRK. "E">	
	IRPC F,<	BR0KCH. "F">	
	EXPP W0.,W1.,W2.,W3.		
W1.,W2.,W3.	Ge@ ,GeLR +I  g&;
	..STR0 g0(.DECR0,,<A>,B)DECR0,,<A>,B)I6= ;P#i
	A==<-1;pB<C>+1B<C-D>> <
	IF1,<IFDEF %A<0,<PRINTX ?A ALRE<PADY DEFINED>>
	D<pEFINE %A (OP,AC,=Y,MSK)<
	OP (<AC>,B'Y,MSK)><ACKJn9` )
	ERJMP	[(TMSG <? A>
		 JSHLT]
A>
		 JKc  h)
   IF2,<
	IRP A,<
	IFN(DEF A,<EXTERN A
	SUPPRE A>>>M2  rP<<<A>B<POS(B)>>&<B>>POM2$*g !*/
	..XX==<!0FLD(A,CM%FNC)>+!PB+<Z G>
   IFNB!p <D>,<..XX=CM%HP"P!..XX>
   IFNB "0<E>,<..XX=CM%DPP"P!..XX>
   IFNB <"pF>,<..XX=CM%BRK!#..XX>
	..XX
   #0IFNB <C>,<C>
 #P  IFB <C>,<0>
 #p  IFNB <D>,<POIN$T 7,[ASCIZ \D\]>$0
   IFB <D>,<IF$PNB <EF>,<0>>
 $p  IFB <E>,<IFNB %<F>,<0>>
   IFN%0B <E>,<POINT 7,[%PASCIZ \E\]>
   %pIFNB <F>,<F>
    <F>,<F>
 M2$HG *


	..XX==<0FLD(A,CM%FNC)>+PB+<Z F>
   IFNBp <D>,<..XX=CM%HPP!..XX>
   IFNB 0<E>,<..XX=CM%DPPP!..XX>
	..XX
  p IFNB <C>,<C>
   IFB <C>,<0>
0   IFNB <D>,<POIPNT 7,[ASCIZ \D\]p>
   IFB <D>,<I FNB <E>,<0>>
   0 IFNB <E>,<POINT P 7,[ASCIZ \E\]>7,[ASCIZ \E\]>M7p 0(
	HRROI .PAC2,[ASCIZ \A\]
	MOVEI .AC3,0
	SOUTI .AC3,0
	S:  dp&)
	..STR0 e(.INCR0,,<A>,B)INCR0,,<A>,B)S? P 
	TXO A,<B>
	TXO A,Ut@ z0'W
	..STR1 zP(..JAN,<d,<C>>,zp<A>,B,..STR5)
d:B,..STR5)
U n&s
	..STR1 n0(..JE,<C>,<A>,B,..STR3)<A>,U8 rP'
	..STR1rp(..JN,<C>,<A>,B,..STR3)<A>,U:
	..STR1 x(..JNA3,<C>,<A>,B,..STR4)<A>U:~  }P'q
	..STR1 }p(..JNO,<d,<C>>,~<A>,B,..STR5)
d:B,..STR5)
U? w';
	..STR1 w0(..JN,<C>,<A>,B,..STR4)<A>,UN.,@ 0(#
	CALL JSERR0
	CALL JSUN.,HA  UN.,HUNEM p('
	CALL JSHLT0
	CALL JSUNEMA  UNEMUb( !m
	..JX1==0B		
IFDEF .PSECPT,<
	.IFN ..JX1,pABSOLUTE,<PRINTX B NOT ABSOLUTE
0		..JX1==0>
	.IFP ..JX1,ABSOLUTE,<p
	.IF0 <<..JX1>-1B0>,<	
		JUMPGE0 A,C>,<
	.IF0 P<<..JX1>+1>,<	
	p  JUMPE A,C>,<	
		TXNN (A,..JX01)
		JRST C>>>
	PURGE ..JX1>
IpFNDEF .PSECT,<
	.IF0 <<..JX1>-1B00>,<	
		JUMPGE AP,C>,<
	.IF0 <<.p.JX1>+1>,<	
	  JUMPE A,C>,<	
	0	TXNN (A,..JX1)
		JRST C>>>
	PURGE ..JX1>
	PUb0 +0#
	..JX1==+PB		
IFDEF .PSEC+pT,<
	.IFN ..JX1,,ABSOLUTE,<PRINTX ,0B NOT ABSOLUTE
,P		..JX1==0>
	.IF,p ..JX1,ABSOLUTE,<-
	.IF0 <<..JX1>--01B0>,<
		JUMPGE -PA,C>,<
	..ONEB-p (..BT,B)	
	.IF.0 ..BT,<
	  SETC.0M .SAC,A		
	  J.PXN (.SAC,..JX1,C.p)>,< 
	    TXNN /A,..JX1	
	    J/0RST C>>>
	PURGE/P ..JX1>
IFNDEF ./pPSECT,<
	.IF0 <<0..JX1>-1B0>,<
		00JUMPGE A,C>,<
0P	..ONEB (..BT,B)0p	
	.IF0 ..BT,<
1	  SETCM .SAC,A	10	
	  JXN (.SAC,.1P.JX1,C)>,< 
	21p  TXNN A,..JX1	
	  JRST C>>>
	PURGE..JX1>
	..JX1==0B		
IFDEF .PSECPT,<
	.IFN ..JX1,pABSOLUTE,<PRINTX B NOT ABSOLUTE
0		..JX1==0>
	.IFP ..JX1,ABSOLUTE,<p
	.IF0 <<..JX1>- 1B0>,<	
		JUMPL  0A,C>,<
	.IF0 < P<..JX1>+1>,<	
	! p JUMPN A,C>,<	
		TXNE (A,..JX1!0)
		JRST C>>>
!P	PURGE ..JX1>
IF!pNDEF .PSECT,<
	."IF0 <<..JX1>-1B0>"0,<	
		JUMPL A,"PC>,<
	.IF0 <<..J"pX1>+1>,<	
	  JUM#PN A,C>,<	
		T#0XNE (A,..JX1)
	#P	JRST C>>>
	PURGE ..JX1>
	PURUbx $"W
	..JX1==$0B		
IFDEF .PSEC$PT,<
	.IFN ..JX1,$pABSOLUTE,<PRINTX %B NOT ABSOLUTE
%0		..JX1==0>
	.IF%P ..JX1,ABSOLUTE,<%p
	.IF0 <<..JX1>-&1B0>,<
		JUMPL &0A,C>,<
	..ONEB &P(..BT,B)	
	.IF0&p ..BT,<
	  SETCM' .SAC,A		
	  JX'0E (.SAC,..JX1,C)'P>,< 
	    TXNE 'pA,..JX1	
	    JR(ST C>>>
	PURGE (0..JX1>
IFNDEF .P(PSECT,<
	.IF0 <<.(p.JX1>-1B0>,<
		J)UMPL A,C>,<
	.)0.ONEB (..BT,B)	
	.IF0 ..BT,<
	*)p SETCM .SAC,A		
	  JXE (.SAC,..J*0X1,C)>,< 
	    *PTXNE A,..JX1	
	*p    JRST C>>>
	PURGE ..JX1>
	Y>

@ Tp%)
	..STR0 U(..LDB,A,B,C)..LDB,A,B,C)[8@ sp<1B<<A>-1>-1B<B>><A>-1[>!` t0#<<A>-<<A>/<B>>*<B>>A[?7 tp 	
   ..MX1u==B			
IFDEF .Pu0SECT,<
   .IFN .uP.MX1,ABSOLUTE,<
up	MOVE A,[B]>
 v  .IF ..MX1,ABSOLv0UTE,<
	..MX2==0	vP	
	IFE <..MX1>B5vp3,<
	w..MX2==1
	  MOVEI A,..MXw01>	
	IFE ..MX2,<wP		
	IFE <..MX1>Bwp17,<
	  ..MX2==1x
	  MOVSI A,(..x0MX1)>>	
	IFE ..MxPX2,<		
	IFE <<..xpMX1>B53-^O777777>y,<
	  ..MX2==1
y0	  HRROI A,<..MXyP1>>>	
	IFE ..MX2yp,<		
	IFE <<..MXz1>B17-^O777777B17z0>,<
	zP..MX2==1
	  HRLOI A,(..MzpX1-^O777777)>> 
{	IFE ..MX2,<		
	{0  MOVE A,[..MX1]{P>	
	>>

IFNDEF{p .PSECT,<
	..MX2|==0		
	IFE <..MX|01>B53,<
	  ..MX2|P==1
	  MOVEI A,|p..MX1>	
	IFE ..M}X2,<		
	IFE <..M}0X1>B17,<
	  ..MX}P2==1
	  MOVSI A}p,(..MX1)>>	
	IFE~ ..MX2,<		
	IFE ~0<<..MX1>B53-^O777~P777>,<
	  ..MX2=~p=1
	  HRROI A,<..MX1>>>	
	IFE .0.MX2,<		
	IFE <<P..MX1>B17-^O77777p7B17>,<
	  ..MX2==1
	  HRLOI A,0(..MX1-^O777777)>P> 
	IFE ..MX2,<	p	
	  MOVE A,[..MX1]>	
>
	PURGE ..MX1,..MX2RGE[N^= =P#w
	A==C	=p	
	IF1,<IFDEF %>A,<PRINTX ?A ALR>0EADY DEFINED>>
	>PDEFINE %A (OP,AC>p,Y,MSK)<
	OP (<AC>,B'Y,MSK)><A_CL@ i0&M
	..STR0 iP(.OPST1,<A>,<B>,C)1,<A>,<B>_CLV kP&_
	..STR0 kp(.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= 0(
   IFNB P<A>,<
	TMSG <Ap>>
	CALL JSMSG0>
	CALL JSMSG0a4\G ny
	..PGV0=n8=.		
	.JBVER=:13nX7		
	LOC	.JBVER	nx	
	BYTE	(3)D(9)oA(6)B(18)C
	.ORG	..PGV0		
.a>Mm qp<POINT WIDr(B),A,POS(B)>B),A,POS(B)>a? q0<^L<<A>&<-<A>>>><<A>&<dA  de  ,~e&:x (	
	JRST RSKP
	JRST RSeN^A  eN^g4X1 <+w
	.NAC==0<8
	IRP A,<
	  P<XUSH P,A		
	  .N<xAC=.NAC+1>		
	.N=1==.NAC
	SETMI .=8A16,[CAIA	
		AOS=X -.N1(P)	
	  IRP=x A,<
		.N1=.N1->1
		MOVE A,-.N1>8(P)>  
		SUB P,[>X.NAC,,.NAC]  
		>xPOPJ P,]	
	PUSH P,.A16	
	PUSH g$;8 aP&
	..STR1 ap(..TQC,,<A>,B,..STR4)<A>,B,.g%{R ^%s
	..STR1 ^0(..TQO,,<A>,B,..STR4)<A>,B,.g',W Z0%U
	..STR1 ZP(..TQZ,,<A>,B,..STR4)<A>,B,.gR^h9 '(*J
	..STKR='H=10		
	RADIX 8
'h	..STKN==0
	IRP (A,<
	  .STKV1 (((A)>
	JSP .A16,.(HSTKST
	 ..STKN,,(h..STKN
	RADIX ..)STKR
	PURGE ..ST)(KN,..STKR,..STKQ
gR~TKR,..STKQ
	..STR0 Wp(..DPB,A,B,C)..DPB,A,B,C)i7p 0(
	HRROI .pAC1,[ASCIZ \A\]
	PSOUTZ\A\]
	    ..S0TR1 (..TY,C,<A>,B,..STR3)<A>,iF 0)
	    ..SPTR1 (..TY,CA,<A>,B,..STR3)<A>iFP p(y
	    ..STR1 (..TY,CE,<A>,B,..STR3)<A>iF` P(
	    ..SpTR1 (..TY,CN,<A>,B,..STR3)<A>iFp (+
	    ..S0TR1 (..TY,N,<A>,B,..STR3)<A>,iFt 0(=
	    ..SPTR1 (..TY,NA,<A>,B,..STR3)<A>iFtP p(1
	    ..STR1 (..TY,NE,<A>,B,..STR3)<A>iFu` P(7
	    ..SpTR1 (..TY,NN,<A>,B,..STR3)<A>iFx (C
	    ..S0TR1 (..TY,O,<A>,B,..STR3)<A>,iF| 
0(U
	    ..S
PTR1 (..TY,OA,<A>,B,..STR3)<A>iF|P p(I
	    ..S	TR1 (..TY,OE,<A>,B,..STR3)<A>iF}` 	P(O
	    ..S	pTR1 (..TY,ON,<A>,B,..STR3)<A>iGP ([
	(m..S0TR1 (..TY,Z,<A>,B,..STR3)<A>,iGT 
	TR1 ..SY,ZA,<A>,B,..STR3)<A>iGTP p(a
	    ..S

TR1 (..TY,ZE,<A>,B,..STR3)<A>iGU` 

P(g
	    ..S

pTR1 (..TY,ZN,<A>,B,..STR3)<A>iK4@ .(+
	..TRR==.H10		
	RADIX 8
	.h..NV==1			
	IRP /A,<
	  .TRV1 (/(A)>		
	JSP .A16,/H.TRSET		
	 ..NV-/h1,,..NV-1
	RADIX0 ..TRR		
	PURGE..TRR,..NVURGE ib 
		..TX(C,A,<B>)..TX(Cib  y
		..TX(CA,A,<B>).TX(CibP  q
		..TX(CE,A,<B>).TX(Cib` P u
		..TX(CN,A,<B>).TX(Cibp P =
		..TX(N,A,<B>)..TX(Nibt 	 I
		..TX(NA,A,<B>).TX(NibtP  A
		..TX(NE,A,<B>).TX(Nibu` P E
		..TX(NN,A,<B>).TX(Nibx 	P M
		..TX(O,A,<B>)..TX(Oib|  Y
		..TX(OA,A,<B>).TX(Oib|P 
 Q
		..TX(OE,A,<B>).TX(Oib}` 
P U
		..TX(ON,A,<B>).TX(OicP P ]
		..TX(Z,A,<B>)..TX(ZicT 
		..TX(ZA,A,<B>).TX(ZicTP 

 a
		..TX(ZE,A,<B>).TX(ZicU` 

P e
		..TX(ZN,A,<B>).TX(Zk:*g ()"	BRK1 (a,B,1)
RK1 (a,m$,YP'm$-X5Q |m$-Z7Q xm$.zQ po&  pp<^L<-<<A>_<^L<A>>>-1>>>q
f@ &H*4
	EXTEND A,[020000,,0] q+= +
q6~i4 C q? P 
	TXC A,<B>
	TXC A,qN5P +:h #+
	A,:&@ X0%O
	..TSIZ XP(..PST,C)
	.CASXpE ..PST,<<
		MOVYEM A,B>,<
		HRY0RM A,B>,<
		HRYPLM A,B>,<
		DPYpB A,[POINTR (B,C)]>>INTR (B,:<;Y Sp%#
   DEFINTE ..CNS2 (NEW,OLDT0)<
	  OLD>			
	..CNS ()>			
	:L;Y QP%
   DEFINQpE ..CNS (ARG)<
	R..CNS2 <ARG>,>
R0
   DEFINE ..CNS2RP (NEW,OLD)<
	DEFRpINE ..CNS (ARG)<
	  ..CNS2 <ARG>,S0<OLD'NEW>>>
   OLD'NEW>>>
   :TH {0'[
	..JNA3 (A,C,D)JNA3 :TI {p'i
	..TSAC |(..ACT,C)
	.IF0|0 ..ACT,<
	  SETC|PM .SAC,C	
	  JX|pE (.SAC,D,<B>)>},<	
	  JXO (C,D,<B>)>O (C,:TP np'
	..TSAC o(..ACT,B)	
	.IFo00 ..ACT,<
	  ..ToPSIZ (..PST,C)	
op	  .CASE ..PST,<<p
		SKIPN B	
		p0JRST A>,<
		HRRpPZ .SAC,B	
		JUMppPE .SAC,A>,<
		qHLRZ .SAC,B	
		q0JUMPE .SAC,A>,<
		MOVE .SAC,B	
		JXE (.SAC,C,<rA>)>>>,<
	  JXE (B,C,<A>)>E:U` s0'5
	..TSAC sP(..ACT,B)	
	.IFsp0 ..ACT,<
	  ..TtSIZ (..PST,C)
	t0  .CASE ..PST,<<
		SKIPE B	
		JtpRST A>,<
		HRRZu .SAC,B	
		JUMPu0N .SAC,A>,<
		HuPLRZ .SAC,B	
		JupUMPN .SAC,A>,<
v		MOVE .SAC,B	
v0		JXN (.SAC,C,<vPA>)>>>,<
	  JXN (B,C,<A>)>N :Uh) xP'O
	..TSAC xp(..ACT,B)
	.IF0y ..ACT,<
	  SETCy0M .SAC,B	
	  JXyPN (.SAC,C,<A>)>yp,<	
	  JXF (B,C,<A>)>F (B,:Ukh ~P'u
	..JN (A,C,D)..JN (:Uki 'y
	..JE (<B>,C,D)JE (<:dH@ UP%9
	..TSIZ Up(..PST,C)
	.CASVE ..PST,<<
		MOVV0E A,B>,<
		HRRVPZ A,B>,<
		HLRVpZ A,B>,<
		LDBW A,[POINTR (B,C)]>>INTR (B,:}i1 :p#Y
	A==<<<;-<B>>&<B>>&<1B<^L<B>>>>>&<1B<;LH ?0$
	IFNDEF ?PC,<PRINTX C IS ?pNOT DEFINED
	  @A (<B>,D,.FWORD@0)>	
	IFDEF C,<
	IFNDEF %C,<
	@p  A (<B>,D,C)A>	
	IFDEF %C,<
	  %C (A,<B>,D,C)>>A,<B>,;LH Ap$I

	..NS==0B			
	IRP C,<..NB0S=..NS+1>	
	IFE BP..NS,<PRINTX ?EMPBpTY STRUCTURE LISTC, A>
	IFE ..NS-C01,<		
	  ..STR0 CP(A,<B>,<C>,D)Cp>
	IFG ..NS-1,<	D	
	..ICNS			
	.D0.CNS (<E (A,<BDP>,,>) 
	IRP C,<Dp		
	  IFNDEF C,E<PRINTX C NOT DEE0FINED>
	  IFDEF EPC,<
	  IFNDEF %EpC,<
	  ..CNS (<F,C,D>)>	
	  IFF0DEF %C,<
	  %CFP (..STR2,,D,C)>Fp 
	  ..CNS (<)>)G		
	  ..GCNS		
G0	  ..ICNS		
	  .GP.CNS (<E (A,<BGp>>) 
	  IFNDEF %HC,<
	  ..CNS (<H0,C,D>)>	
	  IFHPDEF %C,<
	  %CHp (..STR2,,D,C)>I>> 
	..CNS (<,,)>)		
	..GCNS>);LI IP$M
	..CNS (<,C,B>).CNS (;LI J$c


	IFDIF <J0D><F>,<
	  IFNJPB <D>,<
	    AJp (<B>,D,..MSK)	K
	    IFNB <F>,K0<PRINTX C AND EKP ARE IN DIFFERENTKp WORDS>>
	  ..MSLK==0>		
	IFNB <L0F>,<
	  ..MSK=..MSK!<E>>MSK=..;LJ Lp$s


	IFDIF <MD><F>,<	
	  IFM0NB <D>,<
	    MPA (<B>,D,..MSK)Mp>	
	  ..MSK==0>	N	
	IFNB <F>,<
N0	  ..MSK=..MSK!<E>>MSK=..MSK!<;LJ Np%	


	IFDIF <OD><F>,<	
	  IFO0NB <D>,<
	    IOPFNB <F>,<		
		OpA1 (B,D,..MSK)>P 
	    IFB <F>,P0<		
		A2 (B,DPP,..MSK)>> 
	  ..PpMSK==0>		
	IFNB Q<F>,<
	  ..MSK=..MSK!<E>>MSK=;&` b0&#
	..TSIZ bP(..PST,C)
	.IF0bp ..PST,<		
		SETcCMM B>,<	
	cP..c0TSAC (..ACT,B)	
	cp.IF0 ..ACT,<
		MOVX .SAC,C
d		XORM .SAC,B>,<d0
		..TX(C,B,C)>>..TX(C,B,C);&` ^p&	
	..TSIZ _(..PST,C)
	.CAS_0E ..PST,<<
		SET_POM B>,<
		HLLOS_p B>,<
		HRROS `B>,<
	  ..TSAC (`0..ACT,B)
	  .IF`P0 ..ACT,<
		MOVX`p .SAC,C
		IORM a.SAC,B>,<
		..TX (O,B,C)>>>T;&@ [%m
	..TSIZ [0(..PST,C)	
	.CA[PSE ..PST,<<
		SE[pTZM B>,<	
		HLL\ZS B>,<	
		HRRZ\0S B>,<	
	  ..TS\PAC (..ACT,B)	
	\p  .IF0 ..ACT,<
	]	MOVX .SAC,C	
	]0	ANDCAM .SAC,B>,]P<
		..TX (Z,B,C)>>>TX (Z,B,;&81 70#S
	IFNDEF 7P.PSECT,<
	A==0	7p		
	..TSA1==<Z 8B>		
	  IFE ..TS80A1&^O7777777777608P,<A==1> 
	>
	I8pFDEF .PSECT,<
	9A==0			
	..TSA1=90=<Z B>		
	.IF .9P.TSA1,ABSOLUTE,<	9p
	  IFE ..TSA1&^:O777777777760,<A:0==1>> 
	PURGE ..TSA1>
	PURGE ..;&:= 5p#7
	A==3		6	
	IFE <B>+1,<60A=0>	
	IFE <B>-6P^O777777,<A==1> 6p
	IFE <B>-^O777777B17,<A==2>7;' !'
   ..TX10==C			
IFDEF .PPSECT,<
   .IFN .p.TX1,ABSOLUTE,<
	TDA B,[C]>
 P  .IF ..TX1,ABSOL0UTE,<		
	..TX2==p0		
	IFE <..TX1&^O777777B17>,<
	0  ..TX2==1		
	  PTRA B,..TX1>
	pIFE ..TX2,<		
	IFE <..TX1&^O7777707>,<
	  ..TX2==1P		
	  TLA B,(.p.TX1)>>
	IFE ..TX2,<		
	  IFE <<0..TX1>B53-^O77777P7>,< 
	    ..TX3p (A,B)>>	
	IFE ..TX2,<		
	  TD0A B,[..TX1]>	
P	PURGE ..TX1,..TXp2>>
IFNDEF .PSECT,<
	..TX2==0		
	IFE <..TX1&^O77P7777B17>,<
	  ..pTX2==1		
	  TRA B,..TX1>
	IFE 0..TX2,<		
	IFE <P..TX1&^O777777>,<p
	  ..TX2==1		
	  TLA B,(..TX10)>>
	IFE ..TX2,<P		
	  IFE <<..TXp1>B53-^O777777>,< 
	    ..TX3 (A0,B)>>	
	IFE ..TPX2,<		
	  TDA pB,[..TX1]>	
	PURGE ..TX1,..TX2>;'` 0!=
	IFIDN <PA><Z>,<		
	  ..pTX2==1
	  ANDI B,^-..TX1>	
	IFI0DN <A><O>,<		
	P  ..TX2==1
	ORpCMI B,^-..TX1>	
	IFIDN <A><C>,<0		
	  ..TX2==1
P	  EQVI B,^-..TX1>QVI B,^-..TX;' P(
	..TSAC p(..ACT,B)	
	.IF0 ..ACT,<
		PRIN0TX ?TQA - B NOTP IN AC>,<
		TXA B,C>
		TXA
`P P  P 0P d  88+C
	.ACV2 (A)
	.ACV2 (d@ 8x+M
	A=.FPA9C+..NAC		
	IFB <98B>,<..NAC=..NAC+9X1>
	IFNB <B>,<..NAC=..NAC+B>.d` :+]
	IFG A-:8.NPAC,<PRINTX ?TO:XO MANY ACS USED>
	IFLE A-4,<
	 ; JSP .A16,.SAVA>;8	
	IFG A-4,<
	;X  JSP .A16,.SAV8>JSP .A16,.SAV8>):A  ):9:A  9:9  3p#)
	..CSN==4A
	..CSC==0
	I40RP B,<
	IFE ..C4PSN-..CSC,<
	  ST4pOPI
	  ..CAS1 (5B)>
	..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 gp&G
	..PST==hC&<-C>
	.IF0 .h0.PST-1,<
		SOS hPB>,<	
		MOVX .SAhpC,-..PST 
		ADDM .SAC,B>		ADDMP `P =|RQ &2 2P#
	..IFT==2pA		
	IFE ..IFT,3<
	B
	..IFT==030>		
	IFN ..IFT,<
	C>N ..IFT,<&t<H eP&5
	..PST==epC&<-C>	
	.IF0 f..PST-1,<
		AOS f0B>,<	
		MOVX .SfPAC,..PST	
		ADDM .SAC,B>		ADDM&tj7Q ?2DQ x6MiTQ @;`P ?= j&Y
	..TSIZ j0(..PST,C)
	.IF0jP ..PST,<
		A Bjp>,<	
		..LDB .SAkC,B,C 
		A .SAC>C 
		A .S?=	 l0&m
	..TSIZ lP(..PST,C)
	.IF0lp ..PST,<
		A Bm>,<	
		..LDB .SAm0C,B,C
		A .SAmPC
		..DPB .SAC,B,C>DPB .SAC,JDP'K%,z s<<<A>&<Bs0>>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 )h*N
	.STKV2 (A)
	.STKV2 O%=I *(*\
	IFB <B*H>,<..STKN==..STKN*h+1>
	IFNB <B>,<+..STKN==..STKN+B+(>
	..STKQ==..STK+HN+1
	.STKV3 (A,\..STKQ)V3 (A,O%=I ,*j
   IFDEF,( A,<.IF A,SYMBO,HL,<PRINTX STKVAR ,hA ALREADY DEFINE-D>>
	DEFINE A<--(^OB(P)>
	$A==<Z A>>
	$A==<S):A  S):S9:A  S9:Sd  0H+
	.TRV2 (A)
	.TRV2 (Sd@ 1+
	.TRV3 (1(A,\..NV)	
	IFB 1H<B>,<..NV=..NV+11h>
	IFNB <B>,<..NV=..NV+B>,<..Sd` 2(+
   IFDEF2H A,<.IF A,SYMBO2hL,<PRINTX TRVAR 3A ALREADY DEFINED3(>>
	DEFINE A<^O3HB(.FP)>
	$A==<Z A>>
	$A==<>}{woP