From a2d59f5e1aa353f29cc557a60646c7a37cb738f4 Mon Sep 17 00:00:00 2001
From: Nikita Orlov <nikitf-97@mail.ru>
Date: Fri, 2 Apr 2021 15:34:54 +0300
Subject: Operand code update

---
 src/Commands.hs | 14 +++++++-------
 1 file changed, 7 insertions(+), 7 deletions(-)

(limited to 'src/Commands.hs')

diff --git a/src/Commands.hs b/src/Commands.hs
index e12cfdf..ea0a50d 100644
--- a/src/Commands.hs
+++ b/src/Commands.hs
@@ -112,18 +112,18 @@ doTRAP _ = return ()
 doLINK :: Int -> Emulator ()
 doLINK a = do
     incPC
-    addr <- readA a
-    sp <- readA 7
-    writeA 7 (sp-4)
-    setLong (sp-4) addr
+    addr <- readA a 4
+    sp <- readA 7 4
+    writeA 7 4 (sp - 4)
+    setLong (sp - 4) addr
 
 doUNLK :: Int -> Emulator ()
 doUNLK a = do
     incPC
-    addr <- readA a
+    addr <- readA a 4
     val <- getLong addr
-    writeA a val
-    writeA 7 (addr + 4)
+    writeA a 4 val
+    writeA 7 4 (addr + 4)
 
 doMOVEUSP :: Int -> Int -> Emulator ()
 doMOVEUSP _ _ = return ()
-- 
cgit v1.2.3