From 9180aab5f90381b8e9fec0288b795cf197e3b420 Mon Sep 17 00:00:00 2001 From: Nikita Orlov Date: Mon, 22 Mar 2021 13:00:02 +0300 Subject: UNLK fix --- src/Commands.hs | 7 ++----- 1 file 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 () -- cgit v1.2.3