Common COMPRSI

Library Member Format: MODIFY

Source

Seq #  *Modification Id* Act 
----------------------------+
00001  M00S00001.comprsi +++|          CTEXT  COMPRSI - REQUEST STORAGE INCREASE.
00002  M00S00002.comprsi +++| RSI      SPACE  4
00003  M00S00003.comprsi +++|          IF     -DEF,QUAL$,1
00004  M00S00004.comprsi +++|          QUAL   COMPRSI

Line S00005 Modification History
`M01` (Removed by)	`281l803`

Seq #  *Modification Id* Act 
----------------------------+
00005  M01S00005.281l803 ---|*         COMMENT COPYRIGHT CONTROL DATA CORP. 1970.

Line S00001 Modification History
`M01` (Added by)	`281l803`

Seq #  *Modification Id* Act 
----------------------------+
00006  M01S00001.281l803 +++|*         COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
00007  M00S00006.comprsi +++| RSI      SPACE  4
00008  M00S00007.comprsi +++|***       RSI - REQUEST STORAGE INCREASE.
00009  M00S00008.comprsi +++|*         G. R. MANSFIELD.  70/08/30.
00010  M00S00009.comprsi +++|*         R. J. PRIEVE.      79/08/28.
00011  M00S00010.comprsi +++| RSI      SPACE  4
00012  M00S00011.comprsi +++|***              RSI PROCESSES STORAGE CHANGES WHERE IT IS
00013  M00S00012.comprsi +++|*         DESIRED TO USE *FLIW* FOR INCREASES.
00014  M00S00013.comprsi +++|*
00015  M00S00014.comprsi +++|*         ENTRY  (A) = DESIRED FL/100B.
00016  M00S00015.comprsi +++|*
00017  M00S00016.comprsi +++|*         EXIT   (A) = 0 IF INCREASE ASSIGNED.
00018  M00S00017.comprsi +++|*                (A) < 0 IF INCREASE NOT AVAILABLE.
00019  M00S00018.comprsi +++|*                (A) > 0 IF INCREASE PENDING.
00020  M00S00019.comprsi +++|*
00021  M00S00020.comprsi +++|*         USES   CM - CM+4.
00022  M00S00021.comprsi +++|*
00023  M00S00022.comprsi +++|*         MACROS MONITOR.
00024  M00S00023.comprsi +++|
00025  M00S00024.comprsi +++|*         CHECK FOR *FLIW* REQUEST PENDING.
00026  M00S00025.comprsi +++|
00027  M00S00026.comprsi +++| RSI2     LDD    CP          READ *FLIW*
00028  M00S00027.comprsi +++|          ADN    FLIW
00029  M00S00028.comprsi +++|          CRD    CM
00030  M00S00029.comprsi +++|          LDD    CM+4
00031  M00S00030.comprsi +++|          NJN    RSI1        IF REQUEST PENDING
00032  M00S00031.comprsi +++|
00033  M00S00032.comprsi +++|
00034  M00S00033.comprsi +++| RSI      SUBR               ENTRY/EXIT
00035  M00S00034.comprsi +++|          STD    T0          SAVE DESIRED FL
00036  M00S00035.comprsi +++|          LMD    FL
00037  M00S00036.comprsi +++|          ZJN    RSI2        IF NO CHANGE REQUESTED
00038  M00S00037.comprsi +++| RSI1     LDD    T0
00039  M00S00038.comprsi +++|          STD    CM+1        SAVE FL REQUEST
00040  M00S00039.comprsi +++|          LDD    HN          SET CM REQUEST TO USE *FLIW*
00041  M00S00040.comprsi +++|          STD    CM+2
00042  M00S00041.comprsi +++|          MONITOR  RSTM      REQUEST STORAGE
00043  M00S00042.comprsi +++|          LDD    CM+1
00044  M00S00043.comprsi +++|          ZJN    RSIX        IF STORAGE ASSIGNED
00045  M00S00044.comprsi +++|          LDD    CP          READ FL INCREASE CONTROL WORD
00046  M00S00045.comprsi +++|          ADN    FLIW
00047  M00S00046.comprsi +++|          CRD    CM
00048  M00S00047.comprsi +++|          LDD    CM+1
00049  M00S00048.comprsi +++|          SHN    21-0
00050  M00S00049.comprsi +++|          MJN    RSIX        IF INCREASE REJECTED BY SCHEDULER
00051  M00S00050.comprsi +++|          LDN    1           SET INCREASE PENDING
00052  M00S00051.comprsi +++|          UJN    RSIX        RETURN
00053  M00S00052.comprsi +++|          SPACE  4
00054  M00S00053.comprsi +++| QUAL$    IF     -DEF,QUAL$
00055  M00S00054.comprsi +++|          QUAL   *
00056  M00S00055.comprsi +++| RSI      EQU    /COMPRSI/RSI
00057  M00S00056.comprsi +++| QUAL$    ENDIF
00058  M00S00057.comprsi +++|          ENDX