!*** MODULE $PR8PSDEF ***
CDEC$ OPTIONS /NOALIGN
	PARAMETER PR8PS$M_RXDB_P0AVL = '00000001'X
	PARAMETER PR8PS$M_RXDB_P1AVL = '00000002'X
	PARAMETER PR8PS$M_RXDB_P2AVL = '00000004'X
	PARAMETER PR8PS$M_RXDB_P3AVL = '00000008'X
	PARAMETER PR8PS$M_RXDB_DKEY = '00000010'X
	PARAMETER PR8PS$M_RXDB_VKEY = '00000020'X
	STRUCTURE /PR8PSDEF/
	UNION
	    MAP
	        PARAMETER PR8PS$S_SID_SERIAL = 15
	        PARAMETER PR8PS$V_SID_SERIAL = 0	!  Processor Serial Number
	        PARAMETER PR8PS$S_SID_CPUREV = 7
	        PARAMETER PR8PS$V_SID_CPUREV = 15	!  CPU Revision Level
	        PARAMETER PR8PS$S_SID_CPUNUM = 2
	        PARAMETER PR8PS$V_SID_CPUNUM = 22	!  CPU number (0-3)
	        PARAMETER PR8PS$S_SID_TYPE = 8
	        PARAMETER PR8PS$V_SID_TYPE = 24
	        BYTE %FILL (4)				!  CPU Type Code
	    END MAP
!                    
! 	Bit definitions for data returned by the GET_CPU_INFO console command
! 	through the RXDB IPR.
! 
	    MAP
	        PARAMETER PR8PS$S_RXDB_P0AVL = 1
	        PARAMETER PR8PS$V_RXDB_P0AVL = 0	!  Processor 0 avail 
	        PARAMETER PR8PS$S_RXDB_P1AVL = 1
	        PARAMETER PR8PS$V_RXDB_P1AVL = 1	!  Processor 1 avail 
	        PARAMETER PR8PS$S_RXDB_P2AVL = 1
	        PARAMETER PR8PS$V_RXDB_P2AVL = 2	!  Processor 2 avail 
	        PARAMETER PR8PS$S_RXDB_P3AVL = 1
	        PARAMETER PR8PS$V_RXDB_P3AVL = 3	!  Processor 3 avail 
	        PARAMETER PR8PS$S_RXDB_DKEY = 1
	        PARAMETER PR8PS$V_RXDB_DKEY = 4		!  Diag key
	        PARAMETER PR8PS$S_RXDB_VKEY = 1
	        PARAMETER PR8PS$V_RXDB_VKEY = 5		!  VMS key
	        PARAMETER PR8PS$S_RXDB_PRIMID = 2
	        PARAMETER PR8PS$V_RXDB_PRIMID = 6
	        BYTE %FILL (1)				!  Processor num of primary
	    END MAP
! 
!  Definitions for Polarstar REVR2
! 
	    MAP
	        PARAMETER PR8PS$S_REVR2_PCLK = 4
	        PARAMETER PR8PS$V_REVR2_PCLK = 0	!  PCLK revision level
	        PARAMETER PR8PS$S_REVR2_BKPLN = 4
	        PARAMETER PR8PS$V_REVR2_BKPLN = 4	!  Backplane revision
	        PARAMETER PR8PS$S_REVR2_CNSRV = 8
	        PARAMETER PR8PS$V_REVR2_CNSRV = 8	!  Console Revision Level
	        PARAMETER PR8PS$S_REVR2_UWCS = 8
	        PARAMETER PR8PS$V_REVR2_UWCS = 16	!  WCS Revision Level
	        PARAMETER PR8PS$S_REVR2_UCODE = 8
	        PARAMETER PR8PS$V_REVR2_UCODE = 24
	        BYTE %FILL (4)				!  Microcode Revision Level
	    END MAP
	END UNION
	END STRUCTURE	! PR8PSDEF
! 
!  Definitions for extended Polarstar commands
! 
	PARAMETER TXDB$K_BOOT_CPU_0 = '00000014'X !  14 - Boot CPU 0
	PARAMETER TXDB$K_BOOT_CPU_1 = '00000015'X !  15 - Boot CPU 1
	PARAMETER TXDB$K_BOOT_CPU_2 = '00000016'X !  16 - Boot CPU 2
	PARAMETER TXDB$K_BOOT_CPU_3 = '00000017'X !  17 - Boot CPU 3
	PARAMETER TXDB$K_DISAB_CPU_0 = '00000018'X !  18 - Disable CPU 0
	PARAMETER TXDB$K_DISAB_CPU_1 = '00000019'X !  19 - Disable CPU 1
	PARAMETER TXDB$K_DISAB_CPU_2 = '0000001A'X !  1A - Disable CPU 2
	PARAMETER TXDB$K_DISAB_CPU_3 = '0000001B'X !  1B - Disable CPU 3
	PARAMETER TXDB$K_FNP_CPU_0 = '0000001C'X !  1C - Force Next Primary to be CPU 0
	PARAMETER TXDB$K_FNP_CPU_1 = '0000001D'X !  1D - Force Next Primary to be CPU 1
	PARAMETER TXDB$K_FNP_CPU_2 = '0000001E'X !  1E - Force Next Primary to be CPU 2
	PARAMETER TXDB$K_FNP_CPU_3 = '0000001F'X !  1F - Force Next Primary to be CPU 3
	PARAMETER TXDB$K_CSA1_INFO = '00000020'X !  20 - Get info on CSA1 [not implemented]
	PARAMETER TXDB$K_CSA2_INFO = '00000021'X !  21 - Get info on CSA2 [not implemented]
	PARAMETER TXDB$K_CSA3_INFO = '00000022'X !  22 - Get info on CSA3
CDEC$ END OPTIONS