From 6ffbd01052cd989163b49861a4d96e2b551d1c70 Mon Sep 17 00:00:00 2001
From: Aleksey Veresov <aleksey@veresov.pro>
Date: Fri, 2 Apr 2021 22:41:37 +0300
Subject: lil fix

---
 src/Instructions.hs | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

(limited to 'src/Instructions.hs')

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"
-- 
cgit v1.2.3