*DECK CHNGCPU 
          IDENT  CHNGCPU
*CALL COPYRITE   CDCNET - COPYRIGHT CONTROL DATA. 1989
          ENTRY  CHNGCPU
          SYSCOM B1 
          TITLE  CHNGCPU - CHANGE CPU PRIORITY
          COMMENT CHNGCPU - CHANGE CPU PRIORITY 
          COMMENT - COPYRIGHT CONTROL DATA SYSTEMS INC. 1994. 
 CHNGCPU  SPACE  4,10 
**        CHNGCPU - CHANGE CPU PRIORITY 
* 
*         CHNGCPU WILL ISSUE A *CPM* FUNCTION TO SET THE CPU
*         PRIORITY TO THAT AS SPECIFIED IN THE SSJ= BLOCK.
* 
*         *SYMPL* CALL -
*         CHNGCPU 
* 
*         ENTRY 
* 
*         EXIT   THE CPU PRIORITY HAS BEEN CHANGED. 
* 
*         USES   X - 0 1 2
*                A - 1
*                B - 1
* 
*         CALLS  SETPR
  
 CHNGCPU  SUBR               ENTRY/EXIT 
          SA1    SSJ=        READ INITIAL PRIORITY
          SB1    1
          MX0    48 
          AX1    12          PRIORITY IN LOWER 12 BITS
          BX2    -X0*X1 
          SETPR  X2 
          EQ     CHNGCPUX    EXIT 
  
  
          USE    /SSJ$COM/
 SSJ=     BSS    5           SSJ= ENTRY POINT COMMON BLOCK
          USE    *
  
  
 OPL      XTEXT  COMCCMD
          END 
