--
--  Filename:
--
--    peek_and_poke.ads
--
--  Description:
--
--    Direct access to 16-bit memory words using peek and poke
--    subprograms.
--
--  Credits:
--
--    Copyright (c) 1998, Chris Nettleton Software
--
--  License:
--
--    Permission to use copy, modify, and distribute this software for any
--    purpose without fee is hereby granted. This software is provided
--    "as is", without any express or implied warranty.
--
--  Revision:
--
--    $Id: $
--

with System;
with Interfaces;

package Peek_and_Poke is

   procedure Peek (
      Item : out Interfaces.Unsigned_16;
      Addr : in System.Address);
   --  Reads one 16-bit word from the given memory address

   procedure Poke (
      Item : in Interfaces.Unsigned_16;
      Addr : in System.Address);
   --  Writes one 16-bit word to the given memory address

end Peek_and_Poke;