!*** MODULE $VPSRDEF ***
CDEC$ OPTIONS /NOALIGN
! +
!  Vector Processor Status Register field definitions
! -
	PARAMETER VPSR$M_VEN = '00000001'X
	PARAMETER VPSR$M_RST = '00000002'X
	PARAMETER VPSR$M_STS = '00000004'X
	PARAMETER VPSR$M_RLD = '00000008'X
	PARAMETER VPSR$M_MF = '00000020'X
	PARAMETER VPSR$M_PMF = '00000040'X
	PARAMETER VPSR$M_AEX = '00000080'X
	PARAMETER VPSR$M_IMP = '01000000'X
	PARAMETER VPSR$M_IVO = '02000000'X
	PARAMETER VPSR$M_BSY = '80000000'X
	STRUCTURE /VPSRDEF/
	UNION
	    MAP
	        PARAMETER VPSR$S_VEN = 1
	        PARAMETER VPSR$V_VEN = 0		! Enabled
	        PARAMETER VPSR$S_RST = 1
	        PARAMETER VPSR$V_RST = 1		! Reset
	        PARAMETER VPSR$S_STS = 1
	        PARAMETER VPSR$V_STS = 2		! State store
	        PARAMETER VPSR$S_RLD = 1
	        PARAMETER VPSR$V_RLD = 3		! State reload
	        PARAMETER VPSR$S_MF = 1
	        PARAMETER VPSR$V_MF = 5			! Memory fault
	        PARAMETER VPSR$S_PMF = 1
	        PARAMETER VPSR$V_PMF = 6		! Pending memory fault
	        PARAMETER VPSR$S_AEX = 1
	        PARAMETER VPSR$V_AEX = 7		! Arithmetic exception
	        PARAMETER VPSR$S_IMP = 1
	        PARAMETER VPSR$V_IMP = 24		! Implementation-specific error
	        PARAMETER VPSR$S_IVO = 1
	        PARAMETER VPSR$V_IVO = 25		! Illegal vector opcode
	        PARAMETER VPSR$S_BSY = 1
	        PARAMETER VPSR$V_BSY = 31
	        BYTE %FILL (2)				! Busy
	    END MAP
	END UNION
	END STRUCTURE	! VPSRDEF
CDEC$ END OPTIONS