--********************************************************************************************************************
-- Created: 30-Mar-2010 17:01:49 by OpenVMS SDL EV3-3      
-- Source:  22-JAN-1996 12:31:58 $1$DGA7274:[STARLET_ADA.LIS]ILEDEF.SDL;1 
--********************************************************************************************************************
with SYSTEM; use SYSTEM;
with STARLET; use STARLET;
with CONDITION_HANDLING; use CONDITION_HANDLING;
 
package ILEDEF is
 
--  module $ILEDEF
 
--+
-- Define the 32-bit Item List Entry 3 structure
---
 
    type ILE3_TYPE is
	record
	    LENGTH	: UNSIGNED_WORD;				--  Length of buffer in bytes
	    CODE	: UNSIGNED_WORD;				--  Item code value
	    BUFADDR	: ADDRESS;					--  Buffer address
	    RETLEN_ADDR	: ADDRESS;					--  Address of word for returned length
	end record;
 
	    for ILE3_TYPE use 
		record
		    LENGTH	at 0 range 0 .. 15;
		    CODE	at 2 range 0 .. 15;
		    BUFADDR	at 4 range 0 .. 31;
		    RETLEN_ADDR	at 8 range 0 .. 31;
		end record;
	    for ILE3_TYPE'SIZE use 96;
 
    ILE3_TYPE_INIT : constant ILE3_TYPE := 
	    (LENGTH	=> 0,
	    CODE	=> 0,
	    BUFADDR	=> ADDRESS_ZERO,
	    RETLEN_ADDR	=> ADDRESS_ZERO);
 
    ILE3_K_LENGTH		: constant := 12;			--  Length of ILE3
    ILE3_C_LENGTH		: constant := 12;			--  Length of ILE3
 
--+
-- Define the 64-Bit Item List Entry B structure.  This is the 64-bit
-- counterpart of the 32-bit item list 3 structure.
---
 
    type ILEB_64_TYPE is
	record
	    MBO		: UNSIGNED_WORD;				--  Must be One field
	    CODE	: UNSIGNED_WORD;				--  Item code value
	    MBMO	: INTEGER_32;					--  Must be Minus One field
	    LENGTH	: UNSIGNED_QUADWORD;				--  Length of buffer in bytes
	    BUFADDR	: UNSIGNED_QUADWORD;				--  Buffer address
	    RETLEN_ADDR	: UNSIGNED_QUADWORD;				--  Address of quadword for returned length
	end record;
 
	    for ILEB_64_TYPE use 
		record
		    MBO		at 0 range 0 .. 15;
		    CODE	at 2 range 0 .. 15;
		    MBMO	at 4 range 0 .. 31;
		    LENGTH	at 8 range 0 .. 63;
		    BUFADDR	at 16 range 0 .. 63;
		    RETLEN_ADDR	at 24 range 0 .. 63;
		end record;
	    for ILEB_64_TYPE'SIZE use 256;
 
    ILEB_64_TYPE_INIT : constant ILEB_64_TYPE := 
	    (MBO	=> 0,
	    CODE	=> 0,
	    MBMO	=> 0,
	    LENGTH	=> (0, 0),
	    BUFADDR	=> (0, 0),
	    RETLEN_ADDR	=> (0, 0));
 
    ILEB_64_K_LENGTH		: constant := 32;			--  Length of ILEB
    ILEB_64_C_LENGTH		: constant := 32;			--  Length of ILEB
 
--+
-- Define the 32-bit Item List Entry 2 structure
---
 
    type ILE2_TYPE is
	record
	    LENGTH	: UNSIGNED_WORD;				--  Length of buffer in bytes
	    CODE	: UNSIGNED_WORD;				--  Item code value
	    BUFADDR	: ADDRESS;					--  Buffer address
	end record;
 
	    for ILE2_TYPE use 
		record
		    LENGTH	at 0 range 0 .. 15;
		    CODE	at 2 range 0 .. 15;
		    BUFADDR	at 4 range 0 .. 31;
		end record;
	    for ILE2_TYPE'SIZE use 64;
 
    ILE2_TYPE_INIT : constant ILE2_TYPE := 
	    (LENGTH	=> 0,
	    CODE	=> 0,
	    BUFADDR	=> ADDRESS_ZERO);
 
    ILE2_K_LENGTH		: constant := 8;			--  Length of ILE2
    ILE2_C_LENGTH		: constant := 8;			--  Length of ILE2
 
--+
-- Define the 64-Bit Item List Entry 2 structure.  This is the 64-bit
-- counterpart of the 32-bit item list 2 structure.
---
 
    type ILEA_64_TYPE is
	record
	    MBO		: UNSIGNED_WORD;				--  Must be One field
	    CODE	: UNSIGNED_WORD;				--  Item code value
	    MBMO	: INTEGER_32;					--  Must be Minus One field
	    LENGTH	: UNSIGNED_QUADWORD;				--  Length of buffer in bytes
	    BUFADDR	: UNSIGNED_QUADWORD;				--  Buffer address
	end record;
 
	    for ILEA_64_TYPE use 
		record
		    MBO		at 0 range 0 .. 15;
		    CODE	at 2 range 0 .. 15;
		    MBMO	at 4 range 0 .. 31;
		    LENGTH	at 8 range 0 .. 63;
		    BUFADDR	at 16 range 0 .. 63;
		end record;
	    for ILEA_64_TYPE'SIZE use 192;
 
    ILEA_64_TYPE_INIT : constant ILEA_64_TYPE := 
	    (MBO	=> 0,
	    CODE	=> 0,
	    MBMO	=> 0,
	    LENGTH	=> (0, 0),
	    BUFADDR	=> (0, 0));
 
    ILEA_64_K_LENGTH		: constant := 24;			--  Length of ILEA
    ILEA_64_C_LENGTH		: constant := 24;			--  Length of ILEA
 
end ILEDEF;