Google
 
Trailing-Edge - PDP-10 Archives - SRI_NIC_PERM_SRC_3_19910112 - mm-new/binaries/macsym.unv
There are 97 other files named macsym.unv in the archive. Click here to see a list.
x,5@P C4@ ~/x
	..NAC==~(0		
	IRP A,<
	~H  .ACV1 (A)>		
~h	.ACV3 (\..NAC)		
	DEFINE ENDAV.<.ENAV1 <A>>V.<C:$S@ >(+r
	..TAGF (<JUMPN A,>,) C:$s@ ?(+z
	..TAGF (<JUMPLE A,>,)C:$y' ?h+~
	..TAGF (<JUMPL A,>,) C:%C@ @h,
	..TAGF (<JUMPGE A,>,)C:%I' @(,
	..TAGF (<JUMPG A,>,) C:%c@ >h+v
	..TAGF (<JUMPE A,>,) C:&' B(,
	..TAGF BH(<JN <A>,<B>,>,)N <A>,<B>,>,C:&G C,
	..TAGFC((<JE <A>,<B>,>,)E <A>,<B>,>,C:' 
	TXZ A,<^-<B>>TXZ A,C:'	' A(,

	..TAGF (<JXN A,B,>,)C:'G Ah,
	..TAGF (<JXE A,B,>,)C:v:g <h+f
	TRNA
	..TAGF (JRST,)	C;< <(+b
	..TAGF (JRST,)	..TAGF CO,,@ w8/O
	..TRR==wX10		
	RADIX 8
	wx..NV==1			
	IRP xA,<
	  .TRV1 (x8A)>		
	IFG ..NV-xX5,<PRINTX ?TOO MAxxNY ARGUMENTS: A>y
	JSP .A16,.ASSEy8T		
	RADIX ..TRRyX		
	DEFINE ENDASyx.<.ENSV1 <A>>
	.ENSV1 <A>>
	E2 1
	..NA==08			
	IRP B,<
	X  .BLCL2 B>		
	xPUSH P,[..NA+1,,..NA+1]	
	PUSHJ P,A		
   SHJ PE3XG 	X0i	
	..TRR=	x=10		
	RADIX 8		
	
	..NA==2			
	
8IRP A,<
	  ..NA
X=..NA+1>		
	IRP 
xA,<
	  .BLSU1(A,\..NA)	
	  ..N8A=..NA-1>
	..NV=X=1			
	IRP B,<
	  .TRV1 (B)>		


  DEFINE ENDBS.

8 <.ENBS1 <A>
		

X.ENSV1 <B>> 
	J

xSP .A16,.ENTER
	.NV-1,,..NV-1
	RADIX ..TRR1
	EJMj' [-ag`
W0.==A
W1.==B				;INIT[xIALIZE BREAK MASK\
W2.==C
W3.==D
==C
W3.==6@-O05`0B,<
	5b0QAB (5d0    ..SEJZ Up-C	..V22==aV
	..V1==a
	IFNV0B <B>,<..V22==BVP>
REPEAT ..V22-<Vpa>+1,<	
	%%W==.W.V1/^D32	
	%%X==W0..V1-%%W*^D32	
	WPIFE C,BRKC1 \"<%Wp%W+"0">	
	IFN CX,BRKC2 \"<%%W+"0"X0>
	..V1==..V1+1
		   >
.V1+1 Xp-G	WA.==WA.!<1B<%%X>>
AEJ\4@ Y0-M	WA.==WAYP.&<-1-1B<%%X>>
&<-1-1B<%%X>>
EJ\: T0-%
%%FOO==TPa
	BRK0 (%%FOO,B,0)
 (%%FOO,EJn:g \X-o

	BRINI. A\x,B,C,D	
	IRPC] E,<	UNBRK. "E"]8>	
	IRPC F,<	BR]XKCH. "F">	
	EXP]x W0.,W1.,W2.,W3.		
W1.,W2.,W3.	Ge@ ,GeLR +I  eh&0
	..STR0 f(.DECR0,,<A>,B)DECR0,,<A>,B)I6= 9h#\
	A==<-1:B<C>+1B<C-D>> :(
	IF1,<IFDEF %A:H,<PRINTX ?A ALRE:hADY DEFINED>>
	D;EFINE %A (OP,AC,;(Y,MSK)<
	$A==<Z;H B>		
	OP (<AC>,B'Y,MSK)><AC>I<p )*
	..SVLD	(		
a:!				
  DHEFINE OD. <
b:!h				
	.POPX>			
  DEFINE LOOP. <(
	JRST a>		
  HDEFINE TOP. <a>	h	
  DEFINE ENDLP. <b>		
  DEFIN(E EXIT. <
	JRST b>T. <
	JRST K+\Y`p06)p06&p06)p06#4p06&,pp06#UN.,HK+`p06;p068p06;p0654p068,rp065UNEMK3S@ +h....UK:$Kg ),
	OD.K:%G +j....UKCm X1gDEFINE ..ExP. (LOCN,PTEXT)
	    <PRINTX Loca8tion 'LOCN': PTEXXT
	    >
	  ..ExP.(\.,<A>)
	  PURGE ..EP.
	  KJn9` RP-
	ERJMP	[RpTMSG <? A>
		 JSHLT]
A>
		 JKc  S0-
   IF2,<SP
	IRP A,<
	IFNSpDEF A,<EXTERN A
	SUPPRE A>>>M2  H|<<<A>B<POS(B)>>&<B>>POM2$*g b8.9
	..XX==<bXFLD(A,CM%FNC)>+bxB+<Z G>
   IFNBc <D>,<..XX=CM%HPc8P!..XX>
   IFNB cX<E>,<..XX=CM%DPPcx!..XX>
   IFNB <dF>,<..XX=CM%BRK!d8..XX>
	..XX
   dXIFNB <C>,<C>
 dx  IFB <C>,<0>
 e  IFNB <D>,<POINe8T 7,[ASCIZ D]>eX
   IFB <D>,<IFexNB <EF>,<0>>
 f  IFB <E>,<IFNB f8<F>,<0>>
   IFNfXB <E>,<POINT 7,[fxASCIZ \E\]>
   gIFNB <F>,<F>
    <F>,<F>
 M2$HG ^8.


	..XX==<^XFLD(A,CM%FNC)>+^xB+<0,,F>
   IFN_B <D>,<..XX=CM%H_8PP!..XX>
   IFNB_X <E>,<..XX=CM%DP_xP!..XX>
	..XX
`  IFNB <C>,<C>
`XIFB <C>,<0>
   IFNB <D>,<PO`xINT 7,[ASCIZ Da]>
   IFB <D>,<a8IFNB <E>,<0>>
 aX  IFNB <E>,<POINaxT 7,[ASCIZ \E\]>7,[ASCIZ \E\]>M7p P-
	HRROI .P0AC2,[ASCIZ \A\]
	MOVEI .AC3,0
	SOUTI .AC3,0
	M?c@ h 

  DEFINE e(C)<D>
..FO(RN==A
REPEAT BH-A+1,<
	.FORN1 h(e)
	..FORN=..FORN+1>.FORN=..FM?@ h "
  DEFINE d (B)<C>
  I(RP A,<
	.FORX1 d,A>
	.FORX1.NFh..ERR.=0		.h	
	..ENC.=0			
/	IFE B-7,			
	//( <..ENC.=^O57			
	  IFN D-^O44,</hIFN D-^O35,<IFN 0D-^O26,<IFN D-^0(O17,<IFN D-^O10,0H
		     	<IFN D0h-1<..ERR.=..ERR.!11>>>>>>
	  >
	I1(FN B-7,			
	  <1HIFE B-6,
	    <1h..ENC.=^O45			
	2    IFN D-^O44,<2(IFN D-^O36,<IFN 2HD-^O30,<IFN D-^2hO22,<IFN D-^O14,3
			<IFN D-6,<I3(FN D,<..ERR.=.ER3HR.!1>>>>>>>
	   3h >
	  IFN B-6,	4		
	    <IFE B-4(^O10,
	      <..4HENC.=^O50		
	   4h   IFN D-^O44,<I5FN D-^O34,<IFN 5(D-^O24,<IFN D-^O5H14,<IFN D-4,
		5h	<..ERR.=.ERR.!1>6>>>>
	      >
	6(    IFN B-^O10,	6H	
	      <IFE B6h-^O11,
		<..ENC.7=^O62		
		IFN D7(-^O44,<IFN D-^O37H3,<IFN D-^O22,<I7hFN D-^O11,<IFN 8D,
			<..ERR.=..8(ERR.!1>>>>>
		>
	      IFN B-^O8h11,		
		<IFE B-9^O22,
		  <..ENC9(.=^O54		
		  IFN9H B-^O44,<IFN B-9h^O22<IFN B,<..ER:R.=..ERR.!1>>>
	:(	  >
		IFN B-^O:H22,<..ERR.=..ERR.:h!2>	
		>
	     ; >
	    >
	;(>
	IFN <<C>&<-1,,;H0>>,<..ERR.=..ERR;h.!4> 
					     <
	IFN <<A>&<^O<<(-1,,770000>>>,<..<HERR.=..ERR.!<^O20<h>> 
	IFN ..ERR.,=
	  <IFN ..ERR.&=(1,<MPRNTX (G1BPT,=HIllegal byte offs=het: D)>
	  IFN >..ERR.&2,<MPRNTX >((G1BPT,Illegal by>Hte size: B)>
	 >h IFN ..ERR.&4,
	?    <MPRNTX (G1BP?(T,<Address indexe?Hd, indirect, or g?hreater than 18 bi@ts: C>)>
	  IFN@( ..ERR.&<^O20>,<M@HPRNTX (G1BPT,Sect@hion greater than A12 bits: A)>
	 A( -1,-1,-1		
	  >AH
	
	IFE ..ERR.,Ah
	  <<<..ENC.+<<BB>-<<D>/<B>>>>B(_<^O36>>!<<C>&<0BH,,-1>>!<<A>_^O<2Bh2>>>	
	PURGE ..ERR.,..ENC.
	.E6A2o^O44.>NJ
..ERR.=0		O
	O(.BSIZ.=B		
	  .BPOS.=D
	IOHFN <<A>&<^O<-1,,Oh770000>>>,
	  <MPPRNTX(G2BPT,SectiP(on greater than 1PH2 bits: A)
	  .Ph.ERR.=1
	  >
	IQFN <<C>&<^O<7777Q(40,,0>>>,
	  <MPQHRNTX(G2BPT,Bits 0Qh - 12 non-zero inR address field: R(C)
	  ..ERR.=1
RH	  >
	IFN <<E>&Rh<-1,,0>>,
	  <MPSRNTX(G2BPT,Bits 0S(-17 non-zero in oSHptional field: ESh)
	  ..ERR.=1
	T  >
	IFN <.BSIZ.T(&<^O<-1,,777700>>TH>,
	  <MPRNTX(G2ThBPT,Bytesize greaUter than 6 bits: U(B)
	UH..ERR.=1
	  >
	IFN <.BPOUhS.&<^O<-1,,777700V>>>,
	  <MPRNTX(V(G2BPT,Byte offsetVH greater than 6 bVhits: D)
	  ..ERWR.=1
	  >
	IFN W(..ERR.,<-1,-1,-1>WH		
	
	IFE ..ERRWh.,
	  <IFDIF <DX><>,<<<POINT .BSIX(Z.,E,.BPOS.>!1B1XH2>&<^O<777740,,-1Xh>>>
	  IFIDN <DY><>,<<<POINT .BSIY(Z.,E>!1B12>&<^O<YH777740,,-1>>>
	 Yh   
	    <<<C>_Z<^O14>>&<^O<37000Z(0,,0>>!<<C>&<0,,ZH-1>>!<<A>_<^O22>Zh>>
	  >
	PURGE [..ERR.,.BSIZ.,.BPOS.
	BSIZ.,.BP6C4q0ON{   X2-..ERR.=0		 x
	IFN <<A>&<^O<!-1,,770000>>>,
	!8  <MPRNTX(GFIWM,S!Xection greater th!xan 12 bits: A)
"	  ..ERR.=1
	  >"8
	IFN <<B>&<^O<"X777740,,0>>>,
	 "x <MPRNTX(GFIWM,Bi#ts 0 - 12 non-zer#8o in address fiel#Xd: B)
	  ..ERR.#x=1
	  >
	IFN ..$ERR.,<-1,-1,-1>	
				
	IFE ..ERR$X.,<
	  <<<B>_<^$xO14>>&<^O<370000,%,0>>!<<B>&<0,,-1%8>>!<<A>_<^O22>>>%X>
	PURGE ..ERR.
	PURGE..ERR.
	JUMPN (A,b		
	..SVDF		((	
   DEFINE ..TA(HGF (INST,PCT)<
	(hINST b'PCT>		
 )  DEFINE ..TAGE ()(INST,PCT)<
	INST c'PCT>		
	STS.:g &H*:
	PRINTX &h% IFESK. should b'e changed to IFNJ'(E.
	IFNJE. <A>.
	IFNJE. <A>S9` +h*j
	JUMPLE ,A,b		
	..SVDF	,(		
   DEFINE ..T,HAGF (INST,PCT)<
,h	INST b'PCT>		
-   DEFINE ..TAGE -((INST,PCT)<
	INST c'PCT>		
	SS<S@ -h*z
	JUMPL .A,b		
	..SVDF		.(	
   DEFINE ..TA.HGF (INST,PCT)<
	.hINST b'PCT>		
 /  DEFINE ..TAGE (/(INST,PCT)<
	INST c'PCT>		
	STST\G ()z

   IFB <HAB>,<		
	..SVDhF			
	ERJMP e		
	JRST c		
e:(!
   DEFINE ..TAHGF (INST,PCT)<
	hINST c'PCT>		
   DEFINE ..TAGE ((INST,PCT)<
	INSTH d'PCT>		
	>
 h  IFNB <AB>,<		
	ERJMP c		
	(B
	JRST d
c:!	A
d:!>
c:!Sa` 1h+
	JUMPGE 2A,b		
	..SVDF	2(		
   DEFINE ..T2HAGF (INST,PCT)<
2h	INST b'PCT>		
3   DEFINE ..TAGE 3((INST,PCT)<
	INST c'PCT>		
	SSdS@ /h+

	JUMPG 0A,b		
	..SVDF		0(	
   DEFINE ..TA0HGF (INST,PCT)<
	0hINST b'PCT>		
 1  DEFINE ..TAGE (1(INST,PCT)<
	INST c'PCT>		
	STSq` )h*Z
	JUMPE *A,b		
	..SVDF		*(	
   DEFINE ..TA*HGF (INST,PCT)<
	*hINST b'PCT>		
 +  DEFINE ..TAGE (+(INST,PCT)<
	INST c'PCT>		
	STSt\g h*
	PRINTX  % IFNES. should b (e changed to IFJE HR.
	IFJER. <A>,<B>FJER. <A>,Su)' #h*0
   IFB <$A>,<		
	..SVDF	$(		
	ERJMP b
  $H DEFINE ..TAGF (I$hNST,PCT)<
	INST %b'PCT>		
   DEF%(INE ..TAGE (INST,%HPCT)<
	INST c'P%hCT>		
	>
   IFN&B <A>,<
	ERJMP b
	A
b:!> Sv:g h)^
   IFB <AB>,<		
	..SVD(F			
	TRNA			
	HJRST c		
   DEFhINE ..TAGF (INST,PCT)<
	INST c'P(CT>		
   DEFINE H..TAGE (INST,PCT)h<
	INST d'PCT>		
	>
   IFNB <(AB>,<		
	JRST Hc		
	B
	JRST hd
c:!	A
d:!>
c:!	A
d:!>S

S@ 7h+L
	JN <A>8,<B>,c	
	..SVD8(F			
   DEFINE .8H.TAGF (INST,PCT)<8h
	INST c'PCT>		9
   DEFINE ..TAG9(E (INST,PCT)<
	I9HNST d'PCT>		
	ST d'PCT>		
	S :+^
	JE <A>:(,<B>,c	
	..SVD:HF			
   DEFINE .:h.TAGF (INST,PCT)<;
	INST c'PCT>		;(
   DEFINE ..TAG;HE (INST,PCT)<
	I;hNST d'PCT>		
	ST d'PCT>		
	S< !*
   IFB <!(A>,<		
	..SVDF	!H		
	JRST b
   !hDEFINE ..TAGF (IN"ST,PCT)<
	INST "(b'PCT>		
   DEFI"HNE ..TAGE (INST,P"hCT)<
	INST c'PC#T>		
	>
   IFNB#( <A>,<
	JRST b
	A
b:!> bSDS@ 3h+*
	JXN A,4B,c	
	..SVDF		4(	
   DEFINE ..TA4HGF (INST,PCT)<
	4hINST c'PCT>		
 5  DEFINE ..TAGE (5(INST,PCT)<
	INST d'PCT>		
	STSEc@ 5h+:
	JXE A,6B,c	
	..SVDF		6(	
   DEFINE ..TA6HGF (INST,PCT)<
	6hINST c'PCT>		
 7  DEFINE ..TAGE (7(INST,PCT)<
	INST d'PCT>		
	STS:  cH&
	..STR0ch(.INCR0,,<A>,B)INCR0,,<A>,B)S? 
	TXO A,<B>
	TXO A,Ut@ y'L
	..STR1 y((..JAN,<d,<C>>,yH<A>,B,..STR5)
d:B,..STR5)
U lh&h
	..STR1 m(..JE,<C>,<A>,B,..STR3)<A>,U8 q('


	..STR1qH(..JN,<C>,<A>,B,..STR3)<A>,U:
	..STR1 vh(..JNA3,<C>,<A>,B,..STR4)<A>U:~  |('f
	..STR1 |H(..JNO,<d,<C>>,|h<A>,B,..STR5)
d:B,..STR5)
U? uh'0
	..STR1 v(..JN,<C>,<A>,B,..STR4)<A>,UN.,@`p06 p06p06 p06,p06,pp06UN.,HUN.,HA  UN.,HUNEM`p062p06/p062p06,,p06/,rp06,UNEMUNEMA  UNEMUNn9hA  UNn9hUb( !H"$
	..JX1==!hB		
	.IFN ..JX1",ABSOLUTE,<PRINTX"( B NOT ABSOLUTE
		..JX1==0>
	.I"hF ..JX1,ABSOLUTE,#<
	.IF0 <<..JX1>#(-1B0>,<	
		JUMPG#HE A,C>,<
	.IF0#h <<..JX1>+1>,<	
$	  JUMPE A,C>,<$(	
		TXNN (A,..J$HX1)
		JRST C>>>)
		JRST C>>>Ub0 ,H#
	..JX1==,hB		
	.IFN ..JX1-,ABSOLUTE,<PRINTX-( B NOT ABSOLUTE
		..JX1==0>
	.I-hF ..JX1,ABSOLUTE,.<
	.IF0 <<..JX1>.(-1B0>,<
		JUMPGE.H A,C>,<
	..ONE.hB (..BT,B)	
	.I/F0 ..BT,<
	  SET/(CM .SAC,A		
	  /HJXN (.SAC,..JX1,/hC)>,< 
	    TXNN0 A,..JX1	
	    JRST C>>>	    Ubp %"@
	..JX1==%(B		
	.IFN ..JX1%H,ABSOLUTE,<PRINTX%h B NOT ABSOLUTE
		..JX1==0>
	.I&(F ..JX1,ABSOLUTE,&H<
	.IF0 <<..JX1>&h-1B0>,<	
		JUMPL' A,C>,<
	.IF0 '(<<..JX1>+1>,<	
	'H  JUMPN A,C>,<	'h
		TXNE (A,..JX(1)
		JRST C>>>)
		JRST C>>>Ubx (H"`
	..JX1==(hB		
	.IFN ..JX1),ABSOLUTE,<PRINTX)( B NOT ABSOLUTE
		..JX1==0>
	.I)hF ..JX1,ABSOLUTE,*<
	.IF0 <<..JX1>*(-1B0>,<
		JUMPL *HA,C>,<
	..ONEB*h (..BT,B)	
	.IF+0 ..BT,<
	  SETC+(M .SAC,A		
	  J+HXE (.SAC,..JX1,C+h)>,< 
	    TXNE ,A,..JX1	
	 JRSTC>>>	.=AJXF	
	.BPOS.=C
	.&X.ERR.=0		
	IFN <&x<B>&<^O<777740,,'0>>>,
	  <MPRNTX'8(L1BPT,Bits 0 - 1'X2 non-zero in add'xress field: B)
(	  ..ERR.=1
	  >(8
	IFN <.BSIZ.&<^(XO<-1,,777700>>>,
	  <MPRNTX(L1BPT),Bytesize greater)8 than 6 bits: A))X
	  ..ERR.=1
	 )x >
	IFN <.BPOS.&*<^O<-1,,777700>>>*8,
	  <MPRNTX(L1B*XPT,Byte offset gr*xeater than 6 bits+: C)
	  ..ERR.=+81
	  >
	
	IFN +X<..ERR.>,<-1,-1,-+x1>
	
	IFE <..ER,R.>,
	  <IFIDN <,8C><>,<POINT .BSI,XZ.,B>
	  IFDIF ,x<C><>,<POINT .BS-IZ.,B,.BPOS.>
	-8  >
	PURGE ..ERR-X.,.BSIZ.,.BPOS.
	BSIZ.,.BPOS.
XJ CH4oh..ERR.=0		Cx
	D.BSIZ.=A		
	  .BPOS.=C
	ID8FN <<B>&<^O<7777DX40,,0>>>,
	  <MPDxRNTX(L2BPT,Bits 0E - 12 non-zero inE8 address field: EXB)
	  ..ERR.=1
Ex	  >
	IFN <<D>&F<-1,,0>>,
	  <MPF8RNTX(L2BPT,Bits 0FX-17 non-zero in oFxptional field: DG)
	  ..ERR.=1
	G8  >
	IFN <.BSIZ.GX&<^O<-1,,777700>>Gx>,
	  <MPRNTX(L2HBPT,Bytesize greaH8ter than 6 bits: HXA)
	Hx..ERR.=1
	  >
	IFN <.BPOIS.&<^O<-1,,777700I8>>>,
	  <MPRNTX(IXL2BPT,Byte offsetIx greater than 6 bJits: C)
	  ..ERJ8R.=1
	  >
	IFN JX..ERR.,<-1,-1,-1>Jx		
	
	IFE ..ERRK.,
	  <IFDIF <CK8><>,<<<POINT .BSIKXZ.,D,.BPOS.>!1B1Kx2>&<^O<777740,,-1L>>>
	  IFIDN <CL8><>,<<<POINT .BSILXZ.,D>!1B12>&<^O<Lx777740,,-1>>>
	MM   <1B0!<<^O<4000M837,,-1>>&<B>>>	
	  >
	PURGE ..EMxRR.,.BSIZ.,.BPOS.
	BSIZ.,.BPOS.6B40
	YN{  82..ERR.=0		X
	IFN <<A>&<^O<x777740,,0>>>,
	  <MPRNTX(LFIWM,Bi8ts 0 - 12 non-zerXo in address fielxd: A)
	  ..ERR.=1
	  >
	IFN ..8ERR.,<-1,-1,-1>	
	IFE ..ERR.,<1B0x!<<^O<400037,,-1> >&<A>>>	
	PURGE ..ERR.
	PURGEY>

@ SH%
	..STR0 Sh(..LDB,A,B,C)..LDB,A,B,C)[8@ h <1B<<A>-1>-1B<B>><A>-1[>!` ( 
<<A>-<<A>/<B>>*<B>>A[?7  Z
   ..MX1(==B			
h.IFN H..MX1,ABSOLUTE,<
	MOVE A,[B]>
   .IF ..MX1,ABSO(LUTE,<
	..MX2==0H		
	IFE <..MX1>Bh53,<
	  ..MX2==1
	  MOVEI A,..M(X1>	
	IFE ..MX2,H<		
	IFE <..MX1>hB17,<
	  ..MX2==1
	  MOVSI A,(.(.MX1)>>	
	IFE ..HMX2,<		
	IFE <<.h.MX1>B53-^O777777	>,<
		(..MX2==1
	  HRROI A,<..M	HX1>>>	
	IFE ..MX	h2,<		
	IFE <<..M
X1>B17-^O777777B1
(7>,<
	  ..MX2==1
H
	  HRLOI A,(..
hMX1-^O777777)>> 
	IFE ..MX2,<		
(	  MOVE A,[..MX1]>	
  >,[..MX1[Cm 81YDEFINE ..MXP. (LOCN,MTEXT,PTxEXT)
	    <PRINTX Location 'LOCN'8, Macro 'MTEXT': XPTEXT
	    >
	 x ..MP.(\.,A,<B>)
	  PURGE ..MP.
	  URGE ..MP.[N^= <#l
	A==C	<(	
	IF1,<IFDEF %<HA,<PRINTX ?A ALR<hEADY DEFINED>>
	=DEFINE %A (OP,AC=(,Y,MSK)<
	$A==<=HZ B>		
	OP (<AC>,B'Y,MSK)><AC[Xp h `
	MOVE .S

AC,A
	MOVEM .SAC,B
	MOVEM .SA[ZI` 

H f
	MOVX .S

hAC,<A>
	MOVEM .SAC,B
	MOVEM ._CL@ h&B
	..STR0 h((.OPST1,<A>,<B>,C)1,<A>,<B>_CLV j(&T
	..STR0 jH(.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= Q-
   IFNB Q0<A>,<
	TMSG <AQP>>
	CALL JSMSG0>
	CALL JSMSG0a4\G pP
	..PGV0=pp=.		
	.JBVER=:^Oq137		
	LOC	.JBVEq0R		
	BYTE	(3)D(qP9)A(6)B(18)C
qp	.ORG	..PGV0		
.ORG	..PGV0		
a>Mm ~hx<POINT WID(B),A,POS(B)>B),A,POS(B)>a? ~(r<^L<<A>&<-<A>>>><<A>&<dA  de  ,~e&:x Np,wJRST RSKPyJRST RSKPeN^A  eN^gXY z8/g
	..TRR==zX10		
	RADIX 8
	zx..NV==1			
	IRP {A,<
	  .TRV1 ({8A)>		
	IFG ..NV-{X5,<PRINTX ?TOO MA{xNY ARGUMENTS: A>|
	JSP .A16,.SASE|8T		
	RADIX ..TRR|X		
	DEFINE ENDSA|x.<.ENSV1 <A>>
	.ENSV1 <A>>
	g4X1 (0H
	.NAC==0H
	IRP A,<
	  PhUSH P,A		
	  .NAC=.NAC+1>		
	.N(1==.NAC
	SETMI .HA16,[CAIA	
		AOSh -.N1(P)	
	  IRP A,<
		.N1=.N1-(1
		MOVE A,-.N1H(P)>  
		SUB P,[h.NAC,,.NAC]  
			POPJ P,]	
	PUSH P,.A16	
	PUSH g$;8 `(&
	..STR1 `H(..TQC,,<A>,B,..STR4)<A>,B,.g%{R \h%h
	..STR1 ](..TQO,,<A>,B,..STR4)<A>,B,.g',W Y%J
	..STR1 Y((..TQZ,,<A>,B,..STR4)<A>,B,.gR$g rH 
F=:0
T1rh=:1
T2=:2
T3=:3s
T4=:4
Q1=:5
Qs(2=:6
Q3=:7
P1=:sH10
P2=:11
P3=:1sh2
P4=:13
P5=:14t
P6=:15
CX=:16
P=:17
CX=:16hH.T
	..STKR=hh=10		
	RADIX 8
i	..STKN==0
	IRP i(A,<
	  .STKV1 (iHA)>
	JSP .A16,.ihSTKST
	 ..STKN,,j..STKN
	RADIX ..j(STKR
	DEFINE ENDjHSV.<.ENSV1 <A>>
gR~NSV1<A>>
	..STR0 VH(..DPB,A,B,C)..DPB,A,B,C)i6tP ~('t
	..STR1 ~H(..TYNE,,<A>,B,..STR3)<A>,B,i6u` (
	..STR1 ((..TYNN,,<A>,B,..STR3)<A>,B,i7p O0,}
	HRROI .OPAC1,[ASCIZ \A\]
	PSOUTZ\A\]

h(h
	TR1 ..SY,C,<A>,B,..STR3)<A>,iF (z
	(n..S(TR1 (..TY,CA,<A>,B,..STR3)<A>iFP 
	TR1 ..SY,CE,<A>,B,..STR3)<A>iF` ((t
	    ..SHTR1 (..TY,CN,<A>,B,..STR3)<A>iFp h( 
	    ..STR1 (..TY,N,<A>,B,..STR3)<A>,iFt (2
	    ..S(TR1 (..TY,NA,<A>,B,..STR3)<A>iFtP H(&
	    ..ShTR1 (..TY,NE,<A>,B,..STR3)<A>iFu` ((,
	    ..SHTR1 (..TY,NN,<A>,B,..STR3)<A>iFx h(8
	    ..STR1 (..TY,O,<A>,B,..STR3)<A>,iF| 	(J
	    ..S	(TR1 (..TY,OA,<A>,B,..STR3)<A>iF|P H(>
	    ..ShTR1 (..TY,OE,<A>,B,..STR3)<A>iF}` ((D
	    ..SHTR1 (..TY,ON,<A>,B,..STR3)<A>iGP 	h(P
	    ..S
TR1 (..TY,Z,<A>,B,..STR3)<A>,iGT 

(b
	    ..S

(TR1 (..TY,ZA,<A>,B,..STR3)<A>iGTP 
H(V
	    ..S
hTR1 (..TY,ZE,<A>,B,..STR3)<A>iGU` ((\
	    ..SHTR1 (..TY,ZN,<A>,B,..STR3)<A>iK4@ q8/
	..TRR==qX10		
	RADIX 8
	qx..NV==1			
	IRP rA,<
	  .TRV1 (r8A)>		
	JSP .A16,rX.TRSET		
	 ..NV-rx1,,..NV-1
	RADIXs ..TRR		
	DEFINEs8 ENDTV.<.ENSV1 <A>>
	.ENSV1 <ib (!J
		..TX(C,A,<B>)..TX(Cib h!V
		..TX(CA,A,<B>).TX(CibP h!N
		..TX(CE,A,<B>).TX(Cib` (!R
		..TX(CN,A,<B>).TX(Cibp (!
		..TX(N,A,<B>)..TX(Nibt h!&
		..TX(NA,A,<B>).TX(NibtP h!
		..TX(NE,A,<B>).TX(Nibu` (!"
		..TX(NN,A,<B>).TX(Nibx (!*
		..TX(O,A,<B>)..TX(Oib| h!6
		..TX(OA,A,<B>).TX(Oib|P h!.
		..TX(OE,A,<B>).TX(Oib}` (!2
		..TX(ON,A,<B>).TX(OicP (!:
		..TX(Z,A,<B>)..TX(ZicT h!F
		..TX(ZA,A,<B>).TX(ZicTP h!>
		..TX(ZE,A,<B>).TX(ZicU` (!B
		..TX(ZN,A,<B>).TX(Zk:*g U-+
%%FOO==U0a
	BRK0 (%%FOO,B,1)
 (%%FOO,m$,YP'm$-X5Q |m$-Z7Q xm$.zQ po&  }hn<^L<-<<A>_<^L<A>>>-1>>>q
fC@ gh.>
	EXTEND A,[XBLT]XTEND q"eJ  P q6~i4 C q? ( r
	TXC A,<B>
	TXC A,:h #
	A"d:&@ W%D
	..TSIZ W((..PST,C)
	.CASWHE ..PST,<<
		MOVWhEM A,B>,<
		HRXRM A,B>,<
		HRX(LM A,B>,<
		DPXHB A,[POINTR (B,C)]>>INTR (B,:<;Y RH%
   DEFINRhE ..CNS2 (NEW,OLDS)<
	  OLD>			
	..CNS ()>			
	:L;Y P(%
   DEFINPHE ..CNS (ARG)<
	Ph..CNS2 <ARG>,>
Q
   DEFINE ..CNS2Q( (NEW,OLD)<
	DEFQHINE ..CNS (ARG)<
	  ..CNS2 <ARG>,R<OLD'NEW>>>
   OLD'NEW>>>
   :Mi Ch,.
 DEFINE DELSE. <
	..TAGE D((JRST,)		
	..TAGDHF (,<:!>)		
	SYNDh ..TAGE,..TAGF	
E   DEFINE ELSE. <E(....U>>	

 DEFIEHNE ENDIF. <
	..TEhAGF (,<:!>)		
	..RSDF>			
   .:TH z'P
	..JNA3 (A,C,D)JNA3 :TI zH'^
	..TSAC zh(..ACT,C)
	.IF0{ ..ACT,<
	  SETC{(M .SAC,C	
	  JX{HE (.SAC,D,<B>)>{h,<	
	  JXO (C,D,<B>)>O (C,:TP mH'
	..TSAC mh(..ACT,B)	
	.IFn0 ..ACT,<
	  ..Tn(SIZ (..PST,C)	
nH	  .CASE ..PST,<<nh
		SKIPN B	
		oJRST A>,<
		HRRo(Z .SAC,B	
		JUMoHPE .SAC,A>,<
		ohHLRZ .SAC,B	
		pJUMPE .SAC,A>,<
		MOVE .SAC,B	
		JXE (.SAC,C,<phA>)>>>,<
	  JXE (B,C,<A>)>E:U` r'*
	..TSAC r((..ACT,B)	
	.IFrH0 ..ACT,<
	  ..TrhSIZ (..PST,C)
	s  .CASE ..PST,<<
		SKIPE B	
		JsHRST A>,<
		HRRZsh .SAC,B	
		JUMPtN .SAC,A>,<
		Ht(LRZ .SAC,B	
		JtHUMPN .SAC,A>,<
th		MOVE .SAC,B	
u		JXN (.SAC,C,<u(A>)>>>,<
	  JXN (B,C,<A>)>N :Uh) w('D
	..TSAC wH(..ACT,B)
	.IF0wh ..ACT,<
	  SETCxM .SAC,B	
	  JXx(N (.SAC,C,<A>)>xH,<	
	  JXF (B,C,<A>)>F (B,:Ukh }('j
	..JN (A,C,D)..JN (:Uki }h'n
	..JE (<B>,C,D)JE (<:dH@ T(%.
	..TSIZ TH(..PST,C)
	.CASThE ..PST,<<
		MOVUE A,B>,<
		HRRU(Z A,B>,<
		HLRUHZ A,B>,<
		LDBUh A,[POINTR (B,C)]>>INTR (B,:}i1 9#J
	A==<<<9(-<B>>&<B>>&<1B<^L<B>>>>>&<1B<;9 ,F
	.POPX;LH >$
	IFNDEF >(C,<PRINTX ?C IS>H NOT DEFINED
	  >hA (<B>,D,.FWOR?D)>	
	IFDEF C,<?(
	IFNDEF %C,<
?H	  A (<B>,D,C?h)>	
	IFDEF %C,<@
	  %C (A,<B>,D,C)>>A,<B>;LH @H$>

	..NS==0@h			
	IRP C,<..NAS=..NS+1>	
	IFE A(..NS,<PRINTX ?EMPAHTY STRUCTURE LISTAh, A>
	IFE ..NS-B1,<		
	  ..STR0 B((A,<B>,<C>,D)BH>
	IFG ..NS-1,<	Bh	
	..ICNS			
	.C.CNS (<E (A,<BC(>,,>) 
	IRP C,<CH		
	  IFNDEF C,Ch<PRINTX C NOT DEDFINED>
	  IFDEF D(C,<
	  IFNDEF %DHC,<
	  ..CNS (<Dh,C,D>)>	
	  IFEDEF %C,<
	  %CE( (..STR2,,D,C)>EH 
	  ..CNS (<)>)Eh		
	  ..GCNS		
F	  ..ICNS		
	  .F(.CNS (<E (A,<BFH>>) 
	  IFNDEF %FhC,<
	  ..CNS (<G,C,D>)>	
	  IFG(DEF %C,<
	  %CGH (..STR2,,D,C)>Gh>> 
	..CNS (<,,)>)		
	..GCNS>);LI H($B
	..CNS (<,C,B>).CNS (;LI Hh$X


	IFDIF <ID><F>,<
	  IFNI(B <D>,<
	    AIH (<B>,D,..MSK)	Ih
	    IFNB <F>,J<PRINTX C AND EJ( ARE IN DIFFERENTJH WORDS>>
	  ..MSJhK==0>		
	IFNB <KF>,<
	  ..MSK=..MSK!<E>>MSK=..;LJ KH$h


	IFDIF <KhD><F>,<	
	  IFLNB <D>,<
	    L(A (<B>,D,..MSK)LH>	
	  ..MSK==0>	Lh	
	IFNB <F>,<
M	  ..MSK=..MSK!<E>>MSK=..MSK!<;LJ MH$~


	IFDIF <MhD><F>,<	
	  IFNNB <D>,<
	    IN(FNB <F>,<		
		NHA1 (B,D,..MSK)>Nh 
	    IFB <F>,O<		
		A2 (B,DO(,..MSK)>> 
	  ..OHMSK==0>		
	IFNB Oh<F>,<
	  ..MSK=..MSK!<E>>MSK=;i F(,D
	SYN ELSFHE.,a
	SYN ENDIFFh.,b
	SYN ..TAGFG,c
	SYN ..TAGE,G(d
	.PSHX <
	  GHSYN a,ELSE.
	  GhSYN b,ENDIF.
	 H SYN c,..TAGF
	H(  SYN d,..TAGE>
	..INDF			
	      NDF			
	   ;k )B

	SYN OD.(,a
	SYN LOOP.,Hb
	SYN TOP.,c
h	SYN EXIT.,d
	SYN ENDLP.,e
	.P(SHX <
	 SYN a,OHD.
	 SYN b,LOOPh.
	SYN c,TOP.
	 SYN d,EXIT.
(	 SYN e,ENDLP.> SYN e,ENDLP.>;$r +n....U ;$s +l....U ;&` a&
	..TSIZ a((..PST,C)
	.IF0aH ..PST,<		
		SETahCMM B>,<	
	b(..bTSAC (..ACT,B)	
	bH.IF0 ..ACT,<
		MOVX .SAC,C
bh		XORM .SAC,B>,<c
		..TX(C,B,C)>>..TX(C,B,C);&` ]H%~
	..TSIZ ]h(..PST,C)
	.CAS^E ..PST,<<
		SET^(OM B>,<
		HLLOS^H B>,<
		HRROS ^hB>,<
	  ..TSAC (_..ACT,B)
	  .IF_(0 ..ACT,<
		MOVX_H .SAC,C
		IORM _h.SAC,B>,<
		..TX (O,B,C)>>>T;&@ Yh%b
	..TSIZ Z(..PST,C)	
	.CAZ(SE ..PST,<<
		SEZHTZM B>,<	
		HLLZhZS B>,<	
		HRRZ[S B>,<	
	  ..TS[(AC (..ACT,B)	
	[H  .IF0 ..ACT,<
	[h	MOVX .SAC,C	
	\	ANDCAM .SAC,B>,\(<
		..TX (Z,B,C)>>>TX (Z,B,;&81 5(#4
	A==0		5H	
	..TSA1==<Z B5h>		
	.IF ..TSA1,6ABSOLUTE,<	
	  I6(FE ..TSA1&^O777776H7777760,<A==1>> 
	60,<A==1>> ;&:= 3h#&
	A==3		4	
	IFE <B>+1,<4(A=0>	
	IFE <B>-4H^O777777,<A==1> 4h
	IFE <B>-^O777777B17,<A==2>7;&;Q 7#D
	A==0		7(	
	..TSA1==0		
7H	IRPC C,<
	  ..7hTSA1=..TSA1+1
	88 IFE ..TSA1-B,<
	   IFIDN <C><8HD>,<
		A==1>		
	;'STOPI>>		
   ..TX1==C			
H.IFN (..TX1,ABSOLUTE,<
	TDA B,[C]>
h   .IF ..TX1,ABSO(LUTE,<		
	..TX2==0		
	IFE <..TX1H&^O777777B17>,<
h	  ..TX2==1		
	  TRA B,..TX1>
(	IFE ..TX2,<		
	HIFE <..TX1&^O7777h77>,<
	  ..TX2==1		
	  TLA B,((..TX1)>>
	IFE ..HTX2,<		
	  IFE <h<..TX1>B53-^O777777>,< 
	    ..TX(3 (A,B)>>	
	IFHE ..TX2,<		
	  IhFE <..TX1+1>,<	
	    ..TX4 (A,B()>>
	IFE ..TX2,<H		
	  TDA B,[..TX1]>	
  >,[.;'` !z
	IFIDN <(A><Z>,<		
	  ..HTX2==1
	  ANDI hB,^-..TX1>	
	IFIDN <A><O>,<		
	(  ..TX2==1
	hORHCMI B,^-..TX1>	
	IFIDN <A><C>,<		
	  ..TX2==1
(	  EQVI B,^-..TX1>QVI B,^-..TX;' h"
	IFIDN < A><NN>,<
	  ..T (X2==1
	  CAIN B H,0>		
	IFIDN <A h><NE>,<
	  ..TX2!==1
	  CAIE B,0>
	  CAIE B,0;' H)
	..TSAC h(..ACT,B)	
	.IF0 ..ACT,<
		PRIN(TX ?TQA - B NOTH IN AC>,<
		TXA B,C>
		TXA;'R (


	..TSAC ((..ACT,B)	
	.IFH0 ..ACT,<
	  ..JhX1==C
	  .IF0 <(..JX1-1B0>,<
		SKIPGE B>,<
	   H .IF0 <..JX1+1>,<h
		SKIPE B>,<
		MOVE .SAC,B
	(	TXNE .SAC,C>>>,H<
		TXNE B,C>
		TXNE B,C>;'W h)
	..TSAC (..ACT,B)	
	.IF(0 ..ACT,<
	  ..JHX1==C
	  .IF0 <h..JX1-1B0>,<
		SKIPL B>,<
	H  (.IF0 <..JX1+1>,<
		SKIPN B>,<
	h	MOVE .SAC,B
		TXNN .SAC,C>>>,<
		TXNN B,C>
`P P  P 0P d  H/|
	.ACV2 (A)
	.ACV2 (d@ 0
   IFDEF( A,<.IF A,SYMBOHL,<PRINTX ACVAR hA ALREADY DEFINED>>
	A==.FPAC+..(NAC	
	$A==A		
	IFB <B>,<..NACh=..NAC+1>
	IFNB <B>,<..NAC=..NAC+B>..NAC=..NACd` H0 
	IFG A-h.NPAC,<PRINTX ?TOO MANY ACS USED>
	IFLE A-4,<
	 H JSP .A16,.SAVA>h	
	IFG A-4,<
	  JSP .A16,.SAV8>JSP .A16,.SAV8>):A  ):9:A  9:
d; 1/
	  IFIDN8 <A><.>,<
		XMOXVEI .A16,B	
		PxUSH P,.A16>
	  IFDIF <A><.>,<
	8  .IFATM <A>,.BLXF1	
	  IFN .BLF1x,<
	    .BLF1==0		
	    .IF %A,8MACRO,<	
		.BLF1X==1>	
	    IFNB x<B>,<
		.BLF1==1>	
	    IFN .BL8F1,<		
		LOAD .AX16,A,B
		PUSH xP,.A16>>
	  IFE .BLF1,<		;IF WASN8'T A STRUCTURE REXF,
		PUSH P,A>>x	
	  ..NA=..NA+1
	  ..NA=..NA+1
d;	 X1
	.BLCL1 A
	.BLCL1 
f=(
	DEFINE(.FP)>
	$A==<Z A>>
	9  1h#
	..CSN==2A
	..CSC==0
	I2(RP B,<
	IFE ..C2HSN-..CSC,<
	  ST2hOPI
	  ..CAS1 (3B)>
	..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 FmP S@P ,<H fH&<
	..PST==fhC&<-C>
	.IF0 .g.PST-1,<
		SOS g(B>,<	
		MOVX .SAgHC,-..PST 
		ADDM .SAC,B>		ADDMtH H0&
	IRP A,h<
	  .ENAV2 (A)>	  .ENAV2 (A)tI (0*
	.ENAV3 (A)
	.ENAV3 tI h0.
	PURGE A,A
  PURGE t,h 80u
	IRP A,X<
   DEFINE A<....U>>FINE A<.v=H o.z
	IRP A,o(<
	  .ENSV2 (A)>	  .ENSV2 (A)v=I oh.~
	.ENSV3 (A)
	.ENSV3 v=I p(/
	DEFINE A<....U>EFINE vI9A  vI9~+H ( 
	A (\..FORN)
	A (\..~.  $
	A BP `P =|RQ &2 0H#

	..IFT==0hA		
	IFE ..IFT,1<
	B
	..IFT==01(>		
	IFN ..IFT,<
	C>N ..IFT,<&4 81G
	IRPC AX,<
	B==0
	IFGEx "A"-"A",<IFLE "A"-"Z",<B=1>> 
	IFGE "A"-"0",<XIFLE "A"-"9",<Bx=1>>
	IFE "A"-"%",<B=1>
	IFE "8A"-"$",<B=1>
	XIFE "A"-".",<B=x1>
	IFE B,<STOPI>>IFE B,<STOP&t<H d(&*
	..PST==dHC&<-C>	
	.IF0 dh..PST-1,<
		AOS eB>,<	
		MOVX .Se(AC,..PST	
		ADDM .SAC,B>		ADDM&tj7Q ?2DQ x6MiTQ @;`P ?= hh&N
	..TSIZ i(..PST,C)
	.IF0i( ..PST,<
		A BiH>,<	
		..LDB .SAihC,B,C 
		A .SAC>C 
		A .S?=	 k&b
	..TSIZ k((..PST,C)
	.IF0kH ..PST,<
		A Bkh>,<	
		..LDB .SAlC,B,C
		A .SAl(C
		..DPB .SAC,B,C>DPB .SAC,B~ K(,Z
	.PSHX1 (.POPX2).PSHX1 B~	 Kh,^
	.POPX4 A
	.POPX4 B~	 Lh,l
	A
   MDEFINE .PSHX1 (WCM(H,STUFF)<
	WCH (MH<<STUFF>,<B>>)><STUFF>,<B>>)>B~
 L(,b
	.POPX3 B
	.POPX3 C I(,J
	.PSHX1 (.PSHX2,<A>)1 C Ih,N
	A (<B>)
	A (<BC	 J(,V
   DEFINJHE .PSHX1 (WCH,STUJhFF)<
	WCH (<<STUFF>,<A>>)><STUJDP'K%,z  <<<A>&<B(>>B<^D70-POS(B)>><^D70-POS(B)>N

0@ N9:A  N9:Nd A" Nd Nd@A" Nd@Nd`A" Nd`NeA  NeNfA  NfO%<ZA  O%<ZO%<zA  O%<zO%=H k.X
	.STKV2 (A)
	.STKV2 O%=I kH.f
	IFB <Bkh>,<..STKN==..STKNl+1>
	IFNB <B>,<l(..STKN==..STKN+BlH>
	..STKQ==..STKlhN+1
	.STKV3 (A,\..STKQ)V3 (A,O%=I m(.t
   IFDEFmH A,<.IF A,SYMBOmhL,<PRINTX STKVAR nA ALREADY DEFINEn(D>>
	DEFINE A<-nH^OB(P)>
	$A==<Z A>>
	$A==<S):A  S):S9:A  S9:Sd  sx/
	.TRV2 (A)
	.TRV2 (Sd@ t8/)
	.TRV3 (tXA,\..NV)	
	IFB tx<B>,<..NV=..NV+1u>
	IFNB <B>,<..NV=..NV+B>,<..Sd` uX/7
   IFDEFux A,<.IF A,SYMBOvL,<PRINTX TRVAR v8A ALREADY DEFINEDvX>>
	DEFINE A<^OvxB(.FP)>
	$A==<Z A>>
	$A==<b\| uHd
	.XCREF
	.XCRF1 <..ACT,.v.CSC,..CSN,..IFT,v(..JX1,..MSK,..MX1vH,..MX2>
	.XCRF1 vh<..NAC,..NRGS,..NwS,..NV,..PST,..STw(KN,..STKQ,..STKR>wH
	.XCRF1 <..TRR,wh..TSA1,..TX1,..TXx2,.FP,.FPAC,.NAC,x(.SAC,.SAV1>
	.XCxHRF1 <.SAV2,.SAV3,xhPOINTR,POS,WID,..yCAS1,..CNS,..CNS2y(>
	.XCRF1 <..DPByH,..GNCS,..ICNS,..yhJE,..LDB,..STR0,.z.STR1,..STR2>
	.z(XCRF1 <..STR4,..TzHQO,..TQZ,..TSAC,.zh.TSIZ,..TX,..TY,.{ACV1,.ACV2>
	.XC{(RF1 <.ACV3,.CASE,{H.DECR0,.IF0,.INCR{h0,.OPST1,.OPST2,.|STKV1>
	.XCRF1 <|(.STKV2,.STKV3,.TR|HV1,.TRV2,.TRV3>
	.CREF
   3>
b)H }j
	IRP A,}(<
	 IFDEF A,< .XCREF A>>A,< .>}{woP