From a2d59f5e1aa353f29cc557a60646c7a37cb738f4 Mon Sep 17 00:00:00 2001 From: Nikita Orlov Date: Fri, 2 Apr 2021 15:34:54 +0300 Subject: Operand code update --- src/Suem.hs | 32 ++++++++++++++++---------------- 1 file changed, 16 insertions(+), 16 deletions(-) (limited to 'src/Suem.hs') 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" -- cgit v1.2.3