diff options
Diffstat (limited to 'src/Suem.hs')
-rw-r--r-- | src/Suem.hs | 32 |
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" |