!*** MODULE $EGSTDEF ***
!DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARN
 ! 
 !  EVAX Universal Symbol Definition - used by the linker instead of ESDF$ records
 !  when building the global symbol table.  The def and univ. bits should always
 !  be set for these records.
 ! 
	PARAMETER EGST$K_NAME = '00000025'X
	PARAMETER EGST$C_NAME = '00000025'X
	STRUCTURE /EGSTDEF/
	    UNION
	        MAP
	        INTEGER*2 EGST$W_GSDTYP			 ! Maps over GSY$B_GSDTYP 
	        END MAP
	        MAP
	            ! unsupported type CHARACTER*0 EGST$T_START
	            INTEGER*2 %FILL
	        END MAP
	    END UNION
	    INTEGER*2 EGST$W_SIZE			 ! size of this EGST
	    BYTE      EGST$B_DATYP			 ! Maps over GSY$B_DATYP
	    BYTE      EGST$B_TEMP			 ! pad for alignment 
	    INTEGER*2 EGST$W_FLAGS			 ! Maps over GSY$W_FLAGS 
	    UNION
	        MAP
	        INTEGER*4 EGST$Q_VALUE(2)
	        END MAP
	        MAP
	        INTEGER*4 EGST$L_VALUE
	        END MAP
	    END UNION
	    UNION
	        MAP
	        INTEGER*4 EGST$Q_LP_1(2)
	        END MAP
	        MAP
	        INTEGER*4 EGST$L_LP_1
	        END MAP
	    END UNION
	    UNION
	        MAP
	        INTEGER*4 EGST$Q_LP_2(2)
	        END MAP
	        MAP
	        INTEGER*4 EGST$L_LP_2
	        END MAP
	    END UNION
	    INTEGER*4 EGST$L_PSINDX			 ! Owning psect number 
	    BYTE      EGST$B_NAMLNG			 ! Length of name 
	    CHARACTER*31 EGST$T_NAME		 ! Symbol name 
	END STRUCTURE	! EGSTDEF
!DEC$ END OPTIONS