!*** MODULE $EOMDEF ***
!DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARN
 ! 
 !  End of module record (EOM)
 ! 
	PARAMETER EOM$C_SUCCESS = '00000000'X	 ! Successful (no errors) 
	PARAMETER EOM$C_WARNING = '00000001'X	 ! Warnings issued 
	PARAMETER EOM$C_ERROR = '00000002'X	 ! Errors detected 
	PARAMETER EOM$C_ABORT = '00000003'X	 ! Abort the link 
	PARAMETER EOM$K_EOMMIN = '00000002'X	 ! Min length of EOM record 
	PARAMETER EOM$C_EOMMIN = '00000002'X	 ! Min length of EOM record 
	PARAMETER EOM$K_EOMMX1 = '00000007'X	 ! Length of EOM record w/o transfer flags 
	PARAMETER EOM$C_EOMMX1 = '00000007'X	 ! Length of EOM record w/o transfer flags 
	PARAMETER EOM$K_EOMMAX = '00000008'X	 ! Maximum length of EOM record 
	PARAMETER EOM$C_EOMMAX = '00000008'X	 ! Maximum length of EOM record 
	PARAMETER EOM$M_WKTFR = '00000001'X
	STRUCTURE /EOMDEF/
	    BYTE      EOM$B_RECTYP			 ! Record type (OBJ$C_EOM) 
	    BYTE      EOM$B_COMCOD			 ! Compiler completion code 
 ! Values 
	    BYTE      EOM$B_PSINDX			 ! P-sect of transfer address 
	    INTEGER*4 EOM$L_TFRADR			 ! Transfer address 
	    UNION
	        MAP
	        BYTE      EOM$B_TFRFLG			 ! Transfer address flags 
	        END MAP
	        MAP
	            PARAMETER EOM$S_WKTFR = 1
	            PARAMETER EOM$V_WKTFR = 0		 ! Transfer address is weak 
	        BYTE %FILL (1)
	        END MAP
	    END UNION
	END STRUCTURE	! EOMDEF
!DEC$ END OPTIONS