--********************************************************************************************************************
-- Created:  9-Mar-2021 22:28:26 by OpenVMS SDL EV3-3      
-- Source:  11-FEB-2004 13:43:30 $1$DGA8085:[LIB_ADA.LIS]HWPRTDEF.SDL;1 
--********************************************************************************************************************
with SYSTEM; use SYSTEM;
with STARLET; use STARLET;
with CONDITION_HANDLING; use CONDITION_HANDLING;
 
package HWPRTDEF is
 
--  module $HWPRTDEF
 
--+
-- Protection field definitions. These encodings are specific
-- to the architecture and should only be used for
-- privileged interfaces.
---
 
    HWPRT_C_HWPRT		: constant := -2147483648;		--  Identify protection argument as HW protection form
    HWPRT_M_HWPRT		: constant := -2147483648;		--  Identify protection argument as HW protection form
    HWPRT_C_NA			: constant := 0;			--  No Access
    HWPRT_C_KR			: constant := 1;			--  Kernel Read only
    HWPRT_C_KW			: constant := 17;			--  Kernel Write
    HWPRT_C_ER			: constant := 3;			--  Exec Read only
    HWPRT_C_EW			: constant := 51;			--  Exec Write
    HWPRT_C_SR			: constant := 7;			--  Super Read only
    HWPRT_C_SW			: constant := 119;			--  Super Write
    HWPRT_C_UR			: constant := 15;			--  User Read only
    HWPRT_C_UW			: constant := 255;			--  User Write
    HWPRT_C_ERKW		: constant := 19;			--  Exec Read Kernel Write
    HWPRT_C_SRKW		: constant := 23;			--  Super Read Kernel Write
    HWPRT_C_SREW		: constant := 55;			--  Super Read Exec Write
    HWPRT_C_URKW		: constant := 31;			--  User Read Kernel Write
    HWPRT_C_UREW		: constant := 63;			--  User Read Exec Write
    HWPRT_C_URSW		: constant := 127;			--  User Read Super Write
 
end HWPRTDEF;