--********************************************************************************************************************
-- Created:  9-Mar-2021 22:28:20 by OpenVMS SDL EV3-3      
-- Source:  09-JUN-1993 15:27:18 $1$DGA8085:[LIB_ADA.LIS]DTSSDEF.SDL;1 
--********************************************************************************************************************
with SYSTEM; use SYSTEM;
with STARLET; use STARLET;
with CONDITION_HANDLING; use CONDITION_HANDLING;
 
package DTSSDEF is
 
--  module $DTSSDEF
 
--+
--
-- Bit definitions for EXE$GL_DTSSFLAGS - flags for Distributed Time Service
--
---
 
    DTSS_M_ACTIVE		: constant := 16#00000001#;
    DTSS_M_CALCULATE_CLOCK	: constant := 16#00000002#;
    DTSS_S_DTSSDEF		: constant := 1;
 
    type DTSSDEF_BITS_TYPE is
	record
	    ACTIVE	: BOOLEAN;					--  Time service active
	    CALCULATE_CLOCK	: BOOLEAN;				--  Service wants to synch clock
	    FILLER_1	: UNSIGNED_6;
	end record;
 
	    for DTSSDEF_BITS_TYPE use 
		record
		    ACTIVE	at 0 range 0 .. 0;
		    CALCULATE_CLOCK	at 0 range 1 .. 1;
		    FILLER_1	at 0 range 2 .. 7;
		end record;
	    for DTSSDEF_BITS_TYPE'SIZE use 8;
 
    DTSSDEF_BITS_TYPE_INIT : constant DTSSDEF_BITS_TYPE := 
	    (ACTIVE	=> FALSE,
	    CALCULATE_CLOCK	=> FALSE,
	    FILLER_1	=> 0);
 
    type DTSS_TYPE is
	record
	    DTSSDEF_BITS	: DTSSDEF_BITS_TYPE;
	end record;
 
	    for DTSS_TYPE use 
		record
		    DTSSDEF_BITS	at 0 range 0 .. 7;
		end record;
	    for DTSS_TYPE'SIZE use 8;
 
    DTSS_TYPE_INIT : constant DTSS_TYPE := 
	    (
	    DTSSDEF_BITS	=> DTSSDEF_BITS_TYPE_INIT);
 
end DTSSDEF;