!*** MODULE $EEOMDEF ***
!DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARN
 ! 
 !  EVAX End of module record (EEOM)
 ! 
	PARAMETER EEOM$C_SUCCESS = '00000000'X	 ! Successful (no errors) 
	PARAMETER EEOM$C_WARNING = '00000001'X	 ! Warnings issued 
	PARAMETER EEOM$C_ERROR = '00000002'X	 ! Errors detected 
	PARAMETER EEOM$C_ABORT = '00000003'X	 ! Abort the link 
	PARAMETER EEOM$K_EOMMIN = '0000000A'X	 ! Min length of EOM record 
	PARAMETER EEOM$C_EOMMIN = '0000000A'X	 ! Min length of EOM record 
	PARAMETER EEOM$K_EOMMX1 = '0000000A'X	 ! Length of EOM record w/o transfer flags 
	PARAMETER EEOM$C_EOMMX1 = '0000000A'X	 ! Length of EOM record w/o transfer flags 
	PARAMETER EEOM$M_WKTFR = '00000001'X
	PARAMETER EEOM$K_EOMMAX = '00000018'X	 ! Maximum length of EOM record 
	PARAMETER EEOM$C_EOMMAX = '00000018'X	 ! Maximum length of EOM record 
	STRUCTURE /EEOMDEF/
	    INTEGER*2 EEOM$W_RECTYP			 ! Record type (OBJ$C_EOM) 
	    INTEGER*2 EEOM$W_SIZE			 ! size of this EEMOD
	    INTEGER*4 EEOM$L_TOTAL_LPS		 ! Number of conditional linkage pairs - max-index/2
	    INTEGER*2 EEOM$W_COMCOD			 ! Compiler completion code 
 ! Values 
	    UNION
	        MAP
	        BYTE      EEOM$B_TFRFLG			 ! Transfer address flags 
	        END MAP
	        MAP
	            PARAMETER EEOM$S_WKTFR = 1
	            PARAMETER EEOM$V_WKTFR = 0		 ! Transfer address is weak 
	        BYTE %FILL (1)
	        END MAP
	    END UNION
	    BYTE      EEOM$B_TEMP			 ! pad to align PSINDX
	    INTEGER*4 EEOM$L_PSINDX			 ! P-sect of transfer address 
	    UNION
	        MAP
	        INTEGER*4 EEOM$Q_TFRADR(2)		 ! Transfer address 
	        END MAP
	        MAP
	        INTEGER*4 EEOM$L_TFRADR			 ! Transfer address
	        END MAP
	    END UNION
	END STRUCTURE	! EEOMDEF
!DEC$ END OPTIONS