X-Git-Url: http://shamusworld.gotdns.org/cgi-bin/gitweb.cgi?p=rmac;a=blobdiff_plain;f=mach.c;h=1309fae048d9843349977e95a2f5fad0e5e0031f;hp=162757f41023d66fd18dbc99e5f25d31aab3d975;hb=HEAD;hpb=0c583009c5819e1774b24ef3cb59dde468fd3f60

diff --git a/mach.c b/mach.c
index 162757f..1fb1607 100644
--- a/mach.c
+++ b/mach.c
@@ -1,7 +1,7 @@
 //
-// RMAC - Reboot's Macro Assembler for all Atari computers
+// RMAC - Renamed Macro Assembler for all Atari computers
 // MACH.C - Code Generation
-// Copyright (C) 199x Landon Dyer, 2011-2017 Reboot and Friends
+// Copyright (C) 199x Landon Dyer, 2011-2021 Reboot and Friends
 // RMAC derived from MADMAC v1.07 Written by Landon Dyer, 1986
 // Source utilised with the kind permission of Landon Dyer
 //
@@ -17,14 +17,14 @@
 #include "sect.h"
 #include "token.h"
 
-#define DEF_KW
-#include "kwtab.h"
+#define DEF_REG68
+#include "68kregs.h"
 
 // Exported variables
 int movep = 0; // Global flag to indicate we're generating a movep instruction
 
 // Function prototypes
-int m_unimp(WORD, WORD), m_badmode(WORD, WORD), m_bad6mode(WORD, WORD), m_bad6inst(WORD, WORD);
+int m_unimp(WORD, WORD), m_badmode(WORD, WORD);
 int m_self(WORD, WORD);
 int m_abcd(WORD, WORD);
 int m_reg(WORD, WORD);
@@ -60,7 +60,7 @@ int m_cas2(WORD inst, WORD siz);
 int m_chk2(WORD inst, WORD siz);
 int m_cmp2(WORD inst, WORD siz);
 int m_bkpt(WORD inst, WORD siz);
-int m_cpbr(WORD inst, WORD siz);
+int m_cpbcc(WORD inst, WORD siz);
 int m_cpdbr(WORD inst, WORD siz);
 int m_muls(WORD inst, WORD siz);
 int m_move16a(WORD inst, WORD siz);
@@ -73,22 +73,28 @@ int m_cinv(WORD inst, WORD siz);
 int m_cprest(WORD inst, WORD siz);
 int m_movec(WORD inst, WORD siz);
 int m_moves(WORD inst, WORD siz);
+int m_lpstop(WORD inst, WORD siz);
+int m_plpa(WORD inst, WORD siz);
 
 // PMMU
 int m_pbcc(WORD inst, WORD siz);
 int m_pflusha(WORD inst, WORD siz);
 int m_pflush(WORD inst, WORD siz);
 int m_pflushr(WORD inst, WORD siz);
+int m_pflushan(WORD inst, WORD siz);
 int m_pload(WORD inst, WORD siz, WORD extension);
 int m_pmove(WORD inst, WORD siz);
 int m_pmovefd(WORD inst, WORD siz);
-int m_ptest(WORD inst, WORD siz);
+int m_ptest(WORD inst, WORD siz, WORD extension);
+int m_ptestr(WORD inste, WORD siz);
+int m_ptestw(WORD inste, WORD siz);
 int m_ptrapcc(WORD inst, WORD siz);
 int m_ploadr(WORD inst, WORD siz);
 int m_ploadw(WORD inst, WORD siz);
 
 // FPU
 int m_fabs(WORD inst, WORD siz);
+int m_fbcc(WORD inst, WORD siz);
 int m_facos(WORD inst, WORD siz);
 int m_fadd(WORD inst, WORD siz);
 int m_fasin(WORD inst, WORD siz);
@@ -346,9 +352,12 @@ int m_lea(WORD inst, WORD siz)
 		&& ((am0 == ADISP) && (a0reg == a1reg) && (a0exattr & DEFINED))
 		&& ((a0exval > 0) && (a0exval <= 8)))
 	{
-		inst = B16(01010000, 01001000) | (((uint16_t)a0exval & 7) << 9) | (a0reg);
+		inst = 0b0101000001001000 | (((uint16_t)a0exval & 7) << 9) | (a0reg);
 		D_word(inst);
-		warn("lea size(An),An converted to addq #size,An");
+
+		if (optim_warn_flag)
+			warn("o4: lea size(An),An converted to addq #size,An");
+
 		return OK;
 	}
 
@@ -400,8 +409,13 @@ int m_ea030(WORD inst, WORD siz)
 			// a corner case, so kludge it
 			a0reg = a0reg + 8;
 		else if (am0 == PCDISP)
-			//Another corner case (possibly!), so kludge ahoy
+			// Another corner case (possibly!), so kludge ahoy
 			inst |= am0;				// Get ea0 into instr
+		else if (am0 == IMMED && am1 == MEMPOST)
+		{
+			// Added for addi/andi/cmpi/eori/ori/subi #xx,(bd,An,Dm)
+			inst |= a1reg | AINDEXED;
+		}
 		else if (am0 == IMMED)
 			inst |= am0 | a0reg;		// Get ea0 into instr
 		else if (am0 == AM_CCR)
@@ -447,19 +461,45 @@ int m_abcd(WORD inst, WORD siz)
 //
 int m_adda(WORD inst, WORD siz)
 {
-	if (a0exattr & DEFINED)
+	if ((a0exattr & DEFINED) && (am0 == IMMED))
 	{
- 		if (CHECK_OPTS(OPT_ADDA_ADDQ))
-			if (a0exval > 1 && a0exval <= 8)
+		if (CHECK_OPTS(OPT_ADDA_ADDQ))
+		{
+			if ((a0exval > 1) && (a0exval <= 8))
+			{
 				// Immediate is between 1 and 8 so let's convert to addq
-				return m_addq(B16(01010000, 00000000), siz);
-	if (CHECK_OPTS(OPT_ADDA_LEA))
-		if (a0exval > 8)
- 		{
-			// Immediate is larger than 8 so let's convert to lea
-			am0 = ADISP;    // Change addressing mode
-			a0reg = a1reg;  // In ADISP a0reg is used instead of a1reg!
-			return m_lea(B16(01000001, 11011000), SIZW);
+				return m_addq(0b0101000000000000, siz);
+
+				if (optim_warn_flag)
+					warn("o8: adda/suba size(An),An converted to addq/subq #size,An");
+			}
+		}
+
+		if (CHECK_OPTS(OPT_ADDA_LEA))
+		{
+			if ((a0exval > 8) && ((a0exval + 0x8000) < 0x10000))
+			{
+				// Immediate is larger than 8 and word size so let's convert to lea
+				am0 = ADISP;    // Change addressing mode
+				a0reg = a1reg;  // In ADISP a0reg is used instead of a1reg!
+
+				if (!(inst & (1 << 14)))
+				{
+					// We have a suba #x,AREG so let's negate the value
+					a0exval = -a0exval;
+				}
+
+				// We're going to rely on +o4 for this, so let's ensure that
+				// it's on, even just for this instruction
+				int return_value;
+				int temp_flag = optim_flags[OPT_LEA_ADDQ];
+				optim_flags[OPT_LEA_ADDQ] = 1;				// Temporarily save switch state
+				return_value = m_lea(0b0100000111011000, SIZW);
+				optim_flags[OPT_LEA_ADDQ] = temp_flag;		// Restore switch state
+				if (optim_warn_flag)
+					warn("o9: adda.w/l #x,Ay converted to lea x(Dy),Ay");
+				return return_value;
+			}
 		}
 	}
 
@@ -601,7 +641,7 @@ int m_dbra(WORD inst, WORD siz)
 		if ((a1exattr & TDB) != cursect)
 			return error(rel_error);
 
-		uint32_t v = a1exval - sloc;
+		uint32_t v = (uint32_t)a1exval - sloc;
 
 		if (v + 0x8000 > 0x10000)
 			return error(range_error);
@@ -676,12 +716,12 @@ int m_link(WORD inst, WORD siz)
 
 WORD extra_addressing[16]=
 {
-	0,     // 0100 (bd,An,Xn)
-	0,     // 0101 ([bd,An],Xn,od)
-	0x180, // 0102 ([bc,An,Xn],od) (111 110 110 111)
-	0,     // 0103 (bd,PC,Xn)
-	0,     // 0104 ([bd,PC],Xn,od)
-	0,     // 0105 ([bc,PC,Xn],od)
+	0x30,  // 0100 (bd,An,Xn)
+	0x30,  // 0101 ([bd,An],Xn,od)
+	0x30,  // 0102 ([bc,An,Xn],od)
+	0x30,  // 0103 (bd,PC,Xn)
+	0x30,  // 0104 ([bd,PC],Xn,od)
+	0x30,  // 0105 ([bc,PC,Xn],od)
 	0,     // 0106
 	0,     // 0107
 	0,     // 0110
@@ -716,8 +756,8 @@ int m_move(WORD inst, WORD size)
 	{
 		m_moveq((WORD)0x7000, (WORD)0);
 
-		if (sbra_flag)
-			warn("move.l #size,dx converted to moveq");
+		if (optim_warn_flag)
+			warn("o1: move.l #size,dx converted to moveq");
 	}
 	else
 	{
@@ -753,14 +793,16 @@ int m_move(WORD inst, WORD size)
 
 //
 // Handle MOVE <C_ALL030> <C_ALTDATA>
-//        MOVE <C_ALL030> <M_AREG>
+//		MOVE <C_ALL030> <M_AREG>
 //
 int m_move30(WORD inst, WORD size)
 {
 	int siz = (int)size;
-	// TODO: is extra_addressing necessary/correct?
-	//inst |= siz_12[siz] | reg_9[a1reg & 7] | a0reg | extra_addressing[am0 - ABASE];
-	inst |= siz_12[siz] | reg_9[a1reg & 7] | a0reg;
+
+	if (am0 > ABASE)
+		inst |= siz_12[siz] | reg_9[a1reg & 7] | a0reg | extra_addressing[am0 - ABASE];
+	else
+		inst |= siz_12[siz] | reg_9[a1reg & 7] | a0reg | extra_addressing[am1 - ABASE] << 3;
 
 	D_word(inst);
 
@@ -876,8 +918,8 @@ int m_br(WORD inst, WORD siz)
 				inst |= v & 0xFF;
 				D_word(inst);
 
-				if (sbra_flag)
-					warn("Bcc.w/BSR.w converted to .s");
+				if (optim_warn_flag)
+					warn("o2: Bcc.w/BSR.w converted to .s");
 
 				return OK;
 			}
@@ -919,7 +961,21 @@ int m_br(WORD inst, WORD siz)
 	{
 		// .B
 		AddFixup(FU_BBRA | FU_PCREL | FU_SEXT, sloc, a0expr);
-		D_word(inst);
+		// So here we have a small issue: this bra.s could be zero offset, but
+		// we can never know. Because unless we know beforehand that the
+		// offset will be zero (i.e. "bra.s +0"), it's going to be a label
+		// below this instruction! We do have an optimisation flag that can
+		// check against this during fixups, but we cannot rely on the state
+		// of the flag after all the file(s) have been processed because its
+		// state might have changed multiple times during file parsing. (Yes,
+		// there's a very low chance that this will ever happen but it's not
+		// zero!). So, we can use the byte that is going to be filled during
+		// fixups to store the state of the optimisation flag and read it
+		// during that stage so each bra.s will have its state stored neatly.
+		// Sleazy? Eh, who cares, like this will ever happen ;)
+		// One final note: we'd better be damn sure that the flag's value is
+		// less than 256 or magical stuff will happen!
+		D_word(inst | optim_flags[OPT_NULL_BRA]);
 		return OK;
 	}
 	else
@@ -1017,7 +1073,7 @@ int m_movem(WORD inst, WORD siz)
 		goto immed1;
 	}
 
-	if ((*tok >= KW_D0) && (*tok <= KW_A7))
+	if ((*tok >= REG68_D0) && (*tok <= REG68_A7))
 	{
 		// <rlist>, ea
 		if (reglist(&rmask) < 0)
@@ -1042,7 +1098,7 @@ immed1:
 			rmask = 0;
 
 			for(i=0x8000; i; i>>=1, w>>=1)
-				rmask = (WORD)((rmask << 1) | w & 1);
+				rmask = (WORD)((rmask << 1) | (w & 1));
 		}
 	}
 	else
@@ -1107,7 +1163,11 @@ int m_clrd(WORD inst, WORD siz)
 	if (!CHECK_OPTS(OPT_CLR_DX))
 		inst |= a0reg;
 	else
-		inst = (a0reg << 9) | B16(01110000, 00000000);
+	{
+		inst = (a0reg << 9) | 0b0111000000000000;
+		if (optim_warn_flag)
+			warn("o7: clr.l Dx converted to moveq #0,Dx");
+	}
 
 	D_word(inst);
 
@@ -1178,19 +1238,42 @@ int m_bfop(WORD inst, WORD siz)
 	else
 		bfparam1 = bfval1 << 12;
 
-	D_word((inst | am0 | a0reg | am1 | a1reg));
+	//D_word((inst | am0 | a0reg | am1 | a1reg));
+	if (inst == 0b1110111111000000)
+	{
+		// bfins special case
+		D_word((inst | am1 | a1reg));
+	}
+	else
+	{
+		D_word((inst | am0 | a0reg));
+	}
+
 	ea0gen(siz);	// Generate EA
 
 	// Second instruction word - Dest register (if exists), Do, Offset, Dw, Width
-	inst = bfparam1 | bfparam2;
+	if (inst == 0b1110111111000000)
+	{
+		// bfins special case
+		inst = bfparam1 | bfparam2;
 
-	if (am1 == DREG)
-		inst |= a1reg << 0;
+		if (am1 == DREG)
+			inst |= a0reg << 12;
 
-	if (am0 == DREG)
-		inst |= a0reg << 12;
+		D_word(inst);
+	}
+	else
+	{
+		inst = bfparam1 | bfparam2;
 
-	D_word(inst);
+		if (am1 == DREG)
+			inst |= a0reg << 0;
+
+		if (am0 == DREG)
+			inst |= a1reg << 12;
+
+		D_word(inst);
+	}
 
 	return OK;
 }
@@ -1282,7 +1365,7 @@ int m_cas(WORD inst, WORD siz)
 	}
 
 	// Dc
-	if ((*tok < KW_D0) && (*tok > KW_D7))
+	if ((*tok < REG68_D0) && (*tok > REG68_D7))
 		return error("CAS accepts only data registers");
 
 	inst2 = (*tok++) & 7;
@@ -1291,7 +1374,7 @@ int m_cas(WORD inst, WORD siz)
 		return error("missing comma");
 
 	// Du
-	if ((*tok < KW_D0) && (*tok > KW_D7))
+	if ((*tok < REG68_D0) && (*tok > REG68_D7))
 		return error("CAS accepts only data registers");
 
 	inst2 |= ((*tok++) & 7) << 6;
@@ -1352,7 +1435,7 @@ int m_cas2(WORD inst, WORD siz)
 	}
 
 	// Dc1
-	if ((*tok < KW_D0) && (*tok > KW_D7))
+	if ((*tok < REG68_D0) && (*tok > REG68_D7))
 		return error("CAS2 accepts only data registers for Dx1:Dx2 pairs");
 
 	inst2 = (*tok++) & 7;
@@ -1361,7 +1444,7 @@ int m_cas2(WORD inst, WORD siz)
 		return error("missing colon");
 
 	// Dc2
-	if ((*tok < KW_D0) && (*tok > KW_D7))
+	if ((*tok < REG68_D0) && (*tok > REG68_D7))
 		return error("CAS2 accepts only data registers for Dx1:Dx2 pairs");
 
 	inst3 = (*tok++) & 7;
@@ -1370,7 +1453,7 @@ int m_cas2(WORD inst, WORD siz)
 		return error("missing comma");
 
 	// Du1
-	if ((*tok < KW_D0) && (*tok > KW_D7))
+	if ((*tok < REG68_D0) && (*tok > REG68_D7))
 		return error("CAS2 accepts only data registers for Dx1:Dx2 pairs");
 
 	inst2 |= ((*tok++) & 7) << 6;
@@ -1379,7 +1462,7 @@ int m_cas2(WORD inst, WORD siz)
 		return error("missing colon");
 
 	// Du2
-	if ((*tok < KW_D0) && (*tok > KW_D7))
+	if ((*tok < REG68_D0) && (*tok > REG68_D7))
 		return error("CAS2 accepts only data registers for Dx1:Dx2 pairs");
 
 	inst3 |= ((*tok++) & 7) << 6;
@@ -1390,9 +1473,9 @@ int m_cas2(WORD inst, WORD siz)
 	// Rn1
 	if (*tok++ != '(')
 		return error("missing (");
-	if ((*tok >= KW_D0) && (*tok <= KW_D7))
+	if ((*tok >= REG68_D0) && (*tok <= REG68_D7))
 		inst2 |= (((*tok++) & 7) << 12) | (0 << 15);
-	else if ((*tok >= KW_A0) && (*tok <= KW_A7))
+	else if ((*tok >= REG68_A0) && (*tok <= REG68_A7))
 		inst2 |= (((*tok++) & 7) << 12) | (1 << 15);
 	else
 		return error("CAS accepts either data or address registers for Rn1:Rn2 pair");
@@ -1406,9 +1489,9 @@ int m_cas2(WORD inst, WORD siz)
 	// Rn2
 	if (*tok++ != '(')
 		return error("missing (");
-	if ((*tok >= KW_D0) && (*tok <= KW_D7))
+	if ((*tok >= REG68_D0) && (*tok <= REG68_D7))
 		inst3 |= (((*tok++) & 7) << 12) | (0 << 15);
-	else if ((*tok >= KW_A0) && (*tok <= KW_A7))
+	else if ((*tok >= REG68_A0) && (*tok <= REG68_A7))
 		inst3 |= (((*tok++) & 7) << 12) | (1 << 15);
 	else
 		return error("CAS accepts either data or address registers for Rn1:Rn2 pair");
@@ -1513,12 +1596,10 @@ int m_chk2(WORD inst, WORD siz)
 
 
 //
-// cpbcc(68020, 68030)
+// cpbcc(68020, 68030, 68040 (FBcc), 68060 (FBcc)), pbcc (68851)
 //
-int m_cpbr(WORD inst, WORD siz)
+int m_fpbr(WORD inst, WORD siz)
 {
-	if ((activecpu & (CPU_68020 | CPU_68030)) == 0)
-		return error(unsupport);
 
 	if (a0exattr & DEFINED)
 	{
@@ -1538,7 +1619,7 @@ int m_cpbr(WORD inst, WORD siz)
 				return OK;
 			}
 		}
-        else // SIZW/SIZN
+		else // SIZW/SIZN
 		{
 			if ((v + 0x8000) >= 0x10000)
 				return error(range_error);
@@ -1572,6 +1653,38 @@ int m_cpbr(WORD inst, WORD siz)
 }
 
 
+//
+// cpbcc(68020, 68030, 68040 (FBcc), 68060 (FBcc))
+//
+int m_cpbcc(WORD inst, WORD siz)
+{
+	if (!(activecpu & (CPU_68020 | CPU_68030)))
+		return error(unsupport);
+
+	return m_fpbr(inst, siz);
+}
+
+
+//
+// fbcc(6808X, 68040, 68060)
+//
+int m_fbcc(WORD inst, WORD siz)
+{
+	CHECKNOFPU;
+	return m_fpbr(inst, siz);
+}
+
+
+//
+// pbcc(68851 but let's assume 68020 only)
+//
+int m_pbcc(WORD inst, WORD siz)
+{
+	CHECKNO20;
+	return m_fpbr(inst, siz);
+}
+
+
 //
 // cpdbcc(68020, 68030)
 //
@@ -1609,6 +1722,7 @@ int m_cpdbr(WORD inst, WORD siz)
 	}
 
 	return OK;
+
 }
 
 
@@ -1629,7 +1743,7 @@ int m_muls(WORD inst, WORD siz)
 
 	if (flg & 16)
 	{
-		// OR-in register number 
+		// OR-in register number
 		if (flg & 8)
 			inst |= reg_9[a1reg];		// ea1reg in bits 9..11
 		else
@@ -1658,7 +1772,7 @@ int m_muls(WORD inst, WORD siz)
 
 		 D_word(inst);
 
-		// Generate ea0 if requested 
+		// Generate ea0 if requested
 		if (flg & 2)
 			ea0gen(siz);
 
@@ -1726,7 +1840,7 @@ int m_move16b(WORD inst, WORD siz)
 			return error("Wasn't this suppose to call m_move16a???");
 		else
 		{
-			//move16 (ax)+,(xxx).L
+			// move16 (ax)+,(xxx).L
 			inst |= 0 << 3;
 			v = (int)a1exval;
 		}
@@ -1735,20 +1849,20 @@ int m_move16b(WORD inst, WORD siz)
 	{
 		if (am1 == AIND)
 		{
-			//move16 (xxx).L,(ax)+
+			// move16 (xxx).L,(ax)+
 			inst |= 1 << 3;
 			v = (int)a0exval;
 		}
-		else //APOSTINC
+		else // APOSTINC
 		{
-			//move16 (xxx).L,(ax)
+			// move16 (xxx).L,(ax)
 			inst |= 3 << 3;
 			v = (int)a0exval;
 		}
 	}
 	else if (am0 == AIND)
 	{
-		//move16 (ax),(xxx).L
+		// move16 (ax),(xxx).L
 		inst |= 2 << 3;
 		v = (int)a1exval;
 	}
@@ -1770,7 +1884,7 @@ int m_pack(WORD inst, WORD siz)
 	if (siz != SIZN)
 		return error("bad size suffix");
 
-	if (*tok >= KW_D0 && *tok <= KW_D7)
+	if (*tok >= REG68_D0 && *tok <= REG68_D7)
 	{
 		// Dx,Dy,#<adjustment>
 		inst |= (0 << 3);   // R/M
@@ -1779,7 +1893,7 @@ int m_pack(WORD inst, WORD siz)
 		if (*tok != ',' && tok[2] != ',')
 			return error("missing comma");
 
-		if (tok[1] < KW_D0 && tok[1] > KW_D7)
+		if (tok[1] < REG68_D0 && tok[1] > REG68_D7)
 			return error(syntax_error);
 
 		inst |= ((tok[1] & 7)<<9);
@@ -1796,10 +1910,10 @@ int m_pack(WORD inst, WORD siz)
 		if ((*tok != '(') && (tok[2]!=')') && (tok[3]!=',') && (tok[4] != '-') && (tok[5] != '(') && (tok[7] != ')') && (tok[8] != ','))
 			return error(syntax_error);
 
-		if (tok[1] < KW_A0 && tok[1] > KW_A7)
+		if (tok[1] < REG68_A0 && tok[1] > REG68_A7)
 			return error(syntax_error);
 
-		if (tok[5] < KW_A0 && tok[6] > KW_A7)
+		if (tok[5] < REG68_A0 && tok[6] > REG68_A7)
 			return error(syntax_error);
 
 		inst |= ((tok[1] & 7) << 0);
@@ -1920,7 +2034,7 @@ int m_trapcc(WORD inst, WORD siz)
 
 
 //
-// cinvl/p/a (68040)
+// cinvl/p/a (68040/68060)
 //
 int m_cinv(WORD inst, WORD siz)
 {
@@ -1930,13 +2044,13 @@ int m_cinv(WORD inst, WORD siz)
 		inst |= (0 << 6) | (a1reg);
 	switch (a0reg)
 	{
-	case 0:     // KW_IC40
+	case 0:     // REG68_IC40
 		inst |= (2 << 6) | (a1reg);
 		break;
-	case 1:     // KW_DC40
+	case 1:     // REG68_DC40
 		inst |= (1 << 6) | (a1reg);
 		break;
-	case 2:     // KW_BC40
+	case 2:     // REG68_BC40
 		inst |= (3 << 6) | (a1reg);
 		break;
 	}
@@ -1983,7 +2097,7 @@ int m_frestore(WORD inst, WORD siz)
 
 
 //
-// movec (68010, 68020, 68030, 68040, CPU32)
+// movec (68010, 68020, 68030, 68040, 68060, CPU32)
 //
 int m_movec(WORD inst, WORD siz)
 {
@@ -2078,16 +2192,6 @@ int m_moves(WORD inst, WORD siz)
 }
 
 
-//
-// PBcc (MC68851)
-//
-int m_pbcc(WORD inst, WORD siz)
-{
-	CHECKNO20;
-	return error("Not implemented yet.");
-}
-
-
 //
 // pflusha (68030, 68040)
 //
@@ -2102,7 +2206,7 @@ int m_pflusha(WORD inst, WORD siz)
 	}
 	else if (activecpu == CPU_68040)
 	{
-		inst = B16(11110101, 00011000);
+		inst = 0b1111010100011000;
 		D_word(inst);
 		return OK;
 	}
@@ -2138,26 +2242,26 @@ int m_pflush(WORD inst, WORD siz)
 			if ((a0exattr & DEFINED) == 0)
 				return error("function code immediate should be defined");
 
-			if (a0exval > 7 && a0exval < 0)
+			if (a0exval > 7)
 				return error("function code out of range (0-7)");
 
 			fc = (uint16_t)a0exval;
 			break;
-		case KW_D0:
-		case KW_D1:
-		case KW_D2:
-		case KW_D3:
-		case KW_D4:
-		case KW_D5:
-		case KW_D6:
-		case KW_D7:
+		case REG68_D0:
+		case REG68_D1:
+		case REG68_D2:
+		case REG68_D3:
+		case REG68_D4:
+		case REG68_D5:
+		case REG68_D6:
+		case REG68_D7:
 			fc = (1 << 4) | (*tok++ & 7);
 			break;
-		case KW_SFC:
+		case REG68_SFC:
 			fc = 0;
 			tok++;
 			break;
-		case KW_DFC:
+		case REG68_DFC:
 			fc = 1;
 			tok++;
 			break;
@@ -2180,7 +2284,7 @@ int m_pflush(WORD inst, WORD siz)
 		if ((a0exattr & DEFINED) == 0)
 			return error("mask immediate value should be defined");
 
-		if (a0exval > 7 && a0exval < 0)
+		if (a0exval > 7)
 			return error("function code out of range (0-7)");
 
 		mask = (uint16_t)a0exval << 5;
@@ -2229,7 +2333,7 @@ int m_pflush(WORD inst, WORD siz)
 		if (*tok != '(' && tok[2] != ')')
 			return error(syntax_error);
 
-		if (tok[1] < KW_A0 && tok[1] > KW_A7)
+		if (tok[1] < REG68_A0 && tok[1] > REG68_A7)
 			return error("expected (An)");
 
 		if ((inst & 7) == 7)
@@ -2254,6 +2358,18 @@ int m_pflush(WORD inst, WORD siz)
 }
 
 
+//
+// pflushan (68040, 68060)
+//
+int m_pflushan(WORD inst, WORD siz)
+{
+	if (activecpu == CPU_68040 || activecpu == CPU_68060)
+		D_word(inst);
+
+	return OK;
+}
+
+
 //
 // pflushr (68851)
 //
@@ -2301,7 +2417,7 @@ int m_pflushr(WORD inst, WORD siz)
 			ea1gen(siz);
 	}
 
-	D_word(B16(10100000, 00000000));
+	D_word(0b1010000000000000);
 	return OK;
 }
 
@@ -2322,13 +2438,12 @@ int m_pload(WORD inst, WORD siz, WORD extension)
 	switch (am0)
 	{
 	case CREG:
-		if (a0reg == KW_SFC - KW_SFC)
+		if (a0reg == REG68_SFC - REG68_SFC)
 			inst = 0;
-		else if (a0reg == KW_DFC - KW_SFC)
+		else if (a0reg == REG68_DFC - REG68_SFC)
 			inst = 1;
 		else
 			return error("illegal control register specified");
-
 		break;
 	case DREG:
 		inst = (1 << 3) | a0reg;
@@ -2337,6 +2452,9 @@ int m_pload(WORD inst, WORD siz, WORD extension)
 		if ((a0exattr & DEFINED) == 0)
 			return error("constant value must be defined");
 
+		if (a0exval>7)
+		return error("constant value must be between 0 and 7");
+
 		inst = (2 << 3) | (uint16_t)a0exval;
 		break;
 	}
@@ -2392,19 +2510,19 @@ int m_pmove(WORD inst, WORD siz)
 
 	// The instruction is a quad-word (8 byte) operation
 	// for the CPU root pointer and the supervisor root pointer.
-	// It is a long - word operation for the translation control register
+	// It is a long-word operation for the translation control register
 	// and the transparent translation registers(TT0 and TT1).
 	// It is a word operation for the MMU status register.
 
-	if (((reg == (KW_URP - KW_SFC)) || (reg == (KW_SRP - KW_SFC)))
+	if (((reg == (REG68_URP - REG68_SFC)) || (reg == (REG68_SRP - REG68_SFC)))
 		&& ((siz != SIZD) && (siz != SIZN)))
 		return error(siz_error);
 
-	if (((reg == (KW_TC - KW_SFC)) || (reg == (KW_TT0 - KW_SFC)) || (reg == (KW_TT1 - KW_SFC)))
+	if (((reg == (REG68_TC - REG68_SFC)) || (reg == (REG68_TT0 - REG68_SFC)) || (reg == (REG68_TT1 - REG68_SFC)))
 		&& ((siz != SIZL) && (siz != SIZN)))
 		return error(siz_error);
 
-	if ((reg == (KW_MMUSR - KW_SFC)) && ((siz != SIZW) && (siz != SIZN)))
+	if ((reg == (REG68_MMUSR - REG68_SFC)) && ((siz != SIZW) && (siz != SIZN)))
 		return error(siz_error);
 
 	if (am0 == CREG)
@@ -2414,23 +2532,23 @@ int m_pmove(WORD inst, WORD siz)
 	}
 	else if (am1 == CREG)
 	{
-    	inst |= am0 | a0reg;
+		inst |= am0 | a0reg;
 		D_word(inst);
 	}
 
-	switch (reg + KW_SFC)
+	switch (reg + REG68_SFC)
 	{
-	case KW_TC:
+	case REG68_TC:
 		inst2 |= (0 << 10) + (1 << 14); break;
-	case KW_SRP:
+	case REG68_SRP:
 		inst2 |= (2 << 10) + (1 << 14); break;
-	case KW_CRP:
+	case REG68_CRP:
 		inst2 |= (3 << 10) + (1 << 14); break;
-	case KW_TT0:
+	case REG68_TT0:
 		inst2 |= (2 << 10) + (0 << 13); break;
-	case KW_TT1:
+	case REG68_TT1:
 		inst2 |= (3 << 10) + (0 << 13); break;
-	case KW_MMUSR:
+	case REG68_MMUSR:
 		if (am0 == CREG)
 			inst2 |= (1 << 9) + (3 << 13);
 		else
@@ -2468,7 +2586,7 @@ int m_pmovefd(WORD inst, WORD siz)
 //
 int m_ptrapcc(WORD inst, WORD siz)
 {
-    CHECKNO20;
+	CHECKNO20;
 	// We stash the 5 condition bits inside the opcode in 68ktab (bits 0-4),
 	// so we need to extract them first and fill in the clobbered bits.
 	WORD opcode = inst & 0x1F;
@@ -2500,20 +2618,103 @@ int m_ptrapcc(WORD inst, WORD siz)
 
 
 //
-// ptestr, ptestw (68030)
+// ptestr, ptestw (68030, 68040)
+// TODO See comment on m_pmove about 68851 support
+// TODO quite a good chunk of the 030 code is copied from m_pload, perhaps merge these somehow?
 //
-int m_ptest(WORD inst, WORD siz)
+int m_ptest(WORD inst, WORD siz, WORD extension)
 {
-	CHECKNO30;
+	uint64_t eval;
+
+	if (activecpu != CPU_68030 && activecpu != CPU_68040)
+		return error(unsupport);
 
 	if (activecpu == CPU_68030)
-		return error("Not implemented yet.");
-	else if (activecpu == CPU_68040)
+	{
+		inst |= am1;
+		D_word(inst);
+
+		switch (am0)
+		{
+		case CREG:
+			if (a0reg == REG68_SFC - REG68_SFC)
+				extension |= 0;
+			else if (a0reg == REG68_DFC - REG68_SFC)
+				extension |= 1;
+			else
+				return error("illegal control register specified");
+			break;
+		case DREG:
+			extension |= (1 << 3) | a0reg;
+			break;
+		case IMMED:
+			if ((a0exattr & DEFINED) == 0)
+				return error("constant value must be defined");
+
+			if (a0exval > 7)
+				return error("constant value must be between 0 and 7");
+
+			extension |= (2 << 3) | (uint16_t)a0exval;
+			break;
+		}
+
+		// Operand 3 must be an immediate
+		CHECK_COMMA
+
+		if (*tok++ != '#')
+			return error("ptest level must be immediate");
+
+		// Let's be a bit inflexible here and demand that this
+		// is fully defined at this stage. Otherwise we'd have
+		// to arrange for a bitfield fixup, which would mean
+		// polluting the bitfields and codebase with special
+		// cases that might most likely never be used.
+		// So if anyone gets bit by this: sorry for being a butt!
+		if (abs_expr(&eval) != OK)
+			return OK;      // We're returning OK because error() has already been called and error count has been increased
+
+		if (eval > 7)
+			return error("ptest level must be between 0 and 7");
+
+		extension |= eval << 10;
+
+		// Operand 4 is optional and must be an address register
+
+		if (*tok != EOL)
+		{
+			CHECK_COMMA
+
+			if ((*tok >= REG68_A0) && (*tok <= REG68_A7))
+			{
+				extension |= (1 << 8) | ((*tok++ & 7) << 4);
+			}
+			else
+			{
+				return error("fourth parameter must be an address register");
+			}
+		}
+
+		ErrorIfNotAtEOL();
+
+		D_word(extension);
+		return OK;
+	}
+	else
 		return error("Not implemented yet.");
 
 	return ERROR;
 }
 
+int m_ptestr(WORD inst, WORD siz)
+{
+	return m_ptest(inst, siz, (1 << 15) | (0 << 9));
+}
+
+int m_ptestw(WORD inst, WORD siz)
+{
+	return m_ptest(inst, siz, (1 << 15) | (1 << 9));
+}
+
 //////////////////////////////////////////////////////////////////////////////
 //
 // 68020/30/40/60 instructions
@@ -2594,7 +2795,7 @@ static inline int gen_fpu(WORD inst, WORD siz, WORD opmode, WORD emul)
 int m_fabs(WORD inst, WORD siz)
 {
 	CHECKNOFPU;
-	return gen_fpu(inst, siz, B8(00011000), FPU_NOWARN);
+	return gen_fpu(inst, siz, 0b00011000, FPU_NOWARN);
 }
 
 
@@ -2605,7 +2806,7 @@ int m_fsabs(WORD inst, WORD siz)
 {
 	CHECKNO40;
 	if (activefpu == FPU_68040)
-		return gen_fpu(inst, siz, B8(01011000), FPU_NOWARN);
+		return gen_fpu(inst, siz, 0b01011000, FPU_NOWARN);
 
 	return error("Unsupported in current FPU");
 }
@@ -2617,7 +2818,7 @@ int m_fsabs(WORD inst, WORD siz)
 int m_fdabs(WORD inst, WORD siz)
 {
 	if (activefpu == FPU_68040)
-		return gen_fpu(inst, siz, B8(01011100), FPU_NOWARN);
+		return gen_fpu(inst, siz, 0b01011100, FPU_NOWARN);
 
 	return error("Unsupported in current FPU");
 }
@@ -2629,7 +2830,7 @@ int m_fdabs(WORD inst, WORD siz)
 int m_facos(WORD inst, WORD siz)
 {
 	CHECKNOFPU;
-	return gen_fpu(inst, siz, B8(00011100), FPU_FPSP);
+	return gen_fpu(inst, siz, 0b00011100, FPU_FPSP);
 }
 
 
@@ -2639,7 +2840,7 @@ int m_facos(WORD inst, WORD siz)
 int m_fadd(WORD inst, WORD siz)
 {
 	CHECKNOFPU;
-	return gen_fpu(inst, siz, B8(00100010), FPU_NOWARN);
+	return gen_fpu(inst, siz, 0b00100010, FPU_NOWARN);
 }
 
 
@@ -2649,7 +2850,7 @@ int m_fadd(WORD inst, WORD siz)
 int m_fsadd(WORD inst, WORD siz)
 {
 	if (activefpu & (FPU_68040 | FPU_68060))
-		return gen_fpu(inst, siz, B8(01100010), FPU_NOWARN);
+		return gen_fpu(inst, siz, 0b01100010, FPU_NOWARN);
 
 	return error("Unsupported in current FPU");
 }
@@ -2661,7 +2862,7 @@ int m_fsadd(WORD inst, WORD siz)
 int m_fdadd(WORD inst, WORD siz)
 {
 	if (activefpu & (FPU_68040 | FPU_68060))
-		return gen_fpu(inst, siz, B8(01100110), FPU_NOWARN);
+		return gen_fpu(inst, siz, 0b01100110, FPU_NOWARN);
 
 	return error("Unsupported in current FPU");
 }
@@ -2673,7 +2874,7 @@ int m_fdadd(WORD inst, WORD siz)
 int m_fasin(WORD inst, WORD siz)
 {
 	CHECKNOFPU;
-	return gen_fpu(inst, siz, B8(00001100), FPU_FPSP);
+	return gen_fpu(inst, siz, 0b00001100, FPU_FPSP);
 }
 
 
@@ -2683,7 +2884,7 @@ int m_fasin(WORD inst, WORD siz)
 int m_fatan(WORD inst, WORD siz)
 {
 	CHECKNOFPU;
-	return gen_fpu(inst, siz, B8(00001010), FPU_FPSP);
+	return gen_fpu(inst, siz, 0b00001010, FPU_FPSP);
 }
 
 
@@ -2693,7 +2894,7 @@ int m_fatan(WORD inst, WORD siz)
 int m_fatanh(WORD inst, WORD siz)
 {
 	CHECKNOFPU;
-	return gen_fpu(inst, siz, B8(00001101), FPU_FPSP);
+	return gen_fpu(inst, siz, 0b00001101, FPU_FPSP);
 }
 
 
@@ -2703,7 +2904,7 @@ int m_fatanh(WORD inst, WORD siz)
 int m_fcmp(WORD inst, WORD siz)
 {
 	CHECKNOFPU;
-	return gen_fpu(inst, siz, B8(00111000), FPU_FPSP);
+	return gen_fpu(inst, siz, 0b00111000, FPU_FPSP);
 }
 
 
@@ -2713,7 +2914,7 @@ int m_fcmp(WORD inst, WORD siz)
 int m_fcos(WORD inst, WORD siz)
 {
 	CHECKNOFPU;
-	return gen_fpu(inst, siz, B8(00011101), FPU_FPSP);
+	return gen_fpu(inst, siz, 0b00011101, FPU_FPSP);
 }
 
 
@@ -2723,7 +2924,7 @@ int m_fcos(WORD inst, WORD siz)
 int m_fcosh(WORD inst, WORD siz)
 {
 	CHECKNOFPU;
-	return gen_fpu(inst, siz, B8(00011001), FPU_FPSP);
+	return gen_fpu(inst, siz, 0b00011001, FPU_FPSP);
 }
 
 
@@ -2774,7 +2975,7 @@ int m_fdbcc(WORD inst, WORD siz)
 int m_fdiv(WORD inst, WORD siz)
 {
 	CHECKNOFPU;
-	return gen_fpu(inst, siz, B8(00100000), FPU_NOWARN);
+	return gen_fpu(inst, siz, 0b00100000, FPU_NOWARN);
 }
 
 
@@ -2784,7 +2985,7 @@ int m_fdiv(WORD inst, WORD siz)
 int m_fsdiv(WORD inst, WORD siz)
 {
 	if (activefpu & (FPU_68040 | FPU_68060))
-		return gen_fpu(inst, siz, B8(01100000), FPU_NOWARN);
+		return gen_fpu(inst, siz, 0b01100000, FPU_NOWARN);
 
 	return error("Unsupported in current FPU");
 }
@@ -2796,7 +2997,7 @@ int m_fsdiv(WORD inst, WORD siz)
 int m_fddiv(WORD inst, WORD siz)
 {
 	if (activefpu & (FPU_68040 | FPU_68060))
-		return gen_fpu(inst, siz, B8(01100100), FPU_NOWARN);
+		return gen_fpu(inst, siz, 0b01100100, FPU_NOWARN);
 
 	return error("Unsupported in current FPU");
 }
@@ -2808,7 +3009,7 @@ int m_fddiv(WORD inst, WORD siz)
 int m_fetox(WORD inst, WORD siz)
 {
 	CHECKNOFPU;
-	return gen_fpu(inst, siz, B8(00010000), FPU_FPSP);
+	return gen_fpu(inst, siz, 0b00010000, FPU_FPSP);
 }
 
 
@@ -2818,7 +3019,7 @@ int m_fetox(WORD inst, WORD siz)
 int m_fetoxm1(WORD inst, WORD siz)
 {
 	CHECKNOFPU;
-	return gen_fpu(inst, siz, B8(00001000), FPU_FPSP);
+	return gen_fpu(inst, siz, 0b00001000, FPU_FPSP);
 }
 
 
@@ -2828,7 +3029,7 @@ int m_fetoxm1(WORD inst, WORD siz)
 int m_fgetexp(WORD inst, WORD siz)
 {
 	CHECKNOFPU;
-	return gen_fpu(inst, siz, B8(00011110), FPU_FPSP);
+	return gen_fpu(inst, siz, 0b00011110, FPU_FPSP);
 }
 
 
@@ -2838,7 +3039,7 @@ int m_fgetexp(WORD inst, WORD siz)
 int m_fgetman(WORD inst, WORD siz)
 {
 	CHECKNOFPU;
-	return gen_fpu(inst, siz, B8(00011111), FPU_FPSP);
+	return gen_fpu(inst, siz, 0b00011111, FPU_FPSP);
 }
 
 
@@ -2854,7 +3055,7 @@ int m_fint(WORD inst, WORD siz)
 	if (activefpu == FPU_68040)
 		warn("Instruction is emulated in 68040");
 
-	return gen_fpu(inst, siz, B8(00000001), FPU_NOWARN);
+	return gen_fpu(inst, siz, 0b00000001, FPU_NOWARN);
 }
 
 
@@ -2869,8 +3070,8 @@ int m_fintrz(WORD inst, WORD siz)
 
 	if (activefpu == FPU_68040)
 		warn("Instruction is emulated in 68040");
-	
-	return gen_fpu(inst, siz, B8(00000011), FPU_NOWARN);
+
+	return gen_fpu(inst, siz, 0b00000011, FPU_NOWARN);
 }
 
 
@@ -2880,7 +3081,7 @@ int m_fintrz(WORD inst, WORD siz)
 int m_flog10(WORD inst, WORD siz)
 {
 	CHECKNOFPU;
-	return gen_fpu(inst, siz, B8(00010101), FPU_FPSP);
+	return gen_fpu(inst, siz, 0b00010101, FPU_FPSP);
 }
 
 
@@ -2890,7 +3091,7 @@ int m_flog10(WORD inst, WORD siz)
 int m_flog2(WORD inst, WORD siz)
 {
 	CHECKNOFPU;
-	return gen_fpu(inst, siz, B8(00010110), FPU_FPSP);
+	return gen_fpu(inst, siz, 0b00010110, FPU_FPSP);
 }
 
 
@@ -2900,19 +3101,17 @@ int m_flog2(WORD inst, WORD siz)
 int m_flogn(WORD inst, WORD siz)
 {
 	CHECKNOFPU;
-	return gen_fpu(inst, siz, B8(00010100), FPU_FPSP);
+	return gen_fpu(inst, siz, 0b00010100, FPU_FPSP);
 }
 
 
 //
-// flognp1 (68040FPSP, 68060FPSP)
+// flognp1 (6888X, 68040FPSP, 68060FPSP)
 //
 int m_flognp1(WORD inst, WORD siz)
 {
-	if (activefpu & (FPU_68040 | FPU_68060))
-		return gen_fpu(inst, siz, B8(00000110), FPU_FPSP);
-
-	return error("Unsupported in current FPU");
+	CHECKNOFPU;
+	return gen_fpu(inst, siz, 0b00000110, FPU_FPSP);
 }
 
 
@@ -2922,7 +3121,7 @@ int m_flognp1(WORD inst, WORD siz)
 int m_fmod(WORD inst, WORD siz)
 {
 	CHECKNOFPU;
-	return gen_fpu(inst, siz, B8(00100001), FPU_FPSP);
+	return gen_fpu(inst, siz, 0b00100001, FPU_FPSP);
 }
 
 
@@ -3094,14 +3293,7 @@ int m_fsmove(WORD inst, WORD siz)
 	if (!(activefpu & (FPU_68040 | FPU_68060)))
 		return error("Unsupported in current FPU");
 
-	return error("Not implemented yet.");
-
-#if 0
-	if (activefpu == FPU_68040)
-		return gen_fpu(inst, siz, B8(01100100), FPU_P_EMUL);
-	else
-		return error("Unsupported in current FPU");
-#endif
+	return gen_fpu(inst, siz, 0b01100100, FPU_FPSP);
 }
 
 
@@ -3110,14 +3302,7 @@ int m_fdmove(WORD inst, WORD siz)
 	if (!(activefpu & (FPU_68040 | FPU_68060)))
 		return error("Unsupported in current FPU");
 
-	return error("Not implemented yet.");
-
-#if 0
-	if (activefpu == FPU_68040)
-		return gen_fpu(inst, siz, B8(01100100), FPU_P_EMUL);
-	else
-		return error("Unsupported in current FPU");
-#endif
+	return gen_fpu(inst, siz, 0b01100100, FPU_FPSP);
 }
 
 
@@ -3153,7 +3338,7 @@ int m_fmovem(WORD inst, WORD siz)
 
 	if (siz == SIZX || siz == SIZN)
 	{
-		if ((*tok >= KW_FP0) && (*tok <= KW_FP7))
+		if ((*tok >= REG68_FP0) && (*tok <= REG68_FP7))
 		{
 			// fmovem.x <rlist>,ea
 			if (fpu_reglist_left(&regmask) < 0)
@@ -3176,7 +3361,7 @@ int m_fmovem(WORD inst, WORD siz)
 			ea0gen(siz);
 			return OK;
 		}
-		else if ((*tok >= KW_D0) && (*tok <= KW_D7))
+		else if ((*tok >= REG68_D0) && (*tok <= REG68_D7))
 		{
 			// fmovem.x Dn,ea
 			datareg = (*tok++ & 7) << 10;
@@ -3214,7 +3399,7 @@ int m_fmovem(WORD inst, WORD siz)
 			if (*tok++ != ',')
 				return error("missing comma");
 
-			if ((*tok >= KW_FP0) && (*tok <= KW_FP7))
+			if ((*tok >= REG68_FP0) && (*tok <= REG68_FP7))
 			{
 				// fmovem.x ea,<rlist>
 				if (fpu_reglist_right(&regmask) < 0)
@@ -3246,14 +3431,14 @@ int m_fmovem(WORD inst, WORD siz)
 	}
 	else if (siz == SIZL)
 	{
-		if ((*tok == KW_FPCR) || (*tok == KW_FPSR) || (*tok == KW_FPIAR))
+		if ((*tok == REG68_FPCR) || (*tok == REG68_FPSR) || (*tok == REG68_FPIAR))
 		{
 			// fmovem.l <rlist>,ea
 			regmask = (1 << 15) | (1 << 13);
 			int no_control_regs = 0;
 
 fmovem_loop_1:
-			if (*tok == KW_FPCR)
+			if (*tok == REG68_FPCR)
 			{
 				regmask |= (1 << 12);
 				tok++;
@@ -3261,7 +3446,7 @@ fmovem_loop_1:
 				goto fmovem_loop_1;
 			}
 
-			if (*tok == KW_FPSR)
+			if (*tok == REG68_FPSR)
 			{
 				regmask |= (1 << 11);
 				tok++;
@@ -3269,7 +3454,7 @@ fmovem_loop_1:
 				goto fmovem_loop_1;
 			}
 
-			if (*tok == KW_FPIAR)
+			if (*tok == REG68_FPIAR)
 			{
 				regmask |= (1 << 10);
 				tok++;
@@ -3316,21 +3501,21 @@ fmovem_loop_1:
 			regmask = (1 << 15) | (0 << 13);
 
 fmovem_loop_2:
-			if (*tok == KW_FPCR)
+			if (*tok == REG68_FPCR)
 			{
 				regmask |= (1 << 12);
 				tok++;
 				goto fmovem_loop_2;
 			}
 
-			if (*tok == KW_FPSR)
+			if (*tok == REG68_FPSR)
 			{
 				regmask |= (1 << 11);
 				tok++;
 				goto fmovem_loop_2;
 			}
 
-			if (*tok == KW_FPIAR)
+			if (*tok == REG68_FPIAR)
 			{
 				regmask |= (1 << 10);
 				tok++;
@@ -3365,7 +3550,7 @@ fmovem_loop_2:
 int m_fmul(WORD inst, WORD siz)
 {
 	CHECKNOFPU;
-	return gen_fpu(inst, siz, B8(00100011), FPU_NOWARN);
+	return gen_fpu(inst, siz, 0b00100011, FPU_NOWARN);
 }
 
 
@@ -3375,8 +3560,8 @@ int m_fmul(WORD inst, WORD siz)
 int m_fsmul(WORD inst, WORD siz)
 {
 	if (activefpu & (FPU_68040 | FPU_68060))
-		return gen_fpu(inst, siz, B8(01100011), FPU_NOWARN);
-	
+		return gen_fpu(inst, siz, 0b01100011, FPU_NOWARN);
+
 	return error("Unsupported in current FPU");
 }
 
@@ -3387,7 +3572,7 @@ int m_fsmul(WORD inst, WORD siz)
 int m_fdmul(WORD inst, WORD siz)
 {
 	if (activefpu & (FPU_68040 | FPU_68060))
-		return gen_fpu(inst, siz, B8(01100111), FPU_NOWARN);
+		return gen_fpu(inst, siz, 0b01100111, FPU_NOWARN);
 
 	return error("Unsupported in current FPU");
 }
@@ -3403,10 +3588,10 @@ int m_fneg(WORD inst, WORD siz)
 	if (am1 == AM_NONE)
 	{
 		a1reg = a0reg;
-		return gen_fpu(inst, siz, B8(00011010), FPU_NOWARN);
+		return gen_fpu(inst, siz, 0b00011010, FPU_NOWARN);
 	}
-	
-	return gen_fpu(inst, siz, B8(00011010), FPU_NOWARN);
+
+	return gen_fpu(inst, siz, 0b00011010, FPU_NOWARN);
 }
 
 
@@ -3420,10 +3605,10 @@ int m_fsneg(WORD inst, WORD siz)
 		if (am1 == AM_NONE)
 		{
 			a1reg = a0reg;
-			return gen_fpu(inst, siz, B8(01011010), FPU_NOWARN);
+			return gen_fpu(inst, siz, 0b01011010, FPU_NOWARN);
 		}
-		
-		return gen_fpu(inst, siz, B8(01011010), FPU_NOWARN);
+
+		return gen_fpu(inst, siz, 0b01011010, FPU_NOWARN);
 	}
 
 	return error("Unsupported in current FPU");
@@ -3440,10 +3625,10 @@ int m_fdneg(WORD inst, WORD siz)
 		if (am1 == AM_NONE)
 		{
 				a1reg = a0reg;
-				return gen_fpu(inst, siz, B8(01011110), FPU_NOWARN);
+				return gen_fpu(inst, siz, 0b01011110, FPU_NOWARN);
 		}
 
-		return gen_fpu(inst, siz, B8(01011110), FPU_NOWARN);
+		return gen_fpu(inst, siz, 0b01011110, FPU_NOWARN);
 	}
 
 	return error("Unsupported in current FPU");
@@ -3456,7 +3641,7 @@ int m_fdneg(WORD inst, WORD siz)
 int m_fnop(WORD inst, WORD siz)
 {
 	CHECKNOFPU;
-	return gen_fpu(inst, siz, B8(00000000), FPU_NOWARN);
+	return gen_fpu(inst, siz, 0b00000000, FPU_NOWARN);
 }
 
 
@@ -3466,7 +3651,7 @@ int m_fnop(WORD inst, WORD siz)
 int m_frem(WORD inst, WORD siz)
 {
 	CHECKNOFPU;
-	return gen_fpu(inst, siz, B8(00100101), FPU_FPSP);
+	return gen_fpu(inst, siz, 0b00100101, FPU_FPSP);
 }
 
 
@@ -3476,7 +3661,7 @@ int m_frem(WORD inst, WORD siz)
 int m_fscale(WORD inst, WORD siz)
 {
 	CHECKNOFPU;
-	return gen_fpu(inst, siz, B8(00100110), FPU_FPSP);
+	return gen_fpu(inst, siz, 0b00100110, FPU_FPSP);
 }
 
 
@@ -3509,7 +3694,7 @@ int m_fscc(WORD inst, WORD siz)
 int m_fsgldiv(WORD inst, WORD siz)
 {
 	CHECKNOFPU;
-	return gen_fpu(inst, siz, B8(00100100), FPU_FPSP);
+	return gen_fpu(inst, siz, 0b00100100, FPU_FPSP);
 }
 
 
@@ -3519,7 +3704,7 @@ int m_fsgldiv(WORD inst, WORD siz)
 int m_fsglmul(WORD inst, WORD siz)
 {
 	CHECKNOFPU;
-	return gen_fpu(inst, siz, B8(00100111), FPU_FPSP);
+	return gen_fpu(inst, siz, 0b00100111, FPU_FPSP);
 }
 
 
@@ -3529,7 +3714,7 @@ int m_fsglmul(WORD inst, WORD siz)
 int m_fsin(WORD inst, WORD siz)
 {
 	CHECKNOFPU;
-	return gen_fpu(inst, siz, B8(00001110), FPU_FPSP);
+	return gen_fpu(inst, siz, 0b00001110, FPU_FPSP);
 }
 
 
@@ -3547,7 +3732,7 @@ int m_fsincos(WORD inst, WORD siz)
 	a2reg = a1reg;
 	a1reg = temp;
 
-	if (gen_fpu(inst, siz, B8(00110000), FPU_FPSP) == OK)
+	if (gen_fpu(inst, siz, 0b00110000, FPU_FPSP) == OK)
 	{
 		chptr[-1] |= a2reg;
 		return OK;
@@ -3563,7 +3748,7 @@ int m_fsincos(WORD inst, WORD siz)
 int m_fsinh(WORD inst, WORD siz)
 {
 	CHECKNOFPU;
-	return gen_fpu(inst, siz, B8(00000010), FPU_FPSP);
+	return gen_fpu(inst, siz, 0b00000010, FPU_FPSP);
 }
 
 
@@ -3573,7 +3758,7 @@ int m_fsinh(WORD inst, WORD siz)
 int m_fsqrt(WORD inst, WORD siz)
 {
 	CHECKNOFPU;
-	return gen_fpu(inst, siz, B8(00000100), FPU_NOWARN);
+	return gen_fpu(inst, siz, 0b00000100, FPU_NOWARN);
 }
 
 
@@ -3583,8 +3768,8 @@ int m_fsqrt(WORD inst, WORD siz)
 int m_fsfsqrt(WORD inst, WORD siz)
 {
 	if (activefpu & (FPU_68040 | FPU_68060))
-		return gen_fpu(inst, siz, B8(01000001), FPU_NOWARN);
-	
+		return gen_fpu(inst, siz, 0b01000001, FPU_NOWARN);
+
 	return error("Unsupported in current FPU");
 }
 
@@ -3595,7 +3780,7 @@ int m_fsfsqrt(WORD inst, WORD siz)
 int m_fdfsqrt(WORD inst, WORD siz)
 {
 	if (activefpu & (FPU_68040 | FPU_68060))
-		return gen_fpu(inst, siz, B8(01000101), FPU_NOWARN);
+		return gen_fpu(inst, siz, 0b01000101, FPU_NOWARN);
 
 	return error("Unsupported in current FPU");
 }
@@ -3607,7 +3792,7 @@ int m_fdfsqrt(WORD inst, WORD siz)
 int m_fsub(WORD inst, WORD siz)
 {
 	CHECKNOFPU;
-	return gen_fpu(inst, siz, B8(00101000), FPU_NOWARN);
+	return gen_fpu(inst, siz, 0b00101000, FPU_NOWARN);
 }
 
 
@@ -3617,7 +3802,7 @@ int m_fsub(WORD inst, WORD siz)
 int m_fsfsub(WORD inst, WORD siz)
 {
 	if (activefpu & (FPU_68040 | FPU_68060))
-		return gen_fpu(inst, siz, B8(01101000), FPU_NOWARN);
+		return gen_fpu(inst, siz, 0b01101000, FPU_NOWARN);
 
 	return error("Unsupported in current FPU");
 }
@@ -3629,7 +3814,7 @@ int m_fsfsub(WORD inst, WORD siz)
 int m_fdsub(WORD inst, WORD siz)
 {
 	if (activefpu & (FPU_68040 | FPU_68060))
-		return gen_fpu(inst, siz, B8(01101100), FPU_NOWARN);
+		return gen_fpu(inst, siz, 0b01101100, FPU_NOWARN);
 
 	return error("Unsupported in current FPU");
 }
@@ -3641,7 +3826,7 @@ int m_fdsub(WORD inst, WORD siz)
 int m_ftan(WORD inst, WORD siz)
 {
 	CHECKNOFPU;
-	return gen_fpu(inst, siz, B8(00001111), FPU_FPSP);
+	return gen_fpu(inst, siz, 0b00001111, FPU_FPSP);
 }
 
 
@@ -3651,7 +3836,7 @@ int m_ftan(WORD inst, WORD siz)
 int m_ftanh(WORD inst, WORD siz)
 {
 	CHECKNOFPU;
-	return gen_fpu(inst, siz, B8(00001001), FPU_FPSP);
+	return gen_fpu(inst, siz, 0b00001001, FPU_FPSP);
 }
 
 
@@ -3661,7 +3846,7 @@ int m_ftanh(WORD inst, WORD siz)
 int m_ftentox(WORD inst, WORD siz)
 {
 	CHECKNOFPU;
-	return gen_fpu(inst, siz, B8(00010010), FPU_FPSP);
+	return gen_fpu(inst, siz, 0b00010010, FPU_FPSP);
 }
 
 
@@ -3712,7 +3897,7 @@ int m_ftrapcc(WORD inst, WORD siz)
 int m_ftst(WORD inst, WORD siz)
 {
 	CHECKNOFPU;
-	return gen_fpu(inst, siz, B8(00111010), FPU_NOWARN);
+	return gen_fpu(inst, siz, 0b00111010, FPU_NOWARN);
 }
 
 
@@ -3722,6 +3907,48 @@ int m_ftst(WORD inst, WORD siz)
 int m_ftwotox(WORD inst, WORD siz)
 {
 	CHECKNOFPU;
-	return gen_fpu(inst, siz, B8(00010001), FPU_FPSP);
+	return gen_fpu(inst, siz, 0b00010001, FPU_FPSP);
+}
+
+
+/////////////////////////////////
+//                             //
+// 68060 specific instructions //
+//                             //
+/////////////////////////////////
+
+
+//
+// lpstop (68060)
+//
+int m_lpstop(WORD inst, WORD siz)
+{
+	CHECKNO60;
+	D_word(0b0000000111000000);
+
+	if (a0exattr & DEFINED)
+	{
+		D_word(a0exval);
+	}
+	else
+	{
+		AddFixup(FU_WORD, sloc, a0expr);
+		D_word(0);
+	}
+
+	return OK;
+}
+
+
+//
+// plpa (68060)
+//
+int m_plpa(WORD inst, WORD siz)
+{
+	CHECKNO60;
+	inst |= a0reg;		// Install register
+	D_word(inst);
+
+	return OK;
 }