diff options
author | Nikita Orlov <nikitf-97@mail.ru> | 2021-04-01 22:24:13 +0300 |
---|---|---|
committer | Nikita Orlov <nikitf-97@mail.ru> | 2021-04-01 22:24:13 +0300 |
commit | e8b1e83bcfbd7d3969e43c7c6e9e2e228528a67b (patch) | |
tree | 4032d7b2c1b98814db2c0921071d356824ff999c /src/Machine.hs | |
parent | 77b2540293dea4b6c348b3154e62c095de780142 (diff) | |
download | suem-e8b1e83bcfbd7d3969e43c7c6e9e2e228528a67b.tar suem-e8b1e83bcfbd7d3969e43c7c6e9e2e228528a67b.tar.xz suem-e8b1e83bcfbd7d3969e43c7c6e9e2e228528a67b.zip |
Debug output added
Diffstat (limited to 'src/Machine.hs')
-rw-r--r-- | src/Machine.hs | 6 |
1 files changed, 6 insertions, 0 deletions
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 |