From: ggn <ggn.dbug@gmail.com>
Date: Sat, 18 Jul 2020 17:25:56 +0000 (+0300)
Subject: Fix move <ea>,<ea020> code generation
X-Git-Tag: v2.1.0~11
X-Git-Url: http://shamusworld.gotdns.org/cgi-bin/gitweb.cgi?p=rmac;a=commitdiff_plain;h=096b1cf7222183d705a26b44710358e8e2c21014

Fix move <ea>,<ea020> code generation
---

diff --git a/mach.c b/mach.c
index 42268dc..27123b2 100644
--- a/mach.c
+++ b/mach.c
@@ -796,7 +796,10 @@ int m_move(WORD inst, WORD size)
 int m_move30(WORD inst, WORD size)
 {
 	int siz = (int)size;
-	inst |= siz_12[siz] | reg_9[a1reg & 7] | a0reg | extra_addressing[am0 - ABASE];
+	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);