Deck SETQP

Library Member Format: MODIFY
Source

Seq #  *Modification Id* Act 
----------------------------+
00001  M00S00001.setqp   +++|          IDENT  SETQP
00002  M00S00002.setqp   +++|          ENTRY  SETQP
00003  M00S00003.setqp   +++|          ENTRY  GETQP
00004  M00S00004.setqp   +++|          ENTRY  SETPR
00005  M00S00005.setqp   +++|          TITLE  GET/SET CPU/QUEUE PRIORITY FOR PROGRAM.
00006  M00S00006.setqp   +++|          SST
00007  M00S00007.setqp   +++|          SPACE  4,15
00008  M00S00008.setqp   +++|***       SETQP - SET QUEUE PRIORITY FOR PROGRAM.
00009  M00S00009.setqp   +++|*
00010  M00S00010.setqp   +++|*         SETQP (QP)         (*SYMPL* CALL).
00011  M00S00011.setqp   +++|*
00012  M00S00012.setqp   +++|*         ENTRY  A1 = ADDRESS OF QUEUE PRIORITY TO BE OBTAINED.
00013  M00S00013.setqp   +++|*                     ( IF X1 = -1, THEN SET QUEUE PRIORITY TO MXPS+1 ).
00014  M00S00014.setqp   +++|*
00015  M00S00015.setqp   +++|*         EXIT   NONE.
00016  M00S00016.setqp   +++|*
00017  M00S00017.setqp   +++|*         USES - A1
00018  M00S00018.setqp   +++|*              - X1, X2
00019  M00S00019.setqp   +++|*
00020  M00S00020.setqp   +++|*         MACRO  SETQP
00021  M00S00021.setqp   +++|          EJECT
00022  M00S00022.setqp   +++|*CALL,COMCMAC
00023  M00S00023.setqp   +++|*CALL,COMSPRD
00024  M00S00024.setqp   +++|          SPACE  4,15
00025  M00S00025.setqp   +++| SETQP    SUBR
00026  M00S00026.setqp   +++|          SA1    X1          SET QUEUE PRIORITY
00027  M00S00027.setqp   +++|          SX2    -1
00028  M00S00028.setqp   +++|          IX2    X2-X1
00029  M00S00029.setqp   +++|*
00030  M00S00030.setqp   +++|*
00031  M00S00031.setqp   +++|*
00032  M00S00032.setqp   +++|          EQ     SETQPX      EXIT
00033  M00S00033.setqp   +++|          SPACE  4,15
00034  M00S00034.setqp   +++|***       GETQP - GET CURRENT QUEUE PRIORITY OF PROGRAM
00035  M00S00035.setqp   +++|*
00036  M00S00036.setqp   +++|*         GETQP(QP)          (*SYMPL* CALL).
00037  M00S00037.setqp   +++|*
00038  M00S00038.setqp   +++|*         ENTRY - A1 = ADDRESS TO RETURN CURRENT QUEUE PRIORITY TO.
00039  M00S00039.setqp   +++|*
00040  M00S00040.setqp   +++|*         EXIT   NONE.
00041  M00S00041.setqp   +++|*
00042  M00S00042.setqp   +++|*         USES - A1
00043  M00S00043.setqp   +++|*              - X1
00044  M00S00044.setqp   +++|*
00045  M00S00045.setqp   +++|*         MACRO  GETQP
00046  M00S00046.setqp   +++|          SPACE  4,15
00047  M00S00047.setqp   +++| GETQP    SUBR
00048  M00S00048.setqp   +++|          GETQP  X1
00049  M00S00049.setqp   +++|          EQ     GETQPX      RETURN
00050  M00S00050.setqp   +++|          SPACE  4,15
00051  M00S00051.setqp   +++|***       SETPR - SET CPU PRIORITY OF PROGRAM
00052  M00S00052.setqp   +++|*
00053  M00S00053.setqp   +++|*         SETPR              (*SYMPL* CALL).
00054  M00S00054.setqp   +++|*
00055  M00S00055.setqp   +++|*         ENTRY   NONE.
00056  M00S00056.setqp   +++|*
00057  M00S00057.setqp   +++|*         EXIT   NONE.
00058  M00S00058.setqp   +++|*
00059  M00S00059.setqp   +++|*         USES - X1
00060  M00S00060.setqp   +++|*
00061  M00S00061.setqp   +++|*         MACRO  SETPR
00062  M00S00062.setqp   +++|          SPACE  4
00063  M00S00063.setqp   +++| SETPR    SUBR
00064  M00S00064.setqp   +++|          SX1     AFCS         MSAS CPU PRIORITY
00065  M00S00065.setqp   +++|          SETPR  X1
00066  M00S00066.setqp   +++|          EQ     SETPRX      RETURN
00067  M00S00067.setqp   +++|          END