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

Run a MiMa until it halts

Browse source
This commit is contained in:
Joscha 2019-11-06 14:00:10 +00:00
parent ac5fbf3942
commit 9532d0487b
1 changed files with 7 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

7
src/Mima/State.hs
View file

@ -9,6 +9,7 @@ module Mima.State
, AbortReason(..) , AbortReason(..)
, ExecException(..) , ExecException(..)
, step , step
, run
) where ) where
import Data.Bits import Data.Bits
@ -98,3 +99,9 @@ executeLargeOpcode HALT ms =
in Left $ ExecException addr word Halted in Left $ ExecException addr word Halted
executeLargeOpcode NOT ms = incrementIp ms{msAcc = complement (msAcc ms)} executeLargeOpcode NOT ms = incrementIp ms{msAcc = complement (msAcc ms)}
executeLargeOpcode RAR ms = incrementIp ms{msAcc = rotateR (msAcc ms) 1} 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'