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 (file)
--- 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