"$Header$"
#define LOCLABS		/* define if target assembler recognizes local labels */
#define REGVARS		/* define for register variables */
/*#define DORCK		/* define if you want RCK */
#define FLOAT4		/* define if you want better 4-byte FP arithmetic */
#define FLOAT8		/* define if you want better 8-byte FP arithmetic */
#define ASBUG_AVOID	/* define if you want to avoid a bug in the BSD 4.1 VAX
			   assembler, that sometimes generates "*1" for
			   (r1). This is avoided by generating 0(r1), which is
			   optimized by the assembler to (r1).
			*/
#ifdef ASBUG_AVOID
#define REGDEFFORMAT "0(%[reg])"
#else
#define REGDEFFORMAT "(%[reg])"
#endif

#define NC nocoercions :
#define BSIZE 4

EM_PSIZE = 4
EM_WSIZE = 4
EM_BSIZE = BSIZE

/****************************************************************
 * VAX 11 Back end table.					*
 * Author : Ceriel J.H. Jacobs, Duk Bekema			*
 *								*
 * Wordsize = 4 bytes						*
 * Pointersize = 4 bytes					*
 *								*
 * There is hardly any instruction timing information available *
 * for the DEC-VAX machines. Timing of addressing modes was done*
 * by counting the memory references and multiplying them by	*
 * 3.	300 nanosec seems to be a typical memory reference time.*
 * However, the VAX can be much faster, if the "cache hit rate" *
 * is high.							*
 * Assumed hardware : VAX-11/7?0 with Floating Point Acc.	*
 ****************************************************************/

REGISTERS:
AP	= ("ap",4),ArgumentPointer.
LB	= ("fp",4),LocaLBase.
R0	= ("r0",4),REG.
R1	= ("r1",4),REG.
R2	= ("r2",4),REG.
R3	= ("r3",4),REG.
#ifdef REGVARS
R4	= ("r4",4) regvar,RREG.
R5	= ("r5",4) regvar,RREG.
R6	= ("r6",4) regvar,RREG.
R7	= ("r7",4) regvar,RREG.
R8	= ("r8",4) regvar,RREG.
R9	= ("r9",4) regvar,RREG.
RA	= ("r10",4) regvar,RREG.
RB	= ("r11",4) regvar,RREG.
#else REGVARS
R4	= ("r4",4),REG.
R5	= ("r5",4),REG.
R6	= ("r6",4),REG.
R7	= ("r7",4),REG.
R8	= ("r8",4),REG.
R9	= ("r9",4),REG.
RA	= ("r10",4),REG.
RB	= ("r11",4),REG.
#endif REGVARS
QR0	= ("r0",8,R0,R1),QREG.
QR2	= ("r2",8,R2,R3),QREG.
#ifndef REGVARS
QR4	= ("r4",8,R4,R5),QREG.
QR6	= ("r6",8,R6,R7),QREG.
QR8	= ("r8",8,R8,R9),QREG.
QRA	= ("r10",8,RA,RB),QREG.
#endif REGVARS
QR1	= ("r1",8,R1,R2),QREG.
#ifndef REGVARS
QR3	= ("r3",8,R3,R4),QREG.
QR5	= ("r5",8,R5,R6),QREG.
QR7	= ("r7",8,R7,R8),QREG.
QR9	= ("r9",8,R9,RA),QREG.
#endif REGVARS

TOKENS:

/* First some EM machine tokens */
CONST1 =	{INT num;}		4 cost=(4,3)  "$%[num]"
CONST2 =	{INT num;}		4 cost=(4,3)  "$%[num]"
CONST4 =	{INT num;}		4 cost=(4,3)  "$%[num]"
CONST8 =	{STRING ind;}		8 cost=(8,6)  "$%[ind]"
FCONST4 =	{INT num;}		4 cost=(4,3)  "$0f%[num].0"
FCONST8 =	{INT num;}		8 cost=(8,6)  "$0f%[num].0"
LOCAL1 =	{REGISTER reg; INT num,size;}	4 cost=(2,6)  "%[num](%[reg])"
LOCAL2 =	{REGISTER reg; INT num,size;}	4 cost=(2,6)  "%[num](%[reg])"
LOCAL4 =	{REGISTER reg; INT num,size;}	4 cost=(2,6)  "%[num](%[reg])"
LOCAL8 =	{REGISTER reg; INT num,size;}	8 cost=(2,9)  "%[num](%[reg])"
ADDR_LOCAL =	{REGISTER reg; INT num;}	4 cost=(2,6)  "%[num](%[reg])"
ADDR_EXTERNAL =	{STRING ind;}		4 cost=(4,6)  "%[ind]"
EXTERNAL1 =	{STRING ind;}		4 cost=(4,6)  "%[ind]"
EXTERNAL2 =	{STRING ind;}		4 cost=(4,6)  "%[ind]"
EXTERNAL4 =	{STRING ind;}		4 cost=(4,6)  "%[ind]"
EXTERNAL8 =	{STRING ind;}		8 cost=(4,9)  "%[ind]"
DOUBLE =	{STRING ind;}		4 cost=(4,6)  "$%[ind]"
/* Now tokens for the target machine */
regdef1 =	{REGISTER reg;}		4 cost=(0,3)  REGDEFFORMAT
regdef2 =	{REGISTER reg;} 	4 cost=(0,3)  REGDEFFORMAT
regdef4 =	{REGISTER reg;} 	4 cost=(0,3)  REGDEFFORMAT
regdef8 =	{REGISTER reg;} 	8 cost=(0,6)  REGDEFFORMAT
#ifdef REGVARS
reginc1 =	{REGISTER reg;}		4 cost=(0,3)  "(%[reg])+"
reginc2 =	{REGISTER reg;}		4 cost=(0,3)  "(%[reg])+"
reginc4 =	{REGISTER reg;}		4 cost=(0,3)  "(%[reg])+"
reginc8 =	{REGISTER reg;}		8 cost=(0,6)  "(%[reg])+"
regdec1 =	{REGISTER reg;}		4 cost=(0,3)  "-(%[reg])"
regdec2 =	{REGISTER reg;}		4 cost=(0,3)  "-(%[reg])"
regdec4 =	{REGISTER reg;}		4 cost=(0,3)  "-(%[reg])"
regdec8 =	{REGISTER reg;}		8 cost=(0,6)  "-(%[reg])"
#endif REGVARS
displ1 =	{REGISTER reg; STRING ind;} 4 cost=(2,6)  "%[ind](%[reg])"
displ2 =	{REGISTER reg; STRING ind;} 4 cost=(2,6)  "%[ind](%[reg])"
displ4 =	{REGISTER reg; STRING ind;} 4 cost=(2,6)  "%[ind](%[reg])"
displ8 =	{REGISTER reg; STRING ind;} 8 cost=(2,9)  "%[ind](%[reg])"
displdef1 =	{REGISTER reg; STRING ind;} 4 cost=(2,9)  "*%[ind](%[reg])"
displdef2 =	{REGISTER reg; STRING ind;} 4 cost=(2,9)  "*%[ind](%[reg])"
displdef4 =	{REGISTER reg; STRING ind;} 4 cost=(2,9)  "*%[ind](%[reg])"
displdef8 =	{REGISTER reg; STRING ind;} 8 cost=(2,12) "*%[ind](%[reg])"
reldef1 =	{STRING ind;}		4 cost=(4,9)    "*%[ind]"
reldef2 =	{STRING ind;}		4 cost=(4,9)    "*%[ind]"
reldef4 =	{STRING ind;}		4 cost=(4,9)    "*%[ind]"
reldef8 =	{STRING ind;}		8 cost=(4,12)   "*%[ind]"
extind2 =	{REGISTER ireg; STRING ind; } 4 cost=(5,10) "%[ind] [%[ireg]]"
extind4 =	{REGISTER ireg; STRING ind; } 4 cost=(5,10) "%[ind] [%[ireg]]"
extind8 =	{REGISTER ireg; STRING ind; } 8 cost=(5,13) "%[ind] [%[ireg]]"
displind1 =	{REGISTER ireg,reg; STRING ind;} 4 cost=(3,10) 
						"%[ind](%[reg]) [%[ireg]]"
displind2 =	{REGISTER ireg,reg; STRING ind;} 4 cost=(3,10) 
						"%[ind](%[reg]) [%[ireg]]"
displind4 =	{REGISTER ireg,reg; STRING ind;} 4 cost=(3,10) 
						"%[ind](%[reg]) [%[ireg]]"
displind8 =	{REGISTER ireg,reg; STRING ind;} 8 cost=(3,13) 
						"%[ind](%[reg]) [%[ireg]]"
extdefind1 =	{REGISTER ireg; STRING ind; } 4 cost=(5,13) "*%[ind] [%[ireg]]"
extdefind2 =	{REGISTER ireg; STRING ind; } 4 cost=(5,13) "*%[ind] [%[ireg]]"
extdefind4 =	{REGISTER ireg; STRING ind; } 4 cost=(5,13) "*%[ind] [%[ireg]]"
extdefind8 =	{REGISTER ireg; STRING ind; } 8 cost=(5,16) "*%[ind] [%[ireg]]"
displdefind1 =	{REGISTER ireg,reg; STRING ind;} 4 cost=(3,13)
						"*%[ind](%[reg]) [%[ireg]]"
displdefind2 =	{REGISTER ireg,reg; STRING ind;} 4 cost=(3,13)
						"*%[ind](%[reg]) [%[ireg]]"
displdefind4 =	{REGISTER ireg,reg; STRING ind;} 4 cost=(3,13)
						"*%[ind](%[reg]) [%[ireg]]"
displdefind8 =	{REGISTER ireg,reg; STRING ind;} 8 cost=(3,16)
						"*%[ind](%[reg]) [%[ireg]]"

/* Not really addressable modes */
adispl =	{REGISTER reg; STRING ind; } 4 cost=(4,6)  "%[ind](%[reg])"
aextind2 =	{REGISTER ireg; STRING ind; } 4 cost=(5,10) "%[ind] [%[ireg]]"
aextind4 =	{REGISTER ireg; STRING ind; } 4 cost=(5,10) "%[ind] [%[ireg]]"
aextind8 =	{REGISTER ireg; STRING ind; } 4 cost=(5,10) "%[ind] [%[ireg]]"
adisplind1 =	{REGISTER ireg,reg; STRING ind;} 4 cost=(3,10) 
						"%[ind](%[reg]) [%[ireg]]"
adisplind2 =	{REGISTER ireg,reg; STRING ind;} 4 cost=(3,10) 
						"%[ind](%[reg]) [%[ireg]]"
adisplind4 =	{REGISTER ireg,reg; STRING ind;} 4 cost=(3,10) 
						"%[ind](%[reg]) [%[ireg]]"
adisplind8 =	{REGISTER ireg,reg; STRING ind;} 4 cost=(3,10) 
						"%[ind](%[reg]) [%[ireg]]"
aextdefind1 =	{REGISTER ireg; STRING ind; } 4 cost=(5,13) "*%[ind] [%[ireg]]"
aextdefind2 =	{REGISTER ireg; STRING ind; } 4 cost=(5,13) "*%[ind] [%[ireg]]"
aextdefind4 =	{REGISTER ireg; STRING ind; } 4 cost=(5,13) "*%[ind] [%[ireg]]"
aextdefind8 =	{REGISTER ireg; STRING ind; } 4 cost=(5,13) "*%[ind] [%[ireg]]"
adispldefind1 =	{REGISTER ireg,reg; STRING ind;} 4 cost=(3,13)
						"*%[ind](%[reg]) [%[ireg]]"
adispldefind2 =	{REGISTER ireg,reg; STRING ind;} 4 cost=(3,13)
						"*%[ind](%[reg]) [%[ireg]]"
adispldefind4 =	{REGISTER ireg,reg; STRING ind;} 4 cost=(3,13)
						"*%[ind](%[reg]) [%[ireg]]"
adispldefind8 =	{REGISTER ireg,reg; STRING ind;} 4 cost=(3,13)
						"*%[ind](%[reg]) [%[ireg]]"


TOKENEXPRESSIONS:
CONST =		CONST1 + CONST2 + CONST4
Xsource1 =	regdef1 + displ1 + displdef1 +
		EXTERNAL1 + reldef1 + CONST1 + LOCAL1
		+ displind1 + extdefind1 + displdefind1
source1 =	Xsource1
#ifdef REGVARS
		+ reginc1 + regdec1
#endif REGVARS
Xsource2 =	regdef2 + displ2 + displdef2 +
		EXTERNAL2 + reldef2 + CONST2 + LOCAL2
		+ extind2 + displind2 + extdefind2 + displdefind2
source2 =	Xsource2
#ifdef REGVARS
		+ reginc2 + regdec2
#endif REGVARS
Xsource4 =	REG + regdef4 + displ4 + displdef4 + LocaLBase +
		EXTERNAL4 + reldef4 + CONST + DOUBLE + LOCAL4 + FCONST4
		+ extind4 + displind4 + extdefind4 + displdefind4
source4 =	Xsource4
#ifdef REGVARS
		+ RREG + reginc4 + regdec4
#endif REGVARS
dups4 =		CONST + regdef1 + displ1 + LOCAL1 +
		REG +	regdef2 + displ2 + LOCAL2 +
		RREG +	regdef4 + displ4 + LOCAL4 + DOUBLE
Xsource8 =	QREG + regdef8 + displ8 + displdef8 +
		EXTERNAL8 + reldef8 + CONST8 + LOCAL8 + FCONST8
		+ extind8 + displind8 + extdefind8 + displdefind8
source8 =	Xsource8
#ifdef REGVARS
		+ reginc8 + regdec8
#endif REGVARS
source1or2 =	source1 + source2
source1or2or4 = source1or2 + source4
source2or4 =	source2 + source4
nonexist1 =	adispl + ADDR_EXTERNAL + ADDR_LOCAL
aextind =	aextind2 + aextind4 + aextind8
adisplind =	adisplind1 + adisplind2 + adisplind4 + adisplind8
aextdefind =	aextdefind1 + aextdefind2 + aextdefind4 + aextdefind8
adispldefind =	adispldefind1 + adispldefind2 + adispldefind4 + adispldefind8
ind2 =		extind2 + displind2 + extdefind2 + displdefind2
ind4 =		extind4 + displind4 + extdefind4 + displdefind4
aind1 =		adisplind1 + aextdefind1 + adispldefind1
aind2 =		aextind2 + adisplind2 + aextdefind2 + adispldefind2
aind4 =		aextind4 + adisplind4 + aextdefind4 + adispldefind4
aind8 =		aextind8 + adisplind8 + aextdefind8 + adispldefind8
aind =		aind1 + aind2 + aind4 + aind8
nonexist =	nonexist1 + aind
#ifdef REGVARS
regch4 =	reginc1 + regdec1 + reginc2 + regdec2 + reginc4 + regdec4
regch8 =	reginc8 + regdec8
regch =		regch4 + regch8
#endif REGVARS
displs =	displ1 + displ2 + displ4 + displ8 +
		regdef1 + regdef2 + regdef4 + regdef8
#ifdef REGVARS
		+ regch
#endif REGVARS
displdefs =	displdef1 + displdef2 + displdef4 + displdef8
EXTERNALS =	EXTERNAL1 + EXTERNAL2 + EXTERNAL4 + EXTERNAL8
LOCALS =	LOCAL1 + LOCAL2 + LOCAL4 + LOCAL8
reldefs =	reldef1 + reldef2 + reldef4 + reldef8
displinds =	displind1 + displind2 + displind4 + displind8
extinds =	extind2 + extind4 + extind8
displdefinds =	displdefind1 + displdefind2 + displdefind4 + displdefind8
extdefinds =	extdefind1 + extdefind2 + extdefind4 + extdefind8
displaced =	displs + displdefs + reldefs
		+ displinds + displdefinds + extdefinds
externals =	EXTERNALS + displaced + extinds
extandloc =	externals + LOCALS
#ifdef REGVARS
reg4 =		REG + RREG + LocaLBase
reg8 =		QREG
#else REGVARS
reg4 =		REG
reg8 =		QREG
#endif REGVARS
sreg4 = 	REG * SCRATCH
sreg8 = 	QREG * SCRATCH
bigsource4 =	source1or2or4 + nonexist
bigsource8 =	source8
all =		bigsource4 + bigsource8
scr =		ALL - (EXTERNALS + LOCALS + ADDR_LOCAL + ADDR_EXTERNAL + CONST
			+ DOUBLE)
#ifdef REGVARS
#define REMEXTANDLOC remove(externals) remove(LOCALS,inreg(%[num])==0)
#define REMREG(x) remove(regch,%[reg]==regvar(x))
#else REGVARS
#define REMEXTANDLOC remove(extandloc)
#endif REGVARS

CODE:

/********************************
 * Group 1 : Load instructions	* 
 ********************************/

loc $1>=0 && $1<256	| |	| {CONST1,$1}				| |
loc $1>=256 && $1<65536	| |	| {CONST2,$1}				| |
loc		| |		| {CONST4,$1}				| |
ldc		| |		| {CONST8,$1}				| |
#ifdef REGVARS
lol inreg($1)==2 | | REMREG($1)	| regvar($1)				| |
#endif REGVARS
lol $1 < 0	| |		| {LOCAL4,LB,$1,4}			| |
lol $1 >= 0	| |		| {LOCAL4,AP,$1,4}			| |
loe		| |		| {EXTERNAL4,$1}			| |
#ifdef REGVARS
lil inreg($1)==2 | |	REMREG($1)	| {regdef4,regvar($1)}		| |
#endif REGVARS
lil $1 < 0	| |		| {displdef4,LB,tostring($1)}		| |
lil $1 >= 0	| |		| {displdef4,AP,tostring($1)}		| |
lof		| |		|			| adp $1 loi 4	|
lal $1 < 0	| |		| {ADDR_LOCAL,LB,$1}			| |
lal $1 >= 0	| |		| {ADDR_LOCAL,AP,$1}			| |
lae		| |		| {ADDR_EXTERNAL,$1}			| |
lxl $1==0	| |		| LB					| |
lxl $1==1	| |		| {LOCAL4,AP,BSIZE,4}			| |
lxl $1 > 1	| |	remove(scr)
			move({CONST4,$1},R0)
			"jsb\t.lxl"
			erase(R0)				| R0	| |
lxa $1==0	| |		| {ADDR_LOCAL,AP,BSIZE}			| |
lxa $1==1	| |		| {LOCAL4,AP,BSIZE,4}			| lpb |
lxa $1 > 1	| |	remove(scr)
			move({CONST4,$1},R0)
			"jsb\t.lxa"
			erase(R0)				| R0	| |
loi $1==1	| NC adispl |	| {displ1,%[1.reg],%[1.ind]}		| |
...		| NC ADDR_LOCAL | | {LOCAL1,%[1.reg],%[1.num],1}	| |
...		| NC LOCAL4 |	| {displdef1,%[1.reg],tostring(%[1.num])} | |
...		| NC regdef4 |	| {displdef1,%[1.reg],"0"}		| |
...		| NC displ4 |	| {displdef1,%[1.reg],%[1.ind]}		| |
...		| NC ADDR_EXTERNAL | | {EXTERNAL1,%[1.ind]}		| |
...		| NC EXTERNAL4 | | {reldef1,%[1.ind]}			| |
...		| NC adisplind1 |
			| {displind1,%[1.ireg],%[1.reg],%[1.ind]}	| |
...		| NC aextdefind1 |
				| {extdefind1,%[1.ireg],%[1.ind]}	| |
...		| NC adispldefind1 |
			| {displdefind1,%[1.ireg],%[1.reg],%[1.ind]}	| |
...		| reg4 | 	| {regdef1,%[1]}			| |
loi $1==2	| NC adispl |	| {displ2,%[1.reg],%[1.ind]}		| |
...		| NC ADDR_LOCAL | | {LOCAL2,%[1.reg],%[1.num],2}	| |
...		| NC LOCAL4 |	| {displdef2,%[1.reg],tostring(%[1.num])} | |
...		| NC regdef4 |	| {displdef2,%[1.reg],"0"}		| |
...		| NC displ4 |	| {displdef2,%[1.reg],%[1.ind]}		| |
...		| NC ADDR_EXTERNAL | | {EXTERNAL2,%[1.ind]}		| |
...		| NC EXTERNAL4 | | {reldef2,%[1.ind]}			| |
...		| NC aextind2 | | {extind2,%[1.ireg],%[1.ind]}	| |
...		| NC adisplind2 |
			| {displind2,%[1.ireg],%[1.reg],%[1.ind]}	| |
...		| NC aextdefind2 |
				| {extdefind2,%[1.ireg],%[1.ind]}	| |
...		| NC adispldefind2 |
			| {displdefind2,%[1.ireg],%[1.reg],%[1.ind]}	| |
...		| reg4 |	| {regdef2,%[1]}			| |
loi $1==4	| NC adispl |	| {displ4,%[1.reg],%[1.ind]}		| |
...		| NC ADDR_LOCAL | | {LOCAL4,%[1.reg],%[1.num],4}	| |
...		| NC LOCAL4 |	| {displdef4,%[1.reg],tostring(%[1.num])} | |
...		| NC regdef4 |	| {displdef4,%[1.reg],"0"}		| |
...		| NC displ4 |	| {displdef4,%[1.reg],%[1.ind]}		| |
...		| NC ADDR_EXTERNAL | | {EXTERNAL4,%[1.ind]}		| |
...		| NC EXTERNAL4 | | {reldef4,%[1.ind]}			| |
...		| NC aextind4 | | {extind4,%[1.ireg],%[1.ind]}		| |
...		| NC adisplind4 |
			| {displind4,%[1.ireg],%[1.reg],%[1.ind]}	| |
...		| NC aextdefind4 |
				| {extdefind4,%[1.ireg],%[1.ind]}	| |
...		| NC adispldefind4 |
			| {displdefind4,%[1.ireg],%[1.reg],%[1.ind]}	| |
...		| reg4 | 	| {regdef4,%[1]}			| |
loi $1==8	| NC adispl |	| {displ8,%[1.reg],%[1.ind]}		| |
...		| NC ADDR_LOCAL | | {LOCAL8,%[1.reg],%[1.num],8}	| |
...		| NC LOCAL4 |	| {displdef8,%[1.reg],tostring(%[1.num])} | |
...		| NC regdef4 |	| {displdef8,%[1.reg],"0"}		| |
...		| NC displ4 |	| {displdef8,%[1.reg],%[1.ind]}	| |
...		| NC ADDR_EXTERNAL | | {EXTERNAL8,%[1.ind]}		| |
...		| NC EXTERNAL4 | | {reldef8,%[1.ind]}			| |
...		| NC aextind8 | | {extind8,%[1.ireg],%[1.ind]}		| |
...		| NC adisplind8 |
			| {displind8,%[1.ireg],%[1.reg],%[1.ind]}	| |
...		| NC aextdefind8 |	     
				| {extdefind8,%[1.ireg],%[1.ind]}	| |
...		| NC adispldefind8 |    
			| {displdefind8,%[1.ireg],%[1.reg],%[1.ind]}	| |
...		| reg4 | 	| {regdef8,%[1]}			| |
loi $1>8 && $1<=16
		| NC ADDR_EXTERNAL |    
				| {EXTERNAL8,%[1.ind]+"+"+tostring($1-8)}
				%[1]				| loi $1-8 |
...		| NC ADDR_LOCAL |
				| {LOCAL8,%[1.reg],%[1.num]+$1-8,8} %[1]
								| loi $1-8 |	
...		| reg4 | | {displ8,%[1],tostring($1-8)} %[1]	| loi $1-8 |
loi		| sreg4 |
			remove(ALL)
			allocate(REG={CONST4,$1/4})
			"addl2\t$$$1,%[1]"
#ifdef LOCLABS
			"1:\nmovl\t-(%[1]),-(sp)"
			"sobgtr\t%[a],1b"
#else
			"movl\t-(%[1]),-(sp)"
			"sobgtr\t%[a],.-3"
#endif
			erase(%[a])				|	| |
los $1==4	| STACK |
			move({CONST1,4},R0)
			"jsb\t.los"
			erase(R0)				|	| |
los !defined($1) | source1or2or4 |
			remove(ALL)
			move(%[1],R0)
			"jsb\t.los"
			erase(R0)				|	| |
ldl $1<0	| |		| {LOCAL8,LB,$1,8}			| |
ldl $1>=0	| |		| {LOCAL8,AP,$1,8}			| |
lde		| |		| {EXTERNAL8,$1}			| |
ldf		| |		|		| adp $1 loi 8	|
lpi		| |		| {ADDR_EXTERNAL,$1}			| |

/********************************
 * Group 2 : Store instructions *
 ********************************/

#ifdef REGVARS
stl inreg($1)==2 | NC bigsource4 |
			remove(regvar($1))
			move(%[1],regvar($1))		|	| |
...		| STACK |
			"movl\t(sp)+,%(regvar($1)%)"	|	| | (3,7)
#endif REGVARS
stl $1 < 0	| NC bigsource4 |
			remove(displaced)
			remove(LOCALS,%[num] <= $1+3 && %[num]+%[size] > $1)
			move(%[1],{LOCAL4,LB,$1,4})		|	| |
...		| STACK |
			"movl\t(sp)+,$1(fp)"		|	| | (5,14)
stl $1 >= 0	| NC bigsource4 |
			remove(displaced)
			remove(LOCALS,%[num] <= $1+3 && %[num]+%[size] > $1)
			move(%[1],{LOCAL4,AP,$1,4})		|	| |
...		| STACK |
			"movl\t(sp)+,$1(ap)"		|	| | (5,14)
ste		| NC bigsource4 |
			remove(externals)
			move(%[1],{EXTERNAL4,$1})		|	| |
...		| STACK |
			"movl\t(sp)+,$1"		|	| | (7,14)
#ifdef REGVARS
sil inreg($1)==2 | NC bigsource4 |
			REMEXTANDLOC
			move(%[1],{regdef4,regvar($1)})	|	| |
...		| STACK |
			"movl\t(sp)+,(%(regvar($1)%))"	|	| | (3,10)
#endif REGVARS
sil $1 < 0	| NC bigsource4 |
			REMEXTANDLOC
			move(%[1],{displdef4,LB,tostring($1)})	|	| |
...		| STACK |
			"movl\t(sp)+,*$1(fp)"		|	| | (5,17)
sil $1 >= 0	| NC bigsource4 |
			REMEXTANDLOC
			move(%[1],{displdef4,AP,tostring($1)})	|	| |
...		| STACK |
			"movl\t(sp)+,*$1(ap)"		|	| | (5,17)
stf		| |				| | adp $1 sti 4 |
/*** C-problem: f(c) char c; {
			write(1,&c,1);
		}
		You don't know where the character is put in the word,
		so the CEM-compiler generates: (shorts analogously)
***/
lol lal sti $1==$2 && $3<4	| | | | |
/************************************************/
sti $1==1	| NC adispl source1or2or4 |
			REMEXTANDLOC
			move(%[2],{displ1,%[1.reg],%[1.ind]})	|	| |
...		| NC ADDR_LOCAL source1or2or4 |
			remove(displaced)
			remove(LOCALS,
				%[num]<=%[1.num] && %[num]+%[size]>%[1.num])
			move(%[2],{LOCAL1,%[1.reg],%[1.num],1})	|	| |
...		| NC displ4 source1or2or4 |
			REMEXTANDLOC
			move(%[2],{displdef1,%[1.reg],%[1.ind]}) |	| |
...		| NC ADDR_EXTERNAL source1or2or4 |
			remove(externals)
			move(%[2],{EXTERNAL1,%[1.ind]}) 	|	| |
...		| NC EXTERNAL4 source1or2or4 |
			REMEXTANDLOC
			move(%[2],{reldef1,%[1.ind]})		|	| |
...		| NC adisplind1 source1or2or4 |
			REMEXTANDLOC
			move(%[2],{displind1,%[1.ireg],%[1.reg],%[1.ind]})
								|	| |
...		| NC aextdefind1 source1or2or4 |
			REMEXTANDLOC
			move(%[2],{extdefind1,%[1.ireg],%[1.ind]}) |	| |
...		| NC adispldefind1 source1or2or4 |
			REMEXTANDLOC
			move(%[2],{displdefind1,%[1.ireg],%[1.reg],%[1.ind]})
								|	| |
...		| reg4 source1or2or4 |
			REMEXTANDLOC
			move(%[2],{regdef1,%[1]})		|	| |
...		| NC nonexist1+aind1 STACK |
			"cvtlb\t(sp)+,%[1]"		|	| | (3,7)+%[1]
sti $1==2	| NC adispl source1or2or4 |
			REMEXTANDLOC
			move(%[2],{displ2,%[1.reg],%[1.ind]}) |	| |
...		| NC ADDR_LOCAL source1or2or4 |
			remove(displaced)
			remove(LOCALS,
				%[num]<=%[1.num] && %[num]+%[size]>%[1.num])
			move(%[2],{LOCAL2,%[1.reg],%[1.num],2})	|	| |
...		| NC displ4 source1or2or4 |
			REMEXTANDLOC
			move(%[2],{displdef2,%[1.reg],%[1.ind]}) |	| |
...		| NC ADDR_EXTERNAL source1or2or4 |
			remove(externals)
			move(%[2],{EXTERNAL2,%[1.ind]}) 	|	| |
...		| NC EXTERNAL4 source1or2or4 |
			REMEXTANDLOC
			move(%[2],{reldef2,%[1.ind]})		|	| |
...		| NC aextind2 source1or2or4 |
			remove(externals)
			move(%[2],{extind2,%[1.ireg],%[1.ind]})	|	| |
...		| NC adisplind2 source1or2or4 |
			REMEXTANDLOC
			move(%[2],{displind2,%[1.ireg],%[1.reg],%[1.ind]}) | | |
...		| NC aextdefind2 source1or2or4 |
			REMEXTANDLOC
			move(%[2],{extdefind2,%[1.ireg],%[1.ind]}) |	| |
...		| NC adispldefind2 source1or2or4 |
			REMEXTANDLOC
			move(%[2],{displdefind2,%[1.ireg],%[1.reg],%[1.ind]})
								|	| |
...		| reg4 source1or2or4 |
			REMEXTANDLOC
			move(%[2],{regdef2,%[1]})		|	| |
sti $1==4	| NC adispl bigsource4 |
			REMEXTANDLOC
			move(%[2],{displ4,%[1.reg],%[1.ind]}) |	| |
...		| NC ADDR_LOCAL |		| | stl %[1.num] |
...		| NC ADDR_EXTERNAL |		| | ste %[1.ind] |
...		| NC LOCAL4 bigsource4 |
			REMEXTANDLOC
			move(%[2],{displdef4,%[1.reg],tostring(%[1.num])}) | | |
...		| NC regdef4 bigsource4 |
			REMEXTANDLOC
			move(%[2],{displdef4,%[1.reg],"0"})	|	| |
...		| NC displ4 bigsource4 |
			REMEXTANDLOC
			move(%[2],{displdef4,%[1.reg],%[1.ind]}) |	| |
...		| NC EXTERNAL4 bigsource4 |
			REMEXTANDLOC
			move(%[2],{reldef4,%[1.ind]})		|	| |
...		| NC aextind4 bigsource4 |
			remove(externals)
			move(%[2],{extind4,%[1.ireg],%[1.ind]})	|	| |
...		| NC adisplind4 bigsource4 |
			REMEXTANDLOC
			move(%[2],{displind4,%[1.ireg],%[1.reg],%[1.ind]}) | | |
...		| NC aextdefind4 bigsource4 |
			REMEXTANDLOC
			move(%[2],{extdefind4,%[1.ireg],%[1.ind]}) |	| |
...		| NC adispldefind4 bigsource4 |
			REMEXTANDLOC
			move(%[2],{displdefind4,%[1.ireg],%[1.reg],%[1.ind]})
								|	| |
...		| NC nonexist1+aind4 STACK |
			"movl\t(sp)+,%[1]"		|	| | (3,7)+%[1]
...		| reg4 bigsource4 |
			REMEXTANDLOC
			move(%[2],{regdef4,%[1]})		|	| |
...		| reg4 STACK |
			"movl\t(sp)+,(%[1])"		|	| | (3,10)
sti $1==8	| NC adispl bigsource8 |
			REMEXTANDLOC
			move(%[2],{displ8,%[1.reg],%[1.ind]}) |	| |
...		| NC ADDR_LOCAL |		| | sdl %[1.num] |
...		| NC ADDR_EXTERNAL |		| | sde %[1.ind] |
...		| NC displ4 bigsource8 |
			REMEXTANDLOC
			move(%[2],{displdef8,%[1.reg],%[1.ind]}) |	| |
...		| NC LOCAL4 bigsource8 |
			REMEXTANDLOC
			move(%[2],{displdef8,%[1.reg],tostring(%[1.num])}) | | |
...		| NC regdef4 bigsource8 |
			REMEXTANDLOC
			move(%[2],{displdef8,%[1.reg],"0"})	|	| |
...		| NC EXTERNAL4 bigsource8 |
			REMEXTANDLOC
			move(%[2],{reldef8,%[1.ind]})		|	| |
...		| NC aextind8 bigsource8 |
			remove(externals)
			move(%[2],{extind8,%[1.ireg],%[1.ind]})	|	| |
...		| NC adisplind8 bigsource8 |
			REMEXTANDLOC
			move(%[2],{displind8,%[1.ireg],%[1.reg],%[1.ind]}) | | |
...		| NC aextdefind8 bigsource8 |
			REMEXTANDLOC
			move(%[2],{extdefind8,%[1.ireg],%[1.ind]}) |	| |
...		| NC adispldefind8 bigsource8 |
			REMEXTANDLOC
			move(%[2],{displdefind8,%[1.ireg],%[1.reg],%[1.ind]})
								|	| |
...		| reg4 bigsource8 |
			REMEXTANDLOC
			move(%[2],{regdef8,%[1]})		|	| |
sti		| sreg4 |
			remove(ALL)
			allocate(REG={CONST4,$1/4})
#ifdef LOCLABS
			"1:\nmovl\t(sp)+,(%[1])+"
			"sobgtr\t%[a],1b"
#else
			"movl\t(sp)+,(%[1])+"
			"sobgtr\t%[a],.-3"
#endif
			erase(%[a])				|	| |
sts $1==4	| STACK |
			move({CONST1,4},R0)
			"jsb\t.sts"
			erase(R0)				|	| |
sts !defined($1) | source4 |
			remove(ALL)
			move(%[1],R0)
			"jsb\t.sts"
			erase(R0)				|	| |
sdl $1 < 0	| NC bigsource8 |
			remove(displaced)
			remove(LOCALS,%[num]<=$1+7 && %[num]+%[size]>$1)
			move(%[1],{LOCAL8,LB,$1,8})		|	| |
...		| NC bigsource4 bigsource4 |
			remove(displaced)
			remove(LOCALS,%[num]<=$1+7 && %[num]+%[size]>$1)
			move(%[1],{LOCAL4,LB,$1,4})
			move(%[2],{LOCAL4,LB,$1+4,4})		|	| |
...		| STACK |
			"movq\t(sp)+,$1(fp)"		|	| | (5,14)
sdl $1 >= 0	| NC bigsource8 |
			remove(displaced)
			remove(LOCALS,%[num]<=$1+7 && %[num]+%[size]>$1)
			move(%[1],{LOCAL8,AP,$1,8})		|	| |
...		| NC bigsource4 bigsource4 |
			remove(displaced)
			remove(LOCALS,%[num]<=$1+7 && %[num]+%[size]>$1)
			move(%[1],{LOCAL4,AP,$1,4})
			move(%[2],{LOCAL4,AP,$1+4,4})		|	| |
...		| STACK |
			"movq\t(sp)+,$1(ap)"		|	| | (5,14)
sde		| NC bigsource8 |
			remove(externals)
			move(%[1],{EXTERNAL8,$1})		|	| |
...		| bigsource4 bigsource4 |
			remove(externals)
			move(%[1],{EXTERNAL4,$1})
			move(%[2],{EXTERNAL4,$1+"+4"})	|	| |
...		| STACK |
			"movq\t(sp)+,$1"		|	| | (7,14)
sdf		| |					| | adp $1 sti 8 |

/********************************
 * Group 3 : Integer Arithmetic *
 ********************************/

adi $1==4	| source4 sreg4 |
			"addl2\t%[1],%[2]"
			erase(%[2])
			setcc(%[2])		| %[2]	| | (3,4) + %[1]
...		| sreg4 source4 |
			"addl2\t%[2],%[1]"
			erase(%[1])
			setcc(%[1])		| %[1]	| | (3,4) + %[2]
...		| source4 source4 |
			allocate(%[1],%[2],REG)
			"addl3\t%[1],%[2],%[a]"
			setcc(%[a])		| %[a]	| | (4,4)+%[1]+%[2]
#ifdef REGVARS
adi stl $1==4 && inreg($2)==2
		| source4 source4 |
			remove(regvar($2))
			"addl3\t%[1],%[2],%(regvar($2)%)"
			erase(regvar($2))
			setcc(regvar($2))	|	| |
#endif REGVARS
adi stl $1==4 && $2<0
		| source4 source4 |
			remove(displaced)
			remove(LOCALS,%[num]<=$2+3 && %[num]+%[size]>$2)
			"addl3\t%[1],%[2],$2(fp)"
			setcc({LOCAL4,LB,$2,4})		|	| |
adi stl $1==4 && $2>=0
		| source4 source4 |
			remove(displaced)
			remove(LOCALS,%[num]<=$2+3 && %[num]+%[size]>$2)
			"addl3\t%[1],%[2],$2(ap)"
			setcc({LOCAL4,AP,$2,4}) 	|	| |
#ifdef REGVARS
adi sil $1==4 && inreg($2)==2
		| source4 source4 |
			REMEXTANDLOC
			"addl3\t%[1],%[2],(%(regvar($2)%))"
			setcc({regdef4,regvar($2)})	|	| |
adi lol stf $1==4 && inreg($2)==2
		| source4 source4 |
			REMEXTANDLOC
			"addl3\t%[1],%[2],$3(%(regvar($2)%))"
			setcc({displ4,regvar($2),tostring($3)})	|	| |
#endif REGVARS
adi sil $1==4 && $2<0
		| source4 source4 |
			REMEXTANDLOC
			"addl3\t%[1],%[2],*$2(fp)"
			setcc({displdef4,LB,tostring($2)})	|	| |
adi sil $1==4 && $2>=0
		| source4 source4 |
			REMEXTANDLOC
			"addl3\t%[1],%[2],*$2(ap)"
			setcc({displdef4,AP,tostring($2)})	|	| |
adi ste $1==4	| source4 source4 |
			remove(externals)
			"addl3\t%[1],%[2],$2"
			setcc({EXTERNAL4,$2})			|	| |
adi !defined($1) | source4 |
			remove(ALL)
			move(%[1],R0)
			"jsb\t.adi"			     |	     | |
sbi $1==4	| source4 sreg4 |
			"subl2\t%[1],%[2]"
			erase(%[2])
			setcc(%[2])		| %[2]	| | (3,4) + %[1]
...		| source4 source4 |
			allocate(%[1],%[2],REG)
			"subl3\t%[1],%[2],%[a]"
			setcc(%[a])		| %[a]	| | (4,4)+%[1]+%[2]
#ifdef REGVARS
sbi stl $1==4 && inreg($2)==2
		| source4 source4 |
			remove(regvar($2))
			"subl3\t%[1],%[2],%(regvar($2)%)"
			erase(regvar($2))
			setcc(regvar($2))	|	| |
#endif REGVARS
sbi stl $1==4 && $2<0
		| source4 source4 |
			remove(displaced)
			remove(LOCALS,(%[num] <= $2+3 && %[num]+%[size] > $2))
			"subl3\t%[1],%[2],$2(fp)"
			setcc({LOCAL4,LB,$2,4}) 	|	| |
sbi stl $1==4 && $2>=0
		| source4 source4 |
			remove(displaced)
			remove(LOCALS,(%[num] <= $2+3 && %[num]+%[size] > $2))
			"subl3\t%[1],%[2],$2(ap)"
			setcc({LOCAL4,AP,$2,4}) 	|	| |
#ifdef REGVARS
sbi sil $1==4 && inreg($2)==2
		| source4 source4 |
			REMEXTANDLOC
			"subl3\t%[1],%[2],(%(regvar($2)%))"
			setcc({regdef4,regvar($2)})	|	| |
sbi lol stf $1==4 && inreg($2)==2
		| source4 source4 |
			REMEXTANDLOC
			"subl3\t%[1],%[2],$3(%(regvar($2)%))"
			setcc({displ4,regvar($2),tostring($3)})	|	| |
#endif REGVARS
sbi sil $1==4 && $2<0
		| source4 source4 |
			REMEXTANDLOC
			"subl3\t%[1],%[2],*$2(fp)"
			setcc({displdef4,LB,tostring($2)})	|	| |
sbi sil $1==4 && $2>=0
		| source4 source4 |
			REMEXTANDLOC
			"subl3\t%[1],%[2],*$2(ap)"
			setcc({displdef4,AP,tostring($2)})	|	| |
sbi ste $1==4	| source4 source4 |
			remove(externals)
			"subl3\t%[1],%[2],$2"
			setcc({EXTERNAL4,$2})			|	| |
sbi !defined($1) | source4 |
			remove(ALL)
			move(%[1],R0)
			"jsb\t.sbi"			     |	     | |
mli $1==4	| source4 sreg4 |
			"mull2\t%[1],%[2]"
			erase(%[2])
			setcc(%[2])		| %[2]	| | (3,16) + %[1]
...		| sreg4 source4 |
			"mull2\t%[2],%[1]"
			erase(%[1])
			setcc(%[1])		| %[1]	| | (3,16) + %[2]
...		| source4 source4 |
			allocate(%[1],%[2],REG)
			"mull3\t%[1],%[2],%[a]"
			setcc(%[a])		| %[a]  | | (4,16)+%[1]+%[2]
#ifdef REGVARS
mli stl $1==4 && inreg($2)==2
		| source4 source4 |
			remove(regvar($2))
			"mull3\t%[1],%[2],%(regvar($2)%)"
			erase(regvar($2))
			setcc(regvar($2))	|	| |
#endif REGVARS
mli stl $1==4 && $2<0
		| source4 source4 |
			remove(displaced)
			remove(LOCALS,(%[num] <= $2+3 && %[num]+%[size] > $2))
			"mull3\t%[1],%[2],$2(fp)"
			setcc({LOCAL4,LB,$2,4}) 	|	| |
mli stl $1==4 && $2>=0
		| source4 source4 |
			remove(displaced)
			remove(LOCALS,(%[num] <= $2+3 && %[num]+%[size] > $2))
			"mull3\t%[1],%[2],$2(ap)"
			setcc({LOCAL4,AP,$2,4}) 	|	| |
#ifdef REGVARS
mli sil $1==4 && inreg($2)==2
		| source4 source4 |
			REMEXTANDLOC
			"mull3\t%[1],%[2],(%(regvar($2)%))"
			setcc({regdef4,regvar($2)})	|	| |
mli lol stf $1==4 && inreg($2)==2
		| source4 source4 |
			REMEXTANDLOC
			"mull3\t%[1],%[2],$3(%(regvar($2)%))"
			setcc({displ4,regvar($2),tostring($3)})	|	| |
#endif REGVARS
mli sil $1==4 && $2<0
		| source4 source4 |
			REMEXTANDLOC
			"mull3\t%[1],%[2],*$2(fp)"
			setcc({displdef4,LB,tostring($2)})	|	| |
mli sil $1==4 && $2>=0
		| source4 source4 |
			REMEXTANDLOC
			"mull3\t%[1],%[2],*$2(ap)"
			setcc({displdef4,AP,tostring($2)})	|	| |
mli ste $1==4	| source4 source4 |
			remove(externals)
			"mull3\t%[1],%[2],$2"
			setcc({EXTERNAL4,$2})			|	| |
mli !defined($1) | source4 |
			remove(ALL)
			move(%[1],R0)
			"jsb\t.mli"			     |	     | |
dvi $1==4	| source4 sreg4 |
			"divl2\t%[1],%[2]"
			erase(%[2])
			setcc(%[2])		    | %[2]  | | (3,98) + %[1]
...		| source4 source4 |
			allocate(%[1],%[2],REG)
			"divl3\t%[1],%[2],%[a]"
			setcc(%[a])		| %[a]	| | (4,98)+%[1]+%[2]
#ifdef REGVARS
dvi stl $1==4 && inreg($2)==2
		| source4 source4 |
			remove(regvar($2))
			"divl3\t%[1],%[2],%(regvar($2)%)"
			erase(regvar($2))
			setcc(regvar($2))	|	| |
#endif REGVARS
dvi stl $1==4 && $2<0
		| source4 source4 |
			remove(displaced)
			remove(LOCALS,(%[num] <= $2+3 && %[num]+%[size] > $2))
			"divl3\t%[1],%[2],$2(fp)"
			setcc({LOCAL4,LB,$2,4}) 	|	| |
dvi stl $1==4 && $2>=0
		| source4 source4 |
			remove(displaced)
			remove(LOCALS,(%[num] <= $2+3 && %[num]+%[size] > $2))
			"divl3\t%[1],%[2],$2(ap)"
			setcc({LOCAL4,AP,$2,4}) 	|	| |
#ifdef REGVARS
dvi sil $1==4 && inreg($2)==2
		| source4 source4 |
			REMEXTANDLOC
			"divl3\t%[1],%[2],(%(regvar($2)%))"
			setcc({regdef4,regvar($2)})	|	| |
dvi lol stf $1==4 && inreg($2)==2
		| source4 source4 |
			REMEXTANDLOC
			"divl3\t%[1],%[2],$3(%(regvar($2)%))"
			setcc({displ4,regvar($2),tostring($3)})	|	| |
#endif REGVARS
dvi sil $1==4 && $2<0
		| source4 source4 |
			REMEXTANDLOC
			"divl3\t%[1],%[2],*$2(fp)"
			setcc({displdef4,LB,tostring($2)})	|	| |
dvi sil $1==4 && $2>=0
		| source4 source4 |
			REMEXTANDLOC
			"divl3\t%[1],%[2],*$2(ap)"
			setcc({displdef4,AP,tostring($2)})	|	| |
dvi ste $1==4	| source4 source4 |
			remove(externals)
			"divl3\t%[1],%[2],$2"
			setcc({EXTERNAL4,$2})			|	| |
dvi !defined($1) | source4 |
			remove(ALL)
			move(%[1],R0)
			"jsb\t.dvi"			     |	     | |
rmi $1==4	| Xsource4 Xsource4 |
			allocate(REG)
			"divl3\t%[1],%[2],%[a]"
			"mull2\t%[1],%[a]"
			"subl3\t%[a],%[2],%[a]"
			setcc(%[a])				| %[a]	 | |
#ifdef REGVARS
rmi stl $1==4 && inreg($2)==2
		| Xsource4 Xsource4 |
			remove(regvar($2))
			allocate(REG)
			"divl3\t%[1],%[2],%[a]"
			"mull2\t%[1],%[a]"
			"subl3\t%[a],%[2],%(regvar($2)%)"
			erase(regvar($2))
			setcc(regvar($2))		|	| |
#endif REGVARS
rmi stl $1==4 && $2<0
		| Xsource4 Xsource4 |
			remove(displaced)
			remove(LOCALS,(%[num]<=$2+3 && %[num]+%[size]>$2))
			allocate(REG)
			"divl3\t%[1],%[2],%[a]"
			"mull2\t%[1],%[a]"
			"subl3\t%[a],%[2],$2(fp)"
			setcc({LOCAL4,LB,$2,4})		|	| |
rmi stl $1==4 && $2>=0
		| Xsource4 Xsource4 |
			remove(displaced)
			remove(LOCALS,(%[num]<=$2+3 && %[num]+%[size]>$2))
			allocate(REG)
			"divl3\t%[1],%[2],%[a]"
			"mull2\t%[1],%[a]"
			"subl3\t%[a],%[2],$2(ap)"
			setcc({LOCAL4,AP,$2,4})		|	| |
#ifdef REGVARS
rmi sil $1==4 && inreg($2)==2
		| Xsource4 Xsource4 |
			REMEXTANDLOC
			allocate(REG)
			"divl3\t%[1],%[2],%[a]"
			"mull2\t%[1],%[a]"
			"subl3\t%[a],%[2],(%(regvar($2)%))"
			setcc({regdef4,regvar($2)})	|	| |
rmi lol stf $1==4 && inreg($2)==2
		| Xsource4 Xsource4 |
			REMEXTANDLOC
			allocate(REG)
			"divl3\t%[1],%[2],%[a]"
			"mull2\t%[1],%[a]"
			"subl3\t%[1],%[2],$3(%(regvar($2)%))"
			setcc({displ4,regvar($2),tostring($3)})	|	| |
#endif REGVARS
rmi sil $1==4 && $2<0
		| Xsource4 Xsource4 |
			REMEXTANDLOC
			allocate(REG)
			"divl3\t%[1],%[2],%[a]"
			"mull2\t%[1],%[a]"
			"subl3\t%[a],%[2],*$2(fp)"
			setcc({displdef4,LB,tostring($2)})	|	| |
rmi sil $1==4 && $2>=0
		| Xsource4 Xsource4 |
			REMEXTANDLOC
			allocate(REG)
			"divl3\t%[1],%[2],%[a]"
			"mull2\t%[1],%[a]"
			"subl3\t%[a],%[2],*$2(ap)"
			setcc({displdef4,AP,tostring($2)})	|	| |
rmi ste $1==4	| Xsource4 Xsource4 |
			remove(externals)
			allocate(REG)
			"divl3\t%[1],%[2],%[a]"
			"mull2\t%[1],%[a]"
			"subl3\t%[a],%[2],$2"
			setcc({EXTERNAL4,$2})			|	| |
rmi !defined($1) | source4 |
			remove(ALL)
			move(%[1],R0)
			"jsb\t.rmi"
			erase(R0)				|	| |
ngi $1==4	| source4 |
			allocate(%[1],REG)
			"mnegl\t%[1],%[a]"
			setcc(%[a])				| %[a]	| |
#ifdef REGVARS
ngi stl $1==4 && inreg($2)==2
		| source4 |
			remove(regvar($2))
			"mnegl\t%[1],%(regvar($2)%)"
			erase(regvar($2))
			setcc(regvar($2)) 		|	| |
#endif REGVARS
ngi stl $1==4 && $2<0
		| source4 |
			remove(displaced)
			remove(LOCALS,(%[num] <= $2+3 && %[num]+%[size] > $2))
			"mnegl\t%[1],$2(fp)"
			setcc({LOCAL4,LB,$2,4}) 	|	| |
ngi stl $1==4 && $2>=0
		| source4 |
			remove(displaced)
			remove(LOCALS,(%[num] <= $2+3 && %[num]+%[size] > $2))
			"mnegl\t%[1],$2(ap)"
			setcc({LOCAL4,AP,$2,4}) 	|	| |
#ifdef REGVARS
ngi sil $1==4 && inreg($2)==2
		| source4 |
			REMEXTANDLOC
			"mnegl\t%[1],(%(regvar($2)%))"
			setcc({regdef4,regvar($2)})	|	| |
ngi lol stf $1==4 && inreg($2)==2
		| source4 |
			REMEXTANDLOC
			"mnegl\t%[1],$3(%(regvar($2)%))"
			setcc({displ4,regvar($2),tostring($3)})	|	| |
#endif REGVARS
ngi sil $1==4 && $2<0
		| source4 |
			REMEXTANDLOC
			"mnegl\t%[1],*$2(fp)"
			setcc({displdef4,LB,tostring($2)})	|	| |
ngi sil $1==4 && $2>=0
		| source4 |
			REMEXTANDLOC
			"mnegl\t%[1],*$2(ap)"
			setcc({displdef4,AP,tostring($2)})	|	| |
ngi ste $1==4	| source4 |
			remove(externals)
			"mnegl\t%[1],$2"
			setcc({EXTERNAL4,$2})			|	| |
ngi !defined($1) | source4 |
			remove(ALL)
			move(%[1],R0)
			"jsb\t.ngi"				 |	 | |
sli $1==4	| source1or2or4 source1or2or4 |
			allocate(%[1],%[2],REG)
			"ashl\t%[1],%[2],%[a]"
			setcc(%[a])		| %[a]  | | (4,4)+%[1]+%[2]
#ifdef REGVARS
sli stl $1==4 && inreg($2)==2
		| source4 source4 |
			remove(regvar($2))
			"ashl\t%[1],%[2],%(regvar($2)%)"
			erase(regvar($2))
			setcc(regvar($2))	|	| |
#endif REGVARS
sli stl $1==4 && $2<0
		| source4 source4 |
			remove(displaced)
			remove(LOCALS,(%[num] <= $2+3 && %[num]+%[size] > $2))
			"ashl\t%[1],%[2],$2(fp)"
			setcc({LOCAL4,LB,$2,4})	|	| |
sli stl $1==4 && $2>=0
		| source4 source4 |
			remove(displaced)
			remove(LOCALS,(%[num] <= $2+3 && %[num]+%[size] > $2))
			"ashl\t%[1],%[2],$2(ap)"
			setcc({LOCAL4,AP,$2,4})	|	| |
#ifdef REGVARS
sli sil $1==4 && inreg($2)==2
		| source4 source4 |
			REMEXTANDLOC
			"ashl\t%[1],%[2],(%(regvar($2)%))"
			setcc({regdef4,regvar($2)})	|	| |
sli lol stf $1==4 && inreg($2)==2
		| source4 source4 |
			REMEXTANDLOC
			"ashl\t%[1],%[2],$3(%(regvar($2)%))"
			setcc({displ4,regvar($2),tostring($3)})	|	| |
#endif REGVARS
sli sil $1==4 && $2<0
		| source4 source4 |
			REMEXTANDLOC
			"ashl\t%[1],%[2],*$2(fp)"
			setcc({displdef4,LB,tostring($2)})	|	| |
sli sil $1==4 && $2>=0
		| source4 source4 |
			REMEXTANDLOC
			"ashl\t%[1],%[2],*$2(ap)"
			setcc({displdef4,AP,tostring($2)})	|	| |
sli ste $1==4	| source4 source4 |
			remove(externals)
			"ashl\t%[1],%[2],$2"
			setcc({EXTERNAL4,$2})	|	| | (8,10)+%[1]+%[2]
sli !defined($1) | source4 |
			remove(ALL)
			move(%[1],R0)
			"jsb\t.sli"
			erase(R0)				|	| |
sri $1==4	| source4 source4 |
			allocate(%[1],REG)
			"mnegl\t%[1],%[a]"
			"ashl\t%[a],%[2],%[a]"
			setcc(%[a])		| %[a]	| | (7,8)+%[1]+%[2]
...		| NC CONST source4 |
			allocate(%[2],REG)
			"ashl\t$$%(0-%[1.num]%),%[2],%[a]"
			setcc(%[a])		| %[a]	| | (4,4)+%[1]+%[2]
#ifdef REGVARS
sri stl $1==4 && inreg($2)==2
		| source4 source4 |
			remove(regvar($2))
			allocate(%[1],REG)
			"mnegl\t%[1],%[a]"
			"ashl\t%[a],%[2],%(regvar($2)%)"
			erase(regvar($2))
			setcc(regvar($2))	|	| | (9,14)+%[1]+%[2]
...		| NC CONST source4 |
			remove(regvar($2))
			"ashl\t$$%(0-%[1.num]%),%[2],%(regvar($2)%)"
			erase(regvar($2))
			setcc(regvar($2))	|	| | (6,10)+%[1]+%[2]
#endif REGVARS
sri stl $1==4 && $2<0
		| source4 source4 |
			remove(displaced)
			remove(LOCALS,(%[num] <= $2+3 && %[num]+%[size] > $2))
			allocate(%[1],REG)
			"mnegl\t%[1],%[a]"
			"ashl\t%[a],%[2],$2(fp)"
			setcc({LOCAL4,LB,$2,4}) |	| | (9,11)+%[1]+%[2]
...		| NC CONST source4 |
			remove(displaced)
			remove(LOCALS,(%[num] <= $2+3 && %[num]+%[size] > $2))
			"ashl\t$$%(0-%[1.num]%),%[2],$2(fp)"
			setcc({LOCAL4,LB,$2,4}) |	| | (6,7)+%[1]+%[2]
sri stl $1==4 && $2>=0
		| source4 source4 |
			remove(displaced)
			remove(LOCALS,(%[num] <= $2+3 && %[num]+%[size] > $2))
			allocate(%[1],REG)
			"mnegl\t%[1],%[a]"
			"ashl\t%[a],%[2],$2(ap)"
			setcc({LOCAL4,AP,$2,4}) |	| | (9,11)+%[1]+%[2]
...		| NC CONST source4 |
			remove(displaced)
			remove(LOCALS,(%[num] <= $2+3 && %[num]+%[size] > $2))
			"ashl\t$$%(0-%[1.num]%),%[2],$2(ap)"
			setcc({LOCAL4,AP,$2,4}) |	| | (6,7)+%[1]+%[2]
#ifdef REGVARS
sri sil $1==4 && inreg($2)==2
		| source4 source4 |
			REMEXTANDLOC
			allocate(%[1],REG)
			"mnegl\t%[1],%[a]"
			"ashl\t%[a],%[2],(%(regvar($2)%))"
			setcc({regdef4,regvar($2)}) |	| | (9,14)+%[1]+%[2]
...		| NC CONST source4 |
			REMEXTANDLOC
			"ashl\t$$%(0-%[1.num]%),%[2],(%(regvar($2)%))"
			setcc({regdef4,regvar($2)}) |	| | (6,10)+%[1]+%[2]
sri lol stf $1==4 && inreg($2)==2
		| source4 source4 |
			REMEXTANDLOC
			allocate(%[1], REG)
			"mnegl\t%[1],%[a]"
			"ashl\t%[a],%[2],$3(%(regvar($2)%))"
			setcc({displ4,regvar($2),tostring($3)})	|	| | (9,14)+%[1]+%[2]
...		| NC CONST source4 |
			REMEXTANDLOC
			"ashl\t$$%(0-%[1.num]%),%[2],$3(%(regvar($2)%))"
			setcc({displ4,regvar($2),tostring($3)}) |	| | (6,10)+%[1]+%[2]
#endif REGVARS
sri sil $1==4 && $2<0
		| source4 source4 |
			REMEXTANDLOC
			allocate(%[1],REG)
			"mnegl\t%[1],%[a]"
			"ashl\t%[a],%[2],*$2(fp)"
			setcc({displdef4,LB,tostring($2)})
						|	| | (9,17)+%[1]+%[2]
...		| NC CONST source4 |
			REMEXTANDLOC
			"ashl\t$$%(0-%[1.num]%),%[2],*$2(fp)"
			setcc({displdef4,LB,tostring($2)})
						|	| | (6,13)+%[1]+%[2]
sri sil $1==4 && $2>=0
		| source4 source4 |
			REMEXTANDLOC
			allocate(%[1],REG)
			"mnegl\t%[1],%[a]"
			"ashl\t%[a],%[2],*$2(ap)"
			setcc({displdef4,AP,tostring($2)})
						|	| | (9,17)+%[1]+%[2]
...		| NC CONST source4 |
			REMEXTANDLOC
			"ashl\t$$%(0-%[1.num]%),%[2],*$2(ap)"
			setcc({displdef4,AP,tostring($2)})
						|	| | (6,13)+%[1]+%[2]
sri ste $1==4	| source4 source4 |
			remove(externals)
			allocate(%[1],REG)
			"mnegl\t%[1],%[a]"
			"ashl\t%[a],%[2],$2"
			setcc({EXTERNAL4,$2})	|	| | (11,14)+%[1]+%[2]
...		| NC CONST source4 |
			remove(externals)
			"ashl\t$$%(0-%[1.num]%),%[2],$2"
			setcc({EXTERNAL4,$2})	|	| | (8,10)+%[1]+%[2]
sri !defined($1) | source4 |
			remove(ALL)
			move(%[1],R0)
			"jsb\t.sri"
			erase(R0)				|	| |

/************************************************
 * Group 4 : Unsigned arithmetic		*
 ************************************************/

adu		| |				|	| adi $1 |
sbu		| |				|	| sbi $1 |
mlu		| |				|	| mli $1 |
dvu $1==4	| STACK |
			"jsb\t.dvu4"		| R0	| |
dvu !defined($1) | source1or2or4 |
			remove(ALL)
			move(%[1],R0)
			"jsb\t.dvu"
			erase(R0)			|	| |
rmu $1==4	| STACK |
			"jsb\t.rmu4"			| R0	| |
rmu !defined($1) | source1or2or4 |
			remove(ALL)
			move(%[1],R0)
			"jsb\t.rmu"
			erase(R0)			|	| |
slu		| |					|	| sli $1 |
sru $1==4	| source4 source4 |
			allocate(%[1],REG,QREG)
			"mnegl\t%[1],%[a]"
			move(%[2],%[b.1])
			move({CONST4,0},%[b.2])
			"ashq\t%[a],%[b],%[b]"
			erase(%[b])		| %[b.1] | | (10,12)+%[1]
...		| NC CONST source4 |
			allocate(%[2],QREG)
			move(%[2],%[a.1])
			move({CONST4,0},%[a.2])
			"ashq\t$$%(0-%[1.num]%),%[a],%[a]"
			erase(%[a])		| %[a.1] | | (4,4)+%[1]
sru !defined($1) | source1or2or4 |
			remove(ALL)
			move(%[1],R0)
			"jsb\t.sru"
			erase(R0)			|	| |

/****************************************
 * Group 5 : Floating point arithmetic	*
 ****************************************/

adf $1==4	| source4 source4 |
			allocate(%[1],%[2],REG)
			"addf3\t%[1],%[2],%[a]"
			setcc(%[a])		| %[a]	| | (4,8)+%[1]+%[2]
#ifdef FLOAT4
...		| source4 sreg4 |
			"addf2\t%[1],%[2]"
			erase(%[2])
			setcc(%[2])		| %[2]	| | (3,8) + %[1]
...		| sreg4 source4 |
			"addf2\t%[2],%[1]"
			erase(%[1])
			setcc(%[1])		| %[1]	| | (3,8) + %[2]
#ifdef REGVARS
adf stl $1==4 && inreg($2)==2
		| source4 source4 |
			remove(regvar($2))
			"addf3\t%[1],%[2],%(regvar($2)%)"
			erase(regvar($2))	|	| |
#endif REGVARS
adf stl $1==4 && $2<0
		| source4 source4 |
			remove(displaced)
			remove(LOCALS,%[num] <= $2+3 && %[num]+%[size] > $2)
			"addf3\t%[1],%[2],$2(fp)"
			setcc({LOCAL4,LB,$2,4})	|	   | |
adf stl $1==4 && $2>=0
		| source4 source4 |
			remove(displaced)
			remove(LOCALS,%[num] <= $2+3 && %[num]+%[size] > $2)
			"addf3\t%[1],%[2],$2(ap)"
			setcc({LOCAL4,AP,$2,4})	|	   | |
#ifdef REGVARS
adf sil $1==4 && inreg($2)==2
		| source4 source4 |
			remove(regvar($2))
			"addf3\t%[1],%[2],(%(regvar($2)%))"
			setcc(regvar($2))	|	| |
#endif REGVARS
adf sil $1==4 && $2<0
		| source4 source4 |
			REMEXTANDLOC
			"addf3\t%[1],%[2],*$2(fp)"
			setcc({displdef4,LB,tostring($2)})	|	| |
adf sil $1==4 && $2>=0
		| source4 source4 |
			REMEXTANDLOC
			"addf3\t%[1],%[2],*$2(ap)"
			setcc({displdef4,AP,tostring($2)})	|	| |
adf ste $1==4	| source4 source4 |
			remove(externals)
			"addf3\t%[1],%[2],$2"
			setcc({EXTERNAL4,$2})	|	| |
#endif FLOAT4
adf $1==8	| source8 source8 |
			allocate(%[1],%[2],QREG)
			"addd3\t%[1],%[2],%[a]"
			setcc(%[a])		| %[a]	| | (4,14)+%[1]+%[2]
#ifdef FLOAT8
...		| source8 sreg8 |
			"addd2\t%[1],%[2]"
			erase(%[2])
			setcc(%[2])		| %[2]	| | (3,14) + %[1]
...		| sreg8 source8 |
			"addd2\t%[2],%[1]"
			erase(%[1])
			setcc(%[1])		| %[1]	| | (3,14) + %[2]
adf sdl $1==8 && $2<0
		| source8 source8 |
			remove(displaced)
			remove(LOCALS,%[num] <= $2+7 && %[num]+%[size] > $2)
			"addd3\t%[1],%[2],$2(fp)"
			setcc({LOCAL8,LB,$2,8})    |	   | |
adf sdl $1==8 && $2>=0
		| source8 source8 |
			remove(displaced)
			remove(LOCALS,%[num] <= $2+7 && %[num]+%[size] > $2)
			"addd3\t%[1],%[2],$2(ap)"
			setcc({LOCAL8,AP,$2,8})    |	   | |
adf sde $1==8	| source8 source8 |
			remove(externals)
			"addd3\t%[1],%[2],$2"
			setcc({EXTERNAL8,$2})	|	| |
#endif FLOAT8
adf !defined($1) | source4 |
			remove(ALL)
			move(%[1],R0)
			"jsb\t.adf"		 |	 | |
sbf $1==4	| source4 source4 |
			allocate(%[1],%[2],REG)
			"subf3\t%[1],%[2],%[a]"
			setcc(%[a])		| %[a]	| | (4,8)+%[1]+%[2]
#ifdef FLOAT4
...		| NC source4 sreg4 |
			"subf2\t%[1],%[2]"
			erase(%[2])
			setcc(%[2])		| %[2]	| | (3,8) + %[1]
#ifdef REGVARS
sbf stl $1==4 && inreg($2)==2
		| source4 source4 |
			remove(regvar($2))
			"subf3\t%[1],%[2],%(regvar($2)%)"
			erase(regvar($2))
			setcc(regvar($2))	|	| |
#endif REGVARS
sbf stl $1==4 && $2<0
		| source4 source4 |
			remove(displaced)
			remove(LOCALS,%[num] <= $2+3 && %[num]+%[size] > $2)
			"subf3\t%[1],%[2],$2(fp)"
			setcc({LOCAL4,LB,$2,4})    |	| |
sbf stl $1==4 && $2>=0
		| source4 source4 |
			remove(displaced)
			remove(LOCALS,%[num] <= $2+3 && %[num]+%[size] > $2)
			"subf3\t%[1],%[2],$2(ap)"
			setcc({LOCAL4,AP,$2,4})	|	| |
#ifdef REGVARS
sbf sil $1==4 && inreg($2)==2
		| source4 source4 |
			remove(regvar($2))
			"subf3\t%[1],%[2],(%(regvar($2)%))"
			setcc(regvar($2))	|	| |
#endif REGVARS
sbf sil $1==4 && $2<0
		| source4 source4 |
			REMEXTANDLOC
			"subf3\t%[1],%[2],*$2(fp)"
			setcc({displdef4,LB,tostring($2)})	|	| |
sbf sil $1==4 && $2>=0
		| source4 source4 |
			REMEXTANDLOC
			"subf3\t%[1],%[2],*$2(ap)"
			setcc({displdef4,AP,tostring($2)})	|	| |
sbf ste $1==4	| source4 source4 |
			remove(externals)
			"subf3\t%[1],%[2],$2"
			setcc({EXTERNAL4,$2})	|	| |
#endif FLOAT4
sbf $1==8	| source8 source8 |
			allocate(%[1],%[2],QREG)
			"subd3\t%[1],%[2],%[a]"
			setcc(%[a])		| %[a]	| | (4,14)+%[1]+%[2]
#ifdef FLOAT8
...		| source8 sreg8 |
			"subd2\t%[1],%[2]"
			erase(%[2])
			setcc(%[2])		| %[2]	| | (3,14) + %[1]
sbf sdl $1==8 && $2<0
		| source8 source8 |
			remove(displaced)
			remove(LOCALS,%[num] <= $2+7 && %[num]+%[size] > $2)
			"subd3\t%[1],%[2],$2(fp)"
			setcc({LOCAL8,LB,$2,8})    |	   | |
sbf sdl $1==8 && $2>=0
		| source8 source8 |
			remove(displaced)
			remove(LOCALS,%[num] <= $2+7 && %[num]+%[size] > $2)
			"subd3\t%[1],%[2],$2(ap)"
			setcc({LOCAL8,AP,$2,8})    |	   | |
sbf sde $1==8	| source8 source8 |
			remove(externals)
			"subd3\t%[1],%[2],$2"
			setcc({EXTERNAL8,$2})	|	| |
#endif FLOAT8
sbf !defined($1) | source1or2or4 |
			remove(ALL)
			move(%[1],R0)
			"jsb\t.sbf"		 |	 | |
mlf $1==4	| source4 source4 |
			allocate(%[1],%[2],REG)
			"mulf3\t%[1],%[2],%[a]"
			setcc(%[a])		| %[a]	| | (4,12)+%[1]+%[2]
#ifdef FLOAT4
...		| source4 sreg4 |
			"mulf2\t%[1],%[2]"
			erase(%[2])
			setcc(%[2])		| %[2]	| | (3,12) + %[1]
...		| sreg4 source4 |
			"mulf2\t%[2],%[1]"
			erase(%[1])
			setcc(%[1])		| %[1]	| | (3,12) + %[2]
#ifdef REGVARS
mlf stl $1==4 && inreg($2)==2
		| source4 source4 |
			remove(regvar($2))
			"mulf3\t%[1],%[2],%(regvar($2)%)"
			erase(regvar($2))	|	| |
#endif REGVARS
mlf stl $1==4 && $2<0
		| source4 source4 |
			remove(displaced)
			remove(LOCALS,%[num] <= $2+3 && %[num]+%[size] > $2)
			"mulf3\t%[1],%[2],$2(fp)"
			setcc({LOCAL4,LB,$2,4})	|	   | |
mlf stl $1==4 && $2>=0
		| source4 source4 |
			remove(displaced)
			remove(LOCALS,%[num] <= $2+3 && %[num]+%[size] > $2)
			"mulf3\t%[1],%[2],$2(ap)"
			setcc({LOCAL4,AP,$2,4})	|	| |
#ifdef REGVARS
mlf sil $1==4 && inreg($2)==2
		| source4 source4 |
			remove(regvar($2))
			"mulf3\t%[1],%[2],(%(regvar($2)%))"
			setcc(regvar($2))	|	| |
#endif REGVARS
mlf sil $1==4 && $2<0
		| source4 source4 |
			REMEXTANDLOC
			"mulf3\t%[1],%[2],*$2(fp)"
			setcc({displdef4,LB,tostring($2)})	|	   | |
mlf sil $1==4 && $2>=0
		| source4 source4 |
			REMEXTANDLOC
			"mulf3\t%[1],%[2],*$2(ap)"
			setcc({displdef4,AP,tostring($2)})	|	   | |
mlf ste $1==4	| source4 source4 |
			remove(externals)
			"mulf3\t%[1],%[2],$2"
			setcc({EXTERNAL4,$2})	|	| |
#endif FLOAT4
mlf $1==8	| source8 source8 |
			allocate(%[1],%[2],QREG)
			"muld3\t%[1],%[2],%[a]"
			setcc(%[a])		| %[a]	| | (4,20)+%[1]+%[2]
#ifdef FLOAT8
...		| source8 sreg8 |
			"muld2\t%[1],%[2]"
			erase(%[2])
			setcc(%[2])		| %[2]	| | (3,20) + %[1]
...		| sreg8 source8 |
			"muld2\t%[2],%[1]"
			erase(%[1])
			setcc(%[1])		| %[1]	| | (3,20) + %[2]
mlf sdl $1==8 && $2<0
		| source8 source8 |
			remove(displaced)
			remove(LOCALS,%[num] <= $2+7 && %[num]+%[size] > $2)
			"muld3\t%[1],%[2],$2(fp)"
			setcc({LOCAL8,LB,$2,8})	|	   | |
mlf sdl $1==8 && $2>=0
		| source8 source8 |
			remove(displaced)
			remove(LOCALS,%[num] <= $2+7 && %[num]+%[size] > $2)
			"muld3\t%[1],%[2],$2(ap)"
			setcc({LOCAL8,AP,$2,8})	|	   | |
mlf sde $1==8	| source8 source8 |
			remove(externals)
			"muld3\t%[1],%[2],$2"
			setcc({EXTERNAL8,$2})	|	| |
#endif FLOAT8
mlf !defined($1) | source1or2or4 |
			remove(ALL)
			move(%[1],R0)
			"jsb\t.mlf"		 |	 | |
dvf $1==4	| source4 source4 |
			allocate(%[1],%[2],REG)
			"divf3\t%[1],%[2],%[a]"
			setcc(%[a])		| %[a]	| | (4,46)+%[1]+%[2]
#ifdef FLOAT4
...		| source4 sreg4 |
			"divf2\t%[1],%[2]"
			erase(%[2])
			setcc(%[2])		| %[2]	| | (3,46) + %[1]
#ifdef REGVARS
dvf stl $1==4 && inreg($2)==2
		| source4 source4 |
			remove(regvar($2))
			"divf3\t%[1],%[2],%(regvar($2)%)"
			erase(regvar($2))
			setcc(regvar($2))	|	| |
#endif REGVARS
dvf stl $1==4 && $2<0
		| source4 source4 |
			remove(displaced)
			remove(LOCALS,%[num] <= $2+3 && %[num]+%[size] > $2)
			"divf3\t%[1],%[2],$2(fp)"
			setcc({LOCAL4,LB,$2,4})	|	   | |
dvf stl $1==4 && $2>=0
		| source4 source4 |
			remove(displaced)
			remove(LOCALS,%[num] <= $2+3 && %[num]+%[size] > $2)
			"divf3\t%[1],%[2],$2(ap)"
			setcc({LOCAL4,AP,$2,4})	|	   | |
#ifdef REGVARS
dvf sil $1==4 && inreg($2)==2
		| source4 source4 |
			remove(regvar($2))
			"divf3\t%[1],%[2],(%(regvar($2)%))"
			setcc(regvar($2))		|	   | |
#endif REGVARS
dvf sil $1==4 && $2<0
		| source4 source4 |
			REMEXTANDLOC
			"divf3\t%[1],%[2],*$2(fp)"
			setcc({displdef4,LB,tostring($2)})	|	   | |
dvf sil $1==4 &&$2>=0
		| source4 source4 |
			REMEXTANDLOC
			"divf3\t%[1],%[2],*$2(ap)"
			setcc({displdef4,AP,tostring($2)})	|	   | |
dvf ste $1==4	| source4 source4 |
			remove(externals)
			"divf3\t%[1],%[2],$2"
			setcc({EXTERNAL4,$2})	|	| |
#endif FLOAT4
dvf $1==8	| source8 source8 |
			allocate(%[1],%[2],QREG)
			"divd3\t%[1],%[2],%[a]"
			setcc(%[a])		| %[a]	| | (4,80)+%[1]+%[2]
#ifdef FLOAT8
...		| source8 sreg8 |
			"divd2\t%[1],%[2]"
			erase(%[2])
			setcc(%[2])		| %[2]	| | (3,80) + %[1]
dvf sdl $1==8 && $2<0
		| source8 source8 |
			remove(displaced)
			remove(LOCALS,%[num] <= $2+7 && %[num]+%[size] > $2)
			"divd3\t%[1],%[2],$2(fp)"
			setcc({LOCAL8,LB,$2,8})	|	   | |
dvf sdl $1==8 && $2>=0
		| source8 source8 |
			remove(displaced)
			remove(LOCALS,%[num] <= $2+7 && %[num]+%[size] > $2)
			"divd3\t%[1],%[2],$2(ap)"
			setcc({LOCAL8,AP,$2,8})	|	   | |
dvf sde $1==8	| source8 source8 |
			remove(externals)
			"divd3\t%[1],%[2],$2"
			setcc({EXTERNAL8,$2})	|	| |
#endif FLOAT8
dvf !defined($1) | source1or2or4 |
			remove(ALL)
			move(%[1],R0)
			"jsb\t.dvf"		 |	 | |
ngf $1==4	| source4 |
			allocate(%[1],REG)
			"mnegf\t%[1],%[a]"
			setcc(%[a])		| %[a]	| |
#ifdef FLOAT4
#ifdef REGVARS
ngf stl $1==4 && inreg($2)==2
		| source4 |
			remove(regvar($2))
			"mnegf\t%[1],%(regvar($2)%)"
			erase(regvar($2))
			setcc(regvar($2))	|	| |
#endif REGVARS
ngf stl $1==4 && $2<0
		| source4 |
			remove(displaced)
			remove(LOCALS,%[num] <= $2+3 && %[num]+%[size] > $2)
			"mnegf\t%[1],$2(fp)"
			setcc({LOCAL4,LB,$2,4})	|	   | |
ngf stl $1==4 && $2>=0
		| source4 |
			remove(displaced)
			remove(LOCALS,%[num] <= $2+3 && %[num]+%[size] > $2)
			"mnegf\t%[1],$2(ap)"
			setcc({LOCAL4,AP,$2,4})	|	   | |
#ifdef REGVARS
ngf sil $1==4 && inreg($2)==2
		| source4 |
			remove(regvar($2))
			"mnegf\t%[1],(%(regvar($2)%))"
			setcc(regvar($2))	|	   | |
#endif REGVARS
ngf sil $1==4 && $2<0
		| source4 |
			REMEXTANDLOC
			"mnegf\t%[1],*$2(fp)"
			setcc({displdef4,LB,tostring($2)})	|	   | |
ngf sil $1==4 && $2>=0
		| source4 |
			REMEXTANDLOC
			"mnegf\t%[1],*$2(ap)"
			setcc({displdef4,AP,tostring($2)})	|	   | |
ngf ste $1==4	| source4 |
			remove(externals)
			"mnegf\t%[1],$2"
			setcc({EXTERNAL4,$2})	|	| |
#endif FLOAT4
ngf $1==8	| source8 |
			allocate(%[1],QREG)
			"mnegd\t%[1],%[a]"
			setcc(%[a])		| %[a]	| |
#ifdef FLOAT8
ngf sdl $1==8 && $2<0
		| source8 |
			remove(displaced)
			remove(LOCALS,%[num] <= $2+7 && %[num]+%[size] > $2)
			"mnegd\t%[1],$2(fp)"
			setcc({LOCAL8,LB,$2,8})	|	   | |
ngf sdl $1==8 && $2>=0
		| source8 |
			remove(displaced)
			remove(LOCALS,%[num] <= $2+7 && %[num]+%[size] > $2)
			"mnegd\t%[1],$2(ap)"
			setcc({LOCAL8,AP,$2,8})	|	   | |
ngf sde $1==8	| source8 |
			remove(externals)
			"mnegd\t%[1],$2"
			setcc({EXTERNAL8,$2})	|	| |
#endif FLOAT8
ngf !defined($1) | source1or2or4 |
			remove(ALL)
			move(%[1],R0)
			"jsb\t.ngf"		 |	 | |
fif $1==4	| source4 source4 |
			allocate(%[1],%[2],REG,REG)
			"mulf3\t%[1],%[2],%[a]"
			"emodf\t%[a],$$0,$$0f1.0,-(sp),%[b]"
			/*
			 * Don't trust the integer part.
			 * Overflow could occur.
			 */
			"tstl\t(sp)+"
			"subf2\t%[b],%[a]"	| %[b] %[a]	| |
fif $1==8	| source8 source8 |
			allocate(%[1],%[2],QREG,QREG)
			"muld3\t%[1],%[2],%[a]"
			"emodd\t%[a],$$0,$$0f1.0,-(sp),%[b]"
			"tstl\t(sp)+"
			"subd2\t%[b],%[a]"	| %[b] %[a]	| |
fif !defined($1) | source1or2or4 |
			remove(ALL)
			move(%[1],R0)
			"jsb\t.fif"
			erase(R0)		|	| |
fef $1==4	| sreg4 |
			allocate(REG)
			"extzv\t$$7,$$8,%[1],%[a]"
			"subl2\t$$128,%[a]"
			"insv\t$$128,$$7,$$8,%[1]" 
			erase(%[1])		| %[1] %[a] | |
fef $1==8	| sreg8 |
			allocate(REG)
			"extzv\t$$7,$$8,%[1],%[a]"
			"subl2\t$$128,%[a]"
			"insv\t$$128,$$7,$$8,%[1]" 
			erase(%[1])		| %[1] %[a] | |
fef !defined($1) | source1or2or4 |
			remove(ALL)
			move(%[1],R0)
			"jsb\t.fef"
			erase(R0)		|	| |

/********************************
 * Group 6 : pointer arithmetic *
 ********************************/

adp $1==0	| | | | |
adp		| NC ADDR_EXTERNAL |
			| {ADDR_EXTERNAL,%[1.ind]+"+"+tostring($1)} | |
...		| NC ADDR_LOCAL |
			| {ADDR_LOCAL,%[1.reg],%[1.num]+$1} | |
...		| NC adisplind1 |
			| {adisplind1,%[1.ireg],%[1.reg],
					%[1.ind]+"+"+tostring($1)} | |
...		| NC adispldefind1 |
			allocate(%[1.ireg],REG)
			"addl3\t$$$1,%[1.ireg],%[a]"
			| {adispldefind1,%[a],%[1.reg],%[1.ind]}	| |
...		| NC aextdefind1 |
			allocate(%[1],REG)
			"addl3\t$$$1,%[1.ireg],%[a]"
			| {aextdefind1,%[a],%[1.ind]}	| |
...		| NC adispl | | {adispl,%[1.reg],%[1.ind]+"+"+tostring($1)} | |
...		| reg4 | 	| {adispl,%[1],tostring($1)}		  | |
adp sil		| | | {CONST4,$1}		| adi 4 sil $2 |
adp stl		| | | {CONST4,$1}		| adi 4 stl $2 |
adp ste		| | | {CONST4,$1}		| adi 4 ste $2 |
adp dup $2==4	| | | {CONST4,$1}		| adi 4 dup 4 |
adp lol stf	| | | {CONST4,$1}		| adi 4 lol $2 stf $3 |
adp lol sti $3==4
		| | | {CONST4,$1}		| adi 4 lol $2 sti 4 |
adp loe sti $3==4
		| | | {CONST4,$1}		| adi 4 loe $2 sti 4 |
adp cms $2==4	| | | {CONST4,$1}		| adi 4 cms 4 |
loe lof adp loe stf $1==$4 && $2==$5
		| |	REMEXTANDLOC
			allocate(REG={EXTERNAL4,$1})
			"addl2\t$$$3,$2(%[a])"		|	| |
lol lof adp lol stf $1<0 && $1==$4 && inreg($1)!=2 && $2==$5
		| |	REMEXTANDLOC
			allocate(REG={LOCAL4,LB,$1,4})
			"addl2\t$$$3,$2(%[a])"		|	| |
lol lof adp lol stf $1>=0 && $1==$4 && inreg($1)!=2 && $2==$5
		| |	REMEXTANDLOC
			allocate(REG={LOCAL4,AP,$1,4})
			"addl2\t$$$3,$2(%[a])"		|	| |
ads $1==4	| NC reg4 adispl |
			| {adisplind1,%[1],%[2.reg],%[2.ind]}	| |
...		| NC reg4 ADDR_LOCAL |
			| {adisplind1,%[1],%[2.reg],tostring(%[2.num])}	| |
...		| NC reg4 ADDR_EXTERNAL |
			| {adispl,%[1],%[2.ind]}		| |
...		| NC reg4 aextind2 |
			| {adisplind2,%[2.ireg],%[1],%[2.ind]}	| |
...		| NC reg4 aextind4 |
			| {adisplind4,%[2.ireg],%[1],%[2.ind]}	| |
...		| NC reg4 aextind8 |
			| {adisplind8,%[2.ireg],%[1],%[2.ind]}	| |
...		| NC reg4 displ4 |
			| {adispldefind1,%[1],%[2.reg],%[2.ind]}	| |
...		| NC reg4 LOCAL4 |
			| {adispldefind1,%[1],%[2.reg],tostring(%[2.num])} | |
...		| NC reg4 regdef4 |
			| {adispldefind1,%[1],%[2.reg],"0"}	| |
...		| NC reg4 EXTERNAL4 |
			| {aextdefind1,%[1],%[2.ind]}		| |
...		| NC reg4 reg4 |	| {adisplind1,%[1],%[2],"0"}	| |
...		| |		|		| adi 4 |
ads		| |		|		| loc $1 loc 4 cii ads 4 |
ads !defined($1) | |		|		| loc 4 cii ads 4 |
sbs $1==4	| |		|		| sbu $1 |
sbs $1!=4	| |		|		| sbu 4 loc 4 loc $1 cii |
sbs !defined($1) | source1or2or4 |
			remove(ALL)
			move(%[1],R0)
			"jsb\t.sbs"
			erase(R0)		|	| |
adp dup sil adp $1==(0-$4) && $2==4 
		| reg4 | | %[1] %[1]	| adp $1 sil $3 |
adp dup loe sti adp $1==(0-$5) && $2==4 && $4==4
		| reg4 | | %[1] %[1]	| adp $1 loe $3 sti 4 |
dup adp lol sti $1==4 && $4==4
		| bigsource4 |
			allocate(REG=%[1])
			| %[a] %[1] {CONST4,$2}
				| adi 4 lol $3 sti 4 |
dup adp loe sti $1==4 && $4==4
		| bigsource4 |
			allocate(REG=%[1])
			| %[a] %[1] {CONST4,$2}
				| adi 4 loe $3 sti 4 |
#ifdef REGVARS
lol lol adp stl loi $1==$4 && $2==$1 && inreg($1)==2 && $3==1 && $5==1
		| |	remove(regvar($1))
			| {reginc1,regvar($1)}		| |
lol lol adp stl loi $1==$4 && $2==$1 && inreg($1)==2 && $3==2 && $5==2
		| |	remove(regvar($1))
			| {reginc2,regvar($1)}		| |
lol lol adp stl loi $1==$4 && $2==$1 && inreg($1)==2 && $3==4 && $5==4
		| |	remove(regvar($1))
			| {reginc4,regvar($1)}		| |
lol lol adp stl loi $1==$4 && $2==$1 && inreg($1)==2 && $3==8 && $5==8
		| |	remove(regvar($1))
			| {reginc8,regvar($1)}		| |
lol adp dup stl loi $1==$4 && $2==(0-1) && inreg($1)==2 && $3==4 && $5==1
		| |	remove(regvar($1))
			| {regdec1,regvar($1)}		| |
lol adp dup stl loi $1==$4 && $2==(0-2) && inreg($1)==2 && $3==4 && $5==2
		| |	remove(regvar($1))
			| {regdec2,regvar($1)}		| |
lol adp stl lil $1==$4 && $2==(0-4) && inreg($1)==2 && $3==$1
		| |	remove(regvar($1))
			| {regdec4,regvar($1)}		| |
lol adp dup stl loi $1==$4 && $2==(0-8) && inreg($1)==2 && $3==4 && $5==8
		| |	remove(regvar($1))
			| {regdec8,regvar($1)}		| |
lol lol adp stl sti $1==$4 && $2==$1 && inreg($1)==2 && $3==1 && $5==1
		| NC source1 |
			REMEXTANDLOC
			remove(regvar($1))
			"movb\t%[1],(%(regvar($1)%))+"
			erase(regvar($1))		|	| | (3,7)+%[1]
...		| NC source2 |
			REMEXTANDLOC
			remove(regvar($1))
			"cvtwb\t%[1],(%(regvar($1)%))+"
			erase(regvar($1))		|	| | (3,7)+%[1]
...		| source4 |
			REMEXTANDLOC
			remove(regvar($1))
			"cvtlb\t%[1],(%(regvar($1)%))+"
			erase(regvar($1))		|	| | (3,7)+%[1]
lol lol adp stl sti $1==$4 && $2==$1 && inreg($1)==2 && $3==2 && $5==2
		| NC source2 |
			REMEXTANDLOC
			remove(regvar($1))
			"movw\t%[1],(%(regvar($1)%))+"
			erase(regvar($1))		|	| | (3,7)+%[1]
...		| source4 |
			REMEXTANDLOC
			remove(regvar($1))
			"cvtlw\t%[1],(%(regvar($1)%))+"
			erase(regvar($1))		|	| | (3,7)+%[1]
lol lol adp stl sti $1==$4 && $2==$1 && inreg($1)==2 && $3==4 && $5==4
		| source4 |
			REMEXTANDLOC
			remove(regvar($1))
			"movl\t%[1],(%(regvar($1)%))+"
			erase(regvar($1))		|	| |
lol lol adp stl sti $1==$4 && $2==$1 && inreg($1)==2 && $3==8 && $5==8
		| source8 |
			REMEXTANDLOC
			remove(regvar($1))
			"movq\t%[1],(%(regvar($1)%))+"
			erase(regvar($1))		|	| |
lol adp dup stl sti $1==$4 && inreg($1)==2 && $2==(0-1) && $3==4 && $5==1
		| NC source1 |
			REMEXTANDLOC
			remove(regvar($1))
			"movb\t%[1],-(%(regvar($1)%))"
			erase(regvar($1))		|	| | (3,7)+%[1]
...		| NC source2 |
			REMEXTANDLOC
			remove(regvar($1))
			"cvtwb\t%[1],-(%(regvar($1)%))"
			erase(regvar($1))		|	| | (3,7)+%[1]
...		| source4 |
			REMEXTANDLOC
			remove(regvar($1))
			"cvtlb\t%[1],-(%(regvar($1)%))"
			erase(regvar($1))		|	| | (3,7)+%[1]
lol adp dup stl sti $1==$4 && inreg($1)==2 && $2==(0-2) && $3==4 && $5==2
		| NC source2 |
			REMEXTANDLOC
			remove(regvar($1))
			"movw\t%[1],-(%(regvar($1)%))"
			erase(regvar($1))		|	| | (3,7)+%[1]
...		| source4 |
			REMEXTANDLOC
			remove(regvar($1))
			"cvtlw\t%[1],-(%(regvar($1)%))"
			erase(regvar($1))		|	| | (3,7)+%[1]
lol adp stl sil $1==$4 && inreg($1)==2 && $2==(0-4) && $3==$4
		| source4 |
			REMEXTANDLOC
			remove(regvar($1))
			"movl\t%[1],-(%(regvar($1)%))"
			erase(regvar($1))		|	| |
lol adp dup stl sti $1==$4 && inreg($1)==2 && $2==(0-8) && $3==4 && $5==8
		| source8 |
			REMEXTANDLOC
			remove(regvar($1))
			"movq\t%[1],-(%(regvar($1)%))"
			erase(regvar($1))		|	| |
lol lol adp stl $1==$4 && $2==$4 && inreg($1)==2
		| |	remove(regvar($1))
			allocate(REG=regvar($1))
			"addl2\t$$$3,%(regvar($1)%)"
			erase(regvar($1))		| %[a]	| |
lol adp stl $1==$3 && inreg($1)==2
		| |	remove(regvar($1))
			"addl2\t$$$2,%(regvar($1)%)"
			erase(regvar($1))		|	| |
#endif REGVARS
lol adp stl $1==$3 && $1<0
		| |	remove(displaced)
			remove(LOCALS,%[num]<=$1+3 && %[num]+%[size]>$1)
			"addl2\t$$$2,$1(fp)" 
			setcc({LOCAL4,LB,$1,4})	|	| |
lol adp stl $1==$3 && $1>=0
		| |	remove(displaced)
			remove(LOCALS,%[num]<=$1+3 && %[num]+%[size]>$1)
			"addl2\t$$$2,$1(ap)" 
			setcc({LOCAL4,AP,$1,4})	|	| |
lol lol adp stl $1==$4 && $2==$4 && $2<0
		| |	remove(displaced)
			remove(LOCALS,%[num]<=$1+3 && %[num]+%[size]>$1)
			allocate(REG={LOCAL4,LB,$1,4})
			"addl2\t$$$3,$1(fp)"
			setcc({LOCAL4,LB,$1,4})	| %[a]	| |
lol lol adp stl $1==$4 && $2==$4
		| |	remove(displaced)
			remove(LOCALS,%[num]<=$1+3 && %[num]+%[size]>$1)
			allocate(REG={LOCAL4,AP,$1,4})
			"addl2\t$$$3,$1(ap)"
			setcc({LOCAL4,AP,$1,4})	| %[a]	| |
#ifdef REGVARS
lil lil adp sil $1==$2 && $1==$4 && inreg($1)==2
		| |	REMEXTANDLOC
			allocate(REG={regdef4,regvar($1)})
			"addl2\t$$$3,(%(regvar($1)%))"	| %[a]	| |
#endif
loe adp ste $1==$3
		| |	remove(externals)
			"addl2\t$$$2,$1"	|		| |
loe loe adp ste $1==$4 && $2==$1
		| |	remove(externals)
			allocate(REG={EXTERNAL4,$1})
			"addl2\t$$$3,$1"	| %[a]		| |

/****************************************
 * Group 7 : Increment/decrement/zero	*
 ****************************************/

lil inc dup sil $3==4 && $1==$4	| | | | lil $1 loc 1 adi 4 sil $1 lil $1 |
lil dec dup sil $3==4 && $1==$4	| | | | lil $1 loc 1 sbi 4 sil $1 lil $1 |
inc		| 	|	| {CONST1,1}	| adi 4 |
loe lof inc loe stf $1==$4 && $2==$5
		| |	REMEXTANDLOC
			allocate(REG={EXTERNAL4,$1})
			"incl\t$2(%[a])"
			setcc({displ4,%[a],tostring($2)})	|	| |
lol lof inc lol stf $1<0 && $1==$4 && inreg($1)!=2 && $2==$5
		| |	REMEXTANDLOC
			allocate(REG={LOCAL4,LB,$1,4})
			"incl\t$2(%[a])"
			setcc({displ4,%[a],tostring($2)})	|	| |
lol lof inc lol stf $1>=0 && $1==$4 && inreg($1)!=2 && $2==$5
		| |	REMEXTANDLOC
			allocate(REG={LOCAL4,AP,$1,4})
			"incl\t$2(%[a])"
			setcc({displ4,%[a],tostring($2)})	|	| |
dec		|	|	| {CONST1,1}	| sbi 4 |
loe lof dec loe stf $1==$4 && $2==$5
		| |	REMEXTANDLOC
			allocate(REG={EXTERNAL4,$1})
			"decl\t$2(%[a])"
			setcc({displ4,%[a],tostring($2)})	|	| |
lol lof dec lol stf $1<0 && $1==$4 && inreg($1)!=2 && $2==$5
		| |	REMEXTANDLOC
			allocate(REG={LOCAL4,LB,$1,4})
			"decl\t$2(%[a])"
			setcc({displ4,%[a],tostring($2)})	|	| |
lol lof dec lol stf $1>=0 && $1==$4 && inreg($1)!=2 && $2==$5
		| |	REMEXTANDLOC
			allocate(REG={LOCAL4,AP,$1,4})
			"decl\t$2(%[a])"
			setcc({displ4,%[a],tostring($2)})	|	| |
#ifdef REGVARS
inl inreg($1)==2 | |	remove(regvar($1))
			"incl\t%(regvar($1)%)"
			erase(regvar($1))
			setcc(regvar($1))	|	| |
#endif REGVARS
inl $1<0	| |	remove(displaced)
			remove(LOCALS,%[num]<=$1+3 && %[num]+%[size]>$1)
			"incl\t$1(fp)"
			setcc({LOCAL4,LB,$1,4})	|	| |
inl $1>=0	| |	remove(displaced)
			remove(LOCALS,%[num]<=$1+3 && %[num]+%[size]>$1)
			"incl\t$1(ap)"
			setcc({LOCAL4,AP,$1,4})	|	| |
#ifdef REGVARS
lol inl $1==$2 && inreg($1)==2
		| |	remove(regvar($1))
			allocate(REG=regvar($1))
			"incl\t%(regvar($1)%)"
			erase(regvar($1))
			setcc(regvar($1))	| %[a]	| |
#endif REGVARS
ine		| |	remove(externals)
			"incl\t$1"
			setcc({EXTERNAL4,$1})	|	| |
#ifdef REGVARS
del inreg($1)==2 | |	remove(regvar($1))
			"decl\t%(regvar($1)%)"
			erase(regvar($1))
			setcc(regvar($1))	|	| |
#endif REGVARS
del $1<0	| |	remove(displaced)
			remove(LOCALS,%[num]<=$1+3 && %[num]+%[size]>$1)
			"decl\t$1(fp)"
			setcc({LOCAL4,LB,$1,4})	|	| |
del $1>=0	| |	remove(displaced)
			remove(LOCALS,%[num]<=$1+3 && %[num]+%[size]>$1)
			"decl\t$1(ap)"
			setcc({LOCAL4,AP,$1,4})	|	| |
#ifdef REGVARS
lol del $1==$2 && inreg($1)==2
		| |	remove(regvar($1))
			allocate(REG=regvar($1))
			"decl\t%(regvar($1)%)"
			erase(regvar($1))
			setcc(regvar($1))	| %[a]	| |
#endif REGVARS
dee		| |	remove(externals)
			"decl\t$1"
			setcc({EXTERNAL4,$1})	|	| |
#ifdef REGVARS
zrl inreg($1)==2 | |	remove(regvar($1))
			"clrl\t%(regvar($1)%)"
			erase(regvar($1))
			setcc(regvar($1))	|	| |
#endif REGVARS
zrl $1<0	| |	remove(displaced)
			remove(LOCALS,%[num]<=$1+3 && %[num]+%[size]>$1)
			"clrl\t$1(fp)"
			setcc({LOCAL4,LB,$1,4})	|	| |
zrl $1>=0	| |	remove(displaced)
			remove(LOCALS,%[num]<=$1+3 && %[num]+%[size]>$1)
			"clrl\t$1(ap)"
			setcc({LOCAL4,AP,$1,4})	|	| |
zrl zrl $1==$2+4 && $1<0
#ifdef REGVARS
	&& inreg($1)<2 && inreg($2)<2
#endif REGVARS
		| |	remove(displaced)
			remove(LOCALS,%[num]<=$2+7 && %[num]+%[size]>$2)
			"clrq\t$2(fp)"
			setcc({LOCAL8,LB,$2,8})	|	| |
zrl zrl $1==$2+4 && $1>=0
#ifdef REGVARS
	&& inreg($1)<2 && inreg($2)<2
#endif REGVARS
		| |	remove(displaced)
			remove(LOCALS,%[num]<=$2+7 && %[num]+%[size]>$2)
			"clrq\t$2(ap)"
			setcc({LOCAL8,AP,$2,8})	|	| |
zrl zrl $1==$2-4 | |				|	| zrl $2 zrl $1 |
zre		| |	remove(externals)
			"clrl\t$1"
			setcc({EXTERNAL4,$1})	|	| |
/* Avoid a bug in the VAX assembler, that handles $0f0.0 wrong.
   So, do NOT create {FCONST[4|8], 0}!
*/
zrf $1==4	| |	allocate(REG)
			"clrl\t%[a]"		| %[a]	| |
zrf $1==8	| |	allocate(QREG)
			"clrq\t%[a]"		| %[a]	| |
zer $1==4	| |		| {CONST4,0}		| |
zer $1==8	| |	allocate(QREG)
			"clrq\t%[a]"		| %[a]	| |
zer $1<=32	| STACK |
			"clrq\t-(sp)"		|	| zer $1-8 |
zer defined($1)	| STACK |
			move({CONST4,$1/4},R0)
#ifdef LOCLABS
			"1:\tclrl\t-(sp)"
			"sobgtr\tr0,1b"
#else LOCLABS
			"clrl\t-(sp)"
			"sobgtr\tr0,.-2"
#endif LOCLABS
			erase(R0)		|	| |
zer !defined($1) | source1or2or4 |
			remove(ALL)
			move(%[1],R0)
#ifdef LOCLABS
			"1:\tclrl\t-(sp)"
			"sobgtr\tr0,1b"
#else LOCLABS
			"clrl\t-(sp)"
			"sobgtr\tr0,.-2"
#endif LOCLABS
			erase(R0)		|	| |

/********************************
 * Group 8 : Convertions	*
 ********************************/

cii		| STACK |
			"jsb\t.cii"		|	| |
cfi		| STACK |
			"jsb\t.cfi"		|	| |
cfu		| STACK |
			"jsb\t.cfu"		|	| |
cuf		| STACK |
			"jsb\t.cuf"		|	| |
cif		| STACK |
			"jsb\t.cif"		|	| |
cff		| STACK |
			"jsb\t.cff"		|	| |
cuu		| STACK |
			"jsb\t.cuu"		|	| |
ciu		| |				|	| cuu |
cui		| STACK |
			"jsb\t.cui"		|	| |
loc loc cii $1==1 && $2==2	| source1or2or4 |
			allocate(%[1],REG)
			"cvtbw\t%[1],%[a]"
			setcc(%[a])		| %[a]	| |
#ifdef REGVARS
loc loc cii stl $1==1 && $2==4 && inreg($4)==2
		| source1or2or4 |
			remove(regvar($4))
			"cvtbl\t%[1],%(regvar($4)%)"
			erase(regvar($1))
			setcc(regvar($4))	|	| |
#endif REGVARS
loc loc cii stl $1==1 && $2==4 && $4<0
		| source1or2or4 |
			remove(displaced)
			remove(LOCALS,(%[num] <= $4+3 && %[num]+%[size] > $4))
			"cvtbl\t%[1],$4(fp)"
			setcc({LOCAL4,LB,$4,4})	|	| |
loc loc cii stl $1==1 && $2==4 && $4>=0
		| source1or2or4 |
			remove(displaced)
			remove(LOCALS,(%[num] <= $4+3 && %[num]+%[size] > $4))
			"cvtbl\t%[1],$4(ap)"
			setcc({LOCAL4,AP,$4,4})	|	| |
loc loc cii ste $1==1 && $2==4	| source1or2or4 |
			remove(externals)
			"cvtbl\t%[1],$4"
			setcc({EXTERNAL4,$4})	|	| |
loc loc cii $1==1 && $2==4	| source1or2or4 |
			allocate(%[1],REG)
			"cvtbl\t%[1],%[a]"
			setcc(%[a])		| %[a]	| |
#ifdef REGVARS
loc loc cii stl $1==2 && $2==4 && inreg($4)==2
		| source2or4 |
			remove(regvar($4))
			"cvtwl\t%[1],%(regvar($4)%)"
			erase(regvar($4))
			setcc(regvar($4))	|	| |
#endif REGVARS
loc loc cii stl $1==2 && $2==4 && $4<0
		| source2or4 |
			remove(displaced)
			remove(LOCALS,(%[num] <= $4+3 && %[num]+%[size] > $4))
			"cvtwl\t%[1],$4(fp)"
			setcc({LOCAL4,LB,$4,4})	|	| |
loc loc cii stl $1==2 && $2==4 && $4>=0
		| source2or4 |
			remove(displaced)
			remove(LOCALS,(%[num] <= $4+3 && %[num]+%[size] > $4))
			"cvtwl\t%[1],$4(ap)"
			setcc({LOCAL4,AP,$4,4})	|	| |
loc loc cii ste $1==2 && $2==4	| source2or4 |
			remove(externals)
			"cvtwl\t%[1],$4"
			setcc({EXTERNAL4,$4})	|	| |
loc loc cii $1==2 && $2==4	| source2or4 |
			allocate(%[1],REG)
			"cvtwl\t%[1],%[a]"
			setcc(%[a])		| %[a]	| |
loc loc cui $1==$2	|	|	|	|	|
loc loc ciu $1==$2	|	|	|	|	|
#ifdef FLOAT4
#ifdef REGVARS
loc loc cfi stl $1==4 && $2==4 && inreg($4)==2
		| source4 |
			remove(regvar($4))
			"cvtfl\t%[1],%(regvar($4)%)"
			erase(regvar($4))
			setcc(regvar($4))	|	| |
#endif REGVARS
loc loc cfi stl $1==4 && $2==4 && $4<0
		| source4 |
			remove(displaced)
			remove(LOCALS,(%[num] <= $4+3 && %[num]+%[size] > $4))
			"cvtfl\t%[1],$4(fp)"
			setcc({LOCAL4,AP,$4,4}) |	| |
loc loc cfi stl $1==4 && $2==4 && $4>=0
		| source4 |
			remove(displaced)
			remove(LOCALS,(%[num] <= $4+3 && %[num]+%[size] > $4))
			"cvtfl\t%[1],$4(ap)"
			setcc({LOCAL4,AP,$4,4}) |	| |
loc loc cfi ste $1==4 && $2==4	| source4 |
			remove(externals)
			"cvtfl\t%[1],$4"
			setcc({EXTERNAL4,$4})	|	| |
#endif FLOAT4
loc loc cfi $1==4 && $2==4	| source4 |
			allocate(%[1],REG)
			"cvtfl\t%[1],%[a]"
			setcc(%[a])		| %[a]	| | (3,4) + %[1]
#ifdef FLOAT8
#ifdef REGVARS
loc loc cfi stl $1==8 && $2==4 && inreg($4)==2
		| source8 |
			remove(regvar($4))
			"cvtdl\t%[1],%(regvar($4)%)"
			erase(regvar($4))
			setcc(regvar($4))	|	| |
#endif REGVARS
loc loc cfi stl $1==8 && $2==4 && $4<0
		| source8 |
			remove(displaced)
			remove(LOCALS,(%[num] <= $4+3 && %[num]+%[size] > $4))
			"cvtdl\t%[1],$4(fp)"
			setcc({LOCAL4,LB,$4,4})	|	| |
loc loc cfi stl $1==8 && $2==4 && $4>=0
		| source8 |
			remove(displaced)
			remove(LOCALS,(%[num] <= $4+3 && %[num]+%[size] > $4))
			"cvtdl\t%[1],$4(ap)"
			setcc({LOCAL4,AP,$4,4})	|	| |
loc loc cfi ste $1==8 && $2==4	| source8 |
			remove(externals)
			"cvtdl\t%[1],$4"
			setcc({EXTERNAL4,$4})	|	| |
#endif FLOAT8
loc loc cfi $1==8 && $2==4	| source8 |
			allocate(%[1],REG)
			"cvtdl\t%[1],%[a]"
			setcc(%[a])		| %[a]	| |
#ifdef FLOAT4
#ifdef REGVARS
loc loc cif stl $1==4 && $2==4 && inreg($4)==2
		| source4 |
			remove(regvar($4))
			"cvtlf\t%[1],%(regvar($4)%)"
			erase(regvar($4))
			setcc(regvar($4))	|	| |
#endif REGVARS
loc loc cif stl $1==4 && $2==4 && $4<0
		| source4 |
			remove(displaced)
			remove(LOCALS,(%[num] <= $4+3 && %[num]+%[size] > $4))
			"cvtlf\t%[1],$4(fp)"	|	| |
loc loc cif stl $1==4 && $2==4 && $4>=0
		| source4 |
			remove(displaced)
			remove(LOCALS,(%[num] <= $4+3 && %[num]+%[size] > $4))
			"cvtlf\t%[1],$4(ap)"	|	| |
loc loc cif ste $1==4 && $2==4	| source4 |
			remove(externals)
			"cvtlf\t%[1],$4"	|	| |
loc loc loc cif $1!=0 && $2==4 && $3==4	| |	| {FCONST4, $1} | |
/* $1 != 0: kludge to avoid bug in VAX assembler */
#endif FLOAT4
loc loc cif $1==4 && $2==4	| source4 |
			allocate(%[1],REG)
			"cvtlf\t%[1],%[a]"	| %[a]	| |
#ifdef FLOAT8
/* No double registervariables
#ifdef REGVARS
loc loc cif sdl $1==4 && $2==8 && inreg($4)==2
		| source4 |
			remove(regvar($4))
			"cvtld\t%[1],%(regvar($4)%)"
			erase(regvar($4))
			setcc(regvar($4))	|	| |
#endif REGVARS
*/
loc loc cif sdl $1==4 && $2==8 && $4<0
		| source4 |
			remove(displaced)
			remove(LOCALS,(%[num] <= $4+3 && %[num]+%[size] > $4))
			"cvtld\t%[1],$4(fp)"	|	| |
loc loc cif sdl $1==4 && $2==8 && $4>=0
		| source4 |
			remove(displaced)
			remove(LOCALS,(%[num] <= $4+3 && %[num]+%[size] > $4))
			"cvtld\t%[1],$4(ap)"	|	| |
loc loc cif sde $1==4 && $2==8	| source4 |
			remove(externals)
			"cvtld\t%[1],$4"	|	| |
loc loc loc cif $1!=0 && $2==4 && $3==8	| |	| {FCONST8,$1}	| |
/* $1!=0: kludge to avoid known bug in Vax assembler, that
 * doesn't handle 0f0.0 (and other numbers that have the 0x4000 bit off
 * in the exponent) right.
 */
#endif FLOAT8
loc loc cif $1==4 && $2==8	| source4 |
			allocate(%[1],QREG)
			"cvtld\t%[1],%[a]"	| %[a]	| |
loc loc cfu $1==4	| source4 |
			allocate(%[1],REG=%[1])
			"bicl2\t$$32768,%[a]"	| %[a]	| loc $1 loc $2 cfi |
loc loc cfu $1==8	| source8 |
			allocate(%[1],QREG=%[1])
			"bicl2\t$$32768,%[a]"	| %[a]	| loc $1 loc $2 cfi |
#ifdef FLOAT8
/* No double registervariables
#ifdef REGVARS
loc loc cff sdl $1==4 && $2==8 && inreg($4)==2
		| source4 |
			remove(regvar($4))
			"cvtfd\t%[1],%(regvar($4)%)"
			erase(regvar($4))
			setcc(regvar($4))	|	| |
#endif REGVARS
*/
loc loc cff sdl $1==4 && $2==8 && $4<0
		| source4 |
			remove(displaced)
			remove(LOCALS,(%[num] <= $4+7 && %[num]+%[size] > $4))
			"cvtfd\t%[1],$4(fp)"	|	| |
loc loc cff sdl $1==4 && $2==8 && $4>=0
		| source4 |
			remove(displaced)
			remove(LOCALS,(%[num] <= $4+7 && %[num]+%[size] > $4))
			"cvtfd\t%[1],$4(ap)"	|	| |
loc loc cff sde $1==4 && $2==8	| source4 |
			remove(externals)
			"cvtfd\t%[1],$4"	|	| |
#endif FLOAT8
loc loc cff $1==4 && $2==8	| source4 |
			allocate(%[1],QREG)
			"cvtfd\t%[1],%[a]"	| %[a]	| |
#ifdef FLOAT4
#ifdef REGVARS
loc loc cff stl $1==8 && $2==4 && inreg($4)==2
		| source8 |
			remove(regvar($4))
			"cvtdf\t%[1],%(regvar($4)%)"
			erase(regvar($4))
			setcc(regvar($4))	|	| |
#endif REGVARS
loc loc cff stl $1==8 && $2==4 && $4<0
		| source8 |
			remove(displaced)
			remove(LOCALS,(%[num] <= $4+3 && %[num]+%[size] > $4))
			"cvtdf\t%[1],$4(fp)"	|	| |
loc loc cff stl $1==8 && $2==4 && $4>=0
		| source8 |
			remove(displaced)
			remove(LOCALS,(%[num] <= $4+3 && %[num]+%[size] > $4))
			"cvtdf\t%[1],$4(ap)"	|	| |
loc loc cff ste $1==8 && $2==4	| source8 |
			remove(externals)
			"cvtdf\t%[1],$4"	|	| |
#endif FLOAT4
loc loc cff $1==8 && $2==4	| source8 |
			allocate(%[1],REG)
			"cvtdf\t%[1],%[a]"	| %[a]	| |

/****************************************
 * Group 9 : Logical instructions	*
 ****************************************/

and $1==4	| source4 source4 |
			allocate(%[1],REG)
			"mcoml\t%[1],%[a]"
			"bicl3\t%[a],%[2],%[a]"
			setcc(%[a])		| %[a]	| | (7,6)+%[1]+%[2]
...		| NC CONST source4 |
			allocate(%[2],REG)
			"bicl3\t$$~%[1.num],%[2],%[a]"
			setcc(%[a])		| %[a]	| | (4,3)+%[1]+%[2]
...		| NC source4 CONST |
			allocate(%[1],REG)
			"bicl3\t$$~%[2.num],%[1],%[a]"
			setcc(%[a])		| %[a]	| | (4,3)+%[1]+%[2]
and zeq $1==4	| source4 source4 |
			remove(ALL)
			"bitl\t%[1],%[2]"
			"jeql\t$2"	|	| |
and zne $1==4	| source4 source4 |
			remove(ALL)
			"bitl\t%[1],%[2]"
			"jneq\t$2"	|	| |
and tne $1==4	| source4 source4 |
			allocate(REG={CONST4,0})
			"bitl\t%[1],%[2]"
#ifdef LOCLABS
			"jeql\t1f"
			"incl\t%[a]\n1:"
#else
			"jeql\t.+4"
			"incl\t%[a]"
#endif
			erase(%[a])		| %[a]	| |
#ifdef REGVARS
and stl $1==4 && inreg($2)==2
		| source4 source4 |
			remove(regvar($2))
			allocate(%[1],REG)
			"mcoml\t%[1],%[a]"
			"bicl3\t%[a],%[2],%(regvar($2)%)"
			erase(regvar($2))
			setcc(regvar($2))	|	| | (8,8)+%[1]+%[2]
...		| NC CONST source4 |
			remove(regvar($2))
			"bicl3\t$$~%[1.num],%[2],%(regvar($2)%)"
			erase(regvar($2))
			setcc(regvar($2))	|	| | (4,4)+%[1]+%[2]
...		| NC source4 CONST |
			remove(regvar($2))
			"bicl3\t$$~%[2.num],%[1],%(regvar($2)%)"
			erase(regvar($2))
			setcc(regvar($2))	|	| | (4,4)+%[1]+%[2]
#endif REGVARS
and stl $1==4 && $2<0
		| source4 source4 |
			remove(displaced)
			remove(LOCALS,(%[num] <= $2+3 && %[num]+%[size] > $2))
			allocate(%[1],REG)
			"mcoml\t%[1],%[a]"
			"bicl3\t%[a],%[2],$2(fp)"
			setcc({LOCAL4,LB,$2,4})	|	| | (9,12)+%[1]+%[2]
...		| NC CONST source4 |
			remove(displaced)
			remove(LOCALS,(%[num] <= $2+3 && %[num]+%[size] > $2))
			"bicl3\t$$~%[1.num],%[2],$2(fp)"
			setcc({LOCAL4,LB,$2,4})	|	| | (6,9)+%[1]+%[2]
...		| NC source4 CONST |
			remove(displaced)
			remove(LOCALS,(%[num] <= $2+3 && %[num]+%[size] > $2))
			"bicl3\t$$~%[2.num],%[1],$2(fp)"
			setcc({LOCAL4,LB,$2,4})	|	| | (6,9)+%[1]+%[2]
and stl $1==4 && $2>=0
		| source4 source4 |
			remove(displaced)
			remove(LOCALS,(%[num] <= $2+3 && %[num]+%[size] > $2))
			allocate(%[1],REG)
			"mcoml\t%[1],%[a]"
			"bicl3\t%[a],%[2],$2(ap)"
			setcc({LOCAL4,AP,$2,4})	|	| | (9,12)+%[1]+%[2]
...		| NC CONST source4 |
			remove(displaced)
			remove(LOCALS,(%[num] <= $2+3 && %[num]+%[size] > $2))
			"bicl3\t$$~%[1.num],%[2],$2(ap)"
			setcc({LOCAL4,AP,$2,4})	|	| | (6,9)+%[1]+%[2]
...		| NC source4 CONST |
			remove(displaced)
			remove(LOCALS,(%[num] <= $2+3 && %[num]+%[size] > $2))
			"bicl3\t$$~%[2.num],%[1],$2(ap)"
			setcc({LOCAL4,AP,$2,4})	|	| | (6,9)+%[1]+%[2]
#ifdef REGVARS
and sil $1==4 && inreg($2)==2
		| source4 source4 |
			REMEXTANDLOC
			allocate(%[1],REG)
			"mcoml\t%[1],%[a]"
			"bicl3\t%[a],%[2],(%(regvar($2)%))"
			setcc({regdef4,regvar($2)})
						|	| | (9,15)+%[1]+%[2]
...		| NC CONST source4 |
			REMEXTANDLOC
			"bicl3\t$$~%[1.num],%[2],(%(regvar($2)%))"
			setcc({regdef4,regvar($2)})
						|	| | (6,12)+%[1]+%[2]
...		| NC source4 CONST |
			REMEXTANDLOC
			"bicl3\t$$~%[2.num],%[1],(%(regvar($2)%))"
			setcc({regdef4,regvar($2)})
						|	| | (6,12)+%[1]+%[2]
#endif REGVARS
and sil $1==4 && $2<0
		| source4 source4 |
			REMEXTANDLOC
			allocate(%[1],REG)
			"mcoml\t%[1],%[a]"
			"bicl3\t%[a],%[2],*$2(fp)"
			setcc({displdef4,LB,tostring($2)})
						|	| | (9,15)+%[1]+%[2]
...		| NC CONST source4 |
			REMEXTANDLOC
			"bicl3\t$$~%[1.num],%[2],*$2(fp)"
			setcc({displdef4,LB,tostring($2)})
						|	| | (6,12)+%[1]+%[2]
...		| NC source4 CONST |
			REMEXTANDLOC
			"bicl3\t$$~%[2.num],%[1],*$2(fp)"
			setcc({displdef4,LB,tostring($2)})
						|	| | (6,12)+%[1]+%[2]
and sil $1==4 && $2>=0
		| source4 source4 |
			REMEXTANDLOC
			allocate(%[1],REG)
			"mcoml\t%[1],%[a]"
			"bicl3\t%[a],%[2],*$2(ap)"
			setcc({displdef4,AP,tostring($2)})
						|	| | (9,15)+%[1]+%[2]
...		| NC CONST source4 |
			REMEXTANDLOC
			"bicl3\t$$~%[1.num],%[2],*$2(ap)"
			setcc({displdef4,AP,tostring($2)})
						|	| | (6,12)+%[1]+%[2]
...		| NC source4 CONST |
			REMEXTANDLOC
			"bicl3\t$$~%[2.num],%[1],*$2(ap)"
			setcc({displdef4,AP,tostring($2)})
						|	| | (6,12)+%[1]+%[2]
and ste $1==4	| source4 source4 |
			remove(externals)
			allocate(%[1],REG)
			"mcoml\t%[1],%[a]"
			"bicl3\t%[a],%[2],$2"
			setcc({EXTERNAL4,$2})	|	| | (11,12)+%[1]+%[2]
...		| NC CONST source4 |
			remove(externals)
			"bicl3\t$$~%[1.num],%[2],$2"
			setcc({EXTERNAL4,$2})	|	| | (8,9)+%[1]+%[2]
...		| NC source4 CONST |
			remove(externals)
			"bicl3\t$$~%[2.num],%[1],$2"
			setcc({EXTERNAL4,$2})	|	| | (8,9)+%[1]+%[2]
and $1==8	| sreg8 sreg8 |
			"mcoml\t%[1.1],%[1.1]"
			"mcoml\t%[1.2],%[1.2]"
			"bicl2\t%[1.1],%[2.1]"
			"bicl2\t%[1.2],%[2.2]"
			erase(%[1]) erase(%[2])	| %[2]	| |
and defined($1) | |	remove(ALL)
			move({CONST4,$1},R0)
			"jsb\t.and"
			erase(R0)		|	| |
and !defined($1) | source4 |
			remove(ALL)
			move(%[1],R0)
			"jsb\t.and"
			erase(R0)		|	| |
ior $1==4	| source4 source4 |
			allocate(%[1],%[2],REG)
			"bisl3\t%[1],%[2],%[a]"
			setcc(%[a])		| %[a]	| | (4,4)+%[1]+%[2]
...		| NC sreg4 source4 |
			"bisl2\t%[2],%[1]"
			erase(%[1])
			setcc(%[1])		| %[1]	| | (3,4) + %[2]
...		| NC source4 sreg4 |
			"bisl2\t%[1],%[2]"
			erase(%[2])
			setcc(%[2])		| %[2]	| | (3,4) + %[1]
#ifdef REGVARS
ior stl $1==4 && inreg($2)==2
		| source4 source4 |
			remove(regvar($2))
			"bisl3\t%[1],%[2],%(regvar($2)%)"
			erase(regvar($2))
			setcc(regvar($2))	|	| |
#endif REGVARS
ior stl $1==4 && $2<0
		| source4 source4 |
			remove(displaced)
			remove(LOCALS,(%[num] <= $2+3 && %[num]+%[size] > $2))
			"bisl3\t%[1],%[2],$2(fp)"
			setcc({LOCAL4,LB,$2,4})	|	| |
ior stl $1==4 && $2>=0
		| source4 source4 |
			remove(displaced)
			remove(LOCALS,(%[num] <= $2+3 && %[num]+%[size] > $2))
			"bisl3\t%[1],%[2],$2(ap)"
			setcc({LOCAL4,AP,$2,4})	|	| |
#ifdef REGVARS
ior sil $1==4 && inreg($2)==2
		| source4 source4 |
			REMEXTANDLOC
			"bisl3\t%[1],%[2],(%(regvar($2)%))"
			setcc({regdef4,regvar($2)})	|	| |
#endif REGVARS
ior sil $1==4 && $2<0
		| source4 source4 |
			REMEXTANDLOC
			"bisl3\t%[1],%[2],*$2(fp)"
			setcc({displdef4,LB,tostring($2)}) |	| |
ior sil $1==4 && $2>=0
		| source4 source4 |
			REMEXTANDLOC
			"bisl3\t%[1],%[2],*$2(ap)"
			setcc({displdef4,LB,tostring($2)}) |	| |
ior ste $1==4	| source4 source4 |
			remove(externals)
			"bisl3\t%[1],%[2],$2"
			setcc({EXTERNAL4,$2})	|	| |
ior $1==8	| sreg8 sreg8 |
			"bisl2\t%[1.1],%[2.1]"
			"bisl2\t%[1.2],%[2.2]"
			erase(%[2])		| %[2]	| |
ior defined($1) | STACK |
			move({CONST4,$1},R0)
			"jsb\t.ior"
			erase(R0)		|	| |
ior !defined($1) | source4 |
			remove(ALL)
			move(%[1],R0)
			"jsb\t.ior"
			erase(R0)		|	| |
xor $1==4	| source4 source4 |
			allocate(%[1],%[2],REG)
			"xorl3\t%[1],%[2],%[a]"
			setcc(%[a])		| %[a]	| | (4,4)+%[1]+%[2]
...		| NC sreg4 source4 |
			"xorl2\t%[2],%[1]"
			erase(%[1])
			setcc(%[1])		| %[1]	| | (3,4) + %[2]
...		| NC source4 sreg4 |
			"xorl2\t%[1],%[2]"
			erase(%[2])
			setcc(%[2])		| %[2]	| | (3,4) + %[1]
#ifdef REGVARS
xor stl $1==4 && inreg($2)==2
	| source4 source4 |
			remove(regvar($2))
			"xorl3\t%[1],%[2],%(regvar($2)%)"
			erase(regvar($2))
			setcc(regvar($2))	|	| |
#endif REGVARS
xor stl $1==4 && $2<0
		| source4 source4 |
			remove(displaced)
			remove(LOCALS,(%[num] <= $2+3 && %[num]+%[size] > $2))
			"xorl3\t%[1],%[2],$2(fp)"
			setcc({LOCAL4,LB,$2,4})	|	| |
xor stl $1==4 && $2>=0
		| source4 source4 |
			remove(displaced)
			remove(LOCALS,(%[num] <= $2+3 && %[num]+%[size] > $2))
			"xorl3\t%[1],%[2],$2(ap)"
			setcc({LOCAL4,AP,$2,4})	|	| |
#ifdef REGVARS
xor sil $1==4 && inreg($2)==2
		| source4 source4 |
			REMEXTANDLOC
			"xorl3\t%[1],%[2],(%(regvar($2)%))"
			setcc({regdef4,regvar($2)})	|	| |
#endif REGVARS
xor sil $1==4 && $2<0
		| source4 source4 |
			REMEXTANDLOC
			"xorl3\t%[1],%[2],*$2(fp)"
			setcc({displdef4,LB,tostring($2)}) |	| |
xor sil $1==4 && $2>=0
		| source4 source4 |
			REMEXTANDLOC
			"xorl3\t%[1],%[2],*$2(ap)"
			setcc({displdef4,AP,tostring($2)}) |	| |
xor ste $1==4	| source4 source4 |
			remove(externals)
			"xorl3\t%[1],%[2],$2"
			setcc({EXTERNAL4,$2})	|	| |
xor defined($1) | STACK |
			move({CONST4,$1},R0)
			"jsb\t.xor"
			erase(R0)		|	| |
xor !defined($1) | source4 |
			remove(ALL)
			move(%[1],R0)
			"jsb\t.xor"
			erase(R0)		|	| |
com $1==4	| source4 |
			allocate(%[1],REG)
			"mcoml\t%[1],%[a]"
			setcc(%[a])		| %[a]	| |
#ifdef REGVARS
com stl $1==4 && inreg($2)==2
		| source4 |
			remove(regvar($2))
			"mcoml\t%[1],%(regvar($2)%)"
			erase(regvar($2))
			setcc(regvar($2))	|	| |
#endif REGVARS
com stl $1==4 && $2<0
		| source4 |
			remove(displaced)
			remove(LOCALS,(%[num] <= $2+3 && %[num]+%[size] > $2))
			"mcoml\t%[1],$2(fp)"
			setcc({LOCAL4,LB,$2,4}) |	| |
com stl $1==4 && $2>=0
		| source4 |
			remove(displaced)
			remove(LOCALS,(%[num] <= $2+3 && %[num]+%[size] > $2))
			"mcoml\t%[1],$2(ap)"
			setcc({LOCAL4,AP,$2,4}) |	| |
#ifdef REGVARS
com sil $1==4 && inreg($2)==2
		| source4 |
			REMEXTANDLOC
			"mcoml\t%[1],(%(regvar($2)%))"
			setcc({regdef4,regvar($2)})	|	| |
#endif REGVARS
com sil $1==4 && $2<0
		| source4 |
			REMEXTANDLOC
			"mcoml\t%[1],*$2(fp)"
			setcc({displdef4,LB,tostring($2)}) |	| |
com sil $1==4 && $2>=0
		| source4 |
			REMEXTANDLOC
			"mcoml\t%[1],*$2(ap)"
			setcc({displdef4,AP,tostring($2)}) |	| |
com ste $1==4	| source4 |
			remove(externals)
			"mcoml\t%[1],$2"
			setcc({EXTERNAL4,$2})	|	| |
com defined($1) | STACK |
			move({CONST4,$1},R0)
			"jsb\t.com"
			erase(R0)		|	| |
com !defined($1) | source4 |
			remove(ALL)
			move(%[1],R0)
			"jsb\t.com"
			erase(R0)		|	| |
rol $1==4	| source4 source4 |
			allocate(%[1],REG=%[1])
			"rotl\t%[a],%[2],%[a]"
			erase(%[a])
			setcc(%[a])		| %[a]	| |
#ifdef REGVARS
rol stl $1==4 && inreg($2)==2
		| source4 source4 |
			remove(regvar($2))
			"rotl\t%[1],%[2],%(regvar($2)%)"
			erase(regvar($2))
			setcc(regvar($2))	|	| |
#endif REGVARS
rol stl $1==4 && $2<0
		| source4 source4 |
			remove(displaced)
			remove(LOCALS,(%[num] <= $2+3 && %[num]+%[size] > $2))
			"rotl\t%[1],%[2],$2(fp)"
			setcc({LOCAL4,LB,$2,4})	|	| |
rol stl $1==4 && $2>=0
		| source4 source4 |
			remove(displaced)
			remove(LOCALS,(%[num] <= $2+3 && %[num]+%[size] > $2))
			"rotl\t%[1],%[2],$2(ap)"
			setcc({LOCAL4,AP,$2,4})	|	| |
#ifdef REGVARS
rol sil $1==4 && inreg($2)==2
		| source4 source4 |
			REMEXTANDLOC
			"rotl\t%[1],%[2],(%(regvar($2)%))"
			setcc({regdef4,regvar($2)})	|	| |
#endif REGVARS
rol sil $1==4 && $2<0
		| source4 source4 |
			REMEXTANDLOC
			"rotl\t%[1],%[2],*$2(fp)"
			setcc({displdef4,LB,tostring($2)})	|	| |
rol sil $1==4 && $2>=0
		| source4 source4 |
			REMEXTANDLOC
			"rotl\t%[1],%[2],*$2(ap)"
			setcc({displdef4,AP,tostring($2)})	|	| |
rol ste $1==4	| source4 source4 |
			remove(externals)
			"rotl\t%[1],%[2],$2"
			setcc({EXTERNAL4,$2})	|	| |
rol !defined($1) | source4 |
			remove(ALL)
			move(%[1],R0)
			"jsb\t.rol"
			erase(R0)		|	| |
ror $1==4	| source4 source4 |
			allocate(%[1],REG)
			"subl3\t%[1],$$32,%[a]"
			"rotl\t%[a],%[2],%[a]"
			setcc(%[a])		| %[a]	| |
...		| NC CONST source4 |
			allocate(%[2],REG)
			"rotl\t$$%(32-%[1.num]%),%[2],%[a]"
			setcc(%[a])		| %[a]	| |
#ifdef REGVARS
ror stl $1==4 && inreg($2)==2
		| source4 source4 |
			remove(regvar($2))
			allocate(%[1],REG)
			"subl3\t%[1],$$32,%[a]"
			"rotl\t%[a],%[2],%(regvar($2)%)"
			erase(regvar($2))
			setcc(regvar($2))	|	| |
...		| NC CONST source4 |
			remove(regvar($2))
			"rotl\t$$%(32-%[1.num]%),%[2],%(regvar($2)%)"
			erase(regvar($2))
			setcc(regvar($2))	|	| |
#endif REGVARS
ror stl $1==4 && $2<0
		| source4 source4 |
			remove(displaced)
			remove(LOCALS,(%[num] <= $2+3 && %[num]+%[size] > $2))
			allocate(%[1],REG)
			"subl3\t%[1],$$32,%[a]"
			"rotl\t%[a],%[2],$2(fp)"
			setcc({LOCAL4,LB,$2,4})	|	| |
...		| NC CONST source4 |
			remove(displaced)
			remove(LOCALS,(%[num] <= $2+3 && %[num]+%[size] > $2))
			"rotl\t$$%(32-%[1.num]%),%[2],$2(fp)"
			setcc({LOCAL4,LB,$2,4})	|	| |
ror stl $1==4 && $2>=0
		| source4 source4 |
			remove(displaced)
			remove(LOCALS,(%[num] <= $2+3 && %[num]+%[size] > $2))
			allocate(%[1],REG)
			"subl3\t%[1],$$32,%[a]"
			"rotl\t%[a],%[2],$2(ap)"
			setcc({LOCAL4,AP,$2,4})	|	| |
...		| NC CONST source4 |
			remove(displaced)
			remove(LOCALS,(%[num] <= $2+3 && %[num]+%[size] > $2))
			"rotl\t$$%(32-%[1.num]%),%[2],$2(ap)"
			setcc({LOCAL4,AP,$2,4})	|	| |
#ifdef REGVARS
ror sil $1==4 && inreg($2)==2
		| source4 source4 |
			REMEXTANDLOC
			allocate(%[1],REG)
			"subl3\t%[1],$$32,%[a]"
			"rotl\t%[a],%[2],(%(regvar($2)%))"
			setcc({regdef4,regvar($2)})	|	| |
...		| NC CONST source4 |
			REMEXTANDLOC
			"rotl\t$$%(32-%[1.num]%),%[2],(%(regvar($2)%))"
			setcc({regdef4,regvar($2)})	|	| |
#endif REGVARS
ror sil $1==4 && $2<0
		| source4 source4 |
			REMEXTANDLOC
			allocate(%[1],REG)
			"subl3\t%[1],$$32,%[a]"
			"rotl\t%[a],%[2],*$2(fp)"
			setcc({displdef4,LB,tostring($2)})	|	| |
...		| NC CONST source4 |
			REMEXTANDLOC
			"rotl\t$$%(32-%[1.num]%),%[2],*$2(fp)"
			setcc({displdef4,LB,tostring($2)})	|	| |
ror sil $1==4 && $2>=0
		| source4 source4 |
			REMEXTANDLOC
			allocate(%[1],REG)
			"subl3\t%[1],$$32,%[a]"
			"rotl\t%[a],%[2],*$2(ap)"
			setcc({displdef4,AP,tostring($2)})	|	| |
...		| NC CONST source4 |
			REMEXTANDLOC
			"rotl\t$$%(32-%[1.num]%),%[2],*$2(ap)"
			setcc({displdef4,AP,tostring($2)})	|	| |
ror ste $1==4	| source4 source4 |
			remove(externals)
			allocate(%[1],REG)
			"subl3\t%[1],$$32,%[a]"
			"rotl\t%[a],%[2],$2"
			setcc({EXTERNAL4,$2})	|	| |
...		| NC CONST source4 |
			remove(externals)
			"rotl\t$$%(32-%[1.num]%),%[2],$2"
			setcc({EXTERNAL4,$2})	|	| |
ror !defined($1) | source4 |
			remove(ALL)
			move(%[1],R0)
			"jsb\t.ror"
			erase(R0)		|	| |
com and $1==4 && $2==4
		| source4 source4 |
			allocate(%[1],%[2],REG)
			"bicl3\t%[1],%[2],%[a]"
			setcc(%[a])		| %[a]	| | (4,4)+%[1]+%[2]
...		| NC source4 sreg4 |
			"bicl2\t%[1],%[2]"
			erase(%[2])
			setcc(%[2])		| %[2]	| | (3,4) + %[1]
#ifdef REGVARS
com and stl $1==4 && $2==4 && inreg($3)==2
		| source4 source4 |
			remove(regvar($3))
			"bicl3\t%[1],%[2],%(regvar($3)%)"
			erase(regvar($3))
			setcc(regvar($3))	|	| |
#endif REGVARS
com and stl $1==4 && $2==4 && $3<0
		| source4 source4 |
			remove(displaced)
			remove(LOCALS,(%[num] <= $3+3 && %[num]+%[size] > $3))
			"bicl3\t%[1],%[2],$3(fp)"
			setcc({LOCAL4,AP,$3,4})	|	| |
com and stl $1==4 && $2==4 && $3>=0
		| source4 source4 |
			remove(displaced)
			remove(LOCALS,(%[num] <= $3+3 && %[num]+%[size] > $3))
			"bicl3\t%[1],%[2],$3(ap)"
			setcc({LOCAL4,AP,$3,4})	|	| |
#ifdef REGVARS
com and sil $1==4 && $2==4 && inreg($3)==2
		| source4 source4 |
			REMEXTANDLOC
			"bicl3\t%[1],%[2],(%(regvar($3)%))"
			setcc({regdef4,regvar($3)})	|	| |
#endif REGVARS
com and sil $1==4 && $2==4 && $3<0
		| source4 source4 |
			REMEXTANDLOC
			"bicl3\t%[1],%[2],*$3(fp)"
			setcc({displdef4,LB,tostring($3)})	|	| |
com and sil $1==4 && $2==4 && $3>=0
		| source4 source4 |
			REMEXTANDLOC
			"bicl3\t%[1],%[2],*$3(ap)"
			setcc({displdef4,AP,tostring($3)})	|	| |
com and ste $1==4 &&$2==4
		| source4 source4 |
			remove(externals)
			"bicl3\t%[1],%[2],$3"
			setcc({EXTERNAL4,$3})	|	| |
com and $1==$2	| STACK |
			move({CONST4,$1},R0)
			"jsb\t.cmand"
			erase(R0)		|	| |

/********************************
 * Group 10: Set instructions	*
 ********************************/

loc inn $1==0 && $2==4	| source4 |
			allocate(%[1],REG)
			"bicl3\t$$~1,%[1],%[a]"
			setcc(%[a])		| %[a]	| |
loc inn $2==4	| source4 |
			allocate(%[1],REG)
			"ashl\t$$%(0-$1%),%[1],%[a]"
			"bicl2\t$$~1,%[a]"
			setcc(%[a])		| %[a]	| |
#ifdef LOCLABS
inn $1==4	| source4 source4 |
			allocate(REG={CONST1,0})
			"cmpl\t%[1],$$31"
			"bgtru\t1f"
			"mnegl\t%[1],%[a]"
			"ashl\t%[a],%[2],%[a]"
			"bicl2\t$$~1,%[a]\n1:"
			setcc(%[a])
			erase(%[a])		| %[a]	| |
#endif
loc inn zeq $2==4	| source4 |
			remove(ALL)
			"bitl\t%[1],$$%(1<<$1%)"
			"jeql\t$3"		|	| |
loc inn zne $2==4	| source4 |
			remove(ALL)
			"bitl\t%[1],$$%(1<<$1%)"
			"jneq\t$3"		|	| |
inn zeq $1==4	| source4 source4 |
			remove(ALL)
			allocate(REG)
			"cmpl\t%[1],$$31"
			"jgtru\t$2"
			"ashl\t%[1],$$1,%[a]"
			"bitl\t%[2],%[a]"
			"jeql\t$2"		|	| |
#ifdef LOCLABS
inn zne $1==4	| source4 source4 |
			remove(ALL)
			allocate(REG)
			"cmpl\t%[1],$$31"
			"bgtru\t1f"
			"ashl\t%[1],$$1,%[a]"
			"bitl\t%[2],%[a]"
			"jneq\t$2\n1:"		|	| |
#endif
loc inn zeq $2==8 && $1<32	/* First half of set. */
		| REG REG |
			remove(ALL)
			"bitl\t%[1],$$%(1<<$1%)"
			"jeql\t$3"		|	| |
loc inn zeq $2==8 && $1>=32	/* Second half. */
		| REG REG |
			remove(ALL)
			"bitl\t%[2],$$%(1<<($1-32)%)"
			"jeql\t$3"		|	| |
loc inn zne $2==8 && $1<32	/* First half of set. */
		| REG REG |
			remove(ALL)
			"bitl\t%[1],$$%(1<<$1%)"
			"jneq\t$3"		|	| |
loc inn zne $2==8 && $1>=32	/* Second half. */
		| REG REG |
			remove(ALL)
			"bitl\t%[2],$$%(1<<($1-32)%)"
			"jneq\t$3"		|	| |
inn defined($1) | STACK |
			move({CONST4,$1},R0)
			"jsb\t.inn"
			erase(R0)		| R1	| |
inn !defined($1) | source4 |
			remove(ALL)
			move(%[1],R0)
			"jsb\t.inn"
			erase(R0)		| R1	| |
set $1==4	| source4 | |	{CONST4,1} %[1] | sli 4 |
set defined($1) | STACK |
			move({CONST4,$1},R0)
			"jsb\t.setx"
			erase(R0)		|	| |
set !defined($1) | source4 |
			remove(ALL)
			move(%[1],R0)
			"jsb\t.setx"
			erase(R0)		|	| |

/****************************************
 * Group 11 : Array instructions	*
 ****************************************/

lae aar $2==4 && rom(1,3)==1	| | | | ads 4 adp 0-rom(1,1) |
lae aar $2==4 && rom(1,3)==2	| | | | loc 1 sli 4 ads 4 adp 0-2*rom(1,1) |
lae aar $2==4 && rom(1,3)==4	| | | | loc 2 sli 4 ads 4 adp 0-4*rom(1,1) |
lae aar $2==4 && rom(1,3)==8	| | | | loc 3 sli 4 ads 4 adp 0-8*rom(1,1) |
lae aar $2==4 && defined(rom(1,3)) && rom(1,1)==0
		| source4 adispl |
			allocate(%[1],REG)
			"mull3\t$$%(rom(1,3)%),%[1],%[a]"
			| {adisplind1,%[a],%[2.reg],%[2.ind]}	| | (8,10)+%[1]
...		| NC source4 ADDR_EXTERNAL |
			allocate(%[1],REG)
			"mull3\t$$%(rom(1,3)%),%[1],%[a]"
			| {adispl,%[a],%[2.ind]}	| | (7,16)+%[1]
lae aar $2==4 && defined(rom(1,3))
		| source4 adispl |
			allocate(%[1],REG)
			"mull3\t$$%(rom(1,3)%),%[1],%[a]"
			| {adisplind1,%[a],%[2.reg],
				%[2.ind]+"+"+tostring(0-rom(1,1)*rom(1,3))}
				| | (8,10)+%[1]
...		| NC source4 ADDR_EXTERNAL |
			allocate(%[1],REG)
			"mull3\t$$%(rom(1,3)%),%[1],%[a]"
			| {adispl,%[a],
				%[2.ind]+"+"+tostring(0-rom(1,1)*rom(1,3))}
				| | (7,16)+%[1]
/* Sequence used by the CEM-compiler and the codegenerator. */
loc sli ads $1==2 && $2==4 && $3==4
		| reg4 ADDR_EXTERNAL |
				| {aextind4,%[1],%[2.ind]} | |
...		| reg4 adispl |
				| {adisplind4,%[1],%[2.reg],%[2.ind]} | |
...		| reg4 displ4 |
				| {adispldefind4,%[1],%[2.reg],%[2.ind]} | |
...		| reg4 EXTERNAL4 |
				| {aextdefind4,%[1],%[2.ind]} | |
loc sli ads $1==3 && $2==4 && $3==4
		| reg4 ADDR_EXTERNAL |
				| {aextind8,%[1],%[2.ind]} | |
...		| reg4 adispl |
				| {adisplind8,%[1],%[2.reg],%[2.ind]} | |
...		| reg4 displ4 |
				| {adispldefind8,%[1],%[2.reg],%[2.ind]} | |
...		| reg4 EXTERNAL4 |
				| {aextdefind8,%[1],%[2.ind]} | |
aar $1==4	| STACK |
			"jsb\t.aar4"		 | R0	| |
aar !defined($1) | source4 |
			remove(ALL)
			move(%[1],R0)
			"jsb\t.aar"
			erase(R0)		| R0	| |
lae sar defined(rom(1,3))	| | |	| lae $1 aar $2 sti rom(1,3)	|
lae lar defined(rom(1,3))	| | |	| lae $1 aar $2 loi rom(1,3)	|
sar $1==4	| STACK |
			"jsb\t.sar4"		 |	 | |
sar !defined($1) | source4 |
			remove(ALL)
			move(%[1],R0)
			"jsb\t.sar"
			erase(R0)		|	| |
lar $1==4	| STACK |
			"jsb\t.lar4"		 |	 | |
lar !defined($1) | source4 |
			remove(ALL)
			move(%[1],R0)
			"jsb\t.lar"
			erase(R0)		|	| |

/****************************************
 * Group 12 : Compare instructions	*
 ****************************************/

cmi $1==4	| source4 source4 |
			allocate(REG={CONST1,0})
			"cmpl\t%[1],%[2]"
#ifdef LOCLABS
			"beql\t2f"
			"bgtr\t1f"
#else
			"beql\t.+10"
			"bgtr\t.+6"
#endif
			"incl\t%[a]"
#ifdef LOCLABS
			"brb\t2f\n1:"
			"decl\t%[a]\n2:"
#else
			"brb\t.+4"
			"decl\t%[a]"
#endif
			erase(%[a])
			setcc(%[a])		| %[a]	| |
cmi !defined($1) | source4 |
			remove(ALL)
			move(%[1],R0)
			"jsb\t.cmi"
			setcc(R0)
			erase(R0)		| R0	| |
cmf $1==4	| source4 source4 |
			allocate(REG={CONST1,0})
			"cmpf\t%[1],%[2]"
#ifdef LOCLABS
			"beql\t2f"
			"bgtr\t1f"
#else
			"beql\t.+10"
			"bgtr\t.+6"
#endif
			"incl\t%[a]"
#ifdef LOCLABS
			"brb\t2f\n1:"
			"decl\t%[a]\n2:"
#else
			"brb\t.+4"
			"decl\t%[a]"
#endif
			erase(%[a])
			setcc(%[a])		| %[a]	| |
cmf $1==8	| source8 source8 |
/* trouble, possible lack of scratch registers */
			allocate(%[1],%[2],REG)
			"cmpd\t%[1],%[2]"
#ifdef LOCLABS
			"blss\t2f"
			"bgtr\t1f"
#else
			"blss\t.+8"
			"bgtr\t.+11"
#endif
			"clrl\t%[a]"
#ifdef LOCLABS
			"brb\t3f\n2:"
#else
			"brb\t.+10"
#endif
			"movl\t$$1,%[a]"
#ifdef LOCLABS
			"brb\t3f\n1:"
			"mnegl\t$$1,%[a]\n3:"
#else
			"brb\t.+5"
			"mnegl\t$$1,%[a]"
#endif
			erase(%[a])
			setcc(%[a])		| %[a]	| |
cmf !defined($1) | source4 |
			remove(ALL)
			move(%[1],R0)
			"jsb\t.cmf"
			setcc(R0)
			erase(R0)		| R0	| |
cmu $1==4	| |				|	| cmp |
cmu !defined($1) | source4 |
			remove(ALL)
			move(%[1],R0)
			"jsb\t.cmu"
			setcc(R0)
			erase(R0)		| R0	| |
cmp		| source4 source4 |
			allocate(REG={CONST1,0})
			"cmpl\t%[1],%[2]"
#ifdef LOCLABS
			"beqlu\t2f"
			"bgtru\t1f"
#else
			"beqlu\t.+10"
			"bgtru\t.+6"
#endif
			"incl\t%[a]"
#ifdef LOCLABS
			"brb\t2f\n1:"
			"decl\t%[a]\n2:"
#else
			"brb\t.+4"
			"decl\t%[a]"
#endif
			erase(%[a])
			setcc(%[a])		| %[a]	| |
cms $1==4	| source4 source4 |
			allocate(%[1],%[2],REG)
			"xorl3\t%[1],%[2],%[a]"
			setcc(%[a])
			erase(%[a])		| %[a]	| |
cms defined($1) | STACK |
			move({CONST1,$1},R0)
			"jsb\t.cms"
			setcc(R0)
			erase(R0)		| R0	| |
cms !defined($1) | source4 |
			remove(ALL)
			move(%[1],R0)
			"jsb\t.cms"
			setcc(R0)
			erase(R0)		| R0	| |
tlt		| source4 |
			allocate(REG={CONST1,0})
			test(%[1])
#ifdef LOCLABS
			"bgeq\t1f"
			"incl\t%[a]\n1:"
#else
			"bgeq\t.+4"
			"incl\t%[a]"
#endif
			erase(%[a])
			setcc(%[a])		| %[a]	| |
...		| NC source1or2 | 	| {CONST1,0}	| |
tlt and $2==4	| source4 sreg4 |
			test(%[1])
#ifdef LOCLABS
			"blss\t1f"
			"clrl\t%[2]\n1:"
#else
			"blss\t.+4"
			"clrl\t%[2]"
#endif
			setcc(%[2])
			erase(%[2])		| %[2]	| |
tlt ior $2==4	| source4 sreg4 |
			test(%[1])
#ifdef LOCLABS
			"bgeq\t1f"
			"bisl2\t$$1,%[2]\n1:"
#else
			"bgeq\t.+4"
			"bisl2\t$$1,%[2]"
#endif
			setcc(%[2])
			erase(%[2])		| %[2]	| |
tle		| source4 |
			allocate(REG={CONST1,0})
			test(%[1])
#ifdef LOCLABS
			"bgtr\t1f"
			"incl\t%[a]\n1:"
#else
			"bgtr\t.+4"
			"incl\t%[a]"
#endif
			erase(%[a])
			setcc(%[a])		| %[a]	| |
...		| NC source1or2 |		| %[1]	| teq |
tle and $2==4	| source4 sreg4 |
			test(%[1])
#ifdef LOCLABS
			"bleq\t1f"
			"clrl\t%[2]\n1:"
#else
			"bleq\t.+4"
			"clrl\t%[2]"
#endif
			setcc(%[2])
			erase(%[2])		| %[2]	| |
tle ior $2==4	| source4 sreg4 |
			test(%[1])
#ifdef LOCLABS
			"bgtr\t1f"
			"bisl2\t$$1,%[2]\n1:"
#else
			"bgtr\t.+4"
			"bisl2\t$$1,%[2]"
#endif
			setcc(%[2])
			erase(%[2])		| %[2]	| |
tge		| source4 |
			allocate(REG={CONST1,0})
			test(%[1])
#ifdef LOCLABS
			"blss\t1f"
			"incl\t%[a]\n1:"
#else
			"blss\t.+4"
			"incl\t%[a]"
#endif
			erase(%[a])
			setcc(%[a])		| %[a]	| |
...		| NC source1or2 |	| {CONST1,1} | |
tge and $2==4	| source4 sreg4 |
			test(%[1])
#ifdef LOCLABS
			"bgeq\t1f"
			"clrl\t%[2]\n1:"
#else
			"bgeq\t.+4"
			"clrl\t%[2]"
#endif
			setcc(%[2])
			erase(%[2])		| %[2]	| |
tge ior $2==4	| source4 sreg4 |
			test(%[1])
#ifdef LOCLABS
			"blss\t1f"
			"bisl2\t$$1,%[2]\n1:"
#else
			"blss\t.+4"
			"bisl2\t$$1,%[2]"
#endif
			setcc(%[2])
			erase(%[2])		| %[2]	| |
tgt		| source4 |
			allocate(REG={CONST1,0})
			test(%[1])
#ifdef LOCLABS
			"bleq\t1f"
			"incl\t%[a]\n1:"
#else
			"bleq\t.+4"
			"incl\t%[a]"
#endif
			erase(%[a])
			setcc(%[a])		| %[a]	| |
...		| NC source1or2 |	| %[1]	| tne |
tgt and $2==4	| source4 sreg4 |
			test(%[1])
#ifdef LOCLABS
			"bgtr\t1f"
			"clrl\t%[2]\n1:"
#else
			"bgtr\t.+4"
			"clrl\t%[2]"
#endif
			setcc(%[2])
			erase(%[2])		| %[2]	| |
tgt ior $2==4	| source4 sreg4 |
			test(%[1])
#ifdef LOCLABS
			"bleq\t1f"
			"bisl2\t$$1,%[2]\n1:"
#else
			"bleq\t.+4"
			"bisl2\t$$1,%[2]"
#endif
			setcc(%[2])
			erase(%[2])		| %[2]	| |
teq		| source1or2or4 |
			allocate(REG={CONST1,0})
			test(%[1])
#ifdef LOCLABS
			"bneq\t1f"
			"incl\t%[a]\n1:"
#else
			"bneq\t.+4"
			"incl\t%[a]"
#endif
			erase(%[a])
			setcc(%[a])		| %[a]	| |
teq and $2==4	| source4 sreg4 |
			test(%[1])
#ifdef LOCLABS
			"beql\t1f"
			"clrl\t%[2]\n1:"
#else
			"beql\t.+4"
			"clrl\t%[2]"
#endif
			setcc(%[2])
			erase(%[2])		| %[2]	| |
teq ior $2==4	| source4 sreg4 |
			test(%[1])
#ifdef LOCLABS
			"bneq\t1f"
			"bisl2\t$$1,%[2]\n1:"
#else
			"bneq\t.+4"
			"bisl2\t$$1,%[2]"
#endif
			setcc(%[2])
			erase(%[2])		| %[2]	| |
tne		| source1or2or4 |
			allocate(REG={CONST1,0})
			test(%[1])
#ifdef LOCLABS
			"beql\t1f"
			"incl\t%[a]\n1:"
#else
			"beql\t.+4"
			"incl\t%[a]"
#endif
			erase(%[a])
			setcc(%[a])		| %[a]	| |
tne and $2==4	| source4 sreg4 |
			test(%[1])
#ifdef LOCLABS
			"bneq\t1f"
			"clrl\t%[2]\n1:"
#else
			"bneq\t.+4"
			"clrl\t%[2]"
#endif
			setcc(%[2])
			erase(%[2])		| %[2]	| |
tne ior $2==4	| source4 sreg4 |
			test(%[1])
#ifdef LOCLABS
			"beql\t1f"
			"bisl2\t$$1,%[2]\n1:"
#else
			"beql\t.+4"
			"bisl2\t$$1,%[2]"
#endif
			setcc(%[2])
			erase(%[2])		| %[2]	| |
cmi tlt $1==4	| source4 source4 |
			allocate(REG={CONST4,0})
			"cmpl\t%[1],%[2]"
#ifdef LOCLABS
			"bleq\t1f"
			"incl\t%[a]\n1:"
#else
			"bleq\t.+4"
			"incl\t%[a]"
#endif
			erase(%[a])
			setcc(%[a])		| %[a]	| |
...		| NC source1or2 source1or2 |	| %[2] %[1] | cmu 4 tlt |
cmi tle $1==4	| source4 source4 |
			allocate(REG={CONST4,0})
			"cmpl\t%[1],%[2]"
#ifdef LOCLABS
			"blss\t1f"
			"incl\t%[a]\n1:"
#else
			"blss\t.+4"
			"incl\t%[a]"
#endif
			erase(%[a])
			setcc(%[a])		|  %[a]  | |
...		| NC source1or2 source1or2 |	| %[2] %[1] | cmu 4 tle |
cmi teq $1==4	| source4 source4 |
			allocate(REG={CONST4,0})
			"cmpl\t%[1],%[2]"
#ifdef LOCLABS
			"bneq\t1f"
			"incl\t%[a]\n1:"
#else
			"bneq\t.+4"
			"incl\t%[a]"
#endif
			erase(%[a])
			setcc(%[a])		| %[a]	| |
...		| NC source1or2 source1or2 |	| %[2] %[1] | cmu 4 teq |
cmi tne $1==4	| source4 source4 |
			allocate(REG={CONST4,0})
			"cmpl\t%[1],%[2]"
#ifdef LOCLABS
			"beql\t1f"
			"incl\t%[a]\n1:"
#else
			"beql\t.+4"
			"incl\t%[a]"
#endif
			erase(%[a])
			setcc(%[a])		| %[a]	| |
...		| NC source1or2 source1or2 |	| %[2] %[1] | cmu 4 tne |
cmi tge $1==4	| source4 source4 |
			allocate(REG={CONST4,0})
			"cmpl\t%[1],%[2]"
#ifdef LOCLABS
			"bgtr\t1f"
			"incl\t%[a]\n1:"
#else
			"bgtr\t.+4"
			"incl\t%[a]"
#endif
			erase(%[a])
			setcc(%[a])		| %[a]	| |
...		| NC source1or2 source1or2 |	| %[2] %[1] | cmu 4 tge |
cmi tgt $1==4	| source4 source4 |
			allocate(REG={CONST4,0})
			"cmpl\t%[1],%[2]"
#ifdef LOCLABS
			"bgeq\t1f"
			"incl\t%[a]\n1:"
#else
			"bgeq\t.+4"
			"incl\t%[a]"
#endif
			erase(%[a])
			setcc(%[a])		| %[a]	| |
...		| NC source1or2 source1or2 |	| %[2] %[1] | cmu 4 tgt |
cmi tlt and $1==4 && $3==4
		| source4 source4 sreg4 |
			"cmpl\t%[2],%[1]"
#ifdef LOCLABS
			"blss\t1f"
			"clrl\t%[3]\n1:"
#else
			"blss\t.+4"
			"clrl\t%[3]"
#endif
			setcc(%[3])
			erase(%[3])		| %[3]	| |
cmi tle and $1==4 && $3==4
		| source4 source4 sreg4 |
			"cmpl\t%[2],%[1]"
#ifdef LOCLABS
			"bleq\t1f"
			"clrl\t%[3]\n1:"
#else
			"bleq\t.+4"
			"clrl\t%[3]"
#endif
			setcc(%[3])
			erase(%[3])		| %[3]	| |
cmi teq and $1==4 && $3==4
		| source4 source4 sreg4 |
			"cmpl\t%[2],%[1]"
#ifdef LOCLABS
			"beql\t1f"
			"clrl\t%[3]\n1:"
#else
			"beql\t.+4"
			"clrl\t%[3]"
#endif
			setcc(%[3])
			erase(%[3])		| %[3]	| |
cmi tne and $1==4 && $3==4
		| source4 source4 sreg4 |
			"cmpl\t%[2],%[1]"
#ifdef LOCLABS
			"bneq\t1f"
			"clrl\t%[3]\n1:"
#else
			"bneq\t.+4"
			"clrl\t%[3]"
#endif
			setcc(%[3])
			erase(%[3])		| %[3]	| |
cmi tge and $1==4 && $3==4
		| source4 source4 sreg4 |
			"cmpl\t%[2],%[1]"
#ifdef LOCLABS
			"bgeq\t1f"
			"clrl\t%[3]\n1:"
#else
			"bgeq\t.+4"
			"clrl\t%[3]"
#endif
			setcc(%[3])
			erase(%[3])		| %[3]	| |
cmi tgt and $1==4 && $3==4
		| source4 source4 sreg4 |
			"cmpl\t%[2],%[1]"
#ifdef LOCLABS
			"bgtr\t1f"
			"clrl\t%[3]\n1:"
#else
			"bgtr\t.+4"
			"clrl\t%[3]"
#endif
			setcc(%[3])
			erase(%[3])		| %[3]	| |
cmi tlt ior $1==4 && $3==4
		| source4 source4 sreg4 |
			"cmpl\t%[2],%[1]"
#ifdef LOCLABS
			"bgeq\t1f"
			"bisl2\t$$1,%[3]\n1:"
#else
			"bgeq\t.+7"
			"bisl2\t$$1,%[3]"
#endif
			setcc(%[3])
			erase(%[3])		| %[3]	| |
cmi tle ior $1==4 && $3==4
		| source4 source4 sreg4 |
			"cmpl\t%[2],%[1]"
#ifdef LOCLABS
			"bgtr\t1f"
			"bisl2\t$$1,%[3]\n1:"
#else
			"bgtr\t.+7"
			"bisl2\t$$1,%[3]"
#endif
			setcc(%[3])
			erase(%[3])		| %[3]	| |
cmi teq ior $1==4 && $3==4
		| source4 source4 sreg4 |
			"cmpl\t%[2],%[1]"
#ifdef LOCLABS
			"bneq\t1f"
			"bisl2\t$$1,%[3]\n1:"
#else
			"bneq\t.+7"
			"bisl2\t$$1,%[3]"
#endif
			setcc(%[3])
			erase(%[3])		| %[3]	| |
cmi tne ior $1==4 && $3==4
		| source4 source4 sreg4 |
			"cmpl\t%[2],%[1]"
#ifdef LOCLABS
			"beql\t1f"
			"bisl2\t$$1,%[3]\n1:"
#else
			"beql\t.+7"
			"bisl2\t$$1,%[3]"
#endif
			setcc(%[3])
			erase(%[3])		| %[3]	| |
cmi tge ior $1==4 && $3==4
		| source4 source4 sreg4 |
			"cmpl\t%[2],%[1]"
#ifdef LOCLABS
			"blss\t1f"
			"bisl2\t$$1,%[3]\n1:"
#else
			"blss\t.+7"
			"bisl2\t$$1,%[3]"
#endif
			setcc(%[3])
			erase(%[3])		| %[3]	| |
cmi tgt ior $1==4 && $3==4
		| source4 source4 sreg4 |
			"cmpl\t%[2],%[1]"
#ifdef LOCLABS
			"bleq\t1f"
			"bisl2\t$$1,%[3]\n1:"
#else
			"bleq\t.+7"
			"bisl2\t$$1,%[3]"
#endif
			setcc(%[3])
			erase(%[3])		| %[3]	| |
#ifdef FLOAT4
cmf tlt $1==4	| source4 source4 |
			allocate(REG={CONST1,0})
			"cmpf\t%[1],%[2]"
#ifdef LOCLABS
			"bleq\t1f"
			"incl\t%[a]\n1:"
#else
			"bleq\t.+4"
			"incl\t%[a]"
#endif
			erase(%[a])
			setcc(%[a])		| %[a]	| |
cmf tle $1==4	| source4 source4 |
			allocate(REG={CONST1,0})
			"cmpf\t%[1],%[2]"
#ifdef LOCLABS
			"blss\t1f"
			"incl\t%[a]\n1:"
#else
			"blss\t.+4"
			"incl\t%[a]"
#endif
			erase(%[a])
			setcc(%[a])		|  %[a]  | |
cmf teq $1==4	| source4 source4 |
			allocate(REG={CONST1,0})
			"cmpf\t%[1],%[2]"
#ifdef LOCLABS
			"bneq\t1f"
			"incl\t%[a]\n1:"
#else
			"bneq\t.+4"
			"incl\t%[a]"
#endif
			erase(%[a])
			setcc(%[a])		| %[a]	| |
cmf tne $1==4	| source4 source4 |
			allocate(REG={CONST1,0})
			"cmpf\t%[1],%[2]"
#ifdef LOCLABS
			"beql\t1f"
			"incl\t%[a]\n1:"
#else
			"beql\t.+4"
			"incl\t%[a]"
#endif
			erase(%[a])
			setcc(%[a])		| %[a]	| |
cmf tge $1==4	| source4 source4 |
			allocate(REG={CONST1,0})
			"cmpf\t%[1],%[2]"
#ifdef LOCLABS
			"bgtr\t1f"
			"incl\t%[a]\n1:"
#else
			"bgtr\t.+4"
			"incl\t%[a]"
#endif
			erase(%[a])
			setcc(%[a])		| %[a]	| |
cmf tgt $1==4	| source4 source4 |
			allocate(REG={CONST1,0})
			"cmpf\t%[1],%[2]"
#ifdef LOCLABS
			"bgeq\t1f"
			"incl\t%[a]\n1:"
#else
			"bgeq\t.+4"
			"incl\t%[a]"
#endif
			erase(%[a])
			setcc(%[a])		| %[a]	| |
#endif FLOAT4
#ifdef FLOAT8
cmf tlt $1==8	| source8 source8 |
			allocate(%[1],%[2],REG)
			"cmpd\t%[1],%[2]"
#ifdef LOCLABS
			"bleq\t1f"
			"movl\t$$1,%[a]"
			"brb\t2f\n1:"
			"clrl\t%[a]\n2:"
#else
			"bleq\t.+9"
			"movl\t$$1,%[a]"
			"brb\t.+4"
			"clrl\t%[a]"
#endif
			
			erase(%[a])
			setcc(%[a])		| %[a]	| |
cmf tle $1==8	| source8 source8 |
			allocate(%[1],%[2],REG)
			"cmpd\t%[1],%[2]"
#ifdef LOCLABS
			"blss\t1f"
			"movl\t$$1,%[a]"
			"brb\t2f\n1:"
			"clrl\t%[a]\n2:"
#else
			"blss\t.+9"
			"movl\t$$1,%[a]"
			"brb\t.+4"
			"clrl\t%[a]"
#endif
			erase(%[a])
			setcc(%[a])		|  %[a]  | |
cmf teq $1==8	| source8 source8 |
			allocate(%[1],%[2],REG)
			"cmpd\t%[1],%[2]"
#ifdef LOCLABS
			"bneq\t1f"
			"movl\t$$1,%[a]"
			"brb\t2f\n1:"
			"clrl\t%[a]\n2:"
#else
			"bneq\t.+9"
			"movl\t$$1,%[a]"
			"brb\t.+4"
			"clrl\t%[a]"
#endif
			erase(%[a])
			setcc(%[a])		| %[a]	| |
cmf tne $1==8	| source8 source8 |
			allocate(%[1],%[2],REG)
			"cmpd\t%[1],%[2]"
#ifdef LOCLABS
			"beql\t1f"
			"movl\t$$1,%[a]"
			"brb\t2f\n1:"
			"clrl\t%[a]\n2:"
#else
			"beql\t.+9"
			"movl\t$$1,%[a]"
			"brb\t.+4"
			"clrl\t%[a]"
#endif
			erase(%[a])
			setcc(%[a])		| %[a]	| |
cmf tge $1==8	| source8 source8 |
			allocate(%[1],%[2],REG)
			"cmpd\t%[1],%[2]"
#ifdef LOCLABS
			"bgtr\t1f"
			"movl\t$$1,%[a]"
			"brb\t2f\n1:"
			"clrl\t%[a]\n2:"
#else
			"bgtr\t.+9"
			"movl\t$$1,%[a]"
			"brb\t.+4"
			"clrl\t%[a]"
#endif
			erase(%[a])
			setcc(%[a])		| %[a]	| |
cmf tgt $1==8	| source8 source8 |
			allocate(%[1],%[2],REG)
			"cmpd\t%[1],%[2]"
#ifdef LOCLABS
			"bgeq\t1f"
			"movl\t$$1,%[a]"
			"brb\t2f\n1:"
			"clrl\t%[a]\n2:"
#else
			"bgeq\t.+9"
			"movl\t$$1,%[a]"
			"brb\t.+4"
			"clrl\t%[a]"
#endif
			erase(%[a])
			setcc(%[a])		| %[a]	| |
#endif FLOAT8
/* Remember that cmu was replaced by cmp. */
cmp tlt 	| source4 source4 |
			allocate(REG={CONST1,0})
			"cmpl\t%[1],%[2]"
#ifdef LOCLABS
			"blequ\t1f"
			"incl\t%[a]\n1:"
#else
			"blequ\t.+4"
			"incl\t%[a]"
#endif
			erase(%[a])
			setcc(%[a])		| %[a]	| |
...		| NC source1 source1 |
			allocate(REG={CONST1,0})
			"cmpb\t%[1],%[2]"
#ifdef LOCLABS
			"blequ\t1f"
			"incl\t%[a]\n1:"
#else
			"blequ\t.+4"
			"incl\t%[a]"
#endif
			erase(%[a])
			setcc(%[a])		| %[a]	| |
...		| NC source2 source2 |
			allocate(REG={CONST1,0})
			"cmpw\t%[1],%[2]"
#ifdef LOCLABS
			"blequ\t1f"
			"incl\t%[a]\n1:"
#else
			"blequ\t.+4"
			"incl\t%[a]"
#endif
			erase(%[a])
			setcc(%[a])		| %[a]	| |
cmp tle 	| source4 source4 |
			allocate(REG={CONST1,0})
			"cmpl\t%[1],%[2]"
#ifdef LOCLABS
			"blssu\t1f"
			"incl\t%[a]\n1:"
#else
			"blssu\t.+4"
			"incl\t%[a]"
#endif
			erase(%[a])
			setcc(%[a])		| %[a]	| |
...		| NC source1 source1 |
			allocate(REG={CONST1,0})
			"cmpb\t%[1],%[2]"
#ifdef LOCLABS
			"blssu\t1f"
			"incl\t%[a]\n1:"
#else
			"blssu\t.+4"
			"incl\t%[a]"
#endif
			erase(%[a])
			setcc(%[a])		| %[a]	| |
...		| NC source2 source2 |
			allocate(REG={CONST1,0})
			"cmpw\t%[1],%[2]"
#ifdef LOCLABS
			"blssu\t1f"
			"incl\t%[a]\n1:"
#else
			"blssu\t.+4"
			"incl\t%[a]"
#endif
			erase(%[a])
			setcc(%[a])		| %[a]	| |
cmp teq 	| source4 source4 |
			allocate(REG={CONST1,0})
			"cmpl\t%[1],%[2]"
#ifdef LOCLABS
			"bnequ\t1f"
			"incl\t%[a]\n1:"
#else
			"bnequ\t.+4"
			"incl\t%[a]"
#endif
			erase(%[a])
			setcc(%[a])		| %[a]	| |
...		| NC source1 source1 |
			allocate(REG={CONST1,0})
			"cmpb\t%[1],%[2]"
#ifdef LOCLABS
			"bnequ\t1f"
			"incl\t%[a]\n1:"
#else
			"bnequ\t.+4"
			"incl\t%[a]"
#endif
			erase(%[a])
			setcc(%[a])		| %[a]	| |
...		| NC source2 source2 |
			allocate(REG={CONST1,0})
			"cmpw\t%[1],%[2]"
#ifdef LOCLABS
			"bnequ\t1f"
			"incl\t%[a]\n1:"
#else
			"bnequ\t.+4"
			"incl\t%[a]"
#endif
			erase(%[a])
			setcc(%[a])		| %[a]	| |
cmp tne 	| source4 source4 |
			allocate(REG={CONST1,0})
			"cmpl\t%[1],%[2]"
#ifdef LOCLABS
			"beqlu\t1f"
			"incl\t%[a]\n1:"
#else
			"beqlu\t.+4"
			"incl\t%[a]"
#endif
			erase(%[a])
			setcc(%[a])		| %[a]	| |
...		| NC source1 source1 |
			allocate(REG={CONST1,0})
			"cmpb\t%[1],%[2]"
#ifdef LOCLABS
			"beqlu\t1f"
			"incl\t%[a]\n1:"
#else
			"beqlu\t.+4"
			"incl\t%[a]"
#endif
			erase(%[a])
			setcc(%[a])		| %[a]	| |
...		| NC source2 source2 |
			allocate(REG={CONST1,0})
			"cmpw\t%[1],%[2]"
#ifdef LOCLABS
			"beqlu\t1f"
			"incl\t%[a]\n1:"
#else
			"beqlu\t.+4"
			"incl\t%[a]"
#endif
			erase(%[a])
			setcc(%[a])		| %[a]	| |
cmp tge 	| source4 source4 |
			allocate(REG={CONST1,0})
			"cmpl\t%[1],%[2]"
#ifdef LOCLABS
			"bgtru\t1f"
			"incl\t%[a]\n1:"
#else
			"bgtru\t.+4"
			"incl\t%[a]"
#endif
			erase(%[a])
			setcc(%[a])		| %[a]	| |
...		| NC source1 source1 |
			allocate(REG={CONST1,0})
			"cmpb\t%[1],%[2]"
#ifdef LOCLABS
			"bgtru\t1f"
			"incl\t%[a]\n1:"
#else
			"bgtru\t.+4"
			"incl\t%[a]"
#endif
			erase(%[a])
			setcc(%[a])		| %[a]	| |
...		| NC source2 source2 |
			allocate(REG={CONST1,0})
			"cmpw\t%[1],%[2]"
#ifdef LOCLABS
			"bgtru\t1f"
			"incl\t%[a]\n1:"
#else
			"bgtru\t.+4"
			"incl\t%[a]"
#endif
			erase(%[a])
			setcc(%[a])		| %[a]	| |
cmp tgt 	| source4 source4 |
			allocate(REG={CONST1,0})
			"cmpl\t%[1],%[2]"
#ifdef LOCLABS
			"bgequ\t1f"
			"incl\t%[a]\n1:"
#else
			"bgequ\t.+4"
			"incl\t%[a]"
#endif
			erase(%[a])
			setcc(%[a])		| %[a]	| |
...		| NC source1 source1 |
			allocate(REG={CONST1,0})
			"cmpb\t%[1],%[2]"
#ifdef LOCLABS
			"bgequ\t1f"
			"incl\t%[a]\n1:"
#else
			"bgequ\t.+4"
			"incl\t%[a]"
#endif
			erase(%[a])
			setcc(%[a])		| %[a]	| |
...		| NC source2 source2 |
			allocate(REG={CONST1,0})
			"cmpw\t%[1],%[2]"
#ifdef LOCLABS
			"bgequ\t1f"
			"incl\t%[a]\n1:"
#else
			"bgequ\t.+4"
			"incl\t%[a]"
#endif
			erase(%[a])
			setcc(%[a])		| %[a]	| |
cmp teq and $3==4
		| source4 source4 sreg4 |
			"cmpl\t%[2],%[1]"
#ifdef LOCLABS
			"beql\t1f"
			"clrl\t%[3]\n1:"
#else
			"beql\t.+4"
			"clrl\t%[3]"
#endif
			setcc(%[3])
			erase(%[3])		| %[3]	| |
cmp tne and $3==4
		| source4 source4 sreg4 |
			"cmpl\t%[2],%[1]"
#ifdef LOCLABS
			"bneq\t1f"
			"clrl\t%[3]\n1:"
#else
			"bneq\t.+4"
			"clrl\t%[3]"
#endif
			setcc(%[3])
			erase(%[3])		| %[3]	| |
cmp teq ior $3==4
		| source4 source4 sreg4 |
			"cmpl\t%[2],%[1]"
#ifdef LOCLABS
			"bneq\t1f"
			"bisl2\t$$1,%[3]\n1:"
#else
			"bneq\t.+7"
			"bisl2\t$$1,%[3]"
#endif
			setcc(%[3])
			erase(%[3])		| %[3]	| |
cmp tne ior $3==4
		| source4 source4 sreg4 |
			"cmpl\t%[2],%[1]"
#ifdef LOCLABS
			"beql\t1f"
			"bisl2\t$$1,%[3]\n1:"
#else
			"beql\t.+7"
			"bisl2\t$$1,%[3]"
#endif
			setcc(%[3])
			erase(%[3])		| %[3]	| |
cms teq $1==4	|	|			|	| cmp teq	|
cms tne $1==4	|	|			|	| cmp tne	|

/****************************************
 * Group 13 : Branch instructions	*
 ****************************************/

bra		| STACK |
			"jbr\t$1"		 |	 | |
blt		| source4 source4 STACK |
			"cmpl\t%[1],%[2]"
			"jgtr\t$1"		|	| |
...		| NC source2 source2 STACK |
			"cmpw\t%[1],%[2]"
			"jgtru\t$1"		|	| |
...		| NC source1 source1 STACK |
			"cmpb\t%[1],%[2]"
			"jgtru\t$1"		|	| |
...		| NC source4 STACK |
			"cmpl\t%[1],(sp)+"
			"jgtr\t$1"		|	| |
...		| STACK |
			"cmpl\t(sp)+,(sp)+"
			"jgtr\t$1"		|	| |
ble		| source4 source4 STACK |
			"cmpl\t%[1],%[2]"
			"jgeq\t$1"		|	| |
...		| NC source2 source2 STACK |
			"cmpw\t%[1],%[2]"
			"jgequ\t$1"		|	| |
...		| NC source1 source1 STACK |
			"cmpb\t%[1],%[2]"
			"jgequ\t$1"		|	| |
...		| NC source4 STACK |
			"cmpl\t%[1],(sp)+"
			"jgeq\t$1"		|	| |
...		| STACK |
			"cmpl\t(sp)+,(sp)+"
			"jgeq\t$1"		|	| |
beq		| source4 source4 STACK |
			"cmpl\t%[1],%[2]"
			"jeql\t$1"		|	| |
...		| NC source2 source2 STACK |
			"cmpw\t%[1],%[2]"
			"jeqlu\t$1"		|	| |
...		| NC source1 source1 STACK |
			"cmpb\t%[1],%[2]"
			"jeqlu\t$1"		|	| |
...		| NC source4 STACK |
			"cmpl\t%[1],(sp)+"
			"jeql\t$1"		|	| |
...		| STACK |
			"cmpl\t(sp)+,(sp)+"
			"jeql\t$1"		|	| |
bne		| source4 source4 STACK |
			"cmpl\t%[1],%[2]"
			"jneq\t$1"		|	| |
...		| NC source2 source2 STACK |
			"cmpw\t%[1],%[2]"
			"jnequ\t$1"		|	| |
...		| NC source1 source1 STACK |
			"cmpb\t%[1],%[2]"
			"jnequ\t$1"		|	| |
...		| NC source4 STACK |
			"cmpl\t%[1],(sp)+"
			"jneq\t$1"		|	| |
...		| STACK |
			"cmpl\t(sp)+,(sp)+"
			"jneq\t$1"		|	| |
bge		| source4 source4 STACK |
			"cmpl\t%[1],%[2]"
			"jleq\t$1"		|	| |
...		| NC source2 source2 STACK |
			"cmpw\t%[1],%[2]"
			"jlequ\t$1"		|	| |
...		| NC source1 source1 STACK |
			"cmpb\t%[1],%[2]"
			"jlequ\t$1"		|	| |
...		| NC source4 STACK |
			"cmpl\t%[1],(sp)+"
			"jleq\t$1"		|	| |
...		| STACK |
			"cmpl\t(sp)+,(sp)+"
			"jleq\t$1"		|	| |
bgt		| source4 source4 STACK |
			"cmpl\t%[1],%[2]"
			"jlss\t$1"		|	| |
...		| NC source2 source2 STACK |
			"cmpw\t%[1],%[2]"
			"jlssu\t$1"		|	| |
...		| NC source1 source1 STACK |
			"cmpb\t%[1],%[2]"
			"jlssu\t$1"		|	| |
...		| NC source4 STACK |
			"cmpl\t%[1],(sp)+"
			"jlss\t$1"		|	| |
...		| STACK |
			"cmpl\t(sp)+,(sp)+"
			"jlss\t$1"		|	| |
zlt		| source4 STACK |
			test(%[1])
			"jlss\t$1"
			samecc			|	| |
...		| NC source1or2 |	| %[1]	| asp 4	|
zle		| source4 STACK |
			test(%[1])
			"jleq\t$1"
			samecc			|	| |
...		| NC source1or2 |	| %[1]	| zeq $1 |
zeq		| source1or2or4 STACK |
			test(%[1])
			"jeql\t$1"
			samecc			|	| |
zne		| source1or2or4 STACK |
			test(%[1])
			"jneq\t$1"
			samecc			|	| |
zge		| source4 STACK |
			test(%[1])
			"jgeq\t$1"
			samecc			|	| |
...		| NC source1or2 |	| %[1]	| asp 4 bra $1 |
zgt		| source4 STACK |
			test(%[1])
			"jgtr\t$1"
			samecc			|	| |
...		| NC source1or2 |	| %[1]	| zne $1 |
cmf zlt $1==4	| source4 source4 STACK |
			"cmpf\t%[1],%[2]"
			"jgtr\t$2"		 |	 | |
cmf zle $1==4	| source4 source4 STACK |
			"cmpf\t%[1],%[2]"
			"jgeq\t$2"		 |	 | |
cmf zne $1==4	| source4 source4 STACK |
			"cmpf\t%[1],%[2]"
			"jneq\t$2"		 |	 | |
cmf zeq $1==4	| source4 source4 STACK |
			"cmpf\t%[1],%[2]"
			"jeql\t$2"		 |	 | |
cmf zge $1==4	| source4 source4 STACK |
			"cmpf\t%[1],%[2]"
			"jleq\t$2"		 |	 | |
cmf zgt $1==4	| source4 source4 STACK |
			"cmpf\t%[1],%[2]"
			"jlss\t$2"		 |	 | |
cmf zlt $1==8	| source8 source8 |
			remove(ALL)
			"cmpd\t%[1],%[2]"
			"jgtr\t$2"		 |	 | |
cmf zle $1==8	| source8 source8 |
			remove(ALL)
			"cmpd\t%[1],%[2]"
			"jgeq\t$2"		 |	 | |
cmf zne $1==8	| source8 source8 |
			remove(ALL)
			"cmpd\t%[1],%[2]"
			"jneq\t$2"		 |	 | |
cmf zeq $1==8	| source8 source8 |
			remove(ALL)
			"cmpd\t%[1],%[2]"
			"jeql\t$2"		 |	 | |
cmf zge $1==8	| source8 source8 |
			remove(ALL)
			"cmpd\t%[1],%[2]"
			"jleq\t$2"		 |	 | |
cmf zgt $1==8	| source8 source8 |
			remove(ALL)
			"cmpd\t%[1],%[2]"
			"jlss\t$2"		 |	 | |
cmp zlt 	| source4 source4 STACK |
			"cmpl\t%[1],%[2]"
			"jgtru\t$2"		 |	 | |
...		| NC source1or2 source1or2 | | %[2] %[1] | blt $2 |
cmp zle 	| source4 source4 STACK |
			"cmpl\t%[1],%[2]"
			"jgequ\t$2"		 |	 | |
...		| NC source1or2 source1or2 | | %[2] %[1] | ble $2 |
cmp zne 	| |					| | bne $2 |
cmp zeq 	| |					| | beq $2 |
cmp zge 	| source4 source4 STACK |
			"cmpl\t%[1],%[2]"
			"jlequ\t$2"		 |	 | |
...		| NC source1or2 source1or2 | | %[2] %[1] | bge $2 |
cmp zgt 	| source4 source4 STACK |
			"cmpl\t%[1],%[2]"
			"jlssu\t$2"		 |	 | |
...		| NC source1or2 source1or2 | | %[2] %[1] | bgt $2 |
cms zeq $1==4	| |				|	| cmp zeq $2 |
cms zne $1==4	| |				|	| cmp zne $2 |

/************************************************
 * Group 14 : Procedure call instructions	*
 ************************************************/

cai asp $2%4 == 0 && $2>=0 && $2 < 1024
		| reg4 |
			remove(ALL)
			"calls\t$$%($2/4%),(%[1])"	|	| |
cai		| reg4 |
			remove(ALL)
			"calls\t$$0,(%[1])"		|	| |
cal asp $2%4 == 0 && $2>=0 && $2 < 1024
		| |	remove(ALL)
			"calls\t$$%($2/4%),$1"		|	| |
cal		| |	remove(ALL)
			"calls\t$$0,$1"			|	| |
lfr $1==4	| |					| R0	| |
lfr $1==8	| |					| QR0	| |
asp ret $2==0	| | "ret"				|	| |
ass ret $2==0	| | "ret"				|	| |
asp lfr ret $2==$3 | | "ret"				|	| |
ass lfr ret $2==$3 | | "ret"				|	| |
lfr ret $1==$2	| | "ret"				|	| |
ret $1==0	| | "ret"				|	| |
ret $1==4	| NC bigsource4 |
			move(%[1],R0)
			"ret"				|	| |
...		| STACK |
			"movl\t(sp)+,r0"
			"ret"				|	| |
ret $1==8	| NC bigsource8 |
			move(%[1],QR0)
			"ret"				|	| |
...		| STACK |
			"movq\t(sp)+,r0"
			"ret"				|	| |

/********************************
 * Group 15 : Miscellaneous	*
 ********************************/

#ifdef REGVARS
asp $1==4	| bigsource4 - regch4 |		|	| |
#else REGVARS
asp $1==4	| NC bigsource4 |		|	| |
#endif REGVARS
...		| STACK |
			"tstl\t(sp)+"		|	| | (2,7)
asp $1>0	| STACK |
			"addl2\t$$$1,sp"	|	| |
asp $1==(0-4)	| |				| {CONST4,0} | |
asp $1==(0-8)	| |				| {CONST8,"0"} | |
asp		| STACK |
			"subl2\t$$%(0-$1%),sp"	|	| |
ass $1==4	| source4 |
			remove(ALL)
			"addl2\t%[1],sp"	|	| |
ass !defined($1) | source4 |
			remove(ALL)
			move(%[1],R2)	/* R2 <= leave return area intact. */
			"jsb\t.ass"
			erase(R2)		|	| |
blm $1==4	| nonexist1 nonexist1 |
			remove(ALL)
			"movl\t%[2],%[1]"	|	| |
blm $1==8	| nonexist1 nonexist1 |
			remove(ALL)
			"movq\t%[2],%[1]"	|	| |
blm $1==12	| sreg4 sreg4 |
			remove(ALL)
			"movl\t(%[2])+,(%[1])+"
			"movq\t(%[2]),(%[1])"
			erase(%[1]) erase(%[2])	|	| |
blm $1==16	| sreg4 sreg4 |
			remove(ALL)
			"movq\t(%[2])+,(%[1])+"
			"movq\t(%[2]),(%[1])"
			erase(%[1]) erase(%[2])	|	| |
blm		| sreg4 sreg4 |
			remove(ALL)
			allocate(REG={CONST1,$1/4})
#ifdef LOCLABS
			"1:\nmovl\t(%[2])+,(%[1])+"
			"sobgtr\t%[a],1b"
#else
			"\nmovl\t(%[2])+,(%[1])+"
			"sobgtr\t%[a],.-3"
#endif
			erase(%[1]) erase(%[2]) erase(%[a])
						|	| |
bls $1==4	| |	remove(ALL)
			move({CONST1,4},R0)
			"jsb\t.bls"
			erase(R0)		|	| |
bls !defined($1) | source4 |
			remove(ALL)
			move(%[1],R0)
			"jsb\t.bls"
			erase(R0)		|	| |
csa $1==4	| STACK |
			"jmp\t.csa4"		|	| |
csa !defined($1) | source4 |
			remove(ALL)
			move(%[1],R0)
			"jmp\t.csa"
			erase(R0)		|	| |
csb $1==4	| STACK |
			"jmp\t.csb4"		|	| |
csb !defined($1) | source4 |
			remove(ALL)
			move(%[1],R0)
			"jmp\t.csb"
			erase(R0)		|	| |
dch		| reg4	|	| {displ4,%[1],"12"}	| |
dup stl $1==4	| 	|			|	| stl $2 lol $2 |
dup $1==4	| dups4 |		| %[1] %[1]	| |
#ifdef REGVARS
dup $1==8	| bigsource8-regch8 |	| %[1] %[1]	| |
#else REGVARS
dup $1==8	| bigsource8 |		| %[1] %[1]	| |
#endif REGVARS
dup		| STACK |
			allocate(REG,REG={CONST1,$1/4})
			"addl3\tsp,$$$1,%[a]"
#ifdef LOCLABS
			"1:\nmovl\t-(%[a]),-(sp)"
			"sobgtr\t%[b],1b"
#else
			"movl\t-(%[a]),-(sp)"
			"sobgtr\t%[b],.-3"
#endif
			erase(%[b])		|	| |
dus $1==4	| source4 |
			remove(ALL)
			allocate(REG,REG)
			"ashl\t$$-2,%[1],%[b]"
			"addl3\tsp,%[1],%[a]"
#ifdef LOCLABS
			"1:\nmovl\t-(%[a]),-(sp)"
			"sobgtr\t%[b],1b"
#else
			"movl\t-(%[a]),-(sp)"
			"sobgtr\t%[b],.-3"
#endif
						|	| |
dus !defined($1) | source4 |
			remove(ALL)
			move(%[1],R0)
			"jsb\t.dus"
			erase(R0)		|	| |
exg $1==4	| bigsource4-source4+Xsource4 bigsource4-source4+Xsource4 |	| %[1] %[2] | |
exg $1==8	| bigsource8-source8+Xsource8 bigsource8-source8+Xsource8 |	| %[1] %[2] | |
exg defined($1) | STACK |
			move({CONST4,$1},R0)
			"jsb\t.exg"
			erase(R0)		|	| |
exg !defined($1) | source4 |
			remove(ALL)
			move(%[1],R0)
			"jsb\t.exg"
			erase(R0)		|	| |
fil		| |	"movl\t$$$1,hol0+4"	|	| |
lim		| |	allocate(REG)
			"movl\t.trpim,%[a]"	| %[a]	| |
lin		| |	"movl\t$$$1,hol0"	|	| |
lni		| |	"incl\thol0"		|	| |
gto		| STACK |
			"pushl\t$$$1"
			"jmp\t.gto"		|	| |
lor $1==0	| |				| LB	| |
lor $1==1	| STACK |
			allocate(REG)
			"movl\tsp,%[a]"		| %[a]  | |
lor $1==2	| |	allocate(REG)
			"movl\t.reghp,%[a]"	| %[a] | |
lpb		| bigsource4 |
			remove(ALL)
			move(%[1],R0)
			"jsb\t.lpb"
			erase(R0)		| R0	| |
mon		| STACK |
			"jsb\t.mon"		|	| |
nop		| STACK |
			"jsb\t.nop"		|	| |
#ifdef DORCK
rck $1==4	| STACK |
			"jsb\t.rck4"		|	| |
rck !defined($1) | source4 |
			remove(ALL)
			move(%[1],R0)
			"jsb\t.rck"
			erase(R0)		|	| |
#else DORCK
#ifdef REGVARS
rck defined($1)	| bigsource4-regch4 |		|	| |
rck !defined($1) | bigsource4-regch4 bigsource4-regch4 | | | |
#else REGVARS
rck defined($1)	| bigsource4 |		|	| |
rck !defined($1) | bigsource4 bigsource4 |	|	| |
#endif REGVARS
#endif DORCK
rtt		| | "ret"			|	| |
sig		| STACK |
			"jsb\t.sig"		|	| |
sim		| STACK |
			"jsb\t.sim"		|	| |
str $1==0	| STACK |
			"jsb\t.strlb"	 	|	| |
str $1==1	| source4 |
			remove(ALL)
			"movl\t%[1],sp" 	|	| |
str $1==2	| STACK |
			"jsb\t.strhp"		|	| |
trp		| STACK |
			"jsb\t.trp"		|	| |

/********************************
 * Coercions:			*
 *				*
 * A: From source to register,	*
 *    from nonexist to source.	*
 ********************************/

| ADDR_EXTERNAL	| 				| {DOUBLE,%[1.ind]} | |
| source1 |	allocate(%[1],REG=%[1]) 	| %[a]	| |
| source2 |	allocate(%[1],REG=%[1]) 	| %[a]	| |
| bigsource4 |	allocate(%[1],REG=%[1]) 	| %[a]	| |
| bigsource8 |	allocate(%[1],QREG=%[1])	| %[a]	| |
| reg4 |			| {adispl,%[1],"0"}	| |
| ADDR_LOCAL |	| {adispl,%[1.reg],tostring(%[1.num])}	| |
| bigsource4-adispl-reg4-ADDR_LOCAL |
		allocate(%[1],REG=%[1])	| {adispl,%[a],"0"}	| |

/********************************
 * B: From STACK to register	*
 ********************************/

| STACK |	allocate(REG)
		"movl\t(sp)+,%[a]"
		setcc(%[a])			| %[a]	| | (3,7)
| STACK |	allocate(QREG)
		"movq\t(sp)+,%[a]"
		setcc(%[a])			| %[a]	| | (3,10)
| STACK |	allocate(REG)
		"movl\t(sp)+,%[a]"
		setcc(%[a])			| {adispl,%[a],"0"} | | (3,7)

/****************
 * C: General	*
 ****************/

| regdef8 |	| {displ4,%[1.reg],"4"} {regdef4,%[1.reg]}		| |
| displ8 |	| {displ4,%[1.reg],%[1.ind]+"+4"}
		  {displ4,%[1.reg],%[1.ind]}				| |
| LOCAL8 |	| {LOCAL4,%[1.reg],%[1.num]+4,4} {LOCAL4,%[1.reg],%[1.num],4}| |
| EXTERNAL8 |	| {EXTERNAL4,%[1.ind]+"+4"} {EXTERNAL4,%[1.ind]}	| |
| QREG |	| %[1.2] %[1.1] 			| |
| regdef4 |	| {displ4,%[1.reg],"0"} 		| |
| LOCAL4 |	| {displ4,%[1.reg],tostring(%[1.num])}	| |

MOVES:
(CONST %[num]==0,source1,	"clrb\t%[2]",		(2,4)+%[2])
(CONST %[num]==0,source2,	"clrw\t%[2]",		(2,4)+%[2])
(CONST %[num]==0,source4,	"clrl\t%[2]"
				setcc(%[2]),		(2,4)+%[2])
(CONST %[num]<0 && ufit(0-%[num],6),source2,
				"mnegw\t$$%(0-%[1.num]%),%[2]"
				setcc(%[2]),		(2,4)+%[2])
(CONST ufit(%[num],8) && !ufit(%[num],6),source2,
				"movzbw\t%[1],%[2]"
				setcc(%[2]),		(2,4)+%[2])
(CONST sfit(%[num],8) && !ufit(%[num],6),source2,
				"cvtbw\t%[1],%[2]"
				setcc(%[2]),		(2,4)+%[2])
(CONST %[num]<0 && ufit(0-%[num],6),source4,
				"mnegl\t$$%(0-%[1.num]%),%[2]"
				setcc(%[2]),		(2,4)+%[2])
(CONST ufit(%[num],8) && !ufit(%[num],6),source4,
				"movzbl\t%[1],%[2]"
				setcc(%[2]),		(2,4)+%[2])
(CONST sfit(%[num],8) && !ufit(%[num],6),source4,
				"cvtbl\t%[1],%[2]"
				setcc(%[2]),		(2,4)+%[2])
(CONST ufit(%[num],16) && !ufit(%[num],6),source4,
				"movzwl\t%[1],%[2]"
				setcc(%[2]),		(2,4)+%[2])
(CONST sfit(%[num],16) && !ufit(%[num],6),source4,
				"cvtwl\t%[1],%[2]"
				setcc(%[2]),		(2,4)+%[2])
(CONST8 %[ind]=="0",source8,	"clrq\t%[2]"
				setcc(%[2]),		(2,4)+%[2])
(FCONST4 %[num]==0,source4,	"clrl\t%[2]"
				setcc(%[2]),		(2,4)+%[2])
(FCONST4,source4,		"movl\t%[1],%[2]"
				setcc(%[2]),		(3,4)+%[1]+%[2])
(FCONST8 %[num]==0,source8,	"clrq\t%[2]"
				setcc(%[2]),		(2,4)+%[2])
(FCONST8,source8,		"movd\t%[1],%[2]"
				setcc(%[2]),		(3,4)+%[1]+%[2])
#ifdef REGVARS
/* Tokens with side effects should not be remembered. */
(reginc1+regdec1,reg4,		"movzbl\t%[1],%[2]"
				setcc(%[2]) erase(%[2]),(3,4)+%[1])
(reginc2+regdec2,reg4,		"movzwl\t%[1],%[2]"
				setcc(%[2]) erase(%[2]),(3,4)+%[1])
(reginc4+regdec4,reg4,		"movl\t%[1],%[2]"
				setcc(%[2]) erase(%[2]),(3,4)+%[1])
(reginc8+regdec8,reg8,		"movq\t%[1],%[2]"
				setcc(%[2]) erase(%[2]),(3,7)+%[1])
#endif REGVARS
(source8,source8,		"movq\t%[1],%[2]"
				setcc(%[2]),		(3,4)+%[1]+%[2])
(source4,source4,		"movl\t%[1],%[2]"
				setcc(%[2]),		(3,4)+%[1]+%[2])
(source2,source2,		"movw\t%[1],%[2]"
				setcc(%[2]),		(3,4)+%[1]+%[2])
(source1,source1,		"movb\t%[1],%[2]"
				setcc(%[2]),		(3,4)+%[1]+%[2])
(source1,source2,		"movzbw\t%[1],%[2]"
				setcc(%[2]),		(3,4)+%[1]+%[2])
(source1,source4,		"movzbl\t%[1],%[2]"
				setcc(%[2]),		(3,4)+%[1]+%[2])
(source2,source4,		"movzwl\t%[1],%[2]"
				setcc(%[2]),		(3,4)+%[1]+%[2])
(source2,source1,		"cvtwb\t%[1],%[2]"
				setcc(%[2]),		(3,4)+%[1]+%[2])
(source4,source1,		"cvtlb\t%[1],%[2]"
				setcc(%[2]),		(3,4)+%[1]+%[2])
(source4,source2,		"cvtlw\t%[1],%[2]"
				setcc(%[2]),		(3,4)+%[1]+%[2])
(aind1,source4,		"movab\t%[1],%[2]"
				setcc(%[2]),		(3,4)+%[1]+%[2])
(aind2,source4,		"movaw\t%[1],%[2]"
				setcc(%[2]),		(3,4)+%[1]+%[2])
(aind4,source4,		"moval\t%[1],%[2]"
				setcc(%[2]),		(3,4)+%[1]+%[2])
(aind8,source4,		"movaq\t%[1],%[2]"
				setcc(%[2]),		(3,4)+%[1]+%[2])
(nonexist1,source4,		"movab\t%[1],%[2]"
				setcc(%[2]),		(3,4)+%[1]+%[2])
TESTS:
(source1,	"tstb\t%[1]"		 ,(2,4) + %[1])
(source2,	"tstw\t%[1]"		 ,(2,4) + %[1])
(source4,	"tstl\t%[1]"		 ,(2,4) + %[1])

STACKS:

(CONST %[num]==0,,
		"clrl\t-(sp)",		(2,7))
(CONST %[num]<0 && ufit(0-%[num],6),,
		"mnegl\t$$%(0-%[1.num]%),-(sp)",
					(2,7) + %[1])
(CONST ufit(%[num],6),,
		"pushl\t%[1]",		(2,7) + %[1])
(CONST8 %[ind]=="0",,
		"clrq\t-(sp)",		(2,10))
(CONST sfit(%[num],8),,
		"cvtbl\t%[1],-(sp)",	(3,7) + %[1])
(source1,,	"movzbl\t%[1],-(sp)",	(3,7) + %[1])
(CONST sfit(%[num],16),,
		"cvtwl\t%[1],-(sp)",	(3,7) + %[1])
(source2,,	"movzwl\t%[1],-(sp)",	(3,7) + %[1])
(source4,,	"pushl\t%[1]"
		setcc(%[1]),		(2,7) + %[1])
(source8,,	"movq\t%[1],-(sp)"
		setcc(%[1]),		(3,10)+ %[1])
(nonexist1,,	"pushal\t%[1]",		(2,7) + %[1])
(FCONST4,,	"pushl\t%[1]",		(2,7) + %[1])
(FCONST8 %[num]==0,,
		"clrq\t-(sp)",		(2,10))
(FCONST8,,	"movd\t%[1],-(sp)",	(3,10) + %[1])
(aind1,,	"pushab\t%[1]",		(2,7) + %[1])
(aind2,,	"pushaw\t%[1]",		(2,7) + %[1])
(aind4,,	"pushal\t%[1]",		(2,7) + %[1])
(aind8,,	"pushaq\t%[1]",		(2,7) + %[1])