!*** MODULE $EGSYDEF ***
!DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARN
 ! 
 !  EVAX GSD entry - Symbol definition
 ! 
 !  common to definitions, references, and entry
 !  point definitions.
 ! 
	PARAMETER EGSY$M_WEAK = '00000001'X
	PARAMETER EGSY$M_DEF = '00000002'X
	PARAMETER EGSY$M_UNI = '00000004'X
	PARAMETER EGSY$M_REL = '00000008'X
	PARAMETER EGSY$M_COMM = '00000010'X
	PARAMETER EGSY$M_VECEP = '00000020'X
	PARAMETER EGSY$M_NORM = '00000040'X
	PARAMETER EGSY$M_QUAD_VAL = '00000080'X
	STRUCTURE /EGSYDEF/
	    UNION
	        MAP
	        INTEGER*2 EGSY$W_GSDTYP			 ! Type field 
	        END MAP
	        MAP
	            ! unsupported type CHARACTER*0 EGSY$T_START
	            BYTE      %FILL
	        END MAP
	    END UNION
	    INTEGER*2 EGSY$W_SIZE			 ! size of this EGSY
	    BYTE      EGSY$B_DATYP			 ! Symbol data type 
	    BYTE      EGSY$B_TEMP			 ! pad for alignment
	    UNION
	        MAP
	        INTEGER*2 EGSY$W_FLAGS			 ! Symbol flags 
	        END MAP
	        MAP
	            PARAMETER EGSY$S_WEAK = 1
	            PARAMETER EGSY$V_WEAK = 0		 ! Weak symbol 
	            PARAMETER EGSY$S_DEF = 1
	            PARAMETER EGSY$V_DEF = 1		 ! Definition 
	            PARAMETER EGSY$S_UNI = 1
	            PARAMETER EGSY$V_UNI = 2		 ! Universal 
	            PARAMETER EGSY$S_REL = 1
	            PARAMETER EGSY$V_REL = 3		 ! Relocatable 
	            PARAMETER EGSY$S_COMM = 1
	            PARAMETER EGSY$V_COMM = 4		 ! C common globaldef
	            PARAMETER EGSY$S_VECEP = 1
	            PARAMETER EGSY$V_VECEP = 5		 ! Vectored Entry Point
	            PARAMETER EGSY$S_NORM = 1
	            PARAMETER EGSY$V_NORM = 6		 ! Normal Procedure(FD)
	            PARAMETER EGSY$S_QUAD_VAL = 1
	            PARAMETER EGSY$V_QUAD_VAL = 7
	            BYTE %FILL (1)				 ! Value is quadword
	        END MAP
	    END UNION
	END STRUCTURE	! EGSYDEF
!DEC$ END OPTIONS