From: Lucian Mogosanu <lucian.mogosanu@gmail.com>
Date: Tue, 23 Dec 2014 21:07:45 +0000 (+0200)
Subject: Z80: ISA: Fix Show to comply with dZ80
X-Git-Url: https://git.mogosanu.ro/?a=commitdiff_plain;h=fa65cc2b0cef5b991350ef53e9ab129f1cd14874;p=z80.git

Z80: ISA: Fix Show to comply with dZ80
---

diff --git a/src/Z80/ISA.hs b/src/Z80/ISA.hs
index c4cf4ff..fbb98e6 100644
--- a/src/Z80/ISA.hs
+++ b/src/Z80/ISA.hs
@@ -338,10 +338,10 @@ instance Show Instruction where
     CPD       -> "cpd"
     CPDR      -> "cpdr"
     -- 8-bit arithmetic group
-    ADD_A_S as  -> "add " ++ show as
-    ADC_A_S as  -> "adc " ++ show as
+    ADD_A_S as  -> "add a," ++ show as
+    ADC_A_S as  -> "adc a," ++ show as
     SUB_A_S as  -> "sub " ++ show as
-    SBC_A_S as  -> "sbc " ++ show as
+    SBC_A_S as  -> "sbc a," ++ show as
     AND_A_S as  -> "and " ++ show as
     OR_A_S  as  -> "or " ++ show as
     XOR_A_S as  -> "xor " ++ show as