Common COMPREI

Library Member Format: MODIFY

Source

Seq #  *Modification Id* Act 
----------------------------+
00001  M00S00001.comprei +++|          CTEXT  COMPREI - REQUEST ECS STORAGE INCREASE.
00002  M00S00002.comprei +++|          SPACE  4,10
00003  M00S00003.comprei +++|          IF     -DEF,QUAL$,1
00004  M00S00004.comprei +++|          QUAL   COMPREI
00005  M00S00005.comprei +++|          BASE   MIXED

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

Seq #  *Modification Id* Act 
----------------------------+
00006  M01S00006.281l803 ---|*         COMMENT COPYRIGHT CONTROL DATA CORP. 1975.

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

Seq #  *Modification Id* Act 
----------------------------+
00007  M01S00001.281l803 +++|*         COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
00008  M00S00007.comprei +++| REI      SPACE  4,10
00009  M00S00008.comprei +++|***       REI - REQUEST ECS INCREASE.
00010  M00S00009.comprei +++|*         L. C. HAAS.        75/06/05.
00011  M00S00010.comprei +++|*         R. J. PRIEVE.      79/08/28.
00012  M00S00011.comprei +++| REI      SPACE  4,20
00013  M00S00012.comprei +++|*                *REI* PROCESSES ECS STORAGE CHANGES WHERE IT IS
00014  M00S00013.comprei +++|*         DESIRED TO USE *FLIW* FOR INCREASES.
00015  M00S00014.comprei +++|*
00016  M00S00015.comprei +++|*         ENTRY  (A) = ECS FL/1000B REQUIRED.
00017  M00S00016.comprei +++|*                (CP) = CONTROL POINT NUMBER.
00018  M00S00017.comprei +++|*
00019  M00S00018.comprei +++|*         EXIT   (A) = 0 IF INCREASE ASSIGNED.
00020  M00S00019.comprei +++|*                (A) .LT. 0 IF INCREASE NOT AVAILABLE.
00021  M00S00020.comprei +++|*                (A) .GT. 0 IF INCREASE PENDING.
00022  M00S00021.comprei +++|*
00023  M00S00022.comprei +++|*         USES   T1, CM - CM+4.
00024  M00S00023.comprei +++|*         MACROS MONITOR.
00025  M00S00024.comprei +++|
00026  M00S00025.comprei +++|
00027  M00S00026.comprei +++| REI      SUBR               ENTRY/EXIT
00028  M00S00027.comprei +++|          STD    T1          SAVE FLE REQUEST
00029  M00S00028.comprei +++|          LDD    CP          READ CURRENT FLE
00030  M00S00029.comprei +++|          ADN    ECSW
00031  M00S00030.comprei +++|          CRD    CM
00032  M00S00031.comprei +++|          LDD    T1          SET FLE REQUESTED
00033  M00S00032.comprei +++|          STD    CM+1
00034  M00S00033.comprei +++|          LMD    CM+4
00035  M00S00034.comprei +++|          ZJN    REIX        IF STORAGE ALREADY ASSIGNED
00036  M00S00035.comprei +++|          LDC    1*100+1     SET ECS REQUEST TO USE *FLIW*
00037  M00S00036.comprei +++|          STD    CM+2
00038  M00S00037.comprei +++|          MONITOR  RSTM      REQUEST STORAGE
00039  M00S00038.comprei +++|          LDD    CM+1
00040  M00S00039.comprei +++|          ZJN    REIX        IF STORAGE OBTAINED
00041  M00S00040.comprei +++|          LDD    CP          READ FL INCREASE CONTROL WORD
00042  M00S00041.comprei +++|          ADN    FLIW
00043  M00S00042.comprei +++|          CRD    CM
00044  M00S00043.comprei +++|          LDD    CM+1
00045  M00S00044.comprei +++|          SHN    21-1
00046  M00S00045.comprei +++|          MJN    REIX        IF INCREASE REJECTED BY SCHEDULER
00047  M00S00046.comprei +++|          LDN    1           SET INCREASE PENDING
00048  M00S00047.comprei +++|          UJN    REIX        RETURN
00049  M00S00048.comprei +++| REI      SPACE  4,10
00050  M00S00049.comprei +++|          BASE   *
00051  M00S00050.comprei +++| QUAL$    IF     -DEF,QUAL$
00052  M00S00051.comprei +++|          QUAL   *
00053  M00S00052.comprei +++| REI      EQU    /COMPREI/REI
00054  M00S00053.comprei +++| QUAL$    ENDIF
00055  M00S00054.comprei +++|          ENDX