!*** MODULE $GEN64DEF ***
!DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARN
 ! +
 !  Define the generic quadword structure.
 ! -
	STRUCTURE /GENERIC_64/
	    UNION
	        MAP
	        INTEGER*4 GEN64$Q_QUADWORD(2)		 !  ...a single 64-bit value, or
	        END MAP
	        MAP
	        INTEGER*4 GEN64$L_LONGWORD(1:2)		 !  ...two 32-bit values, or
	        END MAP
	        MAP
	        INTEGER*2 GEN64$W_WORD(1:4)		 !  ...four 16-bit values
	        END MAP
	    END UNION
	END STRUCTURE	! GENERIC_64
	PARAMETER GEN64$K_LENGTH = '00000008'X	 !  Length of GEN64 structure
	PARAMETER GEN64$C_LENGTH = '00000008'X	 !  Length of GEN64 structure
!DEC$ END OPTIONS