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

Add LDIV, STIV instructions

Browse source
This commit is contained in:
Joscha 2019-11-06 14:17:32 +00:00
parent 9532d0487b
commit 04036bb047
2 changed files with 22 additions and 12 deletions
Download patch file Download diff file Expand all files Collapse all files

6
src/Mima/Instruction.hs
View file

@ -14,14 +14,14 @@ import Data.Word
import Mima.Util
import Mima.Word
data SmallOpcode = LDC | LDV | STV | ADD | AND | OR | XOR | EQL | JMP | JMN
data SmallOpcode = LDC | LDV | STV | ADD | AND | OR | XOR | EQL | JMP | JMN | STIV | LDIV
deriving (Show, Eq, Ord)
instance ToText SmallOpcode where
toText = T.pack . show
allSmallOpcodes :: [SmallOpcode]
allSmallOpcodes = [LDC, LDV, STV, ADD, AND, OR, XOR, EQL, JMP, JMN]
allSmallOpcodes = [LDC, LDV, STV, ADD, AND, OR, XOR, EQL, JMP, JMN, STIV, LDIV]
getSmallOpcode :: SmallOpcode -> Word32
getSmallOpcode LDC = 0
@ -34,6 +34,8 @@ getSmallOpcode XOR = 6
getSmallOpcode EQL = 7
getSmallOpcode JMP = 8
getSmallOpcode JMN = 9
getSmallOpcode STIV = 10
getSmallOpcode LDIV = 11
smallOpcodeMap :: Map.Map Word32 SmallOpcode
smallOpcodeMap = Map.fromList [(getSmallOpcode oc, oc) | oc <- allSmallOpcodes]