!*** MODULE $PSLDEF ***
!DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARN
 ! +
 !  PROCESSOR STATUS LONGWORD MASK AND FIELD DEFINITIONS
 ! 
 ! 	This definition file provides PSL$xxxx symbols
 ! 	strictly for the purpose of providing compatibility
 ! 	for code being ported from VAX which refers to the
 ! 	fields of the PSL. Only those fields that exist in
 ! 	both architectures are defined.
 ! 
 ! 	The preferred approach for code that DOES NOT run
 ! 	on VAX is to use the symbols defined by the $PRDEF
 ! 	macro instead.
 ! -
	PARAMETER PSL$M_PRVMOD = '00000003'X
	PARAMETER PSL$M_CURMOD = '00000018'X
	PARAMETER PSL$M_IPL = '00001F00'X
	PARAMETER PSL$V_MAX_PS_REG_BIT = '0000000D'X
 ! 
	PARAMETER PSL$C_KERNEL = '00000000'X	 !  Kernel Mode
	PARAMETER PSL$C_EXEC = '00000001'X	 !  Executive Mode
	PARAMETER PSL$C_SUPER = '00000002'X	 !  Supervisor Mode 
	PARAMETER PSL$C_USER = '00000003'X	 !  User Mode
	STRUCTURE /PSLDEF/
	UNION
	    MAP
	        PARAMETER PSL$S_PRVMOD = 2
	        PARAMETER PSL$V_PRVMOD = 0		 !  Previous Processor Mode
	        PARAMETER PSL$S_CURMOD = 2
	        PARAMETER PSL$V_CURMOD = 3		 !  Current Processor Mode
	        PARAMETER PSL$S_IPL = 5
	        PARAMETER PSL$V_IPL = 8			 !  Interrupt Priority Level
	    BYTE %FILL (2)
	    END MAP
 ! 
 !   Maximum bit number used in the PS register
 ! 
 !  MODE SYMBOL DEFINITIONS
 ! 
	END UNION
	END STRUCTURE	! PSLDEF
!DEC$ END OPTIONS