Google
 

Trailing-Edge - PDP-10 Archives - BB-H348C-RM_1982 - swskit-v21/debugging-tools/dnsr/macsym.unv
There are 97 other files named macsym.unv in the archive. Click here to see a list.
x
,i@P C4@ 0)w
	..NAC==P0		
	IRP A,<
	p  .ACV1 (A)>		
	.ACV3 (\..NAC)C:' {P]
	TXZ A,<^-<B>>TXZ A,CO,,@ )j
	..TRR== 10		
	RADIX 8
	@..NV==1			
	IRP `A,<
	  .TRV1 (A)>		
	IFG ..NV- 5,<PRINTX ?TOO MA@NY ARGUMENTS: A>`
	JSP .A16,.ASSET		
	RADIX ..TRR 		
	PURGE ..TRR,..NVURGE ..TRR,Ge@ ,GeLR +I  `P&
	..STR0 `p(.DECR0,,<A>,B)DECR0,,<A>,B)I6= 5#5
	A==<-150B<C>+1B<C-D>> 5P
	IF1,<IFDEF %A5p,<PRINTX ?A ALRE6ADY DEFINED>>
	D60EFINE %A (OP,AC,6PY,MSK)<
	OP (<AC>,B'Y,MSK)><ACKJn9` H(^
	ERJMP	[hTMSG <? A>
		 JSHLT]
A>
		 JKc  
((f
   IF2,<
H
	IRP A,<
	IFN
hDEF A,<EXTERN A
	SUPPRE A>>>M2  l0c<A>B<POS(B)><A>B<POS(M7p {p'c
	HRROI .|AC2,[ASCIZ \A\]
	MOVEI .AC3,0
	SOUTI .AC3,0
	S:  ^0%u
	..STR0 ^P(.INCR0,,<A>,B)INCR0,,<A>,B)S? {Y
	TXO A,<B>
	TXO A,Ut@ sp'#
	..STR1 t(..JAN,<d,<C>>,t0<A>,B,..STR5)
d:B,..STR5)
U gP&?
	..STR1 gp(..JE,<C>,<A>,B,..STR3)<A>,U8 l&c
	..STR1l0(..JN,<C>,<A>,B,..STR3)<A>,U:
	..STR1 qP(..JNA3,<C>,<A>,B,..STR4)<A>U:~  w'=
	..STR1 w0(..JNO,<d,<C>>,wP<A>,B,..STR5)
d:B,..STR5)
U? pP'
	..STR1 pp(..JN,<C>,<A>,B,..STR4)<A>,UN.,@ }p'o
	CALL JSERR0
	CALL JSUN.,HA  UN.,HUNEM ~0's
	CALL JSHLT0
	CALL JSUNEMA  UNEMUb( P!9
	..JX1==pB		
IFDEF .PSECT,<
	.IFN ..JX1,0ABSOLUTE,<PRINTX PB NOT ABSOLUTE
p		..JX1==0>
	.IF ..JX1,ABSOLUTE,<0
	.IF0 <<..JX1>-P1B0>,<	
		JUMPGEp A,C>,<
	.IF0 <<..JX1>+1>,<	
	0  JUMPE A,C>,<	P
		TXNN (A,..JXp1)
		JRST C>>>
	PURGE ..JX1>
I0FNDEF .PSECT,<
	P.IF0 <<..JX1>-1B0p>,<	
		JUMPGE A,C>,<
	.IF0 <<.0.JX1>+1>,<	
	  JPUMPE A,C>,<	
	p	TXNN (A,..JX1)
		JRST C>>>
	PURGE ..JX1>
	PUb0 $p"]
	..JX1==%B		
IFDEF .PSEC%0T,<
	.IFN ..JX1,%PABSOLUTE,<PRINTX %pB NOT ABSOLUTE
&		..JX1==0>
	.IF&0 ..JX1,ABSOLUTE,<&P
	.IF0 <<..JX1>-&p1B0>,<
		JUMPGE 'A,C>,<
	..ONEB'0 (..BT,B)	
	.IF'P0 ..BT,<
	  SETC'pM .SAC,A		
	  J(XN (.SAC,..JX1,C(0)>,< 
	    TXNN (PA,..JX1	
	    J(pRST C>>>
	PURGE) ..JX1>
IFNDEF .)0PSECT,<
	.IF0 <<)P..JX1>-1B0>,<
		)pJUMPGE A,C>,<
*	..ONEB (..BT,B)*0	
	.IF0 ..BT,<
*P	  SETCM .SAC,A	*p	
	  JXN (.SAC,.+.JX1,C)>,< 
	+P+0  TXNN A,..JX1	
	  JRST C>>>
	PURGE..JX1>
	..JX1==pB		
IFDEF .PSECT,<
	.IFN ..JX1,0ABSOLUTE,<PRINTX PB NOT ABSOLUTE
p		..JX1==0>
	.IF ..JX1,ABSOLUTE,<0
	.IF0 <<..JX1>-P1B0>,<	
		JUMPL pA,C>,<
	.IF0 <<..JX1>+1>,<	
	0 JUMPN A,C>,<	
		TXNE (A,..JX1p)
		JRST C>>>
	PURGE ..JX1>
IF0NDEF .PSECT,<
	.PIF0 <<..JX1>-1B0>p,<	
		JUMPL A,C>,<
	.IF0 <<..J0X1>+1>,<	
	  JUMPPN A,C>,<	
		TpXNE (A,..JX1)
		JRST C>>>
	PURGE ..JX1>
	PURUbx P"#
	..JX1==pB		
IFDEF .PSECT,<
	.IFN ..JX1,0ABSOLUTE,<PRINTX PB NOT ABSOLUTE
p		..JX1==0>
	.IF ..JX1,ABSOLUTE,<0
	.IF0 <<..JX1>-P1B0>,<
		JUMPL pA,C>,<
	..ONEB  (..BT,B)	
	.IF0 0 ..BT,<
	  SETCM P .SAC,A		
	  JX pE (.SAC,..JX1,C)!>,< 
	    TXNE !0A,..JX1	
	    JR!PST C>>>
	PURGE !p..JX1>
IFNDEF .P"SECT,<
	.IF0 <<."0.JX1>-1B0>,<
		J"PUMPL A,C>,<
	."p.ONEB (..BT,B)	
	.IF0 ..BT,<
	##0 SETCM .SAC,A		
	  JXE (.SAC,..J#pX1,C)>,< 
	    $TXNE A,..JX1	
	$0    JRST C>>>
	PURGE ..JX1>
	Y>
@ N0$u
	..STR0 NP(..LDB,A,B,C)..LDB,A,B,C)[8@ m0k1B<<A>-1>-1B<B><<A>-1>[>!` mpo<A-<A/B>*B><A-<A/B[?7 n0U
   ..MX1nP==B			
IFDEF .PnpSECT,<
   .IFN .o.MX1,ABSOLUTE,<
o0	MOVE A,[B]>
 oP  .IF ..MX1,ABSOLopUTE,<
	..MX2==0	p	
	IFE <..MX1>B5p03,<
	pP..MX2==1
	  MOVEI A,..MXpp1>	
	IFE ..MX2,<q		
	IFE <..MX1>Bq017,<
	  ..MX2==1qP
	  MOVSI A,(..qpMX1)>>	
	IFE ..MrX2,<		
	IFE <<..r0MX1>B53-^O777777>rP,<
	  ..MX2==1
rp	  HRROI A,<..MXs1>>>	
	IFE ..MX2s0,<		
	IFE <<..MXsP1>B17-^O777777B17sp>,<
	t..MX2==1
	  HRLOI A,(..Mt0X1-^O777777)>> 
tP	IFE ..MX2,<		
	tp  MOVE A,[..MX1]u>	
	>>

IFNDEFu0 .PSECT,<
	..MX2uP==0		
	IFE <..MXup1>B53,<
	  ..MX2v==1
	  MOVEI A,v0..MX1>	
	IFE ..MvPX2,<		
	IFE <..MvpX1>B17,<
	  ..MXw2==1
	  MOVSI Aw0,(..MX1)>>	
	IFEwP ..MX2,<		
	IFE wp<<..MX1>B53-^O777x777>,<
	  ..MX2=x0=1
	  HRROI A,<xP..MX1>>>	
	IFE .xp.MX2,<		
	IFE <<y..MX1>B17-^O77777y07B17>,<
	  ..MX2yP==1
	  HRLOI A,yp(..MX1-^O777777)>z> 
	IFE ..MX2,<	z0	
	  MOVE A,[..zPMX1]>	
>
	PURGE ..MX1,..MX2RGE[N^= 7#C
	A==C	70	
	IF1,<IFDEF %7PA,<PRINTX ?A ALR7pEADY DEFINED>>
	8DEFINE %A (OP,AC80,Y,MSK)<
	OP (<AC>,B'Y,MSK)><A_CL@ bp&
	..STR0 c(.OPST1,<A>,<B>,C)1,<A>,<B>_CLV e&+
	..STR0 e0(.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= |p'k
   IFNB }<A>,<
	TMSG <A}0>>
	CALL JSMSG0>
	CALL JSMSG0a4\G gxG
	..PGV0=h=.		
	.JBVER=:13h87		
	LOC	.JBVER	hX	
	BYTE	(3)D(9)hxA(6)B(18)C
	.ORG	..PGV0		
.a>Mm kP_<POINT WIDkp(B),A,POS(B)>B),A,POS(B)>a? kY<^L<<A>&<-<A>>>><<A>&<dA  de  ,~e&:x zP'U
	JRST RSKP
	JRST RSeN^A  eN^g4X1 #*/
	.NAC==0#0
	IRP A,<
	  P#PUSH P,A		
	  .N#pAC=.NAC+1>		
	.N$1==.NAC
	SETMI .$0A16,[CAIA	
		AOS$P -.N1(P)	
	  IRP$p A,<
		.N1=.N1-%1
		MOVE A,-.N1%0(P)>  
		SUB P,[%P.NAC,,.NAC]  
		%pPOPJ P,]	
	PUSH P,.A16	
	PUSH g$;8 [%[
	..STR1 [0(..TQC,,<A>,B,..STR4)<A>,B,.g%{R WP%?
	..STR1 Wp(..TQO,,<A>,B,..STR4)<A>,B,.g',W Sp%!
	..STR1 T(..TQZ,,<A>,B,..STR4)<A>,B,.gR^h9  )
	..STKR=@=10		
	RADIX 8
`	..STKN==0
	IRP A,<
	  .STKV1 ( A)>
	JSP .A16,.@STKST
	 ..STKN,,`..STKN
	RADIX ..STKR
	PURGE ..ST KN,..STKR,..STKQ
gR~TKR,..STKQ
	..STR0 Q0(..DPB,A,B,C)..DPB,A,B,C)i7p zp'[
	HRROI .{0AC1,[ASCIZ \A\]
	PSOUTZ\A\]
	    ..SpTR1 (..TY,C,<A>,B,..STR3)<A>,iF 	p(Q
	    ..S
TR1 (..TY,CA,<A>,B,..STR3)<A>iFP 0(E
	    ..SPTR1 (..TY,CE,<A>,B,..STR3)<A>iF` 	(K
	    ..S	0TR1 (..TY,CN,<A>,B,..STR3)<A>iFp ~P'w
	    ..S~pTR1 (..TY,N,<A>,B,..STR3)<A>,iFt p(	
	    ..STR1 (..TY,NA,<A>,B,..STR3)<A>iFtP 0'}
	    ..SPTR1 (..TY,NE,<A>,B,..STR3)<A>iFu` (
	    ..S0TR1 (..TY,NN,<A>,B,..STR3)<A>iFx P(
	    ..SpTR1 (..TY,O,<A>,B,..STR3)<A>,iF| p(!
	    ..STR1 (..TY,OA,<A>,B,..STR3)<A>iF|P 0(
	    ..SPTR1 (..TY,OE,<A>,B,..STR3)<A>iF}` (
	    ..S0TR1 (..TY,ON,<A>,B,..STR3)<A>iGP P('
	    ..SpTR1 (..TY,Z,<A>,B,..STR3)<A>,iGT p(9
	    ..STR1 (..TY,ZA,<A>,B,..STR3)<A>iGTP 0(-
	    ..SPTR1 (..TY,ZE,<A>,B,..STR3)<A>iGU` (3
	    ..S0TR1 (..TY,ZN,<A>,B,..STR3)<A>iK4@  )8
	..TRR==@10		
	RADIX 8
	`..NV==1			
	IRP A,<
	  .TRV1 ( A)>		
	JSP .A16,@.TRSET		
	 ..NV-`1,,..NV-1
	RADIX ..TRR		
	PURGE ..TRR,..NVURGE ib  9
		..TX(C,A,<B>)..TX(Cib P E
		..TX(CA,A,<B>).TX(CibP P =
		..TX(CE,A,<B>).TX(Cib`  A
		..TX(CN,A,<B>).TX(Cibp  	
		..TX(N,A,<B>)..TX(Nibt P 
		..TX(NA,A,<B>).TX(NibtP P 
		..TX(NE,A,<B>).TX(Nibu`  
		..TX(NN,A,<B>).TX(Nibx  
		..TX(O,A,<B>)..TX(Oib| P %
		..TX(OA,A,<B>).TX(Oib|P P 
		..TX(OE,A,<B>).TX(Oib}`  !
		..TX(ON,A,<B>).TX(OicP  )
		..TX(Z,A,<B>)..TX(ZicT P 5
		..TX(ZA,A,<B>).TX(ZicTP P -
		..TX(ZE,A,<B>).TX(ZicU`  1
		..TX(ZN,A,<B>).TX(Zm$,YP'm$-X5Q |m$-Z7Q xm$.zQ po&  jPU<^L<-<<A>_<^L<A>>>-1>>>q
f@
	EXTEND A,[020000,,0] q+= +
q6~i4 C q? |a
	TXC A,<B>
	TXC A,qN5P +:h "w
	A:&@ Qp%
	..TSIZ R(..PST,C)
	.CASR0E ..PST,<<
		MOVRPEM A,B>,<
		HRRpRM A,B>,<
		HRSLM A,B>,<
		DPS0B A,[POINTR (B,C)]>>INTR (B,:<;Y M0$o
   DEFINMPE ..CNS2 (NEW,OLDMp)<
	  OLD>			
	..CNS ()>			
	:L;Y K$g
   DEFINK0E ..CNS (ARG)<
	KP..CNS2 <ARG>,>
Kp
   DEFINE ..CNS2L (NEW,OLD)<
	DEFL0INE ..CNS (ARG)<
	  ..CNS2 <ARG>,Lp<OLD'NEW>>>
   OLD'NEW>>>
   :TH tp''
	..JNA3 (A,C,D)JNA3 :TI u0'5
	..TSAC uP(..ACT,C)
	.IF0up ..ACT,<
	  SETCvM .SAC,C	
	  JXv0E (.SAC,D,<B>)>vP,<	
	  JXO (C,D,<B>)>O (C,:TP h0&]
	..TSAC hP(..ACT,B)	
	.IFhp0 ..ACT,<
	  ..TiSIZ (..PST,C)	
i0	  .CASE ..PST,<<iP
		SKIPN B	
		ipJRST A>,<
		HRRjZ .SAC,B	
		JUMj0PE .SAC,A>,<
		jPHLRZ .SAC,B	
		jpJUMPE .SAC,A>,<
		MOVE .SAC,B	
		JXE (.SAC,C,<kPA>)>>>,<
	  JXE (B,C,<A>)>E:U` lp'
	..TSAC m(..ACT,B)	
	.IFm00 ..ACT,<
	  ..TmPSIZ (..PST,C)
	mp  .CASE ..PST,<<
		SKIPE B	
		Jn0RST A>,<
		HRRZnP .SAC,B	
		JUMPnpN .SAC,A>,<
		HoLRZ .SAC,B	
		Jo0UMPN .SAC,A>,<
oP		MOVE .SAC,B	
op		JXN (.SAC,C,<pA>)>>>,<
	  JXN (B,C,<A>)>N :Uh) r'
	..TSAC r0(..ACT,B)
	.IF0rP ..ACT,<
	  SETCrpM .SAC,B	
	  JXsN (.SAC,C,<A>)>s0,<	
	  JXF (B,C,<A>)>F (B,:Ukh x'A
	..JN (A,C,D)..JN (:Uki xP'E
	..JE (<B>,C,D)JE (<:dH@ O%
	..TSIZ O0(..PST,C)
	.CASOPE ..PST,<<
		MOVOpE A,B>,<
		HRRPZ A,B>,<
		HLRP0Z A,B>,<
		LDBPP A,[POINTR (B,C)]>>INTR (B,:}i1 40#%
	A==<<<4P-<B>>&<B>>&<1B<^L<B>>>>>&<1B<;LH 8p#W
	IFNDEF 9C,<PRINTX C IS 90NOT DEFINED
	  9PA (<B>,D,.FWORD9p)>	
	IFDEF C,<
	IFNDEF %C,<
	:0  A (<B>,D,C):P>	
	IFDEF %C,<
	  %C (A,<B>,D,C)>>A,<B>,;LH ;0$

	..NS==0;P			
	IRP C,<..N;pS=..NS+1>	
	IFE <..NS,<PRINTX ?EMP<0TY STRUCTURE LIST<P, A>
	IFE ..NS-<p1,<		
	  ..STR0 =(A,<B>,<C>,D)=0>
	IFG ..NS-1,<	=P	
	..ICNS			
	.=p.CNS (<E (A,<B>>,,>) 
	IRP C,<>0		
	  IFNDEF C,>P<PRINTX C NOT DE>pFINED>
	  IFDEF ?C,<
	  IFNDEF %?0C,<
	  ..CNS (<?P,C,D>)>	
	  IF?pDEF %C,<
	  %C@ (..STR2,,D,C)>@0 
	  ..CNS (<)>)@P		
	  ..GCNS		
@p	  ..ICNS		
	  .A.CNS (<E (A,<BA0>>) 
	  IFNDEF %APC,<
	  ..CNS (<Ap,C,D>)>	
	  IFBDEF %C,<
	  %CB0 (..STR2,,D,C)>BP>> 
	..CNS (<,,)>)		
	..GCNS>);LI C$
	..CNS (<,C,B>).CNS (;LI CP$/

	IFDIF <CpD><F>,<
	  IFNDB <D>,<
	    AD0 (<B>,D,..MSK)	DP
	    IFNB <F>,Dp<PRINTX C AND EE ARE IN DIFFERENTE0 WORDS>>
	  ..MSEPK==0>		
	IFNB <EpF>,<
	  ..MSK=..MSK!<E>>MSK=..;LJ F0$?

	IFDIF <FPD><F>,<	
	  IFFpNB <D>,<
	    GA (<B>,D,..MSK)G0>	
	  ..MSK==0>	GP	
	IFNB <F>,<
Gp	  ..MSK=..MSK!<E>>MSK=..MSK!<;LJ H0$U

	IFDIF <HPD><F>,<	
	  IFHpNB <D>,<
	    IIFNB <F>,<		
		I0A1 (B,D,..MSK)>IP 
	    IFB <F>,Ip<		
		A2 (B,DJ,..MSK)>> 
	  ..J0MSK==0>		
	IFNB JP<F>,<
	  ..MSK=..MSK!<E>>MSK=;&` [p%o
	..TSIZ \(..PST,C)
	.IF0\0 ..PST,<		
		SET\PCMM B>,<	
	]..\pTSAC (..ACT,B)	
	]0.IF0 ..ACT,<
		MOVX .SAC,C
]P		XORM .SAC,B>,<]p
		..TX(C,B,C)>>..TX(C,B,C);&` X0%U
	..TSIZ XP(..PST,C)
	.CASXpE ..PST,<<
		SETYOM B>,<
		HLLOSY0 B>,<
		HRROS YPB>,<
	  ..TSAC (Yp..ACT,B)
	  .IFZ0 ..ACT,<
		MOVXZ0 .SAC,C
		IORM ZP.SAC,B>,<
		..TX (O,B,C)>>>T;&@ TP%9
	..TSIZ Tp(..PST,C)	
	.CAUSE ..PST,<<
		SEU0TZM B>,<	
		HLLUPZS B>,<	
		HRRZUpS B>,<	
	  ..TSVAC (..ACT,B)	
	V0  .IF0 ..ACT,<
	VP	MOVX .SAC,C	
	Vp	ANDCAM .SAC,B>,W<
		..TX (Z,B,C)>>>TX (Z,B,;&81 0p#
	IFNDEF 1.PSECT,<
	A==0	10		
	..TSA1==<Z 1PB>		
	  IFE ..TS1pA1&^O7777777777602,<A==1> 
	>
	I20FDEF .PSECT,<
	2PA==0			
	..TSA1=2p=<Z B>		
	.IF .3.TSA1,ABSOLUTE,<	30
	  IFE ..TSA1&^3PO777777777760,<A3p==1>> 
	PURGE ..TSA1>
	PURGE ..;&:= /0#
	A==3		/P	
	IFE <B>+1,</pA=0>	
	IFE <B>-0^O777777,<A==1> 00
	IFE <B>-^O777777B17,<A==2>7;' |P s
   ..TX1|p==C			
IFDEF .P}SECT,<
   .IFN .}0.TX1,ABSOLUTE,<
}P	TDA B,[C]>
 ~  .IF ..TX1,ABSOL}pUTE,<		
	..TX2==~00		
	IFE <..TX1&~P^O777777B17>,<
	~p  ..TX2==1		
	  TRA B,..TX1>
	0IFE ..TX2,<		
	IPFE <..TX1&^O77777p7>,<
	  ..TX2==1		
	  TLA B,(.0.TX1)>>
	IFE ..TPX2,<		
	  IFE <<p..TX1>B53-^O77777	7>,< 
	    ..TX3	0 (A,B)>>	
	IFE	P ..TX2,<		
	  TD	pA B,[..TX1]>	

	PURGE ..TX1,..TX
02>>
IFNDEF .PSEC
PT,<
	..TX2==0		
p
	IFE <..TX1&^O777777B17>,<
	  ..0TX2==1		
	  TRAP B,..TX1>
	IFE p..TX2,<		
	IFE <
..TX1&^O777777>,<
0
	  ..TX2==1		

P	  TLA B,(..TX1
p)>>
	IFE ..TX2,<
	1>IFE-<<..TX7>,<
	,B)..TX3 (A
	IFE ..TX2,<		
	  TDA 0B,[..TX1]>	
	PURGE ..TX1,..TX2>;'` p!	
	IFIDN <A><Z>,<		
	  ..0TX2==1
	  ANDI PB,^-..TX1>	
	IFIpDN <A><O>,<		
	  ..TX2==1
	POR0CMI B,^-..TX1>	
	IFIDN <A><C>,<p		
	  ..TX2==1
	  EQVI B,^-..TX1>QVI B,^-..TX;' y'Q
	..TSAC y0(..ACT,B)	
	.IFyP0 ..ACT,<
		PRINypTX ?TQA - B NOTz IN AC>,<
		TXA B,C>
		TXA
`P P  P 0P d  0){
	.ACV2 (A)
	.ACV2 (d@ p*
	A=.FPA C+..NAC		
	IFB < 0B>,<..NAC=..NAC+ P1>
	IFNB <B>,<..NAC=..NAC+B>.d` !*
	IFG A-!0.NPAC,<PRINTX ?TO!PO MANY ACS USED>
	IFLE A-4,<
	 " JSP .A16,.SAVA>"0	
	IFG A-4,<
	"P  JSP .A16,.SAV8>JSP .A16,.SAV8>):A  ):9:A  9:9  -0"u
	..CSN==-PA
	..CSC==0
	I-pRP B,<
	IFE ..C.SN-..CSC,<
	  ST.0OPI
	  ..CAS1 (.PB)>
	..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 a0&
	..PST==aPC&<-C>
	.IF0 .ap.PST-1,<
		SOS bB>,<	
		MOVX .SAb0C,-..PST 
		ADDM .SAC,B>		ADDMP `P =|RQ &2 ,"g
	..IFT==,0A		
	IFE ..IFT,,P<
	B
	..IFT==0,p>		
	IFN ..IFT,<
	C>N ..IFT,<&t<H _&
	..PST==_0C&<-C>	
	.IF0 _P..PST-1,<
		AOS _pB>,<	
		MOVX .S`AC,..PST	
		ADDM .SAC,B>		ADDM&tj7Q ?2DQ x6MiTQ @;`P ?= cP&%
	..TSIZ cp(..PST,C)
	.IF0d ..PST,<
		A Bd0>,<	
		..LDB .SAdPC,B,C 
		A .SAC>C 
		A .S?=	 ep&9
	..TSIZ f(..PST,C)
	.IF0f0 ..PST,<
		A BfP>,<	
		..LDB .SAfpC,B,C
		A .SAgC
		..DPB .SAC,B,C>DPB .SAC,JDP'K%,z lpg<A>B<^D70-POS(B)>B<^D70N
0@ Nd A  Nd Nd@A  Nd@Nd`A  Nd`NeA  NeNfA  NfO%<ZA  O%<ZO%<zA  O%<zO%=H `)
	.STKV2 (A)
	.STKV2 O%=I  )
	IFB <B@>,<..STKN==..STKN`+1>
	IFNB <B>,<..STKN==..STKN+B >
	..STKQ==..STK@N+1
	.STKV3 (A,\..STKQ)V3 (A,O%=I )"
   IFDEF  A,<.IF A,SYMBO@L,<PRINTX STKVAR `A ALREADY DEFINED>>
	DEFINE A<- ^OB(P)>
	$A==<Z A>>
	$A==<S):A  S):S9:A  S9:Sd  @)<
	.TRV2 (A)
	.TRV2 (Sd@ )F
	.TRV3 ( A,\..NV)	
	IFB @<B>,<..NV=..NV+1`>
	IFNB <B>,<..NV=..NV+B>,<..Sd`  )T
   IFDEF@ A,<.IF A,SYMBO`L,<PRINTX TRVAR A ALREADY DEFINED >>
	DEFINE A<^O@B(.FP)>
	$A==<Z A>>
	$A==<>}{woP