Operand code update

1 files changed, 16 insertions, 16 deletions

diff --git a/src/Suem.hs b/src/Suem.hs
index ca994a8..5edd041 100644
--- a/src/Suem.hs
+++ b/src/Suem.hs
@@ -374,22 +374,22 @@ doCommand cmd
     | otherwise = do
                 pc <- readPC
                 sr <- readSR
-                d0 <- readD 0 3
-                d1 <- readD 1 3
-                d2 <- readD 2 3
-                d3 <- readD 3 3
-                d4 <- readD 4 3
-                d5 <- readD 5 3
-                d6 <- readD 6 3
-                d7 <- readD 7 3
-                a0 <- readA 0
-                a1 <- readA 1
-                a2 <- readA 2
-                a3 <- readA 3
-                a4 <- readA 4
-                a5 <- readA 5
-                a6 <- readA 6
-                a7 <- readA 7
+                d0 <- readD 0 4
+                d1 <- readD 1 4
+                d2 <- readD 2 4
+                d3 <- readD 3 4
+                d4 <- readD 4 4
+                d5 <- readD 5 4
+                d6 <- readD 6 4
+                d7 <- readD 7 4
+                a0 <- readA 0 4
+                a1 <- readA 1 4
+                a2 <- readA 2 4
+                a3 <- readA 3 4
+                a4 <- readA 4 4
+                a5 <- readA 5 4
+                a6 <- readA 6 4
+                a7 <- readA 7 4
                 error ("Error:\n"
                     ++ "PC:0x" ++ showHex pc "\n"
                     ++ "SR:0x" ++ showHex sr "\n\n"