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'