package body PortAKD is
     ----------------------------------------------------------------------
     ----------------------------------------------------------------------
     -- Copyright (C) 1994 David Wallace Croft.  All rights reserved.
     ----------------------------------------------------------------------
     ----------------------------------------------------------------------

     function In_Byte (
       Port : in     integer )
       return Byte_Type is
     ----------------------------------------------------------------------
     begin
       return Byte_Type ( Port_Meridian.In_Byte ( Port_Number => Port ) );
     end In_Byte;

     procedure Out_Byte (
       Port : in     integer;
       Byte : in     Byte_Type ) is
     ----------------------------------------------------------------------
     begin
       Port_Meridian.Out_Byte ( Port, integer ( Byte ) );
     end Out_Byte;

     ----------------------------------------------------------------------
     ----------------------------------------------------------------------
     end PortAKD;