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

Execute a MiMa state

Browse source
This commit is contained in:
Joscha 2019-11-06 09:32:49 +00:00
parent f2ddf2e109
commit 2843cfd462
4 changed files with 157 additions and 11 deletions
Download patch file Download diff file Expand all files Collapse all files

14
src/Mima/Instruction.hs
View file

@ -4,7 +4,7 @@ module Mima.Instruction
( SmallOpcode(..)
, LargeOpcode(..)
, Instruction(..)
, instructionFromWord
, wordToInstruction
) where
import Data.Bits
@ -57,8 +57,8 @@ largeOpcodeMap :: Map.Map Word32 LargeOpcode
largeOpcodeMap = Map.fromList [(getLargeOpcode oc, oc) | oc <- allLargeOpcodes]
data Instruction
= SmallInstruction SmallOpcode MimaAddress
| LargeInstruction LargeOpcode
= SmallInstruction !SmallOpcode !MimaAddress
| LargeInstruction !LargeOpcode
deriving (Show, Eq)
instance ToText Instruction where
@ -74,10 +74,10 @@ lowerOpcode mw = shiftR (toWord32 mw) 16 .&. 0xF
address :: MimaWord -> MimaAddress
address = fromWord32 . toWord32 -- no shifting required
instructionFromWord :: MimaWord -> Either T.Text Instruction
instructionFromWord mw = if upperOpcode mw == 0xF
then parseLargeInstruction mw
else parseSmallInstruction mw
wordToInstruction :: MimaWord -> Either T.Text Instruction
wordToInstruction mw = if upperOpcode mw == 0xF
then parseLargeInstruction mw
else parseSmallInstruction mw
parseSmallInstruction :: MimaWord -> Either T.Text Instruction
parseSmallInstruction mw = do