--
--****************************************************************************
--*                                                                          *
--*  Copyright (c) 2001                                                      *
--*  by DIGITAL Equipment Corporation, Maynard, Mass.                        *
--*                                                                          *
--*  This software is furnished under a license and may be used and  copied  *
--*  only  in  accordance  with  the  terms  of  such  license and with the  *
--*  inclusion of the above copyright notice.  This software or  any  other  *
--*  copies  thereof may not be provided or otherwise made available to any  *
--*  other person.  No title to and ownership of  the  software  is  hereby  *
--*  transferred.                                                            *
--*                                                                          *
--*  The information in this software is subject to change  without  notice  *
--*  and  should  not  be  construed  as  a commitment by DIGITAL Equipment  *
--*  Corporation.                                                            *
--*                                                                          *
--*  DIGITAL assumes no responsibility for the use or  reliability  of  its  *
--*  software on equipment which is not supplied by DIGITAL.                 *
--*                                                                          *
--****************************************************************************
--********************************************************************************************************************
-- Created: 15-MAR-2001 22:50:12 by OpenVMS SDL EV1-33     
-- Source:  18-MAY-1995 23:13:11 $11$DUA933:[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 on the system disk, and the 
-- SYSDUMP_1.DMP on another disk.  
---
 
    BOO_K_LENGTH		: constant := 80;
    BOO_C_LENGTH		: constant := 80;
 
    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 
	    DMP_VBN	: UNSIGNED_LONGWORD;				--  Starting VBN for dump file 
	    DMP_SIZE	: UNSIGNED_LONGWORD;				--  Size in blocks of dump file 
									--  from starting VBN to end of file
	    DMP_MAP	: UNSIGNED_LONGWORD;				--  Adr of map for SYSDUMP.DMP 
	    BUG_WCB	: UNSIGNED_LONGWORD;				--  Adr of WCB for bugcheck image
	    BUG_LBN	: UNSIGNED_LONGWORD;				--  LBN of first page of bugcheck code
	    BUG_IMAGE_VA	: UNSIGNED_LONGWORD;			--  Base VA of image containing bugcheck
	    SCB_LBN	: UNSIGNED_LONGWORD;				--  LBN of the storage control block 
									--   (SCB) on system disk
	    DOSD_SCB_LBN	: UNSIGNED_LONGWORD;			--  LBN of the storage control block 
									--   (SCB) on dump disk
	    DMP_1_VBN	: UNSIGNED_LONGWORD;				--  Starting VBN for dump file, off
									--   system disk  
	    DMP_1_SIZE	: UNSIGNED_LONGWORD;				--  Size in blocks of dump file, off
									--   system disk from starting VBN to
									--   end of file
	    DMP_1_MAP	: UNSIGNED_LONGWORD;				--  Adr of map for SYSDUMP_1.DMP, off
									--   system disk  
	    ERRORLOG_VBN	: UNSIGNED_LONGWORD;			--  Starting VBN for ERRORLOG file 
	    ERRORLOG_SIZE	: UNSIGNED_LONGWORD;			--  Size in blocks of ERRORLOG file 
									--  from starting VBN to end of file
	    ERRORLOG_MAP	: UNSIGNED_LONGWORD;			--  Adr of map for ERRORLOG.DMP 
	    DOSD_BOOT_VOL_LABEL	: UNSIGNED_LONGWORD;			--  Saved volume label for dump device
	    DOSD_BOOT_VOL_LABEL_4	: UNSIGNED_LONGWORD;		--  Saved volume label for dump device
	    DOSD_BOOT_VOL_LABEL_8	: UNSIGNED_LONGWORD;		--  Saved volume label for dump device
	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;
		    DMP_VBN	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_LBN	at 28 range 0 .. 31;
		    BUG_IMAGE_VA	at 32 range 0 .. 31;
		    SCB_LBN	at 36 range 0 .. 31;
		    DOSD_SCB_LBN	at 40 range 0 .. 31;
		    DMP_1_VBN	at 44 range 0 .. 31;
		    DMP_1_SIZE	at 48 range 0 .. 31;
		    DMP_1_MAP	at 52 range 0 .. 31;
		    ERRORLOG_VBN	at 56 range 0 .. 31;
		    ERRORLOG_SIZE	at 60 range 0 .. 31;
		    ERRORLOG_MAP	at 64 range 0 .. 31;
		    DOSD_BOOT_VOL_LABEL	at 68 range 0 .. 31;
		    DOSD_BOOT_VOL_LABEL_4	at 72 range 0 .. 31;
		    DOSD_BOOT_VOL_LABEL_8	at 76 range 0 .. 31;
		end record;
	    for BOO_TYPE'SIZE use 640;
 
    BOO_TYPE_INIT : constant BOO_TYPE := 
	    (CHECKSUM	=> 0,
	    TIMELBN	=> 0,
	    SIZE	=> 0,
	    TYP		=> 0,
	    SUBTYP	=> 0,
	    DMP_VBN	=> 0,
	    DMP_SIZE	=> 0,
	    DMP_MAP	=> 0,
	    BUG_WCB	=> 0,
	    BUG_LBN	=> 0,
	    BUG_IMAGE_VA	=> 0,
	    SCB_LBN	=> 0,
	    DOSD_SCB_LBN	=> 0,
	    DMP_1_VBN	=> 0,
	    DMP_1_SIZE	=> 0,
	    DMP_1_MAP	=> 0,
	    ERRORLOG_VBN	=> 0,
	    ERRORLOG_SIZE	=> 0,
	    ERRORLOG_MAP	=> 0,
	    DOSD_BOOT_VOL_LABEL	=> 0,
	    DOSD_BOOT_VOL_LABEL_4	=> 0,
	    DOSD_BOOT_VOL_LABEL_8	=> 0);
 
end BOODEF;