diff options
| author | Nikita Orlov <nikitf-97@mail.ru> | 2021-04-02 21:20:01 +0300 |
|---|---|---|
| committer | Nikita Orlov <nikitf-97@mail.ru> | 2021-04-02 21:20:01 +0300 |
| commit | a3e6fcfea2a618eae036a6c882b1e272589b7860 (patch) | |
| tree | 0a2dc4c39d4825f8469bf842345e0d496850b1de | |
| parent | de08c2e979b838e3142a6a380a6edc76ed86cc15 (diff) | |
| download | suem-a3e6fcfea2a618eae036a6c882b1e272589b7860.tar suem-a3e6fcfea2a618eae036a6c882b1e272589b7860.tar.xz suem-a3e6fcfea2a618eae036a6c882b1e272589b7860.zip | |
Instructions in progress
| -rw-r--r-- | src/Instructions.hs | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/src/Instructions.hs b/src/Instructions.hs index 9c2e2cb..1292efc 100644 --- a/src/Instructions.hs +++ b/src/Instructions.hs @@ -62,7 +62,8 @@ doMOVEA :: Int -> Int -> Int -> Int -> Emulator () doMOVEA _ _ _ _ = return () doMOVE :: Int -> Int -> Int -> Int -> Int -> Emulator () -doMOVE _ _ _ _ _ = return () +doMOVE 3 dst_reg dst_mode src_mode src_reg = do + incPC doSRMOVE :: Int -> Int -> Emulator () doSRMOVE _ _ = return () @@ -132,9 +133,8 @@ doRESET :: Emulator () doRESET = return () doNOP :: Emulator () -doNOP = with pc $ \pc -> do - pcval <- readIORef pc - writeIORef pc (pcval + 2) +doNOP = do + incPC doSTOP :: Emulator () doSTOP = return () |