diff options
author | Aleksey Veresov <aleksey@veresov.pro> | 2021-04-02 13:36:08 +0300 |
---|---|---|
committer | Aleksey Veresov <aleksey@veresov.pro> | 2021-04-02 13:36:08 +0300 |
commit | 0ecc75b1134d221f544653025150948f0ac2a743 (patch) | |
tree | 55c8b53591f10dc437df05291c2a31070e771c3d /src/Suem.hs | |
parent | e8b1e83bcfbd7d3969e43c7c6e9e2e228528a67b (diff) | |
download | suem-0ecc75b1134d221f544653025150948f0ac2a743.tar suem-0ecc75b1134d221f544653025150948f0ac2a743.tar.xz suem-0ecc75b1134d221f544653025150948f0ac2a743.zip |
Puf.
Diffstat (limited to 'src/Suem.hs')
-rw-r--r-- | src/Suem.hs | 16 |
1 files changed, 8 insertions, 8 deletions
diff --git a/src/Suem.hs b/src/Suem.hs index 8ac1c32..ca994a8 100644 --- a/src/Suem.hs +++ b/src/Suem.hs @@ -374,14 +374,14 @@ doCommand cmd | otherwise = do pc <- readPC sr <- readSR - d0 <- readD 0 - d1 <- readD 1 - d2 <- readD 2 - d3 <- readD 3 - d4 <- readD 4 - d5 <- readD 5 - d6 <- readD 6 - d7 <- readD 7 + 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 |