!*** MODULE $EOBJRECDEF ***
!DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARN
 ! 
 !  These are the record types defined for VAX and EVAX object records.
 !  Some types are only recognized in one format of object file, but
 !  the types must be a single set of distinct codes.
 ! 
	PARAMETER EOBJ$C_EMH = '00000008'X	 ! EVAX module header record 
	PARAMETER EOBJ$C_EEOM = '00000009'X	 ! EVAX end of module record 
	PARAMETER EOBJ$C_EGSD = '0000000A'X	 ! EVAX global symbol definition record 
	PARAMETER EOBJ$C_ETIR = '0000000B'X	 ! EVAX text information record 
	PARAMETER EOBJ$C_EDBG = '0000000C'X	 ! EVAX Debugger information record 
	PARAMETER EOBJ$C_ETBT = '0000000D'X	 ! EVAX Traceback information record 
	PARAMETER EOBJ$C_MAXRECTYP = '0000000D'X  ! Last assigned record type 
	PARAMETER EOBJ$K_SUBTYP = '00000004'X
	PARAMETER EOBJ$C_SUBTYP = '00000004'X
	PARAMETER EOBJ$C_MAXRECSIZ = '00002000'X  ! Maximum legal record size 
	PARAMETER EOBJ$C_STRLVL = '00000002'X	 ! Structure level 
	PARAMETER EOBJ$C_STRLVL64 = '00000003'X	 ! Structure level
	PARAMETER EOBJ$C_SYMSIZ = '00000040'X	 ! Maximum symbol length 
	PARAMETER EOBJ$C_STOREPLIM = -1		 ! Maximum repeat count on store commands 
	PARAMETER EOBJ$C_PSCALILIM = '00000010'X  ! Maximum p-sect alignment 
	STRUCTURE /EOBJRECDEF/
 ! 
 !  These are the record types defined for VAX object records.
 ! 
	    INTEGER*2 EOBJ$W_RECTYP			 ! First byte always record type 
	    INTEGER*2 EOBJ$W_SIZE			 ! Second is always record size
 ! Permissable record types 
	    INTEGER*2 EOBJ$W_SUBTYP			 ! Record sub-type byte 
	    BYTE      EOBJ$B_MHD_STRLV		 ! Structure level
	    BYTE      EOBJ$B_MHD_HOLD		 ! alignment temp 
	    UNION
	        MAP
	        INTEGER*2 EOBJ$W_MHD_RECSZ		 ! Maximum record size 
	        END MAP
	        MAP
	            BYTE      %FILL(1:2)
	            ! unsupported type CHARACTER*0 EOBJ$T_MHD_NAME  ! Module name field 
 ! Misc. constants 
	        END MAP
	    END UNION
	END STRUCTURE	! EOBJRECDEF
!DEC$ END OPTIONS