!*** MODULE $UICDEF ***
!DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARN
 ! +
 ! 
 !  Format of UIC - user identification code. May be either two part
 !  group / member identifier, or a single uniform identifier.
 ! 
 !  The binary layout of the id space is as follows:
 ! 
 !   ---------- Bit --------
 !    31  30  29  28  27  26	Description
 !   === === === === === ===	========================================
 ! 
 !     0   0   -   -   -   -	UIC form (group/member)
 !     0   1   -   -   -   -	Unused
 !     1   0   -   -   -   -	Identifier form
 !     1   0   0   0   -   -	    System identifiers
 !     1   0   0   1   -   -	    Facility-specific identifiers
 !     1   0   1   0   -   -	    Arbitrary assignment identifiers
 !     1   0   1   0   0   0	        SEVMS identifier space
 !     1   0   1   0   0   1	        Unused
 !     1   0   1   0   1   0	        Unused
 !     1   0   1   0   1   1	        Unused
 !     1   0   1   1   -   -	    Unused
 !     1   1   -   -   -   -	Unused
 ! -
	PARAMETER UIC$K_MAX_UIC = '3FFFFFFF'X	 !  Highest possible UIC
	PARAMETER UIC$K_WILD_MEMBER = '0000FFFF'X  !  Code for wild card member
	PARAMETER UIC$K_WILD_GROUP = '00003FFF'X  !  Code for wild card group
	PARAMETER UIC$K_UIC_FORMAT = '00000000'X  !  UIC format code
	PARAMETER UIC$K_ID_FORMAT = '00000002'X	 !  ID format code
	PARAMETER UIC$K_TYPE_SYSTEM = '00000008'X  !  system ID or UIC
	PARAMETER UIC$K_TYPE_FACILITY = '00000009'X  !  facility ID or UIC
	PARAMETER UIC$K_TYPE_ARBITRARY = '0000000A'X  !  arbitrary assignment space
	PARAMETER UIC$K_FIRST_ID = '80010000'X	 !  First general identifier
	PARAMETER UIC$K_LAST_ID = '8FFFFFFF'X	 !  Last general identifier
	PARAMETER UIC$K_MATCH_ALL = -1		 !  Match all identifiers
	PARAMETER UIC$K_ASSIGN_SEVMS = '00000000'X  !  SEVMS block of identifier space
	STRUCTURE /UICDEF/
	UNION
	    MAP
	    UNION
	        MAP
	        INTEGER*4 UIC$L_UIC			 !  Full longword
	        END MAP
	        MAP
	            INTEGER*2 UIC$W_MEM			 !  Member number
	            INTEGER*2 UIC$W_GRP			 !  Group number
	        END MAP
	    END UNION
	    END MAP
	    MAP
	        PARAMETER UIC$S_MEMBER = 16
	        PARAMETER UIC$V_MEMBER = 0		 !  Member number
	        PARAMETER UIC$S_GROUP = 14
	        PARAMETER UIC$V_GROUP = 16		 !  Group number
	        PARAMETER UIC$S_FORMAT = 2
	        PARAMETER UIC$V_FORMAT = 30
	        BYTE %FILL (4)				 !  Format code
	    END MAP
	    MAP
	        PARAMETER UIC$S_ID_CODE = 28
	        PARAMETER UIC$V_ID_CODE = 0		 !  ID code
	        PARAMETER UIC$S_ID_TYPE = 4
	        PARAMETER UIC$V_ID_TYPE = 28
	        BYTE %FILL (4)				 !  ID type 
	    END MAP
	    MAP
	        PARAMETER UIC$S_FAC_ID_CODE = 16
	        PARAMETER UIC$V_FAC_ID_CODE = 0		 !  ID code
	        PARAMETER UIC$S_FACILITY = 12
	        PARAMETER UIC$V_FACILITY = 16		 !  Facility code
	    BYTE %FILL (4)
	    END MAP
	    MAP
	        PARAMETER UIC$S_ARB_ID_CODE = 26
	        PARAMETER UIC$V_ARB_ID_CODE = 0		 !  ID code
	        PARAMETER UIC$S_ASSIGN_CODE = 2
	        PARAMETER UIC$V_ASSIGN_CODE = 26	 !  Assignment code
	    BYTE %FILL (4)
	    END MAP
	END UNION
	END STRUCTURE	! UICDEF
!DEC$ END OPTIONS