diff options
| author | Aleksey Veresov <aleksey@veresov.pro> | 2021-04-02 21:56:54 +0300 |
|---|---|---|
| committer | Aleksey Veresov <aleksey@veresov.pro> | 2021-04-02 21:56:54 +0300 |
| commit | 9dcc3abc60d591805f17b758dc579d4f8683f1fb (patch) | |
| tree | 5595893555192132e47e1077145fb771a637e933 | |
| parent | 1dfa268bb0cca6cf6fb0ffbfe331d84329aea534 (diff) | |
| parent | a3e6fcfea2a618eae036a6c882b1e272589b7860 (diff) | |
| download | suem-9dcc3abc60d591805f17b758dc579d4f8683f1fb.tar suem-9dcc3abc60d591805f17b758dc579d4f8683f1fb.tar.xz suem-9dcc3abc60d591805f17b758dc579d4f8683f1fb.zip | |
Merge remote-tracking branch 'exegete/master'
| -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" |