From 7955eabdbea706519f000a85531c152fa07e6700 Mon Sep 17 00:00:00 2001
From: Nikita Orlov <nikitf-97@mail.ru>
Date: Sat, 3 Apr 2021 01:06:22 +0300
Subject: MOVE and BRA added

---
 src/Machine.hs | 13 +++++++++++++
 1 file changed, 13 insertions(+)

(limited to 'src/Machine.hs')

diff --git a/src/Machine.hs b/src/Machine.hs
index 443482c..b254f7e 100644
--- a/src/Machine.hs
+++ b/src/Machine.hs
@@ -417,3 +417,16 @@ getOp 7 4 s = do
     skipOp s
     let naddr = addr + if s == 1 then 1 else 0
     return (getMemory naddr s, setMemory naddr s)
+
+-------------------------------------------------------------------------------
+-- Size converter
+
+getSize :: Int -> Int
+getSize 0 = 1
+getSize 1 = 2
+getSize 2 = 4
+
+getMoveSize :: Int -> Int
+getMoveSize 1 = 1
+getMoveSize 3 = 2
+getMoveSize 2 = 4
-- 
cgit v1.2.3