--********************************************************************************************************************
-- Created:  9-Mar-2021 22:28:19 by OpenVMS SDL EV3-3      
-- Source:  23-APR-1993 13:51:11 $1$DGA8085:[LIB_ADA.LIS]CONDEF.SDL;1 
--********************************************************************************************************************
with SYSTEM; use SYSTEM;
with STARLET; use STARLET;
with CONDITION_HANDLING; use CONDITION_HANDLING;
 
package CONDEF is
 
--  module $CONDEF
 
--+
--
-- Console function codes (defined in SRM).
--
---
 
    CON_C_SWDONE		: constant := 1;			--  Software done
    CON_C_BOOTCPU		: constant := 2;			--  Boot function code
    CON_C_CLRWARM		: constant := 3;			--  Clear warm start flag
    CON_C_CLRCOLD		: constant := 4;			--  Clear cold start flag
 
--+
--
-- Routine specifier codes used when calling CON$ASSIST_PSWITCH
--
---
 
    CON_C_START_SWITCH		: constant := 1;			--  Start primary switch operation
    CON_C_ABORT_SWITCH		: constant := 2;			--  Abort primary switch operation
    CON_C_FINISH_SWITCH		: constant := 3;			--  Finish primary switch operation
    RXCST_M_IE			: constant := 16#00000040#;
    RXCST_M_RDY			: constant := 16#00000080#;
 
    type RXCST_FIELDS_TYPE is
	record
	    FILLER_1	: UNSIGNED_6;
	    IE		: BOOLEAN;					--  Receiver Interrupt Enable
	    RDY		: BOOLEAN;					--  Receiver Data Ready
	end record;
 
	    for RXCST_FIELDS_TYPE use 
		record
		    FILLER_1	at 0 range 0 .. 5;
		    IE		at 0 range 6 .. 6;
		    RDY		at 0 range 7 .. 7;
		end record;
	    for RXCST_FIELDS_TYPE'SIZE use 8;
 
    RXCST_FIELDS_TYPE_INIT : constant RXCST_FIELDS_TYPE := 
	    (FILLER_1	=> 0,
	    IE		=> FALSE,
	    RDY		=> FALSE);
 
    type RXCST_TYPE is
	record
	    RXCST_FIELDS	: RXCST_FIELDS_TYPE;
	end record;
 
	    for RXCST_TYPE use 
		record
		    RXCST_FIELDS	at 0 range 0 .. 7;
		end record;
	    for RXCST_TYPE'SIZE use 8;
 
    RXCST_TYPE_INIT : constant RXCST_TYPE := 
	    (
	    RXCST_FIELDS	=> RXCST_FIELDS_TYPE_INIT);
 
    TXCST_M_IE			: constant := 16#00000040#;
    TXCST_M_RDY			: constant := 16#00000080#;
    TXCST_M_ERR			: constant := 16#00008000#;
 
    type TXCST_FIELDS_TYPE is
	record
	    FILLER_1	: UNSIGNED_6;
	    IE		: BOOLEAN;					--  Transmitter Interrupt Enable
	    RDY		: BOOLEAN;					--  Transmitter Ready for Input
	    FILLER_2	: UNSIGNED_7;
	    ERR		: BOOLEAN;					--  Error sending, pls re-transmit
	end record;
 
	    for TXCST_FIELDS_TYPE use 
		record
		    FILLER_1	at 0 range 0 .. 5;
		    IE		at 0 range 6 .. 6;
		    RDY		at 0 range 7 .. 7;
		    FILLER_2	at 1 range 0 .. 6;
		    ERR		at 1 range 7 .. 7;
		end record;
	    for TXCST_FIELDS_TYPE'SIZE use 16;
 
    TXCST_FIELDS_TYPE_INIT : constant TXCST_FIELDS_TYPE := 
	    (FILLER_1	=> 0,
	    IE		=> FALSE,
	    RDY		=> FALSE,
	    FILLER_2	=> 0,
	    ERR		=> FALSE);
 
    type TXCST_TYPE is
	record
	    TXCST_FIELDS	: TXCST_FIELDS_TYPE;
	end record;
 
	    for TXCST_TYPE use 
		record
		    TXCST_FIELDS	at 0 range 0 .. 15;
		end record;
	    for TXCST_TYPE'SIZE use 16;
 
    TXCST_TYPE_INIT : constant TXCST_TYPE := 
	    (
	    TXCST_FIELDS	=> TXCST_FIELDS_TYPE_INIT);
 
    RXTX_M_ERR			: constant := 16#00008000#;
 
    type RXTX_FIELDS_TYPE is
	record
	    DATA	: UNSIGNED_8;					--  Data field of RXDB/TXDB
	    ID		: UNSIGNED_4;					--  ID field of RXDB/TXDB
	    FILLER_1	: UNSIGNED_3;
	    ERR		: BOOLEAN;					--  Error bit, RXDB only
	end record;
 
	    for RXTX_FIELDS_TYPE use 
		record
		    DATA	at 0 range 0 .. 7;
		    ID		at 1 range 0 .. 3;
		    FILLER_1	at 1 range 4 .. 6;
		    ERR		at 1 range 7 .. 7;
		end record;
	    for RXTX_FIELDS_TYPE'SIZE use 16;
 
    RXTX_FIELDS_TYPE_INIT : constant RXTX_FIELDS_TYPE := 
	    (DATA	=> 0,
	    ID		=> 0,
	    FILLER_1	=> 0,
	    ERR		=> FALSE);
 
    type RXTX_TYPE is
	record
	    RXTX_FIELDS	: RXTX_FIELDS_TYPE;
	end record;
 
	    for RXTX_TYPE use 
		record
		    RXTX_FIELDS	at 0 range 0 .. 15;
		end record;
	    for RXTX_TYPE'SIZE use 16;
 
    RXTX_TYPE_INIT : constant RXTX_TYPE := 
	    (
	    RXTX_FIELDS	=> RXTX_FIELDS_TYPE_INIT);
 
end CONDEF;