{**************************************************************************
*
*    AUXSUBS.PAS - Declarations for PASAUX library
*
***************************************************************************}

{*************************************************************************
*
*    Peek/poke routines
*
*************************************************************************}

FUNCTION Peek( Address : Long_Integer )
     : BYTE ;
     EXTERNAL;
FUNCTION Wpeek( Address : Long_Integer )
     : Short_Integer ;
     EXTERNAL;
FUNCTION Lpeek( Address : Long_Integer )
     : Long_Integer ;
     EXTERNAL;

PROCEDURE Poke( Address: Long_Integer ;
          Value  : BYTE ) ;
     EXTERNAL;
PROCEDURE Wpoke( Address: Long_Integer ;
           Value  : Short_Integer ) ;
     EXTERNAL;
PROCEDURE Lpoke( Address: Long_Integer ;
           Value: Long_Integer );
     EXTERNAL;

{*************************************************************************
*
*    date stuff
*
*************************************************************************}

PROCEDURE Get_Date( VAR Mon, Day, Yr : Short_Integer );
     EXTERNAL;
PROCEDURE Get_Time( VAR Hour, Min, Sec : Short_Integer );
     EXTERNAL;

{*************************************************************************
*
*    Ptr/Adr routines
*
*************************************************************************}

FUNCTION Addr_Byte( VAR Bvar : BYTE )
     : Long_Integer;
     EXTERNAL;
FUNCTION Addr_Char( VAR Cvar : CHAR )
     : Long_Integer;
     EXTERNAL;
FUNCTION Addr_Integer( VAR Ivar : Short_Integer )
     : Long_Integer;
     EXTERNAL;
FUNCTION Addr_Long_Integer( VAR Lvar : Long_Integer )
     : Long_Integer;
     EXTERNAL;


{ end of AUXSUBS.PAS }