!*** MODULE $ACCESSDEF ***
!DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARN
 ! 
 !  Definitions for Acmode arugment to several MMG system services
 ! 
	PARAMETER ACCESS$M_LOCK_IMAGE = '00000040'X
	PARAMETER ACCESS$M_LKWSET_EXACT = '00000080'X
	STRUCTURE /ACCESS/
	    UNION
	        MAP
	        INTEGER*4 ACCESS$Q_QUAD(2)		 !  Combined acmode/arch/prot argument - full 64-bits
	        END MAP
	        MAP
	            BYTE      ACCESS$B_MODE			 !  Access mode
	            BYTE      ACCESS$B_ARCH			 !  Architecture 3=IA64
	            INTEGER*2 ACCESS$W_PROT			 !  Page protection in architecture format
	            INTEGER*4 ACCESS$L_RESERVED1		 !  Reserved
	        END MAP
	        MAP
	            PARAMETER ACCESS$S_LOCK_IMAGE = 1
	            PARAMETER ACCESS$V_LOCK_IMAGE = 6	 !  For $LKWSET_64 and $ULWSET_64 only
	            PARAMETER ACCESS$S_LKWSET_EXACT = 1
	            PARAMETER ACCESS$V_LKWSET_EXACT = 7	 !  For $LKWSET[_64] and $ULWSET[_64] IA64 only
 !     Alpha always performs exact
	        BYTE %FILL (1)
	        END MAP
	    END UNION
	END STRUCTURE	! ACCESS
	PARAMETER ACCESS$C_IA64 = '00000003'X	 !  IA64
!DEC$ END OPTIONS