!*** MODULE $PSWDEF ***
CDEC$ OPTIONS /NOALIGN
! +
!  Define PSW bits (STARDEF.MDL has PSL bits)
! -
	PARAMETER PSW$M_C = '00000001'X
	PARAMETER PSW$M_V = '00000002'X
	PARAMETER PSW$M_Z = '00000004'X
	PARAMETER PSW$M_N = '00000008'X
	PARAMETER PSW$M_TBIT = '00000010'X
	PARAMETER PSW$M_IV = '00000020'X
	PARAMETER PSW$M_FU = '00000040'X
	PARAMETER PSW$M_DV = '00000080'X
	STRUCTURE /PSWDEF/
	UNION
	    MAP
	        PARAMETER PSW$S_C = 1
	        PARAMETER PSW$V_C = 0			!  carry 
	        PARAMETER PSW$S_V = 1
	        PARAMETER PSW$V_V = 1			!  overflow 
	        PARAMETER PSW$S_Z = 1
	        PARAMETER PSW$V_Z = 2			!  zero 
	        PARAMETER PSW$S_N = 1
	        PARAMETER PSW$V_N = 3			!  negative 
	        PARAMETER PSW$S_TBIT = 1
	        PARAMETER PSW$V_TBIT = 4		!  trace trap enable 
	        PARAMETER PSW$S_IV = 1
	        PARAMETER PSW$V_IV = 5			!  integer overflow enable 
	        PARAMETER PSW$S_FU = 1
	        PARAMETER PSW$V_FU = 6			!  floating underflow enable 
	        PARAMETER PSW$S_DV = 1
	        PARAMETER PSW$V_DV = 7
	        BYTE %FILL (1)				!  decimal overflow enable 
	    END MAP
	END UNION
	END STRUCTURE	! PSWDEF
CDEC$ END OPTIONS