--********************************************************************************************************************
-- Created:  9-Mar-2021 22:28:22 by OpenVMS SDL EV3-3      
-- Source:  02-SEP-1989 10:39:49 $1$DGA8085:[LIB_ADA.LIS]EMBLTDEF.SDL;1 
--********************************************************************************************************************
with SYSTEM; use SYSTEM;
with STARLET; use STARLET;
with CONDITION_HANDLING; use CONDITION_HANDLING;
 
package EMBLTDEF is
 
--  module $EMBLTDEF
 
--
-- LOGGED MESSAGE MESSAGE TYPES
--
 
    EMB_C_DM			: constant := 1;			--  Disk MSCP message 
    EMB_K_DM			: constant := 1;			--  Disk MSCP message 
    EMB_C_TM			: constant := 2;			--  Tape MSCP message 
    EMB_K_TM			: constant := 2;			--  Tape MSCP message 
    EMB_C_PM			: constant := 3;			--  Port (CI) message 
    EMB_K_PM			: constant := 3;			--  Port (CI) message 
    EMB_C_UM			: constant := 4;			--  Port (UDA) message 
    EMB_K_UM			: constant := 4;			--  Port (UDA) message 
    EMB_C_AVATN			: constant := 5;			--  Available Attention Message 
    EMB_K_AVATN			: constant := 5;			--  Available Attention Message 
    EMB_C_DUPUN			: constant := 6;			--  Duplicate Unit ! Attention Message 
    EMB_K_DUPUN			: constant := 6;			--  Duplicate Unit ! Attention Message 
    EMB_C_IVCMD			: constant := 7;			--  Invalid Command Log message. 
    EMB_K_IVCMD			: constant := 7;			--  Invalid Command Log message. 
    EMB_C_ACPTH			: constant := 8;			--  Access Path Attention Message 
    EMB_K_ACPTH			: constant := 8;			--  Access Path Attention Message 
    EMB_C_INVSTS		: constant := 9;			--  Invalid Status in End Message
    EMB_K_INVSTS		: constant := 9;			--  Invalid Status in End Message
    EMB_C_INVATT		: constant := 10;			--  Invalid Attention Message
    EMB_K_INVATT		: constant := 10;			--  Invalid Attention Message
    EMB_C_NOUNIT_DG		: constant := 11;			--  No unit in Datagram
    EMB_K_NOUNIT_DG		: constant := 11;			--  No unit in Datagram
    EMB_C_SSTFAIL		: constant := 12;			--  Self test failed.
    EMB_K_SSTFAIL		: constant := 12;			--  Self test failed.
    EMB_C_KDB50			: constant := 13;			--  KDB50 error detected.
    EMB_K_KDB50			: constant := 13;			--  KDB50 error detected.
 
--
-- The CTLRES_x fields below indicate that an MSCP controller was
-- told to reset itself by a class driver because the controller
-- is broken or confused.  (To an HSC, this will cause a reboot.)
-- The first three (INIT, INVMSG and IMTMO) do not have an MSCP end
-- message logged with them.
--
 
    EMB_C_CTLRES_INIT		: constant := 14;			--  An error occurred during or the connection vanished before completing
    EMB_K_CTLRES_INIT		: constant := 14;			--    the initial handshake with the class driver.
    EMB_C_CTLRES_INVMSG		: constant := 15;			--  An invalid message was received from the controller.  The offending
    EMB_K_CTLRES_INVMSG		: constant := 15;			--    message has been previously logged as INVATT or INVSTS.
    EMB_C_CTLRES_IMTMO		: constant := 16;			--  An immediate mode command has failed to complete within the timeout
    EMB_K_CTLRES_IMTMO		: constant := 16;			--    period, indicating a broken or wedged controller.
    EMB_C_CTLRES_TMO		: constant := 17;			--  No progress was made on a command during the timeout period.  The MSCP
    EMB_K_CTLRES_TMO		: constant := 17;			--    GET COMMAND STATUS end message which determined this is included.
 
--
 
    EMB_C_BADRSPID		: constant := 18;			--  A message with an invalid RSPID was received by the class driver.
    EMB_K_BADRSPID		: constant := 18;			--    The offending MSCP message is included.
 
--
 
    EMB_C_BVPSSP		: constant := 19;			--  Port message for BVP Storage Systems Port
    EMB_K_BVPSSP		: constant := 19;			--  Port message for BVP Storage Systems Port
    EMB_C_NIPM			: constant := 20;			--  Port (NI) message 
    EMB_K_NIPM			: constant := 20;			--  Port (NI) message 
    EMB_C_LDR_ERR		: constant := 21;			--  Media Loader error message
    EMB_K_LDR_ERR		: constant := 21;			--  Media Loader error message
 
end EMBLTDEF;