Begin rewrite

... by deleting most files. By the theory of evolution, the remaining ones will
get stronger over the next commits. That's how it works, isn't it?

src/Mima/Word.hs

@@ -1,86 +0,0 @@
-module Mima.Word
-  (
-  -- * Types
-    MimaWord
-  , MimaAddress
-  , LargeValue
-  , SmallValue
-  , Opcode
-  , topBit
-  -- * Converting between types
-  , bytesToWord
-  , wordToBytes
-  , boolToWord
-  , largeValueToWord
-  , signedLargeValueToWord
-  , signedSmallValueToLargeValue
-  , wordFromSmallOpcode
-  , wordFromLargeOpcode
-  -- ** 'MimaWord' properties
-  , getSmallOpcode
-  , getLargeOpcode
-  , getLargeValue
-  , getSmallValue
-  ) where
-
-import           Data.Bits
-import           Data.Word
-import           Data.Word.Odd
-
-type MimaWord    = Word24
-type MimaAddress = LargeValue
-type LargeValue  = Word20
-type SmallValue  = Word16
-type Opcode      = Word4
-
-topBit :: (FiniteBits b) => b -> Bool
-topBit b = testBit b $ finiteBitSize b - 1
-
-bytesToWord :: (Word8, Word8, Word8) -> MimaWord
-bytesToWord (w1, w2, w3) =
-  let (w1', w2', w3') = (fromIntegral w1, fromIntegral w2, fromIntegral w3)
-  in  shiftL w1' 16 .|. shiftL w2' 8 .|. w3'
-
-wordToBytes :: MimaWord -> (Word8, Word8, Word8)
-wordToBytes mw =
-  -- No masks necessary since converting to 'Word8' already cuts off
-  -- all higher bits.
-  let w1 = fromIntegral $ shiftR mw 16
-      w2 = fromIntegral $ shiftR mw 8
-      w3 = fromIntegral mw
-  in  (w1, w2, w3)
-
-boolToWord :: Bool -> MimaWord
-boolToWord False = zeroBits
-boolToWord True = complement zeroBits
-
-largeValueToWord :: LargeValue -> MimaWord
-largeValueToWord = fromIntegral
-
-signedLargeValueToWord :: LargeValue -> MimaWord
-signedLargeValueToWord lv
-  | topBit lv = 0xF00000 .|. fromIntegral lv
-  | otherwise = fromIntegral lv
-
-signedSmallValueToLargeValue :: SmallValue -> LargeValue
-signedSmallValueToLargeValue sv
-  | topBit sv = 0xF0000 .|. 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
-
-getLargeOpcode :: MimaWord -> Opcode
-getLargeOpcode mw = fromIntegral $ shiftR mw 16
-
-getLargeValue :: MimaWord -> LargeValue
-getLargeValue = fromIntegral
-
-getSmallValue :: MimaWord -> SmallValue
-getSmallValue = fromIntegral