Garmelon/mima-tools
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Run MiMa for a specified amount of steps

Browse source 
Also, print IP and Acc at the time of the dump
This commit is contained in:
Joscha 2019-11-06 17:37:17 +00:00
parent 082a205a7e
commit 1c895add5a
2 changed files with 33 additions and 9 deletions
Download patch file Download diff file Expand all files Collapse all files

23
src/Mima/State.hs
View file

@ -13,6 +13,7 @@ module Mima.State
, ExecException(..)
, step
, run
, runN
) where
import Data.Bits
@ -146,8 +147,20 @@ executeLargeOpcode HALT ms =
executeLargeOpcode NOT ms = incrementIp ms{msAcc = complement (msAcc ms)}
executeLargeOpcode RAR ms = incrementIp ms{msAcc = rotateR (msAcc ms) 1}
run :: MimaState -> (MimaState, ExecException)
run ms =
case step ms of
Left e -> (ms, e)
Right ms' -> run ms'
run :: MimaState -> (MimaState, ExecException, Integer)
run ms = helper 0 ms
where
helper completed s =
case step s of
Left e -> (s, e, completed)
Right s' -> helper (completed + 1) s'
runN :: Integer -> MimaState -> (MimaState, Maybe ExecException, Integer)
runN n ms = helper 0 ms
where
helper completed s =
if completed >= n
then (s, Nothing, completed)
else case step s of
Left e -> (s, Just e, completed)
Right s' -> helper (completed + 1) s'