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