!*** MODULE $PSLDEF ***
CDEC$ OPTIONS /NOALIGN
! +
!  PROCESSOR STATUS LONGWORD MASK AND FIELD DEFINITIONS
! -
	PARAMETER PSL$M_C = '00000001'X
	PARAMETER PSL$M_V = '00000002'X
	PARAMETER PSL$M_Z = '00000004'X
	PARAMETER PSL$M_N = '00000008'X
	PARAMETER PSL$M_TBIT = '00000010'X
	PARAMETER PSL$M_IV = '00000020'X
	PARAMETER PSL$M_FU = '00000040'X
	PARAMETER PSL$M_DV = '00000080'X
	PARAMETER PSL$M_IPL = '001F0000'X
	PARAMETER PSL$M_PRVMOD = '00C00000'X
	PARAMETER PSL$M_CURMOD = '03000000'X
	PARAMETER PSL$M_IS = '04000000'X
	PARAMETER PSL$M_FPD = '08000000'X
	PARAMETER PSL$M_TP = '40000000'X
	PARAMETER PSL$M_CM = '80000000'X
	PARAMETER PSL$C_KERNEL = '00000000'X	!  KERNEL MODE 
	PARAMETER PSL$C_EXEC = '00000001'X	!  EXEC MODE 
	PARAMETER PSL$C_SUPER = '00000002'X	!  SUPERVISOR MODE 
	PARAMETER PSL$C_USER = '00000003'X	!  USER MODE 
	PARAMETER PSL$M_SAFBITS = '000037FF'X
	STRUCTURE /PSLDEF/
	UNION
	    MAP
	        PARAMETER PSL$S_C = 1
	        PARAMETER PSL$V_C = 0			!  Carry 
	        PARAMETER PSL$S_V = 1
	        PARAMETER PSL$V_V = 1			!  oVerflow 
	        PARAMETER PSL$S_Z = 1
	        PARAMETER PSL$V_Z = 2			!  Zero 
	        PARAMETER PSL$S_N = 1
	        PARAMETER PSL$V_N = 3			!  Negative 
	        PARAMETER PSL$S_TBIT = 1
	        PARAMETER PSL$V_TBIT = 4		!  TBIT ENABLE 
	        PARAMETER PSL$S_IV = 1
	        PARAMETER PSL$V_IV = 5			!  INTEGER OVERFLOW 
	        PARAMETER PSL$S_FU = 1
	        PARAMETER PSL$V_FU = 6			!  FLOATING UNDEFINED 
	        PARAMETER PSL$S_DV = 1
	        PARAMETER PSL$V_DV = 7			!  DIVIDE BY ZERO 
	        PARAMETER PSL$S_IPL = 5
	        PARAMETER PSL$V_IPL = 16		!  INTERRUPT PRIORITY LEVEL 
	        PARAMETER PSL$S_PRVMOD = 2
	        PARAMETER PSL$V_PRVMOD = 22		!  PREVIOUS PROCESSOR MODE 
	        PARAMETER PSL$S_CURMOD = 2
	        PARAMETER PSL$V_CURMOD = 24		!  CURRENT PROCESSOR MODE 
	        PARAMETER PSL$S_IS = 1
	        PARAMETER PSL$V_IS = 26			!  INTERRUPT STACK BIT 
	        PARAMETER PSL$S_FPD = 1
	        PARAMETER PSL$V_FPD = 27		!  FIRST PART DONE 
	        PARAMETER PSL$S_TP = 1
	        PARAMETER PSL$V_TP = 30			!  TRACE TRAP PENDING 
	        PARAMETER PSL$S_CM = 1
	        PARAMETER PSL$V_CM = 31
	        BYTE %FILL (3)				!  COMPATIBILITY MODE BIT AND MASK 
	    END MAP
! 
!  MODE SYMBOL DEFINITIONS
! 
	END UNION
	END STRUCTURE	! PSLDEF
CDEC$ END OPTIONS