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