
          IDENT  RHAQPR
          ENTRY  SETQP
          ENTRY  RSTRQP
          SST
* MODQP
*
*     THE PURPOSE OF THIS MODULE IS TO PROVIDE A MEANS BY WHICH AN
* A170 COMPASS ROUTINE CAN SAVE ITS CURRENT QUEUE PRIORITY, SET ITS
* QUEUE PRIORITY TO MXPS+1, AND RESTORE ITS QUEUE PRIORITY TO ITS
* ORIGINAL VALUE.
*
*
* SETQP
*
*     THE PURPOSE OF THIS A170 COMPASS ROUTINE IS TO SAVE THE CURRENT
* QUEUE PRIORITY AND SET THE QUEUE PRIORITY TO MXPS+1.
*
 SETQP    BSS    1
          GETQP  SAVEQP              SAVE CURRENT QUEUE PRIORITY
          SETQP  MXPS+1              SET QUEUE PRIORITY TO MXPS+1
          EQ     SETQP
*
* RSTRQP
*
*     THE PURPOSE OF THIS A170 COMPASS ROUTINE IS TO RESTORE THE
* QUEUE PRIORITY OF AN A170 JOB TO ITS ORIGINAL VALUE.  IT IS ASSUMED
* THE ORIGINAL QUEUE PRIORITY WAS SAVED VIA A PREVIOUS CALL TO SETQP.
*
 RSTRQP   BSS    1
          SA5    SAVEQP
          SETQP  X5
          EQ     RSTRQP
*
* SAVEQP
*
*     THIS WORD OF MEMORY IS THE LOCATION IN WHICH THE CURRENT QUEUE
* PRIORITY IS SAVED BY SETQP AND RETREIVED BY RSTRQP.
*
 SAVEQP   BSSZ   1
*
          END
