---------------------------------------------------------------------------
--
-- Package:	INTERFACE_488
--
-- Function:	Provides an Ada interface to 488.
--
--	The package is contains a single entry for outbound messages, and 
--      a single entry point for inbound messages.
--
-- Version:	1
--
-- Date:	25 September 1987
--
---------------------------------------------------------------------------

with UATL_DATA_TYPES;           use UATL_DATA_TYPES;
with INTERFACE_DATA_TYPES_488;  use INTERFACE_DATA_TYPES_488;

package INTERFACE_488 is

  procedure INITIALIZE_488_INTERFACE (DEVICE_ID : in ID_TYPE;
                                      CONTROL   : in BOOLEAN;
                                      PORT      : in INTEGER := 0);
  --\ Purpose: This procedure is used to initialize the 488 interface
  --\          


  procedure RECEIVE(BUFFER        :     out GENERAL_488_MESSAGE;
                    MSG_RECEIVED  :     out BOOLEAN;
                    CALL_TYPE     :  in     RECEIVE_CALLS := WAIT;
                    DELAY_TIME    :  in     DURATION      := 0.0);
  --\ Purpose: This procedure is used to get a message that has arrived
  --\          on the bus.  The messages are queued into a link list and
  --\          waits for the user to call for them.  The delay is used
  --\          only for timed entry calls.  With a timed call or a no_wait
  --\          call, the MSG_RECEIVED bit is set if a message is returned.

  procedure SEND(BUFFER    : in GENERAL_488_MESSAGE;
                 WAIT_TIME : in DURATION := 0.5);
  --\ Invoked when:  On demand.
  --\ Purpose:	Transmit one outbound message through IEEE488
  --\	interface.  The interface copies the message into its own 
  --\	buffer, so that the caller's buffer is free at the end of the 
  --\	rendezvous.
  --\ Maximum processing delay:  Rendezvous obtained immediately, message
  --\	transmission depends on bus activity.

  procedure SETUP_IEEE488_DEVICES (I488_DEVICES : in DEVICE_LIST);
  --\  This procedure is used to set up the characteristics of the devices
  --\  on the IEEE488 bus. Controller only.

  procedure TERMINAL_POLLING_RATE(POLL_TIME : in DURATION);
  --\  This procedure is used to set up the terminal polling rate for the
  --\  UATL IEEE488 bus communications protocol. Terminal only.

end INTERFACE_488;