Seq # *Modification Id* Act
----------------------------+
00001 M01S00001.comprsi +++| CTEXT COMPRSI - REQUEST STORAGE INCREASE.
00002 M01S00002.comprsi +++| RSI SPACE 4
00003 M01S00003.comprsi +++| IF -DEF,QUAL$,1
00004 M01S00004.comprsi +++| QUAL COMPRSI
| Line S00005 Modification History |
M01 (Added by) | comprsi |
M02 (Updated by) | 281l803 |
Seq # *Modification Id* Act
----------------------------+
00005 M02S00005.281l803 ---|* COMMENT COPYRIGHT CONTROL DATA CORP. 1970.
00006 M01S00001.281l803 +++|* COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992.
00007 M01S00006.comprsi +++| RSI SPACE 4
00008 M01S00007.comprsi +++|*** RSI - REQUEST STORAGE INCREASE.
00009 M01S00008.comprsi +++|* G. R. MANSFIELD. 70/08/30.
00010 M01S00009.comprsi +++|* R. J. PRIEVE. 79/08/28.
00011 M01S00010.comprsi +++| RSI SPACE 4
00012 M01S00011.comprsi +++|*** RSI PROCESSES STORAGE CHANGES WHERE IT IS
00013 M01S00012.comprsi +++|* DESIRED TO USE *FLIW* FOR INCREASES.
00014 M01S00013.comprsi +++|*
00015 M01S00014.comprsi +++|* ENTRY (A) = DESIRED FL/100B.
00016 M01S00015.comprsi +++|*
00017 M01S00016.comprsi +++|* EXIT (A) = 0 IF INCREASE ASSIGNED.
00018 M01S00017.comprsi +++|* (A) < 0 IF INCREASE NOT AVAILABLE.
00019 M01S00018.comprsi +++|* (A) > 0 IF INCREASE PENDING.
00020 M01S00019.comprsi +++|*
00021 M01S00020.comprsi +++|* USES CM - CM+4.
00022 M01S00021.comprsi +++|*
00023 M01S00022.comprsi +++|* MACROS MONITOR.
00024 M01S00023.comprsi +++|
00025 M01S00024.comprsi +++|* CHECK FOR *FLIW* REQUEST PENDING.
00026 M01S00025.comprsi +++|
00027 M01S00026.comprsi +++| RSI2 LDD CP READ *FLIW*
00028 M01S00027.comprsi +++| ADN FLIW
00029 M01S00028.comprsi +++| CRD CM
00030 M01S00029.comprsi +++| LDD CM+4
00031 M01S00030.comprsi +++| NJN RSI1 IF REQUEST PENDING
00032 M01S00031.comprsi +++|
00033 M01S00032.comprsi +++|
00034 M01S00033.comprsi +++| RSI SUBR ENTRY/EXIT
00035 M01S00034.comprsi +++| STD T0 SAVE DESIRED FL
00036 M01S00035.comprsi +++| LMD FL
00037 M01S00036.comprsi +++| ZJN RSI2 IF NO CHANGE REQUESTED
00038 M01S00037.comprsi +++| RSI1 LDD T0
00039 M01S00038.comprsi +++| STD CM+1 SAVE FL REQUEST
00040 M01S00039.comprsi +++| LDD HN SET CM REQUEST TO USE *FLIW*
00041 M01S00040.comprsi +++| STD CM+2
00042 M01S00041.comprsi +++| MONITOR RSTM REQUEST STORAGE
00043 M01S00042.comprsi +++| LDD CM+1
00044 M01S00043.comprsi +++| ZJN RSIX IF STORAGE ASSIGNED
00045 M01S00044.comprsi +++| LDD CP READ FL INCREASE CONTROL WORD
00046 M01S00045.comprsi +++| ADN FLIW
00047 M01S00046.comprsi +++| CRD CM
00048 M01S00047.comprsi +++| LDD CM+1
00049 M01S00048.comprsi +++| SHN 21-0
00050 M01S00049.comprsi +++| MJN RSIX IF INCREASE REJECTED BY SCHEDULER
00051 M01S00050.comprsi +++| LDN 1 SET INCREASE PENDING
00052 M01S00051.comprsi +++| UJN RSIX RETURN
00053 M01S00052.comprsi +++| SPACE 4
00054 M01S00053.comprsi +++| QUAL$ IF -DEF,QUAL$
00055 M01S00054.comprsi +++| QUAL *
00056 M01S00055.comprsi +++| RSI EQU /COMPRSI/RSI
00057 M01S00056.comprsi +++| QUAL$ ENDIF
00058 M01S00057.comprsi +++| ENDX