SETQP 
          IDENT  SETQP
          ENTRY  SETQP
          ENTRY  GETQP
          ENTRY  SETPR
          TITLE  GET/SET CPU/QUEUE PRIORITY FOR PROGRAM.
          SST 
          SPACE  4,15 
***       SETQP - SET QUEUE PRIORITY FOR PROGRAM. 
* 
*         SETQP (QP)         (*SYMPL* CALL).
* 
*         ENTRY  A1 = ADDRESS OF QUEUE PRIORITY TO BE OBTAINED. 
*                     ( IF X1 = -1, THEN SET QUEUE PRIORITY TO MXPS+1 ).
* 
*         EXIT   NONE.
* 
*         USES - A1 
*              - X1, X2 
* 
*         MACRO  SETQP
          EJECT 
*CALL,COMCMAC 
*CALL,COMSPRD 
          SPACE  4,15 
 SETQP    SUBR
          SA1    X1          SET QUEUE PRIORITY 
          SX2    -1 
          IX2    X2-X1
* 
* 
* 
          EQ     SETQPX      EXIT 
          SPACE  4,15 
***       GETQP - GET CURRENT QUEUE PRIORITY OF PROGRAM 
* 
*         GETQP(QP)          (*SYMPL* CALL).
* 
*         ENTRY - A1 = ADDRESS TO RETURN CURRENT QUEUE PRIORITY TO. 
* 
*         EXIT   NONE.
* 
*         USES - A1 
*              - X1 
* 
*         MACRO  GETQP
          SPACE  4,15 
 GETQP    SUBR
          GETQP  X1 
          EQ     GETQPX      RETURN 
          SPACE  4,15 
***       SETPR - SET CPU PRIORITY OF PROGRAM 
* 
*         SETPR              (*SYMPL* CALL).
* 
*         ENTRY   NONE. 
* 
*         EXIT   NONE.
* 
*         USES - X1 
* 
*         MACRO  SETPR
          SPACE  4
 SETPR    SUBR
          SX1     AFCS         MSAS CPU PRIORITY
          SETPR  X1 
          EQ     SETPRX      RETURN 
          END 
