Google
 
Trailing-Edge - PDP-10 Archives - isi-saio_19830204 - isi-sa10/macsym.unv
There are 97 other files named macsym.unv in the archive. Click here to see a list.
x,5@P C4@ 

(0j
	..NAC==

H0		
	IRP A,<
	

h  .ACV1 (A)>		
	.ACV3 (\..NAC)		
	DEFINE ENDAV.<.ENAV1 <A>>V.<C:$S@ LH,d
	..TAGF (<JUMPN A,>,) C:$s@ MH,l
	..TAGF (<JUMPLE A,>,)C:$y' N,p
	..TAGF (<JUMPL A,>,) C:%C@ O,x
	..TAGF (<JUMPGE A,>,)C:%I' NH,t
	..TAGF (<JUMPG A,>,) C:%c@ M,h
	..TAGF (<JUMPE A,>,) C:&' PH-
	..TAGF Ph(<JN <A>,<B>,>,)N <A>,<B>,>,C:&G Q(-


	..TAGF QH(<JE <A>,<B>,>,)E <A>,<B>,>,C:' H!d
	TXZ A,<^-<B>>TXZ A,C:'	' OH,|
	..TAGF (<JXN A,B,>,)C:'G P-
	..TAGF (<JXE A,B,>,)C:v:g K,X
	TRNA
	..TAGF (JRST,)	C;< JH,T
	..TAGF (JRST,)	..TAGF CO,,@ X0A
	..TRR==x10		
	RADIX 8
	..NV==1			
	IRP 8A,<
	  .TRV1 (XA)>		
	IFG ..NV-x5,<PRINTX ?TOO MANY ARGUMENTS: A>8
	JSP .A16,.ASSEXT		
	RADIX ..TRRx		
	DEFINE ENDAS.<.ENSV1 <A>>
	.ENSV1 <A>>
	E2 81s
	..NA==0X			
	IRP B,<
	x  .BLCL2 B>		
	PUSH P,[..NA+1,,.8.NA+1]	
	PUSHJ P,A		
   SHJ PE3XG x1[	
	..TRR==10		
	RADIX 8		8	
	..NA==2			
	XIRP A,<
	  ..NAx=..NA+1>		
	IRP A,<
	  .BLSU1(8A,\..NA)	
	  ..NXA=..NA-1>
	..NV=x=1			
	IRP B,<
	  .TRV1 (B)>		8
  DEFINE ENDBS.X <.ENBS1 <A>
		x.ENSV1 <B>> 
	JSP .A16,.ENTER
	8..NV-1,,..NV-1
	RADIX ..TRR1
	EJMj' i0.Sv
W0.==A
W1.==B				;INITjIALIZE BREAK MASKj8
W2.==C
W3.==D
==C
W3.==72.A0($UN.,@6R0B,<
	6T0QAB (6V0    ..SEJZ d.5	..V22==ad0
	..V1==a
	IFNdPB <B>,<..V22==Bdp>
REPEAT ..V22-<ea>+1,<	
	%%W==.e0.V1/^D32	
	%%X==eP..V1-%%W*^D32	
	epIFE C,BRKC1 \"<%f%W+"0">	
	IFN Cf0,BRKC2 \"<%%W+"0"fP>
	..V1==..V1+1
		   >
.V1+1 g.9	WA.==WA.!<1B<%%X>>
AEJ\4@ gP.?	WA.==WAgp.&<-1-1B<%%X>>
&<-1-1B<%%X>>
EJ\: bP.
%%FOO==bpa
	BRK0 (%%FOO,B,0)
 (%%FOO,EJn:g jx.a

	BRINI. Ak,B,C,D	
	IRPCk8 E,<	UNBRK. "E"kX>	
	IRPC F,<	BRkxKCH. "F">	
	EXPl W0.,W1.,W2.,W3.		
W1.,W2.,W3.	Ge@ ,GeLR +I  tH'&
	..STR0 th(.DECR0,,<A>,B)DECR0,,<A>,B)I6= HH$R
	A==<-1HhB<C>+1B<C-D>> I
	IF1,<IFDEF %AI(,<PRINTX ?A ALREIHADY DEFINED>>
	DIhEFINE %A (OP,AC,JY,MSK)<
	$A==<ZJ( B>		
	OP (<AC>,B'Y,MSK)><AC>I<p !h* 
	..SVLD	"		
a:!				
  D"(EFINE OD. <
b:!"H				
	.POPX>			
  DEFINE LOOP. <#
	JRST a>		
  #(DEFINE TOP. <a>	#H	
  DEFINE ENDLP#h. <b>		
  DEFIN$E EXIT. <
	JRST b>T. <
	JRST K+\Y`p07p07p07p074p07-bp07UN.,HK+`p07-p07*p07-p07'4p07*-dp07'UNEMK3S@ ,Z....UK:$Kg *"
	OD.K:%G ,\....UKCm )x2YDEFINE ..E*P. (LOCN,PTEXT)
*8	    <PRINTX Loca*Xtion 'LOCN': PTEX*xT
	    >
	  ..E+P.(\.,<A>)
	  PURGE ..EP.
	  KJn9` `p.	
	ERJMP	[aTMSG <? A>
		 JSHLT]
A>
		 JKc  aP.
   IF2,<ap
	IRP A,<
	IFNbDEF A,<EXTERN A
	SUPPRE A>>>M2  ( r<<<A>B<POS(B)>>&<B>>POM2$*g pX/+
	..XX==<pxFLD(A,CM%FNC)>+qB+<Z G>
   IFNBq8 <D>,<..XX=CM%HPqXP!..XX>
   IFNB qx<E>,<..XX=CM%DPPr!..XX>
   IFNB <r8F>,<..XX=CM%BRK!rX..XX>
	..XX
   rxIFNB <C>,<C>
 s  IFB <C>,<0>
 s8  IFNB <D>,<POINsXT 7,[ASCIZ D]>sx
   IFB <D>,<IFtNB <EF>,<0>>
 t8  IFB <E>,<IFNB tX<F>,<0>>
   IFNtxB <E>,<POINT 7,[uASCIZ \E\]>
   u8IFNB <F>,<F>
    <F>,<F>
 M2$HG lX/


	..XX==<lxFLD(A,CM%FNC)>+mB+<0,,F>
   IFNm8B <D>,<..XX=CM%HmXPP!..XX>
   IFNBmx <E>,<..XX=CM%DPnP!..XX>
	..XX
n8  IFNB <C>,<C>
nxIFB <C>,<0>
   IFNB <D>,<POoINT 7,[ASCIZ Do8]>
   IFB <D>,<oXIFNB <E>,<0>>
 ox  IFNB <E>,<POINpT 7,[ASCIZ \E\]>7,[ASCIZ \E\]>M7p ^0-w
	HRROI .^PAC2,[ASCIZ \A\]
	MOVEI .AC3,0
	SOUTI .AC3,0
	M?c@ H!



  DEFINEh e(C)<D>
..FORN==A
REPEAT B(-A+1,<
	.FORN1 H(e)
	..FORN=..FORN+1>.FORN=..FM?@ H!
  DEFINEh d (B)<C>
  IRP A,<
	.FORX1 d,A>
	.FORX1<NFv(..ERR.=0		=	
	..ENC.=0			
=(	IFE B-7,			
	==H <..ENC.=^O57			
	  IFN D-^O44,<>IFN D-^O35,<IFN >(D-^O26,<IFN D-^>HO17,<IFN D-^O10,>h
		     	<IFN D?-1<..ERR.=..ERR.!?(1>>>>>>
	  >
	I?HFN B-7,			
	  <?hIFE B-6,
	    <@..ENC.=^O45			
	@(    IFN D-^O44,<@HIFN D-^O36,<IFN @hD-^O30,<IFN D-^AO22,<IFN D-^O14,A(
			<IFN D-6,<IAHFN D,<..ERR.=.ERAhR.!1>>>>>>>
	   B >
	  IFN B-6,	B(		
	    <IFE B-BH^O10,
	      <..BhENC.=^O50		
	   C   IFN D-^O44,<IC(FN D-^O34,<IFN CHD-^O24,<IFN D-^OCh14,<IFN D-4,
		D	<..ERR.=.ERR.!1>D(>>>>
	      >
	DH    IFN B-^O10,	Dh	
	      <IFE BE-^O11,
		<..ENC.E(=^O62		
		IFN DEH-^O44,<IFN D-^O3Eh3,<IFN D-^O22,<IFFN D-^O11,<IFN F(D,
			<..ERR.=..FHERR.!1>>>>>
		>
	      IFN B-^OG11,		
		<IFE B-G(^O22,
		  <..ENCGH.=^O54		
		  IFNGh B-^O44,<IFN B-H^O22<IFN B,<..ERH(R.=..ERR.!1>>>
	HH	  >
		IFN B-^OHh22,<..ERR.=..ERR.I!2>	
		>
	     I( >
	    >
	IH>
	IFN <<C>&<-1,,Ih0>>,<..ERR.=..ERRJ.!4> 
					     J(
	IFN <<A>&<^O<JH-1,,770000>>>,<..JhERR.=..ERR.!<^O20K>> 
	IFN ..ERR.,K(
	  <IFN ..ERR.&KH1,<MPRNTX (G1BPT,KhIllegal byte offsLet: D)>
	  IFN L(..ERR.&2,<MPRNTX LH(G1BPT,Illegal byLhte size: B)>
	 M IFN ..ERR.&4,
	M(    <MPRNTX (G1BPMHT,<Address indexeMhd, indirect, or gNreater than 18 biN(ts: C>)>
	  IFNNH ..ERR.&<^O20>,<MNhPRNTX (G1BPT,SectOion greater than O(12 bits: A)>
	 OH -1,-1,-1		
	  >Oh
	
	IFE ..ERR.,P
	  <<<..ENC.+<<P(B>-<<D>/<B>>>>PH_<^O36>>!<<C>&<0Ph,,-1>>!<<A>_^O<2Q2>>>	
	PURGE ..ERR.,..ENC.
	.E733a^O44-LNJ
..ERR.=0		](
	]H.BSIZ.=B		
	  .BPOS.=D
	I]hFN <<A>&<^O<-1,,^770000>>>,
	  <M^(PRNTX(G2BPT,Secti^Hon greater than 1^h2 bits: A)
	  ._.ERR.=1
	  >
	I_(FN <<C>&<^O<7777_H40,,0>>>,
	  <MP_hRNTX(G2BPT,Bits 0` - 12 non-zero in`( address field: `HC)
	  ..ERR.=1
`h	  >
	IFN <<E>&a<-1,,0>>,
	  <MPa(RNTX(G2BPT,Bits 0aH-17 non-zero in oahptional field: Eb)
	  ..ERR.=1
	b(  >
	IFN <.BSIZ.bH&<^O<-1,,777700>>bh>,
	  <MPRNTX(G2cBPT,Bytesize greac(ter than 6 bits: cHB)
	ch..ERR.=1
	  >
	IFN <.BPOdS.&<^O<-1,,777700d(>>>,
	  <MPRNTX(dHG2BPT,Byte offsetdh greater than 6 beits: D)
	  ..ERe(R.=1
	  >
	IFN eH..ERR.,<-1,-1,-1>eh		
	
	IFE ..ERRf.,
	  <IFDIF <Df(><>,<<<POINT .BSIfHZ.,E,.BPOS.>!1B1fh2>&<^O<777740,,-1g>>>
	  IFIDN <Dg(><>,<<<POINT .BSIgHZ.,E>!1B12>&<^O<gh777740,,-1>>>
	 h   
	    <<<C>_h(<^O14>>&<^O<37000hH0,,0>>!<<C>&<0,,hh-1>>!<<A>_<^O22>i>>
	  >
	PURGE i(..ERR.,.BSIZ.,.BPOS.
	BSIZ.,.BP755c0:g.WON{  .x3..ERR.=0		/
	IFN <<A>&<^O</8-1,,770000>>>,
	/X  <MPRNTX(GFIWM,S/xection greater th0an 12 bits: A)
08	  ..ERR.=1
	  >0X
	IFN <<B>&<^O<0x777740,,0>>>,
	 1 <MPRNTX(GFIWM,Bi18ts 0 - 12 non-zer1Xo in address fiel1xd: B)
	  ..ERR.2=1
	  >
	IFN ..28ERR.,<-1,-1,-1>	
				
	IFE ..ERR2x.,<
	  <<<B>_<^3O14>>&<^O<370000,38,0>>!<<B>&<0,,-13X>>!<<A>_<^O22>>>3x>
	PURGE ..ERR.
	PURGE..ERR.
	JUMPN 6(A,b		
	..SVDF		6H	
   DEFINE ..TA6hGF (INST,PCT)<
	7INST b'PCT>		
 7(  DEFINE ..TAGE (7HINST,PCT)<
	INST c'PCT>		
	STS.:g 4h+,
	PRINTX 5% IFESK. should b5(e changed to IFNJ5HE.
	IFNJE. <A>.
	IFNJE. <A>S9` :+\
	JUMPLE :(A,b		
	..SVDF	:H		
   DEFINE ..T:hAGF (INST,PCT)<
;	INST b'PCT>		
;(   DEFINE ..TAGE ;H(INST,PCT)<
	INST c'PCT>		
	SS<S@ <+l
	JUMPL <(A,b		
	..SVDF		<H	
   DEFINE ..TA<hGF (INST,PCT)<
	=INST b'PCT>		
 =(  DEFINE ..TAGE (=HINST,PCT)<
	INST c'PCT>		
	STST\G *H*l

   IFB <*hAB>,<		
	..SVD+F			
	ERJMP e		+(
	JRST c		
e:+H!
   DEFINE ..TA+hGF (INST,PCT)<
	,INST c'PCT>		
 ,(  DEFINE ..TAGE (,HINST,PCT)<
	INST,h d'PCT>		
	>
 -  IFNB <AB>,<		-(
	ERJMP c		
	-HB
	JRST d
c:!	A
d:!>
c:!Sa` @,


	JUMPGE @(A,b		
	..SVDF	@H		
   DEFINE ..T@hAGF (INST,PCT)<
A	INST b'PCT>		
A(   DEFINE ..TAGE AH(INST,PCT)<
	INST c'PCT>		
	SSdS@ >+|
	JUMPG >(A,b		
	..SVDF		>H	
   DEFINE ..TA>hGF (INST,PCT)<
	?INST b'PCT>		
 ?(  DEFINE ..TAGE (?HINST,PCT)<
	INST c'PCT>		
	STSq` 8+L
	JUMPE 8(A,b		
	..SVDF		8H	
   DEFINE ..TA8hGF (INST,PCT)<
	9INST b'PCT>		
 9(  DEFINE ..TAGE (9HINST,PCT)<
	INST c'PCT>		
	STSt\g .*v
	PRINTX .(% IFNES. should b.He changed to IFJE.hR.
	IFJER. <A>,<B>FJER. <A>,Su)' 2+"
   IFB <2(A>,<		
	..SVDF	2H		
	ERJMP b
  2h DEFINE ..TAGF (I3NST,PCT)<
	INST 3(b'PCT>		
   DEF3HINE ..TAGE (INST,3hPCT)<
	INST c'P4CT>		
	>
   IFN4(B <A>,<
	ERJMP b
	A
b:!> Sv:g '*P
   IFB <'(AB>,<		
	..SVD'HF			
	TRNA			
	'hJRST c		
   DEF(INE ..TAGF (INST,((PCT)<
	INST c'P(HCT>		
   DEFINE (h..TAGE (INST,PCT))<
	INST d'PCT>	)(	
	>
   IFNB <)HAB>,<		
	JRST )hc		
	B
	JRST *d
c:!	A
d:!>
c:!	A
d:!>S

S@ F,>
	JN <A>F(,<B>,c	
	..SVDFHF			
   DEFINE .Fh.TAGF (INST,PCT)<G
	INST c'PCT>		G(
   DEFINE ..TAGGHE (INST,PCT)<
	IGhNST d'PCT>		
	ST d'PCT>		
	S H(,P
	JE <A>HH,<B>,c	
	..SVDHhF			
   DEFINE .I.TAGF (INST,PCT)<I(
	INST c'PCT>		IH
   DEFINE ..TAGIhE (INST,PCT)<
	IJNST d'PCT>		
	ST d'PCT>		
	S< /(+


   IFB </HA>,<		
	..SVDF	/h		
	JRST b
   0DEFINE ..TAGF (IN0(ST,PCT)<
	INST 0Hb'PCT>		
   DEFI0hNE ..TAGE (INST,P1CT)<
	INST c'PC1(T>		
	>
   IFNB1H <A>,<
	JRST b
	A
b:!> bSDS@ B,
	JXN A,B(B,c	
	..SVDF		BH	
   DEFINE ..TABhGF (INST,PCT)<
	CINST c'PCT>		
 C(  DEFINE ..TAGE (CHINST,PCT)<
	INST d'PCT>		
	STSEc@ D,,
	JXE A,D(B,c	
	..SVDF		DH	
   DEFINE ..TADhGF (INST,PCT)<
	EINST c'PCT>		
 E(  DEFINE ..TAGE (EHINST,PCT)<
	INST d'PCT>		
	STS:  r('
	..STR0 rH(.INCR0,,<A>,B)INCR0,,<A>,B)S? !`
	TXO A,<B>
	TXO A,Ut@ h(B
	..STR1 (..JAN,<d,<C>>,(<A>,B,..STR5)
d:B,..STR5)
U {H'^
	..STR1 {h(..JE,<C>,<A>,B,..STR3)<A>,U8 (
	..STR1((..JN,<C>,<A>,B,..STR3)<A>,U:
	..STR1 H(..JNA3,<C>,<A>,B,..STR4)<A>U:~  (\
	..STR1 ((..JNO,<d,<C>>,H<A>,B,..STR5)
d:B,..STR5)
U? H(&
	..STR1 h(..JN,<C>,<A>,B,..STR4)<A>,UN.,@`p07p07p07p07

,p07-bp07

UN.,HUN.,HA  UN.,HUNEM`p07$p07!p07$p07,p07!-dp07UNEMUNEMA  UNEMUNn9hA  UNn9hUb( 0(#
	..JX1==0HB		
	.IFN ..JX10h,ABSOLUTE,<PRINTX1 B NOT ABSOLUTE
		..JX1==0>
	.I1HF ..JX1,ABSOLUTE,1h<
	.IF0 <<..JX1>2-1B0>,<	
		JUMPG2(E A,C>,<
	.IF02H <<..JX1>+1>,<	
2h	  JUMPE A,C>,<3	
		TXNN (A,..J3(X1)
		JRST C>>>)
		JRST C>>>Ub0 ;(#v
	..JX1==;HB		
	.IFN ..JX1;h,ABSOLUTE,<PRINTX< B NOT ABSOLUTE
		..JX1==0>
	.I<HF ..JX1,ABSOLUTE,<h<
	.IF0 <<..JX1>=-1B0>,<
		JUMPGE=( A,C>,<
	..ONE=HB (..BT,B)	
	.I=hF0 ..BT,<
	  SET>CM .SAC,A		
	  >(JXN (.SAC,..JX1,>HC)>,< 
	    TXNN>h A,..JX1	
	    JRST C>>>	    Ubp 3h#6
	..JX1==4B		
	.IFN ..JX14(,ABSOLUTE,<PRINTX4H B NOT ABSOLUTE
		..JX1==0>
	.I5F ..JX1,ABSOLUTE,5(<
	.IF0 <<..JX1>5H-1B0>,<	
		JUMPL5h A,C>,<
	.IF0 6<<..JX1>+1>,<	
	6(  JUMPN A,C>,<	6H
		TXNE (A,..JX6h1)
		JRST C>>>)
		JRST C>>>Ubx 7(#V
	..JX1==7HB		
	.IFN ..JX17h,ABSOLUTE,<PRINTX8 B NOT ABSOLUTE
		..JX1==0>
	.I8HF ..JX1,ABSOLUTE,8h<
	.IF0 <<..JX1>9-1B0>,<
		JUMPL 9(A,C>,<
	..ONEB9H (..BT,B)	
	.IF9h0 ..BT,<
	  SETC:M .SAC,A		
	  J:(XE (.SAC,..JX1,C:H)>,< 
	    TXNE :hA,..JX1	
	 JRSTC>>>	.=AJXF	
	.BPOS.=C
	.4x.ERR.=0		
	IFN <5<B>&<^O<777740,,580>>>,
	  <MPRNTX5X(L1BPT,Bits 0 - 15x2 non-zero in add6ress field: B)
68	  ..ERR.=1
	  >6X
	IFN <.BSIZ.&<^6xO<-1,,777700>>>,
	  <MPRNTX(L1BPT78,Bytesize greater7X than 6 bits: A)7x
	  ..ERR.=1
	 8 >
	IFN <.BPOS.&88<^O<-1,,777700>>>8X,
	  <MPRNTX(L1B8xPT,Byte offset gr9eater than 6 bits98: C)
	  ..ERR.=9X1
	  >
	
	IFN 9x<..ERR.>,<-1,-1,-:1>
	
	IFE <..ER:8R.>,
	  <IFIDN <:XC><>,<POINT .BSI:xZ.,B>
	  IFDIF ;<C><>,<POINT .BS;8IZ.,B,.BPOS.>
	;X  >
	PURGE ..ERR;x.,.BSIZ.,.BPOS.
	BSIZ.,.BPOS.
XJ Qh5av8..ERR.=0		R
	R8.BSIZ.=A		
	  .BPOS.=C
	IRXFN <<B>&<^O<7777Rx40,,0>>>,
	  <MPSRNTX(L2BPT,Bits 0S8 - 12 non-zero inSX address field: SxB)
	  ..ERR.=1
T	  >
	IFN <<D>&T8<-1,,0>>,
	  <MPTXRNTX(L2BPT,Bits 0Tx-17 non-zero in oUptional field: DU8)
	  ..ERR.=1
	UX  >
	IFN <.BSIZ.Ux&<^O<-1,,777700>>V>,
	  <MPRNTX(L2V8BPT,Bytesize greaVXter than 6 bits: VxA)
	W..ERR.=1
	  >
	IFN <.BPOW8S.&<^O<-1,,777700WX>>>,
	  <MPRNTX(WxL2BPT,Byte offsetX greater than 6 bX8its: C)
	  ..ERXXR.=1
	  >
	IFN Xx..ERR.,<-1,-1,-1>Y		
	
	IFE ..ERRY8.,
	  <IFDIF <CYX><>,<<<POINT .BSIYxZ.,D,.BPOS.>!1B1Z2>&<^O<777740,,-1Z8>>>
	  IFIDN <CZX><>,<<<POINT .BSIZxZ.,D>!1B12>&<^O<[777740,,-1>>>
	[[8   <1B0!<<^O<4000[X37,,-1>>&<B>>>	
	  >
	PURGE ..E\RR.,.BSIZ.,.BPOS.
	BSIZ.,.BPOS.745
0
	YN{  +X2s..ERR.=0		+x
	IFN <<A>&<^O<,777740,,0>>>,
	 ,8 <MPRNTX(LFIWM,Bi,Xts 0 - 12 non-zer,xo in address fiel-d: A)
	  ..ERR.-8=1
	  >
	IFN ..-XERR.,<-1,-1,-1>	
	IFE ..ERR.,<1B0.!<<^O<400037,,-1>.8>&<A>>>	
	PURGE ..ERR.
	PURGEY>

@ b(&
	..STR0 bH(..LDB,A,B,C)..LDB,A,B,C)[8@ H |<1B<<A>-1>-1B<B>><A>-1[>!` !<<A>-<<A>/<B>>*<B>>A[?7 h!P
   ..MX1==B			
H.IFN (..MX1,ABSOLUTE,<
	MOVE A,[B]>
h   .IF ..MX1,ABSOLUTE,<
	..MX2==0(		
	IFE <..MX1>BH53,<
	  ..MX2==1h
	  MOVEI A,..MX1>	
	IFE ..MX2,(<		
	IFE <..MX1>HB17,<
	  ..MX2==h1
	  MOVSI A,(..MX1)>>	
	IFE ..(MX2,<		
	IFE <<.H.MX1>B53-^O777777h>,<
	..MX2==1
	  HRROI A,<..M(X1>>>	
	IFE ..MXH2,<		
	IFE <<..MhX1>B17-^O777777B17>,<
	  ..MX2==1(
	hHRLOI A,(..HMX1-^O777777)>> 
	IFE ..MX2,<		
	  MOVE A,[..MX1]>	
  >,[..MX1[Cm 'X2KDEFINE ..M'xP. (LOCN,MTEXT,PT(EXT)
	    <PRINT(8X Location 'LOCN'(X, Macro 'MTEXT': (xPTEXT
	    >
	 ) ..MP.(\.,A,<B>)8)
	  PURGE ..MP.
	  URGE ..MP.[N^= Jh$b
	A==C	K	
	IF1,<IFDEF %K(A,<PRINTX ?A ALRKHEADY DEFINED>>
	KhDEFINE %A (OP,ACL,Y,MSK)<
	$A==<L(Z B>		
	OP (<AC>,B'Y,MSK)><AC[Xp H!V
	MOVE .ShAC,A
	MOVEM .SAC,B
	MOVEM .SA[ZI` (!\
	MOVX .SHAC,<A>
	MOVEM .SAC,B
	MOVEM ._CL@ vh'8
	..STR0 w(.OPST1,<A>,<B>,C)1,<A>,<B>_CLV y'J
	..STR0 y((.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 <A_p>>
	CALL JSMSG0>
	CALL JSMSG0a4\G 0 
	..PGV0=P=.		
	.JBVER=:^Op137		
	LOC	.JBVER		
	BYTE	(3)D(09)A(6)B(18)C
P	.ORG	..PGV0		
.ORG	..PGV0		
a>Mm<NTBWIDB),A,POS(B)>a? de  ,~e&:x ]-iJRST RSKPkJRST RSKPeN^A  eN^gXY X0Y
	..TRR==x10		
	RADIX 8
		..NV==1			
	IRP 	8A,<
	  .TRV1 (	XA)>		
	IFG ..NV-	x5,<PRINTX ?TOO MA
NY ARGUMENTS: A>
8
	JSP .A16,.SASE
XT		
	RADIX ..TRR
x		
	DEFINE ENDSA.<.ENSV1 <A>>
	.ENSV1 <A>>
	g4X1 H1:
	.NAC==0h
	IRP A,<
	  PUSH P,A		
	  .N(AC=.NAC+1>		
	.NH1==.NAC
	SETMI .hA16,[CAIA	
		AOS -.N1(P)	
	  IRP( A,<
		.N1=.N1-H1
		MOVE A,-.N1h(P)>  
		SUB P,[.NAC,,.NAC]  
		(POPJ P,]	
	PUSH P,.A16	
	PUSH g$;8 o&z
	..STR1 o((..TQC,,<A>,B,..STR4)<A>,B,.g%{R kH&^
	..STR1 kh(..TQO,,<A>,B,..STR4)<A>,B,.g',W gh&@
	..STR1 h(..TQZ,,<A>,B,..STR4)<A>,B,.gR$g ( 
F=:0
T1H=:1
T2=:2
T3=:3h
T4=:4
Q1=:5
Q2=:6
Q3=:7
P1=:(10
P2=:11
P3=:1H2
P4=:13
P5=:14h
P6=:15
CX=:16
P=:17
CX=:16vh/F
	..STKR=w=10		
	RADIX 8
w(	..STKN==0
	IRP wHA,<
	  .STKV1 (whA)>
	JSP .A16,.xSTKST
	 ..STKN,,x(..STKN
	RADIX ..xHSTKR
	DEFINE ENDxhSV.<.ENSV1 <A>>
gR~NSV1<A>>
	..STR0e((..DPB,A,B,C)..DPB,A,B,C)i6tP 
	..STR1E,<A>,B,..STR3)<A>,B,i6u` h)
	..STR1 (..TYNN,,<A>,B,..STR3)<A>,B,i7p ]P-o
	HRROI .]pAC1,[ASCIZ \A\]
	PSOUTZ\A\]
	    ..ShTR1 (..TY,C,<A>,B,..STR3)<A>,iF h)p
	    ..STR1 (..TY,CA,<A>,B,..STR3)<A>iFP ()d
	    ..SHTR1 (..TY,CE,<A>,B,..STR3)<A>iF` )j
	    ..S(TR1 (..TY,CN,<A>,B,..STR3)<A>iFp H)
	    ..ShTR1 (..TY,N,<A>,B,..STR3)<A>,iFt h)(
	    ..STR1 (..TY,NA,<A>,B,..STR3)<A>iFtP ()
	    ..SHTR1 (..TY,NE,<A>,B,..STR3)<A>iFu` )"
	    ..S(TR1 (..TY,NN,<A>,B,..STR3)<A>iFx H).
	    ..ShTR1 (..TY,O,<A>,B,..STR3)<A>,iF| h)@
	    ..STR1 (..TY,OA,<A>,B,..STR3)<A>iF|P ()4
	    ..SHTR1 (..TY,OE,<A>,B,..STR3)<A>iF}` ):
	    ..S(TR1 (..TY,ON,<A>,B,..STR3)<A>iGP H)F
	    ..ShTR1 (..TY,Z,<A>,B,..STR3)<A>,iGT h)X
	    ..STR1 (..TY,ZA,<A>,B,..STR3)<A>iGTP ()L
	    ..SHTR1 (..TY,ZE,<A>,B,..STR3)<A>iGU` )R
	..S(TR1 (..TY,ZN,<A>,B,..STR3)<A>iK4@ X0
	..TRR==x10		
	RADIX 8
	..NV==1			
	IRP 8A,<
	  .TRV1 (XA)>		
	JSP .A16,x.TRSET		
	 ..NV-1,,..NV-1
	RADIX8 ..TRR		
	DEFINEX ENDTV.<.ENSV1 <A>>
	.ENSV1 <ib ("@
		..TX(C,A,<B>)..TX(Cib )H"L
		..TX(CA,A,<B>).TX(CibP (H"D
		..TX(CE,A,<B>).TX(Cib` )"H
		..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",
		..TX(OA,A,<B>).TX(Oib|P $H"$
		..TX(OE,A,<B>).TX(Oib}` %"(
		..TX(ON,A,<B>).TX(OicP &"0
		..TX(Z,A,<B>)..TX(ZicT 'H"<
		..TX(ZA,A,<B>).TX(ZicTP &H"4
		..TX(ZE,A,<B>).TX(ZicU` '"8
		..TX(ZN,A,<B>).TX(Zk:*g c0.
%%FOO==cPa
	BRK0 (%%FOO,B,1)
 (%%FOO,m$,YP'm$-X5Q |m$-Z7Q xm$.zQ po&  

H d<^L<-<<A>_<^L<A>>>-1>>>q
fC@ v/0
	EXTEND A,[XBLT]XTEND q"eJ  P q6~i4 C q? !h
	TXC A,<B>
	TXC A,:h $
	A:&@ eh&:
	..TSIZ f(..PST,C)
	.CASf(E ..PST,<<
		MOVfHEM A,B>,<
		HRfhRM A,B>,<
		HRgLM A,B>,<
		DPg(B A,[POINTR (B,C)]>>INTR (B,:<;Y a(&
   DEFINaHE ..CNS2 (NEW,OLDah)<
	  OLD>			
	..CNS ()>			
	:L;Y _&
   DEFIN_(E ..CNS (ARG)<
	_H..CNS2 <ARG>,>
h
   DEFINE ..CNS2` (NEW,OLD)<
	DEF`(INE ..CNS (ARG)<
	  ..CNS2 <ARG>,`h<OLD'NEW>>>
   OLD'NEW>>>
   :Mi R- 
 DEFINE R(ELSE. <
	..TAGE RH(JRST,)		
	..TAGRhF (,<:!>)		
	SYNS ..TAGE,..TAGF	
S(   DEFINE ELSE. <SH....U>>	

 DEFIShNE ENDIF. <
	..TTAGF (,<:!>)		
	..RSDF>			
   .:TH h(F
	..JNA3 (A,C,D)JNA3 :TI 	((T
	..TSAC 	H(..ACT,C)
	.IF0	h ..ACT,<
	  SETC
M .SAC,C	
	  JX
(E (.SAC,D,<B>)>
H,<	
	  JXO (C,D,<B>)>O (C,:TP |('|
	..TSAC |H(..ACT,B)	
	.IF|h0 ..ACT,<
	  ..T}SIZ (..PST,C)	
}(	  .CASE ..PST,<<}H
		SKIPN B	
		}hJRST A>,<
		HRR~Z .SAC,B	
		JUM~(PE .SAC,A>,<
		~HHLRZ .SAC,B	
		~hJUMPE .SAC,A>,<
		MOVE .SAC,B	
		JXE (.SAC,C,<HA>)>>>,<
	  JXE (B,C,<A>)>E:U` h( 
	..TSAC (..ACT,B)	
	.IF(0 ..ACT,<
	  ..THSIZ (..PST,C)
	h  .CASE ..PST,<<
		SKIPE B	
		J(RST A>,<
		HRRZH .SAC,B	
		JUMPhN .SAC,A>,<
		HLRZ .SAC,B	
		J(UMPN .SAC,A>,<
H		MOVE .SAC,B	
h		JXN (.SAC,C,<A>)>>>,<
	  JXN (B,C,<A>)>N :Uh) (:
	..TSAC ((..ACT,B)
	.IF0H ..ACT,<
	  SETChM .SAC,B	
	  JXN (.SAC,C,<A>)>(,<	
	  JXF (B,C,<A>)>F (B,:Ukh 

(`
	..JN (A,C,D)..JN (:Uki 

H(d
	..JE (<B>,C,D)JE (<:dH@ c&$
	..TSIZ c((..PST,C)
	.CAScHE ..PST,<<
		MOVchE A,B>,<
		HRRdZ A,B>,<
		HLRd(Z A,B>,<
		LDBdH A,[POINTR (B,C)]>>INTR (B,:}i1 Gh$@
	A==<<<H-<B>>&<B>>&<1B<^L<B>>>>>&<1B<;9 -8
	.POPX;LH Lh$v
	IFNDEF MC,<PRINTX ?C ISM( NOT DEFINED
	  MHA (<B>,D,.FWORMhD)>	
	IFDEF C,<N
	IFNDEF %C,<
N(	  A (<B>,D,CNH)>	
	IFDEF %C,<Nh
	  %C (A,<B>,D,C)>>A,<B>;LH O(%4

	..NS==0OH			
	IRP C,<..NOhS=..NS+1>	
	IFE P..NS,<PRINTX ?EMPP(TY STRUCTURE LISTPH, A>
	IFE ..NS-Ph1,<		
	  ..STR0 Q(A,<B>,<C>,D)Q(>
	IFG ..NS-1,<	QH	
	..ICNS			
	.Qh.CNS (<E (A,<BR>,,>) 
	IRP C,<R(		
	  IFNDEF C,RH<PRINTX C NOT DERhFINED>
	  IFDEF SC,<
	  IFNDEF %S(C,<
	  ..CNS (<SH,C,D>)>	
	  IFShDEF %C,<
	  %CT (..STR2,,D,C)>T( 
	  ..CNS (<)>)TH		
	  ..GCNS		
Th	  ..ICNS		
	  .U.CNS (<E (A,<BU(>>) 
	  IFNDEF %UHC,<
	  ..CNS (<Uh,C,D>)>	
	  IFVDEF %C,<
	  %CV( (..STR2,,D,C)>VH>> 
	..CNS (<,,)>)		
	..GCNS>);LI W%8
	..CNS (<,C,B>).CNS (;LI WH%N


	IFDIF <WhD><F>,<
	  IFNXB <D>,<
	    AX( (<B>,D,..MSK)	XH
	    IFNB <F>,Xh<PRINTX C AND EY ARE IN DIFFERENTY( WORDS>>
	  ..MSYHK==0>		
	IFNB <YhF>,<
	  ..MSK=..MSK!<E>>MSK=..;LJ Z(%^


	IFDIF <ZHD><F>,<	
	  IFZhNB <D>,<
	    [A (<B>,D,..MSK)[(>	
	  ..MSK==0>	[H	
	IFNB <F>,<
[h	  ..MSK=..MSK!<E>>MSK=..MSK!<;LJ \(%t


	IFDIF <\HD><F>,<	
	  IF\hNB <D>,<
	    I]FNB <F>,<		
		](A1 (B,D,..MSK)>]H 
	    IFB <F>,]h<		
		A2 (B,D^,..MSK)>> 
	  ..^(MSK==0>		
	IFNB ^H<F>,<
	  ..MSK=..MSK!<E>>MSK=;i TH-6
	SYN ELSThE.,a
	SYN ENDIFU.,b
	SYN ..TAGFU(,c
	SYN ..TAGE,UHd
	.PSHX <
	  UhSYN a,ELSE.
	  VSYN b,ENDIF.
	 V( SYN c,..TAGF
	VH  SYN d,..TAGE>
	..INDF			
	      NDF			
	   ;k $h*4
	SYN OD.%,a
	SYN LOOP.,%(b
	SYN TOP.,c
%H	SYN EXIT.,d
	.%hPSHX <
	 SYN a,&OD.
	 SYN b,LOO&(P.
	 SYN c,TOP.&H
	 SYN d,EXIT.>	 SYN d,EXIT.>;$r ,`....U;$s ,^....U;&` oh'
	..TSIZ p(..PST,C)
	.IF0p( ..PST,<		
		SETpHCMM B>,<	
	q..phTSAC (..ACT,B)	
	q(.IF0 ..ACT,<
		MOVX .SAC,C
qH		XORM .SAC,B>,<qh
		..TX(C,B,C)>>..TX(C,B,C);&` l(&t
	..TSIZ lH(..PST,C)
	.CASlhE ..PST,<<
		SETmOM B>,<
		HLLOSm( B>,<
		HRROS mHB>,<
	  ..TSAC (mh..ACT,B)
	  .IFn0 ..ACT,<
		MOVXn( .SAC,C
		IORM nH.SAC,B>,<
		..TX (O,B,C)>>>T;&@ hH&X
	..TSIZ hh(..PST,C)	
	.CAiSE ..PST,<<
		SEi(TZM B>,<	
		HLLiHZS B>,<	
		HRRZihS B>,<	
	  ..TSjAC (..ACT,B)	
	j(  .IF0 ..ACT,<
	jH	MOVX .SAC,C	
	jh	ANDCAM .SAC,B>,k<
		..TX (Z,B,C)>>>TX (Z,B,;&81 D$*
	A==0		D(	
	..TSA1==<Z BDH>		
	.IF ..TSA1,DhABSOLUTE,<	
	  IEFE ..TSA1&^O77777E(7777760,<A==1>> 
	60,<A==1>> ;&:= BH$
	A==3		Bh	
	IFE <B>+1,<CA=0>	
	IFE <B>-C(^O777777,<A==1> CH
	IFE <B>-^O777777B17,<A==2>7;&;Q Eh$:
	A==0		F	
	..TSA1==0		
F(	IRPC C,<
	  ..FHTSA1=..TSA1+1
	GFh IFE ..TSA1-B,<
	   IFIDN <C><G(D>,<
		A==1>		
	;'STOPI>>		
   ..TX1h==C			
(.IFN ..TX1,ABSOLUTE,<
	TDA B,[C]>
H   .IF ..TX1,ABSOLUTE,<		
	..TX2=h=0		
	IFE <..TX1(&^O777777B17>,<
H	  ..TX2==1		
	 h TRA B,..TX1>
 	IFE ..TX2,<		
	 (IFE <..TX1&^O7777 H77>,<
	  ..TX2== h1		
	  TLA B,(!..TX1)>>
	IFE ..!(TX2,<		
	  IFE <!H<..TX1>B53-^O7777!h77>,< 
	    ..TX*3 (A,B)>>	
	IF*(E ..TX2,<		
	  I*HFE <..TX1+1>,<	
*h	    ..TX4 (A,B+)>>
	IFE ..TX2,<+(		
	  TDA B,[..TX1]>	
  >,[.;'` +h"p
	IFIDN <,A><Z>,<		
	  ..,(TX2==1
	  ANDI ,HB,^-..TX1>	
	IFI,hDN <A><O>,<		
	-  ..TX2==1
	-HOR-(CMI B,^-..TX1>	
	IFIDN <A><C>,<-h		
	  ..TX2==1
.	  EQVI B,^-..TX1>QVI B,^-..TX;' .H"~
	IFIDN <.hA><NN>,<
	  ..T/X2==1
	  CAIN B/(,0>		
	IFIDN <A/H><NE>,<
	  ..TX2/h==1
	  CAIE B,0>
	  CAIE B,0;'  (*

	..TSAC  H(..ACT,B)	
	.IF h0 ..ACT,<
		PRIN!TX ?TQA - B NOT!( IN AC>,<
		TXA B,C>
		TXA;'R 
	..TSAC (..ACT,B)	
	.IF(0 ..ACT,<
	  ..JHX1==C
	  .IF0 <..JX1-1B0>,<
		ShKIPGE B>,<
	   ( .IF0 <..JX1+1>,<H
		SKIPE B>,<
h		MOVE .SAC,B
		TXNE .SAC,C>>>,(<
		TXNE B,C>
		TXNE B,C>;'W H)~
	..TSAC h(..ACT,B)	
	.IF0 ..ACT,<
	  ..J(X1==C
	  .IF0 <H..JX1-1B0>,<
		ShKIPL B>,<
	(  .IF0 <..JX1+1>,<
		SKIPN B>,<
	H	MOVE .SAC,B
		hTXNN .SAC,C>>>,<
		TXNN B,C>
`PP  P 0P d  
	.ACV2 (A)
	.ACV2 (d@ (1
   IFDEFH A,<.IF A,SYMBOhL,<PRINTX ACVAR A ALREADY DEFINED(>>
	A==.FPAC+..HNAC	
	$A==A		
	IFB <B>,<..NAC=..NAC+1>
	IFNB (<B>,<..NAC=..NAC+B>..NAC=..NACd` h1
	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:
d; 82!
	  IFIDNX <A><.>,<
		XMOxVEI .A16,B	
		P USH P,.A16>
	  I 8FDIF <A><.>,<
	 X  .IFATM <A>,.BL xF1	
	  IFN .BLF1!,<
	    .BLF1==0!8		
	    .IF %A,!XMACRO,<	
		.BLF1!x==1>	
	    IFNB "<B>,<
		.BLF1=="81>	
	    IFN .BL"XF1,<		
		LOAD .A"x16,A,B
		PUSH #P,.A16>>
	  IFE #8.BLF1,<		;IF WASN#X'T A STRUCTURE RE#xF,
		PUSH P,A>>$	
	  ..NA=..NA+1
	  ..NA=..NA+1
d;	 x1w
	.BLCL1 A
	.BLCL1 
f=( x1a
	DEFINE A<-^OB(.FP)>
	$A==<Z A>>
	9  @H$
	..CSN==@hA
	..CSC==0
	IARP B,<
	IFE ..CA(SN-..CSC,<
	  STAHOPI
	  ..CAS1 (AhB)>
	..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 u('2
	..PST==uHC&<-C>
	.IF0 .uh.PST-1,<
		SOS vB>,<	
		MOVX .SAv(C,-..PST 
		ADDM .SAC,B>		ADDMtH h1
	IRP A,<
	  .ENAV2 (A)>	  .ENAV2 (A)tI H1
	.ENAV3 (A)
	.ENAV3 tI 1 
	PURGE A,A
  PURGE t,h X1g
	IRP A,x<
   DEFINE A<....U>>FINE A<.v=H }(/l
	IRP A,}H<
	  .ENSV2 (A)>	  .ENSV2 (A)v=I ~/p
	.ENSV3 (A)
	.ENSV3 v=I ~H/t
	DEFINE A<....U>EFINE vI9A  vI9~+H !
	A (\..FORN)
	A (\..~. !
	A BP `P =|RQ &2 ?($
	..IFT==?HA		
	IFE ..IFT,?h<
	B
	..IFT==0@>		
	IFN ..IFT,<
	C>N ..IFT,<&4 $X29
	IRPC A$x,<
	B==0
	IFGE% "A"-"A",<IFLE "%8A"-"Z",<B=1>> 
	IFGE "A"-"0",<%xIFLE "A"-"9",<B&=1>>
	IFE "A"-"&8%",<B=1>
	IFE "&XA"-"$",<B=1>
	&xIFE "A"-".",<B='1>
	IFE B,<STOPI>>IFE B,<STOP&t<H s' 
	..PST==s(C&<-C>	
	.IF0 sH..PST-1,<
		AOS shB>,<	
		MOVX .StAC,..PST	
		ADDM .SAC,B>		ADDM&tj7Q ?2DQ x6MiTQ @;`P ?= wH'D
	..TSIZ wh(..PST,C)
	.IF0x ..PST,<
		A Bx(>,<	
		..LDB .SAxHC,B,C 
		A .SAC>C 
		A .S?=	 yh'X
	..TSIZ z(..PST,C)
	.IF0z( ..PST,<
		A BzH>,<	
		..LDB .SAzhC,B,C
		A .SA{C
		..DPB .SAC,B,C>DPB .SAC,B~ YH-L
	.PSHX1 (.POPX2).PSHX1 B~	 Z-P
	.POPX4 A
	.POPX4 B~	 [-^
	A
   [(DEFINE .PSHX1 (WC[HH,STUFF)<
	WCH ([h<<STUFF>,<B>>)><STUFF>,<B>>)>B~
 ZH-T
	.POPX3 B
	.POPX3 C WH-<
	.PSHX1 (.PSHX2,<A>)1 C X-@
	A (<B>)
	A (<BC	 XH-H
   DEFINXhE .PSHX1 (WCH,STUYFF)<
	WCH (<<STUFF>,<A>>)><STUJDP'K%,z h x<<<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 y(/J
	.STKV2 (A)
	.STKV2 O%=I yh/X
	IFB <Bz>,<..STKN==..STKNz(+1>
	IFNB <B>,<zH..STKN==..STKN+Bzh>
	..STKQ==..STK{N+1
	.STKV3 (A,\..STKQ)V3 (A,O%=I {H/f
   IFDEF{h A,<.IF A,SYMBO|L,<PRINTX STKVAR |(A ALREADY DEFINE|HD>>
	DEFINE A<-|h^OB(P)>
	$A==<Z A>>
	$A==<S):A  S):S9:A  S9:Sd  0
	.TRV2 (A)
	.TRV2 (Sd@ X0
	.TRV3 (xA,\..NV)	
	IFB <B>,<..NV=..NV+18>
	IFNB <B>,<..NV=..NV+B>,<..Sd` x0)
   IFDEF A,<.IF A,SYMBO8L,<PRINTX TRVAR XA ALREADY DEFINEDx>>
	DEFINE A<^OB(.FP)>
	$A==<Z A>>
	$A==<b\| ( Z
	.XCREF
	.XCRF1 <..ACT,.h.CSC,..CSN,..IFT,..JX1,..MSK,..MX1(,..MX2>
	.XCRF1 H<..NAC,..NRGS,..NhS,..NV,..PST,..STKN,..STKQ,..STKR>(
	.XCRF1 <..TRR,H..TSA1,..TX1,..TXh2,.FP,.FPAC,.NAC,.SAC,.SAV1>
	.XC(RF1 <.SAV2,.SAV3,HPOINTR,POS,WID,..hCAS1,..CNS,..CNS2>
	.XCRF1 <..DPB(,..GNCS,..ICNS,..HJE,..LDB,..STR0,.h.STR1,..STR2>
	.	XCRF1 <..STR4,..T	(QO,..TQZ,..TSAC,.	H.TSIZ,..TX,..TY,.	hACV1,.ACV2>
	.XC
RF1 <.ACV3,.CASE,
(.DECR0,.IF0,.INCR
H0,.OPST1,.OPST2,.
hSTKV1>
	.XCRF1 <.STKV2,.STKV3,.TR(V1,.TRV2,.TRV3>
	.CREF
   3>
b)H h `
	IRP A,

<
	 IFDEF A,< .XCREF A>>A,< .>}{woP