PDP-10 Archive: t20sub/macsym.unv from BB-Y390T-BM

Trailing-Edge - PDP-10 Archives - BB-Y390T-BM - t20sub/macsym.unv

There are 97 other files named macsym.unv in the archive. Click here to see a list.

x,U@P C4@  1z
	..NAC==@0		
	IRP A,<
	`  .ACV1 (A)>		
	.ACV3 (\..NAC)		 
	DEFINE ENDAV.<.ENAV1 <A>>V.<C:$S@ ^@-t
	..TAGF (<JUMPN A,>,) C:$s@ _@-|
	..TAGF (<JUMPLE A,>,)C:$y' `.
	..TAGF (<JUMPL A,>,) C:%C@ a.
	..TAGF (<JUMPGE A,>,)C:%I' `@.
	..TAGF (<JUMPG A,>,) C:%c@ _-x
	..TAGF (<JUMPE A,>,) C:&' b@.
	..TAGF b`(<JN <A>,<B>,>,)N <A>,<B>,>,C:&G c .
	..TAGF c@(<JE <A>,<B>,>,)E <A>,<B>,>,C:' .@"t
	TXZ A,<^-<B>>TXZ A,C:'	' a@.


	..TAGF (<JXN A,B,>,)C:'G b.
	..TAGF (<JXE A,B,>,)C:v:g ]-h
	TRNA
	..TAGF (JRST,)	C;< \@-d
	..TAGF (JRST,)	..TAGF CO,,@ P1Q
	..TRR==p10		
	RADIX 8
	..NV==1			
	IRP 0A,<
	  .TRV1 (PA)>		
	IFG ..NV-p5,<PRINTX ?TOO MANY ARGUMENTS: A>0
	JSP .A16,.ASSEPT		
	RADIX ..TRRp		
	DEFINE ENDAS.<.ENSV1 <A>>
	.ENSV1 <A>>
	E2 /03
	..NA==0/P			
	IRP B,<
	/p  .BLCL2 B>		
	0PUSH P,[..NA+1,,.00.NA+1]	
	PUSHJ P,A		
   SHJ PE3XG )p2k	
	..TRR=*=10		
	RADIX 8		*0	
	..NA==2			
	*PIRP A,<
	  ..NA*p=..NA+1>		
	IRP +A,<
	  .BLSU1(+0A,\..NA)	
	  ..N+PA=..NA-1>
	..NV=+p=1			
	IRP B,<
	  .TRV1 (B)>		,0
  DEFINE ENDBS.,P <.ENBS1 <A>
		,p.ENSV1 <B>> 
	J-SP .A16,.ENTER
	-0..NV-1,,..NV-1
	RADIX ..TRR1
	EJMj' {(/c8
W0.==A
W1.==B				;INIT|IALIZE BREAK MASK|0
W2.==C
W3.==D
==C
W3.==85/P0;RP7b0B,<
	7d0QAB (7f0    ..SEJZ v/D	..V22==av(
	..V1==a
	IFNvHB <B>,<..V22==Bvh>
REPEAT ..V22-<wa>+1,<	
	%%W==.w(.V1/^D32	
	%%X==wH..V1-%%W*^D32	
	whIFE C,BRKC1 \"<%x%W+"0">	
	IFN Cx(,BRKC2 \"<%%W+"0"xH>
	..V1==..V1+1
		   >
.V1+1 y/H	WA.==WA.!<1B<%%X>>
AEJ\4@ yH/N	WA.==WAyh.&<-1-1B<%%X>>
&<-1-1B<%%X>>
EJ\: tH/&
%%FOO==tha
	BRK0 (%%FOO,B,0)
 (%%FOO,EJn:g |p/q

	BRINI. A},B,C,D	
	IRPC}0 E,<	UNBRK. "E"}P>	
	IRPC F,<	BR}pKCH. "F">	
	EXP~ W0.,W1.,W2.,W3.		
W1.,W2.,W3.	Ge@ ,GeLR +G?Z

h n
	ASCIZ /
COPYRIGHTQ(c)MDT 
ALL RIGHTS RESERVED.
/TS RESERVI  @(6
	..STR0 `(.DECR0,,<A>,B)DECR0,,<A>,B)I6= Z@%b
	A==<-1Z`B<C>+1B<C-D>> [
	IF1,<IFDEF %A[ ,<PRINTX ?A ALRE[@ADY DEFINED>>
	D[`EFINE %A (OP,AC,\Y,MSK)<
	$A==<Z\  B>		
	OP (<AC>,B'Y,MSK)><AC>I<p 3`+0
	..SVLD	4		
a:!				
  D4 EFINE OD. <
b:!4@				
	.POPX>			
  DEFINE LOOP. <5
	JRST a>		
  5 DEFINE TOP. <a>	5@	
  DEFINE ENDLP5`. <b>		
  DEFIN6E EXIT. <
	JRST b>T. <
	JRST K+\Y`p08$p08!4p08$.rp08!UN.,HK+`p080p08-4p080.tp08-UNEMK3S@ -j....UK:$Kg +2
	OD.h)K:%G -l....UKCm ;p3iDEFINE ..E<P. (LOCN,PTEXT)
<0	    <PRINTX Loca<Ption 'LOCN': PTEX<pT
	    >
	  ..E=P.(\.,<A>)
	  PURGE ..EP.
	  KJn9` rh/
	ERJMP	[sTMSG <? A>
		 JSHLT]
A>
		 JKc  sH/ 
   IF2,<sh
	IRP A,<
	IFNtDEF A,<EXTERN A
	SUPPRE A>>>M2    "<<<A>B<POS(B)>>&<B>>POM2$*g P0;
	..XX==<pFLD(A,CM%FNC)>+B+<Z G>
   IFNB0 <D>,<..XX=CM%HPPP!..XX>
   IFNB p<E>,<..XX=CM%DPP!..XX>
   IFNB <0F>,<..XX=CM%BRK!P..XX>
	..XX
   pIFNB <C>,<C>
   IFB <C>,<0>
 0  IFNB <D>,<POINPT 7,[ASCIZ D]>p
   IFB <D>,<IFNB <EF>,<0>>
 0  IFB <E>,<IFNB P<F>,<0>>
   IFNpB <E>,<POINT 7,[ASCIZ \E\]>
   0IFNB <F>,<F>
    <F>,<F>
 M2$HG ~P0


	..XX==<~pFLD(A,CM%FNC)>+B+<0,,F>
   IFN0B <D>,<..XX=CM%HPPP!..XX>
   IFNBp <E>,<..XX=CM%DPP!..XX>
	..XX
0  IFNB <C>,<C>
pIFB <C>,<0>
   IFNB <D>,<POINT 7,[ASCIZ D0]>
   IFB <D>,<PIFNB <E>,<0>>
 p  IFNB <E>,<POINT 7,[ASCIZ \E\]>7,[ASCIZ \E\]>M7p p(/
	HRROI .pHAC2,[ASCIZ \A\]
	MOVEI .AC3,0
	SOUTI .AC3,0
	M?c@ "@"

  DEFINE"` e(C)<D>
..FO#RN==A
REPEAT B# -A+1,<
	.FORN1 #@(e)
	..FORN=..FORN+1>.FORN=..FM?@ $@"(
  DEFINE$` d (B)<C>
  I%RP A,<
	.FORX1 d,A>
	.FORX1NNF`..ERR.=0		O	
	..ENC.=0			
O 	IFE B-7,			
	OO@ <..ENC.=^O57			
	  IFN D-^O44,<PIFN D-^O35,<IFN P D-^O26,<IFN D-^P@O17,<IFN D-^O10,P`
		     	<IFN DQ-1<..ERR.=..ERR.!Q 1>>>>>>
	  >
	IQ@FN B-7,			
	  <Q`IFE B-6,
	    <R..ENC.=^O45			
	R     IFN D-^O44,<R@IFN D-^O36,<IFN R`D-^O30,<IFN D-^SO22,<IFN D-^O14,S 
			<IFN D-6,<IS@FN D,<..ERR.=.ERS`R.!1>>>>>>>
	   T >
	  IFN B-6,	T 		
	    <IFE B-T@^O10,
	      <..T`ENC.=^O50		
	   U   IFN D-^O44,<IU FN D-^O34,<IFN U@D-^O24,<IFN D-^OU`14,<IFN D-4,
		V	<..ERR.=.ERR.!1>V >>>>
	      >
	V@    IFN B-^O10,	V`	
	      <IFE BW-^O11,
		<..ENC.W =^O62		
		IFN DW@-^O44,<IFN D-^O3W`3,<IFN D-^O22,<IXFN D-^O11,<IFN X D,
			<..ERR.=..X@ERR.!1>>>>>
		>
	      IFN B-^OY11,		
		<IFE B-Y ^O22,
		  <..ENCY@.=^O54		
		  IFNY` B-^O44,<IFN B-Z^O22<IFN B,<..ERZ R.=..ERR.!1>>>
	Z@	  >
		IFN B-^OZ`22,<..ERR.=..ERR.[!2>	
		>
	     [  >
	    >
	[@>
	IFN <<C>&<-1,,[`0>>,<..ERR.=..ERR\.!4> 
					     \ 
	IFN <<A>&<^O<\@-1,,770000>>>,<..\`ERR.=..ERR.!<^O20]>> 
	IFN ..ERR.,] 
	  <IFN ..ERR.&]@1,<MPRNTX (G1BPT,]`Illegal byte offs^et: D)>
	  IFN ^ ..ERR.&2,<MPRNTX ^@(G1BPT,Illegal by^`te size: B)>
	 _ IFN ..ERR.&4,
	_     <MPRNTX (G1BP_@T,<Address indexe_`d, indirect, or g`reater than 18 bi` ts: C>)>
	  IFN`@ ..ERR.&<^O20>,<M``PRNTX (G1BPT,Sectaion greater than a 12 bits: A)>
	 a@ -1,-1,-1		
	  >a`
	
	IFE ..ERR.,b
	  <<<..ENC.+<<b B>-<<D>/<B>>>>b@_<^O36>>!<<C>&<0b`,,-1>>!<<A>_^O<2c2>>>	
	PURGE ..ERR.,..ENC.
	.E864q^O44NJ
..ERR.=0		o 
	o@.BSIZ.=B		
	  .BPOS.=D
	Io`FN <<A>&<^O<-1,,p770000>>>,
	  <Mp PRNTX(G2BPT,Sectip@on greater than 1p`2 bits: A)
	  .q.ERR.=1
	  >
	Iq FN <<C>&<^O<7777q@40,,0>>>,
	  <MPq`RNTX(G2BPT,Bits 0r - 12 non-zero inr  address field: r@C)
	  ..ERR.=1
r`	  >
	IFN <<E>&s<-1,,0>>,
	  <MPs RNTX(G2BPT,Bits 0s@-17 non-zero in os`ptional field: Et)
	  ..ERR.=1
	t   >
	IFN <.BSIZ.t@&<^O<-1,,777700>>t`>,
	  <MPRNTX(G2uBPT,Bytesize greau ter than 6 bits: u@B)
	u`..ERR.=1
	  >
	IFN <.BPOvS.&<^O<-1,,777700v >>>,
	  <MPRNTX(v@G2BPT,Byte offsetv` greater than 6 bwits: D)
	  ..ERw R.=1
	  >
	IFN w@..ERR.,<-1,-1,-1>w`		
	
	IFE ..ERRx.,
	  <IFDIF <Dx ><>,<<<POINT .BSIx@Z.,E,.BPOS.>!1B1x`2>&<^O<777740,,-1y>>>
	  IFIDN <Dy ><>,<<<POINT .BSIy@Z.,E>!1B12>&<^O<y`777740,,-1>>>
	 z   
	    <<<C>_z <^O14>>&<^O<37000z@0,,0>>!<<C>&<0,,z`-1>>!<<A>_<^O22>{>>
	  >
	PURGE { ..ERR.,.BSIZ.,.BPOS.
	BSIZ.,.BP886s0%":&@ON{  @p4/..ERR.=0		A
	IFN <<A>&<^O<A0-1,,770000>>>,
	AP  <MPRNTX(GFIWM,SApection greater thBan 12 bits: A)
B0	  ..ERR.=1
	  >BP
	IFN <<B>&<^O<Bp777740,,0>>>,
	 C <MPRNTX(GFIWM,BiC0ts 0 - 12 non-zerCPo in address fielCpd: B)
	  ..ERR.D=1
	  >
	IFN ..D0ERR.,<-1,-1,-1>	
				
	IFE ..ERRDp.,<
	  <<<B>_<^EO14>>&<^O<370000,E0,0>>!<<B>&<0,,-1EP>>!<<A>_<^O22>>>Ep>
	PURGE ..ERR.
	PURGE..ERR.
	JUMPN H A,b		
	..SVDF		H@	
   DEFINE ..TAH`GF (INST,PCT)<
	IINST b'PCT>		
 I   DEFINE ..TAGE (I@INST,PCT)<
	INST c'PCT>		
	STS.:g F`,<
	PRINTX G% IFESK. should bG e changed to IFNJG@E.
	IFNJE. <A>.
	IFNJE. <A>S9` L,l
	JUMPLE L A,b		
	..SVDF	L@		
   DEFINE ..TL`AGF (INST,PCT)<
M	INST b'PCT>		
M    DEFINE ..TAGE M@(INST,PCT)<
	INST c'PCT>		
	SS<S@ N,|
	JUMPL N A,b		
	..SVDF		N@	
   DEFINE ..TAN`GF (INST,PCT)<
	OINST b'PCT>		
 O   DEFINE ..TAGE (O@INST,PCT)<
	INST c'PCT>		
	STST\G <@+|

   IFB <<`AB>,<		
	..SVD=F			
	ERJMP e		= 
	JRST c		
e:=@!
   DEFINE ..TA=`GF (INST,PCT)<
	>INST c'PCT>		
 >   DEFINE ..TAGE (>@INST,PCT)<
	INST>` d'PCT>		
	>
 ?  IFNB <AB>,<		? 
	ERJMP c		
	?@B
	JRST d
c:!	A
d:!>
c:!Sa` R-
	JUMPGE R A,b		
	..SVDF	R@		
   DEFINE ..TR`AGF (INST,PCT)<
S	INST b'PCT>		
S    DEFINE ..TAGE S@(INST,PCT)<
	INST c'PCT>		
	SSdS@ P-


	JUMPG P A,b		
	..SVDF		P@	
   DEFINE ..TAP`GF (INST,PCT)<
	QINST b'PCT>		
 Q   DEFINE ..TAGE (Q@INST,PCT)<
	INST c'PCT>		
	STSq` J,\
	JUMPE J A,b		
	..SVDF		J@	
   DEFINE ..TAJ`GF (INST,PCT)<
	KINST b'PCT>		
 K   DEFINE ..TAGE (K@INST,PCT)<
	INST c'PCT>		
	STSt\g @,
	PRINTX @ % IFNES. should b@@e changed to IFJE@`R.
	IFJER. <A>,<B>FJER. <A>,Su)' D,2
   IFB <D A>,<		
	..SVDF	D@		
	ERJMP b
  D` DEFINE ..TAGF (IENST,PCT)<
	INST E b'PCT>		
   DEFE@INE ..TAGE (INST,E`PCT)<
	INST c'PFCT>		
	>
   IFNF B <A>,<
	ERJMP b
	A
b:!> Sv:g 9+`
   IFB <9 AB>,<		
	..SVD9@F			
	TRNA			
	9`JRST c		
   DEF:INE ..TAGF (INST,: PCT)<
	INST c'P:@CT>		
   DEFINE :`..TAGE (INST,PCT);<
	INST d'PCT>	; 	
	>
   IFNB <;@AB>,<		
	JRST ;`c		
	B
	JRST <d
c:!	A
d:!>
c:!	A
d:!>S

S@ X-N
	JN <A>X ,<B>,c	
	..SVDX@F			
   DEFINE .X`.TAGF (INST,PCT)<Y
	INST c'PCT>		Y 
   DEFINE ..TAGY@E (INST,PCT)<
	IY`NST d'PCT>		
	ST d'PCT>		
	S Z -`
	JE <A>Z@,<B>,c	
	..SVDZ`F			
   DEFINE .[.TAGF (INST,PCT)<[ 
	INST c'PCT>		[@
   DEFINE ..TAG[`E (INST,PCT)<
	I\NST d'PCT>		
	ST d'PCT>		
	S< A ,
   IFB <A@A>,<		
	..SVDF	A`		
	JRST b
   BDEFINE ..TAGF (INB ST,PCT)<
	INST B@b'PCT>		
   DEFIB`NE ..TAGE (INST,PCCT)<
	INST c'PCC T>		
	>
   IFNBC@ <A>,<
	JRST b
	A
b:!> bSDS@ T-,
	JXN A,T B,c	
	..SVDF		T@	
   DEFINE ..TAT`GF (INST,PCT)<
	UINST c'PCT>		
 U   DEFINE ..TAGE (U@INST,PCT)<
	INST d'PCT>		
	STSEc@ V-<
	JXE A,V B,c	
	..SVDF		V@	
   DEFINE ..TAV`GF (INST,PCT)<
	WINST c'PCT>		
 W   DEFINE ..TAGE (W@INST,PCT)<
	INST d'PCT>		
	STS:   ($
	..STR0 @(.INCR0,,<A>,B)INCR0,,<A>,B)S? ."p
	TXO A,<B>
	TXO A,Ut@ `)R
	..STR1 (..JAN,<d,<C>>, <A>,B,..STR5)
d:B,..STR5)
U
	..STR1<C>,<A>,B,..STR3)<A>,U8 )
	..STR1)(..JN,<C>,<A>,B,..STR3)<A>,U:
	..STR1 @(..JNA3,<C>,<A>,B,..STR4)<A>U:~  )l
	..STR1  (..JNO,<d,<C>>,@<A>,B,..STR5)
d:B,..STR5)
U? @)6
	..STR1 `(..JN,<C>,<A>,B,..STR4)<A>,UN.,@`p08p08,p08.rp08UN.,HUN.,HA  UN.,HUNEM`p08*p08',p08*.tp08'UNEMUNEMA  UNEMUNn9hA  UNn9hUb( B $*
	..JX1==B@B		
	.IFN ..JX1B`,ABSOLUTE,<PRINTXC B NOT ABSOLUTE
		..JX1==0>
	.IC@F ..JX1,ABSOLUTE,C`<
	.IF0 <<..JX1>D-1B0>,<	
		JUMPGD E A,C>,<
	.IF0D@ <<..JX1>+1>,<	
D`	  JUMPE A,C>,<E	
		TXNN (A,..JE X1)
		JRST C>>>)
		JRST C>>>Ub0 M %
	..JX1==M@B		
	.IFN ..JX1M`,ABSOLUTE,<PRINTXN B NOT ABSOLUTE
		..JX1==0>
	.IN@F ..JX1,ABSOLUTE,N`<
	.IF0 <<..JX1>O-1B0>,<
		JUMPGEO  A,C>,<
	..ONEO@B (..BT,B)	
	.IO`F0 ..BT,<
	  SETPCM .SAC,A		
	  P JXN (.SAC,..JX1,P@C)>,< 
	    TXNNP` A,..JX1	
	    JRST C>>>	    Ubp E`$F
	..JX1==FB		
	.IFN ..JX1F ,ABSOLUTE,<PRINTXF@ B NOT ABSOLUTE
		..JX1==0>
	.IGF ..JX1,ABSOLUTE,G <
	.IF0 <<..JX1>G@-1B0>,<	
		JUMPLG` A,C>,<
	.IF0 H<<..JX1>+1>,<	
	H   JUMPN A,C>,<	H@
		TXNE (A,..JXH`1)
		JRST C>>>)
		JRST C>>>Ubx I $f
	..JX1==I@B		
	.IFN ..JX1I`,ABSOLUTE,<PRINTXJ B NOT ABSOLUTE
		..JX1==0>
	.IJ@F ..JX1,ABSOLUTE,J`<
	.IF0 <<..JX1>K-1B0>,<
		JUMPL K A,C>,<
	..ONEBK@ (..BT,B)	
	.IFK`0 ..BT,<
	  SETCLM .SAC,A		
	  JL XE (.SAC,..JX1,CL@)>,< 
	    TXNE L`A,..JX1	
	 JRSTC>>>	.=AJXF	
	.BPOS.=C
	.Fp.ERR.=0		
	IFN <G<B>&<^O<777740,,G00>>>,
	  <MPRNTXGP(L1BPT,Bits 0 - 1Gp2 non-zero in addHress field: B)
H0	  ..ERR.=1
	  >HP
	IFN <.BSIZ.&<^HpO<-1,,777700>>>,
	  <MPRNTX(L1BPTI0,Bytesize greaterIP than 6 bits: A)Ip
	  ..ERR.=1
	 J >
	IFN <.BPOS.&J0<^O<-1,,777700>>>JP,
	  <MPRNTX(L1BJpPT,Byte offset grKeater than 6 bitsK0: C)
	  ..ERR.=KP1
	  >
	
	IFN Kp<..ERR.>,<-1,-1,-L1>
	
	IFE <..ERL0R.>,
	  <IFIDN <LPC><>,<POINT .BSILpZ.,B>
	  IFDIF M<C><>,<POINT .BSM0IZ.,B,.BPOS.>
	MP  >
	PURGE ..ERRMp.,.BSIZ.,.BPOS.
	BSIZ.,.BPOS.
XJ c`6qp..ERR.=0		d
	d0.BSIZ.=A		
	  .BPOS.=C
	IdPFN <<B>&<^O<7777dp40,,0>>>,
	  <MPeRNTX(L2BPT,Bits 0e0 - 12 non-zero ineP address field: epB)
	  ..ERR.=1
f	  >
	IFN <<D>&f0<-1,,0>>,
	  <MPfPRNTX(L2BPT,Bits 0fp-17 non-zero in ogptional field: Dg0)
	  ..ERR.=1
	gP  >
	IFN <.BSIZ.gp&<^O<-1,,777700>>h>,
	  <MPRNTX(L2h0BPT,Bytesize greahPter than 6 bits: hpA)
	i..ERR.=1
	  >
	IFN <.BPOi0S.&<^O<-1,,777700iP>>>,
	  <MPRNTX(ipL2BPT,Byte offsetj greater than 6 bj0its: C)
	  ..ERjPR.=1
	  >
	IFN jp..ERR.,<-1,-1,-1>k		
	
	IFE ..ERRk0.,
	  <IFDIF <CkP><>,<<<POINT .BSIkpZ.,D,.BPOS.>!1B1l2>&<^O<777740,,-1l0>>>
	  IFIDN <ClP><>,<<<POINT .BSIlpZ.,D>!1B12>&<^O<m777740,,-1>>>
	mm0   <1B0!<<^O<4000mP37,,-1>>&<B>>>	
	  >
	PURGE ..EnRR.,.BSIZ.,.BPOS.
	BSIZ.,.BPOS.8760
	{ YN{  =P4..ERR.=0		=p
	IFN <<A>&<^O<>777740,,0>>>,
	 >0 <MPRNTX(LFIWM,Bi>Pts 0 - 12 non-zer>po in address fiel?d: A)
	  ..ERR.?0=1
	  >
	IFN ..?PERR.,<-1,-1,-1>	
	IFE ..ERR.,<1B0@!<<^O<400037,,-1>@0>&<A>>>	
	PURGE ..ERR.
	PURGEY>

@ t '$
	..STR0 t@(..LDB,A,B,C)..LDB,A,B,C)[8@ !@"

<1B<<A>-1>-1B<B>><A>-1[>!` ""<<A>-<<A>/<B>>*<B>>A[?7 %`"`
   ..MX1&==B			
&@.IFN & ..MX1,ABSOLUTE,<
	MOVE A,[B]>
&`   .IF ..MX1,ABSO'LUTE,<
	..MX2==0' 		
	IFE <..MX1>B'@53,<
	  ..MX2==1'`
	  MOVEI A,..M(X1>	
	IFE ..MX2,( <		
	IFE <..MX1>(@B17,<
	  ..MX2==(`1
	  MOVSI A,(.).MX1)>>	
	IFE ..) MX2,<		
	IFE <<.)@.MX1>B53-^O777777)`>,<
	*..MX2==1
	  HRROI A,<..M* X1>>>	
	IFE ..MX*@2,<		
	IFE <<..M*`X1>B17-^O777777B1+7>,<
	  ..MX2==1+ 
	+`HRLOI A,(..+@MX1-^O777777)>> 
	IFE ..MX2,<		
,	  MOVE A,[..MX1]>	
  >,[..MX1[Cm 9P3[DEFINE ..M9pP. (LOCN,MTEXT,PT:EXT)
	    <PRINT:0X Location 'LOCN':P, Macro 'MTEXT': :pPTEXT
	    >
	 ; ..MP.(\.,A,<B>;0)
	  PURGE ..MP.
	  URGE ..MP.[N^= \`%r
	A==C	]	
	IF1,<IFDEF %] A,<PRINTX ?A ALR]@EADY DEFINED>>
	]`DEFINE %A (OP,AC^,Y,MSK)<
	$A==<^ Z B>		
	OP (<AC>,B'Y,MSK)><AC[Xp ,@"f
	MOVE .S,`AC,A
	MOVEM .SAC,B
	MOVEM .SA[ZI` - "l
	MOVX .S-@AC,<A>
	MOVEM .SAC,B
	MOVEM ._CL@ `(H
	..STR0 	(.OPST1,<A>,<B>,C)1,<A>,<B>_CLV (Z
	..STR0  (.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 qH<A>,<
	TMSG <Aqh>>
	CALL JSMSG0>
	CALL JSMSG0a4\G (!
	..PGV0=H=.		
	.JBVER=:^Oh137		
	LOC	.JBVER		
	BYTE	(3)D((9)A(6)B(18)C
H	.ORG	..PGV0		
.ORG	..PGV0		
a>Mm @!~<POINT WID`(B),A,POS(B)>B),A,POS(B)>a? !x<^L<<A>&<-<A>>>><<A>&<dA  de  ,~e&:x o.xJRST RSKPzJRST RSKPeN^A  eN^gXY P1i
	..TRR==p10		
	RADIX 8
	..NV==1			
	IRP 0A,<
	  .TRV1 (PA)>		
	IFG ..NV-p5,<PRINTX ?TOO MANY ARGUMENTS: A>0
	JSP .A16,.SASEPT		
	RADIX ..TRRp		
	DEFINE ENDSA.<.ENSV1 <A>>
	.ENSV1 <A>>
	g4X1 &@2J
	.NAC==0&`
	IRP A,<
	  P'USH P,A		
	  .N' AC=.NAC+1>		
	.N'@1==.NAC
	SETMI .'`A16,[CAIA	
		AOS( -.N1(P)	
	  IRP(  A,<
		.N1=.N1-(@1
		MOVE A,-.N1(`(P)>  
		SUB P,[).NAC,,.NAC]  
		) POPJ P,]	
	PUSH P,.A16	
	PUSH g$;8 (

	..STR1  (..TQC,,<A>,B,..STR4)<A>,B,.g%{R }@'n
	..STR1 }`(..TQO,,<A>,B,..STR4)<A>,B,.g',W y`'P
	..STR1 z(..TQZ,,<A>,B,..STR4)<A>,B,.gR$g  !&
F=:0
T1@=:1
T2=:2
T3=:3`
T4=:4
Q1=:5
Q2=:6
Q3=:7
P1=: 10
P2=:11
P3=:1@2
P4=:13
P5=:14`
P6=:15
CX=:16
P=:17
CX=:16`0V
	..STKR=	=10		
	RADIX 8
	 	..STKN==0
	IRP 	@A,<
	  .STKV1 (	`A)>
	JSP .A16,.
STKST
	 ..STKN,,
 ..STKN
	RADIX ..
@STKR
	DEFINE END
`SV.<.ENSV1 <A>>
gR~NSV1<A>>
	..STR0 w (..DPB,A,B,C)..DPB,A,B,C)i6tP )z
	..STR1  (..TYNE,,<A>,B,..STR3)<A>,B,i6u` "`*
	..STR1 #(..TYNN,,<A>,B,..STR3)<A>,B,i7p oH.~
	HRROI .ohAC1,[ASCIZ \A\]
	PSOUTZ\A\]
	    ..S-`TR1 (..TY,C,<A>,B,..STR3)<A>,iF /`+
	    ..S0TR1 (..TY,CA,<A>,B,..STR3)<A>iFP . *t
	    ..S.@TR1 (..TY,CE,<A>,B,..STR3)<A>iF` /*z
	    ..S/ TR1 (..TY,CN,<A>,B,..STR3)<A>iFp $@*&
	    ..S$`TR1 (..TY,N,<A>,B,..STR3)<A>,iFt &`*8
	    ..S'TR1 (..TY,NA,<A>,B,..STR3)<A>iFtP % *,
	    ..S%@TR1 (..TY,NE,<A>,B,..STR3)<A>iFu` &*2
	    ..S& TR1 (..TY,NN,<A>,B,..STR3)<A>iFx '@*>
	    ..S'`TR1 (..TY,O,<A>,B,..STR3)<A>,iF| )`*P
	    ..S*TR1 (..TY,OA,<A>,B,..STR3)<A>iF|P ( *D
	    ..S(@TR1 (..TY,OE,<A>,B,..STR3)<A>iF}` )*J
	    ..S) TR1 (..TY,ON,<A>,B,..STR3)<A>iGP *@*V
	    ..S*`TR1 (..TY,Z,<A>,B,..STR3)<A>,iGT ,`*h
	    ..S-TR1 (..TY,ZA,<A>,B,..STR3)<A>iGTP + *\
	    ..S+@TR1 (..TY,ZE,<A>,B,..STR3)<A>iGU` ,*b
	    ..S, TR1 (..TY,ZN,<A>,B,..STR3)<A>iK4@ P1
	..TRR==p10		
	RADIX 8
	..NV==1			
	IRP 0A,<
	  .TRV1 (PA)>		
	JSP .A16,p.TRSET		
	 ..NV-1,,..NV-1
	RADIX0 ..TRR		
	DEFINEP ENDTV.<.ENSV1 <A>>
	.ENSV1 <ib :#P
		..TX(C,A,<B>)..TX(Cib ;@#\
		..TX(CA,A,<B>).TX(CibP :@#T
		..TX(CE,A,<B>).TX(Cib` ;#X
		..TX(CN,A,<B>).TX(Cibp 4# 
		..TX(N,A,<B>)..TX(Nibt 5@#,
		..TX(NA,A,<B>).TX(NibtP 4@#$
		..TX(NE,A,<B>).TX(Nibu` 5#(
		..TX(NN,A,<B>).TX(Nibx 6#0
		..TX(O,A,<B>)..TX(Oib| 7@#<
		..TX(OA,A,<B>).TX(Oib|P 6@#4
		..TX(OE,A,<B>).TX(Oib}` 7#8
		..TX(ON,A,<B>).TX(OicP 8#@
		..TX(Z,A,<B>)..TX(ZicT 9@#L
		..TX(ZA,A,<B>).TX(ZicTP 8@#D
		..TX(ZE,A,<B>).TX(ZicU` 9#H
		..TX(ZN,A,<B>).TX(Zk:*g u(/,
%%FOO==uHa
	BRK0 (%%FOO,B,1)
 (%%FOO,m$,I1P$m$,YP#m$-X5Q |m$-Z7Q xm$.zQ po&  @!t<^L<-<<A>_<^L<A>>>-1>>>q
fC@ 0@
	EXTEND A,[XBLT]XTEND q"eJ  P q6~i4 C q? /"x
	TXC A,<B>
	TXC A,:h % 
	A:&@ w`'J
	..TSIZ x(..PST,C)
	.CASx E ..PST,<<
		MOVx@EM A,B>,<
		HRx`RM A,B>,<
		HRyLM A,B>,<
		DPy B A,[POINTR (B,C)]>>INTR (B,:<;Y s '
   DEFINs@E ..CNS2 (NEW,OLDs`)<
	  OLD>			
	..CNS ()>			
	:L;Y q'
   DEFINq E ..CNS (ARG)<
	q@..CNS2 <ARG>,>
q`
   DEFINE ..CNS2r (NEW,OLD)<
	DEFr INE ..CNS (ARG)<
	  ..CNS2 <ARG>,r`<OLD'NEW>>>
   OLD'NEW>>>
   :Mi d.0
 DEFINE d ELSE. <
	..TAGE d@(JRST,)		
	..TAGd`F (,<:!>)		
	SYNe ..TAGE,..TAGF	
e    DEFINE ELSE. <e@....U>>	

 DEFIe`NE ENDIF. <
	..TfAGF (,<:!>)		
	..RSDF>			
   .:TH `)V
	..JNA3 (A,C,D)JNA3 :TI  )d
	..TSAC @(..ACT,C)
	.IF0` ..ACT,<
	  SETCM .SAC,C	
	  JX E (.SAC,D,<B>)>@,<	
	  JXO (C,D,<B>)>O (C,:TP  )


	..TSAC @(..ACT,B)	
	.IF`0 ..ACT,<
	  ..TSIZ (..PST,C)	
 	  .CASE ..PST,<<@
		SKIPN B	
		`JRST A>,<
		HRRZ .SAC,B	
		JUM PE .SAC,A>,<
		@HLRZ .SAC,B	
		`JUMPE .SAC,A>,<
		MOVE .SAC,B	
		JXE (.SAC,C,<@A>)>>>,<
	  JXE (B,C,<A>)>E:U` `)0
	..TSAC (..ACT,B)	
	.IF 0 ..ACT,<
	  ..T@SIZ (..PST,C)
	`  .CASE ..PST,<<
		SKIPE B	
		J RST A>,<
		HRRZ@ .SAC,B	
		JUMP`N .SAC,A>,<
		HLRZ .SAC,B	
		J UMPN .SAC,A>,<
@		MOVE .SAC,B	
`		JXN (.SAC,C,<A>)>>>,<
	  JXN (B,C,<A>)>N :Uh) )J
	..TSAC  (..ACT,B)
	.IF0@ ..ACT,<
	  SETC`M .SAC,B	
	  JXN (.SAC,C,<A>)> ,<	
	  JXF (B,C,<A>)>F (B,:Ukh )p
	..JN (A,C,D)..JN (:Uki @)t
	..JE (<B>,C,D)JE (<:dH@ u'4
	..TSIZ u (..PST,C)
	.CASu@E ..PST,<<
		MOVu`E A,B>,<
		HRRvZ A,B>,<
		HLRv Z A,B>,<
		LDBv@ A,[POINTR (B,C)]>>INTR (B,:}i1 Y`%P
	A==<<<Z-<B>>&<B>>&<1B<^L<B>>>>>&<1B<;9 .H
	.POPX;LH ^`&
	IFNDEF _C,<PRINTX ?C IS_  NOT DEFINED
	  _@A (<B>,D,.FWOR_`D)>	
	IFDEF C,<`
	IFNDEF %C,<
` 	  A (<B>,D,C`@)>	
	IFDEF %C,<``
	  %C (A,<B>,D,C)>>A,<B>;LH a &D

	..NS==0a@			
	IRP C,<..Na`S=..NS+1>	
	IFE b..NS,<PRINTX ?EMPb TY STRUCTURE LISTb@, A>
	IFE ..NS-b`1,<		
	  ..STR0 c(A,<B>,<C>,D)c >
	IFG ..NS-1,<	c@	
	..ICNS			
	.c`.CNS (<E (A,<Bd>,,>) 
	IRP C,<d 		
	  IFNDEF C,d@<PRINTX C NOT DEd`FINED>
	  IFDEF eC,<
	  IFNDEF %e C,<
	  ..CNS (<e@,C,D>)>	
	  IFe`DEF %C,<
	  %Cf (..STR2,,D,C)>f  
	  ..CNS (<)>)f@		
	  ..GCNS		
f`	  ..ICNS		
	  .g.CNS (<E (A,<Bg >>) 
	  IFNDEF %g@C,<
	  ..CNS (<g`,C,D>)>	
	  IFhDEF %C,<
	  %Ch  (..STR2,,D,C)>h@>> 
	..CNS (<,,)>)		
	..GCNS>);LI i&H
	..CNS (<,C,B>).CNS (;LI i@&^


	IFDIF <i`D><F>,<
	  IFNjB <D>,<
	    Aj  (<B>,D,..MSK)	j@
	    IFNB <F>,j`<PRINTX C AND Ek ARE IN DIFFERENTk  WORDS>>
	  ..MSk@K==0>		
	IFNB <k`F>,<
	  ..MSK=..MSK!<E>>MSK=..;LJ l &n


	IFDIF <l@D><F>,<	
	  IFl`NB <D>,<
	    mA (<B>,D,..MSK)m >	
	  ..MSK==0>	m@	
	IFNB <F>,<
m`	  ..MSK=..MSK!<E>>MSK=..MSK!<;LJ n '


	IFDIF <n@D><F>,<	
	  IFn`NB <D>,<
	    IoFNB <F>,<		
		o A1 (B,D,..MSK)>o@ 
	    IFB <F>,o`<		
		A2 (B,Dp,..MSK)>> 
	  ..p MSK==0>		
	IFNB p@<F>,<
	  ..MSK=..MSK!<E>>MSK=;i f@.F
	SYN ELSf`E.,a
	SYN ENDIFg.,b
	SYN ..TAGFg ,c
	SYN ..TAGE,g@d
	.PSHX <
	  g`SYN a,ELSE.
	  hSYN b,ENDIF.
	 h  SYN c,..TAGF
	h@  SYN d,..TAGE>
	..INDF			
	      NDF			
	   ;k 6`+D
	SYN OD.7,a
	SYN LOOP.,7 b
	SYN TOP.,c
7@	SYN EXIT.,d
	.7`PSHX <
	 SYN a,8OD.
	 SYN b,LOO8 P.
	 SYN c,TOP.8@
	 SYN d,EXIT.>	 SYN d,EXIT.>;$r -p....U;$s -n....U;&` `(
	..TSIZ (..PST,C)
	.IF0  ..PST,<		
		SET@CMM B>,<	
	..`TSAC (..ACT,B)	
	 .IF0 ..ACT,<
		MOVX .SAC,C
@		XORM .SAC,B>,<`
		..TX(C,B,C)>>..TX(C,B,C);&` ~ (
	..TSIZ ~@(..PST,C)
	.CAS~`E ..PST,<<
		SETOM B>,<
		HLLOS  B>,<
		HRROS @B>,<
	  ..TSAC (`..ACT,B)
	  .IF0 ..ACT,<
		MOVX  .SAC,C
		IORM @.SAC,B>,<
		..TX (O,B,C)>>>T;&@ z@'h
	..TSIZ z`(..PST,C)	
	.CA{SE ..PST,<<
		SE{ TZM B>,<	
		HLL{@ZS B>,<	
		HRRZ{`S B>,<	
	  ..TS|AC (..ACT,B)	
	|   .IF0 ..ACT,<
	|@	MOVX .SAC,C	
	|`	ANDCAM .SAC,B>,}<
		..TX (Z,B,C)>>>TX (Z,B,;&81 V%:
	A==0		V 	
	..TSA1==<Z BV@>		
	.IF ..TSA1,V`ABSOLUTE,<	
	  IWFE ..TSA1&^O77777W 7777760,<A==1>> 
	60,<A==1>> ;&:= T@%,
	A==3		T`	
	IFE <B>+1,<UA=0>	
	IFE <B>-U ^O777777,<A==1> U@
	IFE <B>-^O777777B17,<A==2>7;&;Q W`%J
	A==0		X	
	..TSA1==0		
X 	IRPC C,<
	  ..X@TSA1=..TSA1+1
	YX` IFE ..TSA1-B,<
	   IFIDN <C><Y D>,<
		A==1>		
	;'STOPI>>		
   ..TX1/`==C			
0 .IFN 0..TX1,ABSOLUTE,<
	TDA B,[C]>
0@   .IF ..TX1,ABSO1LUTE,<		
	..TX2=0`=0		
	IFE <..TX11 &^O777777B17>,<
1@	  ..TX2==1		
	 1` TRA B,..TX1>
2	IFE ..TX2,<		
	2 IFE <..TX1&^O77772@77>,<
	  ..TX2==2`1		
	  TLA B,(3..TX1)>>
	IFE ..3 TX2,<		
	  IFE <3@<..TX1>B53-^O77773`77>,< 
	    ..TX<3 (A,B)>>	
	IF< E ..TX2,<		
	  I<@FE <..TX1+1>,<	
<`	    ..TX4 (A,B=)>>
	IFE ..TX2,<= 		
	  TDA B,[..TX1]>	
  >,[.;'` =`$
	IFIDN <>A><Z>,<		
	  ..> TX2==1
	  ANDI >@B,^-..TX1>	
	IFI>`DN <A><O>,<		
	?  ..TX2==1
	?@OR? CMI B,^-..TX1>	
	IFIDN <A><C>,<?`		
	  ..TX2==1
@	  EQVI B,^-..TX1>QVI B,^-..TX;' @@$
	IFIDN <@`A><NN>,<
	  ..TAX2==1
	  CAIN BA ,0>		
	IFIDN <AA@><NE>,<
	  ..TX2A`==1
	  CAIE B,0>
	  CAIE B,0;' 2 +
	..TSAC 2@(..ACT,B)	
	.IF2`0 ..ACT,<
		PRIN3TX ?TQA - B NOT3  IN AC>,<
		TXA B,C>
		TXA;'R `*
	..TSAC  (..ACT,B)	
	.IF  0 ..ACT,<
	  ..J @X1==C
	  .IF0 <!..JX1-1B0>,<
		S `KIPGE B>,<
	   !  .IF0 <..JX1+1>,<!@
		SKIPE B>,<
!`		MOVE .SAC,B
	"	TXNE .SAC,C>>>," <
		TXNE B,C>
		TXNE B,C>;'W #@+
	..TSAC #`(..ACT,B)	
	.IF$0 ..ACT,<
	  ..J$ X1==C
	  .IF0 <0@..JX1-1B0>,<
		S0`KIPL B>,<
	1   1.IF0 <..JX1+1>,<
		SKIPN B>,<
	1@	MOVE .SAC,B
		1`TXNN .SAC,C>>>,<
		TXNN B,C>
`P P  P 0P d  `1~
	.ACV2 (A)
	.ACV2 (d@   2
   IFDEF @ A,<.IF A,SYMBO `L,<PRINTX ACVAR !A ALREADY DEFINED! >>
	A==.FPAC+..!@NAC	
	$A==A		
	IFB <B>,<..NAC"=..NAC+1>
	IFNB " <B>,<..NAC=..NAC+B>..NAC=..NACd` "`2"
	IFG A-#.NPAC,<PRINTX ?TO# O MANY ACS USED>
	IFLE A-4,<
	 #` JSP .A16,.SAVA>$	
	IFG A-4,<
	$   JSP .A16,.SAV8>JSP .A16,.SAV8>):A  ):9:A  9:
d; 1031
	  IFIDN1P <A><.>,<
		XMO1pVEI .A16,B	
		P2USH P,.A16>
	  I20FDIF <A><.>,<
	2P  .IFATM <A>,.BL2pF1	
	  IFN .BLF13,<
	    .BLF1==030		
	    .IF %A,3PMACRO,<	
		.BLF13p==1>	
	    IFNB 4<B>,<
		.BLF1==401>	
	    IFN .BL4PF1,<		
		LOAD .A4p16,A,B
		PUSH 5P,.A16>>
	  IFE 50.BLF1,<		;IF WASN5P'T A STRUCTURE RE5pF,
		PUSH P,A>>6	
	  ..NA=..NA+1
	  ..NA=..NA+1
d;	 0p3
	.BLCL1 A
	.BLCL1 
f=( -p2q
	DEFINE .A<-^OB(.FP)>
	$A==<Z A>>
	9  R@%
	..CSN==R`A
	..CSC==0
	ISRP B,<
	IFE ..CS SN-..CSC,<
	  STS@OPI
	  ..CAS1 (S`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 FmP S@P Z (!		
	XLISTH
	LOC 0
	COPYRTh A
     .IFN .,ABSOLUTE,<PRINTX (?.CPYRT, COPYRIGHHT IS NOT ABSOLUTEh>
     IFGE .-^O22,<PRINTX %COPYR(IGHT DOESN'T FIT HIN SINGLE REL BLOhCK>
	RELOC
	LIST
	SALL

	LIS,<H  (B
	..PST==@C&<-C>
	.IF0 .`.PST-1,<
		SOS B>,<	
		MOVX .SA C,-..PST 
		ADDM .SAC,B>		ADDMtH $`2(
	IRP A,%<
	  .ENAV2 (A)>	  .ENAV2 (A)tI %@2,
	.ENAV3 (A)
	.ENAV3 tI &20
	PURGE A,A
  PURGE t,h .P2w
	IRP A,.p<
   DEFINE A<....U>>FINE A<.v=H  0|
	IRP A,@<
	  .ENSV2 (A)>	  .ENSV2 (A)v=I 1
	.ENSV3 (A)
	.ENSV3 v=I @1
	DEFINE A<....U>EFINE vI9A  vI9~+H $" 
	A (\..FORN)
	A (\..~. "*
	A BP `P =|RQ &2 Q %
	..IFT==Q@A		
	IFE ..IFT,Q`<
	B
	..IFT==0R>		
	IFN ..IFT,<
	C>N ..IFT,<&4 6P3I
	IRPC A6p,<
	B==0
	IFGE7 "A"-"A",<IFLE "70A"-"Z",<B=1>> 
	IFGE "A"-"0",<7pIFLE "A"-"9",<B8=1>>
	IFE "A"-"80%",<B=1>
	IFE "8PA"-"$",<B=1>
	8pIFE "A"-".",<B=91>
	IFE B,<STOPI>>IFE B,<STOP&t<H (0
	..PST== C&<-C>	
	.IF0 @..PST-1,<
		AOS `B>,<	
		MOVX .SAC,..PST	
		ADDM .SAC,B>		ADDM&tj7Q ?2DQ x6MiTQ @;`P ?= 	@(T
	..TSIZ 	`(..PST,C)
	.IF0
 ..PST,<
		A B
 >,<	
		..LDB .SA
@C,B,C 
		A .SAC>C 
		A .S?=	 `(h
	..TSIZ

(..PST,C)
	.IF0

  ..PST,<
		A B

@>,<	
		..LDB .SA

`C,B,C
		A .SA
		..DPB .SAC,B,C>DPB .SAC,B~ k@.\
	.PSHX1 (.POPX2).PSHX1 B~	 l.`
	.POPX4 A
	.POPX4 B~	 m.n
	A
   m DEFINE .PSHX1 (WCm@H,STUFF)<
	WCH (m`<<STUFF>,<B>>)><STUFF>,<B>>)>B~
 l@.d
	.POPX3 B
	.POPX3 C i@.L
	.PSHX1 (.PSHX2,<A>)1 C j.P
	A (<B>)
	A (<BC	 j@.X
   DEFINj`E .PSHX1 (WCH,STUkFF)<
	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  0Z
	.STKV2 (A)
	.STKV2 O%=I `0h
	IFB <B

>,<..STKN==..STKN

 +1>
	IFNB <B>,<

@..STKN==..STKN+B

`>
	..STKQ==..STK
	.STKV3(A,\..STKQ)V3 (A,O%=I 
` IFDEF A,SYMBOL,<PRINTX STKVAR  A ALREADY DEFINE@D>>
	DEFINE A<-`^OB(P)>
	$A==<Z A>>
	$A==<S):A  S):S9:A  S9:Sd  1!
	.TRV2 (A)
	.TRV2 (Sd@ P1+
	.TRV3 (pA,\..NV)	
	IFB <B>,<..NV=..NV+10>
	IFNB <B>,<..NV=..NV+B>,<..Sd` p19
   IFDEF A,<.IF A,SYMBO0L,<PRINTX TRVAR PA ALREADY DEFINEDp>>
	DEFINE A<^OB(.FP)>
	$A==<Z A>>
	$A==<b\|  !j
	.XCREF
	.XCRF1 <..ACT,.`.CSC,..CSN,..IFT,..JX1,..MSK,..MX1 ,..MX2>
	.XCRF1 @<..NAC,..NRGS,..N`S,..NV,..PST,..STKN,..STKQ,..STKR> 
	.XCRF1 <..TRR,@..TSA1,..TX1,..TX`2,.FP,.FPAC,.NAC,.SAC,.SAV1>
	.XC RF1 <.SAV2,.SAV3,@POINTR,POS,WID,..`CAS1,..CNS,..CNS2>
	.XCRF1 <..DPB ,..GNCS,..ICNS,..@JE,..LDB,..STR0,.`.STR1,..STR2>
	.XCRF1 <..STR4,..T QO,..TQZ,..TSAC,.@.TSIZ,..TX,..TY,.`ACV1,.ACV2>
	.XCRF1 <.ACV3,.CASE, .DECR0,.IF0,.INCR@0,.OPST1,.OPST2,.`STKV1>
	.XCRF1 <.STKV2,.STKV3,.TR V1,.TRV2,.TRV3>
	.CREF
   3>
b)H `!p
	IRP A,<
	 IFDEF A,< .XCREF A>>A,< .>}{woP