diff options
| -rw-r--r-- | src/Instructions.hs | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/src/Instructions.hs b/src/Instructions.hs index 2243915..3ffbfc2 100644 --- a/src/Instructions.hs +++ b/src/Instructions.hs @@ -132,9 +132,8 @@ doRESET :: Emulator () doRESET = error "RESET" doNOP :: Emulator () -doNOP = with pc $ \pc -> do - pcval <- readIORef pc - writeIORef pc (pcval + 2) +doNOP = do + incPC doSTOP :: Emulator () doSTOP = error "STOP" |