Common COMPNFL

Library Member Format: MODIFY

Source

Seq #  *Modification Id* Act 
----------------------------+
00001  M00S00001.compnfl +++|          CTEXT  COMPNFL - REQUEST NEGATIVE FL.
00002  M00S00002.compnfl +++|          SPACE  4,10
00003  M00S00003.compnfl +++|          IF     -DEF,QUAL$,1
00004  M00S00004.compnfl +++|          QUAL   COMPNFL
00005  M00S00005.compnfl +++|          BASE   MIXED

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

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

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

Seq #  *Modification Id* Act 
----------------------------+
00007  M01S00001.281l803 +++|*         COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
00008  M00S00007.compnfl +++|          SPACE  4,10
00009  M00S00008.compnfl +++|***       NFL - REQUEST NEGATIVE FL.
00010  M00S00009.compnfl +++|*
00011  M00S00010.compnfl +++|*         R. J. PRIEVE.      79/09/12.
00012  M00S00011.compnfl +++| NFL      SPACE  4,15
00013  M00S00012.compnfl +++|***              *NFL* PROCESSES STORAGE CHANGES FOR NEGATIVE FL.
00014  M00S00013.compnfl +++|*         FOR INCREASES OF NEGATIVE FL, THE ADDITIONAL FL IS
00015  M00S00014.compnfl +++|*         ALSO CLEARED.  *FLIW* IS USED IN THE CASE OF A REJECTED
00016  M00S00015.compnfl +++|*         NEGATIVE FL INCREASE.
00017  M00S00016.compnfl +++|*
00018  M00S00017.compnfl +++|*         ENTRY  (A) = DESIRED NEGATIVE FL/100B.
00019  M00S00018.compnfl +++|*
00020  M00S00019.compnfl +++|*         EXIT   (A) = 0 IF STORAGE OBTAINED.
00021  M00S00020.compnfl +++|*                (A) .LT. 0 IF INCREASE NOT AVAILABLE.
00022  M00S00021.compnfl +++|*                (A) = 1 IF NFL INCREASE PENDING.
00023  M00S00022.compnfl +++|*
00024  M00S00023.compnfl +++|*         USES   T1, T2, CM - CM+4.
00025  M00S00024.compnfl +++|*
00026  M00S00025.compnfl +++|*         MACROS MONITOR.
00027  M00S00026.compnfl +++|
00028  M00S00027.compnfl +++|
00029  M00S00028.compnfl +++| NFL2     LDD    CP          READ FL INCREASE CONTROL WORD
00030  M00S00029.compnfl +++|          ADN    FLIW
00031  M00S00030.compnfl +++|          CRD    CM
00032  M00S00031.compnfl +++|          LDD    CM+1
00033  M00S00032.compnfl +++|          SHN    21-0
00034  M00S00033.compnfl +++|          MJN    NFLX        IF INCREASE REJECTED BY SCHEDULER
00035  M00S00034.compnfl +++|          LDN    1           SET INCREASE PENDING
00036  M00S00035.compnfl +++|
00037  M00S00036.compnfl +++| NFL      SUBR               ENTRY/EXIT
00038  M00S00037.compnfl +++|          STD    T1          SAVE NEGATIVE FL REQUEST
00039  M00S00038.compnfl +++|          LDD    CP          READ FL STATUS WORD
00040  M00S00039.compnfl +++|          ADN    FLSW
00041  M00S00040.compnfl +++|          CRD    CM
00042  M00S00041.compnfl +++|          LDD    T1
00043  M00S00042.compnfl +++|          STD    CM+1
00044  M00S00043.compnfl +++|          SBD    CM
00045  M00S00044.compnfl +++|          ZJN    NFLX        IF NEGATIVE FL ALREADY ASSIGNED
00046  M00S00045.compnfl +++|          STD    T2
00047  M00S00046.compnfl +++|          LDC    500         INDICATE TO SET *FLIW* ON REJECT
00048  M00S00047.compnfl +++|          STD    CM+2
00049  M00S00048.compnfl +++|          MONITOR  RSTM      REQUEST STORAGE
00050  M00S00049.compnfl +++|          LDD    CM+1
00051  M00S00050.compnfl +++|          NJN    NFL2        IF STORAGE NOT OBTAINED
00052  M00S00051.compnfl +++|*         LDN    0           SET *NFL* OBTAINED
00053  M00S00052.compnfl +++|          UJN    NFLX        RETURN
00054  M00S00053.compnfl +++|          SPACE  4,10
00055  M00S00054.compnfl +++|          BASE   *
00056  M00S00055.compnfl +++| QUAL$    IF     -DEF,QUAL$
00057  M00S00056.compnfl +++|          QUAL   *
00058  M00S00057.compnfl +++| NFL      EQU    /COMPNFL/NFL
00059  M00S00058.compnfl +++| QUAL$    ENDIF
00060  M00S00059.compnfl +++|          ENDX