!*** MODULE $EPMMDEF ***
!DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARN
 ! 
 !  GSD entry - Entry point definition, version mask symbols
 ! 
	PARAMETER EPMM$K_NAME = '00000010'X
	PARAMETER EPMM$C_NAME = '00000010'X
	STRUCTURE /EPMMDEF/
	    UNION
	        MAP
	        BYTE      EPMM$B_GSDTYP			 ! Maps over GSY$B_GSDTYP 
	        END MAP
	        MAP
	            ! unsupported type CHARACTER*0 EPMM$T_START
	            BYTE      %FILL
	        END MAP
	    END UNION
	    BYTE      EPMM$B_DATYP			 ! Maps over GSY$B_DATYP 
	    INTEGER*2 EPMM$W_FLAGS			 ! Maps over GSY$W_FLAGS 
	    BYTE      EPMM$B_PSINDX			 ! Maps over SDF$B_PSINDX 
	    INTEGER*4 EPMM$L_ADDRS			 ! Entry point address, maps over SDF$L_VALUE 
	    INTEGER*4 EPMM$L_VERSION_MASK		 ! Mask value for symbol
	    INTEGER*2 EPMM$W_MASK			 ! Entry point mask 
	    BYTE      EPMM$B_NAMLNG			 ! Length of name 
	    CHARACTER*31 EPMM$T_NAME		 ! Symbol name 
	END STRUCTURE	! EPMMDEF
!DEC$ END OPTIONS