diff options
Diffstat (limited to 'src/Machine.hs')
-rw-r--r-- | src/Machine.hs | 2 |
1 files changed, 1 insertions, 1 deletions
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 |