aboutsummaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
authorAleksey Veresov <aleksey@veresov.pro>2021-04-02 22:45:20 +0300
committerAleksey Veresov <aleksey@veresov.pro>2021-04-02 22:45:20 +0300
commit1ab01adc8644f572d584332c07b2ce75f9aac657 (patch)
tree6de7f3b0e8a957425d1bc4146df70a7de057e659 /src
parent6ffbd01052cd989163b49861a4d96e2b551d1c70 (diff)
downloadsuem-1ab01adc8644f572d584332c07b2ce75f9aac657.tar
suem-1ab01adc8644f572d584332c07b2ce75f9aac657.tar.xz
suem-1ab01adc8644f572d584332c07b2ce75f9aac657.zip
another fix
Diffstat (limited to 'src')
-rw-r--r--src/Machine.hs24
1 files changed, 12 insertions, 12 deletions
diff --git a/src/Machine.hs b/src/Machine.hs
index 55c5294..443482c 100644
--- a/src/Machine.hs
+++ b/src/Machine.hs
@@ -365,16 +365,16 @@ getOp 3 ar s = do
return (getMemory addr s, setMemory addr s)
getOp 4 ar s = do
addr <- readA ar 4
- let addr = addr - (fromIntegral s)
+ let naddr = addr - (fromIntegral s)
writeA ar 4 addr
- return (getMemory addr s, setMemory addr s)
+ return (getMemory naddr s, setMemory naddr s)
getOp 5 ar s = do
pc <- readPC
skipOp 2
disp <- getMemory pc 2
addr <- readA ar 4
- let addr = addr + disp
- return (getMemory addr s, setMemory addr s)
+ let naddr = addr + disp
+ return (getMemory naddr s, setMemory naddr s)
getOp 6 ar s = do
pc <- readPC
skipOp 2
@@ -384,14 +384,14 @@ getOp 6 ar s = do
((extractBits prefix [4] + 1) * 2)
disp <- getMemory (pc + 1) 1
addr <- readA ar 4
- let addr = addr + index + disp
- return (getMemory addr s, setMemory addr s)
+ let naddr = addr + index + disp
+ return (getMemory naddr s, setMemory naddr s)
getOp 7 2 s = do
addr <- readPC
skipOp 2
disp <- getMemory addr 2
- let addr = addr + disp
- return (getMemory addr s, setMemory addr s)
+ let naddr = addr + disp
+ return (getMemory naddr s, setMemory naddr s)
getOp 7 3 s = do
addr <- readPC
skipOp 2
@@ -400,8 +400,8 @@ getOp 7 3 s = do
(extractBits prefix [1..3])
((extractBits prefix [4] + 1) * 2)
disp <- getMemory (addr + 1) 1
- let addr = addr + index + disp
- return (getMemory addr s, setMemory addr s)
+ let naddr = addr + index + disp
+ return (getMemory naddr s, setMemory naddr s)
getOp 7 0 s = do
pc <- readPC
skipOp 2
@@ -415,5 +415,5 @@ getOp 7 1 s = do
getOp 7 4 s = do
addr <- readPC
skipOp s
- let addr = addr + if s == 1 then 1 else 0
- return (getMemory addr s, setMemory addr s)
+ let naddr = addr + if s == 1 then 1 else 0
+ return (getMemory naddr s, setMemory naddr s)