From e8b1e83bcfbd7d3969e43c7c6e9e2e228528a67b Mon Sep 17 00:00:00 2001
From: Nikita Orlov <nikitf-97@mail.ru>
Date: Thu, 1 Apr 2021 22:24:13 +0300
Subject: Debug output added

---
 src/Machine.hs | 6 ++++++
 1 file changed, 6 insertions(+)

(limited to 'src/Machine.hs')

diff --git a/src/Machine.hs b/src/Machine.hs
index 947d43a..eebbe91 100644
--- a/src/Machine.hs
+++ b/src/Machine.hs
@@ -169,6 +169,7 @@ writeA _ _ = return $ error "Incorrect Address register write"
 -- PC Register Access
 
 readPC = with pc $ \pc -> do
+    pc <- readIORef pc
     return pc
 
 writePC r = with pc $ \pc -> do
@@ -182,6 +183,11 @@ incPC = with pc $ \pc -> do
 -------------------------------------------------------------------------------
 -- Status Register Access
 
+readSR = with sr $ \sr -> do
+    sr <- readIORef sr
+    return sr
+
+
 isTracing :: Emulator Bool
 isTracing = with sr $ \sr -> do
     sr <- readIORef sr
-- 
cgit v1.2.3