Google
 
Trailing-Edge - PDP-10 Archives - de-10-omona-v-mc9 - macsym.unv
There are 97 other files named macsym.unv in the archive. Click here to see a list.
x
,i@P C4@ (D
	..NAC==((0		
	IRP A,<
	(H  .ACV1 (A)>		
	.ACV3 (\..NAC)C:' (*
	TXZ A,<^-<B>>TXZ A,CO,,@ $X7
	..TRR==$x10		
	RADIX 8
	%..NV==1			
	IRP %8A,<
	  .TRV1 (%XA)>		
	IFG ..NV-%x5,<PRINTX ?TOO MA&NY ARGUMENTS: A>&8
	JSP .A16,.ASSE&XT		
	RADIX ..TRR&x		
	PURGE ..TRR,..NVURGE ..TRR,Ge@ ,GeLR +I  j(T
	..STR0 jH(.DECR0,,<A>,B)DECR0,,<A>,B)I6= >h
	A==<-1?B<C>+1B<C-D>> ?(
	IF1,<IFDEF %A?H,<PRINTX ?A ALRE?hADY DEFINED>>
	D@EFINE %A (OP,AC,@(Y,MSK)<
	OP (<AC>,B'Y,MSK)><ACKJn9`  ,
	ERJMP	[@TMSG <? A>
		 JSHLT]
A>
		 JKc  4
   IF2,< 
	IRP A,<
	IFN@DEF A,<EXTERN A
	SUPPRE A>>>M2  v0<A>B<POS(B)><A>B<POS(M7p H0
	HRROI .hAC2,[ASCIZ \A\]
	MOVEI .AC3,0
	SOUTI .AC3,0
	S:  hB
	..STR0 h((.INCR0,,<A>,B)INCR0,,<A>,B)S? h&
	TXO A,<B>
	TXO A,Ut@ }Hp
	..STR1 }h(..JAN,<d,<C>>,~<A>,B,..STR5)
d:B,..STR5)
U q(


	..STR1 qH(..JE,<C>,<A>,B,..STR3)<A>,U8 uh0
	..STR1v(..JN,<C>,<A>,B,..STR3)<A>,U:
	..STR1 {((..JNA3,<C>,<A>,B,..STR4)<A>U:~  h

	..STR1 (..JNO,<d,<C>>,(<A>,B,..STR5)
d:B,..STR5)
U? z(T
	..STR1 zH(..JN,<C>,<A>,B,..STR4)<A>,UN.,@ H<
	CALL JSERR0
	CALL JSUN.,HA  UN.,HUNEM @
	CALL JSHLT0
	CALL JSUNEMA  UNEMUb( (
	..JX1==HB		
IFDEF .PSEChT,<
	.IFN ..JX1,ABSOLUTE,<PRINTX (B NOT ABSOLUTE
H		..JX1==0>
	.IFh ..JX1,ABSOLUTE,<
	.IF0 <<..JX1>-(1B0>,<	
		JUMPGEH A,C>,<
	.IF0 h<<..JX1>+1>,<	
	  JUMPE A,C>,<	(
		TXNN (A,..JXH1)
		JRST C>>>
	PURGE ..JX1>
IFNDEF .PSECT,<
	(.IF0 <<..JX1>-1B0H>,<	
		JUMPGE Ah,C>,<
	.IF0 <<. .JX1>+1>,<	
	  J (UMPE A,C>,<	
	hH	TXNN (A,..JX1)
		JRST C>>>
	PURGE ..JX1>
	PUb0 .H*
	..JX1==.hB		
IFDEF .PSEC/T,<
	.IFN ..JX1,/(ABSOLUTE,<PRINTX /HB NOT ABSOLUTE
/h		..JX1==0>
	.IF0 ..JX1,ABSOLUTE,<0(
	.IF0 <<..JX1>-0H1B0>,<
		JUMPGE 0hA,C>,<
	..ONEB1 (..BT,B)	
	.IF1(0 ..BT,<
	  SETC1HM .SAC,A		
	  J1hXN (.SAC,..JX1,C2)>,< 
	    TXNN 2(A,..JX1	
	    J2HRST C>>>
	PURGE2h ..JX1>
IFNDEF .3PSECT,<
	.IF0 <<3(..JX1>-1B0>,<
		3HJUMPGE A,C>,<
3h	..ONEB (..BT,B)4	
	.IF0 ..BT,<
4(	  SETCM .SAC,A	4H	
	  JXN (.SAC,.4h.JX1,C)>,< 
	5(5  TXNN A,..JX1	
	  JRST C>>>
	PURGE..JX1>
	..JX1==!HB		
IFDEF .PSEC!hT,<
	.IFN ..JX1,"ABSOLUTE,<PRINTX "(B NOT ABSOLUTE
"H		..JX1==0>
	.IF"h ..JX1,ABSOLUTE,<#
	.IF0 <<..JX1>-#(1B0>,<	
		JUMPL #HA,C>,<
	.IF0 <#h<..JX1>+1>,<	
	$$ JUMPN A,C>,<	
		TXNE (A,..JX1$H)
		JRST C>>>
$h	PURGE ..JX1>
IF%NDEF .PSECT,<
	.%(IF0 <<..JX1>-1B0>%H,<	
		JUMPL A,%hC>,<
	.IF0 <<..J&X1>+1>,<	
	  JUM&(PN A,C>,<	
		T&HXNE (A,..JX1)
	&h	JRST C>>>
	PURGE ..JX1>
	PURUbx '(p
	..JX1=='HB		
IFDEF .PSEC'hT,<
	.IFN ..JX1,(ABSOLUTE,<PRINTX ((B NOT ABSOLUTE
(H		..JX1==0>
	.IF(h ..JX1,ABSOLUTE,<)
	.IF0 <<..JX1>-)(1B0>,<
		JUMPL )HA,C>,<
	..ONEB )h(..BT,B)	
	.IF0* ..BT,<
	  SETCM*( .SAC,A		
	  JX*HE (.SAC,..JX1,C)*h>,< 
	    TXNE +A,..JX1	
	    JR+(ST C>>>
	PURGE +H..JX1>
IFNDEF .P+hSECT,<
	.IF0 <<.,.JX1>-1B0>,<
		J,(UMPL A,C>,<
	.,H.ONEB (..BT,B)	
	.IF0 ..BT,<
	-- SETCM .SAC,A		
	  JXE (.SAC,..J-HX1,C)>,< 
	    -hTXNE A,..JX1	
	.    JRST C>>>
	PURGE ..JX1>
	Y>

@ XB
	..STR0 X((..LDB,A,B,C)..LDB,A,B,C)[8@ w81B<<A>-1>-1B<B><<A>-1>[>!` wH<<A-<A/B>*B><A-<A/B[?7 x"
   ..MX1x(==B			
IFDEF .PxHSECT,<
   .IFN .xh.MX1,ABSOLUTE,<
y	MOVE A,[B]>
 y(  .IF ..MX1,ABSOLyHUTE,<
	..MX2==0	yh	
	IFE <..MX1>B5z3,<
	z(..MX2==1
	  MOVEI A,..MXzH1>	
	IFE ..MX2,<zh		
	IFE <..MX1>B{17,<
	  ..MX2==1{(
	  MOVSI A,(..{HMX1)>>	
	IFE ..M{hX2,<		
	IFE <<..|MX1>B53-^O777777>|(,<
	  ..MX2==1
|H	  HRROI A,<..MX|h1>>>	
	IFE ..MX2},<		
	IFE <<..MX}(1>B17-^O777777B17}H>,<
	}h..MX2==1
	  HRLOI A,(..M~X1-^O777777)>> 
~(	IFE ..MX2,<		
	~H  MOVE A,[..MX1]~h>	
	>>

IFNDEF .PSECT,<
	..MX2(==0		
	IFE <..MXH1>B53,<
	  ..MX2h==1
	  MOVEI A,..MX1>	
	IFE ..M(X2,<		
	IFE <..MHX1>B17,<
	  ..MXh2==1
	  MOVSI A,(..MX1)>>	
	IFE( ..MX2,<		
	IFE H<<..MX1>B53-^O777h777>,<
	  ..MX2==1
	  HRROI A,<(..MX1>>>	
	IFE .H.MX2,<		
	IFE <<h..MX1>B17-^O777777B17>,<
	  ..MX2(==1
	  HRLOI A,H(..MX1-^O777777)>h> 
	IFE ..MX2,<		
	  MOVE A,[..(MX1]>	
>
	PURGE ..MX1,..MX2RGE[N^= @h
	A==C	A	
	IF1,<IFDEF %A(A,<PRINTX ?A ALRAHEADY DEFINED>>
	AhDEFINE %A (OP,ACB,Y,MSK)<
	OP (<AC>,B'Y,MSK)><A_CL@ lHf
	..STR0 lh(.OPST1,<A>,<B>,C)1,<A>,<B>_CLV nhx
	..STR0 o(.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= H8
   IFNB h<A>,<
	TMSG <A>>
	CALL JSMSG0>
	CALL JSMSG0a4\G qP
	..PGV0=qp=.		
	.JBVER=:13r7		
	LOC	.JBVER	r0	
	BYTE	(3)D(9)rPA(6)B(18)C
	.ORG	..PGV0		
.a>Mm u(,<POINT WIDuH(B),A,POS(B)>B),A,POS(B)>a? th&<^L<<A>&<-<A>>>><<A>&<dA  de  ,~e&:x ("
	JRST RSKP
	JRST RSeN^A  eN^g4X1 ,h|
	.NAC==0-
	IRP A,<
	  P-(USH P,A		
	  .N-HAC=.NAC+1>		
	.N-h1==.NAC
	SETMI ..A16,[CAIA	
		AOS.( -.N1(P)	
	  IRP.H A,<
		.N1=.N1-.h1
		MOVE A,-.N1/(P)>  
		SUB P,[/(.NAC,,.NAC]  
		/HPOPJ P,]	
	PUSH P,.A16	
	PUSH g$;8 dh(
	..STR1 e(..TQC,,<A>,B,..STR4)<A>,B,.g%{R a(


	..STR1 aH(..TQO,,<A>,B,..STR4)<A>,B,.g',W ]Hn
	..STR1 ]h(..TQZ,,<A>,B,..STR4)<A>,B,.gR^h9 xO
	..STKR==10		
	RADIX 8
8	..STKN==0
	IRP XA,<
	  .STKV1 (xA)>
	JSP .A16,.STKST
	 ..STKN,,8..STKN
	RADIX ..XSTKR
	PURGE ..STxKN,..STKR,..STKQ
gR~TKR,..STKQ
	..STR0 [(..DPB,A,B,C)..DPB,A,B,C)i7p H(
	HRROI .AC1,[ASCIZ \A\]
	PSOUTZ\A\]


	    ..SHTR1 (..TY,C,<A>,B,..STR3)<A>,iF H
	    ..ShTR1 (..TY,CA,<A>,B,..STR3)<A>iFP 
	    ..S(TR1 (..TY,CE,<A>,B,..STR3)<A>iF` h
	    ..STR1 (..TY,CN,<A>,B,..STR3)<A>iFp (D
	    ..SHTR1 (..TY,N,<A>,B,..STR3)<A>,iFt 
HV
	    ..S
hTR1 (..TY,NA,<A>,B,..STR3)<A>iFtP 	J
	    ..S	(TR1 (..TY,NE,<A>,B,..STR3)<A>iFu` 	hP
	    ..S
TR1 (..TY,NN,<A>,B,..STR3)<A>iFx (\
	n..SHTR1 (..TY,O,<A>,B,..STR3)<A>,iF| 
	TR1 ..SY,OA,<A>,B,..STR3)<A>iF|P 

b
	    ..S

(TR1 (..TY,OE,<A>,B,..STR3)<A>iF}` 

hh
	TR1 ..SY,ON,<A>,B,..STR3)<A>iGP (t
	    ..SHTR1 (..TY,Z,<A>,B,..STR3)<A>,iGT H
	    ..ShTR1 (..TY,ZA,<A>,B,..STR3)<A>iGTP z
	    ..S(TR1 (..TY,ZE,<A>,B,..STR3)<A>iGU` h
	    ..STR1 (..TY,ZN,<A>,B,..STR3)<A>iK4@ x
	..TRR==10		
	RADIX 8
	8..NV==1			
	IRP XA,<
	  .TRV1 (xA)>		
	JSP .A16, .TRSET		
	 ..NV- 81,,..NV-1
	RADIX X ..TRR		
	PURGE ..TRR,..NVURGE ib h
		..TX(C,A,<B>)..TX(Cib (
		..TX(CA,A,<B>).TX(CibP (

		..TX(CE,A,<B>).TX(Cib` h
		..TX(CN,A,<B>).TX(Cibp 
hV
		..TX(N,A,<B>)..TX(Nibt 

(b
		..TX(NA,A,<B>).TX(NibtP (Z
		..TX(NE,A,<B>).TX(Nibu` h^
		..TX(NN,A,<B>).TX(Nibx 

hf
		..TX(O,A,<B>)..TX(Oib| (r
		..TX(OA,A,<B>).TX(Oib|P 
		..TX(OE,A,<B>).TX(Oib}` 
		..TX(ON,A,<B>).TX(OicP hv
		..TX(Z,A,<B>)..TX(ZicT (
		..TX(ZA,A,<B>).TX(ZicTP (z
		..TX(ZE,A,<B>).TX(ZicU` h~
		..TX(ZN,A,<B>).TX(Zm$,YP'm$-X5Q |m$-Z7Q xm$.zQ po&  t("<^L<-<<A>_<^L<A>>>-1>>>q
f@ 9
	EXTEND A,[020000,,0] q+= +
q6~i4 C q? h.
	TXC A,<B>
	TXC A,qN5P +:h D
	Ar:&@ [Hh
	..TSIZ [h(..PST,C)
	.CAS\E ..PST,<<
		MOV\(EM A,B>,<
		HR\HRM A,B>,<
		HR\hLM A,B>,<
		DP]B A,[POINTR (B,C)]>>INTR (B,:<;Y W<
   DEFINW(E ..CNS2 (NEW,OLDWH)<
	  OLD>			
	..CNS ()>			
	:L;Y Th4
   DEFINUE ..CNS (ARG)<
	U(..CNS2 <ARG>,>
UH
   DEFINE ..CNS2Uh (NEW,OLD)<
	DEFVINE ..CNS (ARG)<
	  ..CNS2 <ARG>,VH<OLD'NEW>>>
   OLD'NEW>>>
   :TH ~Ht
	..JNA3 (A,C,D)JNA3 :TI 
	..TSAC ((..ACT,C)
	.IF0H ..ACT,<
	  SETChM .SAC,C	
	  JXE (.SAC,D,<B>)>(,<	
	  JXO (C,D,<B>)>O (C,:TP r*
	..TSAC r((..ACT,B)	
	.IFrH0 ..ACT,<
	  ..TrhSIZ (..PST,C)	
s	  .CASE ..PST,<<s(
		SKIPN B	
		sHJRST A>,<
		HRRshZ .SAC,B	
		JUMtPE .SAC,A>,<
		t(HLRZ .SAC,B	
		tHJUMPE .SAC,A>,<
		MOVE .SAC,B	
		JXE (.SAC,C,<u(A>)>>>,<
	  JXE (B,C,<A>)>E:U` vHN
	..TSAC vh(..ACT,B)	
	.IFw0 ..ACT,<
	  ..Tw(SIZ (..PST,C)
	wH  .CASE ..PST,<<
		SKIPE B	
		JxRST A>,<
		HRRZx( .SAC,B	
		JUMPxHN .SAC,A>,<
		HxhLRZ .SAC,B	
		JyUMPN .SAC,A>,<
y(		MOVE .SAC,B	
yH		JXN (.SAC,C,<yhA>)>>>,<
	  JXN (B,C,<A>)>N :Uh) {hh
	..TSAC |(..ACT,B)
	.IF0|( ..ACT,<
	  SETC|HM .SAC,B	
	  JX|hN (.SAC,C,<A>)>},<	
	  JXF (B,C,<A>)>F (B,:Ukh h
	..JN (A,C,D)..JN (:Uki (
	..JE (<B>,C,D)JE (<:dH@ XhR
	..TSIZ Y(..PST,C)
	.CASY(E ..PST,<<
		MOVYHE A,B>,<
		HRRYhZ A,B>,<
		HLRZZ A,B>,<
		LDBZ( A,[POINTR (B,C)]>>INTR (B,:}i1 >r
	A==<<<>(-<B>>&<B>>&<1B<^L<B>>>>>&<1B<;LH BH$
	IFNDEF BhC,<PRINTX C IS CNOT DEFINED
	  C(A (<B>,D,.FWORDCH)>	
	IFDEF C,<
	IFNDEF %C,<
	D  A (<B>,D,C)D(>	
	IFDEF %C,<
	  %C (A,<B>,D,C)>>A,<B>,;LH Eb

	..NS==0E(			
	IRP C,<..NEHS=..NS+1>	
	IFE Eh..NS,<PRINTX ?EMPFTY STRUCTURE LISTF(, A>
	IFE ..NS-FH1,<		
	  ..STR0 Fh(A,<B>,<C>,D)G>
	IFG ..NS-1,<	G(	
	..ICNS			
	.GH.CNS (<E (A,<BGh>,,>) 
	IRP C,<H		
	  IFNDEF C,H(<PRINTX C NOT DEHHFINED>
	  IFDEF HhC,<
	  IFNDEF %IC,<
	  ..CNS (<I(,C,D>)>	
	  IFIHDEF %C,<
	  %CIh (..STR2,,D,C)>J 
	  ..CNS (<)>)J(		
	  ..GCNS		
JH	  ..ICNS		
	  .Jh.CNS (<E (A,<BK>>) 
	  IFNDEF %K(C,<
	  ..CNS (<KH,C,D>)>	
	  IFKhDEF %C,<
	  %CL (..STR2,,D,C)>L(>> 
	..CNS (<,,)>)		
	..GCNS>);LI Lhf
	..CNS (<,C,B>).CNS (;LI M(|


	IFDIF <MHD><F>,<
	  IFNMhB <D>,<
	    AN (<B>,D,..MSK)	N(
	    IFNB <F>,NH<PRINTX C AND ENh ARE IN DIFFERENTO WORDS>>
	  ..MSO(K==0>		
	IFNB <OHF>,<
	  ..MSK=..MSK!<E>>MSK=..;LJ P




	IFDIF <P(D><F>,<	
	  IFPHNB <D>,<
	    PhA (<B>,D,..MSK)Q>	
	  ..MSK==0>	Q(	
	IFNB <F>,<
QH	  ..MSK=..MSK!<E>>MSK=..MSK!<;LJ R"


	IFDIF <R(D><F>,<	
	  IFRHNB <D>,<
	    IRhFNB <F>,<		
		SA1 (B,D,..MSK)>S( 
	    IFB <F>,SH<		
		A2 (B,DSh,..MSK)>> 
	  ..TMSK==0>		
	IFNB T(<F>,<
	  ..MSK=..MSK!<E>>MSK=;&` eH<
	..TSIZ eh(..PST,C)
	.IF0f ..PST,<		
		SETf(CMM B>,<	
	fh..fHTSAC (..ACT,B)	
	g.IF0 ..ACT,<
		MOVX .SAC,C
g(		XORM .SAC,B>,<gH
		..TX(C,B,C)>>..TX(C,B,C);&` b"
	..TSIZ b((..PST,C)
	.CASbHE ..PST,<<
		SETbhOM B>,<
		HLLOSc B>,<
		HRROS c(B>,<
	  ..TSAC (cH..ACT,B)
	  .IFch0 ..ACT,<
		MOVXd .SAC,C
		IORM d(.SAC,B>,<
		..TX (O,B,C)>>>T;&@ ^(
	..TSIZ ^H(..PST,C)	
	.CA^hSE ..PST,<<
		SE_TZM B>,<	
		HLL_(ZS B>,<	
		HRRZ_HS B>,<	
	  ..TS_hAC (..ACT,B)	
	`  .IF0 ..ACT,<
	`(	MOVX .SAC,C	
	`H	ANDCAM .SAC,B>,`h<
		..TX (Z,B,C)>>>TX (Z,B,;&81 :Hl
	IFNDEF :h.PSECT,<
	A==0	;		
	..TSA1==<Z ;(B>		
	  IFE ..TS;HA1&^O777777777760;h,<A==1> 
	>
	I<FDEF .PSECT,<
	<(A==0			
	..TSA1=<H=<Z B>		
	.IF .<h.TSA1,ABSOLUTE,<	=
	  IFE ..TSA1&^=(O777777777760,<A=H==1>> 
	PURGE ..TSA1>
	PURGE ..;&:= 9P
	A==3		9(	
	IFE <B>+1,<9HA=0>	
	IFE <B>-9h^O777777,<A==1> :
	IFE <B>-^O777777B17,<A==2>7;' (@
   ..TX1H==C			
IFDEF .PhSECT,<
   .IFN ..TX1,ABSOLUTE,<
(	TDA B,[C]>
 h  .IF ..TX1,ABSOLHUTE,<		
	..TX2==0		
	IFE <..TX1&(^O777777B17>,<
	H  ..TX2==1		
	  hTRA B,..TX1>
		IFE ..TX2,<		
	I	(FE <..TX1&^O77777	H7>,<
	  ..TX2==1	h		
	  TLA B,(.
.TX1)>>
	IFE ..T
(X2,<		
	  IFE <<
H..TX1>B53-^O77777h7>,< 
	    ..TX3 (A,B)>>	
	IFE( ..TX2,<		
	  TDHA B,[..TX1]>	
h	PURGE ..TX1,..TX2>>
IFNDEF .PSEC(T,<
	..TX2==0		
	IFE <..TX1&^O77h7777B17>,<
	  ..TX2==1		
	  TRA( B,..TX1>
	IFE H..TX2,<		
	IFE <h..TX1&^O777777>,<
	  ..TX2==1		
(	  TLA B,(..TX1H)>>
	IFE ..TX2,<h		
	  IFE <<..TX1>B53-^O777777>,<( 
	    ..TX3 (AH,B)>>	
	IFE ..ThX2,<		
	  TDA B,[..TX1]>	
	PURGE ..TX1,..TX2>;'` HV
	IFIDN <hA><Z>,<		
	  ..TX2==1
	  ANDI (B,^-..TX1>	
	IFIHDN <A><O>,<		
	h  ..TX2==1
	(ORCMI B,^-..TX1>	
	IFIDN <A><C>,<H		
	  ..TX2==1
h	  EQVI B,^-..TX1>QVI B,^-..TX;' h
	..TSAC (..ACT,B)	
	.IF(0 ..ACT,<
		PRINHTX ?TQA - B NOTh IN AC>,<
		TXA B,C>
		TXA
`P P  P 0P d  )H
	.ACV2 (A)
	.ACV2 (d@ )HR
	A=.FPA)hC+..NAC		
	IFB <*B>,<..NAC=..NAC+*(1>
	IFNB <B>,<..NAC=..NAC+B>.d` *hb
	IFG A-+.NPAC,<PRINTX ?TO+(O MANY ACS USED>
	IFLE A-4,<
	 +h JSP .A16,.SAVA>,	
	IFG A-4,<
	,(  JSP .A16,.SAV8>JSP .A16,.SAV8>):A  ):9:A  9:9  7B
	..CSN==7(A
	..CSC==0
	I7HRP B,<
	IFE ..C7hSN-..CSC,<
	  ST8OPI
	  ..CAS1 (8(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 k`
	..PST==k(C&<-C>
	.IF0 .kH.PST-1,<
		SOS khB>,<	
		MOVX .SAlC,-..PST 
		ADDM .SAC,B>		ADDMP `P =|RQ &2 5h4
	..IFT==6A		
	IFE ..IFT,6(<
	B
	..IFT==06H>		
	IFN ..IFT,<
	C>N ..IFT,<&t<H hhN
	..PST==iC&<-C>	
	.IF0 i(..PST-1,<
		AOS iHB>,<	
		MOVX .SihAC,..PST	
		ADDM .SAC,B>		ADDM&tj7Q ?2DQ x6MiTQ @;`P ?= m(r
	..TSIZ mH(..PST,C)
	.IF0mh ..PST,<
		A Bn>,<	
		..LDB .SAn(C,B,C 
		A .SAC>C 
		A .S?=	 oH
	..TSIZ oh(..PST,C)
	.IF0p ..PST,<
		A Bp(>,<	
		..LDB .SApHC,B,C
		A .SAphC
		..DPB .SAC,B,C>DPB .SAC,JDP'K%,z vH4<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 8S
	.STKV2 (A)
	.STKV2 O%=I xa
	IFB <B>,<..STKN==..STKN8+1>
	IFNB <B>,<X..STKN==..STKN+Bx>
	..STKQ==..STKN+1
	.STKV3 (A,\..STKQ)V3 (A,O%=I Xo
   IFDEFx A,<.IF A,SYMBOL,<PRINTX STKVAR 8A ALREADY DEFINEXD>>
	DEFINE A<-x^OB(P)>
	$A==<Z A>>
	$A==<S):A  S):S9:A  S9:Sd  !	
	.TRV2 (A)
	.TRV2 (Sd@ !X
	.TRV3 (!xA,\..NV)	
	IFB "<B>,<..NV=..NV+1"8>
	IFNB <B>,<..NV=..NV+B>,<..Sd` "x!
   IFDEF# A,<.IF A,SYMBO#8L,<PRINTX TRVAR #XA ALREADY DEFINED#x>>
	DEFINE A<^O$B(.FP)>
	$A==<Z A>>
	$A==<>}{woP