--********************************************************************************************************************
-- Created:  9-Mar-2021 22:28:24 by OpenVMS SDL EV3-3      
-- Source:  02-APR-2003 13:35:28 $1$DGA8085:[LIB_ADA.LIS]FDTDEF.SDL;1 
--********************************************************************************************************************
with SYSTEM; use SYSTEM;
with STARLET; use STARLET;
with CONDITION_HANDLING; use CONDITION_HANDLING;
 
package FDTDEF is
 
--  module $FDTDEF
 
--+
-- FDT - FUNCTION DECISION TABLE FOR STEP 2 I/O DEVICE DRIVERS
--
-- EACH I/O DEVICE DRIVER HAS A FUNCTION DECISION TABLE.
---
 
    type FDT_TYPE is
	record
	    BUFFERED	: UNSIGNED_QUADWORD;				--  64 bit map set for buffered I/O function codes
	    FUNC_RTN	: ADDRESS_ARRAY (1 .. 64);			--  Pointers to upper level FDT routines
	    OK64BIT	: UNSIGNED_QUADWORD;				--  Corresponding bit set if function supports 64-bit $QIO P1 
	end record;
 
	    for FDT_TYPE use 
		record
		    BUFFERED	at 0 range 0 .. 63;
		    FUNC_RTN	at 8 range 0 .. 2047;
		    OK64BIT	at 264 range 0 .. 63;
		end record;
	    for FDT_TYPE'SIZE use 2176;
 
    FDT_TYPE_INIT : constant FDT_TYPE := 
	    (BUFFERED	=> (0, 0),
	    FUNC_RTN	=> (others => ADDRESS_ZERO),
	    OK64BIT	=> (0, 0));
 
    FDT_K_LENGTH		: constant := 272;			--  Length constant
 
end FDTDEF;