From: Lucian Mogosanu <lucian.mogosanu@gmail.com>
Date: Wed, 24 Dec 2014 00:03:19 +0000 (+0200)
Subject: Z80: ISA: Fix some of the dZ80 printing
X-Git-Url: https://git.mogosanu.ro/?a=commitdiff_plain;h=bfcafc7d610f5a1e3ee0e8fe7d9a62e999d6a8c1;p=z80.git

Z80: ISA: Fix some of the dZ80 printing
---

diff --git a/src/Z80/ISA.hs b/src/Z80/ISA.hs
index 1565368..a34a9dc 100644
--- a/src/Z80/ISA.hs
+++ b/src/Z80/ISA.hs
@@ -413,9 +413,9 @@ instance Show Instruction where
     JP_CC_NN    cc nn -> "jp " ++ show cc ++ "," ++ showWord nn
     JR_E        nn    -> "jr " ++ showWord nn
     JR_CC_E     cc nn -> "jr " ++ show cc ++ "," ++ showWord nn
-    JP_HL             -> "jp hl"
-    JP_IX             -> "jp ix"
-    JP_IY             -> "jp iy"
+    JP_HL             -> "jp (hl)"
+    JP_IX             -> "jp (ix)"
+    JP_IY             -> "jp (iy)"
     DJNZ_E      nn    -> "djnz " ++ showWord nn
     -- call and return group
     CALL_NN     nn    -> "call " ++ showWord nn
@@ -428,14 +428,14 @@ instance Show Instruction where
     -- input and output group
     IN_A_PN   n -> "in a," ++ "(" ++ showByte n ++ ")"
     IN_R_PC   r -> "in " ++ show r ++ ",(c)"
-    IN_PC       -> "in (c)"
+    IN_PC       -> "in f,(c)"
     INI         -> "ini"
     INIR        -> "inir"
     IND         -> "ind"
     INDR        -> "indr"
     OUT_PN_A  n -> "out (" ++ showByte n ++ "),a"
     OUT_PC_R  r -> "out (c)," ++ show r
-    OUT_PC_Zero -> "out (c),0"
+    OUT_PC_Zero -> "out (c),f"
     OUTI        -> "outi"
     OUTIR       -> "otir"
     OUTD        -> "outd"