--********************************************************************************************************************
-- Created:  9-Mar-2021 22:28:16 by OpenVMS SDL EV3-3      
-- Source:  09-JUN-1993 15:24:41 $1$DGA8085:[LIB_ADA.LIS]BOOCMDDEF.SDL;1 
--********************************************************************************************************************
with SYSTEM; use SYSTEM;
with STARLET; use STARLET;
with CONDITION_HANDLING; use CONDITION_HANDLING;
 
package BOOCMDDEF is
 
--  module $boocmddef
 
--+
--	Definitions for SYSGEN/SYSBOOT command options flags
---
 
    BOOCMD_M_NOCHECK		: constant := 16#00000001#;
    BOOCMD_M_NORESET		: constant := 16#00000002#;
    BOOCMD_M_SAVE		: constant := 16#00000004#;
    BOOCMD_M_USER		: constant := 16#00000008#;
    BOOCMD_M_PAGEFILE		: constant := 16#00000010#;
    BOOCMD_M_NONCONTIG		: constant := 16#00000020#;
    BOOCMD_M_SELECT		: constant := 16#00000040#;
    BOOCMD_M_EXCLUDE		: constant := 16#00000080#;
    BOOCMD_M_CONT		: constant := 16#00000100#;
    BOOCMD_M_DEFAULT		: constant := 16#00000200#;
    BOOCMD_M_USEFILE		: constant := 16#00000400#;
    BOOCMD_M_DISHEX		: constant := 16#00000800#;
    BOOCMD_M_AUTOLOG		: constant := 16#00001000#;
    BOOCMD_M_OUTPUT		: constant := 16#00002000#;
    BOOCMD_M_INPUT		: constant := 16#00004000#;
    BOOCMD_M_SETOUTPUT		: constant := 16#00008000#;
    BOOCMD_M_TERMINAL		: constant := 16#00010000#;
    BOOCMD_M_CONTIG		: constant := 16#00020000#;
    BOOCMD_M_NOCHKPNT		: constant := 16#00040000#;
    BOOCMD_M_REMOTE		: constant := 16#00080000#;
    BOOCMD_M_LOGICAL		: constant := 16#00100000#;
    BOOCMD_M_UART1		: constant := 16#00200000#;
    BOOCMD_M_UART2		: constant := 16#00400000#;
    BOOCMD_M_UART3		: constant := 16#00800000#;
    BOOCMD_M_NI			: constant := 16#01000000#;
    BOOCMD_M_NL_USER		: constant := 16#02000000#;
    BOOCMD_M_DINS_ALL		: constant := 16#04000000#;
    BOOCMD_M_DINS_IDX		: constant := 16#08000000#;
    BOOCMD_M_SETCMD		: constant := 16#10000000#;
    BOOCMD_M_CLR_MODIFY		: constant := 16#20000000#;
    BOOCMD_M_DYNAMIC_ONLY	: constant := 16#40000000#;
    BOOCMD_S_BOOCMDDEF		: constant := 4;
 
    type BOOCMD_CMDOPT_BITS_TYPE is
	record
	    NOCHECK	: BOOLEAN;
	    NORESET	: BOOLEAN;
	    SAVE	: BOOLEAN;
	    USER	: BOOLEAN;
	    PAGEFILE	: BOOLEAN;
	    NONCONTIG	: BOOLEAN;
	    SELEC	: BOOLEAN;
	    EXCLUDE	: BOOLEAN;
	    CONT	: BOOLEAN;
	    DEFAULT	: BOOLEAN;
	    USEFILE	: BOOLEAN;
	    DISHEX	: BOOLEAN;
	    AUTOLOG	: BOOLEAN;
	    OUTPUT	: BOOLEAN;
	    INPUT	: BOOLEAN;
	    SETOUTPUT	: BOOLEAN;
	    TERMINAL	: BOOLEAN;
	    CONTIG	: BOOLEAN;
	    NOCHKPNT	: BOOLEAN;
	    REMOTE	: BOOLEAN;
	    LOGICAL	: BOOLEAN;
	    UART1	: BOOLEAN;
	    UART2	: BOOLEAN;
	    UART3	: BOOLEAN;
	    NI		: BOOLEAN;
	    NL_USER	: BOOLEAN;
	    DINS_ALL	: BOOLEAN;
	    DINS_IDX	: BOOLEAN;
	    SETCMD	: BOOLEAN;
	    CLR_MODIFY	: BOOLEAN;
	    DYNAMIC_ONLY	: BOOLEAN;
	    FILLER_1	: BOOLEAN;
	end record;
 
	    for BOOCMD_CMDOPT_BITS_TYPE use 
		record
		    NOCHECK	at 0 range 0 .. 0;
		    NORESET	at 0 range 1 .. 1;
		    SAVE	at 0 range 2 .. 2;
		    USER	at 0 range 3 .. 3;
		    PAGEFILE	at 0 range 4 .. 4;
		    NONCONTIG	at 0 range 5 .. 5;
		    SELEC	at 0 range 6 .. 6;
		    EXCLUDE	at 0 range 7 .. 7;
		    CONT	at 1 range 0 .. 0;
		    DEFAULT	at 1 range 1 .. 1;
		    USEFILE	at 1 range 2 .. 2;
		    DISHEX	at 1 range 3 .. 3;
		    AUTOLOG	at 1 range 4 .. 4;
		    OUTPUT	at 1 range 5 .. 5;
		    INPUT	at 1 range 6 .. 6;
		    SETOUTPUT	at 1 range 7 .. 7;
		    TERMINAL	at 2 range 0 .. 0;
		    CONTIG	at 2 range 1 .. 1;
		    NOCHKPNT	at 2 range 2 .. 2;
		    REMOTE	at 2 range 3 .. 3;
		    LOGICAL	at 2 range 4 .. 4;
		    UART1	at 2 range 5 .. 5;
		    UART2	at 2 range 6 .. 6;
		    UART3	at 2 range 7 .. 7;
		    NI		at 3 range 0 .. 0;
		    NL_USER	at 3 range 1 .. 1;
		    DINS_ALL	at 3 range 2 .. 2;
		    DINS_IDX	at 3 range 3 .. 3;
		    SETCMD	at 3 range 4 .. 4;
		    CLR_MODIFY	at 3 range 5 .. 5;
		    DYNAMIC_ONLY	at 3 range 6 .. 6;
		    FILLER_1	at 3 range 7 .. 7;
		end record;
	    for BOOCMD_CMDOPT_BITS_TYPE'SIZE use 32;
 
    BOOCMD_CMDOPT_BITS_TYPE_INIT : constant BOOCMD_CMDOPT_BITS_TYPE := 
	    (NOCHECK	=> FALSE,
	    NORESET	=> FALSE,
	    SAVE	=> FALSE,
	    USER	=> FALSE,
	    PAGEFILE	=> FALSE,
	    NONCONTIG	=> FALSE,
	    SELEC	=> FALSE,
	    EXCLUDE	=> FALSE,
	    CONT	=> FALSE,
	    DEFAULT	=> FALSE,
	    USEFILE	=> FALSE,
	    DISHEX	=> FALSE,
	    AUTOLOG	=> FALSE,
	    OUTPUT	=> FALSE,
	    INPUT	=> FALSE,
	    SETOUTPUT	=> FALSE,
	    TERMINAL	=> FALSE,
	    CONTIG	=> FALSE,
	    NOCHKPNT	=> FALSE,
	    REMOTE	=> FALSE,
	    LOGICAL	=> FALSE,
	    UART1	=> FALSE,
	    UART2	=> FALSE,
	    UART3	=> FALSE,
	    NI		=> FALSE,
	    NL_USER	=> FALSE,
	    DINS_ALL	=> FALSE,
	    DINS_IDX	=> FALSE,
	    SETCMD	=> FALSE,
	    CLR_MODIFY	=> FALSE,
	    DYNAMIC_ONLY	=> FALSE,
	    FILLER_1	=> FALSE);
 
    type BOOCMD_TYPE is
	record
	    CMDOPT_BITS	: BOOCMD_CMDOPT_BITS_TYPE;
	end record;
 
	    for BOOCMD_TYPE use 
		record
		    CMDOPT_BITS	at 0 range 0 .. 31;
		end record;
	    for BOOCMD_TYPE'SIZE use 32;
 
    BOOCMD_TYPE_INIT : constant BOOCMD_TYPE := 
	    (
	    CMDOPT_BITS	=> BOOCMD_CMDOPT_BITS_TYPE_INIT);
 
end BOOCMDDEF;