-- Copyright 2006 mutantlemon.com

module WordUtil where

import Data.Word
import Data.Bits
import qualified Numeric as N

joinWord16 :: Word8 -> Word8 -> Word16
joinWord16 hi lo =
  ((fromIntegral lo)::Word16) + (shiftL ((fromIntegral hi)::Word16) 8)

splitWord16 :: Word16 -> (Word8, Word8)
splitWord16 nn =
  let hi = fromIntegral (shiftR nn 8)
      lo = fromIntegral nn in
  (hi, lo)

showHex n = '$' : (N.showHex n "")