From fd5b0ee5334977256ae1ef0f1802ac67a7248897 Mon Sep 17 00:00:00 2001
From: Nikita Orlov <nikitf-97@mail.ru>
Date: Fri, 2 Apr 2021 22:37:27 +0300
Subject: MOVE in progress

---
 src/Machine.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src/Machine.hs')

diff --git a/src/Machine.hs b/src/Machine.hs
index 4dd40d3..55c5294 100644
--- a/src/Machine.hs
+++ b/src/Machine.hs
@@ -412,7 +412,7 @@ getOp 7 1 s = do
     skipOp 4
     addr <- getLong pc
     return (getMemory addr s, setMemory addr s)
-getOp 7 6 s = do
+getOp 7 4 s = do
     addr <- readPC
     skipOp s
     let addr = addr + if s == 1 then 1 else 0
-- 
cgit v1.2.3