From: Lucian Mogosanu <lucian.mogosanu@gmail.com>
Date: Tue, 23 Dec 2014 20:19:20 +0000 (+0200)
Subject: Z80: ISA: Show A reg as implicit
X-Git-Url: https://git.mogosanu.ro/?a=commitdiff_plain;h=47c94a8787cc208c06ec36dfb5912575fdce5a25;p=z80.git

Z80: ISA: Show A reg as implicit

Only conisdering this for 8-bit arithmetic group.
---

diff --git a/src/Z80/ISA.hs b/src/Z80/ISA.hs
index a6de91d..2fff828 100644
--- a/src/Z80/ISA.hs
+++ b/src/Z80/ISA.hs
@@ -342,14 +342,14 @@ instance Show Instruction where
     CPD       -> "cpd"
     CPDR      -> "cpdr"
     -- 8-bit arithmetic group
-    ADD_A_S as  -> "add a," ++ show as
-    ADC_A_S as  -> "adc a," ++ show as
-    SUB_A_S as  -> "sub a," ++ show as
-    SBC_A_S as  -> "sbc a," ++ show as
-    AND_A_S as  -> "and a," ++ show as
-    OR_A_S  as  -> "or a," ++ show as
-    XOR_A_S as  -> "xor a," ++ show as
-    CP_A_S  as  -> "cp a," ++ show as
+    ADD_A_S as  -> "add " ++ show as
+    ADC_A_S as  -> "adc " ++ show as
+    SUB_A_S as  -> "sub " ++ show as
+    SBC_A_S as  -> "sbc " ++ show as
+    AND_A_S as  -> "and " ++ show as
+    OR_A_S  as  -> "or " ++ show as
+    XOR_A_S as  -> "xor " ++ show as
+    CP_A_S  as  -> "cp " ++ show as
     INC as      -> "inc " ++ show as
     DEC as      -> "dec " ++ show as
     -- general purpose arithmetic and cpu control groups