aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--src/Commands.hs7
1 files changed, 2 insertions, 5 deletions
diff --git a/src/Commands.hs b/src/Commands.hs
index 87c01f6..6fce17b 100644
--- a/src/Commands.hs
+++ b/src/Commands.hs
@@ -119,11 +119,8 @@ doUNLK a = do
with pc $ \pc -> do
pcval <- readIORef pc
writeIORef pc (pcval + 2)
- isSupervisor >>= \sup -> if sup
- then with ssp $ \sp -> do
- writeIORef sp (val + 4)
- else with usp $ \sp -> do
- writeIORef sp (val + 4)
+ writeA a val
+ writeA 7 (addr + 4)
doMOVEUSP :: Int -> Int -> Emulator ()
doMOVEUSP _ _ = return ()