--********************************************************************************************************************
-- Created:  9-Mar-2021 22:28:16 by OpenVMS SDL EV3-3      
-- Source:  26-MAR-2002 10:26:58 $1$DGA8085:[LIB_ADA.LIS]BOODEF.SDL;1 
--********************************************************************************************************************
with SYSTEM; use SYSTEM;
with STARLET; use STARLET;
with CONDITION_HANDLING; use CONDITION_HANDLING;
 
package BOODEF is
 
--  module $BOODEF
 
--+
-- BOO - Boot Control Block
--
-- A boot control block is produced by SYSBOOT and placed in non-paged
-- pool.  It is pointed to by the cell EXE$GL_BOOTCB and contains
-- the mapping information for SYSDUMP.DMP.
---
 
    BOO_K_LENGTH		: constant := 52;
    BOO_C_LENGTH		: constant := 52;
    BOO_S_BOODEF		: constant := 52;
 
    type BOO_TYPE is
	record
	    CHECKSUM	: UNSIGNED_LONGWORD;				--  Checksum 
	    TIMELBN	: UNSIGNED_LONGWORD;				--  LBN of system time quadword
	    SIZE	: UNSIGNED_WORD;				--  Size of fixed portion of BOOTCB 
	    TYP		: UNSIGNED_BYTE;				--  Type of control block 
	    SUBTYP	: UNSIGNED_BYTE;				--  Sub-type 
	    SPARE	: UNSIGNED_LONGWORD;				--  Was "Starting VBN for dump file"
	    DMP_SIZE	: UNSIGNED_LONGWORD;				--  Size in blocks of dump file 
									--  from starting VBN to end of file
	    DMP_MAP	: ADDRESS;					--  Adr of map for SYSDUMP.DMP 
	    BUG_WCB	: ADDRESS;					--  Adr of WCB for bugcheck image
	    BUG_IMAGE_VA	: ADDRESS;				--  Base VA of image containing bugcheck
	    BUG_PTE_ADDR	: UNSIGNED_QUADWORD;			--  PTEs allocated to do QIOs to dump file
	    SCB_LBN	: UNSIGNED_LONGWORD;				--  LBN of the storage control block (SCB) on system disk
	    ERL_SIZE	: UNSIGNED_LONGWORD;				--  Size in blocks of error log dump file 
									--  from starting VBN to end of file
	    ERL_MAP	: ADDRESS;					--  Adr of map for SYS$ERRLOG.DMP
	end record;
 
	    for BOO_TYPE use 
		record
		    CHECKSUM	at 0 range 0 .. 31;
		    TIMELBN	at 4 range 0 .. 31;
		    SIZE	at 8 range 0 .. 15;
		    TYP		at 10 range 0 .. 7;
		    SUBTYP	at 11 range 0 .. 7;
		    SPARE	at 12 range 0 .. 31;
		    DMP_SIZE	at 16 range 0 .. 31;
		    DMP_MAP	at 20 range 0 .. 31;
		    BUG_WCB	at 24 range 0 .. 31;
		    BUG_IMAGE_VA	at 28 range 0 .. 31;
		    BUG_PTE_ADDR	at 32 range 0 .. 63;
		    SCB_LBN	at 40 range 0 .. 31;
		    ERL_SIZE	at 44 range 0 .. 31;
		    ERL_MAP	at 48 range 0 .. 31;
		end record;
	    for BOO_TYPE'SIZE use 416;
 
    BOO_TYPE_INIT : constant BOO_TYPE := 
	    (CHECKSUM	=> 0,
	    TIMELBN	=> 0,
	    SIZE	=> 0,
	    TYP		=> 0,
	    SUBTYP	=> 0,
	    SPARE	=> 0,
	    DMP_SIZE	=> 0,
	    DMP_MAP	=> ADDRESS_ZERO,
	    BUG_WCB	=> ADDRESS_ZERO,
	    BUG_IMAGE_VA	=> ADDRESS_ZERO,
	    BUG_PTE_ADDR	=> (0, 0),
	    SCB_LBN	=> 0,
	    ERL_SIZE	=> 0,
	    ERL_MAP	=> ADDRESS_ZERO);
 
end BOODEF;