diff options
| author | Aleksey Veresov <aleksey@veresov.pro> | 2021-04-02 22:41:37 +0300 |
|---|---|---|
| committer | Aleksey Veresov <aleksey@veresov.pro> | 2021-04-02 22:41:37 +0300 |
| commit | 6ffbd01052cd989163b49861a4d96e2b551d1c70 (patch) | |
| tree | 1ed0f7ca7538f83ae0fa4171c4ae04e7007da710 /src | |
| parent | fd5b0ee5334977256ae1ef0f1802ac67a7248897 (diff) | |
| download | suem-6ffbd01052cd989163b49861a4d96e2b551d1c70.tar suem-6ffbd01052cd989163b49861a4d96e2b551d1c70.tar.xz suem-6ffbd01052cd989163b49861a4d96e2b551d1c70.zip | |
lil fix
Diffstat (limited to 'src')
| -rw-r--r-- | src/Instructions.hs | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/src/Instructions.hs b/src/Instructions.hs index c3e9763..cff8d9b 100644 --- a/src/Instructions.hs +++ b/src/Instructions.hs @@ -63,11 +63,11 @@ doMOVEA _ _ _ _ = error "MOVEA" doMOVE :: Int -> Int -> Int -> Int -> Int -> Emulator () doMOVE 1 dst_reg dst_mode src_mode src_reg = do - incPC - src <- getOp src_mode src_reg 1 - src_value <- fst src - dst <- getOp dst_mode dst_reg 1 - (snd dst) src_value + incPC + (src_get, src_set) <- getOp src_mode src_reg 1 + (dst_get, dst_set) <- getOp dst_mode dst_reg 1 + src_val <- src_get + dst_set src_val doSRMOVE :: Int -> Int -> Emulator () doSRMOVE _ _ = error "SRMOVE" |