Deck SETQP

0 Modifications
Source

Seq #  *Modification Id* Act 
----------------------------+
00001  M01S00001.setqp   +++|          IDENT  SETQP
00002  M01S00002.setqp   +++|          ENTRY  SETQP
00003  M01S00003.setqp   +++|          ENTRY  GETQP
00004  M01S00004.setqp   +++|          ENTRY  SETPR
00005  M01S00005.setqp   +++|          TITLE  GET/SET CPU/QUEUE PRIORITY FOR PROGRAM.
00006  M01S00006.setqp   +++|          SST
00007  M01S00007.setqp   +++|          SPACE  4,15
00008  M01S00008.setqp   +++|***       SETQP - SET QUEUE PRIORITY FOR PROGRAM.
00009  M01S00009.setqp   +++|*
00010  M01S00010.setqp   +++|*         SETQP (QP)         (*SYMPL* CALL).
00011  M01S00011.setqp   +++|*
00012  M01S00012.setqp   +++|*         ENTRY  A1 = ADDRESS OF QUEUE PRIORITY TO BE OBTAINED.
00013  M01S00013.setqp   +++|*                     ( IF X1 = -1, THEN SET QUEUE PRIORITY TO MXPS+1 ).
00014  M01S00014.setqp   +++|*
00015  M01S00015.setqp   +++|*         EXIT   NONE.
00016  M01S00016.setqp   +++|*
00017  M01S00017.setqp   +++|*         USES - A1
00018  M01S00018.setqp   +++|*              - X1, X2
00019  M01S00019.setqp   +++|*
00020  M01S00020.setqp   +++|*         MACRO  SETQP
00021  M01S00021.setqp   +++|          EJECT
00022  M01S00022.setqp   +++|*CALL,COMCMAC
00023  M01S00023.setqp   +++|*CALL,COMSPRD
00024  M01S00024.setqp   +++|          SPACE  4,15
00025  M01S00025.setqp   +++| SETQP    SUBR
00026  M01S00026.setqp   +++|          SA1    X1          SET QUEUE PRIORITY
00027  M01S00027.setqp   +++|          SX2    -1
00028  M01S00028.setqp   +++|          IX2    X2-X1
00029  M01S00029.setqp   +++|*
00030  M01S00030.setqp   +++|*
00031  M01S00031.setqp   +++|*
00032  M01S00032.setqp   +++|          EQ     SETQPX      EXIT
00033  M01S00033.setqp   +++|          SPACE  4,15
00034  M01S00034.setqp   +++|***       GETQP - GET CURRENT QUEUE PRIORITY OF PROGRAM
00035  M01S00035.setqp   +++|*
00036  M01S00036.setqp   +++|*         GETQP(QP)          (*SYMPL* CALL).
00037  M01S00037.setqp   +++|*
00038  M01S00038.setqp   +++|*         ENTRY - A1 = ADDRESS TO RETURN CURRENT QUEUE PRIORITY TO.
00039  M01S00039.setqp   +++|*
00040  M01S00040.setqp   +++|*         EXIT   NONE.
00041  M01S00041.setqp   +++|*
00042  M01S00042.setqp   +++|*         USES - A1
00043  M01S00043.setqp   +++|*              - X1
00044  M01S00044.setqp   +++|*
00045  M01S00045.setqp   +++|*         MACRO  GETQP
00046  M01S00046.setqp   +++|          SPACE  4,15
00047  M01S00047.setqp   +++| GETQP    SUBR
00048  M01S00048.setqp   +++|          GETQP  X1
00049  M01S00049.setqp   +++|          EQ     GETQPX      RETURN
00050  M01S00050.setqp   +++|          SPACE  4,15
00051  M01S00051.setqp   +++|***       SETPR - SET CPU PRIORITY OF PROGRAM
00052  M01S00052.setqp   +++|*
00053  M01S00053.setqp   +++|*         SETPR              (*SYMPL* CALL).
00054  M01S00054.setqp   +++|*
00055  M01S00055.setqp   +++|*         ENTRY   NONE.
00056  M01S00056.setqp   +++|*
00057  M01S00057.setqp   +++|*         EXIT   NONE.
00058  M01S00058.setqp   +++|*
00059  M01S00059.setqp   +++|*         USES - X1
00060  M01S00060.setqp   +++|*
00061  M01S00061.setqp   +++|*         MACRO  SETPR
00062  M01S00062.setqp   +++|          SPACE  4
00063  M01S00063.setqp   +++| SETPR    SUBR
00064  M01S00064.setqp   +++|          SX1     AFCS         MSAS CPU PRIORITY
00065  M01S00065.setqp   +++|          SETPR  X1
00066  M01S00066.setqp   +++|          EQ     SETPRX      RETURN
00067  M01S00067.setqp   +++|          END