--********************************************************************************************************************
-- Created:  9-Mar-2021 22:28:28 by OpenVMS SDL EV3-3      
-- Source:  20-APR-1993 14:03:49 $1$DGA8085:[LIB_ADA.LIS]KFPBDEF.SDL;1 
--********************************************************************************************************************
with SYSTEM; use SYSTEM;
with STARLET; use STARLET;
with CONDITION_HANDLING; use CONDITION_HANDLING;
 
package KFPBDEF is
 
--  module $KFPBDEF
 
--
-- KNOWN FILE POINTER BLOCK DEFINITIONS
--
 
    KFPB_K_LENGTH		: constant := 16;			--  Length of pointer block
    KFPB_C_LENGTH		: constant := 16;			--  Length of pointer block
    KFPB_S_KFPBDEF		: constant := 16;
 
    type KFPB_TYPE is
	record
	    KFDLST	: ADDRESS;					--  Device, Directory, Extension (KFD) list link
	    KFEHSHTAB	: ADDRESS;					--  Address of Known file name hash table
	    SIZE	: UNSIGNED_WORD;				--  Size of pointer block in bytes 
	    TYP		: UNSIGNED_BYTE;				--  Pointer block type 
	    SPARE	: UNSIGNED_BYTE;				--  spare byte
	    KFDLSTCNT	: UNSIGNED_WORD;				--  Number of entries in KFD list
	    HSHTABLEN	: UNSIGNED_WORD;				--  Length of Hash table
	end record;
 
	    for KFPB_TYPE use 
		record
		    KFDLST	at 0 range 0 .. 31;
		    KFEHSHTAB	at 4 range 0 .. 31;
		    SIZE	at 8 range 0 .. 15;
		    TYP		at 10 range 0 .. 7;
		    SPARE	at 11 range 0 .. 7;
		    KFDLSTCNT	at 12 range 0 .. 15;
		    HSHTABLEN	at 14 range 0 .. 15;
		end record;
	    for KFPB_TYPE'SIZE use 128;
 
    KFPB_TYPE_INIT : constant KFPB_TYPE := 
	    (KFDLST	=> ADDRESS_ZERO,
	    KFEHSHTAB	=> ADDRESS_ZERO,
	    SIZE	=> 0,
	    TYP		=> 0,
	    SPARE	=> 0,
	    KFDLSTCNT	=> 0,
	    HSHTABLEN	=> 0);
 
end KFPBDEF;