!*** MODULE $MACIDDEF ***
!DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARN
 ! +
 ! 
 !   Module $UICDEF defines the rightslist identifier space from %XA0000000
 !   thru %XA3FFFFFF as being reserved for use by SEVMS.
 !  
 !   This space has been segmented as:
 ! 
 ! 	%XA0000000 thru %XA000FFFF for MAC secrecy level identifiers
 ! 	%XA0010000 thru %XA001FFFF for MAC secrecy category identifiers
 ! 	%XA0020000 thru %XA002FFFF for MAC integrity level identifiers
 ! 	%XA0030000 thru %XA003FFFF for MAC integrity category identifiers
 ! 
 !   to provide 64K identifiers within each grouping.  This allows for growth
 !   consistent with variable format (i.e. type DYN_CAT) class blocks.
 ! 
 ! -
	PARAMETER MACID$M_ID_NUM = '0000FFFF'X
	PARAMETER MACID$M_LVL_CAT_SEL = '00010000'X
	PARAMETER MACID$K_LVL = '00000000'X	 !   Level ID sub-group
	PARAMETER MACID$K_CAT = '00000001'X	 !   Category ID sub-group
	PARAMETER MACID$M_SEC_INT_SEL = '00020000'X
	PARAMETER MACID$K_SEC = '00000000'X	 !   Secrecy ID group
	PARAMETER MACID$K_INT = '00000001'X	 !   Integrity ID group
	PARAMETER MACID$M_MBZ = '03FC0000'X
	PARAMETER MACID$M_FMT_SEL = 'FC000000'X
	PARAMETER MACID$K_SEVMS_ID = '00000028'X  !  Format specifier for SEVMS
 !   identifiers as defined by $UICDEF
	STRUCTURE /MACID$$FILL_0_/
	UNION
	    MAP
	    INTEGER*4 MACID$L_MACIDDEF
	    END MAP
	    MAP
	        PARAMETER MACID$S_ID_NUM = 16
	        PARAMETER MACID$V_ID_NUM = 0		 !  Group relative ID number
	        PARAMETER MACID$S_LVL_CAT_SEL = 1
	        PARAMETER MACID$V_LVL_CAT_SEL = 16	 !  Level/Category ID sub-group selector
	        PARAMETER MACID$S_SEC_INT_SEL = 1
	        PARAMETER MACID$V_SEC_INT_SEL = 17	 !  Secrecy/Integrity ID group selector
	        PARAMETER MACID$S_MBZ = 8
	        PARAMETER MACID$V_MBZ = 18
	        PARAMETER MACID$S_FMT_SEL = 6
	        PARAMETER MACID$V_FMT_SEL = 26		 !  Composite overlay of $UICDEF
 !   ID_TYPE + ASSIGN_CODE fields
	    BYTE %FILL (4)
	    END MAP
	END UNION
	END STRUCTURE	! MACID$$FILL_0_
!DEC$ END OPTIONS