--********************************************************************************************************************
-- Created:  9-Mar-2021 22:28:29 by OpenVMS SDL EV3-3      
-- Source:  16-DEC-1993 14:32:54 $1$DGA8085:[LIB_ADA.LIS]MCBDEF.SDL;1 
--********************************************************************************************************************
with SYSTEM; use SYSTEM;
with STARLET; use STARLET;
with CONDITION_HANDLING; use CONDITION_HANDLING;
 
package MCBDEF is
 
--  module MCBDEF IDENT X-2
 
    type MCB_TYPE is
	record
	    FLINK	: ADDRESS;					--  Queue forward link
	    BLINK	: ADDRESS;					--  Queue backward link
	    SIZE	: UNSIGNED_WORD;				--  Size of data structure
	    TYP		: UNSIGNED_BYTE;				--  Type DYN$C_SM 
	    SUBTYP	: UNSIGNED_BYTE;				--  Subtype DYN$C_SM_MCB
	    VCB		: ADDRESS;					--  Address of VCB for mount
	    IMCV	: UNSIGNED_LONGWORD;				--  Internal mount context value
	    EMCV	: UNSIGNED_LONGWORD;				--  External mount context value
	end record;
 
	    for MCB_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;
		    VCB		at 12 range 0 .. 31;
		    IMCV	at 16 range 0 .. 31;
		    EMCV	at 20 range 0 .. 31;
		end record;
	    for MCB_TYPE'SIZE use 192;
 
    MCB_TYPE_INIT : constant MCB_TYPE := 
	    (FLINK	=> ADDRESS_ZERO,
	    BLINK	=> ADDRESS_ZERO,
	    SIZE	=> 0,
	    TYP		=> 0,
	    SUBTYP	=> 0,
	    VCB		=> ADDRESS_ZERO,
	    IMCV	=> 0,
	    EMCV	=> 0);
 
    MCB_S_MCBDEF		: constant := 24;			--  Old size name, synonym for MCB$S_MCB
 
end MCBDEF;