--********************************************************************************************************************
-- Created: 30-Mar-2010 17:33:44 by OpenVMS SDL EV3-3      
-- Source:  10-FEB-2004 16:16:29 $1$DGA7274:[LIB_ADA.LIS]FVEDEF.SDL;1 
--********************************************************************************************************************
with SYSTEM; use SYSTEM;
with STARLET; use STARLET;
with CONDITION_HANDLING; use CONDITION_HANDLING;
 
package FVEDEF is
 
--  module $FVEDEF
 
--+
-- Define Fandle Vector Entry
---
 
    FVE_K_LENGTH		: constant := 28;			--  Length of FVE
    FVE_C_LENGTH		: constant := 28;			--  Length of FVE
    FVE_S_FVEDEF		: constant := 28;			--  Size of FVE
 
    type FVE_TYPE is
	record
	    IRPPTR	: ADDRESS;					--  Address of associated IRP
	    ORGFUN	: UNSIGNED_LONGWORD;				--  Original value of IRP$L_FUNC
	    DATOB1	: UNSIGNED_LONGWORD;				--  Data buffer object handle
	    DATOB2	: UNSIGNED_LONGWORD;
	    IOSOB1	: UNSIGNED_LONGWORD;				--  IOSA buffer object handle
	    IOSOB2	: UNSIGNED_LONGWORD;
	    DBYLEN	: INTEGER_32;
	    FILLER_1	: UNSIGNED_BYTE_ARRAY (0 .. 3);
	end record;
 
	    for FVE_TYPE use 
		record
		    IRPPTR	at 0 range 0 .. 31;
		    ORGFUN	at 4 range 0 .. 31;
		    DATOB1	at 8 range 0 .. 31;
		    DATOB2	at 12 range 0 .. 31;
		    IOSOB1	at 16 range 0 .. 31;
		    IOSOB2	at 20 range 0 .. 31;
		    DBYLEN	at 24 range 0 .. 31;
		    FILLER_1	at 28 range 0 .. 31;
		end record;
	    for FVE_TYPE'SIZE use 256;
 
    FVE_TYPE_INIT : constant FVE_TYPE := 
	    (IRPPTR	=> ADDRESS_ZERO,
	    ORGFUN	=> 0,
	    DATOB1	=> 0,
	    DATOB2	=> 0,
	    IOSOB1	=> 0,
	    IOSOB2	=> 0,
	    DBYLEN	=> INTEGER_32_ZERO,
	    FILLER_1	=> (others => 0));
 

 
--  module $FVHDEF
 
--+
-- Define Fandle Vector Header
---
 
    FVH_K_LENGTH		: constant := 32;			--  Length of FVH
    FVH_C_LENGTH		: constant := 32;			--  Length of FVH
    FVH_S_FVEDEF		: constant := 32;			--  Size of FVH
 
    type FVH_TYPE is
	record
	    FLINK	: INTEGER_32;
	    BLINK	: INTEGER_32;
	    SIZE	: INTEGER_16;
	    TYP		: INTEGER_8;
	    SUBTYP	: INTEGER_8;
	    REAL_SIZE	: INTEGER_32;					--  Actual size might be > 16 bits
	    CCBOBJ	: UNSIGNED_LONGWORD_ARRAY (1 .. 2);		--  Process CCB buffer object handle
	    FILL1	: INTEGER_32;
	    FILL2	: INTEGER_32;
	end record;
 
	    for FVH_TYPE use 
		record
		    FLINK	at 0 range 0 .. 31;
		    BLINK	at 4 range 0 .. 31;
		    SIZE	at 8 range 0 .. 15;
		    TYP		at 10 range 0 .. 7;
		    SUBTYP	at 11 range 0 .. 7;
		    REAL_SIZE	at 12 range 0 .. 31;
		    CCBOBJ	at 16 range 0 .. 63;
		    FILL1	at 24 range 0 .. 31;
		    FILL2	at 28 range 0 .. 31;
		end record;
	    for FVH_TYPE'SIZE use 256;
 
    FVH_TYPE_INIT : constant FVH_TYPE := 
	    (FLINK	=> 0,
	    BLINK	=> 0,
	    SIZE	=> 0,
	    TYP		=> 0,
	    SUBTYP	=> 0,
	    REAL_SIZE	=> 0,
	    CCBOBJ	=> (others => 0),
	    FILL1	=> 0,
	    FILL2	=> 0);
 
end FVEDEF;