!*** MODULE $EMHDEF ***
!DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARN
 ! 
 !  EVAX Module header record (EMH)
 ! 
	PARAMETER EMH$C_MHD = '00000000'X	 ! Main header record 
	PARAMETER EMH$C_LNM = '00000001'X	 ! Language name and version 
	PARAMETER EMH$C_SRC = '00000002'X	 ! Source file specification 
	PARAMETER EMH$C_TTL = '00000003'X	 ! Title text of module 
	PARAMETER EMH$C_CPR = '00000004'X	 ! Copyright notice 
	PARAMETER EMH$C_MTC = '00000005'X	 ! Maintenence status 
	PARAMETER EMH$C_GTX = '00000006'X	 ! General text 
	PARAMETER EMH$C_MAXHDRTYP = '00000006'X	 ! Maximum allowable type 
	STRUCTURE /EMHDEF/
	    INTEGER*2 EMH$W_RECTYP			 ! Record type (OBJ$C_MHD) 
	    INTEGER*2 EMH$W_SIZE			 ! length of this EMH
	    INTEGER*2 EMH$W_HDRTYP			 ! Type field for MHD 
 ! Types of header records 
	    BYTE      EMH$B_STRLVL			 ! Structure level 
	    BYTE      EMH$B_TEMP			 ! temp pad byte
	    INTEGER*4 EMH$L_ARCH1			 ! target architecture LW1
	    INTEGER*4 EMH$L_ARCH2			 ! target architecture LW2
	    INTEGER*4 EMH$L_RECSIZ			 ! Maximum record size 
	    BYTE      EMH$B_NAMLNG			 ! Module name length 
	    CHARACTER*31 EMH$T_NAME			 ! Module name 
	END STRUCTURE	! EMHDEF
!DEC$ END OPTIONS