diff options
| -rw-r--r-- | src/Commands.hs | 7 |
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 () |