!*** MODULE CSHDEF IDENT X-1 ***
!DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARN
 !  $SCHED function codes
	PARAMETER CSH$_READ_ALL = '00000017'X	 !  Read data on all processes
	PARAMETER CSH$_READ_NEW = '00000018'X	 !  Read data on new processes
	PARAMETER CSH$_SET_CLASS = '00000019'X	 !  Place process(es) into class(es)
	PARAMETER CSH$_RES1 = '0000001A'X
	PARAMETER CSH$_RES2 = '0000001B'X
	PARAMETER CSH$_RES3 = '0000001C'X
	PARAMETER CSH$_RES4 = '0000001D'X
	PARAMETER CSH$_SET_NEW = '0000001E'X	 !  Define this process as "new"
	PARAMETER CSH$_SET_TIMEOUT = '0000001F'X  !  Set deadman timer
	PARAMETER CSH$_RES5 = '00000020'X
	PARAMETER CSH$_RES6 = '00000021'X
	PARAMETER CSH$_RES7 = '00000022'X
	PARAMETER CSH$_RES8 = '00000023'X
	PARAMETER CSH$_READ_QUANT = '00000024'X	 !  Read per-class quanta remaining
	PARAMETER CSH$_SET_QUANT = '00000025'X	 !  Define per-class quanta
	PARAMETER CSH$_RES9 = '00000026'X
	PARAMETER CSH$_RESA = '00000027'X
	PARAMETER CSH$_RESB = '00000028'X
	PARAMETER CSH$_RESC = '00000029'X
	PARAMETER CSH$_SET_ATTN_AST = '0000002A'X  !  Establish attention AST
	PARAMETER CSH$_RSED = '0000002B'X
	PARAMETER CSH$_RESE = '0000002C'X
	PARAMETER CSH$_RESF = '0000002D'X
	PARAMETER CSH$_RES0 = '0000002E'X
	PARAMETER CSH$_CLEAR_ATTN_AST = '0000002F'X  !  Clear attention AST
	PARAMETER CSH$_MAX_SCHED_FUNC = '00000030'X
 !  AST reason mask
	PARAMETER CSH$V_NEW_PROC = '00000001'X	 !  Possible new process
 !  CSHC -- Class ScHeduler Class block 
 ! 
 !  Used to communicate from user to system, defining process/class mapping
	PARAMETER CSHC$K_LENGTH = '00000008'X
	PARAMETER CSHC$C_LENGTH = '00000008'X
	STRUCTURE /CSHC/
	    INTEGER*4 CSHC$L_EPID			 !  EPID of target process
	    INTEGER*2 CSHC$W_CLASS			 !  Class number, 0-N, %X'FFFF' means
 !  `Take out of class scheduling'
	    INTEGER*2 CSHC$W_WINDFALL		 !  Windfall ticks to grant
	END STRUCTURE	! CSHC
 !  CSHP -- Class ScHeduler data block for Processes
 ! 
 !  Used to communicate from system to user, showing various characteristics
 !  of processes.
	PARAMETER CSHP$K_LENGTH = '00000018'X
	PARAMETER CSHP$C_LENGTH = '00000018'X
	STRUCTURE /CSHP/
	    INTEGER*4 CSHP$L_STATUS			 !  Copy of PCB$L_STS
	    INTEGER*2 CSHP$W_PIX			 !  Process index slot
	    BYTE      CSHP$B_PRI			 !  Current priority (internal)
	    BYTE      CSHP$B_PRIB			 !  Current base priority (internal)
	    INTEGER*4 CSHP$L_EPID			 !  The official PID
	    CHARACTER*8 CSHP$T_ACCOUNT		 !  Account string from PCB
	    INTEGER*4 CSHP$L_CPUTIM			 !  CPU time charged
	END STRUCTURE	! CSHP
!DEC$ END OPTIONS