med-module-0.0: src/Sound/MED/Raw/CmdPageData.hs

module Sound.MED.Raw.CmdPageData where

import Sound.MED.Basic.Amiga

data CmdPageData = CmdPageData
  { command    :: UBYTE
  , databyte   :: UBYTE
  }
  deriving (Show)

peek :: MEM -> PTR -> IO CmdPageData
peek m p = do
  command'  <- peekUBYTE m (p + 0)
  databyte' <- peekUBYTE m (p + 1)
  return $ CmdPageData
    command' databyte'