!*** MODULE $PMMDEF ***
!DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARN
 ! +
 !  PFN memory data structure definition.  This structure is used to access the
 !  fields within the PFN memory map returned by $GETSYI.  $GETSYI copies the
 !  contents of the pool packet stored at MMG$GL_SYI_PFN_MEMORY_MAP to a
 !  user-supplied buffer.
 ! -
	PARAMETER PMM$m_console = '00000001'X
	PARAMETER PMM$m_openvms = '00000002'X
	PARAMETER PMM$m_available = '00000004'X
	PARAMETER PMM$m_base = '00000008'X
	PARAMETER PMM$m_galaxy_shared = '00000010'X
	PARAMETER PMM$m_undefined_5_15 = '0000FFE0'X
	PARAMETER PMM$C_LENGTH = '0000000C'X	 !  Length of structure
	PARAMETER PMM$K_LENGTH = '0000000C'X	 !  Length of structure
	STRUCTURE /PMM/
	    INTEGER*2 PMM$W_LENGTH			 !  Size of a PMM structure
	    UNION
	        MAP
	        INTEGER*2 PMM$w_flags
	        END MAP
	        MAP
	            PARAMETER PMM$S_console = 1
	            PARAMETER PMM$V_console = 0		 !  Used by Console
	            PARAMETER PMM$S_openvms = 1
	            PARAMETER PMM$V_openvms = 1		 !  Used by OpenVMS
	            PARAMETER PMM$S_available = 1
	            PARAMETER PMM$V_available = 2		 !  Available for Other Uses
	            PARAMETER PMM$S_base = 1
	            PARAMETER PMM$V_base = 3		 !  Galaxy base memory segment
	            PARAMETER PMM$S_galaxy_shared = 1
	            PARAMETER PMM$V_galaxy_shared = 4	 !  Galaxy shared memory
	            PARAMETER PMM$S_undefined_5_15 = 11
	            PARAMETER PMM$V_undefined_5_15 = 5
	            BYTE %FILL (2)				 !  Undefined bits should be zero
	        END MAP
	    END UNION
	    INTEGER*4 PMM$l_start_pfn		 !  First PFN in this cluster
	    INTEGER*4 PMM$l_pfn_count		 !  Number of PFNs in this cluster
	END STRUCTURE	! PMM
 !  Expanded version for larger PFNs
	PARAMETER PMM64$m_console = '00000001'X
	PARAMETER PMM64$m_openvms = '00000002'X
	PARAMETER PMM64$m_available = '00000004'X
	PARAMETER PMM64$m_base = '00000008'X
	PARAMETER PMM64$m_galaxy_shared = '00000010'X
	PARAMETER PMM64$m_undefined_5_15 = '0000FFE0'X
	PARAMETER PMM64$C_LENGTH = '00000018'X	 !  Length of structure
	PARAMETER PMM64$K_LENGTH = '00000018'X	 !  Length of structure
	STRUCTURE /PMM64/
	    INTEGER*2 PMM64$W_LENGTH		 !  Size of a PMM structure
	    UNION
	        MAP
	        INTEGER*2 PMM64$w_flags
	        END MAP
	        MAP
	            PARAMETER PMM64$S_console = 1
	            PARAMETER PMM64$V_console = 0		 !  Used by Console
	            PARAMETER PMM64$S_openvms = 1
	            PARAMETER PMM64$V_openvms = 1		 !  Used by OpenVMS
	            PARAMETER PMM64$S_available = 1
	            PARAMETER PMM64$V_available = 2		 !  Available for Other Uses
	            PARAMETER PMM64$S_base = 1
	            PARAMETER PMM64$V_base = 3		 !  Galaxy base memory segment
	            PARAMETER PMM64$S_galaxy_shared = 1
	            PARAMETER PMM64$V_galaxy_shared = 4	 !  Galaxy shared memory
	            PARAMETER PMM64$S_undefined_5_15 = 11
	            PARAMETER PMM64$V_undefined_5_15 = 5
	            BYTE %FILL (2)				 !  Undefined bits should be zero
	        END MAP
	    END UNION
	    INTEGER*4 PMM64$l_reserved		 !  padding
	    INTEGER*4 PMM64$q_start_pfn(2)		 !  First PFN in this cluster
	    INTEGER*4 PMM64$q_pfn_count(2)		 !  Number of PFNs in this cluster
	END STRUCTURE	! PMM64
!DEC$ END OPTIONS