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

Add more conversions

Browse source
This commit is contained in:
Joscha 2019-11-09 23:37:22 +00:00
parent 803c826395
commit 21e72420dd
3 changed files with 21 additions and 14 deletions
Download patch file Download diff file Expand all files Collapse all files

8
src/Mima/Word.hs
View file

@ -13,6 +13,8 @@ module Mima.Word
, boolToWord
, largeValueToWord
, signedSmallValueToWord
, wordFromSmallOpcode
, wordFromLargeOpcode
-- ** 'MimaWord' properties
, getSmallOpcode
, getLargeOpcode
@ -59,6 +61,12 @@ signedSmallValueToWord sv
| topBit sv = 0xFF0000 .|. fromIntegral sv
| otherwise = fromIntegral sv
wordFromSmallOpcode :: Opcode -> LargeValue -> MimaWord
wordFromSmallOpcode so lv = shiftL (fromIntegral so) 20 .|. fromIntegral lv
wordFromLargeOpcode :: Opcode -> SmallValue -> MimaWord
wordFromLargeOpcode lo sv = 0xF00000 .|. shiftL (fromIntegral lo) 16 .|. fromIntegral sv
getSmallOpcode :: MimaWord -> Opcode
getSmallOpcode mw = fromIntegral $ shiftR mw 20