unmed2-0.0: src/CmdPageData.hs

module CmdPageData where

import 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'