Retro1.org codex

          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