diff options
Diffstat (limited to 'src/Commands.hs')
-rw-r--r-- | src/Commands.hs | 4 |
1 files changed, 1 insertions, 3 deletions
diff --git a/src/Commands.hs b/src/Commands.hs index 6fce17b..32fc17f 100644 --- a/src/Commands.hs +++ b/src/Commands.hs @@ -114,11 +114,9 @@ doLINK _ = return () doUNLK :: Int -> Emulator () doUNLK a = do + incPC addr <- readA a val <- getLong addr - with pc $ \pc -> do - pcval <- readIORef pc - writeIORef pc (pcval + 2) writeA a val writeA 7 (addr + 4) |