--********************************************************************************************************************
-- Created:  9-Mar-2021 22:28:22 by OpenVMS SDL EV3-3      
-- Source:  02-AUG-2007 11:35:39 $1$DGA8085:[LIB_ADA.LIS]EO1DEF.SDL;1 
--********************************************************************************************************************
with SYSTEM; use SYSTEM;
with STARLET; use STARLET;
with CONDITION_HANDLING; use CONDITION_HANDLING;
 
package EO1DEF is
 
--  module $EO1DEF
 
--+
-- EOF1 ANSI MAGNETIC TAPE LABEL
-- THIS IS THE FIRST LABEL IN FILE TRAILER LABEL SET.  IT IS EQUIVALENT TO
-- HDR1 EXCEPT FOR THE FOLLOWING FIELDS.
---
 
    EO1_S_EO1DEF		: constant := 80;
 
    type EO1_TYPE is
	record
	    EO1LID	: UNSIGNED_LONGWORD;				-- LABEL IDENTIFIER AND NUMBER 'EOF1' 
	    FILLER_1	: STRING(1 .. 50);				-- SAME AS HDR1 
	    BLOCKCNT	: STRING(1 .. 6);				-- BLOCK COUNT 
	    FILLER_2	: STRING(1 .. 16);				-- SAME AS HDR1
	    HIBLOCKCNT	: STRING(1 .. 4);				--  HIGH BLOCK COUNT                   
	end record;
 
	    for EO1_TYPE use 
		record
		    EO1LID	at 0 range 0 .. 31;
		    FILLER_1	at 4 range 0 .. 399;
		    BLOCKCNT	at 54 range 0 .. 47;
		    FILLER_2	at 60 range 0 .. 127;
		    HIBLOCKCNT	at 76 range 0 .. 31;
		end record;
	    for EO1_TYPE'SIZE use 640;
 
    EO1_TYPE_INIT : constant EO1_TYPE := 
	    (EO1LID	=> 0,
	    FILLER_1	=> (others => ASCII.NUL),
	    BLOCKCNT	=> (others => ASCII.NUL),
	    FILLER_2	=> (others => ASCII.NUL),
	    HIBLOCKCNT	=> (others => ASCII.NUL));
 
end EO1DEF;