From 0ecc75b1134d221f544653025150948f0ac2a743 Mon Sep 17 00:00:00 2001
From: Aleksey Veresov <aleksey@veresov.pro>
Date: Fri, 2 Apr 2021 13:36:08 +0300
Subject: Puf.

---
 src/Suem.hs | 16 ++++++++--------
 1 file changed, 8 insertions(+), 8 deletions(-)

(limited to 'src/Suem.hs')

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
-- 
cgit v1.2.3