remove 68k, thumb

6 files changed, 0 insertions, 7030 deletions

diff --git a/libinterp/comp-68020.c b/libinterp/comp-68020.c
deleted file mode 100644
index 0c5e9b7c..00000000
--- a/libinterp/comp-68020.c
+++ /dev/null
@@ -1,2074 +0,0 @@
-#include "lib9.h"
-#include "isa.h"
-#include "interp.h"
-#include "raise.h"
-
-enum
-{
-	RAX	= 0,
-	RCX	= 1,			/* Be careful with RCX, smashed in bra() */
-	RTA	= 2,
-	RTMP	= 3,
-	RFP	= 4,
-	RMP	= 5,
-	R7	= 7,
-
-	DTMP	= 0,
-	DTMP1	= 1,
-	DTMP2	= 2,
-	DTMP3	= 3,
-
-	Oadd	= 0xD000,
-	OaddaR	= 0xD1E8,		/* ADDA (d16,Rr), Rr */
-	Oaddi	= 0x0600,
-	OaddRD	= 0xD0A8,
-	OaslbD	= 0xE120,
-	OaslwD	= 0xE1A0,
-	OasrbD	= 0xE020,
-	OasrwD	= 0xE0A0,
-	Oand	= 0xC000,
-	Oandi	= 0x0200,
-	Obra	= 0x6000,
-	Obsr	= 0x6100,
-	OclrwD	= 0x4280,
-	OcmpiwR	= 0x0CA8,		/* cmpi.l offset(Rrm), imm.long */
-	OcmpwR	= 0xB1E8,		/* cmpa $offset(Rrm), Rr */
-	OcmpbD	= 0xB028,		/* cmp.b $offset(Rrm), Dr */
-	OcmpwD	= 0xB0A8,		/* cmp.l $offset(Rx), Dr */
-	OcmpwDD	= 0xB080,		/* cmp.l Dr, Dx */
-	Odbeq	= 0x57C8,
-	OdecrwRind = 0x53A8,		/* SUBQ.L $0x1, offset(Rr) */
-	Odivs	= 0x81C0,
-	Oeor	= 0xB000,
-	Oeori	= 0x0A00,
-	OexgRR	= 0xC148,		/* exg Rx, Ry */
-	Oextw	= 0x4880,		/* EXT.W Dx extend byte to 16-bit */
-	Oextbw	= 0x49C0,		/* EXTB.L Dx extend byte to 32-bit */
-	OincrwR	= 0x5288,		/* ADDQ.L $0x1, Rr */
-	OincrwRind = 0x52A8,		/* ADDQ.L $0x1, offset(Rr) */
-	Ojhi	= 0x6200,		/* BHI */
-	Ojhs	= 0x6400,		/* BCC(HS) */
-	Ojlo	= 0x6500,		/* BCS(LO) */
-	Ojls	= 0x6300,		/* BLS */
-	Ojeq	= 0x6700,		/* BEQ */
-	Ojge	= 0x6C00,		/* BGE */
-	Ojgt	= 0x6E00,		/* BGT */
-	Ojle	= 0x6F00,		/* BLE */
-	Ojlt	= 0x6D00,		/* BLT */
-	Ojne	= 0x6600,		/* BNE */
-	OjmpRind= 0x4ED0,		/* jmp (Rn) */
-	OjmpRindoffs= 0x4EE8,		/* jmp $offs(Rn) */
-	OjsrRind= 0x4E90,
-	OldbD	= 0x1028,		/* $offset(Rrm).b -> Dr */
-	OldbR	= 0x1058,		/* $offset(Rrm).b -> Rr */
-	OldwD	= 0x2028,		/* $offset(Rrm) -> Dr */
-	OldwR	= 0x2068,		/* $offset(Rrm) -> Rr */
-	OleaR	= 0x41E8,		/* addr($offset(Rrm) -> Rr */
-	OlslD	= 0xE388,
-	Olsl2D	= 0xE588,
-	OlsrD	= 0xE288,
-	OlslbD	= 0xE128,
-	OlslwD	= 0xE1A8,
-	OlsrbD	= 0xE028,
-	OlsrwD	= 0xE0A8,
-	OmovelitwR= 0x207C,		/* move $xx, Rr */
-	OmovelitwD= 0x203C,		/* move $xx, Dr */
-	Omoveal	= 0x2040,
-	OmovwR	= 0x217C,		/* imm.long -> $offset(Rrm) */
-	OmovwRR	= 0x2048,		/* movea.l Rr, Rx */
-	OmovwRD	= 0x2008,		/* move.l Rr, Dx */
-	Omuls	= 0xC1C0,
-	OnegwD	= 0x4480,
-	Oor	= 0x8000,
-	Oori	= 0x0000,
-	OpopwR	= 0x205F,		/* MOVEA.L (A7)+, Rr */
-	OpushwR	= 0x2F08,		/* MOVE.L Rr, -(A7) */
-	Opushil	= 0x2F3C,		/* MOVE.L imm., -(A7) */
-	OroxlD	= 0xE390,
-	OroxrD	= 0xE290,
-	Orts	= 0x4E75,
-	OstbD	= 0x1140,		/* Dr.b -> $offset(Rrm) !!!!! ostbR does NOT exist */
-	OstwD	= 0x2140,		/* Dr -> $offset(Rrm) */
-	OstwR	= 0x2148,		/* Rr -> $offset(Rrm) */
-	Osub	= 0x9000,
-	Osubi	= 0x0400,
-	OaddqwR	= 0x5088,
-	Oswap	= 0x4840,
-	OtstbD	= 0x4A00,		/* tst.b Dr */
-	OtstwR	= 0x4AA8,		/* tst.l $offset(Rx) */
-	Oill	= 0x4afc,		/* illegal instruction trap */
-	Onop	= 0x4E71,
-	SRCOP	= (1<<0),
-	DSTOP	= (1<<1),
-	WRTPC	= (1<<2),
-	TCHECK	= (1<<3),
-	NEWPC	= (1<<4),
-	DBRAN	= (1<<5),
-	THREOP	= (1<<6),
-
-	ANDAND	= 1,
-	OROR	= 2,
-	EQAND	= 3,
-
-	MacFRP	= 0,
-	MacRET	= 1,
-	MacCASE	= 2,
-	MacCOLR	= 3,
-	MacMCAL	= 4,
-	MacFRAM	= 5,
-	MacMFRA	= 6,
-	NMACRO
-};
-
-static	uchar*	code;
-static	uchar*	base;
-static	ulong*	patch;
-static	int	pass;
-static	Module*	mod;
-static	uchar*	tinit;
-static	ulong*	litpool;
-static	int	nlit;
-static	void	macfrp(void);
-static	void	macret(void);
-static	void	maccase(void);
-static	void	maccolr(void);
-static	void	macmcal(void);
-static	void	macfram(void);
-static	void	macmfra(void);
-static	ulong	macro[NMACRO];
-	void	(*comvec)(void);
-extern	void	das(uchar*, int);
-
-extern void _mull(void);
-extern void _divsl(void);
-
-#define T(r)	*((void**)(R.r))
-
-struct
-{
-	int	idx;
-	void	(*gen)(void);
-} mactab[] =
-{
-	MacFRP,		macfrp,		/* decrement and free pointer */
-	MacRET,		macret,		/* return instruction */
-	MacCASE,	maccase,	/* case instruction */
-	MacCOLR,	maccolr,	/* increment and color pointer */
-	MacMCAL,	macmcal,	/* mcall bottom half */
-	MacFRAM,	macfram,	/* frame instruction */
-	MacMFRA,	macmfra,	/* punt mframe because t->initialize==0 */
-};
-
-static void
-rdestroy(void)
-{
-	destroy(R.s);
-}
-
-static void
-rmcall(void)
-{
-	Prog *p;
-	Frame *f;
-
-	f = (Frame*)R.FP;
-	if(f == H)
-		error(exModule);
-
-	f->mr = nil;
-	((void(*)(Frame*))R.dt)(f);
-	R.SP = (uchar*)f;
-	R.FP = f->fp;
-	if(f->t == nil)
-		unextend(f);
-	else
-		freeptrs(f, f->t);
-	p = currun();
-	if(p->kill != nil)
-		error(p->kill);
-}
-
-static void
-rmfram(void)
-{
-	Type *t;
-	Frame *f;
-	uchar *nsp;
-
-	t = (Type*)R.s;
-	nsp = R.SP + t->size;
-	if(nsp >= R.TS) {
-		R.s = t;
-		extend();
-		T(d) = R.s;
-		return;
-	}
-	f = (Frame*)R.SP;
-	R.SP = nsp;
-	f->t = t;
-	f->mr = nil;
-	initmem(t, f);
-	T(d) = f;
-}
-
-static int
-bc(int o)
-{
-	if(o < 127 && o > -128)
-		return 1;
-	return 0;
-}
-
-static int
-wc(int o)
-{
-	if(o < 65535 && o > -65536)
-		return 1;
-	return 0;
-}
-
-static void
-urk(void)
-{
-	error(exCompile);
-}
-
-static void
-gen2(uchar o1, uchar o2)
-{
-	code[0] = o1;
-	code[1] = o2;
-	code += 2;
-}
-
-static void
-genw(ulong o)
-{
-	code[0] = (o>>8)&0xFF;
-	code[1] = o&0xFF;
-	code += 2;
-}
-
-static void
-genl(ulong o)
-{
-	*(ulong*)code = o;
-	code += 4;
-}
-
-static void
-modrm(int inst, ulong disp, int rm, int r)
-{
-	switch (inst) {
-		case OstwD:
-		case OstwR:
-		case OstbD:
-			if (!disp) {
-				inst&=0xfe3f;
-				inst|=0x0080;
-			}
-			genw(inst | (rm<<9) | r);
-			if (disp)
-				genw(disp);
-			break;
-		case Oadd|0x28|(0x6<<6):
-		case Oadd|0x28|(0x4<<6):
-		case Osub|0x28|(0x6<<6):
-		case Osub|0x28|(0x4<<6):
-		case Oor|0x28|(0x6<<6):
-		case Oor|0x28|(0x4<<6):
-		case Oand|0x28|(0x6<<6):
-		case Oand|0x28|(0x4<<6):
-		case Oeor|0x28|(0x6<<6):
-		case Oeor|0x28|(0x4<<6):
-		case Oaddi|0x28|(0x2<<6):
-		case Oori|0x28|(0x2<<6):
-		case Oandi|0x28|(0x2<<6):
-		case Oeori|0x28|(0x2<<6):
-		case Osubi|0x28|(0x2<<6):
-		case Oaddi|0x28:
-		case Oori|0x28:
-		case Oandi|0x28:
-		case Oeori|0x28:
-		case Osubi|0x28:
-		case OldbD:
-		case OldwD:
-		case OldwR:
-		case OldbR:
-		case OleaR:
-		case OaddRD:
-		case OcmpwR:
-		case OcmpwD:
-		case OcmpbD:
-		case OdecrwRind:
-		case OincrwRind:
-		case OtstwR:
-			if (!disp) {
-				inst&=0xffc7;
-				inst|=0x0010;
-			}
-			genw(inst | (r<<9) | rm);	
-			if (disp)
-				genw(disp);
-			break;
-		default:
-			print("modrm: urk on opcode 0x%ux\n",inst);
-			urk();
-	}
-}
-
-static void
-conR(ulong o, int r)
-{
-	if(o == 0) {
-		genw(0x91C8|(r<<9)|r); /* SUBA Rr, Rr */
-		return;
-	}
-	genw(Omoveal|(r<<9)|0x7C); /* MOVEA.L $o,Rr */
-	genl(o);
-}
-
-static void
-conD(ulong o, int r)
-{
-	if(o == 0) {
-		genw(OclrwD|r); /* CLR.L Dr */
-		return;
-	}
-	genw(OmovelitwD|(r<<9)); /* MOVEA.L $o,Dr */
-	genl(o);
-}
-
-static void
-opwld(Inst *i, int mi, int r)
-{
-	int ir, rta;
-	switch(UXSRC(i->add)) {
-	default:
-		print("%D\n", i);
-		urk();
-	case SRC(AFP):
-		modrm(mi, i->s.ind, RFP, r);
-		return;
-	case SRC(AMP):
-		modrm(mi, i->s.ind, RMP, r);
-		return;
-	case SRC(AIMM):
-		conR(i->s.imm, r);
-		return;
-	case SRC(AIND|AFP):
-		ir = RFP;
-		break;
-	case SRC(AIND|AMP):
-		ir = RMP;
-		break;
-	}
-	rta = RTA;
-	if(mi == OleaR)
-		rta = r;
-	modrm(OldwR, i->s.i.f, ir, rta);
-	modrm(mi, i->s.i.s, rta, r);
-}
-
-static void
-opwldD(Inst *i, int mi, int r)
-{
-	int ir, rta;
-	switch(UXSRC(i->add)) {
-	default:
-		print("%D\n", i);
-		urk();
-	case SRC(AFP):
-		modrm(mi, i->s.ind, RFP, r);
-		return;
-	case SRC(AMP):
-		modrm(mi, i->s.ind, RMP, r);
-		return;
-	case SRC(AIMM):
-		conD(i->s.imm, r);
-		return;
-	case SRC(AIND|AFP):
-		ir = RFP;
-		break;
-	case SRC(AIND|AMP):
-		ir = RMP;
-		break;
-	}
-	rta = RTA;
-	modrm(OldwR, i->s.i.f, ir, rta);
-	modrm(mi, i->s.i.s, rta, r);
-}
-
-static int
-opwst(Inst *i, int mi, int r)
-{
-	int ir, rta;
-
-	switch(UXDST(i->add)) {
-	default:
-		print("%D\n", i);
-		urk();
-	case DST(AIMM):
-		conR(i->d.imm, r);
-		return 0;
-	case DST(AFP):
-		modrm(mi, i->d.ind, RFP, r);
-		return i->d.ind;
-	case DST(AMP):
-		modrm(mi, i->d.ind, RMP, r);
-		return i->d.ind;
-	case DST(AIND|AFP):
-		ir = RFP;
-		break;
-	case DST(AIND|AMP):
-		ir = RMP;
-		break;
-	}
-	rta = RTA;
-	if(mi == OleaR)
-		rta = r;
-	modrm(OldwR, i->d.i.f, ir, rta);
-	modrm(mi, i->d.i.s, rta, r);
-	return i->d.i.s;
-}
-
-static void
-opwstD(Inst *i, int mi, int r)
-{
-	int ir, rta;
-
-	switch(UXDST(i->add)) {
-	default:
-		print("%D\n", i);
-		urk();
-	case DST(AIMM):
-		conD(i->d.imm, r);
-		return;
-	case DST(AFP):
-		modrm(mi, i->d.ind, RFP, r);
-		return;
-	case DST(AMP):
-		modrm(mi, i->d.ind, RMP, r);
-		return;
-	case DST(AIND|AFP):
-		ir = RFP;
-		break;
-	case DST(AIND|AMP):
-		ir = RMP;
-		break;
-	}
-	rta = RTA;
-	if(mi == OleaR)
-		rta = r;
-	modrm(OldwR, i->d.i.f, ir, rta);
-	modrm(mi, i->d.i.s, rta, r);
-}
-
-static int
-swapbraop(int b)
-{
-	switch(b) {
-	case Ojge:
-		return Ojlt;
-	case Ojle:
-		return Ojgt;
-	case Ojgt:
-		return Ojle;
-	case Ojlt:
-		return Ojge;
-	case Ojhi:
-		return Ojls;
-	case Ojlo:
-		return Ojhs;
-	case Ojhs:
-		return Ojlo;
-	case Ojls:
-		return Ojhi;
-	case Ojeq:
-		return Ojne;
-	case Ojne:
-		return Ojeq;
-	}
-	return b;
-}
-
-static void
-bra(ulong dst, int op)
-{
-	ulong ddst;
-	switch (op) {
-		case Obsr:
-			genw(OmovelitwR|(RCX<<9));
-			genl(dst);
-			genw(OjsrRind|RCX);
-			break;
-		case Obra:
-dojmp:
-			ddst=dst-((ulong)code+2);
-			if (bc(ddst)) {
-				genw(Obra|(uchar)ddst);
-				genw(Onop);
-				genw(Onop);
-				genw(Onop);
-			} else if (wc(ddst)) {
-				genw(Obra);
-				genw(ddst);
-				genw(Onop);
-				genw(Onop);
-			} else {
-				genw(OmovelitwR|(RCX<<9));
-				genl(dst);
-				genw(OjmpRind|RCX);
-			}
-			break;	
-		case Ojhi:
-		case Ojhs:
-		case Ojlo:
-		case Ojls:
-		case Ojeq:
-		case Ojge:
-		case Ojgt:
-		case Ojle:
-		case Ojlt:
-		case Ojne:
-			genw(swapbraop(op)|0x8);
-			goto dojmp;
-		default:
-			print("bra: urk op opcode 0x%ux\n",op);	
-			urk();
-			break;
-	}		
-}
-
-static void
-rbra(ulong dst, int op)
-{
-	dst += (ulong)base;
-	bra(dst,op);
-}
-
-static void
-literal(ulong imm, int roff)
-{
-	nlit++;
-	genw(OmovelitwR|(RAX<<9));
-	genl((ulong)litpool);
-	modrm(OstwR, roff, RTMP, RAX);
-
-	if(pass == 0)
-		return;
-
-	*litpool = imm;
-	litpool++;	
-}
-
-
-static void
-punt(Inst *i, int m, void (*fn)(void))
-{
-	ulong pc;
-	conR((ulong)&R, RTMP);
-
-	if(m & SRCOP) {
-		if(UXSRC(i->add) == SRC(AIMM)) {
-			literal(i->s.imm, O(REG, s));
-		}
-		else {
-			opwld(i, OleaR, RAX);
-			modrm(OstwR, O(REG, s), RTMP, RAX);
-		}
-	}
-
-	if(m & DSTOP) {
-		if(UXDST(i->add) == DST(AIMM)) {
-			literal(i->d.imm, O(REG, d));
-		} else {
-			opwst(i, OleaR, RAX);
-			modrm(OstwR, O(REG, d), RTMP, RAX);
-		}
-	}
-	if(m & WRTPC) {
-		genw(OmovwR|(RTMP<<9));
-		pc = patch[i-mod->prog+1];
-		genl((ulong)base + pc);
-		genw(O(REG, PC));
-	}
-	if(m & DBRAN) {
-		pc = patch[(Inst*)i->d.imm-mod->prog];
-
-		literal((ulong)base+pc, O(REG, d));
-	}
-
-	switch(i->add&ARM) {
-	case AXNON:
-		if(m & THREOP) {
-			modrm(OldwR, O(REG, d), RTMP, RAX);
-			modrm(OstwR, O(REG, m), RTMP, RAX);
-		}
-		break;
-	case AXIMM:
-		literal((short)i->reg, O(REG, m));
-		break;
-	case AXINF:
-		modrm(OleaR, i->reg, RFP, RAX);
-		modrm(OstwR, O(REG, m), RTMP, RAX);
-		break;
-	case AXINM:
-		modrm(OleaR, i->reg, RMP, RAX);
-		modrm(OstwR, O(REG, m), RTMP, RAX);
-		break;
-	}
-	modrm(OstwR, O(REG, FP), RTMP, RFP);
-
-	bra((ulong)fn, Obsr);
-
-	conR((ulong)&R, RTMP);
-	if(m & TCHECK) {
-		genw(Orts);
-	}
-
-	modrm(OldwR, O(REG, FP), RTMP, RFP);
-	modrm(OldwR, O(REG, MP), RTMP, RMP);
-
-	if(m & NEWPC) {
-		modrm(OldwR, O(REG, PC), RTMP, RAX);
-		genw(OjmpRind|RAX);
-	}
-}
-
-static void
-mid(Inst *i, int mi, int r)
-{
-	int ir;
-	switch(i->add&ARM) {
-	default:
-		opwst(i, mi, r);
-		return;
-	case AXIMM:
-		conR((short)i->reg, r);
-		return;
-	case AXINF:
-		ir = RFP;
-		break;
-	case AXINM:
-		ir = RMP;
-		break;
-	}
-	modrm(mi, i->reg, ir, r);
-}
-
-static void
-midD(Inst *i, int mi, int r)
-{
-	int ir;
-	switch(i->add&ARM) {
-	default:
-		opwstD(i, mi, r);
-		return;
-	case AXIMM:
-		conD((short)i->reg, r);
-		return;
-	case AXINF:
-		ir = RFP;
-		break;
-	case AXINM:
-		ir = RMP;
-		break;
-	}
-	modrm(mi, i->reg, ir, r);
-}
-
-static void
-arithimms(Inst *i, int opcode, int opmode)
-{	
-	uchar off[3];
-	int hasoff;
-	if(i->add&ARM) {
-		midD(i,(opmode)?OldwD:OldbD,DTMP);
-		if (((opcode==Oaddi)||(opcode==Osubi))&&(i->s.imm>0)&&(i->s.imm<=8))
-			genw(0x5000|((opcode==Osubi)?0x100:0)|(((opmode)?0x2:0x0)<<6)|(((uchar)i->s.imm)<<9)|DTMP);
-		else {
-			genw(opcode|DTMP|(((opmode)?0x2:0)<<6));
-			if (opmode)
-				genl(i->s.imm);
-			else
-				genw(i->s.imm);
-		}
-		opwstD(i, (opmode)?OstwD:OstbD, DTMP);	
-		return;	
-	}
-	if (hasoff=opwst(i, opcode|0x28|(((opmode)?0x2:0)<<6), 0)) {
-		code-=2;
-		off[0]=code[0]; off[1]=code[1];
-	}
-	if (((opcode==Oaddi)||(opcode==Osubi))&&(i->s.imm>0)&&(i->s.imm<=8)) {
-		code-=2; 
-		off[2]=code[1];
-		genw(0x5000|((opcode==Osubi)?0x100:0)|(((opmode)?0x2:0x0)<<6)|(((uchar)i->s.imm)<<9)|((hasoff)?0x28:0x10)|(off[2]&0x7));
-	}
-	else {
-		if (opmode)
-			genl(i->s.imm);
-		else
-			genw(i->s.imm);
-	}
-	if (hasoff) 
-		gen2(off[0],off[1]);
-}
-
-static void
-arith(Inst *i, int opcode, int opmode)
-{	
-	opwldD(i, (opmode)?OldwD:OldbD, DTMP1);
-	if(i->add&ARM) {
-		midD(i,(opmode)?OldwD:OldbD,DTMP);
-		genw(opcode|(DTMP<<9)|DTMP1|(((opmode)?0x2:0)<<6));
-		opwstD(i, (opmode)?OstwD:OstbD, DTMP);
-		return;	
-	}
-	opwst(i, opcode|0x28|(((opmode)?0x6:0x4)<<6), DTMP1);
-}
-
-static void
-oldarithsub(Inst *i, int opmode)
-{
-	opwldD(i, (opmode)?OldwD:OldbD, DTMP1);
-	if(i->add&ARM)
-		midD(i,(opmode)?OldwD:OldbD,DTMP);
-	else
-		opwstD(i, (opmode)?OldwD:OldbD, DTMP);
-	genw(Osub|(DTMP<<9)|DTMP1|(((opmode)?0x2:0)<<6));
-	opwstD(i, (opmode)?OstwD:OstbD, DTMP);	
-}
-
-static void
-shift(Inst *i, int ld, int st, int op)
-{
-	midD(i, ld, DTMP);
-	opwldD(i, OldwD, DTMP1);
-	genw(op|(DTMP1<<9)|DTMP);
-	opwstD(i, st, DTMP);
-}
-
-static void
-cmpl(int r, ulong v)
-{
-	genw(0xB1FC|(r<<9));
-	genl(v);
-}
-
-static int
-swapforcbra(int jmp) {
-	switch(jmp) {
-		case Ojge:
-			return Ojle;
-		case Ojle:
-			return Ojge;
-		case Ojgt:
-			return Ojlt;
-		case Ojlt:
-			return Ojgt;
-		case Ojhi:
-			return Ojlo;
-		case Ojlo:
-			return Ojhi;
-		case Ojhs:
-			return Ojls;
-		case Ojls:
-			return Ojhs;
-		default:
-			return jmp;
-	}
-
-}
-static void
-cbra(Inst *i, int jmp)
-{
-	midD(i, OldwD, DTMP);
-	if (UXSRC(i->add)==SRC(AIMM)) {
-		genw(0xB0BC|DTMP);
-		genl(i->s.imm);
-	}
-	else
-		opwldD(i,OcmpwD,DTMP);
-	rbra(patch[i->d.ins-mod->prog], swapforcbra(jmp));
-}
-
-static void
-cbral(Inst *i, int jmsw, int jlsw, int mode)
-{
-	ulong dst;
-	uchar *label;
-	opwld(i, OleaR, RTMP);
-	mid(i, OleaR, RTA);
-	modrm(OldwR, 4, RTMP, RAX);
-	modrm(OcmpwR, 4, RTA, RAX);
-	label = 0;
-	dst = patch[i->d.ins-mod->prog];
-	switch(mode) {
-	case ANDAND:
-		genw(jmsw);
-		label = code-1;
-		break;
-	case OROR:
-		rbra(dst, jmsw);
-		break;
-	case EQAND:
-		rbra(dst, jmsw);
-		genw(Ojne);
-		label = code-1;
-		break;
-	}
-	modrm(OldwR, 0, RTMP, RAX);
-	modrm(OcmpwR, 0, RTA, RAX);
-	rbra(dst, jlsw);
-	if(label != nil)
-		*label = code-label-1;
-}
-
-static void
-cbrab(Inst *i, int jmp)
-{
-	if(UXSRC(i->add) == SRC(AIMM))
-		urk();
-
-	midD(i, OldbD, DTMP);
-	opwldD(i,OcmpbD,DTMP);
-	rbra(patch[i->d.ins-mod->prog], swapforcbra(jmp));
-}
-
-static void
-comcase(Inst *i, int w)
-{
-	int l;
-	WORD *t, *e;
-	
-	USED (w);
-
-	t = (WORD*)(mod->origmp+i->d.ind+4);
-	l = t[-1];
-	
-	/* have to take care not to relocate the same table twice - 
-	 * the limbo compiler can duplicate a case instruction
-	 * during its folding phase
-	 */
-
-	if(pass == 0) {
-		if(l >= 0)
-			t[-1] = -l-1;	/* Mark it not done */
-		return;
-	}
-	if(l >= 0)			/* Check pass 2 done */
-		return;
-	t[-1] = -l-1;			/* Set real count */
-	e = t + t[-1]*3;
-	while(t < e) {
-		t[2] = (ulong)base + patch[t[2]];
-		t += 3;
-	}
-	t[0] = (ulong)base + patch[t[0]];
-}
-
-static void
-comcasel(Inst *i)
-{
-	int l;
-	WORD *t, *e;
-
-	t = (WORD*)(mod->origmp+i->d.ind+8);
-	l = t[-2];
-	if(pass == 0) {
-		if(l >= 0)
-			t[-2] = -l-1;	/* Mark it not done */
-		return;
-	}
-	if(l >= 0)			/* Check pass 2 done */
-		return;
-	t[-2] = -l-1;			/* Set real count */
-	e = t + t[-2]*6;
-	while(t < e) {
-		t[4] = (ulong)base + patch[t[4]];
-		t += 6;
-	}
-	t[0] = (ulong)base + patch[t[0]];
-}
-
-static void
-commframe(Inst *i)
-{
-	int o;
-	uchar *punt, *mlnil;
-
-	opwld(i, OldwR, RAX);
-	cmpl(RAX, (ulong)H);
-	genw(Ojeq);
-	mlnil = code - 1;
-	o = OA(Modlink, links)+i->reg*sizeof(Modl)+O(Modl, frame);
-	modrm(OldwR, o, RAX, RTA);
-	modrm(OtstwR,O(Type, initialize),RTA,0);
-	genw(Ojne);
-	punt = code - 1;
-	genw(OexgRR|RAX|(RTA<<9));
-	opwst(i, OleaR, RTA);
-	*mlnil = code-mlnil-1;
-	rbra(macro[MacMFRA], Obsr);
-	rbra(patch[i-mod->prog+1], Obra);
-
-	*punt = code-punt-1;
-	rbra(macro[MacFRAM], Obsr);
-	opwst(i, OstwR, RAX);
-}
-
-static void
-commcall(Inst *i)
-{
-	conR((ulong)&R, RTMP);			// MOVL	$R, RTMP
-	opwld(i, OldwR, RTA);
-	genw(OmovwR|(RTA<<9));			// MOVL $.+1, lr(RTA)	f->lr = R.PC
-	genl((ulong)base+patch[i-mod->prog+1]);
-	genw(O(Frame, lr));	
-	modrm(OstwR, O(Frame, fp), RTA, RFP); 	// MOVL RFP, fp(RTA)	f->fp = R.FP
-	modrm(OldwD, O(REG, M), RTMP, DTMP);	// MOVL R.M, DTMP
-	modrm(OstwD, O(Frame, mr), RTA, DTMP);	// MOVL RTA, mr(RTA) 	f->mr = R.M
-	opwst(i, OldwR, RAX);			// MOVL ml, RAX
-	modrm(OldwD, O(Modlink, m), RAX, DTMP);	// MOVL ml->m, DTMP
-	modrm(OldwR, OA(Modlink, links)+i->reg*sizeof(Modl)+O(Modl, u.pc), RAX, RAX);
-	rbra(macro[MacMCAL], Obsr);
-}
-
-static void
-laritha(Inst *i, int opc)
-{
-	if((i->add&ARM) != AXNON) {
-		mid(i, OleaR, RTMP);
-		opwst(i, OleaR, RTA);
-		genw(0x20D8|(RTA<<9)|RTMP);	// MOVL (RTMP)+, (RTA)+
-		genw(0x20D8|(RTA<<9)|RTMP);	// MOVL (RTMP)+, (RTA)+
-		}
-	else {
-		mid(i, OleaR, RTA);
-		genw(0x5088|RTA);		// ADDQ.l #8, RTA
-		}
-
-	opwld(i, OleaR, RTMP);		
-	genw(0x5088|RTMP);			// ADDQ.l #8, RTMP
-
-	genw(0x44FC);				// MOVE imm16, CCR
-	genw(0);
-	genw(opc|RTMP|(RTA<<9));		// ADDX (-RTMP), (-RTA)
-	genw(opc|RTMP|(RTA<<9));		// ADDX (-RTMP), (-RTA)
-}
-
-static void
-larith(Inst *i, int op)
-{
-	if((i->add&ARM) != AXNON) {
-		mid(i, OleaR, RTMP);
-		opwst(i, OleaR, RTA);
-		genw(0x20D8|RTMP|(RTA<<9));	// MOVL (RTMP)+, (RTA)+
-		genw(0x2090|RTMP|(RTA<<9));	// MOVL (RTMP), (RTA)
-		genw(0x5988|RTA);		// SUBQ.l #4, RTA
-		}
-	else
-		mid(i, OleaR, RTA);
-
-
-	opwld(i, OleaR, RTMP);
-	genw(0x2018|RTMP|(DTMP<<9));		// MOVL (RTMP+), DTMP
-	genw(op|RTA|(DTMP<<9));			// ORL DTMP, (RTA+)
-	genw(0x2010|(DTMP<<9)|RTMP);		// MOVL (RTMP) DTMP
-	genw((op&0xFFF7)|RTA|(DTMP<<9));	// ORL DTMP, (RTA)
-}
-
-static void
-shll(Inst *i)
-{
-	uchar *label;
-
-	opwldD(i, OldwD, DTMP);		// The number of shifts -> DTMP
-	mid(i, OleaR, RTA);		// LEA source, RTA
-	genw(0x2018|(DTMP1<<9)|RTA);	// move (RTA+), DTMP1 
-	genw(0x2010|(DTMP2<<9)|RTA);	// move (RTA), DTMP2
-
-	genw(Obra);
-	label=code-1;
-
-	genw(OlslD|DTMP2);
-	genw(OroxlD|DTMP1);
-	*label=code-label-1;
-	genw(Odbeq);
-	genw(label-code+1);
-
-	opwst(i, OleaR, RTA);
-	genw(0x2080|(RTA<<9)|DTMP2);	// move DTMP2, (RTA)
-	genw(0x2100|(RTA<<9)|DTMP1);	// move DTMP1, (-RTA)
-}
-
-static void
-shrl(Inst *i)
-{
-	uchar *label;
-
-	opwldD(i, OldwD, DTMP);		// The number of shifts -> DTMP
-	mid(i, OleaR, RTA);		// LEA source, RTA
-	genw(0x2018|(DTMP1<<9)|RTA);	// move (RTA+), DTMP1 
-	genw(0x2010|(DTMP2<<9)|RTA);	// move (RTA), DTMP2
-
-	genw(Obra);
-	label=code-1;
-
-	genw(OlsrD|DTMP2);
-	genw(OroxrD|DTMP1);
-	*label=code-label-1;
-	genw(Odbeq);
-	genw(label-code+1);
-
-	opwst(i, OleaR, RTA);
-	genw(0x2080|(RTA<<9)|DTMP2);	// move DTMP2, (RTA)
-	genw(0x2100|(RTA<<9)|DTMP1);	// move DTMP1, (-RTA)
-}
-
-static int myic;
-
-static
-void
-compdbg(void)
-{
-	print("%s:%lud@%.8lux\n", R.M->m->name, *(ulong*)R.m, *(ulong*)R.s);
-}
-
-static void
-comp(Inst *i)
-{
-	int r;
-	WORD *t, *e;
-	char buf[64];
-
-	if(0) {
-		Inst xx;
-		xx.add = AXIMM|SRC(AIMM);
-		xx.s.imm = (ulong)code;
-		xx.reg = i-mod->prog;
-		punt(&xx, SRCOP, compdbg);
-	}
-
-	switch(i->op) {
-	default:
-		snprint(buf, sizeof buf, "%s compile, no '%D'", mod->name, i);
-		error(buf);
-		break;
-	case IMCALL:
-		if((i->add&ARM) == AXIMM)
-			commcall(i);
-		else
-			punt(i, SRCOP|DSTOP|THREOP|WRTPC|NEWPC, optab[i->op]);
-		break;
-	case ISEND:
-	case IRECV:
-	case IALT:
-		punt(i, SRCOP|DSTOP|TCHECK|WRTPC, optab[i->op]);
-		break;
-	case ISPAWN:
-		punt(i, SRCOP|DBRAN, optab[i->op]);
-		break;
-	case IBNEC:
-	case IBEQC:
-	case IBLTC:
-	case IBLEC:
-	case IBGTC:
-	case IBGEC:
-		punt(i, SRCOP|DBRAN|NEWPC|WRTPC, optab[i->op]);
-		break;
-	case ICASEC:
-		comcase(i, 0);
-		punt(i, SRCOP|DSTOP|NEWPC, optab[i->op]);
-		break;
-	case ICASEL:
-		comcasel(i);
-		punt(i, SRCOP|DSTOP|NEWPC, optab[i->op]);
-		break;
-	case IADDC:
-	case IMULL:
-	case IDIVL:
-	case IMODL:
-	case ILOAD:
-	case IMSPAWN:
-	case ISLICEA:
-	case ISLICELA:
-	case ISLICEC:
-		punt(i, SRCOP|DSTOP|THREOP, optab[i->op]);
-		break;
-	case INEWA:
-	case INEW:
-	case ICONSB:
-	case ICONSW:
-	case ICONSF:
-	case ICONSM:
-	case ICONSMP:
-	case ICONSP:
-	case IMOVMP:
-	case IHEADMP:
-	case IINSC:
-	case ICVTAC:
-	case ICVTCW:
-	case ICVTWC:
-	case ICVTLC:
-	case ICVTCL:
-	case ICVTFC:
-	case ICVTCF:
-	case ICVTCA:
-	case INBALT:
-		punt(i, SRCOP|DSTOP, optab[i->op]);
-		break;
-	case INEWCM:
-	case INEWCMP:
-		punt(i, SRCOP|DSTOP|THREOP, optab[i->op]);
-		break;
-	case IMFRAME:
-		if((i->add&ARM) == AXIMM)
-			commframe(i);
-		else
-			punt(i, SRCOP|DSTOP|THREOP, optab[i->op]);
-		break;
-	case INEWCB:
-	case INEWCW:
-	case INEWCF:
-	case INEWCP:
-	case INEWCL:
-		punt(i, DSTOP|THREOP, optab[i->op]);
-		break;
-	case IEXIT:
-		punt(i, 0, optab[i->op]);
-		break;
-	case ICVTBW:
-		genw(OclrwD| DTMP);
-		opwldD(i, OldbD, DTMP);
-		opwstD(i, OstwD, DTMP);
-		break;
-	case ICVTWB:
-		opwldD(i, OldwD, DTMP);
-		opwstD(i, OstbD, DTMP);
-		break;
-	case ICVTFW:
-	case ICVTWF:
-	case ICVTLF:
-	case ICVTFL:
-		punt(i, SRCOP|DSTOP, optab[i->op]);
-		break;
-	case IHEADM:
-	case IMOVM:
-		punt(i, SRCOP|DSTOP|THREOP, optab[i->op]);
-		break;
-	case IRET:
-		rbra(macro[MacRET], Obra);
-		break;
-	case IFRAME:
-		if(UXSRC(i->add) != SRC(AIMM)) {
-			punt(i, SRCOP|DSTOP, optab[i->op]);
-			break;
-		}
-		tinit[i->s.imm] = 1;
-		conR((ulong)mod->type[i->s.imm], RTA);
-		rbra(macro[MacFRAM], Obsr);
-		opwst(i, OstwR, RAX);
-		break;
-	case ILEA:
-		if(UXSRC(i->add) == SRC(AIMM)) {
-			genw(Obra|4);
-			genl(i->s.imm);
-			conR((ulong)(code-4), RAX);
-		}
-		else
-			opwld(i, OleaR, RAX);
-		opwst(i, OstwR, RAX);
-		break;
-	case IHEADW:
-		opwld(i, OldwR, RAX);
-		modrm(OldwR, OA(List, data), RAX, RAX);
-		opwst(i, OstwR, RAX);
-		break;
-	case IHEADF:
-		punt(i, SRCOP|DSTOP, optab[i->op]);
-		break;
-	case IHEADB:
-		opwld(i, OldwR, RAX);
-		modrm(OldbD, OA(List, data), RAX, DTMP);
-		opwstD(i, OstbD, DTMP);
-		break;
-	case ITAIL:
-		opwld(i, OldwR, RAX);
-		modrm(OldwR, O(List, tail), RAX, RTMP);
-		goto movp;
-	case IMOVP:
-	case IHEADP:
-		opwld(i, OldwR, RTMP);
-		if(i->op == IHEADP)
-			modrm(OldwR, OA(List, data), RTMP, RTMP);
-	movp:
-		{uchar *label;	
-			cmpl(RTMP, (ulong)H);
-			genw(Ojeq);
-			label=code-1;
-			rbra(macro[MacCOLR], Obsr);
-			*label=code-label-1;
-			opwst(i, OldwR, RAX);
-			opwst(i, OstwR, RTMP);
-			rbra(macro[MacFRP], Obsr);
-		}
-		break;
-	case ILENA:
-		opwld(i, OldwR, RTMP);
-		conR(0, RAX);
-		cmpl(RTMP, (ulong)H);
-		genw(Ojeq|0x2);
-		modrm(OldwR, O(Array, len), RTMP, RAX);
-		opwst(i, OstwR, RAX);
-		break;
-	case ILENC:
-		{uchar *label;
-			opwld(i, OldwR, RTMP);
-			conD(0, DTMP);
-			cmpl(RTMP, (ulong)H);
-			genw(Ojeq);
-			label=code-1;
-			modrm(OldwD, O(String, len), RTMP, DTMP);
-			genw(0x4A80|RAX);				// TSTL	 DTMP
-			genw(Ojge|0x02);
-			genw(OnegwD|DTMP);
-			*label=code-label-1;
-			opwstD(i, OstwD, DTMP);
-		}
-		break;
-	case ILENL:
-		{uchar *label,*l2;
-			conR(0, RAX);
-			opwld(i, OldwR, RTMP);
-			l2=code-1;
-			cmpl(RTMP, (ulong)H);
-			genw(Ojeq);
-			label=code-1;
-			modrm(OldwR, O(List, tail), RTMP, RTMP);
-			genw(OincrwR|RAX);
-			genw(Obra|(uchar)(l2-code-1));
-			*label=code-label-1;
-			opwst(i, OstwR, RAX);
-		}
-		break;
-	case IBEQF:
-	case IBNEF:
-	case IBLEF:
-	case IBLTF:
-	case IBGEF:
-	case IBGTF:
-		punt(i, SRCOP|DBRAN|NEWPC|WRTPC, optab[i->op]);
-		break;
-	case IBEQW:
-		cbra(i, Ojeq);
-		break;
-	case IBLEW:
-		cbra(i, Ojle);
-		break;
-	case IBNEW:
-		cbra(i, Ojne);
-		break;
-	case IBGTW:
-		cbra(i, Ojgt);
-		break;
-	case IBLTW:
-		cbra(i, Ojlt);
-		break;
-	case IBGEW:
-		cbra(i, Ojge);
-		break;
-	case IBEQB:
-		cbrab(i, Ojeq);
-		break;
-	case IBLEB:
-		cbrab(i, Ojls);
-		break;
-	case IBNEB:
-		cbrab(i, Ojne);
-		break;
-	case IBGTB:
-		cbrab(i, Ojhi);
-		break;
-	case IBLTB:
-		cbrab(i, Ojlo);
-		break;
-	case IBGEB:
-		cbrab(i, Ojhs);
-		break;
-	case ISUBW:
-		if (UXSRC(i->add)==SRC(AIMM)) 
-			arithimms(i,Osubi,1);
-		else
-			arith(i, Osub, 1);
-		break;
-	case ISUBB:
-		if (UXSRC(i->add)==SRC(AIMM)) 
-			arithimms(i,Osubi,1);
-		else
-			arith(i, Osub, 0);
-		break;
-	case ISUBF:
-		punt(i, SRCOP|DSTOP|THREOP, optab[i->op]);
-		break;
-	case IADDW:
-		if (UXSRC(i->add)==SRC(AIMM)) 
-			arithimms(i,Oaddi,1);
-		else
-			arith(i, Oadd, 1);
-		break;
-	case IADDB:
-		if (UXSRC(i->add)==SRC(AIMM)) 
-			arithimms(i,Oaddi,0);
-		else
-			arith(i, Oadd, 0);
-		break;
-	case IADDF:
-		punt(i, SRCOP|DSTOP|THREOP, optab[i->op]);
-		break;
-	case IORW:
-		if (UXSRC(i->add)==SRC(AIMM)) 
-			arithimms(i,Oori,1);
-		else
-			arith(i, Oor, 1);
-		break;
-	case IORB:
-		if (UXSRC(i->add)==SRC(AIMM)) 
-			arithimms(i,Oori,0);
-		else
-			arith(i, Oor, 0);
-		break;
-	case IANDW:
-		arith(i, Oand, 1);
-		break;
-	case IANDB:
-		arith(i, Oand, 0);
-		break;
-	case IXORW:
-		if (UXSRC(i->add)==SRC(AIMM)) 
-			arithimms(i,Oeori,1);
-		else
-			arith(i, Oeor, 1);
-		break;
-	case IXORB:
-		if (UXSRC(i->add)==SRC(AIMM)) 
-			arithimms(i,Oeori,0);
-		else
-			arith(i, Oeor, 0);
-		break;
-	case ISHLW:
-		shift(i, OldwD, OstwD, OaslwD);
-		break;
-	case ISHLB:
-		shift(i, OldbD, OstbD, OaslbD);
-		break;
-	case ISHRW:
-		shift(i, OldwD, OstwD, OasrwD);
-		break;
-	case ISHRB:
-		shift(i, OldbD, OstbD, OasrbD);
-		break;
-	case IMOVF:
-	case INEGF:
-		punt(i, SRCOP|DSTOP, optab[i->op]);
-		break;
-	case IMOVB:
-		opwldD(i, OldbD, DTMP);
-		opwstD(i, OstbD, DTMP);
-		break;
-	case IMOVW:
-		opwldD(i, OldwD, DTMP);
-		opwstD(i, OstwD, DTMP);
-		break;
-	case ICVTLW:
-	case ICVTWL:
-		punt(i, SRCOP|DSTOP, optab[i->op]);
-		break;
-	case ICALL:
-		opwld(i, OldwR, RAX);
-		genw(OmovwR|(RAX<<9));			// MOVL $.+1, lr(AX)
-		genl((ulong)base+patch[i-mod->prog+1]);
-		genw(O(Frame, lr));
-		modrm(OstwR, O(Frame, fp), RAX, RFP); 	// MOVL RFP, fp(AX)
-		genw(OmovwRR|(RFP<<9)|RAX);		// MOVL AX,RFP
-		/* no break */
-	case IJMP:
-		rbra(patch[i->d.ins-mod->prog], Obra);
-		break;
-	case IGOTO:
-		opwst(i, OleaR, RTMP);
-		opwldD(i, OldwD, DTMP);
-		genw(OlslwD|DTMP);
-		genw(Oadd|(RTMP<<9)|(7<<6)|DTMP);
-		genw(OjmpRind|RTMP);
-
-		if(pass == 0)
-			break;
-
-		t = (WORD*)(mod->origmp+i->d.ind);
-		e = t + t[-1];
-		t[-1] = 0;
-		while(t < e) {
-			t[0] = (ulong)base + patch[t[0]];
-			t++;
-		}
-		break;
-	case IMULF:
-	case IDIVF:
-		punt(i, SRCOP|DSTOP|THREOP, optab[i->op]);
-		break;
-	case IMODW:
-	case IDIVW:
-	case IMULW:
-		opwld(i, OldwR, RAX);
-		genw(OpushwR|RAX);
-		mid(i, OldwR, RAX);
-		genw(OpushwR|RAX);
-		switch(i->op) {
-			case IMULW:
-				bra((ulong)_mull,Obsr);
-				genw(OaddqwR|(4<<9)|R7);
-				genw(OpopwR|(RAX<<9));	
-				break;
-			case IMODW:
-				bra((ulong)_divsl,Obsr);
-				genw(OaddqwR|(4<<9)|R7);
-				genw(OpopwR|(RAX<<9));	
-				break;
-			case IDIVW:
-				bra((ulong)_divsl,Obsr);
-				genw(OpopwR|(RAX<<9));	
-				genw(OaddqwR|(4<<9)|R7);
-				break;
-		}
-		opwst(i, OstwR, RAX);
-		break;
-	case IMODB:
-	case IDIVB:
-	case IMULB:
-		midD(i, OldbD, DTMP);
-		genw(Oextw|DTMP);
-		opwldD(i, OldbD, DTMP2);
-		if (i->op == IMULB)
-		if(i->op == IMULB) {
-			genw(Oextw|DTMP2);
-			genw(Omuls|(DTMP<<9)|DTMP2);
-		}
-		else {
-			genw(Oextbw|DTMP2);
-			genw(Odivs|(DTMP<<9)|DTMP2);
-		}
-		if (i->op == IMODB)
-			genw(Oswap|DTMP);
-		opwstD(i, OstbD, DTMP);
-		break;
-	case IINDX:
-		opwld(i, OldwR, RTMP);				// MOVW	xx(s), RTMP
-		modrm(OldwR, O(Array, t), RTMP, RAX);		// MOVW	t(RTMP), AX
-		modrm(OldwD, O(Type, size), RAX, DTMP1);	// MOVW size(AX), DTMP1
-		opwstD(i, OldwD, DTMP2);			// MOVW indx, DTMP2
-		genl(0x70204283);				// loop to MULW DTMP1, DTMP2, DTMP3
-		genl(0xe2996402);
-		genl(0xd682e38a);
-		genl(0x57c8fff6);		
-
-		modrm(OldwR, O(Array, data), RTMP, RTMP);
-		genw(Oadd|(DTMP3<<9)|0x0088|RTMP);		// ADDL data(RTMP), DTMP3
-		r = RMP;
-		if((i->add&ARM) == AXINF)
-			r = RFP;
-		modrm(OstwD, i->reg, r, DTMP3);
-		break;
-	case IINDB:
-		r = 0;
-		goto idx;
-	case IINDF:
-		punt(i, SRCOP|THREOP|DSTOP, optab[i->op]);
-		break;
-	case IINDL:
-		r = 3;
-		goto idx;
-	case IINDW:
-		r = 2;
-	idx:
-		opwld(i, OldwR, RAX);
-		opwstD(i, OldwD, DTMP);
-		modrm(OldwR, O(Array, data), RAX, RTMP);
-
-		if (r) 
-			genw(0xE188|(r<<9)|DTMP);		
-		genw(Oadd|(RTMP<<9)|(7<<6)|DTMP);		/* lea  (AX)(DTMP*r) */
-
-		r = RMP;
-		if((i->add&ARM) == AXINF)
-			r = RFP;
-		modrm(OstwR, i->reg, r, RTMP);
-		break;
-	case IINDC:
-		{	uchar *label;
-			opwld(i, OldwR, RAX);			// string
-			midD(i, OldwD, DTMP);			// index
-			modrm(OtstwR,O(String, len),RAX,0);
-			modrm(OleaR, O(String, data), RAX, RAX); 
-			genw(Ojge);				// Ascii only, jump 
-			label=code-1;
-
-			genw(OnegwD|DTMP);
-			genw(Olsl2D|DTMP);			// << 2; index is times 4 bytes
-			genw(Oadd|(RAX<<9)|0x01C0|DTMP);
-			modrm(OldwD, 0, RAX, DTMP);
-			genw(Obra|0x4);
-			*label=code-label-1;
-			genw(Oadd|(RAX<<9)|0x01C0|DTMP);
-			modrm(OldbD, 0, RAX, DTMP);
-
-			opwst(i, OstwD, DTMP);
-		}
-		break;
-	case ICASE:
-		comcase(i, 1);
-		punt(i, SRCOP|DSTOP|NEWPC, optab[i->op]);
-		break;
-	case IMOVL:
-		opwld(i, OleaR, RTA);
-		opwst(i, OleaR, RTMP);
-		genw(0x20D8|(RTMP<<9)|RTA);		// MOVE.l (RTA+), (RTMP+)
-		genw(0x2090|(RTMP<<9)|RTA);		// MOVE.l (RTA), (RTMP)
-		break;
-	case IADDL:
-		laritha(i, 0xD188);	// ADDX.l (-R0), (-R0)
-		break;
-	case ISUBL:
-		laritha(i, 0x9188);	// SUBX.l (-R0), (-R0)
-		break;
-	case IORL:
-		larith(i, 0x8198); 	// OR.l D0, (R0+)
-		break;
-	case IANDL:
-		larith(i, 0xC198); 	// AND.l D0, (R0+)
-		break;
-	case IXORL:
-		larith(i, 0xB198); 	// EOR.l D0, (R0+)
-		break;
-	case IBEQL:
-		cbral(i, Ojne, Ojeq, ANDAND);
-		break;
-	case IBNEL:
-		cbral(i, Ojne, Ojne, OROR);
-		break;
-	case IBLEL:
-		cbral(i, Ojlt, Ojls, EQAND);
-		break;
-	case IBGTL:
-		cbral(i, Ojgt, Ojhi, EQAND);
-		break;
-	case IBLTL:
-		cbral(i, Ojlt, Ojlo, EQAND);
-		break;
-	case IBGEL:
-		cbral(i, Ojgt, Ojhs, EQAND);
-		break;
-	case ISHLL:
-		shll(i);
-		break;
-	case ISHRL:
-		shrl(i);
-		break;
-	case IRAISE:
-		punt(i, SRCOP|WRTPC|NEWPC, optab[i->op]);
-		break;
-	case IMULX:
-	case IDIVX:
-	case ICVTXX:
-	case IMULX0:
-	case IDIVX0:
-	case ICVTXX0:
-	case IMULX1:
-	case IDIVX1:
-	case ICVTXX1:
-	case ICVTFX:
-	case ICVTXF:
-	case IEXPW:
-	case IEXPL:
-	case IEXPF:
-		punt(i, SRCOP|DSTOP|THREOP, optab[i->op]);
-		break;
-	case ISELF:
-		punt(i, DSTOP, optab[i->op]);
-		break;
-	}
-}
-
-static void
-preamble(void)
-{
-	uchar *s;
-	if(comvec)
-		return;
-
-	comvec = malloc(32);
-	if(comvec == nil)
-		error(exNomem);
-	code = (uchar*)comvec;
-	s = code;
-
-	conR((ulong)&R, RAX);
-	modrm(OldwR, O(REG, FP), RAX, RFP);
-	modrm(OldwR, O(REG, MP), RAX, RMP);
-	modrm(OldwR, O(REG, PC), RAX, RAX);
-	genw(OjmpRind|RAX);
-	
-	segflush(comvec, 32);
-
-	if(cflag > 2) {
-		print("preamble\n");
-		das(s, code-s);
-	}
-}
-
-static void
-maccase(void)
-{
-	/* Not used yet, done with punt() */
-}
-
-static void
-macfrp(void)
-{
-	uchar *label,*s;
-	s=code;
-	cmpl(RAX, (ulong)H);			// CMPL AX, $H
-	genw(Ojne|0x2);				// JNE	.+2
-	genw(Orts);				// RET
-	genw(OcmpiwR|(RAX<<9));
-	genl(0x01);				// CMP	AX.ref, $1
-	genw(O(Heap, ref)-sizeof(Heap));
-	genw(Ojeq);				// JEQ
-	label=code-1;
-	modrm(OdecrwRind, O(Heap, ref)-sizeof(Heap), RAX, 0);	// DEC	AX.ref
-	genw(Orts);				// RET
-	*label=code-label-1;
-
-	conR((ulong)&R, RTMP);			// MOV  $R, RTMP
-	modrm(OstwR, O(REG, FP), RTMP, RFP);	// MOVL	RFP, R.FP
-	modrm(OstwR, O(REG, s), RTMP, RAX);	// MOVL	RAX, R.s
-						// CALL rdestroy
-	bra((ulong)rdestroy, Obsr);
-	conR((ulong)&R, RTMP);			// MOVL	$R, RTMP
-	modrm(OldwR, O(REG, FP), RTMP, RFP);	// MOVL	R.FP, RFP
-	modrm(OldwR, O(REG, MP), RTMP, RMP);	// MOVL R.MP, RMP
-	genw(Orts);
-	if(pass&&(cflag > 2)) {
-		print("macfrp\n");
-		das(s, code-s);
-	}
-}
-
-static void
-macret(void)
-{
-	Inst i;
-	uchar *s;
-	static ulong lpunt, lnomr, lfrmr,linterp;
-
-	s = code;
-
-	lpunt -= 2;
-	lnomr -= 2;
-	lfrmr -= 2;
-	linterp -= 2;
-
-	modrm(OldwR, O(Frame, t), RFP, RAX);		// MOVL  t(FP), RAX
-	genw(OmovwRD|(DTMP<<9)|RAX);
-	genw(0x4A80|DTMP);				// TSTL	 DTMP
-	genw(Ojeq|(uchar)(lpunt-(code-s)));		// JEQ	 lpunt
-	modrm(OldwR, O(Type, destroy), RAX, RAX);	// MOVL  destroy(RAX), RAX
-	genw(OmovwRD|(DTMP<<9)|RAX);
-	genw(0x4A80|DTMP);				// TSTL	 DTMP
-	genw(Ojeq|(uchar)(lpunt-(code-s)));		// JEQ	 lpunt
-	modrm(OtstwR, O(Frame, fp), RFP, 0);		// TSTL  fp(RFP)
-	genw(Ojeq|(uchar)(lpunt-(code-s)));		// JEQ	 lpunt
-	modrm(OtstwR, O(Frame, mr), RFP, 0);		// TSTL	 mr(RFP)
-	genw(Ojeq|(uchar)(lnomr-(code-s)));		// JEQ	 lnomr
-	conR((ulong)&R, RTMP);				// MOVL	 $R, RTMP
-	modrm(OldwR, O(REG, M), RTMP, RTA);		// MOVL	 R.M, RTA
-	modrm(OdecrwRind, O(Module, ref), RTA, 0);	// DECL  ref(RTA)
-	genw(Ojne|(uchar)(lfrmr-(code-s)));		// JNE	 lfrmr
-	modrm(OincrwRind, O(Module, ref), RTA, 0);	// INCL  ref(RTA)
-	genw(Obra|(uchar)(lpunt-(code-s)));		// JMP	 lpunt
-	lfrmr = code - s;
-	modrm(OldwR, O(Frame, mr), RFP, RTA);		// MOVL	 mr(RFP), RTA
-	modrm(OstwR, O(REG, M), RTMP, RTA);		// MOVL	 RTA, R.M
-	modrm(OldwR, O(Modlink, MP), RTA, RMP);		// MOVL	 mp(RTA), RMP
-	modrm(OstwR, O(REG, MP), RTMP, RMP);		// MOVL	 RMP, R.MP
-
-	modrm(OtstwR, O(Modlink, compiled), RTA, 0);	// CMPL $0, M.compiled
-	genw(Ojeq|(uchar)(linterp-(code-s)));
-	
-	lnomr = code - s;
-	genw(OjsrRind|RAX);				// CALL* AX
-	conR((ulong)&R, RTMP);				// MOVL	 $R, RTMP
-	modrm(OstwR, O(REG, SP), RTMP, RFP);		// MOVL  RFP, R.SP
-	modrm(OldwR, O(Frame, lr), RFP, RAX);		// MOVL  lr(RFP), RAX
-	modrm(OldwR, O(Frame, fp), RFP, RFP);		// MOVL  fp(RFP), RFP
-	modrm(OstwR, O(REG, FP), RTMP, RFP);		// MOVL  RFP, R.FP
-	genw(OjmpRind|RAX);				// JMP*L AX
-
-	linterp = code - s;
-	genw(OjsrRind|RAX);				// CALL* AX
-	conR((ulong)&R, RTMP);				// MOVL	 $R, RTMP
-	modrm(OstwR, O(REG, SP), RTMP, RFP);		// MOVL  RFP, R.SP
-	modrm(OldwR, O(Frame, lr), RFP, RAX);		// MOVL  lr(RFP), RAX
-	modrm(OstwR, O(REG, PC), RTMP, RAX);		// MOVL  RAX, R.PC
-	modrm(OldwR, O(Frame, fp), RFP, RFP);		// MOVL  fp(RFP), RFP
-	modrm(OstwR, O(REG, FP), RTMP, RFP);		// MOVL  RFP, R.FP
-
-	genw(Orts);
-	lpunt = code - s;				// label:
-	i.add = AXNON;
-	punt(&i, NEWPC, optab[IRET]);
-	if(pass&&(cflag > 2)) {
-		print("macret\n");
-		das(s, code-s);
-	}
-}
-
-static void
-maccolr(void)
-{
-	uchar *s;
-	s=code;
-	modrm(OincrwRind, O(Heap, ref)-sizeof(Heap), RTMP, 0);	// INCL	ref(RTMP)
-	genw(0x2079|(RAX<<9));			// MOVL	(mutator), RAX
-	genl((ulong)&mutator);	
-	modrm(OcmpwR, O(Heap, color)-sizeof(Heap), RTMP, RAX);	// CMPL	color(RTMP), RAX
-	genw(Ojne|0x02);			
-	genw(Orts);				
-	conR(propagator, RAX);			// MOVL $propagator,RAX
-	modrm(OstwR, O(Heap, color)-sizeof(Heap), RTMP, RAX);	// MOVL	RAX, color(RTMP)
-	genw(0x23C8|RAX);			// can be any !0 value
-	genl((ulong)&nprop);			// MOVL	RAX, (nprop)
-	genw(Orts);
-	if(pass&&(cflag > 2)) {
-		print("maccolr\n");
-		das(s, code-s);
-	}
-}
-
-static void
-macmcal(void)
-{
-	uchar *s,*label,*interp;
-	s=code;
-
-	genw(0x2040|(RCX<<9)|DTMP);
-	modrm(OtstwR,O(Module, prog),RCX,0);	// TSTL ml->m->prog
-
-	genw(Ojne);				// JNE	patch
-	label = code-1;
-	modrm(OstwR, O(REG, FP), RTMP, RTA);
-	modrm(OstwR, O(REG, dt), RTMP, RAX);
-						// CALL rmcall
-	bra((ulong)rmcall, Obsr);
-
-	conR((ulong)&R, RTMP);			// MOVL	$R, RTMP
-	modrm(OldwR, O(REG, FP), RTMP, RFP);
-	modrm(OldwR, O(REG, MP), RTMP, RMP);
-	genw(Orts);				// RET
-	*label = code-label-1;			// patch:
-	genw(0x2048|(RFP<<9)|RTA);		// MOVL RTA, RFP		R.FP = f
-	modrm(OstwR, O(REG, M), RTMP, RCX);	// MOVL RCX, R.M
-	modrm(OincrwRind, O(Module, ref), RCX, 0);	// INC.L R.M->ref
-	modrm(OldwR, O(Modlink, MP), RCX, RMP);	// MOVL R.M->mp, RMP
-	modrm(OstwR, O(REG, MP), RTMP, RMP);	// MOVL RCX, R.MP	R.MP = ml->m
-	modrm(OtstwR, O(Module, compiled), RCX, 0);// CMPL $0, M.compiled
-
-	genw(OpopwR|(RCX<<9));			// balance call
-	genw(Ojeq);				// JEQ interp
-	interp=code-1;
-	genw(OjmpRind|RAX);			// JMP*L AX
-	*interp= code-interp-1;
-	modrm(OstwR, O(REG, FP), RTMP, RFP);	// MOVL FP, R.FP
-	modrm(OstwR, O(REG, PC), RTMP, RAX);	// MOVL PC, R.PC
-	genw(Orts);
-	if(pass&&(cflag > 2)) {
-		print("macmcal\n");
-		das(s, code-s);
-	}
-}
-
-static void
-macfram(void)
-{
-	uchar *label,*s;
-	s=code;
-	conR((ulong)&R, RTMP);			// MOVL	$R, RTMP
-	modrm(OldwD, O(REG, SP), RTMP, DTMP);	// MOVL	R.SP, DTMP
-	modrm(OaddRD, O(Type, size), RTA, DTMP);// ADDL size(RTA), DTMP
-	modrm(OcmpwD, O(REG, TS), RTMP, DTMP);	// CMPL	DTMP, R.TS
-	genw(Ojlt);				// JLT	.+(patch)
-	label = code-1;
-
-	modrm(OstwR, O(REG, s), RTMP, RTA);
-	modrm(OstwR, O(REG, FP), RTMP, RFP);	// MOVL	RFP, R.FP
-						// BSR	extend
-	bra((ulong)extend, Obsr);
-	conR((ulong)&R, RTMP);
-	modrm(OldwR, O(REG, FP), RTMP, RFP);	// MOVL	R.MP, RMP
-	modrm(OldwR, O(REG, MP), RTMP, RMP);	// MOVL R.FP, RFP
-	modrm(OldwR, O(REG, s), RTMP, RAX);	// MOVL	R.s, *R.d
-	genw(Orts);				// RET
-	*label = code-label-1;
-	modrm(OldwR, O(REG, SP), RTMP, RAX);	// MOVL	R.SP, RAX
-	modrm(OstwD, O(REG, SP), RTMP, DTMP);	// MOVL	DTMP, R.SP
-
-	modrm(OstwR, O(Frame, t), RAX, RTA);	// MOVL	RTA, t(RAX) f->t = t
-	genw(OmovwR|(RAX<<9));			// MOVL $0, mr(RAX) f->mr
-	genl(0);
-	genw(REGMOD*4);
-
-	modrm(OldwR, O(Type, initialize), RTA, RTA);
-	genw(OjmpRind|RTA);			// JMP*L RTA
-	genw(Orts);				// RET
-	if(pass&&(cflag > 2)) {
-		print("macfram\n");
-		das(s, code-s);
-	}
-}
-
-static void
-macmfra(void)
-{
-	uchar *s;
-	s=code;
-	conR((ulong)&R, RTMP);			// MOVL	$R, RTMP
-	modrm(OstwR, O(REG, FP), RTMP, RFP);
-	modrm(OstwR, O(REG, s), RTMP, RAX);	// Save type
-	modrm(OstwR, O(REG, d), RTMP, RTA);	// Save destination
-						// CALL rmfram
-	bra((ulong)rmfram, Obsr);
-	conR((ulong)&R, RTMP);			// MOVL	$R, RTMP
-	modrm(OldwR, O(REG, FP), RTMP, RFP);
-	modrm(OldwR, O(REG, MP), RTMP, RMP);
-	genw(Orts);				// RET
-	if(pass&&(cflag > 2)) {
-		print("macmfra\n");
-		das(s, code-s);
-	}
-}
-
-void
-comd(Type *t)
-{
-	int i, j, m, c;
-
-	for(i = 0; i < t->np; i++) {
-		c = t->map[i];
-		j = i<<5;
-		for(m = 0x80; m != 0; m >>= 1) {
-			if(c & m) {
-				modrm(OldwR, j, RFP, RAX);
-				rbra(macro[MacFRP], Obsr);
-			}
-			j += sizeof(WORD*);
-		}
-	}
-	genw(Orts);
-}
-
-void
-comi(Type *t)
-{
-	int i, j, m, c;
-
-	conD((ulong)H, DTMP);
-	for(i = 0; i < t->np; i++) {
-		c = t->map[i];
-		j = i<<5;
-		for(m = 0x80; m != 0; m >>= 1) {
-			if(c & m)
-				modrm(OstwD, j, RAX, DTMP);
-			j += sizeof(WORD*);
-		}
-	}
-	genw(Orts);
-}
-
-void
-typecom(Type *t)
-{
-	int n;
-	uchar *tmp;
-	tmp=malloc(4096);
-
-	if(tmp == nil)
-		error(exNomem);
-	if(t == nil || t->initialize != 0)
-		return;
-
-	code = tmp;
-	comi(t);
-	n = code - tmp;
-	code = tmp;
-	comd(t);
-	n += code - tmp;
-
-	code = mallocz(n, 0);
-	if(code == nil)
-		return;
-
-	t->initialize = code;
-	comi(t);
-	t->destroy = code;
-	comd(t);
-
-	segflush(t->initialize, n);
-
-	if(cflag > 1) {
-		print("typ= %.8p %4d i %.8p d %.8p asm=%d\n",
-			t, t->size, t->initialize, t->destroy, n);
-		if (cflag > 2)
-			das(t->destroy, code-(uchar*)t->destroy);
-	}
-	free(tmp);
-}
-
-static void
-patchex(Module *m, ulong *p)
-{
-	Handler *h;
-	Except *e;
-
-	if((h = m->htab) == nil)
-		return;
-	for( ; h->etab != nil; h++){
-		h->pc1 = p[h->pc1];
-		h->pc2 = p[h->pc2];
-		for(e = h->etab; e->s != nil; e++)
-			e->pc = p[e->pc];
-		if(e->pc != -1)
-			e->pc = p[e->pc];
-	}
-}
-
-int
-compile(Module *m, int size, Modlink *ml)
-{
-	ulong v;
-	Link *l;
-	Modl *e;
-	int i, n;
-	uchar *s, *tmp;
-	base = nil;
-
-	tmp=malloc(4096);
-	patch = mallocz(size*sizeof(*patch), 0);
-	tinit = malloc(m->ntype*sizeof(*tinit));
-	if(tinit == nil || patch == nil || tmp == nil)
-		goto bad;
-
-	preamble();
-
-	mod = m;
-	n = 0;
-	pass = 0;
-	nlit = 0;
-
-	for(i = 0; i < size; i++) {
-		code = tmp;
-		comp(&m->prog[i]);
-		if(code >= &tmp[4096]) {
-			print("tmp ovlo\n%3d %D\n", i, &m->prog[i]);
-			urk();
-		}
-		patch[i] = n;
-		n += code - tmp;
-	}
-
-	for(i = 0; i < nelem(mactab); i++) {
-		code = tmp;
-		(*mactab[i].gen)();
-		macro[mactab[i].idx] = n;
-		n += code - tmp;
-	}
-
-	nlit *= sizeof(ulong);
-	base = mallocz(n + nlit, 0);
-	if(base == nil)
-		goto bad;
-
-	if(cflag > 1)
-		print("dis=%5d %5d 386=%5d asm=%.8p lit=%d: %s\n",
-			size, size*sizeof(Inst), n, base, nlit, m->name);
-
-	pass++;
-	nlit = 0;
-	litpool = (ulong*)(base+n);
-	code = base;
-	n = 0;
-	for(i = 0; i < size; i++) {
-		s = code;
-		comp(&m->prog[i]);
-		if(patch[i] != n) {
-			print("phase error\n%3d %D\n", i, &m->prog[i]);
-			urk();
-		}
-		n += code - s;
-		if(cflag > 1) {
-			print("%d: %D\n", i,&m->prog[i]);
-			das(s, code-s);
-		}
-	}
-
-	for(i = 0; i < nelem(mactab); i++) {
-		if(macro[mactab[i].idx] != n) {
-			print("phase error\nmactab %d\n", mactab[i].idx);
-			urk();
-		}
-		s = code;
-		(*mactab[i].gen)();
-		n += code-s;
-		if(cflag > 1) {
-			print("mactab %d\n", mactab[i].idx);
-			das(s, code-s);
-		}
-	}
-
-	v = (ulong)base;
-	for(l = m->ext; l->name; l++) {
-//print("### link: %lux ",l->u.pc-m->prog);
-		l->u.pc = (Inst*)(v+patch[l->u.pc-m->prog]);
-//print("%lux\n",l->u.pc);
-		typecom(l->frame);
-	}
-	if(ml != nil) {
-		e = &ml->links[0];
-		for(i = 0; i < ml->nlinks; i++) {
-			e->u.pc = (Inst*)(v+patch[e->u.pc-m->prog]);
-			typecom(e->frame);
-			e++;
-		}
-	}
-	for(i = 0; i < m->ntype; i++) {
-		if(tinit[i] != 0)
-			typecom(m->type[i]);
-	}
-	patchex(m, patch);
-	m->entry = (Inst*)(v+patch[mod->entry-mod->prog]);
-	free(patch);
-	free(tinit);
-	free(tmp);
-	free(m->prog);
-	m->prog = (Inst*)base;
-	m->compiled = 1;
-	segflush(base, n*sizeof(*base));
-	return 1;
-bad:
-	free(tmp);
-	free(patch);
-	free(tinit);
-	free(base);
-	return 0;
-}
diff --git a/libinterp/comp-thumb.c b/libinterp/comp-thumb.c
deleted file mode 100644
index 03aaa20e..00000000
--- a/libinterp/comp-thumb.c
+++ /dev/null
@@ -1,2466 +0,0 @@
-#include "lib9.h"
-#include "isa.h"
-#include "interp.h"
-#include "raise.h"
-
-#define	RESCHED 1	/* check for interpreter reschedule */
-
-enum
-{
-	R0	= 0,		// why wasn't this used ?
-	R1	= 1,
-	R2	= 2,
-	R3	= 3,
-	R4	= 4,
-	R5	= 5,
-	R6	= 6,
-	R7	= 7,
-	R8	= 8,
-	R9	= 9,
-	R10	= 10,		// unused
-	R11	= 11,		// unused
-	R12	= 12,		/* C's SB */
-	R13	= 13,		/* C's SP */
-	R14	= 14,		/* Link Register */
-	R15	= 15,		/* PC */
-
-	RSB		= R12,
-	RLINK	= R14,
-	RPC		= R15,
-
-	RTMP = R11,	/* linker temp */
-	RHT	= R8,		/* high temp */
-	RFP	= R7,		/* Frame Pointer */
-	RMP	= R6,		/* Module Pointer */
-	RREG	= R5,		/* Pointer to REG */
-	RA3	= R4,		/* gpr 3 */
-	RA2	= R3,		/* gpr 2 2+3 = L */
-	RA1	= R2,		/* gpr 1 */
-	RA0	= R1,		/* gpr 0 0+1 = L */
-	RCON	= R0,		/* Constant builder */
-
-	EQ	= 0,
-	NE	= 1,
-	CS	= 2,
-	CC	= 3,
-	MI	= 4,
-	PL	= 5,
-	VS	= 6,
-	VC	= 7,
-	HI	= 8,
-	LS	= 9,
-	GE	= 10,
-	LT	= 11,
-	GT	= 12,
-	LE	= 13,
-	AL	= 14,
-	NV	= 15,
-
-	And = 0,
-	Eor = 1,
-	Lsl = 2,
-	Lsr = 3,
-	Asr = 4,
-	Adc = 5,
-	Sbc = 6,
-	Ror = 7,
-	Tst = 8,
-	Neg = 9,
-	Cmp = 10,
-	Cmn = 11,
-	Orr = 12,
-	Mul = 13,
-	Bic = 14,
-	Mvn = 15,
-
-	Mov = 16,
-	Cmpi = 17,
-	Add = 18,
-	Sub = 19,
-
-	Cmph = 19,
-	Movh = 20,
-
-	Lea	= 100,		/* macro memory ops */
-	Ldw,
-	Ldb,
-	Stw,
-	Stb,
-
-	NCON	= (0x3fc-8)/4,
-
-	SRCOP	= (1<<0),
-	DSTOP	= (1<<1),
-	WRTPC	= (1<<2),
-	TCHECK	= (1<<3),
-	NEWPC	= (1<<4),
-	DBRAN	= (1<<5),
-	THREOP	= (1<<6),
-
-	ANDAND	= 1,
-	OROR	= 2,
-	EQAND	= 3,
-
-	MacFRP	= 0,
-	MacRET,
-	MacCASE,
-	MacCOLR,
-	MacMCAL,
-	MacFRAM,
-	MacMFRA,
-	MacRELQ,
-	NMACRO
-};
-
-#define FIRSTPASS	0
-#define MIDDLEPASS	1
-#define LASTPASS	2
-static	int	pass;
-
-static void
-OP(int o, int o1, int o2, char *s)
-{
-	if(o < o1 || o > o2) print("error: bad op %d in %s\n", o, s);
-}
-
-static void
-IMM(int i, int i1, int i2, char *s)	
-{
-	if(i < i1 || i > i2) print("error: bad imm %d in %s\n", i, s);
-}
-
-static void
-MULT(int o, int m, char *s)
-{
-	if((o/m)*m != o) print("error: %d not multiple of %d in %s\n", o, m, s);
-}
-	
-static void
-LOWREG(int r, char *s)
-{
-	if(r < 0 || r >= 8) print("error: %s: bad low reg %d\n", s, r);
-}
-
-static void
-HIGHREG(int r, char *s)
-{
-	if(r < 8) print("error: %s: bad high reg %d\n", s, r);
-}
-
-static void
-CKIRRS(int op, int i, int rm, int rd)
-{
-	OP(op, Lsl, Asr, "IRRS");
-	IMM(i, 0, 31, "IRRS");
-	LOWREG(rm, "IRRS rm");
-	LOWREG(rd, "IRRS rd");
-}
-
-static void
-CKRRR(int op, int rs, int rm, int rd)
-{
-	OP(op, Add, Sub, "RRR");
-	LOWREG(rs, "RRR rs");
-	LOWREG(rm, "RRR rm");
-	LOWREG(rd, "RRR rd");
-}
-
-static void
-CKIRR(int op, int i, int rm, int rd)
-{
-	OP(op, Add, Sub, "IRR");
-	IMM(i, 0, 7, "IRR");
-	LOWREG(rm, "IRR rm");
-	LOWREG(rd, "IRR rd");
-}
-
-static void
-CKIR(int op, int i, int rd)
-{
-	OP(op, Mov, Sub, "IR");
-	IMM(i, 0, 255, "IR");
-	LOWREG(rd, "IR rd");
-}
-
-static void
-CKRR(int op, int rs, int rd)
-{
-	OP(op, And, Mvn, "RR");
-	LOWREG(rs, "RR rs");
-	LOWREG(rd, "RR rd");
-}
-
-static void
-CKRH(int op, int rs, int rd)
-{
-	OP(op, Add, Movh, "RH");
-	LOWREG(rs, "RH");
-	HIGHREG(rd, "RH");
-}
-
-static void
-CKHR(int op, int rs, int rd)
-{
-	OP(op, Add, Movh, "HR");
-	HIGHREG(rs, "HR");
-	LOWREG(rd, "HR");
-}
-
-static void
-CKHH(int op, int rs, int rd)
-{
-	OP(op, Add, Movh, "HH");
-	HIGHREG(rs, "HH");
-	HIGHREG(rd, "HH");
-}
-
-static void
-CKLS(int rn, int o, int rd, int s, int l)
-{
-	char buf[16];
-
-	sprint(buf, "LS %d %d", s, l);
-	LOWREG(rn, buf);
-	LOWREG(rd, buf);
-	MULT(o, s, buf);
-	IMM(o/s, 0, 31, buf);
-}
-
-static void
-CKLSR(int rn, int rm, int rd, int s, int l)
-{
-	char buf[16];
-
-	sprint(buf, "LSR %d %d", s, l);
-	LOWREG(rn, buf);
-	LOWREG(rm, buf);
-	LOWREG(rd, buf);
-}
-
-static void
-CKLPCR(int o, int rd)
-{
-	LOWREG(rd, "LPCR");
-	if(o&3)
-		o += 2;
-	MULT(o, 4, "LPCR");
-	IMM(o/4, 0, 255, "LPCR");
-}
-
-static void
-CKB(int o)
-{
-	if(pass == FIRSTPASS)
-		return;
-	MULT(o, 2, "B");
-	IMM(o, -2048, 2046, "B");
-}
-
-static void
-CKBCC(int o)
-{
-	if(pass == FIRSTPASS)
-		return;
-	MULT(o, 2, "BCC");
-	IMM(o, -256, 254, "BCC");
-}
-
-static void
-CKBL(int o)
-{
-	if(pass == FIRSTPASS)
-		return;
-	MULT(o, 2, "BL");
-	IMM(o, -4194304, 4194302, "BL");
-}
-
-#define DPIRRS(op, i, rm, rd)	(CKIRRS(op, i, rm, rd), *code++ = ((op-Lsl)<<11) | (i<<6) | (rm<<3) | rd)
-#define DPRRR(op, rs, rm, rd)	(CKRRR(op, rs, rm, rd), *code++ = (6<<10) | ((op-Add)<<9) | (rs<<6) | (rm<<3) | rd)
-#define DPIRR(op, i, rm, rd)	(CKIRR(op, i, rm, rd), *code++ = (7<<10) | ((op-Add)<<9) | (i<<6) | (rm<<3) | rd)
-#define DPIR(op, i, rd)		(CKIR(op, i, rd), *code++ = (1<<13) | ((op-Mov)<<11) | (rd<<8) | i)
-#define DPRR(op, rs, rd)		(CKRR(op, rs, rd), *code++ = (1<<14) | (op<<6) | (rs<<3) | rd)
-
-#define DPRH(op, rs, hd)		(CKRH(op, rs, hd), *code++ = (17<<10) | ((op-Add)<<8) | (1<<7) | (rs<<3) | (hd-8))
-#define DPHR(op, hs, rd)		(CKHR(op, hs, rd), *code++ = (17<<10) | ((op-Add)<<8) | (1<<6) | ((hs-8)<<3) | rd)
-#define DPHH(op, hs, hd)		(CKHH(op, hs, hd), *code++ = (17<<10) | ((op-Add)<<8) | (3<<6) | ((hs-8)<<3) | (hd-8))
-
-#define LDW(rs, o, rd)	(CKLS(rs, o, rd, 4, 1), *code++ = (13<<11)|((o/4)<<6)|(rs<<3)|rd)
-#define STW(rs, o, rd)	(CKLS(rs, o, rd, 4, 0), *code++ = (12<<11)|((o/4)<<6)|(rs<<3)|rd)
-#define LDH(rs, o, rd)	(CKLS(rs, o, rd, 2, 0), *code++ = (17<<11)|((o/2)<<6)|(rs<<3)|rd)
-#define STH(rs, o, rd)	(CKLS(rs, o, rd, 2, 1), *code++ = (16<<11)|((o/2)<<6)|(rs<<3)|rd)
-#define LDB(rs, o, rd)	(CKLS(rs, o, rd, 1, 1), *code++ = (15<<11)|(o<<6)|(rs<<3)|rd)
-#define STB(rs, o, rd)	(CKLS(rs, o, rd, 1, 0), *code++ = (14<<11)|(o<<6)|(rs<<3)|rd)
-#define LDRW(rs, rm, rd)	(CKLSR(rs, rm, rd, 4, 1), *code++ = (44<<9)|(rs<<6)|(rm<<3)|rd)
-#define STRW(rs, rm, rd)	(CKLSR(rs, rm, rd, 4, 1), *code++ = (40<<9)|(rs<<6)|(rm<<3)|rd)
-#define LDRH(rs, rm, rd)	(CKLSR(rs, rm, rd, 4, 1), *code++ = (45<<9)|(rs<<6)|(rm<<3)|rd)
-#define STRH(rs, rm, rd)	(CKLSR(rs, rm, rd, 4, 1), *code++ = (41<<9)|(rs<<6)|(rm<<3)|rd)
-#define LDRB(rs, rm, rd)	(CKLSR(rs, rm, rd, 4, 1), *code++ = (46<<9)|(rs<<6)|(rm<<3)|rd)
-#define STRB(rs, rm, rd)	(CKLSR(rs, rm, rd, 4, 1), *code++ = (42<<9)|(rs<<6)|(rm<<3)|rd)
-
-#define LDWPCREL(o, rd)	(CKLPCR(o, rd), *code++ = (9<<11)|(rd<<8)|(o/4))
-
-#define CMPI(i, rn)		DPIR(Cmpi, i, rn)
-#define CMP(rs, rn)		DPRR(Cmp, rs, rn)
-#define CMPRH(rs, rn)	DPRH(Cmph, rs, rn)
-#define CMPHR(rs, rn)	DPHR(Cmph, rs, rn)
-#define CMPHH(rs, rn)	DPHH(Cmph, rs, rn)
-#define MOV(src, dst)	DPIRRS(Lsl, 0, src, dst)
-#define MOVRH(s, d)	DPRH(Movh, s, d)
-#define MOVHR(s, d)	DPHR(Movh, s, d)
-#define MOVHH(s, d)	DPHH(Movh, s, d)
-#define MUL(rs, rd)		DPRR(Mul, rs, rd)
-
-#define CODE			(code+codeoff)
-#define IA(s, o)			(ulong)(base+s[o])
-#define RELPC(pc)		(ulong)(base+(pc))
-
-#define RINV(c)		((c)&1 ? (c)-1 : (c)+1)
-#define FPX(fp)			(((ulong)(fp))&~1)	
-#define NOBR			4	
-
-#define BRAU(o)		((28<<11) | (((o)>>1)&0x7ff))
-#define BRAC(c, o)		((13<<12) | ((c)<<8) | (((o)>>1)&0xff))
-#define BRAL1(o)		((30<<11) | ((o)&0x7ff))
-#define BRAL2(o)		((31<<11) | ((o)&0x7ff))
-
-#define CJUMP(c, o)		CBRA(RINV(c), o)
-#define BRA(o)			(CKB((o)-4), gen(BRAU((o)-4)))
-#define CBRA(c, o)		(CKBCC((o)-4), gen(BRAC(c, (o)-4)))
-#define BRADIS(o)		branch(IA(patch, o)-(ulong)CODE)
-#define CBRADIS(c, o)	cbranch(c, IA(patch, o)-(ulong)CODE)
-#define BRAMAC(o)		branch(IA(macro, o)-(ulong)CODE)
-#define RETURN		MOVHH(RLINK, RPC)
-#define CALL(o)		call((ulong)(FPX(o))-(ulong)CODE)
-#define CALLMAC(o)	call(IA(macro, o)-(ulong)CODE)
-		
-#define PATCH(ptr)		(CKB((ulong)code-(ulong)ptr-4), *ptr |= (((ulong)code-(ulong)(ptr)-4)>>1) & 0x7ff)
-#define CPATCH(ptr)	(CKBCC((ulong)code-(ulong)ptr-4), *ptr |= (((ulong)code-(ulong)(ptr)-4)>>1) & 0xff)
-#define BPATCH(ptr)		((ulong)ptr-(ulong)code)
-
-/* long branches */
-#define DWORD(o)		(*code++ = (o)&0xffff, *code++ = ((o)>>16)&0xffff)
-#define BRALONG(o)		(LDWPCREL(0, RCON), MOVRH(RCON, RPC), DWORD(o+(ulong)code-4))
-#define CALLLONG(o)	(MOVHR(RPC, RCON), DPIR(Add, 10, RCON), MOVRH(RCON, RLINK), BRALONG(o))
-
-#define PAD()		MOVHH(RSB, RSB)
-
-#define BITS(B)				(1<<B)
-
-#define FITS8(v)	((ulong)(v)<BITS(8))
-#define FITS5(v)	((ulong)(v)<BITS(5))
-#define FITS3(v)	((ulong)(v)<BITS(3))
-
-/* assumes H==-1 */
-#define CMPH(r, scr)		DPIRR(Add, 1, r, scr)
-#define NOTNIL(r, scr)	(CMPH(r, scr), label = code, CJUMP(EQ, NOBR), CALL(bounds), CPATCH(label))
-
-#define ADDSP(o)	*code++ = (11<<12) | (0<<7) | (o>>2)
-#define SUBSP(o)	*code++ = (11<<12) | (1<<7) | (o>>2)
-#define LDSP(o, r)	*code++ = (19<<11) | (r<<8) | (o>>2)
-#define STSP(o, r)	*code++ = (18<<11) | (r<<8) | (o>>2)
-
-static	ushort*	code;
-static	ushort*	base;
-static	ulong*	patch;
-static	ulong	codeoff;
-static	Module*	mod;
-static	uchar*	tinit;
-static	ushort*	litpool;
-static	int	nlit;
-static	ulong	macro[NMACRO];
-	void	(*comvec)(void);
-static	void	macfrp(void);
-static	void	macret(void);
-static	void	maccase(void);
-static	void	maccolr(void);
-static	void	macmcal(void);
-static	void	macfram(void);
-static	void	macmfra(void);
-static	void	macrelq(void);
-static	void movmem(Inst*);
-static	void mid(Inst*, int, int);
-extern	void	das(ushort*, int);
-
-#define T(r)	*((void**)(R.r))
-
-struct
-{
-	int	idx;
-	void	(*gen)(void);
-	char*	name;
-} mactab[] =
-{
-	MacFRP,		macfrp,		"FRP", 	/* decrement and free pointer */
-	MacRET,		macret,		"RET",	/* return instruction */
-	MacCASE,	maccase,	"CASE",	/* case instruction */
-	MacCOLR,	maccolr,	"COLR",	/* increment and color pointer */
-	MacMCAL,	macmcal,	"MCAL",	/* mcall bottom half */
-	MacFRAM,	macfram,	"FRAM",	/* frame instruction */
-	MacMFRA,	macmfra,	"MFRA",	/* punt mframe because t->initialize==0 */
-	MacRELQ,		macrelq,	/* reschedule */
-};
-
-typedef struct Const Const;
-struct Const
-{
-	ulong	o;
-	ushort*	code;
-	ushort*	pc;
-};
-
-typedef struct Con Con;
-struct Con
-{
-	int	ptr;
-	Const	table[NCON];	
-};
-static Con rcon;
-
-static void gen(ulong), genc(ulong);
-
-/* only CBRADIS could be too long by the look of things */
-static void
-cbranch(int c, long o)
-{
-	long off = o-4;
-
-	if(pass == FIRSTPASS || (off >= -256 && off <= 254))
-		CBRA(c, o);
-	else if(off >= -2046 && off <= 2048){
-		CBRA(RINV(c), 4);
-		BRA(o-2);
-	}
-	else{
-		if(!((int)CODE&2))
-			PAD();
-		CBRA(RINV(c), 10);
-		BRALONG(o);
-	}
-}
-
-/* only BRADIS, BRAMAC could be too long */
-static void
-branch(long o)
-{
-	long off = o-4;
-
-	if(pass == FIRSTPASS || (off >= -2048 && off <= 2046))
-		BRA(o);
-	else{
-		if((int)CODE&2)
-			PAD();
-		BRALONG(o);
-	}
-}
-
-static void
-call(long o)
-{
-	long off = o-4;
-
-	if(pass == FIRSTPASS || (off >= -4194304 && off <= 4194302))
-		genc(o);
-	else{
-		if(!((int)CODE&2))
-			PAD();
-		CALLLONG(o);
-	}
-}
-
-static void
-rdestroy(void)
-{
-	destroy(R.s);
-}
-
-static void
-rmcall(void)
-{
-	Frame *f;
-	Prog *p;
-
-	if((void*)R.dt == H)
-		error(exModule);
-
-	f = (Frame*)R.FP;
-	if(f == H)
-		error(exModule);
-
-	f->mr = nil;
-	((void(*)(Frame*))R.dt)(f);
-	R.SP = (uchar*)f;
-	R.FP = f->fp;
-	if(f->t == nil)
-		unextend(f);
-	else
-		freeptrs(f, f->t);
-	p = currun();
-	if(p->kill != nil)
-		error(p->kill);
-}
-
-static void
-rmfram(void)
-{
-	Type *t;
-	Frame *f;
-	uchar *nsp;
-
-	if(R.d == H)
-		error(exModule);
-	t = (Type*)R.s;
-	if(t == H)
-		error(exModule);
-	nsp = R.SP + t->size;
-	if(nsp >= R.TS) {
-		R.s = t;
-		extend();
-		T(d) = R.s;
-		return;
-	}
-	f = (Frame*)R.SP;
-	R.SP = nsp;
-	f->t = t;
-	f->mr = nil;
-	initmem(t, f);
-	T(d) = f;
-}
-
-static void
-urk(char *s)
-{
-	USED(s);
-	error(exCompile);	//production
-	//panic("compile failed: urk: %s\n", s);	//debugging
-}
-
-static void
-gen(ulong w)
-{
-	*code++ = w;
-}
-
-static void
-genc(ulong o)
-{
-	o -= 4;
-	CKBL(o);
-	*code++ = BRAL1(o>>12);
-	*code++ = BRAL2(o>>1);
-}
-	
-static void
-flushcon(int genbr)
-{
-	int i;
-	Const *c;
-	ulong disp;
-
-	if(rcon.ptr == 0)
-		return;
-	if(genbr ^ (((int)CODE&2)>>1))
-		PAD();
-	if(genbr)
-		BRA(rcon.ptr*4+2);
-	c = &rcon.table[0];
-	for(i = 0; i < rcon.ptr; i++) {
-		if(pass == LASTPASS){
-			disp = (code - c->code) * sizeof(*code) - 4;
-			if(disp >= BITS(10))
-				print("error: INVALID constant range %lud", disp);
-			CKLPCR(disp, R0);	// any reg will do
-			if(disp & 3)
-				disp += 2;		// ensure M(4) offset
-			*c->code |= (disp/4);
-		}
-		*code++ = (c->o)&0xffff;
-		*code++ = (c->o >> 16)&0xffff;
-		c++;
-	}
-	rcon.ptr = 0;
-}
-
-static void
-flushchk(void)
-{
-	if(rcon.ptr >= NCON || rcon.ptr > 0 && (code+codeoff+2-rcon.table[0].pc)*sizeof(*code) >= BITS(10)-256)  // 256 allows for a little delay in calling flushchk
-		flushcon(1);
-}
-
-static void
-con(ulong o, int r, int opt)
-{
-	Const *c;
-
-	LOWREG(r, "con");
-	if(opt != 0) {
-		if(o >= 0 && o <= 255){
-			DPIR(Mov, o, r);
-			return;
-		}
-		if(-o >= 0 && -o <= 255){
-			DPIR(Mov, -o, r);
-			DPRR(Neg, r, r);
-			return;
-		}
-		if(o >= 256 && o <= 510){
-			DPIR(Mov, 255, r);
-			DPIR(Add, o-255, r);
-			return;
-		}
-		if(o > 0){
-			int n = 0;
-			ulong m = o;
-
-			while(!(m & 1)){
-				n++;
-				m >>= 1;
-			}
-			if(m >= 0 && m <= 255){
-				DPIR(Mov, m, r);
-				DPIRRS(Lsl, n, r, r);
-				return;
-			}
-		}
-	}
-	flushchk();
-	c = &rcon.table[rcon.ptr++];
-	c->o = o;
-	c->code = code;
-	c->pc = code+codeoff;
-	LDWPCREL(0, r);
-}
-
-static void
-mem(int inst, ulong disp, int rm, int r)
-{
-	LOWREG(rm, "mem");
-	LOWREG(r, "mem");
-	LOWREG(RCON, "mem");
-	if(inst == Lea) {
-		if(rm == r){
-			if(disp < BITS(8)){
-				DPIR(Add, disp, r);
-				return;
-			}
-			if(-disp < BITS(8)){
-				DPIR(Sub, -disp, r);
-				return;
-			}
-		}
-		else{
-			if(disp < BITS(3)){
-				DPIRR(Add, disp, rm, r);
-				return;
-			}
-			if(-disp < BITS(3)){
-				DPIRR(Sub, -disp, rm, r);
-				return;
-			}
-		}
-		con(disp, RCON, 1);
-		DPRRR(Add, RCON, rm, r);
-		return;
-	}
-
-	switch(inst) {
-	case Ldw:
-		if(disp < BITS(7)){
-			LDW(rm, disp, r);
-			return;
-		}
-		break;
-	case Ldb:
-		if(disp < BITS(5)){
-			LDB(rm, disp, r);
-			return;
-		}
-		break;
-	case Stw:
-		if(disp < BITS(7)){
-			STW(rm, disp, r);
-			return;
-		}
-		break;
-	case Stb:
-		if(disp < BITS(5)){
-			STB(rm, disp, r);
-			return;
-		}
-		break;
-	}
-
-	con(disp, RCON, 1);
-	switch(inst) {
-	case Ldw:
-		LDRW(rm, RCON, r);
-		break;
-	case Ldb:
-		LDRB(rm, RCON, r);
-		break;
-	case Stw:
-		STRW(rm, RCON, r);
-		break;
-	case Stb:
-		STRB(rm, RCON, r);
-		break;
-	}
-}
-
-static void
-memh(int inst, ulong disp, int rm, int r)
-{
-	HIGHREG(r, "memh");
-	if(inst == Stw || inst == Stb)
-		MOVHR(r, RCON);
-	mem(inst, disp, rm, RCON);
-	if(inst != Stw && inst != Stb)
-		MOVRH(RCON, r);
-}
-
-static void
-opx(int mode, Adr *a, int mi, int r, int li)
-{
-	int ir, rta;
-
-	switch(mode) {
-	default:
-		urk("opx");
-	case AFP:
-		mem(mi, a->ind, RFP, r);
-		return;
-	case AMP:
-		mem(mi, a->ind, RMP, r);
-		return;
-	case AIMM:
-		con(a->imm, r, 1);
-		if(mi == Lea) {	/* could be simpler if con generates reachable literal */
-			mem(Stw, li, RREG, r);
-			mem(Lea, li, RREG, r);
-		}
-		return;
-	case AIND|AFP:
-		ir = RFP;
-		break;
-	case AIND|AMP:
-		ir = RMP;
-		break;
-	}
-	if(mi == Lea || mi == Ldb || mi == Ldw)
-		rta = r;
-	else if(r == RA3)	/* seems safe - have to squeeze reg use */
-		rta = RA2;
-	else
-		rta = RA3;
-	mem(Ldw, a->i.f, ir, rta);
-	mem(mi, a->i.s, rta, r);
-}
-
-static void
-opwld(Inst *i, int op, int reg)
-{
-	opx(USRC(i->add), &i->s, op, reg, O(REG, st));
-}
-
-static void
-opwst(Inst *i, int op, int reg)
-{
-	opx(UDST(i->add), &i->d, op, reg, O(REG, dt));
-}
-
-static void
-literal(ulong imm, int roff)
-{
-	nlit++;
-
-	con((ulong)litpool, RCON, 0);
-	mem(Stw, roff, RREG, RCON);
-
-	if(pass != LASTPASS)
-		return;
-
-	*litpool++ = imm&0xffff;
-	*litpool++ = (imm>>16)&0xffff;
-}
-
-static void
-schedcheck(Inst *i)
-{
-	ushort *label;
-
-	if(RESCHED && i->d.ins <= i){
-		mem(Ldw, O(REG, IC), RREG, RA0);
-		DPIR(Sub, 1, RA0);
-		mem(Stw, O(REG, IC), RREG, RA0);
-		/* CMPI(1, RA0); */
-		label = code;
-		CBRA(LE, NOBR);
-		/* CJUMP(LE, NOBR); */
-		CALLMAC(MacRELQ);
-		CPATCH(label);
-	}
-}
-
-static void
-bounds(void)
-{
-	/* mem(Stw, O(REG,FP), RREG, RFP); */
-	error(exBounds);
-}
-
-/*
-static void
-called(int x)
-{
-	extern void ttrace(void);
-
-	if(x)
-		mem(Stw, O(REG, FP), RREG, RFP);
-	CALL(ttrace);
-	con((ulong)&R, RREG, 1);
-	mem(Ldw, O(REG, FP), RREG, RFP);
-	mem(Ldw, O(REG, MP), RREG, RMP);
-}
-*/
-
-static void
-punt(Inst *i, int m, void (*fn)(void))
-{
-	ulong pc;
-	ushort *label;
-
-	if(m & SRCOP) {
-		if(UXSRC(i->add) == SRC(AIMM))
-			literal(i->s.imm, O(REG, s));
-		else {
-			opwld(i, Lea, RA0);
-			mem(Stw, O(REG, s), RREG, RA0);
-		}
-	}
-
-	if(m & DSTOP) {
-		opwst(i, Lea, RA0);
-		mem(Stw, O(REG, d), RREG, RA0);
-	}
-	if(m & WRTPC) {
-		con(RELPC(patch[i-mod->prog+1]), RA0, 0);
-		mem(Stw, O(REG, PC), RREG, RA0);
-	}
-	if(m & DBRAN) {
-		pc = patch[i->d.ins-mod->prog];
-		literal((ulong)(base+pc), O(REG, d));
-	}
-
-	switch(i->add&ARM) {
-	case AXNON:
-		if(m & THREOP) {
-			mem(Ldw, O(REG, d), RREG, RA0);
-			mem(Stw, O(REG, m), RREG, RA0);
-		}
-		break;
-	case AXIMM:
-		literal((short)i->reg, O(REG,m));
-		break;
-	case AXINF:
-		mem(Lea, i->reg, RFP, RA2);
-		mem(Stw, O(REG, m), RREG, RA2);
-		break;
-	case AXINM:
-		mem(Lea, i->reg, RMP, RA2);
-		mem(Stw, O(REG, m), RREG, RA2);
-		break;
-	}
-	mem(Stw, O(REG, FP), RREG, RFP);
-
-	CALL(fn);
-
-	con((ulong)&R, RREG, 1);
-	if(m & TCHECK) {
-		mem(Ldw, O(REG, t), RREG, RA0);
-		CMPI(0, RA0);
-		label = code;
-		CJUMP(NE, NOBR);
-		memh(Ldw, O(REG, xpc), RREG, RLINK);
-		RETURN;		/* if(R.t) goto(R.xpc) */
-		CPATCH(label);
-	}
-	mem(Ldw, O(REG, FP), RREG, RFP);
-	mem(Ldw, O(REG, MP), RREG, RMP);
-
-	if(m & NEWPC){
-		memh(Ldw, O(REG, PC), RREG, RPC);
-		flushcon(0);
-	}
-}
-
-static void
-mid(Inst *i, int mi, int r)
-{
-	int ir;
-
-	switch(i->add&ARM) {
-	default:
-		opwst(i, mi, r);
-		return;
-	case AXIMM:
-		if(mi == Lea)
-			urk("mid/lea");
-		con((short)i->reg, r, 1);
-		return;
-	case AXINF:
-		ir = RFP;
-		break;
-	case AXINM:
-		ir = RMP;
-		break;
-	}
-	mem(mi, i->reg, ir, r);
-}
-
-static int
-swapbraop(int b)
-{
-	switch(b) {
-	case GE:
-		return LE;
-	case LE:
-		return GE;
-	case GT:
-		return LT;
-	case LT:
-		return GT;
-	}
-	return b;
-}
-
-static void
-cbra(Inst *i, int r)
-{
-	if(RESCHED)
-		schedcheck(i);
-	if(UXSRC(i->add) == SRC(AIMM) && FITS8(i->s.imm)) {
-		mid(i, Ldw, RA1);
-		CMPI(i->s.imm, RA1);
-		r = swapbraop(r);
-	} else if((i->add & ARM) == AXIMM && FITS8(i->reg)) {
-		opwld(i, Ldw, RA1);
-		CMPI(i->reg, RA1);
-	} else {
-		opwld(i, Ldw, RA0);
-		mid(i, Ldw, RA1);
-		CMP(RA1, RA0);
-	}
-	CBRADIS(r, i->d.ins-mod->prog);
-}
-
-static void
-cbrab(Inst *i, int r)
-{
-	if(RESCHED)
-		schedcheck(i);
-	if(UXSRC(i->add) == SRC(AIMM)) {
-		mid(i, Ldb, RA1);
-		CMPI(i->s.imm&0xff, RA1);
-		r = swapbraop(r);
-	} else if((i->add & ARM) == AXIMM) {
-		opwld(i, Ldb, RA1);
-		CMPI(i->reg&0xff, RA1);
-	} else {
-		opwld(i, Ldb, RA0);
-		mid(i, Ldb, RA1);
-		CMP(RA1, RA0);
-	}
-	CBRADIS(r, i->d.ins-mod->prog);
-}
-
-static void
-cbral(Inst *i, int jmsw, int jlsw, int mode)
-{
-	ulong dst;
-	ushort *label;
-
-	if(RESCHED)
-		schedcheck(i);
-	opwld(i, Lea, RA1);
-	mid(i, Lea, RA3);
-	mem(Ldw, 0, RA1, RA2);
-	mem(Ldw, 0, RA3, RA0);
-	CMP(RA0, RA2);
-	label = nil;
-	dst = i->d.ins-mod->prog;
-	switch(mode) {
-	case ANDAND:
-		label = code;
-		CBRA(jmsw, NOBR);
-		break;
-	case OROR:
-		CBRADIS(jmsw, dst);
-		break;
-	case EQAND:
-		CBRADIS(jmsw, dst);
-		label = code;
-		CBRA(NE, NOBR);
-		break;
-	}
-	mem(Ldw, 4, RA3, RA0);
-	mem(Ldw, 4, RA1, RA2);
-	CMP(RA0, RA2);
-	CBRADIS(jlsw, dst);
-	if(label != nil)
-		CPATCH(label);
-}
-
-static void
-cbraf(Inst *i, int r)
-{
-	USED(r);
-	if(RESCHED)
-		schedcheck(i);
-	punt(i, SRCOP|THREOP|DBRAN|NEWPC|WRTPC, optab[i->op]);
-}	
-
-static void
-comcase(Inst *i, int w)
-{
-	int l;
-	WORD *t, *e;
-
-	if(w != 0) {
-		opwld(i, Ldw, RA1);		// v
-		opwst(i, Lea, RA3);		// table
-		BRAMAC(MacCASE);
-	}
-
-	t = (WORD*)(mod->origmp+i->d.ind+4);
-	l = t[-1];
-	
-	/* have to take care not to relocate the same table twice - 
-	 * the limbo compiler can duplicate a case instruction
-	 * during its folding phase
-	 */
-
-	if(pass == FIRSTPASS || pass == MIDDLEPASS) {
-		if(l >= 0)
-			t[-1] = -l-1;	/* Mark it not done */
-		return;
-	}
-	if(l >= 0)			/* Check pass 2 done */
-		return;
-	t[-1] = -l-1;			/* Set real count */
-	e = t + t[-1]*3;
-	while(t < e) {
-		t[2] = RELPC(patch[t[2]]);
-		t += 3;
-	}
-	t[0] = RELPC(patch[t[0]]);
-}
-
-
-static void
-comcasel(Inst *i)
-{
-	int l;
-	WORD *t, *e;
-
-	t = (WORD*)(mod->origmp+i->d.ind+8);
-	l = t[-2];
-	if(pass == FIRSTPASS || pass == MIDDLEPASS) {
-		if(l >= 0)
-			t[-2] = -l-1;	/* Mark it not done */
-		return;
-	}
-	if(l >= 0)			/* Check pass 2 done */
-		return;
-	t[-2] = -l-1;			/* Set real count */
-	e = t + t[-2]*6;
-	while(t < e) {
-		t[4] = RELPC(patch[t[4]]);
-		t += 6;
-	}
-	t[0] = RELPC(patch[t[0]]);
-}
-
-static void
-commframe(Inst *i)
-{
-	ushort *punt, *mlnil;
-
-	opwld(i, Ldw, RA0);
-	CMPH(RA0, RA3);
-	mlnil = code;
-	CBRA(EQ, NOBR);
-
-	if((i->add&ARM) == AXIMM) {
-		mem(Ldw, OA(Modlink, links)+i->reg*sizeof(Modl)+O(Modl, frame), RA0, RA3);
-	} else {
-		mid(i, Ldw, RA1);
-		// RA1 = RA0 + (RA1<<3)
-		DPIRRS(Lsl, 3, RA1, RA1);
-		DPRRR(Add, RA0, RA1, RA1);	// assumes sizeof(Modl) == 8
-		mem(Ldw, OA(Modlink, links)+O(Modl, frame), RA1, RA3);
-	}
-
-	mem(Ldw, O(Type, initialize), RA3, RA1);
-	CMPI(0, RA1);
-	punt = code;
-	CBRA(NE, NOBR);
-
-	opwst(i, Lea, RA0);
-
-	/* Type in RA3, destination in RA0 */
-	CPATCH(mlnil);
-	con(RELPC(patch[i-mod->prog+1]), RA2, 0);
-	MOVRH(RA2, RLINK);
-	BRAMAC(MacMFRA);
-
-	/* Type in RA3 */
-	CPATCH(punt);
-	CALLMAC(MacFRAM);
-	opwst(i, Stw, RA2);
-}
-
-static void
-commcall(Inst *i)
-{
-	ushort *mlnil;
-
-	opwld(i, Ldw, RA2);
-	con(RELPC(patch[i-mod->prog+1]), RA0, 0);
-	mem(Stw, O(Frame, lr), RA2, RA0);
-	mem(Stw, O(Frame, fp), RA2, RFP);
-	mem(Ldw, O(REG, M), RREG, RA3);
-	mem(Stw, O(Frame, mr), RA2, RA3);
-	opwst(i, Ldw, RA3);
-	CMPH(RA3, RA0);
-	mlnil = code;
-	CBRA(EQ, NOBR);
-	if((i->add&ARM) == AXIMM) {
-		mem(Ldw, OA(Modlink, links)+i->reg*sizeof(Modl)+O(Modl, u.pc), RA3, RA0);
-	} else {
-		mid(i, Ldw, RA1);
-		DPIRRS(Lsl, 3, RA1, RA1);
-		DPRRR(Add, RA1, RA3, RA1);	// assumes sizeof(Modl) == 8
-		mem(Ldw, OA(Modlink, links)+O(Modl, u.pc), RA1, RA0);
-	}
-	CPATCH(mlnil);
-	CALLMAC(MacMCAL);
-}
-
-static void
-larith(Inst *i, int op, int opc)
-{
-	opwld(i, Lea, RA0);
-	mid(i, Lea, RA3);
-	mem(Ldw, 4, RA0, RA1);	// ls (big endian `big' even in little endian mode)
-	mem(Ldw, 4, RA3, RA2);
-	if(op == Add || op == Sub)
-		DPRRR(op, RA1, RA2, RA2);
-	else
-		DPRR(op, RA1, RA2);		// ls: RA2 = RA2 op RA1
-	mem(Ldw, 0, RA0, RA1);
-	mem(Ldw, 0, RA3, RA0);
-	DPRR(opc, RA1, RA0);		// ms: RA0 = RA0 opc RA1
-	if((i->add&ARM) != AXNON)
-		opwst(i, Lea, RA3);
-	mem(Stw, 0, RA3, RA0);
-	mem(Stw, 4, RA3, RA2);
-}
-
-static void
-movloop(Inst *i, int s)
-{
-	ushort *label;
-
-	opwst(i, Lea, RA2);
-	label = code;
-	if(s == 1)
-		LDB(RA1, 0, RA0);
-	else
-		LDW(RA1, 0, RA0);
-	DPIR(Add, s, RA1);
-	if(s == 1)
-		STB(RA2, 0, RA0);
-	else
-		STW(RA2, 0, RA0);
-	DPIR(Add, s, RA2);
-	DPIR(Sub, 1, RA3);
-	CBRA(NE, BPATCH(label));
-}
-
-static void
-movmem(Inst *i)
-{
-	ushort *cp;
-
-	// source address already in RA1
-	if((i->add&ARM) != AXIMM){
-		mid(i, Ldw, RA3);
-		CMPI(0, RA3);
-		cp = code;
-		CBRA(LE, NOBR);
-		movloop(i, 1);
-		CPATCH(cp);
-		return;
-	}
-	switch(i->reg){
-	case 0:
-		break;
-	case 4:
-		LDW(RA1, 0, RA2);
-		opwst(i, Stw, RA2);
-		break;
-	case 8:
-		LDW(RA1, 0, RA2);
-		opwst(i, Lea, RA3);
-		LDW(RA1, 4, RA1);
-		STW(RA3, 0, RA2);
-		STW(RA3, 4, RA1);
-		break;
-	default:
-		// could use ldm/stm loop...
-		if((i->reg&3) == 0) {
-			con(i->reg>>2, RA3, 1);
-			movloop(i, 4);
-		} else {
-			con(i->reg, RA3, 1);
-			movloop(i, 1);
-		}
-		break;
-	}
-}
-
-static
-void
-compdbg(void)
-{
-	print("%s:%lud@%.8lux\n", R.M->m->name, *(ulong*)R.m, *(ulong*)R.s);
-}
-
-static void
-comgoto(Inst *i)
-{
-	WORD *t, *e;
-
-	opwld(i, Ldw, RA1);
-	opwst(i, Lea, RA0);
-	DPIRRS(Lsl, 2, RA1, RA1);
-	LDRW(RA0, RA1, RA0);
-	MOVRH(RA0, RPC);
-	flushcon(0);
-
-	if(pass != LASTPASS)
-		return;
-
-	t = (WORD*)(mod->origmp+i->d.ind);
-	e = t + t[-1];
-	t[-1] = 0;
-	while(t < e) {
-		t[0] = RELPC(patch[t[0]]);
-		t++;
-	}
-}
-
-static void
-comp(Inst *i)
-{
-	int r, imm;
-	char buf[64];
-	ushort *label, *label1;
-
-	flushchk();
-
-	switch(i->op) {
-	default:
-		snprint(buf, sizeof buf, "%s compile, no '%D'", mod->name, i);
-		error(buf);
-		break;
-	case IMCALL:
-		if((i->add&ARM) == AXIMM)
-			commcall(i);
-		else
-			punt(i, SRCOP|DSTOP|THREOP|WRTPC|NEWPC, optab[i->op]);
-		break;
-	case ISEND:
-	case IRECV:
-	case IALT:
-		punt(i, SRCOP|DSTOP|TCHECK|WRTPC, optab[i->op]);
-		break;
-	case ISPAWN:
-		punt(i, SRCOP|DBRAN, optab[i->op]);
-		break;
-	case IBNEC:
-	case IBEQC:
-	case IBLTC:
-	case IBLEC:
-	case IBGTC:
-	case IBGEC:
-		punt(i, SRCOP|DBRAN|NEWPC|WRTPC, optab[i->op]);
-		break;
-	case ICASEC:
-		comcase(i, 0);
-		punt(i, SRCOP|DSTOP|NEWPC, optab[i->op]);
-		break;
-	case ICASEL:
-		comcasel(i);
-		punt(i, SRCOP|DSTOP|NEWPC, optab[i->op]);
-		break;
-	case IADDC:
-	case IMULL:
-	case IDIVL:
-	case IMODL:
-	case IMNEWZ:
-	// case ILSRW:
-	case ILSRL:
-	case IMODW:
-	case IMODB:
-	case IDIVW:
-	case IDIVB:
-		punt(i, SRCOP|DSTOP|THREOP, optab[i->op]);
-		break;
-/*
-	case IMODW:
-	case IMODB:
-	case IDIVW:
-	case IDIVB:
-		SUBSP(8);
-		mid(i, Ldw, RA0);
-		MOVRH(RA0, RTMP);
-		opwld(i, Ldw, RA0);
-		STSP(4, RA0);			// movw RA0, 4(SP)
-		call 					// need to save, restore context
-		MOVHR(RTMP, RA0);
-		opwst(i, Stw, RA0);
-		ADDSP(8);
-*/
-	case ILOAD:
-	case INEWA:
-	case INEWAZ:
-	case INEW:
-	case INEWZ:
-	case ISLICEA:
-	case ISLICELA:
-	case ICONSB:
-	case ICONSW:
-	case ICONSL:
-	case ICONSF:
-	case ICONSM:
-	case ICONSMP:
-	case ICONSP:
-	case IMOVMP:
-	case IHEADMP:
-	// case IHEADB:
-	// case IHEADW:
-	// case IHEADL:
-	// case IHEADF:
-	case IINSC:
-	case ICVTAC:
-	case ICVTCW:
-	case ICVTWC:
-	case ICVTLC:
-	case ICVTCL:
-	case ICVTFC:
-	case ICVTCF:
-	case ICVTRF:
-	case ICVTFR:
-	case ICVTWS:
-	case ICVTSW:
-	case IMSPAWN:
-	case ICVTCA:
-	case ISLICEC:
-	case INBALT:
-		punt(i, SRCOP|DSTOP, optab[i->op]);
-		break;
-	case INEWCM:
-	case INEWCMP:
-		punt(i, SRCOP|DSTOP|THREOP, optab[i->op]);
-		break;
-	case IMFRAME:
-		if((i->add&ARM) == AXIMM)
-			commframe(i);
-		else
-			punt(i, SRCOP|DSTOP|THREOP, optab[i->op]);
-		break;
-	case ICASE:
-		comcase(i, 1);
-		//comcase(i, 0);
-		//punt(i, SRCOP|DSTOP|NEWPC, optab[i->op]); break;
-		break;
-	case IGOTO:
-		comgoto(i);
-		//punt(i, SRCOP|DSTOP|NEWPC, optab[i->op]); break;
-		break;
-	case IMOVL:
-	case IMOVF:
-		opwld(i, Lea, RA1);
-		LDW(RA1, 0, RA2);
-		LDW(RA1, 4, RA3);
-		opwst(i, Lea, RA1);
-		STW(RA1, 0, RA2);
-		STW(RA1, 4, RA3);
-		break;
-	case IHEADM:
-		//punt(i, SRCOP|DSTOP, optab[i->op]); break;
-		opwld(i, Ldw, RA1);
-		NOTNIL(RA1, RA2);
-		DPIR(Add, OA(List,data), RA1);
-		movmem(i);
-		break;
-	case IMOVM:
-		//punt(i, SRCOP|DSTOP, optab[i->op]); break;
-		opwld(i, Lea, RA1);
-		movmem(i);
-		break;
-	case IFRAME:
-		if(UXSRC(i->add) != SRC(AIMM)) {
-			punt(i, SRCOP|DSTOP, optab[i->op]);
-			break;
-		}
-		tinit[i->s.imm] = 1;
-		con((ulong)mod->type[i->s.imm], RA3, 1);
-		CALL(base+macro[MacFRAM]);
-		opwst(i, Stw, RA2);
-		break;
-	case INEWCB:
-	case INEWCW:
-	case INEWCF:
-	case INEWCP:
-	case INEWCL:
-		punt(i, DSTOP|THREOP, optab[i->op]);
-		break;
-	case IEXIT:
-		punt(i, 0, optab[i->op]);
-		break;
-	case ICVTBW:
-		opwld(i, Ldb, RA0);
-		opwst(i, Stw, RA0);
-		break;
-	case ICVTWB:
-		opwld(i, Ldw, RA0);
-		opwst(i, Stb, RA0);
-		break;
-	case ILEA:
-		opwld(i, Lea, RA0);
-		opwst(i, Stw, RA0);
-		break;
-	case IHEADW:
-		opwld(i, Ldw, RA0);
-		mem(Ldw, OA(List, data), RA0, RA0);
-		opwst(i, Stw, RA0);
-		break;
-	case IHEADB:
-		opwld(i, Ldw, RA0);
-		mem(Ldb, OA(List, data), RA0, RA0);
-		opwst(i, Stb, RA0);
-		break;
-	case IHEADL:
-	case IHEADF:
-		opwld(i, Ldw, RA0);
-		mem(Lea, OA(List, data), RA0, RA0);
-		LDW(RA0, 0, RA1);
-		LDW(RA0, 4, RA2);
-		opwst(i, Lea, RA0);
-		STW(RA0, 0, RA1);
-		STW(RA0, 4, RA2);
-		break;
-	case IMOVW:
-		opwld(i, Ldw, RA0);
-		opwst(i, Stw, RA0);
-		break;
-	case IMOVB:
-		opwld(i, Ldb, RA0);
-		opwst(i, Stb, RA0);
-		break;
-	case ITAIL:
-		opwld(i, Ldw, RA0);
-		NOTNIL(RA0, RA1);
-		mem(Ldw, O(List, tail), RA0, RA1);
-		goto movp;
-	case IMOVP:
-		opwld(i, Ldw, RA1);
-		goto movp;
-	case IHEADP:
-		opwld(i, Ldw, RA0);
-		NOTNIL(RA0, RA1);
-		mem(Ldw, OA(List, data), RA0, RA1);
-	movp:
-		CMPH(RA1, RA2);
-		label = code;
-		CJUMP(NE, NOBR);
-		CALLMAC(MacCOLR);		// colour if not H
-		CPATCH(label);
-		opwst(i, Lea, RA2);
-		mem(Ldw, 0, RA2, RA0);
-		mem(Stw, 0, RA2, RA1);
-		CALLMAC(MacFRP);
-		break;
-	case ILENA:
-		opwld(i, Ldw, RA1);
-		con(0, RA0, 1);
-		CMPH(RA1, RA2);
-		CJUMP(NE, 4);
-		LDW(RA1, O(Array,len), RA0);
-		opwst(i, Stw, RA0);
-		break;
-	case ILENC:
-		opwld(i, Ldw, RA1);
-		con(0, RA0, 1);
-		CMPH(RA1, RA2);
-		label = code;
-		CJUMP(NE, NOBR);
-		mem(Ldw, O(String,len),RA1, RA0);
-		CPATCH(label);
-		CMPI(0, RA0);
-		CJUMP(LT, 4);
-		DPRR(Neg, RA0, RA0);
-		opwst(i, Stw, RA0);
-		break;
-	case ILENL:
-		con(0, RA0, 1);
-		opwld(i, Ldw, RA1);
-
-		label = code;
-		CMPH(RA1, RA2);
-		label1 = code;
-		CJUMP(NE, NOBR);
-		LDW(RA1, O(List, tail), RA1);
-		DPIR(Add, 1, RA0);
-		BRA(BPATCH(label));
-		CPATCH(label1);
-
-		opwst(i, Stw, RA0);
-		break;
-	case ICALL:
-		opwld(i, Ldw, RA0);
-		con(RELPC(patch[i-mod->prog+1]), RA1, 0);
-		mem(Stw, O(Frame, lr), RA0, RA1);
-		mem(Stw, O(Frame, fp), RA0, RFP);
-		MOV(RA0, RFP);
-		BRADIS(i->d.ins-mod->prog);
-		flushcon(0);
-		break;
-	case IJMP:
-		if(RESCHED)
-			schedcheck(i);
-		BRADIS(i->d.ins-mod->prog);
-		flushcon(0);
-		break;
-	case IBEQW:
-		cbra(i, EQ);
-		break;		
-	case IBNEW:
-		cbra(i, NE);
-		break;
-	case IBLTW:
-		cbra(i, LT);
-		break;
-	case IBLEW:
-		cbra(i, LE);
-		break;
-	case IBGTW:
-		cbra(i, GT);
-		break;
-	case IBGEW:
-		cbra(i, GE);
-		break;
-	case IBEQB:
-		cbrab(i, EQ);
-		break;
-	case IBNEB:
-		cbrab(i, NE);
-		break;
-	case IBLTB:
-		cbrab(i, LT);
-		break;
-	case IBLEB:
-		cbrab(i, LE);
-		break;
-	case IBGTB:
-		cbrab(i, GT);
-		break;
-	case IBGEB:
-		cbrab(i, GE);
-		break;
-	case IBEQF:
-		cbraf(i, EQ);
-		break;
-	case IBNEF:
-		cbraf(i, NE);
-		break;
-	case IBLTF:
-		cbraf(i, LT);
-		break;
-	case IBLEF:
-		cbraf(i, LE);
-		break;
-	case IBGTF:
-		cbraf(i, GT);
-		break;
-	case IBGEF:
-		cbraf(i, GE);
-		break;
-	case IRET:
-		//punt(i, TCHECK|NEWPC, optab[i->op]); break;
-		mem(Ldw, O(Frame,t), RFP, RA1);
-		BRAMAC(MacRET);
-		break;
-	case IMULW:
-		opwld(i, Ldw, RA1);
-		mid(i, Ldw, RA0);
-		MUL(RA1, RA0);
-		opwst(i, Stw, RA0);
-		break;
-	case IMULB:
-		opwld(i, Ldb, RA1);
-		mid(i, Ldb, RA0);
-		MUL(RA1, RA0);
-		opwst(i, Stb, RA0);
-		break;
-	case IORW:
-		r = Orr;
-		goto arithw;
-	case IANDW:
-		r = And;
-		goto arithw;
-	case IXORW:
-		r = Eor;
-		goto arithw;
-	case ISUBW:
-		r = Sub;
-		goto arithw;
-	case IADDW:
-		r = Add;
-	arithw:
-		mid(i, Ldw, RA1);
-		if((r == Add || r == Sub) && UXSRC(i->add) == SRC(AIMM) && FITS3(i->s.imm)){
-			DPIRR(r, i->s.imm, RA1, RA0);
-			opwst(i, Stw, RA0);
-		}
-		else {
-			opwld(i, Ldw, RA0);
-			if(r == Add || r == Sub){
-				DPRRR(r, RA0, RA1, RA0);
-				opwst(i, Stw, RA0);
-			}
-			else{
-				DPRR(r, RA0, RA1);
-				opwst(i, Stw, RA1);
-			}
-		}
-		break;
-	case ISHRW:
-		r = Asr;
-	shiftw:
-		mid(i, Ldw, RA1);
-		if(UXSRC(i->add) == SRC(AIMM) && FITS5(i->s.imm)){
-			DPIRRS(r, i->s.imm, RA1, RA0);
-			opwst(i, Stw, RA0);
-		}
-		else {
-			opwld(i, Ldw, RA0);
-			DPRR(r, RA0, RA1);
-			opwst(i, Stw, RA1);
-		}
-		break;
-	case ISHLW:
-		r = Lsl;
-		goto shiftw;
-		break;
-	case ILSRW:
-		r = Lsr;
-		goto shiftw;
-		break;
-	case IORB:
-		r = Orr;
-		goto arithb;
-	case IANDB:
-		r = And;
-		goto arithb;
-	case IXORB:
-		r = Eor;
-		goto arithb;
-	case ISUBB:
-		r = Sub;
-		goto arithb;
-	case IADDB:
-		r = Add;
-	arithb:
-		mid(i, Ldb, RA1);
-		if((r == Add || r == Sub) && UXSRC(i->add) == SRC(AIMM) && FITS3(i->s.imm)){
-			DPIRR(r, i->s.imm, RA1, RA0);
-			opwst(i, Stb, RA0);
-		}
-		else {
-			opwld(i, Ldb, RA0);
-			if(r == Add || r == Sub){
-				DPRRR(r, RA0, RA1, RA0);
-				opwst(i, Stb, RA0);
-			}
-			else{
-				DPRR(r, RA0, RA1);
-				opwst(i, Stb, RA1);
-			}
-		}
-		break;
-	case ISHRB:
-		r = Asr;
-		goto shiftb;
-	case ISHLB:
-		r = Lsl;
-	shiftb:
-		mid(i, Ldb, RA1);
-		if(UXSRC(i->add) == SRC(AIMM) && FITS5(i->s.imm)){
-			DPIRRS(r, i->s.imm, RA1, RA0);
-			opwst(i, Stb, RA0);
-		}
-		else {
-			opwld(i, Ldw, RA0);
-			DPRR(r, RA0, RA1);
-			opwst(i, Stb, RA1);
-		}
-		break;
-	case IINDC:
-		opwld(i, Ldw, RA1);			// RA1 = string
-		NOTNIL(RA1, RA2);
-		imm = 1;
-		if((i->add&ARM) != AXIMM || !FITS8((short)i->reg<<1)){
-			mid(i, Ldw, RA2);			// RA2 = i
-			imm = 0;
-		}
-		mem(Ldw, O(String,len),RA1, RA0);	// len<0 => index Runes, otherwise bytes
-		// BUG: check !((ulong)i >= abs(a->len))
-		DPIR(Add, O(String,data), RA1);
-		CMPI(0, RA0);
-		if(imm){
-			label = code;
-			CJUMP(GE, NOBR);
-			if(i->reg < BITS(5))
-				LDB(RA1, i->reg, RA3);
-			else{
-				con(i->reg, RCON, 1);
-				LDRB(RA1, RCON, RA3);
-			}
-			CPATCH(label);
-			label = code;
-			CJUMP(LT, NOBR);
-			if((ushort)((short)i->reg<<1) < BITS(6))
-				LDH(RA1, (short)i->reg<<1, RA3);
-			else{
-				con((short)i->reg<<1, RCON, 1);
-				LDRH(RA1, RCON, RA3);
-			}
-			CPATCH(label);
-		} else {
-			CJUMP(GE, 4);
-			LDRB(RA1, RA2, RA3);
-			CJUMP(LT, 6);
-			DPIRRS(Lsl, 1, RA2, RA2);
-			LDRH(RA1, RA2, RA3);
-		}
-		opwst(i, Stw, RA3);
-		break;
-	case IINDL:
-	case IINDF:
-	case IINDW:
-	case IINDB:
-		opwld(i, Ldw, RA0);			/* a */
-		NOTNIL(RA0, RA1);
-		mem(Ldw, O(Array, data), RA0, RA0);
-		r = 0;
-		switch(i->op) {
-		case IINDL:
-		case IINDF:
-			r = 3;
-			break;
-		case IINDW:
-			r = 2;
-			break;
-		}
-		if(UXDST(i->add) == DST(AIMM) && FITS8(i->d.imm<<r)) {
-			DPIR(Add, (i->d.imm<<r), RA0);
-		} else {
-			opwst(i, Ldw, RA1);
-			DPIRRS(Lsl, r, RA1, RA1);
-			DPRRR(Add, RA0, RA1, RA0);
-		}
-		mid(i, Stw, RA0);
-		break;
-	case IINDX:
-		opwld(i, Ldw, RA0);			/* a */
-		NOTNIL(RA0, RA1);
-		opwst(i, Ldw, RA1);			/* i */
-
-		mem(Ldw, O(Array, t), RA0, RA2);
-		mem(Ldw, O(Array, data), RA0, RA0);
-		mem(Ldw, O(Type, size), RA2, RA2);
-		MUL(RA2, RA1);
-		DPRRR(Add, RA0, RA1, RA0);
-		mid(i, Stw, RA0);
-		break;
-	case IADDL:
-		larith(i, Add, Adc);
-		break;
-	case ISUBL:
-		larith(i, Sub, Sbc);
-		break;
-	case IORL:
-		larith(i, Orr, Orr);
-		break;
-	case IANDL:
-		larith(i, And, And);
-		break;
-	case IXORL:
-		larith(i, Eor, Eor);
-		break;
-	case ICVTWL:
-		opwld(i, Ldw, RA1);
-		opwst(i, Lea, RA2);
-		DPIRRS(Asr, 16, RA1, RA0);
-		DPIRRS(Asr, 16, RA0, RA0);
-		STW(RA2, 0, RA0);
-		STW(RA2, 4, RA1);
-		break;
-	case ICVTLW:
-		opwld(i, Lea, RA0);
-		mem(Ldw, 4, RA0, RA0);
-		opwst(i, Stw, RA0);
-		break;
-	case IBEQL:
-		cbral(i, NE, EQ, ANDAND);
-		break;
-	case IBNEL:
-		cbral(i, NE, NE, OROR);
-		break;
-	case IBLEL:
-		cbral(i, LT, LS, EQAND);
-		break;
-	case IBGTL:
-		cbral(i, GT, HI, EQAND);
-		break;
-	case IBLTL:
-		cbral(i, LT, CC, EQAND);
-		break;
-	case IBGEL:
-		cbral(i, GT, CS, EQAND);
-		break;
-	case ICVTFL:
-	case ICVTLF:
-		punt(i, SRCOP|DSTOP, optab[i->op]);
-		break;
-	// case IMOVF:
-	//	punt(i, SRCOP|DSTOP, optab[i->op]);
-	//	break;
-	case IDIVF:
-		goto arithf;
-	case IMULF:
-		goto arithf;
-	case ISUBF:
-		goto arithf;
-	case IADDF:
-	arithf:
-		punt(i, SRCOP|DSTOP|THREOP, optab[i->op]);
-		break;
-	case INEGF:
-		punt(i, SRCOP|DSTOP, optab[i->op]);
-		break;
-	case ICVTWF:
-		punt(i, SRCOP|DSTOP, optab[i->op]);
-		break;
-	case ICVTFW:
-		punt(i, SRCOP|DSTOP, optab[i->op]);
-		break;
-	case ISHLL:
-		punt(i, SRCOP|DSTOP|THREOP, optab[i->op]);
-		break;
-	case ISHRL:
-		punt(i, SRCOP|DSTOP|THREOP, optab[i->op]);
-		break;
-	case IRAISE:
-		punt(i, SRCOP|WRTPC|NEWPC, optab[i->op]);
-		break;
-	case IMULX:
-	case IDIVX:
-	case ICVTXX:
-	case IMULX0:
-	case IDIVX0:
-	case ICVTXX0:
-	case IMULX1:
-	case IDIVX1:
-	case ICVTXX1:
-	case ICVTFX:
-	case ICVTXF:
-	case IEXPW:
-	case IEXPL:
-	case IEXPF:
-		punt(i, SRCOP|DSTOP|THREOP, optab[i->op]);
-		break;
-	case ISELF:
-		punt(i, DSTOP, optab[i->op]);
-		break;
-	}
-}
-
-static void
-preamble(void)
-{
-	if(comvec)
-		return;
-
-	comvec = malloc(10 * sizeof(*code));
-	if(comvec == nil)
-		error(exNomem);
-	code = (ushort*)comvec;
-
-	con((ulong)&R, RREG, 0);
-	memh(Stw, O(REG, xpc), RREG, RLINK);
-	mem(Ldw, O(REG, FP), RREG, RFP);
-	mem(Ldw, O(REG, MP), RREG, RMP);
-	memh(Ldw, O(REG, PC), RREG, RPC);
-	pass = LASTPASS;
-	flushcon(0);
-	pass = FIRSTPASS;
-	// print("preamble\n");
-	// das((ushort*)comvec, code-(ushort*)comvec);
-	segflush(comvec, 10 * sizeof(*code));
-	comvec =(void *)((ulong)comvec | 1);	/* T bit */
-}
-
-static void
-maccase(void)
-{
-	ushort *cp1, *loop, *inner, *label;
-/*
- * RA1, RHT = value (input arg), t
- * RA2 = count, n
- * RA3 = table pointer (input arg)
- * RA0  = n/2, n2
- * RCON  = pivot element t+n/2*3, l
- */
-	MOVRH(RA1, RHT);
-	LDW(RA3, 0, RA2);	// count from table
-	MOVRH(RA3, RLINK);	// initial table pointer
-
-	loop = code;			// loop:
-	CMPI(0, RA2);
-	cp1 = code;
-	CBRA(LE, NOBR);	// n <= 0? goto out
-
-	inner = code;
-	DPIRRS(Lsr, 1, RA2, RA0);
-	DPIRRS(Lsl, 1, RA0, RCON);
-	DPRRR(Add, RA0, RCON, RCON);
-	DPIRRS(Lsl, 2, RCON, RCON);
-	DPRRR(Add, RA3, RCON, RCON);
-
-	LDW(RCON, 4, RA1);
-	CMPRH(RA1, RHT);
-	label = code;
-	CJUMP(LT, NOBR);
-	MOV(RA0, RA2);
-	BRA(BPATCH(loop));	// v < l[1]? goto loop
-	CPATCH(label);
-
-	LDW(RCON, 8, RA1);
-	CMPRH(RA1, RHT);
-	CJUMP(LT, 6);
-	LDW(RCON, 12, RA1);
-	MOVRH(RA1, RPC);	// v >= l[1] && v < l[2] => found; goto l[3]
-
-	// v >= l[2] (high)
-	DPIRR(Add, 7, RCON, RA3);
-	DPIR(Add, 5, RA3);
-	DPIRR(Add, 1, RA0, RA1);
-	DPRRR(Sub, RA1, RA2, RA2);
-	CBRA(GT, BPATCH(inner));	// n > 0? goto loop
-
-	CPATCH(cp1);	// out:
-	MOVHR(RLINK, RA2);
-	LDW(RA2, 0, RA2);		// initial n
-	DPIRRS(Lsl, 1, RA2, RA0);
-	DPRRR(Add, RA2, RA0, RA2);
-	DPIRRS(Lsl, 2, RA2, RA2);
-	DPRH(Add, RA2, RLINK);
-	MOVHR(RLINK, RA2);
-	LDW(RA2, 4, RA1);
-	MOVRH(RA1, RPC);		// goto (initial t)[n*3+1]
-}
-
-static void
-macfrp(void)
-{
-	ushort *label;
-
-	/* destroy the pointer in RA0 */
-	CMPH(RA0, RA2);
-	CJUMP(EQ, 4);
-	RETURN;		// arg == H? => return
-
-	mem(Ldw, O(Heap, ref)-sizeof(Heap), RA0, RA2);
-	DPIR(Sub, 1, RA2);
-	label = code;
-	CJUMP(NE, NOBR);
-	mem(Stw, O(Heap, ref)-sizeof(Heap), RA0, RA2);
-	RETURN;		// --h->ref != 0 => return
-	CPATCH(label);
-
-	mem(Stw, O(REG, FP), RREG, RFP);
-	memh(Stw, O(REG, st), RREG, RLINK);
-	mem(Stw, O(REG, s), RREG, RA0);
-	CALL(rdestroy);
-	con((ulong)&R, RREG, 1);
-	memh(Ldw, O(REG, st), RREG, RLINK);
-	mem(Ldw, O(REG, FP), RREG, RFP);
-	mem(Ldw, O(REG, MP), RREG, RMP);
-	RETURN;
-	flushcon(0);
-}
-
-static void
-maccolr(void)
-{
-	/* color the pointer in RA1 */
-	mem(Ldw, O(Heap, ref)-sizeof(Heap), RA1, RA0);
-	DPIR(Add, 1, RA0);
-	mem(Stw, O(Heap, ref)-sizeof(Heap), RA1, RA0);	// h->ref++
-	con((ulong)&mutator, RA2, 1);
-	mem(Ldw, O(Heap, color)-sizeof(Heap), RA1, RA0);
-	mem(Ldw, 0, RA2, RA2);
-	CMP(RA2, RA0);
-	CJUMP(EQ, 4);
-	RETURN;	// return if h->color == mutator
-	con(propagator, RA2, 1);
-	mem(Stw, O(Heap, color)-sizeof(Heap), RA1, RA2);	// h->color = propagator
-	con((ulong)&nprop, RA2, 1);
-	mem(Stw, 0, RA2, RA2);	// nprop = !0
-	RETURN;
-	flushcon(0);
-}
-
-static void
-macret(void)
-{
-	Inst i;
-	ushort *cp1, *cp2, *cp3, *cp4, *cp5, *linterp;
-
-	CMPI(0, RA1);
-	cp1 = code;
-	CBRA(EQ, NOBR);				// t(Rfp) == 0
-
-	mem(Ldw, O(Type,destroy),RA1, RA0);
-	CMPI(0, RA0);
-	cp2 = code;
-	CBRA(EQ, NOBR);				// destroy(t(fp)) == 0
-
-	mem(Ldw, O(Frame,fp),RFP, RA2);
-	CMPI(0, RA2);
-	cp3 = code;
-	CBRA(EQ, NOBR);				// fp(Rfp) == 0
-
-	mem(Ldw, O(Frame,mr),RFP, RA3);
-	CMPI(0, RA3);
-	cp4 = code;
-	CBRA(EQ, NOBR);				// mr(Rfp) == 0
-
-	mem(Ldw, O(REG,M),RREG, RA2);
-	mem(Ldw, O(Heap,ref)-sizeof(Heap),RA2, RA3);
-	DPIR(Sub, 1, RA3);
-	cp5 = code;
-	CBRA(EQ, NOBR);				// --ref(arg) == 0
-	mem(Stw, O(Heap,ref)-sizeof(Heap),RA2, RA3);
-
-	mem(Ldw, O(Frame,mr),RFP, RA1);
-	mem(Stw, O(REG,M),RREG, RA1);
-	mem(Ldw, O(Modlink,MP),RA1, RMP);
-	mem(Stw, O(REG,MP),RREG, RMP);
-	mem(Ldw, O(Modlink,compiled), RA1, RA3);	// R.M->compiled
-	CMPI(0, RA3);
-	linterp = code;
-	CBRA(EQ, NOBR);
-
-	CPATCH(cp4);
-	MOVHH(RPC, RLINK);		// call destroy(t(fp))
-	MOVRH(RA0, RPC);
-
-	mem(Stw, O(REG,SP),RREG, RFP);
-	mem(Ldw, O(Frame,lr),RFP, RA1);
-	mem(Ldw, O(Frame,fp),RFP, RFP);
-	mem(Stw, O(REG,FP),RREG, RFP);	// R.FP = RFP
-	MOVRH(RA1, RPC);
-
-	CPATCH(linterp);
-	MOVHH(RPC, RLINK);		// call destroy(t(fp))
-	MOVRH(RA0, RPC);
-
-	mem(Stw, O(REG,SP),RREG, RFP);
-	mem(Ldw, O(Frame,lr),RFP, RA1);
-	mem(Ldw, O(Frame,fp),RFP, RFP);
-	mem(Stw, O(REG,PC),RREG, RA1);	// R.PC = fp->lr
-	mem(Stw, O(REG,FP),RREG, RFP);	// R.FP = RFP
-	memh(Ldw, O(REG, xpc), RREG, RLINK);
-	RETURN;		// return to xec uncompiled code
-
-	CPATCH(cp1);
-	CPATCH(cp2);
-	CPATCH(cp3);
-	CPATCH(cp5);
-	i.add = AXNON;
-	punt(&i, TCHECK|NEWPC, optab[IRET]);
-}
-
-static void
-macmcal(void)
-{
-	ushort *lab, *label;
-
-	CMPH(RA0, RA1);
-	label = code;
-	CJUMP(NE, NOBR);
-	mem(Ldw, O(Modlink, prog), RA3, RA1);	// RA0 != H
-	CMPI(0, RA1);	// RA0 != H
-	lab = code;
-	CBRA(NE, NOBR);	// RA0 != H && m->prog!=0
-	CPATCH(label);
-
-	memh(Stw, O(REG, st), RREG, RLINK);
-	mem(Stw, O(REG, FP), RREG, RA2);
-	mem(Stw, O(REG, dt), RREG, RA0);
-	CALL(rmcall);				// CALL rmcall
-
-	con((ulong)&R, RREG, 1);		// MOVL	$R, RREG
-	memh(Ldw, O(REG, st), RREG, RLINK);
-	mem(Ldw, O(REG, FP), RREG, RFP);
-	mem(Ldw, O(REG, MP), RREG, RMP);
-	RETURN;
-
-	CPATCH(lab);				// patch:
-	MOV(RA2, RFP);
-	mem(Stw, O(REG, M), RREG, RA3);	// MOVL RA3, R.M
-	mem(Ldw, O(Heap, ref)-sizeof(Heap), RA3, RA1);
-	DPIR(Add, 1, RA1);
-	mem(Stw, O(Heap, ref)-sizeof(Heap), RA3, RA1);
-	mem(Ldw, O(Modlink, MP), RA3, RMP);	// MOVL R.M->mp, RMP
-	mem(Stw, O(REG, MP), RREG, RMP);	// MOVL RA3, R.MP	R.MP = ml->m
-	mem(Ldw, O(Modlink,compiled), RA3, RA1);	// M.compiled?
-	CMPI(0, RA1);
-	CJUMP(NE, 4);
-	MOVRH(RA0, RPC);
-	mem(Stw, O(REG,FP),RREG, RFP);	// R.FP = RFP
-	mem(Stw, O(REG,PC),RREG, RA0);	// R.PC = RPC
-	memh(Ldw, O(REG, xpc), RREG, RLINK);
-	RETURN;		// return to xec uncompiled code
-	flushcon(0);
-}
-
-static void
-macfram(void)
-{
-	ushort *lab1;
-
-	mem(Ldw, O(REG, SP), RREG, RA0);	// MOVL	R.SP, RA0
-	mem(Ldw, O(Type, size), RA3, RA1);
-	DPRRR(Add, RA0, RA1, RA0);
-	mem(Ldw, O(REG, TS), RREG, RA1);
-	CMP(RA1, RA0);	// nsp :: R.TS
-	lab1 = code;
-	CBRA(CS, NOBR);	// nsp >= R.TS; must expand
-
-	mem(Ldw, O(REG, SP), RREG, RA2);	// MOVL	R.SP, RA2
-	mem(Stw, O(REG, SP), RREG, RA0);	// MOVL	RA0, R.SP
-
-	mem(Stw, O(Frame, t), RA2, RA3);	// MOVL	RA3, t(RA2) f->t = t
-	con(0, RA0, 1);
-	mem(Stw, O(Frame,mr), RA2, RA0);     	// MOVL $0, mr(RA2) f->mr
-	memh(Ldw, O(Type, initialize), RA3, RPC);	// become t->init(RA2), returning RA2
-
-	CPATCH(lab1);
-	mem(Stw, O(REG, s), RREG, RA3);
-	memh(Stw, O(REG, st), RREG, RLINK);
-	mem(Stw, O(REG, FP), RREG, RFP);	// MOVL	RFP, R.FP
-	CALL(extend);				// CALL	extend
-
-	con((ulong)&R, RREG, 1);
-	memh(Ldw, O(REG, st), RREG, RLINK);
-	mem(Ldw, O(REG, FP), RREG, RFP);	// MOVL	R.FP, RFP
-	mem(Ldw, O(REG, s), RREG, RA2);	// MOVL	R.s, *R.d
-	mem(Ldw, O(REG, MP), RREG, RMP);	// MOVL R.MP, RMP
-	RETURN;					// RET
-}
-
-static void
-macmfra(void)
-{
-	memh(Stw, O(REG, st), RREG, RLINK);
-	mem(Stw, O(REG, s), RREG, RA3);	// Save type
-	mem(Stw, O(REG, d), RREG, RA0);	// Save destination
-	mem(Stw, O(REG, FP), RREG, RFP);
-	CALL(rmfram);				// CALL rmfram
-
-	con((ulong)&R, RREG, 1);
-	memh(Ldw, O(REG, st), RREG, RLINK);
-	mem(Ldw, O(REG, FP), RREG, RFP);
-	mem(Ldw, O(REG, MP), RREG, RMP);
-	RETURN;
-}
-
-static void
-macrelq(void)
-{
-	mem(Stw, O(REG,FP),RREG, RFP);	// R.FP = RFP
-	memh(Stw, O(REG,PC),RREG, RLINK);	// R.PC = RLINK
-	memh(Ldw, O(REG, xpc), RREG, RLINK);
-	RETURN;
-}
-
-void
-comd(Type *t)
-{
-	int i, j, m, c;
-
-	memh(Stw, O(REG, dt), RREG, RLINK);
-	for(i = 0; i < t->np; i++) {
-		c = t->map[i];
-		j = i<<5;
-		for(m = 0x80; m != 0; m >>= 1) {
-			if(c & m) {
-				mem(Ldw, j, RFP, RA0);
-				CALL(base+macro[MacFRP]);
-			}
-			j += sizeof(WORD*);
-		}
-		flushchk();
-	}
-	memh(Ldw, O(REG, dt), RREG, RLINK);
-	RETURN;
-	flushcon(0);
-}
-
-void
-comi(Type *t)
-{
-	int i, j = 0, m, c, r;
-
-	if(t->np > 4){
-		r = RA3;
-		MOV(RA2, RA3);
-	}
-	else
-		r = RA2;
-	con((ulong)H, RA0, 1);
-	for(i = 0; i < t->np; i++) {
-		c = t->map[i];
-		if(j == 128){
-			if(t->np <= 4) print("error: bad j in comi\n");
-			DPIR(Add, 128, RA3);
-			j = 0;
-		}
-		for(m = 0x80; m != 0; m >>= 1) {
-			if(c & m)
-				mem(Stw, j, r, RA0);
-			j += sizeof(WORD*);
-		}
-		flushchk();
-	}
-	RETURN;
-	flushcon(0);
-}
-
-void
-typecom(Type *t)
-{
-	int n;
-	ushort *tmp, *start;
-
-	if(t == nil || t->initialize != 0)
-		return;
-
-	tmp = mallocz(4096*sizeof(ulong), 0);
-	if(tmp == nil)
-		error(exNomem);
-
-	code = tmp;
-	comi(t);
-	n = code - tmp;
-	code = tmp;
-	comd(t);
-	n += code - tmp;
-	free(tmp);
-
-	n *= sizeof(*code);
-	code = mallocz(n, 0);
-	if(code == nil)
-		return;
-
-	start = code;
-	t->initialize = code;
-	comi(t);
-	t->destroy = code;
-	comd(t);
-
-	segflush(start, n);
-
-// print("type\n");
-// das(start, code-start);
-
-	if(cflag > 1)
-		print("typ= %.8lux %4d i %.8lux d %.8lux asm=%d\n",
-			t, t->size, t->initialize, t->destroy, n);
-}
-
-static void
-patchex(Module *m, ulong *p)
-{
-	Handler *h;
-	Except *e;
-
-	if((h = m->htab) == nil)
-		return;
-	for( ; h->etab != nil; h++){
-		h->pc1 = p[h->pc1];
-		h->pc2 = p[h->pc2];
-		for(e = h->etab; e->s != nil; e++)
-			e->pc = p[e->pc];
-		if(e->pc != -1)
-			e->pc = p[e->pc];
-	}
-}
-
-int
-compile(Module *m, int size, Modlink *ml)
-{
-	Link *l;
-	Modl *e;
-	int i, n;
-	ushort *s, *tmp;
-	int again, lastc = 0, lastn = 0;
-
-	base = nil;
-	patch = mallocz(size*sizeof(*patch), 0);
-	tinit = malloc(m->ntype*sizeof(*tinit));
-	tmp = malloc(4096*sizeof(ulong));
-	base = tmp;
-	if(tinit == nil || patch == nil || tmp == nil)
-		goto bad;
-
-	preamble();
-
-	mod = m;
-	pass = FIRSTPASS;
-
-	do{
-		again = 0;
-		n = 0;
-		nlit = 0;
-
-		for(i = 0; i < size; i++) {
-			codeoff = n;
-			code = tmp;
-			comp(&m->prog[i]);
-			if(patch[i] != n)
-				again = 1;
-			patch[i] = n;
-			n += code - tmp;
-		}
-
-		for(i = 0; i < nelem(mactab); i++) {
-			codeoff = n;
-			code = tmp;
-			mactab[i].gen();
-			if(macro[mactab[i].idx] != n)
-				again = 1;
-			macro[mactab[i].idx] = n;
-			n += code - tmp;
-		}
-		code = tmp;
-		flushcon(0);
-		n += code - tmp;
-		if(code-tmp != lastc || n != lastn)
-			again = 1;
-		lastc = code-tmp;
-		lastn = n;
-
-		if(pass == FIRSTPASS)
-			pass = MIDDLEPASS;
-
-	}while(again);
-
-	base = mallocz((n+nlit)*sizeof(*code), 0);
-	if(base == nil)
-		goto bad;
-
-	if(cflag > 1)
-		print("dis=%5d %5d 386=%5d asm=%.8lux: %s\n",
-			size, size*sizeof(Inst), n, base, m->name);
-
-	pass = LASTPASS;
-	nlit = 0;
-	litpool = base+n;
-	code = base;
-	n = 0;
-	codeoff = 0;
-	for(i = 0; i < size; i++) {
-		s = code;
-		comp(&m->prog[i]);
-		if(patch[i] != n) {
-			print("%3d %D\n", i, &m->prog[i]);
-			print("error: %lud != %d\n", patch[i], n);
-			urk("phase error");
-		}
-		n += code - s;
-		if(cflag > 2) {
-			print("%3d %D\n", i, &m->prog[i]);
-			das(s, code-s);
-		}
-	}
-
-	for(i = 0; i < nelem(mactab); i++) {
-		s = code;
-		mactab[i].gen();
-		if(macro[mactab[i].idx] != n){
-			print("error: mac phase err: %lud != %d\n", macro[mactab[i].idx], n);
-			urk("phase error");
-		}
-		n += code - s;
-		if(cflag > 2) {
-			print("%s:\n", mactab[i].name);
-			das(s, code-s);
-		}
-	}
-	s = code;
-	flushcon(0);
-	n += code - s;
-
-	for(l = m->ext; l->name; l++) {
-		l->u.pc = (Inst*)RELPC(patch[l->u.pc-m->prog]);
-		typecom(l->frame);
-	}
-	if(ml != nil) {
-		e = &ml->links[0];
-		for(i = 0; i < ml->nlinks; i++) {
-			e->u.pc = (Inst*)RELPC(patch[e->u.pc-m->prog]);
-			typecom(e->frame);
-			e++;
-		}
-	}
-	for(i = 0; i < m->ntype; i++) {
-		if(tinit[i] != 0)
-			typecom(m->type[i]);
-	}
-	patchex(m, patch);
-	m->entry = (Inst*)RELPC(patch[mod->entry-mod->prog]);
-	free(patch);
-	free(tinit);
-	free(tmp);
-	free(m->prog);
-	m->prog = (Inst*)base;
-	m->compiled = 1;
-	segflush(base, n*sizeof(*base));
-// print("comvec at %lux\n", (ulong)comvec);
-// print("base at %lux-%lux\n", (ulong)base, (ulong)base+2*n);
-// print("entry %lux prog %lux\n", (ulong)m->entry, (ulong)m->prog);
-	return 1;
-bad:
-	free(patch);
-	free(tinit);
-	free(base);
-	free(tmp);
-	return 0;
-}
diff --git a/libinterp/das-68000.c b/libinterp/das-68000.c
deleted file mode 100644
index 9676141f..00000000
--- a/libinterp/das-68000.c
+++ /dev/null
@@ -1 +0,0 @@
-#include "das-68020.c"
diff --git a/libinterp/das-68020.c b/libinterp/das-68020.c
deleted file mode 100644
index baca98ec..00000000
--- a/libinterp/das-68020.c
+++ /dev/null
@@ -1,1940 +0,0 @@
-#include <lib9.h>
-#include <kernel.h>
-
-/*
- * 68020-specific debugger interface
- */
-
-static	int	m68020inst(ulong, char, char*, int);
-static	int	m68020das(ulong, char*, int);
-static	int	m68020instlen(ulong);
-
-#define werrstr print
-/*
- * 68020 exception frames
- */
-
-#define BPTTRAP	4		/* breakpoint gives illegal inst */
-
-static char * excep[] = {
-	[2]	"bus error",
-	[3]	"address error",
-	[4]	"illegal instruction",
-	[5]	"zero divide",
-	[6]	"CHK",
-	[7]	"TRAP",
-	[8]	"privilege violation",
-	[9]	"Trace",
-	[10]	"line 1010",
-	[11]	"line 1011",
-	[13]	"coprocessor protocol violation",
-	[24]	"spurious",
-	[25]	"incon",
-	[26]	"tac",
-	[27]	"auto 3",
-	[28]	"clock",
-	[29]	"auto 5",
-	[30]	"parity",
-	[31]	"mouse",
-	[32]	"system call",
-	[33]	"system call 1",
-	[48]	"FPCP branch",
-	[49]	"FPCP inexact",
-	[50]	"FPCP zero div",
-	[51]	"FPCP underflow",
-	[52]	"FPCP operand err",
-	[53]	"FPCP overflow",
-	[54]	"FPCP signal NAN",
-};
-
-static int m68020vec;
-static
-struct ftype{
-	short	fmt;
-	short	len;
-	char	*name;
-} ftype[] = {		/* section 6.5.7 page 6-24 */
-	{  0,  4*2, "Short Format" },
-	{  1,  4*2, "Throwaway" },
-	{  2,  6*2, "Instruction Exception" },
-	{  3,  6*2, "MC68040 Floating Point Exception" },
-	{  8, 29*2, "MC68010 Bus Fault" },
-	{  7, 30*2, "MC68040 Bus Fault" },
-	{  9, 10*2, "Coprocessor mid-Instruction" },
-	{ 10, 16*2, "MC68020 Short Bus Fault" },
-	{ 11, 46*2, "MC68020 Long Bus Fault" },
-	{  0,    0, 0 }
-};
-static uchar *dasdata;
-
-static char *
-_hexify(char *buf, ulong p, int zeros)
-{
-	ulong d;
-
-	d = p/16;
-	if(d)
-		buf = _hexify(buf, d, zeros-1);
-	else
-		while(zeros--)
-			*buf++ = '0';
-	*buf++ = "0123456789abcdef"[p&0x0f];
-	return buf;
-}
-
-	/* 68020 Disassembler and related functions */
-/*
-not supported: cpBcc, cpDBcc, cpGEN, cpScc, cpTRAPcc, cpRESTORE, cpSAVE 
-
-opcode:					1 1 1 1 1 1
-					5 4 3 2 1 0 9 8 7 6 5 4 3 2 1 0
-%y - register number						  x x x
-%f - trap vector						  x x x
-%e - destination eff addr				    x x x x x x
-%p - conditional predicate				    x x x x x x
-%s - size code						x x
-%C - cache code						x x
-%E - source eff addr.				x x x x x x
-%d - direction bit				      x
-%c - condition code				x x x x
-%x - register number				x x x
-%b - shift count				x x x
-%q - daffy 3-bit quick operand or shift count	x x x
-%i - immediate operand <varies>
-%t - offset(PC) <varies>
-
-word 1:					1 1 1 1 1 1
-					5 4 3 2 1 0 9 8 7 6 5 4 3 2 1 0
-%a - register number						  x x x
-%w - bit field width					      x x x x x
-%L - MMU function code (SFC/DFC/D%a/#[0-3])		      x x x x x
-%P - conditional predicate				    x x x x x x
-%k - k factor						  x x x x x x x
-%m - register mask					x x x x x x x x
-%N - control register id			x x x x x x x x x x x x
-%j - (Dq != Dr) ? Dq:Dr : Dr		  x x x			  x x x
-%K - dynamic k register					  x x x
-%h - register number					x x x
-%I - MMU function code mask			      x x x x
-%o - bit field offset				  x x x x x
-%u - register number				      x x x
-%D - float dest reg				    x x x
-%F - (fdr==fsr) ? "F%D" :"F%B,F%D" 	   x x x x x x
-%S - float source type			      x x x
-%B - float source register		      x x x
-%Z - ATC level number			      x x x
-%H - MMU register			    x x x x
-%r - register type/number		x x x x
-
-word 2:					1 1 1 1 1 1
-					5 4 3 2 1 0 9 8 7 6 5 4 3 2 1 0
-%A - register number						  x x x
-%U - register number				      x x x
-%R - register type,number		x x x x
-
------------------------------------------------------------------------------
-
-%a	-	register [word 1: 0-2]
-%c	-	condition code [opcode: 8-11]
-%d	-	direction [opcode: 8]
-%e	-	destination effective address [opcode: 0-5]
-%f	-	trap vector [opcode: 0-3]
-%h	-	register [word 1: 5-7]
-%i	-	immediate operand (1, 2, or 4 bytes)
-%j	-	Dq:Dr if Dq != Dr; else Dr => Dr [word 1: 0-2] Dq [word 1: 12-14]
-%k	-	k factor [word 1: 0-6]
-%m	-	register mask [word 1: 0-7]
-%o	-	bit field offset [word 1: 6-10]
-%p	-	conditional predicate [opcode: 0-5]
-%q	-	daffy 3-bit quick operand [opcode: 9-11]
-%r	-	register type, [word 1: 15], register [word 1: 12-14]
-%s	-	size [opcode: 6-7]
-%t	-	offset beyond pc (text address) (2 or 4 bytes)
-%u	-	register [word 1: 6-8]
-%w	-	bit field width [word 1: 0-4]
-%x	-	register [opcode: 9-11]
-%y	-	register [opcode: 0-2]
-%A	-	register [word 2: 0-2]
-%B	-	float source register [word 1: 10-12]
-%C	-	cache identifier [opcode: 6-7] (IC, DC, or BC)
-%D	-	float dest reg [word 1: 7-9]
-%E	-	dest effective address [opcode: 6-11]
-%F	-	float dest reg == float src reg => "F%D"; else "F%B,F%D"
-%H	-	MMU reg [word 1: 10-13] (see above & p 4-53/54)
-%I	-	MMU function code mask [word 1: 5-8]
-%K	-	dynamic k factor register [word 1: 4-6]
-%L	-	MMU function code [word 1: 0-4] (SFC, DFC, D%a, or #[0-3])
-%N	-	control register [word 1: 0-11]
-%P	-	conditional predicate [word 1: 0-5]
-%R	-	register type, [word 2: 15], register [word 2: 12-14]
-%S	-	float source type code [word 1: 10-12]
-%U	-	register [word 2: 6-8]
-%Z	-	ATC level number [word 1: 10-12]
-%1	-	Special case: EA as second operand
-*/
-	/* Operand classes */
-enum {
-	EAPI = 1,	/* extended address: pre decrement only */
-	EACA,		/* extended address: control alterable */
-	EACAD,		/* extended address: control alterable or Dreg */
-	EACAPI,		/* extended address: control alterable or post-incr */
-	EACAPD,		/* extended address: control alterable or pre-decr */
-	EAMA,		/* extended address: memory alterable */
-	EADA,		/* extended address: data alterable */
-	EAA,		/* extended address: alterable */
-	EAC,		/* extended address: control addressing */
-	EACPI,		/* extended address: control addressing or post-incr */
-	EACD,		/* extended address: control addressing or Dreg */
-	EAD,		/* extended address: data addressing */
-	EAM,		/* extended address: memory addressing */
-	EAM_B,		/* EAM with byte immediate data */
-	EADI,		/* extended address: data addressing or immediate */
-	EADI_L,		/* EADI with long immediate data */
-	EADI_W,		/* EADI with word immediate data */
-	EAALL,		/* extended address: all modes */
-	EAALL_L,	/* EAALL with long immediate data */
-	EAALL_W,	/* EAALL with word immediate data */
-	EAALL_B,	/* EAALL with byte immediate date */
-		/* special codes not directly used for validation */
-	EAFLT,		/* extended address: EADI for B, W, L, or S; else EAM */
-	EADDA,		/* destination extended address: EADA */
-	BREAC,		/* EAC operand for JMP or CALL */
-	OP8,		/* low 8 bits of op word */
-	I8,		/* low 8-bits of first extension word */
-	I16,		/* 16 bits in first extension word */
-	I32,		/* 32 bits in first and second extension words */
-	IV,		/* 8, 16 or 32 bit data in first & 2nd extension words */
-	C16,		/* CAS2 16 bit immediate with bits 9-11 & 3-5 zero */
-	BR8,		/* 8 bits in op word or 16 or 32 bits in extension words
-				branch instruction format (p. 2-25) */
-	BR16,		/* 16-bit branch displacement */
-	BR32,		/* 32-bit branch displacement */
-	STACK,		/* return PC on stack - follow set only */
-};
-		/* validation bit masks for various EA classes */
-enum {
-	Dn	= 0x0001,	/* Data register */
-	An	= 0x0002,	/* Address register */
-	Ind	= 0x0004,	/* Address register indirect */
-	Pinc	= 0x0008,	/* Address register indirect post-increment */
-	Pdec	= 0x0010,	/* Address register indirect pre-decrement */
-	Bdisp	= 0x0020,	/* Base/Displacement in all its forms */
-	PCrel	= 0x0040,	/* PC relative addressing in all its forms */
-	Imm	= 0x0080,	/* Immediate data */
-	Abs	= 0x0100,	/* Absolute */
-};
-	/* EA validation table indexed by operand class number */
-
-static	short	validea[] =
-{
-	0,						/* none */
-	Pdec,						/* EAPI */
-	Abs|Bdisp|Ind,					/* EACA */
-	Abs|Bdisp|Ind|Dn,				/* EACAD */
-	Abs|Bdisp|Pinc|Ind,				/* EACAPI */
-	Abs|Bdisp|Pdec|Ind,				/* EACAPD */
-	Abs|Bdisp|Pdec|Pinc|Ind,			/* EAMA */
-	Abs|Bdisp|Pdec|Pinc|Ind|Dn,			/* EADA */
-	Abs|Bdisp|Pdec|Pinc|Ind|An|Dn,			/* EAA */
-	Abs|PCrel|Bdisp|Ind,				/* EAC */
-	Abs|PCrel|Bdisp|Pinc|Ind,			/* EACPI */
-	Abs|PCrel|Bdisp|Ind|Dn,				/* EACD */
-	Abs|PCrel|Bdisp|Pdec|Pinc|Ind|Dn,		/* EAD */
-	Abs|Imm|PCrel|Bdisp|Pdec|Pinc|Ind,		/* EAM */
-	Abs|Imm|PCrel|Bdisp|Pdec|Pinc|Ind,		/* EAM_B */
-	Abs|Imm|PCrel|Bdisp|Pdec|Pinc|Ind|Dn,		/* EADI */
-	Abs|Imm|PCrel|Bdisp|Pdec|Pinc|Ind|Dn,		/* EADI_L */
-	Abs|Imm|PCrel|Bdisp|Pdec|Pinc|Ind|Dn,		/* EADI_W */
-	Abs|Imm|PCrel|Bdisp|Pdec|Pinc|Ind|An|Dn,	/* EAALL */
-	Abs|Imm|PCrel|Bdisp|Pdec|Pinc|Ind|An|Dn,	/* EAALL_L */
-	Abs|Imm|PCrel|Bdisp|Pdec|Pinc|Ind|An|Dn,	/* EAALL_W */
-	Abs|Imm|PCrel|Bdisp|Pdec|Pinc|Ind|An|Dn,	/* EAALL_B */
-};
-	/* EA types */
-enum
-{
-	Dreg,		/* Dn */
-	Areg,		/* An */
-	AInd,		/* (An) */
-	APdec,		/* -(An) */
-	APinc,		/* (An)+ */
-	ADisp,		/* Displacement beyond (An) */
-	BXD,		/* Base, Index, Displacement */
-	PDisp,		/* Displacement beyond PC */
-	PXD,		/* PC, Index, Displacement */
-	ABS,		/* absolute */
-	IMM,		/* immediate */
-	IREAL,		/* single precision real immediate */
-	IEXT,		/* extended precision real immediate */
-	IPACK,		/* packed real immediate */
-	IDBL,		/* double precision real immediate */
-};
-	
-typedef	struct optable	Optable;
-typedef	struct operand	Operand;
-typedef	struct inst	Inst;
-
-struct optable
-{
-	ushort	opcode;
-	ushort	mask0;
-	ushort	op2;
-	ushort	mask1;
-	char	opdata[2];
-	char	*format;
-};
-
-struct	operand
-{
-	int	eatype;
-	short	ext;
-	union {
-		long	immediate;	/* sign-extended integer byte/word/long */
-		struct	{		/* index mode displacements */
-			long	disp;
-			long	outer;
-		};
-		char	floater[24];	/* floating point immediates */
-	};
-};
-
-struct	inst
-{
-	int	n;		/* # bytes in instruction */
-	ulong	addr;		/* addr of start of instruction */
-	ushort	raw[4+12];	/* longest instruction: 24 byte packed immediate */
-	Operand	and[2];
-	char	*end;		/* end of print buffer */
-	char	*curr;		/* current fill point in buffer */
-	char	*errmsg;
-};
-	/* class 0: bit field, MOVEP & immediate instructions */
-static Optable t0[] = {
-{ 0x003c, 0xffff, 0x0000, 0xff00, {I8},		"ORB	%i,CCR" },
-{ 0x007c, 0xffff, 0x0000, 0x0000, {I16},	"ORW	%i,SR" },
-{ 0x023c, 0xffff, 0x0000, 0xff00, {I8},		"ANDB	%i,CCR" },
-{ 0x027c, 0xffff, 0x0000, 0x0000, {I16},	"ANDW	%i,SR" },
-{ 0x0a3c, 0xffff, 0x0000, 0xff00, {I8},		"EORB	%i,CCR" },
-{ 0x0a7c, 0xffff, 0x0000, 0x0000, {I16},	"EORW	%i,SR" },
-{ 0x0cfc, 0xffff, 0x0000, 0x0000, {C16,C16},	"CAS2W	R%a:R%A,R%u:R%U,(%r):(%R)"} ,
-{ 0x0efc, 0xffff, 0x0000, 0x0000, {C16,C16},	"CAS2L	R%a:R%A,R%u:R%U,(%r):(%R)"} ,
-
-{ 0x06c0, 0xfff8, 0x0000, 0x0000, {0},		"RTM	R%y" },
-{ 0x06c8, 0xfff8, 0x0000, 0x0000, {0},		"RTM	A%y" },
-{ 0x0800, 0xfff8, 0x0000, 0x0000, {I16},	"BTSTL	%i,R%y" },
-{ 0x0840, 0xfff8, 0x0000, 0x0000, {I16},	"BCHGL	%i,R%y" },
-{ 0x0880, 0xfff8, 0x0000, 0x0000, {I16},	"BCLRL	%i,R%y" },
-
-{ 0x00c0, 0xffc0, 0x0000, 0x0fff, {EAC},	"CMP2B	%e,%r" },
-{ 0x00c0, 0xffc0, 0x0800, 0x0fff, {EAC},	"CHK2B	%e,%r" },
-{ 0x02c0, 0xffc0, 0x0000, 0x0fff, {EAC},	"CMP2W	%e,%r" },
-{ 0x02c0, 0xffc0, 0x0800, 0x0fff, {EAC},	"CHK2W	%e,%r" },
-{ 0x04c0, 0xffc0, 0x0000, 0x0fff, {EAC},	"CMP2L	%e,%r" },
-{ 0x04c0, 0xffc0, 0x0800, 0x0fff, {EAC},	"CHK2L	%e,%r" },
-{ 0x06c0, 0xffc0, 0x0000, 0x0000, {I16, BREAC},	"CALLM	%i,%e" },
-{ 0x0800, 0xffc0, 0x0000, 0x0000, {I16, EAD},	"BTSTB	%i,%e" },
-{ 0x0840, 0xffc0, 0x0000, 0x0000, {I16, EADA},	"BCHG	%i,%e" },
-{ 0x0880, 0xffc0, 0x0000, 0x0000, {I16, EADA},	"BCLR	%i,%e" },
-{ 0x08c0, 0xffc0, 0x0000, 0x0000, {I16, EADA},	"BSET	%i,%e" },
-{ 0x0ac0, 0xffc0, 0x0000, 0xfe38, {EAMA},	"CASB	R%a,R%u,%e" },
-{ 0x0cc0, 0xffc0, 0x0000, 0xfe38, {EAMA},	"CASW	R%a,R%u,%e" },
-{ 0x0ec0, 0xffc0, 0x0000, 0xfe38, {EAMA},	"CASL	R%a,R%u,%e" },
-
-{ 0x0000, 0xff00, 0x0000, 0x0000, {IV, EADA},	"OR%s	%i,%e" },
-{ 0x0200, 0xff00, 0x0000, 0x0000, {IV, EADA},	"AND%s	%i,%e" },
-{ 0x0400, 0xff00, 0x0000, 0x0000, {IV, EADA},	"SUB%s	%i,%e" },
-{ 0x0600, 0xff00, 0x0000, 0x0000, {IV, EADA},	"ADD%s	%i,%e" },
-{ 0x0a00, 0xff00, 0x0000, 0x0000, {IV, EADA},	"EOR%s	%i,%e" },
-{ 0x0c00, 0xff00, 0x0000, 0x0000, {IV, EAD},	"CMP%s	%i,%e" },
-{ 0x0e00, 0xff00, 0x0000, 0x0800, {EAMA},	"MOVES%s	%e,%r" },
-{ 0x0e00, 0xff00, 0x0800, 0x0800, {EAMA},	"MOVES%s	%r,%e" },
-
-{ 0x0108, 0xf1f8, 0x0000, 0x0000, {I16},	"MOVEPW	(%i,A%y),R%x" },
-{ 0x0148, 0xf1f8, 0x0000, 0x0000, {I16},	"MOVEPL	(%i,A%y),R%x" },
-{ 0x0188, 0xf1f8, 0x0000, 0x0000, {I16},	"MOVEPW	R%x,(%i,A%y)" },
-{ 0x01c8, 0xf1f8, 0x0000, 0x0000, {I16},	"MOVEPL	R%x,(%i,A%y)" },
-{ 0x0100, 0xf1f8, 0x0000, 0x0000, {0},		"BTSTL	R%x,R%y" },
-{ 0x0140, 0xf1f8, 0x0000, 0x0000, {0},		"BCHGL	R%x,R%y" },
-{ 0x0180, 0xf1f8, 0x0000, 0x0000, {0},		"BCLRL	R%x,R%y" },
-{ 0x01c0, 0xf1f8, 0x0000, 0x0000, {0},		"BSET	R%x,R%y" },
-
-{ 0x0100, 0xf1c0, 0x0000, 0x0000, {EAM_B},	"BTSTB	R%x,%e" },
-{ 0x0140, 0xf1c0, 0x0000, 0x0000, {EAMA},	"BCHG	R%x,%e" },
-{ 0x0180, 0xf1c0, 0x0000, 0x0000, {EAMA},	"BCLR	R%x,%e" },
-{ 0x01c0, 0xf1c0, 0x0000, 0x0000, {EAMA},	"BSET	R%x,%e" },
-{ 0,0,0,0,{0},0 },
-};
-	/* class 1: move byte */
-static Optable t1[] = {
-{ 0x1000, 0xf000, 0x0000, 0x0000, {EAALL_B,EADDA},"MOVB	%e,%E" },
-{ 0,0,0,0,{0},0 },
-};
-	/* class 2: move long */
-static Optable t2[] = {
-{ 0x2040, 0xf1c0, 0x0000, 0x0000, {EAALL_L},	  "MOVL	%e,A%x" },
-
-{ 0x2000, 0xf000, 0x0000, 0x0000, {EAALL_L,EADDA},"MOVL	%e,%E" },
-{ 0,0,0,0,{0},0 },
-};
-	/* class 3: move word */
-static Optable t3[] = {
-{ 0x3040, 0xf1c0, 0x0000, 0x0000, {EAALL_W},	  "MOVW	%e,A%x" },
-
-{ 0x3000, 0xf000, 0x0000, 0x0000, {EAALL_W,EADDA},"MOVW	%e,%E" },
-{ 0,0,0,0,{0},0 },
-};
-	/* class 4: miscellaneous */
-static Optable t4[] = {
-{ 0x4e75, 0xffff, 0x0000, 0x0000, {STACK},	"RTS" },
-{ 0x4e77, 0xffff, 0x0000, 0x0000, {STACK},	"RTR" },
-{ 0x4afc, 0xffff, 0x0000, 0x0000, {0},		"ILLEGAL" },
-{ 0x4e71, 0xffff, 0x0000, 0x0000, {0},		"NOP" },
-{ 0x4e74, 0xffff, 0x0000, 0x0000, {I16, STACK},	"RTD	%i" },
-{ 0x4e76, 0xffff, 0x0000, 0x0000, {0},		"TRAPV" },
-{ 0x4e70, 0xffff, 0x0000, 0x0000, {0},		"RESET" },
-{ 0x4e72, 0xffff, 0x0000, 0x0000, {I16},	"STOP	%i" },
-{ 0x4e73, 0xffff, 0x0000, 0x0000, {0},		"RTE" },
-{ 0x4e7a, 0xffff, 0x0000, 0x0000, {I16},	"MOVEL	%N,%r" },
-{ 0x4e7b, 0xffff, 0x0000, 0x0000, {I16},	"MOVEL	%r,%N" },
-
-{ 0x4808, 0xfff8, 0x0000, 0x0000, {I32},	"LINKL	A%y,%i" },
-{ 0x4840, 0xfff8, 0x0000, 0x0000, {0},		"SWAPW	R%y" },
-{ 0x4848, 0xfff8, 0x0000, 0x0000, {0},		"BKPT	#%y" },
-{ 0x4880, 0xfff8, 0x0000, 0x0000, {0},		"EXTW	R%y" },
-{ 0x48C0, 0xfff8, 0x0000, 0x0000, {0},		"EXTL	R%y" },
-{ 0x49C0, 0xfff8, 0x0000, 0x0000, {0},		"EXTBL	R%y" },
-{ 0x4e50, 0xfff8, 0x0000, 0x0000, {I16},	"LINKW	A%y,%i" },
-{ 0x4e58, 0xfff8, 0x0000, 0x0000, {0},		"UNLK	A%y" },
-{ 0x4e60, 0xfff8, 0x0000, 0x0000, {0},		"MOVEL	(A%y),USP" },
-{ 0x4e68, 0xfff8, 0x0000, 0x0000, {0},		"MOVEL	USP,(A%y)" },
-
-{ 0x4e40, 0xfff0, 0x0000, 0x0000, {0},		"SYS	%f" },
-
-{ 0x40c0, 0xffc0, 0x0000, 0x0000, {EADA},	"MOVW	SR,%e" },
-{ 0x42c0, 0xffc0, 0x0000, 0x0000, {EADA},	"MOVW	CCR,%e" },
-{ 0x44c0, 0xffc0, 0x0000, 0x0000, {EADI_W},	"MOVW	%e,CCR" },
-{ 0x46c0, 0xffc0, 0x0000, 0x0000, {EADI_W},	"MOVW	%e,SR" },
-{ 0x4800, 0xffc0, 0x0000, 0x0000, {EADA},	"NBCDB	%e" },
-{ 0x4840, 0xffc0, 0x0000, 0x0000, {EAC},	"PEA	%e" },
-{ 0x4880, 0xffc0, 0x0000, 0x0000, {I16, EACAPD},"MOVEMW	%i,%e" },
-{ 0x48c0, 0xffc0, 0x0000, 0x0000, {I16, EACAPD},"MOVEML	%i,%e" },
-{ 0x4ac0, 0xffc0, 0x0000, 0x0000, {EADA},	"TAS	%e" },
-{ 0x4a00, 0xffc0, 0x0000, 0x0000, {EAD},	"TSTB	%e" },
-{ 0x4c00, 0xffc0, 0x0000, 0x8ff8, {EADI_L},	"MULUL	%e,%r" },
-{ 0x4c00, 0xffc0, 0x0400, 0x8ff8, {EADI_L},	"MULUL	%e,R%a:%r" },
-{ 0x4c00, 0xffc0, 0x0800, 0x8ff8, {EADI_L},	"MULSL	%e,%r" },
-{ 0x4c00, 0xffc0, 0x0c00, 0x8ff8, {EADI_L},	"MULSL	%e,R%a:%r" },
-{ 0x4c40, 0xffc0, 0x0000, 0x8ff8, {EADI_L},	"DIVUL	%e,%j" },
-{ 0x4c40, 0xffc0, 0x0400, 0x8ff8, {EADI_L},	"DIVUD	%e,%r:R%a" },
-{ 0x4c40, 0xffc0, 0x0800, 0x8ff8, {EADI_L},	"DIVSL	%e,%j" },
-{ 0x4c40, 0xffc0, 0x0c00, 0x8ff8, {EADI_L},	"DIVSD	%e,%r:R%a" },
-{ 0x4c80, 0xffc0, 0x0000, 0x0000, {I16, EACPI}, "MOVEMW	%1,%i" },
-{ 0x4cc0, 0xffc0, 0x0000, 0x0000, {I16, EACPI}, "MOVEML	%1,%i" },
-{ 0x4e80, 0xffc0, 0x0000, 0x0000, {BREAC},	"JSR	%e" },
-{ 0x4ec0, 0xffc0, 0x0000, 0x0000, {BREAC},	"JMP	%e" },
-
-{ 0x4000, 0xff00, 0x0000, 0x0000, {EADA},	"NEGX%s	%e" },
-{ 0x4200, 0xff00, 0x0000, 0x0000, {EADA},	"CLR%s	%e" },
-{ 0x4400, 0xff00, 0x0000, 0x0000, {EADA},	"NEG%s	%e" },
-{ 0x4600, 0xff00, 0x0000, 0x0000, {EADA},	"NOT%s	%e" },
-{ 0x4a00, 0xff00, 0x0000, 0x0000, {EAALL},	"TST%s	%e" },
-
-{ 0x4180, 0xf1c0, 0x0000, 0x0000, {EADI_W},	"CHKW	%e,R%x" },
-{ 0x41c0, 0xf1c0, 0x0000, 0x0000, {EAC},	"LEA	%e,A%x" },
-{ 0x4100, 0xf1c0, 0x0000, 0x0000, {EADI_L},	"CHKL	%e,R%x" },
-{ 0,0,0,0,{0},0 },
-};
-	/* class 5:  miscellaneous quick, branch & trap instructions */
-static Optable t5[] = {
-{ 0x5000, 0xf1c0, 0x0000, 0x0000, {EADA},	"ADDB	$Q#%q,%e" },
-{ 0x5100, 0xf1c0, 0x0000, 0x0000, {EADA},	"SUBB	$Q#%q,%e" },
-
-{ 0x50c8, 0xf1f8, 0x0000, 0x0000, {BR16},	"DB%c	R%y,%t" },
-{ 0x51c8, 0xf1f8, 0x0000, 0x0000, {BR16},	"DB%c	R%y,%t" },
-
-{ 0x5000, 0xf1c0, 0x0000, 0x0000, {EAA},	"ADDB	$Q#%q,%e" },
-{ 0x5040, 0xf1c0, 0x0000, 0x0000, {EAA},	"ADDW	$Q#%q,%e" },
-{ 0x5080, 0xf1c0, 0x0000, 0x0000, {EAA},	"ADDL	$Q#%q,%e" },
-{ 0x5100, 0xf1c0, 0x0000, 0x0000, {EAA},	"SUBB	$Q#%q,%e" },
-{ 0x5140, 0xf1c0, 0x0000, 0x0000, {EAA},	"SUBW	$Q#%q,%e" },
-{ 0x5180, 0xf1c0, 0x0000, 0x0000, {EAA},	"SUBL	$Q#%q,%e" },
-
-{ 0x50fa, 0xf0ff, 0x0000, 0x0000, {I16},	"TRAP%cW	%i" },
-{ 0x50fb, 0xf0ff, 0x0000, 0x0000, {I32},	"TRAP%cL	%i" },
-{ 0x50fc, 0xf0ff, 0x0000, 0x0000, {0},		"TRAP%c" },
-
-{ 0x50c0, 0xf0c0, 0x0000, 0x0000, {EADA},	"S%c	%e" },
-{ 0,0,0,0,{0},0 },
-};
-	/* class 6: branch instructions */
-static Optable t6[] = {
-{ 0x6000, 0xff00, 0x0000, 0x0000, {BR8},	"BRA	%t" },
-{ 0x6100, 0xff00, 0x0000, 0x0000, {BR8},	"BSR	%t" },
-{ 0x6000, 0xf000, 0x0000, 0x0000, {BR8},	"B%c	%t" },
-{ 0,0,0,0,{0},0 },
-};
-	/* class 7: move quick */
-static Optable t7[] = {
-{ 0x7000, 0xf100, 0x0000, 0x0000, {OP8},	"MOVL	$Q%i,R%x" },
-{ 0,0,0,0,{0},0 },
-};
-	/* class 8: BCD operations, DIV, and OR instructions */
-static Optable t8[] = {
-{ 0x8100, 0xf1f8, 0x0000, 0x0000, {0},		"SBCDB	R%y,R%x" },
-{ 0x8108, 0xf1f8, 0x0000, 0x0000, {0},		"SBCDB	-(A%y),-(A%x)" },
-{ 0x8140, 0xf1f8, 0x0000, 0x0000, {I16},	"PACK	R%y,R%x,%i" },
-{ 0x8148, 0xf1f8, 0x0000, 0x0000, {I16},	"PACK	-(A%y),-(A%x),%i" },
-{ 0x8180, 0xf1f8, 0x0000, 0x0000, {I16},	"UNPK	R%y,R%x,%i" },
-{ 0x8188, 0xf1f8, 0x0000, 0x0000, {I16},	"UNPK	-(A%y),-(A%x),%i" },
-
-{ 0x80c0, 0xf1c0, 0x0000, 0x0000, {EADI_W},	"DIVUW	%e,R%x" },
-{ 0x81c0, 0xf1c0, 0x0000, 0x0000, {EADI_W},	"DIVSW	%e,R%x" },
-
-{ 0x8000, 0xf100, 0x0000, 0x0000, {EADI},	"OR%s	%e,R%x" },
-{ 0x8100, 0xf100, 0x0000, 0x0000, {EAMA},	"OR%s	R%x,%e" },
-{ 0,0,0,0,{0},0 },
-};
-	/* class 9: subtract instruction */
-static Optable t9[] = {
-{ 0x90c0, 0xf1c0, 0x0000, 0x0000, {EAALL_W},	"SUBW	%e,A%x" },
-{ 0x91c0, 0xf1c0, 0x0000, 0x0000, {EAALL_L},	"SUBL	%e,A%x" },
-
-{ 0x9100, 0xf138, 0x0000, 0x0000, {0},		"SUBX%s	R%y,R%x" },
-{ 0x9108, 0xf138, 0x0000, 0x0000, {0},		"SUBX%s	-(A%y),-(A%x)" },
-
-{ 0x9000, 0xf100, 0x0000, 0x0000, {EAALL},	"SUB%s	%e,R%x" },
-{ 0x9100, 0xf100, 0x0000, 0x0000, {EAMA},	"SUB%s	R%x,%e" },
-{ 0,0,0,0,{0},0 },
-};
-	/* class b: CMP & EOR */
-static Optable tb[] = {
-{ 0xb000, 0xf1c0, 0x0000, 0x0000, {EADI},	"CMPB	R%x,%e" },
-{ 0xb040, 0xf1c0, 0x0000, 0x0000, {EAALL_W},	"CMPW	R%x,%e" },
-{ 0xb080, 0xf1c0, 0x0000, 0x0000, {EAALL_L},	"CMPL	R%x,%e" },
-{ 0xb0c0, 0xf1c0, 0x0000, 0x0000, {EAALL_W},	"CMPW	A%x,%e" },
-{ 0xb1c0, 0xf1c0, 0x0000, 0x0000, {EAALL_L},	"CMPL	A%x,%e" },
-
-{ 0xb108, 0xf138, 0x0000, 0x0000, {0},		"CMP%s	(A%y)+,(A%x)+" },
-
-{ 0xb100, 0xf100, 0x0000, 0x0000, {EADA},	"EOR%s	%e,R%x" },
-{ 0,0,0,0,{0},0 },
-};
-	/* class c: AND, MUL, BCD & Exchange */
-static Optable tc[] = {
-{ 0xc100, 0xf1f8, 0x0000, 0x0000, {0},		"ABCDB	R%y,R%x" },
-{ 0xc108, 0xf1f8, 0x0000, 0x0000, {0},		"ABCDB	-(A%y),-(A%x)" },
-{ 0xc140, 0xf1f8, 0x0000, 0x0000, {0},		"EXG	R%x,R%y" },
-{ 0xc148, 0xf1f8, 0x0000, 0x0000, {0},		"EXG	A%x,A%y" },
-{ 0xc188, 0xf1f8, 0x0000, 0x0000, {0},		"EXG	R%x,A%y" },
-
-{ 0xc0c0, 0xf1c0, 0x0000, 0x0000, {EADI_W},	"MULUW	%e,R%x" },
-{ 0xc1c0, 0xf1c0, 0x0000, 0x0000, {EADI_W},	"MULSW	%e,R%x" },
-
-{ 0xc000, 0xf100, 0x0000, 0x0000, {EADI},	"AND%s	%e,R%x" },
-{ 0xc100, 0xf100, 0x0000, 0x0000, {EAMA},	"AND%s	R%x,%e" },
-{ 0,0,0,0,{0},0 },
-};
-	/* class d: addition  */
-static Optable td[] = {
-{ 0xd000, 0xf1c0, 0x0000, 0x0000, {EADI},	"ADDB	%e,R%x" },
-{ 0xd0c0, 0xf1c0, 0x0000, 0x0000, {EAALL_W},	"ADDW	%e,A%x" },
-{ 0xd1c0, 0xf1c0, 0x0000, 0x0000, {EAALL_L},	"ADDL	%e,A%x" },
-
-{ 0xd100, 0xf138, 0x0000, 0x0000, {0},		"ADDX%s	R%y,R%x" },
-{ 0xd108, 0xf138, 0x0000, 0x0000, {0},		"ADDX%s	-(A%y),-(A%x)" },
-
-{ 0xd000, 0xf100, 0x0000, 0x0000, {EAALL},	"ADD%s	%e,R%x" },
-{ 0xd100, 0xf100, 0x0000, 0x0000, {EAMA},	"ADD%s	R%x,%e" },
-{ 0,0,0,0,{0},0 },
-};
-	/* class e: shift, rotate, bit field operations */
-static Optable te[] = {
-{ 0xe8c0, 0xffc0, 0x0820, 0xfe38, {EACD},	"BFTST	%e{R%u:R%a}" },
-{ 0xe8c0, 0xffc0, 0x0800, 0xfe20, {EACD},	"BFTST	%e{R%u:%w}" },
-{ 0xe8c0, 0xffc0, 0x0020, 0xf838, {EACD},	"BFTST	%e{%o:R%a}" },
-{ 0xe8c0, 0xffc0, 0x0000, 0xf820, {EACD},	"BFTST	%e{%o:%w}" },
-
-{ 0xe9c0, 0xffc0, 0x0820, 0x8e38, {EACD},	"BFEXTU	%e{R%u:R%a},%r" },
-{ 0xe9c0, 0xffc0, 0x0800, 0x8e20, {EACD},	"BFEXTU	%e{R%u:%w},%r" },
-{ 0xe9c0, 0xffc0, 0x0020, 0x8838, {EACD},	"BFEXTU	%e{%o:R%a},%r" },
-{ 0xe9c0, 0xffc0, 0x0000, 0x8820, {EACD},	"BFEXTU	%e{%o:%w},%r" },
-
-{ 0xeac0, 0xffc0, 0x0820, 0xfe38, {EACAD},	"BFCHG	%e{R%u:R%a}" },
-{ 0xeac0, 0xffc0, 0x0800, 0xfe20, {EACAD},	"BFCHG	%e{R%u:%w}" },
-{ 0xeac0, 0xffc0, 0x0020, 0xf838, {EACAD},	"BFCHG	%e{%o:R%a}" },
-{ 0xeac0, 0xffc0, 0x0000, 0xf820, {EACAD},	"BFCHG	%e{%o:%w}" },
-
-{ 0xebc0, 0xffc0, 0x0820, 0x8e38, {EACD},	"BFEXTS	%e{R%u:R%a},%r" },
-{ 0xebc0, 0xffc0, 0x0800, 0x8e20, {EACD},	"BFEXTS	%e{R%u:%w},%r" },
-{ 0xebc0, 0xffc0, 0x0020, 0x8838, {EACD},	"BFEXTS	%e{%o:R%a},%r" },
-{ 0xebc0, 0xffc0, 0x0000, 0x8820, {EACD},	"BFEXTS	%e{%o:%w},%r" },
-
-{ 0xecc0, 0xffc0, 0x0820, 0xfe38, {EACAD},	"BFCLR	%e{R%u:R%a}" },
-{ 0xecc0, 0xffc0, 0x0800, 0xfe20, {EACAD},	"BFCLR	%e{R%u:%w}" },
-{ 0xecc0, 0xffc0, 0x0020, 0xf838, {EACAD},	"BFCLR	%e{%o:R%a}" },
-{ 0xecc0, 0xffc0, 0x0000, 0xf820, {EACAD},	"BFCLR	%e{%o:%w}" },
-
-{ 0xedc0, 0xffc0, 0x0820, 0x8e38, {EACAD},	"BFFFO	%e{R%u:R%a},%r" },
-{ 0xedc0, 0xffc0, 0x0800, 0x8e20, {EACAD},	"BFFFO	%e{R%u:%w},%r" },
-{ 0xedc0, 0xffc0, 0x0020, 0x8838, {EACAD},	"BFFFO	%e{%o:R%a},%r" },
-{ 0xedc0, 0xffc0, 0x0000, 0x8820, {EACAD},	"BFFFO	%e{%o:%w},%r" },
-
-{ 0xeec0, 0xffc0, 0x0820, 0xfe38, {EACAD},	"BFSET	%e{R%u:R%a}" },
-{ 0xeec0, 0xffc0, 0x0800, 0xfe20, {EACAD},	"BFSET	%e{R%u:%w}" },
-{ 0xeec0, 0xffc0, 0x0020, 0xf838, {EACAD},	"BFSET	%e{%o:R%a}" },
-{ 0xeec0, 0xffc0, 0x0000, 0xf820, {EACAD},	"BFSET	%e{%o:%w}" },
-
-{ 0xefc0, 0xffc0, 0x0820, 0x8e38, {EACAD},	"BFINS	%r,%e{R%u:R%a}" },
-{ 0xefc0, 0xffc0, 0x0800, 0x8e20, {EACAD},	"BFINS	%r,%e{R%u:%w}" },
-{ 0xefc0, 0xffc0, 0x0020, 0x8838, {EACAD},	"BFINS	%r,%e{%o:R%a}" },
-{ 0xefc0, 0xffc0, 0x0000, 0x8820, {EACAD},	"BFINS	%r,%e{%o:%w}" },
-
-{ 0xe0c0, 0xfec0, 0x0000, 0x0000, {EAMA},	"AS%dW	%e" },
-{ 0xe2c0, 0xfec0, 0x0000, 0x0000, {EAMA},	"LS%dW	%e" },
-{ 0xe4c0, 0xfec0, 0x0000, 0x0000, {EAMA},	"ROX%dW	%e" },
-{ 0xe6c0, 0xfec0, 0x0000, 0x0000, {EAMA},	"RO%dW	%e" },
-
-{ 0xe000, 0xf038, 0x0000, 0x0000, {0},		"AS%d%s	#%q,R%y" },
-{ 0xe008, 0xf038, 0x0000, 0x0000, {0},		"LS%d%s	#%q,R%y" },
-{ 0xe010, 0xf038, 0x0000, 0x0000, {0},		"ROX%d%s	#%q,R%y" },
-{ 0xe018, 0xf038, 0x0000, 0x0000, {0},		"RO%d%s	#%q,R%y" },
-{ 0xe020, 0xf038, 0x0000, 0x0000, {0},		"AS%d%s	R%x,R%y" },
-{ 0xe028, 0xf038, 0x0000, 0x0000, {0},		"LS%d%s	R%x,R%y" },
-{ 0xe030, 0xf038, 0x0000, 0x0000, {0},		"ROX%d%s	R%x,R%y" },
-{ 0xe038, 0xf038, 0x0000, 0x0000, {0},		"RO%d%s	R%x,R%y" },
-{ 0,0,0,0,{0},0 },
-};
-	/* class f: coprocessor and mmu instructions */
-static Optable tf[] = {
-{ 0xf280, 0xffff, 0x0000, 0xffff, {0},		"FNOP" },
-{ 0xf200, 0xffff, 0x5c00, 0xfc00, {0},		"FMOVECRX	%k,F%D" },
-{ 0xf27a, 0xffff, 0x0000, 0xffc0, {I16},	"FTRAP%P	%i" },
-{ 0xf27b, 0xffff, 0x0000, 0xffc0, {I32},	"FTRAP%P	%i" },
-{ 0xf27c, 0xffff, 0x0000, 0xffc0, {0},		"FTRAP%P" },
-
-{ 0xf248, 0xfff8, 0x0000, 0xffc0, {BR16},	"FDB%P	R%y,%t" },
-{ 0xf620, 0xfff8, 0x8000, 0x8fff, {0},		"MOVE16	(A%y)+,(%r)+" },
-{ 0xf500, 0xfff8, 0x0000, 0x0000, {0},		"PFLUSHN	(A%y)" },
-{ 0xf508, 0xfff8, 0x0000, 0x0000, {0},		"PFLUSH	(A%y)" },
-{ 0xf510, 0xfff8, 0x0000, 0x0000, {0},		"PFLUSHAN" },
-{ 0xf518, 0xfff8, 0x0000, 0x0000, {0},		"PFLUSHA" },
-{ 0xf548, 0xfff8, 0x0000, 0x0000, {0},		"PTESTW	(A%y)" },
-{ 0xf568, 0xfff8, 0x0000, 0x0000, {0},		"PTESTR	(A%y)" },
-{ 0xf600, 0xfff8, 0x0000, 0x0000, {I32},	"MOVE16	(A%y)+,$%i" },
-{ 0xf608, 0xfff8, 0x0000, 0x0000, {I32},	"MOVE16	$%i,(A%y)-" },
-{ 0xf610, 0xfff8, 0x0000, 0x0000, {I32},	"MOVE16	(A%y),$%i" },
-{ 0xf618, 0xfff8, 0x0000, 0x0000, {I32},	"MOVE16	$%i,(A%y)" },
-
-{ 0xf000, 0xffc0, 0x0800, 0xffff, {EACA},	"PMOVE	%e,TT0" },
-{ 0xf000, 0xffc0, 0x0900, 0xffff, {EACA},	"PMOVEFD	%e,TT0" },
-{ 0xf000, 0xffc0, 0x0a00, 0xffff, {EACA},	"PMOVE	TT0,%e" },
-{ 0xf000, 0xffc0, 0x0b00, 0xffff, {EACA},	"PMOVEFD	TT0,%e" },
-{ 0xf000, 0xffc0, 0x0c00, 0xffff, {EACA},	"PMOVE	%e,TT1" },
-{ 0xf000, 0xffc0, 0x0d00, 0xffff, {EACA},	"PMOVEFD	%e,TT1" },
-{ 0xf000, 0xffc0, 0x0e00, 0xffff, {EACA},	"PMOVE	TT1,%e" },
-{ 0xf000, 0xffc0, 0x0f00, 0xffff, {EACA},	"PMOVEFD	TT1,%e" },
-{ 0xf000, 0xffc0, 0x2400, 0xffff, {0},		"PFLUSHA" },
-{ 0xf000, 0xffc0, 0x2800, 0xffff, {EACA},	"PVALID	VAL,%e" },
-{ 0xf000, 0xffc0, 0x6000, 0xffff, {EACA},	"PMOVE	%e,MMUSR" },
-{ 0xf000, 0xffc0, 0x6200, 0xffff, {EACA},	"PMOVE	MMUSR,%e" },
-{ 0xf000, 0xffc0, 0x2800, 0xfff8, {EACA},	"PVALID	A%a,%e" },
-{ 0xf000, 0xffc0, 0x2000, 0xffe0, {EACA},	"PLOADW	%L,%e" },
-{ 0xf000, 0xffc0, 0x2200, 0xffe0, {EACA},	"PLOADR	%L,%e" },
-{ 0xf000, 0xffc0, 0x8000, 0xffe0, {EACA},	"PTESTW	%L,%e,#0" },
-{ 0xf000, 0xffc0, 0x8200, 0xffe0, {EACA},	"PTESTR	%L,%e,#0" },
-{ 0xf000, 0xffc0, 0x3000, 0xfe00, {0},		"PFLUSH	%L,#%I" },
-{ 0xf000, 0xffc0, 0x3800, 0xfe00, {EACA},	"PFLUSH	%L,#%I,%e" },
-{ 0xf000, 0xffc0, 0x8000, 0xe300, {EACA},	"PTESTW	%L,%e,#%Z" },
-{ 0xf000, 0xffc0, 0x8100, 0xe300, {EACA},	"PTESTW	%L,%e,#%Z,A%h" },
-{ 0xf000, 0xffc0, 0x8200, 0xe300, {EACA},	"PTESTR	%L,%e,#%Z" },
-{ 0xf000, 0xffc0, 0x8300, 0xe300, {EACA},	"PTESTR	%L,%e,#%Z,A%h" },
-{ 0xf000, 0xffc0, 0x4000, 0xc3ff, {EACA},	"PMOVE	%e,%H" },
-{ 0xf000, 0xffc0, 0x4100, 0xc3ff, {EACA},	"PMOVEFD	%e,%H" },
-{ 0xf000, 0xffc0, 0x4200, 0xc3ff, {EACA},	"PMOVE	%H,%e" },
-
-	/* floating point (coprocessor 1)*/
-
-{ 0xf200, 0xffc0, 0x8400, 0xffff, {EAALL_L},	"FMOVEL	%e,FPIAR" },
-{ 0xf200, 0xffc0, 0x8800, 0xffff, {EADI_L},	"FMOVEL	%e,FPSR" },
-{ 0xf200, 0xffc0, 0x9000, 0xffff, {EADI_L},	"FMOVEL	%e,FPCR" },
-{ 0xf200, 0xffc0, 0xa400, 0xffff, {EAA},	"FMOVEL	FPIAR,%e" },
-{ 0xf200, 0xffc0, 0xa800, 0xffff, {EADA},	"FMOVEL	FPSR,%e" },
-{ 0xf200, 0xffc0, 0xb000, 0xffff, {EADA},	"FMOVEL	FPCR,%e" },
-
-{ 0xf240, 0xffc0, 0x0000, 0xffc0, {EADA},	"FS%P	%e" },
-
-{ 0xf200, 0xffc0, 0xd000, 0xff00, {EACPI},	"FMOVEMX	%e,%m" },
-{ 0xf200, 0xffc0, 0xd800, 0xff00, {EACPI},	"FMOVEMX	%e,R%K" },
-{ 0xf200, 0xffc0, 0xe000, 0xff00, {EAPI},	"FMOVEMX	%m,-(A%y)" },
-{ 0xf200, 0xffc0, 0xe800, 0xff00, {EAPI},	"FMOVEMX	R%K,-(A%y)" },
-{ 0xf200, 0xffc0, 0xf000, 0xff00, {EACAPD},	"FMOVEMX	%m,%e" },
-{ 0xf200, 0xffc0, 0xf800, 0xff00, {EACAPD},	"FMOVEMX	R%K,%e" },
-
-{ 0xf200, 0xffc0, 0x6800, 0xfc00, {EAMA},	"FMOVEX	F%D,%e" },
-{ 0xf200, 0xffc0, 0x6c00, 0xfc00, {EAMA},	"FMOVEP	F%D,%e,{%k}" },
-{ 0xf200, 0xffc0, 0x7400, 0xfc00, {EAMA},	"FMOVED	F%D,%e" },
-{ 0xf200, 0xffc0, 0x7c00, 0xfc00, {EAMA},	"FMOVEP	F%D,%e,{R%K}" },
-
-{ 0xf200, 0xffc0, 0x8000, 0xe3ff, {EAM},	"FMOVEML	#%B,%e" },
-{ 0xf200, 0xffc0, 0xa000, 0xe3ff, {EAMA},	"FMOVEML	%e,#%B" },
-
-{ 0xf200, 0xffc0, 0x0000, 0xe07f, {0},		"FMOVE	F%B,F%D" },
-{ 0xf200, 0xffc0, 0x0001, 0xe07f, {0},		"FINTX	%F" },
-{ 0xf200, 0xffc0, 0x0002, 0xe07f, {0},		"FSINHX	%F" },
-{ 0xf200, 0xffc0, 0x0003, 0xe07f, {0},		"FINTRZ	%F" },
-{ 0xf200, 0xffc0, 0x0004, 0xe07f, {0},		"FSQRTX	%F" },
-{ 0xf200, 0xffc0, 0x0006, 0xe07f, {0},		"FLOGNP1X	%F" },
-{ 0xf200, 0xffc0, 0x0009, 0xe07f, {0},		"FTANHX	%F" },
-{ 0xf200, 0xffc0, 0x000a, 0xe07f, {0},		"FATANX	%F" },
-{ 0xf200, 0xffc0, 0x000c, 0xe07f, {0},		"FASINX	%F" },
-{ 0xf200, 0xffc0, 0x000d, 0xe07f, {0},		"FATANHX	%F" },
-{ 0xf200, 0xffc0, 0x000e, 0xe07f, {0},		"FSINX	%F" },
-{ 0xf200, 0xffc0, 0x000f, 0xe07f, {0},		"FTANX	%F" },
-{ 0xf200, 0xffc0, 0x0010, 0xe07f, {0},		"FETOXX	%F" },
-{ 0xf200, 0xffc0, 0x0011, 0xe07f, {0},		"FTWOTOXX	%F" },
-{ 0xf200, 0xffc0, 0x0012, 0xe07f, {0},		"FTENTOXX	%F" },
-{ 0xf200, 0xffc0, 0x0014, 0xe07f, {0},		"FLOGNX	%F" },
-{ 0xf200, 0xffc0, 0x0015, 0xe07f, {0},		"FLOG10X	%F" },
-{ 0xf200, 0xffc0, 0x0016, 0xe07f, {0},		"FLOG2X	%F" },
-{ 0xf200, 0xffc0, 0x0018, 0xe07f, {0},		"FABSX	%F" },
-{ 0xf200, 0xffc0, 0x0019, 0xe07f, {0},		"FCOSHX	%F" },
-{ 0xf200, 0xffc0, 0x001a, 0xe07f, {0},		"FNEGX	%F" },
-{ 0xf200, 0xffc0, 0x001c, 0xe07f, {0},		"FACOSX	%F" },
-{ 0xf200, 0xffc0, 0x001d, 0xe07f, {0},		"FCOSX	%F" },
-{ 0xf200, 0xffc0, 0x001e, 0xe07f, {0},		"FGETEXPX	%F" },
-{ 0xf200, 0xffc0, 0x001f, 0xe07f, {0},		"FGETMANX	%F" },
-{ 0xf200, 0xffc0, 0x0020, 0xe07f, {0},		"FDIVX	F%B,F%D" },
-{ 0xf200, 0xffc0, 0x0021, 0xe07f, {0},		"FMODX	F%B,F%D" },
-{ 0xf200, 0xffc0, 0x0022, 0xe07f, {0},		"FADDX	F%B,F%D" },
-{ 0xf200, 0xffc0, 0x0023, 0xe07f, {0},		"FMULX	F%B,F%D" },
-{ 0xf200, 0xffc0, 0x0024, 0xe07f, {0},		"FSGLDIVX	F%B,F%D" },
-{ 0xf200, 0xffc0, 0x0025, 0xe07f, {0},		"FREMX	F%B,F%D" },
-{ 0xf200, 0xffc0, 0x0026, 0xe07f, {0},		"FSCALEX	F%B,F%D" },
-{ 0xf200, 0xffc0, 0x0027, 0xe07f, {0},		"FSGLMULX	F%B,F%D" },
-{ 0xf200, 0xffc0, 0x0028, 0xe07f, {0},		"FSUBX	F%B,F%D" },
-{ 0xf200, 0xffc0, 0x0038, 0xe07f, {0},		"FCMPX	F%B,F%D" },
-{ 0xf200, 0xffc0, 0x003a, 0xe07f, {0},		"FTSTX	F%B" },
-{ 0xf200, 0xffc0, 0x0040, 0xe07f, {0},		"FSMOVE	F%B,F%D" },
-{ 0xf200, 0xffc0, 0x0041, 0xe07f, {0},		"FSSQRTX	%F"},
-{ 0xf200, 0xffc0, 0x0044, 0xe07f, {0},		"FDMOVE	F%B,F%D" },
-{ 0xf200, 0xffc0, 0x0045, 0xe07f, {0},		"FDSQRTX	%F" },
-{ 0xf200, 0xffc0, 0x0058, 0xe07f, {0},		"FSABSX	%F" },
-{ 0xf200, 0xffc0, 0x005a, 0xe07f, {0},		"FSNEGX	%F" },
-{ 0xf200, 0xffc0, 0x005c, 0xe07f, {0},		"FDABSX	%F" },
-{ 0xf200, 0xffc0, 0x005e, 0xe07f, {0},		"FDNEGX	%F" },
-{ 0xf200, 0xffc0, 0x0060, 0xe07f, {0},		"FSDIVX	F%B,F%D" },
-{ 0xf200, 0xffc0, 0x0062, 0xe07f, {0},		"FSADDX	F%B,F%D" },
-{ 0xf200, 0xffc0, 0x0063, 0xe07f, {0},		"FSMULX	F%B,F%D" },
-{ 0xf200, 0xffc0, 0x0064, 0xe07f, {0},		"FDDIVX	F%B,F%D" },
-{ 0xf200, 0xffc0, 0x0066, 0xe07f, {0},		"FDADDX	F%B,F%D" },
-{ 0xf200, 0xffc0, 0x0067, 0xe07f, {0},		"FDMULX	F%B,F%D" },
-{ 0xf200, 0xffc0, 0x0068, 0xe07f, {0},		"FSSUBX	F%B,F%D" },
-{ 0xf200, 0xffc0, 0x006c, 0xe07f, {0},		"FDSUBX	F%B,F%D" },
-{ 0xf200, 0xffc0, 0x4000, 0xe07f, {EAFLT},	"FMOVE%S	%e,F%D" },
-{ 0xf200, 0xffc0, 0x4001, 0xe07f, {EAFLT},	"FINT%S	%e,F%D" },
-{ 0xf200, 0xffc0, 0x4002, 0xe07f, {EAFLT},	"FSINH%S	%e,F%D" },
-{ 0xf200, 0xffc0, 0x4003, 0xe07f, {EAFLT},	"FINTRZ%S	%e,F%D" },
-{ 0xf200, 0xffc0, 0x4004, 0xe07f, {EAFLT},	"FSQRT%S	%e,F%D" },
-{ 0xf200, 0xffc0, 0x4006, 0xe07f, {EAFLT},	"FLOGNP1%S	%e,F%D" },
-{ 0xf200, 0xffc0, 0x4009, 0xe07f, {EAFLT},	"FTANH%S	%e,F%D" },
-{ 0xf200, 0xffc0, 0x400a, 0xe07f, {EAFLT},	"FATAN%S	%e,F%D" },
-{ 0xf200, 0xffc0, 0x400c, 0xe07f, {EAFLT},	"FASIN%S	%e,F%D" },
-{ 0xf200, 0xffc0, 0x400d, 0xe07f, {EAFLT},	"FATANH%S	%e,F%D" },
-{ 0xf200, 0xffc0, 0x400e, 0xe07f, {EAFLT},	"FSIN%S	%e,F%D" },
-{ 0xf200, 0xffc0, 0x400f, 0xe07f, {EAFLT},	"FTAN%S	%e,F%D" },
-{ 0xf200, 0xffc0, 0x4010, 0xe07f, {EAFLT},	"FETOX%S	%e,F%D" },
-{ 0xf200, 0xffc0, 0x4011, 0xe07f, {EAFLT},	"FTWOTOX%S	%e,F%D" },
-{ 0xf200, 0xffc0, 0x4012, 0xe07f, {EAFLT},	"FTENTOX%S	%e,F%D" },
-{ 0xf200, 0xffc0, 0x4014, 0xe07f, {EAFLT},	"FLOGN%S	%e,F%D" },
-{ 0xf200, 0xffc0, 0x4015, 0xe07f, {EAFLT},	"FLOG10%S	%e,F%D" },
-{ 0xf200, 0xffc0, 0x4016, 0xe07f, {EAFLT},	"FLOG2%S	%e,F%D" },
-{ 0xf200, 0xffc0, 0x4018, 0xe07f, {EAFLT},	"FABS%S	%e,F%D" },
-{ 0xf200, 0xffc0, 0x4019, 0xe07f, {EAFLT},	"FCOSH%S	%e,F%D" },
-{ 0xf200, 0xffc0, 0x401a, 0xe07f, {EAFLT},	"FNEG%S	%e,F%D" },
-{ 0xf200, 0xffc0, 0x401c, 0xe07f, {EAFLT},	"FACOS%S	%e,F%D" },
-{ 0xf200, 0xffc0, 0x401d, 0xe07f, {EAFLT},	"FCOS%S	%e,F%D" },
-{ 0xf200, 0xffc0, 0x401e, 0xe07f, {EAFLT},	"FGETEXP%S	%e,F%D" },
-{ 0xf200, 0xffc0, 0x401f, 0xe07f, {EAFLT},	"FGETMAN%S	%e,F%D" },
-{ 0xf200, 0xffc0, 0x4020, 0xe07f, {EAFLT},	"FDIV%S	%e,F%D" },
-{ 0xf200, 0xffc0, 0x4021, 0xe07f, {EAFLT},	"FMOD%S	%e,F%D" },
-{ 0xf200, 0xffc0, 0x4022, 0xe07f, {EAFLT},	"FADD%S	%e,F%D" },
-{ 0xf200, 0xffc0, 0x4023, 0xe07f, {EAFLT},	"FMUL%S	%e,F%D" },
-{ 0xf200, 0xffc0, 0x4024, 0xe07f, {EAFLT},	"FSGLDIV%S	%e,F%D" },
-{ 0xf200, 0xffc0, 0x4025, 0xe07f, {EAFLT},	"FREM%S	%e,F%D" },
-{ 0xf200, 0xffc0, 0x4026, 0xe07f, {EAFLT},	"FSCALE%S	%e,F%D" },
-{ 0xf200, 0xffc0, 0x4027, 0xe07f, {EAFLT},	"FSGLMUL%S	%e,F%D" },
-{ 0xf200, 0xffc0, 0x4028, 0xe07f, {EAFLT},	"FSUB%S	%e,F%D" },
-{ 0xf200, 0xffc0, 0x4038, 0xe07f, {EAFLT},	"FCMP%S	%e,F%D" },
-{ 0xf200, 0xffc0, 0x403a, 0xe07f, {EAFLT},	"FTST%S	%e" },
-{ 0xf200, 0xffc0, 0x4040, 0xe07f, {EAFLT},	"FSMOVE%S	%e,F%D" },
-{ 0xf200, 0xffc0, 0x4041, 0xe07f, {EAFLT},	"FSSQRT%S	%e,F%D" },
-{ 0xf200, 0xffc0, 0x4044, 0xe07f, {EAFLT},	"FDMOVE%S	%e,F%D" },
-{ 0xf200, 0xffc0, 0x4045, 0xe07f, {EAFLT},	"FDSQRT%S	%e,F%D" },
-{ 0xf200, 0xffc0, 0x4058, 0xe07f, {EAFLT},	"FSABS%S	%e,F%D" },
-{ 0xf200, 0xffc0, 0x405a, 0xe07f, {EAFLT},	"FSNEG%S	%e,F%D" },
-{ 0xf200, 0xffc0, 0x405c, 0xe07f, {EAFLT},	"FDABS%S	%e,F%D" },
-{ 0xf200, 0xffc0, 0x405e, 0xe07f, {EAFLT},	"FDNEG%S	%e,F%D" },
-{ 0xf200, 0xffc0, 0x4060, 0xe07f, {EAFLT},	"FSDIV%S	%e,F%D" },
-{ 0xf200, 0xffc0, 0x4062, 0xe07f, {EAFLT},	"FSADD%S	%e,F%D" },
-{ 0xf200, 0xffc0, 0x4063, 0xe07f, {EAFLT},	"FSMUL%S	%e,F%D" },
-{ 0xf200, 0xffc0, 0x4064, 0xe07f, {EAFLT},	"FDDIV%S	%e,F%D" },
-{ 0xf200, 0xffc0, 0x4066, 0xe07f, {EAFLT},	"FDADD%S	%e,F%D" },
-{ 0xf200, 0xffc0, 0x4067, 0xe07f, {EAFLT},	"FDMUL%S	%e,F%D" },
-{ 0xf200, 0xffc0, 0x4068, 0xe07f, {EAFLT},	"FSSUB%S	%e,F%D" },
-{ 0xf200, 0xffc0, 0x406c, 0xe07f, {EAFLT},	"FDSUB%S	%e,F%D" },
-
-{ 0xf200, 0xffc0, 0x0030, 0xe078, {0},		"FSINCOSX	F%B,F%a:F%D" },
-{ 0xf200, 0xffc0, 0x4030, 0xe078, {EAFLT},	"FSINCOS%S	%e,F%a:F%D" },
-
-{ 0xf200, 0xffc0, 0x6000, 0xe000, {EADA},	"FMOVE%S	F%D,%e" },
-
-{ 0xf300, 0xffc0, 0x0000, 0x0000, {EACAPD},	"FSAVE	%e" },
-{ 0xf340, 0xffc0, 0x0000, 0x0000, {EACAPI},	"FRESTORE	%e" },
-
-{ 0xf280, 0xffc0, 0x0000, 0x0000, {BR16},	"FB%p	%t" },
-{ 0xf2c0, 0xffc0, 0x0000, 0x0000, {BR32},	"FB%p	%t" },
-
-{ 0xf408, 0xff38, 0x0000, 0x0000, {0},		"CINVL	%C,(A%y)" },
-{ 0xf410, 0xff38, 0x0000, 0x0000, {0},		"CINVP	%C,(A%y)" },
-{ 0xf418, 0xff38, 0x0000, 0x0000, {0},		"CINVA	%C" },
-{ 0xf428, 0xff38, 0x0000, 0x0000, {0},		"CPUSHL	%C,(A%y)" },
-{ 0xf430, 0xff38, 0x0000, 0x0000, {0},		"CPUSHP	%C,(A%y)" },
-{ 0xf438, 0xff38, 0x0000, 0x0000, {0},		"CPUSHA	%C" },
-{ 0,0,0,0,{0},0 },
-};
-
-static Optable	*optables[] =
-{
-	t0, t1, t2, t3, t4, t5, t6, t7, t8, t9, 0, tb, tc, td, te, tf,
-};
-
-static int
-dumpinst(Inst *ip, char *buf, int n)
-{
-	int i;
-
-	if (n <= 0)
-		return 0;
-
-	*buf++ = '#';
-	for (i = 0; i < ip->n && i*4+1 < n-4; i++, buf += 4)
-		_hexify(buf, ip->raw[i], 3);
-	*buf = 0;
-	return i*4+1;
-}
-
-static int
-get2(long offset, ushort *buf) {
-	buf[0]=((ushort*)dasdata)[offset/2];
-	return 2;
-}
-
-static int
-get1(long offset, uchar *buf,int size) {
-	memmove(buf,&dasdata[offset],size);
-	return 1;
-}
-
-static int
-getword(Inst *ip, long offset)
-{
-	if (ip->n < nelem(ip->raw)) {
-		if (get2(offset, &ip->raw[ip->n++]) > 0)
-			return 1;
-		werrstr("can't read instruction: %r");
-	} else
-		werrstr("instruction too big: %r");
-	return -1;
-}
-
-static int
-getshorts(Inst *ip, void *where, int n)
-{
-	if (ip->n+n < nelem(ip->raw)) {
-		if (get1(ip->addr+ip->n*2, (uchar*)&ip->raw[ip->n], n*2) < 0) {
-			werrstr("can't read instruction: %r");
-			return 0;
-		}
-		memmove(where, &ip->raw[ip->n], n*2);
-		ip->n += n;
-		return 1;
-	}
-	werrstr("instruction too big: %r");
-	return 0;
-}
-
-static int
-i8(Inst *ip, long *l)
-{
-	if (getword(ip, ip->addr+ip->n*2) < 0)
-		return -1;
-	*l = ip->raw[ip->n-1]&0xff;
-	if (*l&0x80)
-		*l |= ~0xff;
-	return 1;
-}
-
-static int
-i16(Inst *ip, long *l)
-{
-	if (getword(ip, ip->addr+ip->n*2) < 0)
-		return -1;
-	*l = ip->raw[ip->n-1];
-	if (*l&0x8000)
-		*l |= ~0xffff;
-	return 1;
-}
-static int
-i32(Inst *ip, long *l)
-{
-	if (getword(ip, ip->addr+ip->n*2) < 0)
-		return -1;
-	if (getword(ip, ip->addr+ip->n*2) < 0)
-		return -1;
-	*l = (ip->raw[ip->n-2]<<16)|ip->raw[ip->n-1];
-	return 1;
-}
-
-static int
-getimm(Inst *ip, Operand *ap, int mode)
-{
-	ap->eatype = IMM;
-	switch(mode)
-	{
-	case EAM_B:	/* byte */
-	case EAALL_B:
-		return i8(ip, &ap->immediate);
-	case EADI_W:	/* word */
-	case EAALL_W:
-		return i16(ip, &ap->immediate);
-	case EADI_L:	/* long */
-	case EAALL_L:
-		return i32(ip, &ap->immediate);
-	case EAFLT:	/* floating point - size in bits 10-12 or word 1 */
-		switch((ip->raw[1]>>10)&0x07)
-		{
-		case 0:	/* long integer */
-			return i32(ip, &ap->immediate);
-		case 1:	/* single precision real */
-			ap->eatype = IREAL;
-			return getshorts(ip, ap->floater, 2);
-		case 2:	/* extended precision real - not supported */
-			ap->eatype = IEXT;
-			return getshorts(ip, ap->floater, 6);
-		case 3: /* packed decimal real - not supported */
-			ap->eatype = IPACK;
-			return getshorts(ip, ap->floater, 12);
-		case 4:	/* integer word */
-			return i16(ip, &ap->immediate);
-		case 5:	/* double precision real */
-			ap->eatype = IDBL;
-			return getshorts(ip, ap->floater, 4);
-		case 6:	/* integer byte */
-			return i8(ip, &ap->immediate);
-		default:
-			ip->errmsg = "bad immediate float data";
-			return -1;
-		}
-		break;
-	case IV:	/* size encoded in bits 6&7 of opcode word */
-	default:
-		switch((ip->raw[0]>>6)&0x03)
-		{
-		case 0x00:	/* integer byte */
-			return i8(ip, &ap->immediate);
-		case 0x01:	/* integer word */
-			return i16(ip, &ap->immediate);
-		case 0x02:	/* integer long */
-			return i32(ip, &ap->immediate);
-		default:
-			ip->errmsg = "bad immediate size";
-			return -1;
-		}
-		break;
-	}
-	return 1;
-}
-
-static int
-getdisp(Inst *ip, Operand *ap)
-{
-	short ext;
-
-	if (getword(ip, ip->addr+ip->n*2) < 0)
-		return -1;
-	ext = ip->raw[ip->n-1];
-	ap->ext = ext;
-	if ((ext&0x100) == 0) {		/* indexed with 7-bit displacement */
-		ap->disp = ext&0x7f;
-		if (ap->disp&0x40)
-			ap->disp |= ~0x7f;
-		return 1;
-	}
-	switch(ext&0x30)	/* first (inner) displacement  */
-	{
-	case 0x10:
-		break;
-	case 0x20:
-		if (i16(ip, &ap->disp) < 0)
-			return -1;
-		break;
-	case 0x30:
-		if (i32(ip, &ap->disp) < 0)
-			return -1;
-		break;
-	default:
-		ip->errmsg = "bad EA displacement";
-		return -1;
-	}
-	switch (ext&0x03)	/* outer displacement */
-	{
-	case 0x02:		/* 16 bit displacement */
-		return i16(ip, &ap->outer);
-	case 0x03:		/* 32 bit displacement */
-		return i32(ip, &ap->outer);
-	default:
-		break;
-	}
-	return 1;
-}
-
-static int
-ea(Inst *ip, int ea, Operand *ap, int mode)
-{
-	int type, size;
-
-	type = 0;
-	ap->ext = 0;
-	switch((ea>>3)&0x07)
-	{
-	case 0x00:
-		ap->eatype = Dreg;
-		type = Dn;
-		break;
-	case 0x01:
-		ap->eatype = Areg;
-		type = An;
-		break;
-	case 0x02:
-		ap->eatype = AInd;
-		type = Ind;
-		break;
-	case 0x03:
-		ap->eatype = APinc;
-		type = Pinc;
-		break;
-	case 0x04:
-		ap->eatype = APdec;
-		type = Pdec;
-		break;
-	case 0x05:
-		ap->eatype = ADisp;
-		type = Bdisp;
-		if (i16(ip, &ap->disp) < 0)
-			return -1;
-		break;
-	case 0x06:
-		ap->eatype = BXD;
-		type = Bdisp;
-		if (getdisp(ip, ap) < 0)
-			return -1;
-		break;
-	case 0x07:
-		switch(ea&0x07)
-		{
-		case 0x00:
-			type = Abs;
-			ap->eatype = ABS;
-			if (i16(ip, &ap->immediate) < 0)
-				return -1;
-			break;
-		case 0x01:
-			type = Abs;
-			ap->eatype = ABS;
-			if (i32(ip, &ap->immediate) < 0)
-				return -1;
-			break;
-		case 0x02:
-			type = PCrel;
-			ap->eatype = PDisp;
-			if (i16(ip, &ap->disp) < 0)
-				return -1;
-			break;
-		case 0x03:
-			type = PCrel;
-			ap->eatype = PXD;
-			if (getdisp(ip, ap) < 0)
-				return -1;
-			break;
-		case 0x04:
-			type = Imm;
-			if (getimm(ip, ap, mode) < 0)
-				return -1;
-			break;
-		default:
-			ip->errmsg = "bad EA mode";
-			return -1;
-		}
-	}
-		/* Allowable floating point EAs are restricted for packed,
-		 * extended, and double precision operands
-		 */
-	if (mode == EAFLT) {
-		size = (ip->raw[1]>>10)&0x07;
-		if (size == 2 || size == 3 || size == 5)
-			mode = EAM;
-		else
-			mode = EADI;
-	}
-	if (!(validea[mode]&type)) {
-		ip->errmsg = "invalid EA";
-		return -1;
-	}
-	return 1;
-}
-
-static int
-decode(Inst *ip, Optable *op)
-{
-	int i, t, mode;
-	Operand *ap;
-	short opcode;
-
-	opcode = ip->raw[0];
-	for (i = 0; i < nelem(op->opdata) && op->opdata[i]; i++) {
-		ap = &ip->and[i];
-		mode = op->opdata[i];
-		switch(mode)
-		{
-		case EAPI:		/* normal EA modes */
-		case EACA:
-		case EACAD:
-		case EACAPI:
-		case EACAPD:
-		case EAMA:
-		case EADA:
-		case EAA:
-		case EAC:
-		case EACPI:
-		case EACD:
-		case EAD:
-		case EAM:
-		case EAM_B:
-		case EADI:
-		case EADI_L:
-		case EADI_W:
-		case EAALL:
-		case EAALL_L:
-		case EAALL_W:
-		case EAALL_B:
-		case EAFLT:
-			if (ea(ip, opcode&0x3f, ap, mode) < 0)
-				return -1;
-			break;
-		case EADDA:	/* stupid bit flop required */
-			t = ((opcode>>9)&0x07)|((opcode>>3)&0x38);
-			if (ea(ip, t, ap, EADA)< 0)
-					return -1;
-			break;
-		case BREAC:	/* EAC JMP or CALL operand */
-			if (ea(ip, opcode&0x3f, ap, EAC) < 0)
-				return -1;
-			break;
-		case OP8:	/* weird movq instruction */
-			ap->eatype = IMM;
-			ap->immediate = opcode&0xff;
-			if (opcode&0x80)
-				ap->immediate |= ~0xff;
-			break;
-		case I8:	/* must be two-word opcode */
-			ap->eatype = IMM;
-			ap->immediate = ip->raw[1]&0xff;
-			if (ap->immediate&0x80)
-				ap->immediate |= ~0xff;
-			break;
-		case I16:	/* 16 bit immediate */
-		case BR16:
-			ap->eatype = IMM;
-			if (i16(ip, &ap->immediate) < 0)
-				return -1;
-			break;
-		case C16:	/* CAS2 16 bit immediate */
-			ap->eatype = IMM;
-			if (i16(ip, &ap->immediate) < 0)
-				return -1;
-			if (ap->immediate & 0x0e38) {
-				ip->errmsg = "bad CAS2W operand";
-				return 0;
-			}
-			break;
-		case I32:	/* 32 bit immediate */
-		case BR32:
-			ap->eatype = IMM;
-			if (i32(ip, &ap->immediate) < 0)
-				return -1;
-			break;
-		case IV:	/* immediate data depends on size field */
-			if (getimm(ip, ap, IV) < 0)
-				return -1;
-			break;
-		case BR8:	/* branch displacement format */
-			ap->eatype = IMM;
-			ap->immediate = opcode&0xff;
-			if (ap->immediate == 0) {
-				if (i16(ip, &ap->immediate) < 0)
-					return -1;
-			} else if (ap->immediate == 0xff) {
-				if (i32(ip, &ap->immediate) < 0)
-					return -1;
-			} else if (ap->immediate & 0x80)
-				ap->immediate |= ~0xff;
-			break;
-		case STACK:	/* Dummy operand type for Return instructions */
-		default:
-			break;
-		}
-	}
-	return 1;
-}
-
-static Optable *
-instruction(Inst *ip)
-{
-	ushort opcode, op2;
-	Optable *op;
-	int class;
-
-	ip->n = 0;
-	if (getword(ip, ip->addr) < 0)
-		return 0;
-	opcode = ip->raw[0];
-	if (get2(ip->addr+2, &op2) < 0)
-		op2 = 0;
-	class = (opcode>>12)&0x0f;
-	for (op = optables[class]; op && op->format; op++) {
-		if (op->opcode != (opcode&op->mask0))
-			continue;
-		if (op->op2 != (op2&op->mask1))
-			continue;
-		if (op->mask1)
-			ip->raw[ip->n++] = op2;
-		return op;
-	}
-	ip->errmsg = "Invalid opcode";
-	return 0;
-}
-
-static void
-bprint(Inst *i, char *fmt, ...)
-{
-	va_list arg;
-
-	va_start(arg, fmt);
-	i->curr = vseprint(i->curr, i->end, fmt, arg);
-	va_end(arg);
-}
-
-static	char	*regname[] =
-{
-	"R0", "R1", "R2", "R3", "R4", "R5", "R6", "R7", "A0",
-	"A1", "A2", "A3", "A4", "A5", "A6", "A7", "PC", "SB"
-};
-
-#define CANY 0
-#define CTEXT 0
-
-int
-symoff(char *buf, int n, long v, int)
-{
-	return snprint(buf, n, "%lux", v);
-}
-static void
-plocal(Inst *ip, Operand *ap)
-{
-	bprint(ip, "%lux", ap->disp);
-}
-
-/*
- *	this guy does all the work of printing the base and index component
- *	of an EA.
- */
-static int
-pidx(Inst *ip, int ext, int reg, char *bfmt, char *ifmt, char *nobase)
-{
-	char *s;
-	int printed;
-	char buf[512];
-
-	printed = 1;
-	if (ext&0x80) {				/* Base suppressed */
-		if (reg == 16)
-			bprint(ip, bfmt, "(ZPC)");
-		else if (nobase)
-			bprint(ip, nobase);
-		else
-			printed = 0;
-	} else					/* format base reg */
-		bprint(ip, bfmt, regname[reg]);
-	if (ext & 0x40)				/* index suppressed */
-		return printed;
-	switch ((ext>>9)&0x03)
-	{
-	case 0x01:
-		s = "*2";
-		break;
-	case 0x02:
-		s = "*4";
-		break;
-	case 0x03:
-		s = "*8";
-		break;
-	default:
-		if (ext&0x80)
-			s = "*1";
-		else
-			s = "";
-		break;
-	}
-	sprint(buf, "%s.%c%s", regname[(ext>>12)&0x0f], (ext&0x800) ? 'L' : 'W', s);
-	if (!printed)
-		bprint(ip, ifmt, buf);
-	else
-		bprint(ip, "(%s)", buf);
-	return 1;
-}
-
-static void
-prindex(Inst *ip, int reg, Operand *ap)
-{
-	short ext;
-	int left;
-	int disp;
-
-	left = ip->end-ip->curr;
-	if (left <= 0)
-		return;
-	ext = ap->ext;
-	disp = ap->disp;
-		/* look for static base register references */
-	if ((ext&0x100) == 0) {		/* brief form */
-		if (reg == 15)
-			plocal(ip, ap);
-		else if (disp)
-			ip->curr += symoff(ip->curr, left, disp, CANY);
-		pidx(ip, ext&0xff00, reg, "(%s)", "(%s)", 0);
-		return;
-	}
-	switch(ext&0x3f)	/* bd size, && i/is */
-	{
-	case 0x10:
-		if (!pidx(ip, ext, reg, "(%s)", "(%s)", 0))
-			bprint(ip, "#0");
-		break;
-	case 0x11:
-		if (pidx(ip, ext, reg, "((%s)", "((%s)", 0))
-			bprint(ip, ")");
-		else
-			bprint(ip, "#0");
-		break;
-	case 0x12:
-	case 0x13:
-		ip->curr += symoff(ip->curr, left, ap->outer, CANY);
-		if (pidx(ip, ext, reg, "((%s)", "((%s)", 0))
-			bprint(ip, ")");
-		break;
-	case 0x15:
-		if (!pidx(ip, ext, reg, "((%s))", "(%s)", 0))
-			bprint(ip, "#0");
-		break;
-	case 0x16:
-	case 0x17:
-		ip->curr += symoff(ip->curr, left, ap->outer, CANY);
-		pidx(ip, ext, reg, "((%s))", "(%s)", 0);
-		break;
-	case 0x20:
-	case 0x30:
-		if (reg == 15)
-			plocal(ip, ap);
-		else
-			ip->curr += symoff(ip->curr, left, disp, CANY);
-		pidx(ip, ext, reg, "(%s)", "(%s)", 0);
-		break;
-	case 0x21:
-	case 0x31:
-		*ip->curr++ = '(';
-		if (reg == 15)
-			plocal(ip, ap);
-		else
-			ip->curr += symoff(ip->curr, left-1, disp, CANY);
-		pidx(ip, ext, reg, "(%s)", "(%s)", 0);
-		bprint(ip, ")");
-		break;
-	case 0x22:
-	case 0x23:
-	case 0x32:
-	case 0x33:
-		ip->curr += symoff(ip->curr, left, ap->outer, CANY);
-		bprint(ip, "(");
-		if (reg == 15)
-			plocal(ip, ap);
-		else
-			ip->curr += symoff(ip->curr, ip->end-ip->curr, disp, CANY);
-		pidx(ip, ext, reg, "(%s)", "(%s)", 0);
-		bprint(ip, ")");
-		break;
-	case 0x25:
-	case 0x35:
-		*ip->curr++ = '(';
-		if (reg == 15)
-			plocal(ip, ap);
-		else
-			ip->curr += symoff(ip->curr, left-1, disp, CANY);
-		if (!pidx(ip, ext, reg, "(%s))", "(%s)", "())"))
-			bprint(ip, ")");
-		break;
-	case 0x26:
-	case 0x27:
-	case 0x36:
-	case 0x37:
-		ip->curr += symoff(ip->curr, left, ap->outer, CANY);
-		bprint(ip, "(");
-		if (reg == 15)
-			plocal(ip, ap);
-		else
-			ip->curr += symoff(ip->curr, ip->end-ip->curr, disp, CANY);
-		pidx(ip, ext, reg, "(%s))", "(%s)", "())");
-		break;
-	default:
-		bprint(ip, "??%x??", ext);
-		ip->errmsg = "bad EA";
-		break;
-	}
-}
-
-static	void
-pea(int reg, Inst *ip, Operand *ap)
-{
-	int i, left;
-
-	left = ip->end-ip->curr;
-	if (left < 0)
-		return;
-	switch(ap->eatype)
-	{
-	case Dreg:
-		bprint(ip, "R%d", reg);
-		break;
-	case Areg:
-		bprint(ip, "A%d", reg);
-		break;
-	case AInd:
-		bprint(ip, "(A%d)", reg);
-		break;
-	case APinc:
-		bprint(ip, "(A%d)+", reg);
-		break;
-	case APdec:
-		bprint(ip, "-(A%d)", reg);
-		break;
-	case PDisp:
-		ip->curr += symoff(ip->curr, left, ip->addr+2+ap->disp, CANY);
-		break;
-	case PXD:
-		prindex(ip, 16, ap);
-		break;
-	case ADisp:
-		ip->curr += symoff(ip->curr, left, ap->disp, CANY);
-		bprint(ip, "(A%d)", reg);
-		break;
-	case BXD:
-		prindex(ip, reg+8, ap);
-		break;
-	case ABS:
-		ip->curr += symoff(ip->curr, left, ap->immediate, CANY);
-		bprint(ip, "($0)");
-		break;
-	case IMM:
-		*ip->curr++ = '$';
-		ip->curr += symoff(ip->curr, left-1, ap->immediate, CANY);
-		break;
-	case IPACK:
-		bprint(ip, "$#");
-		for (i = 0; i < 24 && ip->curr < ip->end-1; i++) {
-			_hexify(ip->curr, ap->floater[i], 1);
-			ip->curr += 2;
-		}
-		break;
-	default:
-		bprint(ip, "??%x??", ap->eatype);
-		ip->errmsg = "bad EA type";
-		break;
-	}
-}
-
-static char *cctab[]  = { "F", "T", "HI", "LS", "CC", "CS", "NE", "EQ",
-			  "VC", "VS", "PL", "MI", "GE", "LT", "GT", "LE" };
-static	char *fcond[] =
-{
-	"F",	"EQ",	"OGT",	"OGE",	"OLT",	"OLE",	"OGL", "OR",
-	"UN",	"UEQ",	"UGT",	"UGE",	"ULT",	"ULE",	"NE",	"T",
-	"SF",	"SEQ",	"GT",	"GE",	"LT",	"LE",	"GL",	"GLE",
-	"NGLE",	"NGL",	"NLE",	"NLT",	"NGE",	"NGT",	"SNE",	"ST"
-};
-static	char *cachetab[] =	{ "NC", "DC", "IC", "BC" };
-static	char *mmutab[] =	{ "TC", "??", "SRP", "CRP" };
-static	char *crtab0[] =
-{
-	"SFC", "DFC", "CACR", "TC", "ITT0", "ITT1", "DTT0", "DTT1",
-};
-static	char *crtab1[] =
-{
-	"USP", "VBR", "CAAR", "MSP", "ISP", "MMUSR", "URP", "SRP",
-};
-static	char typetab[] =	{ 'L', 'S', 'X', 'P', 'W', 'D', 'B', '?', };
-static	char sztab[] =		{'?', 'B', 'W', 'L', '?' };
-
-static	void
-formatins(char *fmt, Inst *ip)
-{
-	short op, w1;
-	int r1, r2;
-	int currand;
-
-	op = ip->raw[0];
-	w1 = ip->raw[1];
-	currand = 0;
-	for (; *fmt && ip->curr < ip->end; fmt++) {
-		if (*fmt != '%')
-			*ip->curr++ = *fmt;
-		else switch(*++fmt)
-		{
-		case '%':
-			*ip->curr++ = '%';
-			break;
-		case 'a':	/* register number; word 1:[0-2] */
-			*ip->curr++ = (w1&0x07)+'0';
-			break;
-		case 'c':	/* condition code; opcode: [8-11] */
-			bprint(ip, cctab[(op>>8)&0x0f]);
-			break;
-		case 'd':	/* shift direction; opcode: [8] */
-			if (op&0x100)
-				*ip->curr++ = 'L';
-			else
-				*ip->curr++ = 'R';
-			break;
-		case 'e':	/* source effective address */
-			pea(op&0x07, ip, &ip->and[currand++]);
-			break;
-		case 'f':	/* trap vector; op code: [0-3] */
-			bprint(ip, "%x", op&0x0f);
-			break;
-		case 'h':	/* register number; word 1: [5-7] */
-			*ip->curr++ = (w1>>5)&0x07+'0';
-			break;
-		case 'i':	/* immediate operand */
-			ip->curr += symoff(ip->curr, ip->end-ip->curr,
-					ip->and[currand++].immediate, CANY);
-			break;
-		case 'j':	/* data registers; word 1: [0-2] & [12-14] */
-			r1 = w1&0x07;
-			r2 = (w1>>12)&0x07;
-			if (r1 == r2)
-				bprint(ip, "R%d", r1);
-			else
-				bprint(ip, "R%d:R%d", r2, r1);
-			break;
-		case 'k':	/* k factor; word 1 [0-6] */
-			bprint(ip, "%x", w1&0x7f);
-			break;
-		case 'm':	/* register mask; word 1 [0-7] */
-			bprint(ip, "%x", w1&0xff);
-			break;
-		case 'o':	/* bit field offset; word1: [6-10] */
-			bprint(ip, "%d", (w1>>6)&0x3f);
-			break;
-		case 'p':	/* conditional predicate; opcode: [0-5]
-				   only bits 0-4 are defined  */
-			bprint(ip, fcond[op&0x1f]);
-			break;
-		case 'q':	/* 3-bit immediate value; opcode[9-11] */
-			r1 = (op>>9)&0x07;
-			if (r1 == 0)
-				*ip->curr++ = '8';
-			else
-				*ip->curr++ = r1+'0';
-			break;
-		case 'r':	/* register type & number; word 1: [12-15] */
-			bprint(ip, regname[(w1>>12)&0x0f]);
-			break;
-		case 's':	/* size; opcode [6-7] */
-			*ip->curr = sztab[((op>>6)&0x03)+1];
-			if (*ip->curr++ == '?')
-				ip->errmsg = "bad size code";
-			break;
-		case 't':	/* text offset */
-			ip->curr += symoff(ip->curr, ip->end-ip->curr,
-				ip->and[currand++].immediate+ip->addr+2, CTEXT);
-			break;
-		case 'u':	/* register number; word 1: [6-8] */
-			*ip->curr++ = ((w1>>6)&0x07)+'0';
-			break;
-		case 'w':	/* bit field width; word 1: [0-4] */
-			bprint(ip, "%d", w1&0x0f);
-			break;
-		case 'x':	/* register number; opcode: [9-11] */
-			*ip->curr++ = ((op>>9)&0x07)+'0';
-			break;
-		case 'y':	/* register number; opcode: [0-2] */
-			*ip->curr++ = (op&0x07)+'0';
-			break;
-		case 'z':	/* shift count; opcode: [9-11] */	
-			*ip->curr++ = ((op>>9)&0x07)+'0';
-			break;
-		case 'A':	/* register number; word 2: [0-2] */
-			*ip->curr++ = (ip->raw[2]&0x07)+'0';
-			break;
-		case 'B':	/* float source reg; word 1: [10-12] */
-			*ip->curr++ = ((w1>>10)&0x07)+'0';
-			break;
-		case 'C':	/* cache identifier; opcode: [6-7] */
-			bprint(ip, cachetab[(op>>6)&0x03]);
-			break;
-		case 'D':	/* float dest reg; word 1: [7-9] */
-			*ip->curr++ = ((w1>>7)&0x07)+'0';
-			break;
-		case 'E':	/* destination EA; opcode: [6-11] */
-			pea((op>>9)&0x07, ip, &ip->and[currand++]);
-			break;
-		case 'F':	/* float dest register(s); word 1: [7-9] & [10-12] */
-			r1 = (w1>>7)&0x07;
-			r2 = (w1>>10)&0x07;
-			if (r1 == r2)
-				bprint(ip, "F%d", r1);
-			else
-				bprint(ip, "F%d,F%d", r2, r1);
-			break;
-		case 'H':	/* MMU register; word 1 [10-13] */
-			bprint(ip, mmutab[(w1>>10)&0x03]);
-			if (ip->curr[-1] == '?')
-				ip->errmsg = "bad mmu register";
-			break;
-		case 'I':	/* MMU function code mask; word 1: [5-8] */
-			bprint(ip, "%x", (w1>>4)&0x0f);
-			break;
-		case 'K':	/* dynamic k-factor register; word 1: [5-8] */
-			bprint(ip, "%d",  (w1>>4)&0x0f);
-			break;
-		case 'L':	/* MMU function code; word 1: [0-6] */
-			if (w1&0x10)
-				bprint(ip, "%x", w1&0x0f);
-			else if (w1&0x08)
-				bprint(ip, "R%d",w1&0x07);
-			else if (w1&0x01)
-				bprint(ip, "DFC");
-			else
-				bprint(ip, "SFC");
-			break;
-		case 'N':	/* control register; word 1: [0-11] */
-			r1 = w1&0xfff;
-			if (r1&0x800)
-				bprint(ip, crtab1[r1&0x07]);
-			else
-				bprint(ip, crtab0[r1&0x07]);
-			break;
-		case 'P':	/* conditional predicate; word 1: [0-5] */
-			bprint(ip, fcond[w1&0x1f]);
-			break;
-		case 'R':	/* register type & number; word 2 [12-15] */
-			bprint(ip, regname[(ip->raw[2]>>12)&0x0f]);
-			break;
-		case 'S':	/* float source type code; word 1: [10-12] */
-			*ip->curr = typetab[(w1>>10)&0x07];
-			if (*ip->curr++ == '?')
-				ip->errmsg = "bad float type";
-			break;
-		case 'U':	/* register number; word 2: [6-8] */
-			*ip->curr++ = ((ip->raw[2]>>6)&0x07)+'0';
-			break;
-		case 'Z':	/* ATC level number; word 1: [10-12] */
-			bprint(ip, "%x", (w1>>10)&0x07);
-			break;
-		case '1':	/* effective address in second operand*/
-			pea(op&0x07, ip, &ip->and[1]);
-			break;
-		default:
-			bprint(ip, "%%%c", *fmt);
-			break;
-		}
-	}
-	*ip->curr = 0;		/* there's always room for 1 byte */
-}
-
-static int
-dispsize(Inst *ip)
-{
-	ushort ext;
-	static int dsize[] = {0, 0, 1, 2};	/* in words */
-
-	if (get2(ip->addr+ip->n*2, &ext) < 0)
-		return -1;
-	if ((ext&0x100) == 0)
-		return 1;
-	return dsize[(ext>>4)&0x03]+dsize[ext&0x03]+1;
-}
-
-static int
-immsize(Inst *ip, int mode)
-{
-	static int fsize[] = { 2, 2, 6, 12, 1, 4, 1, -1 };
-	static int isize[] = { 1, 1, 2, -1 };
-
-	switch(mode)
-	{
-	case EAM_B:			/* byte */
-	case EAALL_B:
-	case EADI_W:			/* word */
-	case EAALL_W:
-		return 1;
-	case EADI_L:			/* long */
-	case EAALL_L:
-		return 2;
-	case EAFLT:	/* floating point - size in bits 10-12 or word 1 */
-		return fsize[(ip->raw[1]>>10)&0x07];
-	case IV:	/* size encoded in bits 6&7 of opcode word */
-	default:
-		return isize[(ip->raw[0]>>6)&0x03];
-	}
-	return -1;
-}
-
-static int
-easize(Inst *ip, int ea, int mode)
-{
-	switch((ea>>3)&0x07)
-	{
-	case 0x00:
-	case 0x01:
-	case 0x02:
-	case 0x03:
-	case 0x04:
-		return 0;
-	case 0x05:
-		return 1;
-	case 0x06:
-		return dispsize(ip);
-	case 0x07:
-		switch(ea&0x07)
-		{
-		case 0x00:
-		case 0x02:
-			return 1;
-		case 0x01:
-			return 2;
-		case 0x03:
-			return dispsize(ip);
-		case 0x04:
-			return immsize(ip, mode);
-		default:
-			return -1;
-		}
-	}
-	return -1;
-}
-
-static int
-instrsize(Inst *ip, Optable *op)
-{
-	int i, t, mode;
-	short opcode;
-
-	opcode = ip->raw[0];
-	for (i = 0; i < nelem(op->opdata) && op->opdata[i]; i++) {
-		mode = op->opdata[i];
-		switch(mode)
-		{
-		case EAPI:		/* normal EA modes */
-		case EACA:
-		case EACAD:
-		case EACAPI:
-		case EACAPD:
-		case EAMA:
-		case EADA:
-		case EAA:
-		case EAC:
-		case EACPI:
-		case EACD:
-		case EAD:
-		case EAM:
-		case EAM_B:
-		case EADI:
-		case EADI_L:
-		case EADI_W:
-		case EAALL:
-		case EAALL_L:
-		case EAALL_W:
-		case EAALL_B:
-		case EAFLT:
-			t = easize(ip, opcode&0x3f, mode);
-			if (t < 0)
-				return -1;
-			ip->n += t;
-			break;
-		case EADDA:	/* stupid bit flop required */
-			t = ((opcode>>9)&0x07)|((opcode>>3)&0x38);
-			t = easize(ip, t, mode);
-			if (t < 0)
-				return -1;
-			ip->n += t;
-			break;
-		case BREAC:	/* EAC JMP or CALL operand */
-				/* easy displacements for follow set */
-			if ((opcode&0x038) == 0x28 || (opcode&0x3f) == 0x3a) {
-				if (i16(ip, &ip->and[i].immediate) < 0)
-					return -1;
-			} else {
-				t = easize(ip, opcode&0x3f, mode);
-				if (t < 0)
-					return -1;
-				ip->n += t;
-			}
-			break;
-		case I16:	/* 16 bit immediate */
-		case C16:	/* CAS2 16 bit immediate */
-			ip->n++;
-			break;
-		case BR16:	/* 16 bit branch displacement */
-			if (i16(ip, &ip->and[i].immediate) < 0)
-				return -1;
-			break;
-		case BR32:	/* 32 bit branch displacement */
-			if (i32(ip, &ip->and[i].immediate) < 0)
-				return -1;
-			break;
-		case I32:	/* 32 bit immediate */
-			ip->n += 2;
-			break;
-		case IV:	/* immediate data depends on size field */
-			t = (ip->raw[0]>>6)&0x03;
-			if (t < 2)
-				ip->n++;
-			else if (t == 2)
-				ip->n += 2;
-			else 
-				return -1;
-			break;
-		case BR8:	/* loony branch displacement format */
-			t = opcode&0xff;
-			if (t == 0) {
-				if (i16(ip, &ip->and[i].immediate) < 0)
-					return -1;
-			} else if (t == 0xff) {
-				if (i32(ip, &ip->and[i].immediate) < 0)
-					return -1;
-			} else {
-				ip->and[i].immediate = t;
-				if (t & 0x80)
-					ip->and[i].immediate |= ~0xff;
-			}
-			break;
-		case STACK:	/* Dummy operand for Return instructions */
-		case OP8:	/* weird movq instruction */
-		case I8:	/* must be two-word opcode */
-		default:
-			break;
-		}
-	}
-	return 1;
-}
-
-static int
-m68020instlen(ulong pc)
-{
-	Inst i;
-	Optable *op;
-
-	i.addr = pc;
-	i.errmsg = 0;
-	op = instruction(&i);
-	if (op && instrsize(&i, op) > 0)
-			return i.n*2;
-	return -1;
-}
-
-static int
-m68020inst(ulong pc, char modifier, char *buf, int n)
-{
-	Inst i;
-	Optable *op;
-
-	USED(modifier);
-	i.addr = pc;
-	i.curr = buf;
-	i.end = buf+n-1;
-	i.errmsg = 0;
-	op = instruction(&i);
-	if (!op)
-		return -1;
-	if (decode(&i, op) > 0)
-		formatins(op->format, &i);
-	if (i.errmsg) {
-		if (i.curr != buf)
-			bprint(&i, "\t\t;");
-		bprint(&i, "%s: ", i.errmsg);
-		dumpinst(&i, i.curr, i.end-i.curr);
-	}
-	return i.n*2;
-}
-
-static int
-m68020das(ulong pc, char *buf, int n)
-{
-	Inst i;
-	Optable *op;
-
-	i.addr = pc;
-	i.curr = buf;
-	i.end = buf+n-1;
-	i.errmsg = 0;
-	
-	op = instruction(&i);
-	if (!op)
-		return -1;
-	decode(&i, op);
-	if (i.errmsg)
-		bprint(&i, "%s: ", i.errmsg);
-	dumpinst(&i, i.curr, i.end-i.curr);
-	return i.n*2;
-}
-
-void
-das(uchar *x, int n)
-{
-	int l, pc;
-	char buf[128];
-
-/*	int i;
-	for(i = 0; i < n; i++)
-		print("%.2ux", x[i]);
-	print("\n");
-*/
-	dasdata = x;
-	pc = 0;
-	while(n > 0) {
-		if (m68020das(pc, buf, sizeof(buf))==-1) 
-			sprint(buf,"illegal\t");
-		print("%.8lux %2x %-20s ", dasdata+pc, pc, buf);
-		l = m68020inst(pc, 'i', buf, sizeof(buf));
-		if (l!=-1) {
-			print("\t%s\n", buf);
-			buf[0]=0;
-
-			pc += l;
-			n -= l;
-		} else {
-			print("Illegal\n");
-			pc+=2;
-			n+=2;
-		}
-	}
-}
diff --git a/libinterp/das-thumb.c b/libinterp/das-thumb.c
deleted file mode 100644
index 2609bbe5..00000000
--- a/libinterp/das-thumb.c
+++ /dev/null
@@ -1,548 +0,0 @@
-#include <lib9.h>
-
-typedef struct	Instr	Instr;
-struct	Instr
-{
-	ulong	w;
-	ulong	addr;
-	uchar	op;			/* super opcode */
-
-	uchar	rd;
-	uchar	rn;
-	uchar	rs;
-
-	long	imm;			/* imm */
-	char*	curr;			/* fill point in buffer */
-	char*	end;			/* end of buffer */
-	char*	err;			/* error message */
-};
-
-typedef struct Opcode Opcode;
-struct Opcode
-{
-	char*	o;
-	void	(*f)(Opcode*, Instr*);
-	int		unused;		/* remove field some time */
-	char*	a;
-};
-
-static	void	format(char*, Instr*, char*);
-static	int	thumbinst(ulong, char, char*, int);
-static	int	thumbdas(ulong, char*, int);
-
-static
-char*	cond[16] =
-{
-	"EQ",	"NE",	"CS",	"CC",
-	"MI",	"PL",	"VS",	"VC",
-	"HI",	"LS",	"GE",	"LT",
-	"GT",	"LE",	0,	"NV"
-};
-
-static int
-get4(ulong addr, long *v)
-{
-	*v = *(ulong*)addr;
-	return 1;	
-}
-
-static int
-get2(ulong addr, ushort *v)
-{
-	*v = *(ushort*)addr;
-	return 1;
-}
-
-static char *
-_hexify(char *buf, ulong p, int zeros)
-{
-	ulong d;
-
-	d = p/16;
-	if(d)
-		buf = _hexify(buf, d, zeros-1);
-	else
-		while(zeros--)
-			*buf++ = '0';
-	*buf++ = "0123456789abcdef"[p&0x0f];
-	return buf;
-}
-
-#define B(h, l)		bits(ins, h, l)
-
-static int
-bits(int i, int h, int l)
-{
-	if(h < l)
-		print("h < l in bits");
-	return (i&(((1<<(h-l+1))-1)<<l))>>l;
-}
-
-int
-thumbclass(long w)
-{
-	int o;
-	int ins = w;
-
-	if(ins&0xffff0000)
-		return 3+2+2+4+16+4+1+8+6+2+2+2+4+1+1+1+2;
-	o = B(15, 13);
-	switch(o){
-	case 0:
-		o = B(12, 11);
-		switch(o){
-			case 0:
-			case 1:
-			case 2:
-				return B(12, 11);
-			case 3:
-				if(B(10, 10) == 0)
-					return 3+B(9, 9);
-				else
-					return 3+2+B(9, 9);
-		}
-	case 1:
-		return 3+2+2+B(12, 11);
-	case 2:
-		o = B(12, 10);
-		if(o == 0)
-			return 3+2+2+4+B(9, 6);
-		if(o == 1){
-			o = B(9, 8);
-			if(o == 3)
-				return 3+2+2+4+16+B(9, 8);
-			return 3+2+2+4+16+B(9, 8);
-		}
-		if(o == 2 || o == 3)
-			return 3+2+2+4+16+4;
-		return 3+2+2+4+16+4+1+B(11, 9);
-	case 3:
-		return 3+2+2+4+16+4+1+8+B(12, 11);
-	case 4:
-		if(B(12, 12) == 0)
-			return 3+2+2+4+16+4+1+8+4+B(11, 11);
-		return 3+2+2+4+16+4+1+8+6+B(11, 11);
-	case 5:
-		if(B(12, 12) == 0)
-			return 3+2+2+4+16+4+1+8+6+2+B(11, 11);
-		if(B(11, 8) == 0)
-			return 3+2+2+4+16+4+1+8+6+2+2+B(7, 7);
-		return 3+2+2+4+16+4+1+8+6+2+2+2+B(11, 11);
-	case 6:
-		if(B(12, 12) == 0)
-			return 3+2+2+4+16+4+1+8+6+2+2+2+2+B(11, 11);
-		if(B(11, 8) == 0xf)
-			return 3+2+2+4+16+4+1+8+6+2+2+2+4;
-		return 3+2+2+4+16+4+1+8+6+2+2+2+4+1;
-	case 7:
-		o = B(12, 11);
-		switch(o){
-			case 0:
-				return 3+2+2+4+16+4+1+8+6+2+2+2+4+1+1;
-			case 1:
-				return 3+2+2+4+16+4+1+8+6+2+2+2+4+1+1+1+2;
-			case 2:
-				return 3+2+2+4+16+4+1+8+6+2+2+2+4+1+1+1;
-			case 3:
-				return 3+2+2+4+16+4+1+8+6+2+2+2+4+1+1+1+1;
-		}
-	}
-}
-
-static int
-decode(ulong pc, Instr *i)
-{
-	ushort w;
-
-	get2(pc, &w);
-	i->w = w;
-	i->addr = pc;
-	i->op = thumbclass(w);
-	return 1;
-}
-
-static void
-bprint(Instr *i, char *fmt, ...)
-{
-	va_list arg;
-
-	va_start(arg, fmt);
-	i->curr = vseprint(i->curr, i->end, fmt, arg);
-	va_end(arg);
-}
-
-static void
-thumbshift(Opcode *o, Instr *i)
-{
-	int ins = i->w;
-
-	i->rd = B(2, 0);
-	i->rn = B(5, 3);
-	i->imm = B(10, 6);
-	format(o->o, i, o->a);
-}
-
-static void
-thumbrrr(Opcode *o, Instr *i)
-{
-	int ins = i->w;
-
-	i->rd = B(2, 0);
-	i->rn = B(5, 3);
-	i->rs = B(8, 6);
-	format(o->o, i, o->a);
-}
-
-static void
-thumbirr(Opcode *o, Instr *i)
-{
-	int ins = i->w;
-
-	i->rd = B(2, 0);
-	i->rn = B(5, 3);
-	i->imm = B(8, 6);
-	format(o->o, i, o->a);
-}
-
-static void
-thumbir(Opcode *o, Instr *i)
-{
-	int ins = i->w;
-
-	i->rd = B(10, 8);
-	i->imm = B(7, 0);
-	format(o->o, i, o->a);
-}
-
-static void
-thumbrr(Opcode *o, Instr *i)
-{
-	int ins = i->w;
-
-	i->rd = B(2, 0);
-	i->rn = B(5, 3);
-	format(o->o, i, o->a);
-}
-
-static void
-thumbrrh(Opcode *o, Instr *i)
-{
-	int ins = i->w;
-
-	i->rd = B(2, 0);
-	i->rn = B(5, 3);
-	if(B(6, 6))
-		i->rn += 8;
-	if(B(7, 7))
-		i->rd += 8;
-	if(o != nil){
-		if(i->w == 0x46b7 || i->w == 0x46f7 || i->w == 0x4730 || i->w == 0x4770)	// mov r6, pc or mov lr, pc or bx r6 or bx lr
-			format("RET", i, "");
-		else
-			format(o->o, i, o->a);
-	}
-}
-
-static void
-thumbpcrel(Opcode *o, Instr *i)
-{
-	int ins = i->w;
-
-	i->rn = 15;
-	i->rd = B(10, 8);
-	i->imm = 4*(B(7, 0)+1);
-	if(i->addr & 3)
-		i->imm -= 2;
-	format(o->o, i, o->a);
-}
-
-static void
-thumbmovirr(Opcode *o, Instr *i)
-{
-	int ins = i->w;
-
-	i->rd = B(2, 0);
-	i->rn = B(5, 3);
-	i->imm = B(10, 6);
-	if(strcmp(o->o, "MOVW") == 0)
-		i->imm *= 4;
-	else if(strncmp(o->o, "MOVH", 4) == 0)
-		i->imm *= 2;
-	format(o->o, i, o->a);
-}
-
-static void
-thumbmovsp(Opcode *o, Instr *i)
-{
-	int ins = i->w;
-
-	i->rn = 13;
-	i->rd = B(10, 8);
-	i->imm = 4*B(7, 0);
-	format(o->o, i, o->a);
-}
-
-static void
-thumbaddsppc(Opcode *o, Instr *i)
-{
-	int ins = i->w;
-
-	i->rd = B(10, 8);
-	i->imm = 4*B(7, 0);
-	if(i->op == 48)
-		i->imm += 4;
-	format(o->o, i, o->a);
-}
-
-static void
-thumbaddsp(Opcode *o, Instr *i)
-{
-	int ins = i->w;
-
-	i->imm = 4*B(6, 0);
-	format(o->o, i, o->a);
-}	
-
-static void
-thumbswi(Opcode *o, Instr *i)
-{
-	int ins = i->w;
-
-	i->imm = B(7, 0);
-	format(o->o, i, o->a);
-}
-
-static void
-thumbbcc(Opcode *o, Instr *i)
-{
-	int off, ins = i->w;
-
-	off = B(7, 0);
-	if(off & 0x80)
-		off |= 0xffffff00;
-	i->imm = i->addr + 2*off + 4;
-	if(o != nil)
-		format(o->o, i, o->a);
-}
-
-static void
-thumbb(Opcode *o, Instr *i)
-{
-	int off, ins = i->w;
-
-	off = B(10, 0);
-	if(off & 0x400)
-		off |= 0xfffff800;
-	i->imm = i->addr + 2*off + 4;
-	if(o != nil)
-		format(o->o, i, o->a);
-}	
-
-static void
-thumbbl(Opcode *o, Instr *i)
-{
-	int off, h, ins = i->w;
-	static int reglink;
-
-	h = B(11, 11);
-	off = B(10, 0);
-	if(h == 0){
-		if(off & 0x400)
-			off |= 0xfffff800;
-		i->imm = i->addr + (off<<12) + 4;
-		reglink = i->imm;
-	}
-	else{
-		i->imm = reglink + 2*off;
-	}
-	if(o != nil)
-		format(o->o, i, o->a);
-}	
-
-static void
-thumbregs(Opcode *o, Instr *i)
-{
-	int ins = i->w;
-
-	if(i->op == 52 || i->op == 53)
-		i->rd = 13;
-	else
-		i->rd = B(10, 8);
-	i->imm = B(7, 0);
-	format(o->o, i, o->a);
-}
-
-static void
-thumbunk(Opcode *o, Instr *i)
-{
-	format(o->o, i, o->a);
-}
-
-static Opcode opcodes[] =
-{
-	"LSL",	thumbshift,	0,	"$#%i,R%n,R%d",	// 0
-	"LSR",	thumbshift,	0,	"$#%i,R%n,R%d",	// 1
-	"ASR",	thumbshift,	0,	"$#%i,R%n,R%d",	// 2
-	"ADD",	thumbrrr,		0,	"R%s,R%n,R%d",		// 3
-	"SUB",	thumbrrr,		0,	"R%s,R%n,R%d",		// 4
-	"ADD",	thumbirr,		0,	"$#%i,R%n,R%d",	// 5
-	"SUB",	thumbirr,		0,	"$#%i,R%n,R%d",	// 6
-	"MOVW",	thumbir,		0,	"$#%i,R%d",		// 7
-	"CMP",	thumbir,		0,	"$#%i,R%d",		// 8
-	"ADD",	thumbir,		0,	"$#%i,R%d,R%d",	// 9
-	"SUB",	thumbir,		0,	"$#%i,R%d,R%d",	// 10
-	"AND",	thumbrr,		0,	"R%n,R%d,R%d",	// 11
-	"EOR",	thumbrr,		0,	"R%n,R%d,R%d",	// 12
-	"LSL",	thumbrr,		0,	"R%n,R%d,R%d",	// 13
-	"LSR",	thumbrr,		0,	"R%n,R%d,R%d",	// 14
-	"ASR",	thumbrr,		0,	"R%n,R%d,R%d",	// 15
-	"ADC",	thumbrr,		0,	"R%n,R%d,R%d",	// 16
-	"SBC",	thumbrr,		0,	"R%n,R%d,R%d",	// 17
-	"ROR",	thumbrr,		0,	"R%n,R%d,R%d",	// 18
-	"TST",	thumbrr,		0,	"R%n,R%d",		// 19
-	"NEG",	thumbrr,		0,	"R%n,R%d",		// 20
-	"CMP",	thumbrr,		0,	"R%n,R%d",		// 21
-	"CMPN",	thumbrr,		0,	"R%n,R%d",		// 22
-	"OR",	thumbrr,		0,	"R%n,R%d,R%d",	// 23
-	"MUL",	thumbrr,		0,	"R%n,R%d,R%d",	// 24
-	"BITC",	thumbrr,		0,	"R%n,R%d,R%d",	// 25
-	"MOVN",	thumbrr,		0,	"R%n,R%d",		// 26
-	"ADD",	thumbrrh,		0,	"R%n,R%d,R%d",	// 27
-	"CMP",	thumbrrh,		0,	"R%n,R%d",		// 28
-	"MOVW",	thumbrrh,		0,	"R%n,R%d",		// 29
-	"BX",		thumbrrh,		0,	"R%n",			// 30
-	"MOVW",	thumbpcrel,	0,	"%i(PC),R%d",		// 31
-	"MOVW",	thumbrrr,		0,	"R%d, [R%s,R%n]",	// 32
-	"MOVH",	thumbrrr,		0,	"R%d, [R%s,R%n]",	// 33
-	"MOVB",	thumbrrr,		0,	"R%d, [R%s,R%n]",	// 34
-	"MOVB",	thumbrrr,		0,	"[R%s,R%n],R%d",	// 35
-	"MOVW",	thumbrrr,		0,	"[R%s,R%n],R%d",	// 36
-	"MOVHU",	thumbrrr,		0,	"[R%s,R%n],R%d",	// 37
-	"MOVBU",	thumbrrr,		0,	"[R%s,R%n],R%d",	// 38
-	"MOVH",	thumbrrr,		0,	"[R%s,R%n],R%d",	// 39
-	"MOVW",	thumbmovirr,	0,	"R%d,%i(R%n)",			// 40
-	"MOVW",	thumbmovirr,	0,	"%i(R%n),R%d",			// 41
-	"MOVB",	thumbmovirr,	0,	"R%d,%i(R%n)",			// 42
-	"MOVBU",	thumbmovirr,	0,	"%i(R%n),R%d",		// 43
-	"MOVH",	thumbmovirr,	0,	"R%d,%i(R%n)",			// 44
-	"MOVHU",	thumbmovirr,	0,	"%i(R%n),R%d",			// 45
-	"MOVW",	thumbmovsp,	0,	"R%d,%i(SP)",			// 46
-	"MOVW",	thumbmovsp,	0,	"%i(SP),R%d",			// 47
-	"ADD",	thumbaddsppc,0,	"$#%i,PC,R%d",		// 48
-	"ADD",	thumbaddsppc,0,	"$#%i,SP,R%d",		// 49
-	"ADD",	thumbaddsp,	0,	"$#%i,SP,SP",		// 50
-	"SUB",	thumbaddsp,	0,	"$#%i,SP,SP",		// 51
-	"PUSH",	thumbregs,	0,	"R%d, %r",			// 52
-	"POP",	thumbregs,	0,	"R%d, %r",			// 53
-	"STMIA",	thumbregs,	0,	"R%d, %r",			// 54
-	"LDMIA",	thumbregs,	0,	"R%d, %r",			// 55
-	"SWI",	thumbswi,	0,	"$#%i",			// 56
-	"B%c",	thumbbcc,	0,	"%b",				// 57
-	"B",		thumbb,		0,	"%b",				// 58
-	"BL",		thumbbl,		0,	"",				// 59
-	"BL",		thumbbl,		0,	"%b",				// 60
-	"UNK",	thumbunk,	0,	"",				// 61
-};
-
-static void
-format(char *mnemonic, Instr *i, char *f)
-{
-	int j, k, m, n;
-	int ins = i->w;
-
-	if(mnemonic)
-		format(0, i, mnemonic);
-	if(f == 0)
-		return;
-	if(mnemonic)
-		if(i->curr < i->end)
-			*i->curr++ = '\t';
-	for ( ; *f && i->curr < i->end; f++) {
-		if(*f != '%') {
-			*i->curr++ = *f;
-			continue;
-		}
-		switch (*++f) {
-
-		case 'c':	/* Bcc */
-			bprint(i, "%s", cond[B(11, 8)]);
-			break;
-
-		case 's':
-			bprint(i, "%d", i->rs);
-			break;
-			
-		case 'n':
-			bprint(i, "%d", i->rn);
-			break;
-
-		case 'd':
-			bprint(i, "%d", i->rd);
-			break;
-
-		case 'i':
-			bprint(i, "%lux", i->imm);
-			break;
-
-		case 'b':
-			bprint(i, "%lux", i->imm);
-			break;
-
-		case 'r':
-			n = i->imm&0xff;
-			j = 0;
-			k = 0;
-			while(n) {
-				m = j;
-				while(n&0x1) {
-					j++;
-					n >>= 1;
-				}
-				if(j != m) {
-					if(k)
-						bprint(i, ",");
-					if(j == m+1)
-						bprint(i, "R%d", m);
-					else
-						bprint(i, "R%d-R%d", m, j-1);
-					k = 1;
-				}
-				j++;
-				n >>= 1;
-			}
-			break;
-
-		case '\0':
-			*i->curr++ = '%';
-			return;
-
-		default:
-			bprint(i, "%%%c", *f);
-			break;
-		}
-	}
-	*i->curr = 0;
-}
-
-void
-das(ulong *x, int n)
-{
-	ulong pc;
-	Instr i;
-	char buf[128];
-
-	pc = (ulong)x;
-	while(n > 0) {
-		i.curr = buf;
-		i.end = buf+sizeof(buf)-1;
-
-		if(decode(pc, &i) < 0)
-			sprint(buf, "???");
-		else
-			(*opcodes[i.op].f)(&opcodes[i.op], &i);
-
-		print("%.8lux %.8lux\t%s\n", pc, i.w, buf);
-		pc += 2;
-		n--;
-	}
-}
diff --git a/libinterp/mkfile b/libinterp/mkfile
index 81f39198..8881dca8 100644
--- a/libinterp/mkfile
+++ b/libinterp/mkfile
@@ -117,7 +117,6 @@ freetype.$O:	freetypemod.h $ROOT/include/freetype.h
 math.$O:	$ROOT/include/mathi.h
 
 das-spim.c:N:	das-mips.c
-das-68000.c:N:	das-68020.c
 comp-spim.c:N:	comp-mips.c
 
 # optab.h:	$ROOT/include/isa.h mkoptab