cdc:nos2.source:opl.opl871:deck:setqp
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
cdc/nos2.source/opl.opl871/deck/setqp.txt ยท Last modified: by 127.0.0.1