From 1328d948ba1d3e4d72ceb8a4a01db7bb982535b4 Mon Sep 17 00:00:00 2001
From: Nikita Orlov <nikitf-97@mail.ru>
Date: Mon, 22 Mar 2021 13:15:19 +0300
Subject: PC access added

---
 src/Commands.hs | 4 +---
 1 file changed, 1 insertion(+), 3 deletions(-)

(limited to 'src/Commands.hs')

diff --git a/src/Commands.hs b/src/Commands.hs
index 6fce17b..32fc17f 100644
--- a/src/Commands.hs
+++ b/src/Commands.hs
@@ -114,11 +114,9 @@ doLINK _ = return ()
 
 doUNLK :: Int -> Emulator ()
 doUNLK a = do
+    incPC
     addr <- readA a
     val <- getLong addr
-    with pc $ \pc -> do
-        pcval <- readIORef pc
-        writeIORef pc (pcval + 2)
     writeA a val
     writeA 7 (addr + 4)
 
-- 
cgit v1.2.3