!*** MODULE $VAERDEF ***
CDEC$ OPTIONS /NOALIGN
! +
!  Vector Arithmetic Error Register longword mask and field definitions
! -
	PARAMETER VAER$M_SUMMARY = '0000FFFF'X
	PARAMETER VAER$M_F_UNDF = '00000001'X
	PARAMETER VAER$M_F_DIVZ = '00000002'X
	PARAMETER VAER$M_F_ROPR = '00000004'X
	PARAMETER VAER$M_F_OVFL = '00000008'X
	PARAMETER VAER$M_I_OVFL = '00000020'X
	PARAMETER VAER$M_REGISTER_MASK = 'FFFF0000'X
	STRUCTURE /VAERDEF/
	        UNION
	            MAP
	            PARAMETER VAER$S_SUMMARY = 16
	            PARAMETER VAER$V_SUMMARY = 0
	            BYTE %FILL (2)
	            END MAP
	            MAP
	                PARAMETER VAER$S_F_UNDF = 1
	                PARAMETER VAER$V_F_UNDF = 0		! Floating underflow
	                PARAMETER VAER$S_F_DIVZ = 1
	                PARAMETER VAER$V_F_DIVZ = 1		! Floating divide by zero
	                PARAMETER VAER$S_F_ROPR = 1
	                PARAMETER VAER$V_F_ROPR = 2		! Floating reserved operand
	                PARAMETER VAER$S_F_OVFL = 1
	                PARAMETER VAER$V_F_OVFL = 3		! Floating overflow
	                PARAMETER VAER$S_I_OVFL = 1
	                PARAMETER VAER$V_I_OVFL = 5		! Integer overflow
	            BYTE %FILL (1)
	            END MAP
	        END UNION
	        PARAMETER VAER$S_REGISTER_MASK = 16
	        PARAMETER VAER$V_REGISTER_MASK = 16
	        BYTE %FILL (2)				! Desination register mask	
	END STRUCTURE	! VAERDEF
CDEC$ END OPTIONS