----------------------------------------------------------------------
     -- Title       :  MemoAKD
     -- Version     :  1.0
     -- Copyright   :  (C) 1994 David Wallace Croft.  All rights reserved.
     -- Author      :  David Wallace Croft, CompuServe [76600,102]
     -- Compiler    :  Meridian OpenAda for DOS
     -- Description :  Memory functions
     ----------------------------------------------------------------------

     with Spy;
     with System;

     package MemoAKD is
     ----------------------------------------------------------------------
     ----------------------------------------------------------------------
     subtype Address is System.Address;
     subtype Byte is natural range 0..255;
     ----------------------------------------------------------------------
     function "+" (
       A, B: in System.Address )
       return System.Address
       renames System."+";
     function "-" (
       A, B: in System.Address )
       return System.Address
       renames System."-";
     function Peek (
       Addr: in System.Address )
       return Byte
       renames Spy.Peek;
     procedure Poke (
       Value: in Byte;
       Addr : in System.Address )
       renames Spy.Poke;
     ----------------------------------------------------------------------
     end MemoAKD;