Common COMPFLF

Library Member Format: MODIFY

Source

Seq #  *Modification Id* Act 
----------------------------+
00001  M00S00001.compflf +++|          CTEXT  COMPFLF - FLUSH LOCAL FILES.
00002  M00S00002.compflf +++|          SPACE  4
00003  M00S00003.compflf +++|          IF     -DEF,QUAL$,1
00004  M00S00004.compflf +++|          QUAL   COMPFLF

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

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

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

Seq #  *Modification Id* Act 
----------------------------+
00006  M01S00001.281l803 +++|*         COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
00007  M00S00006.compflf +++| FLF      SPACE  4,10
00008  M00S00007.compflf +++|***       FLF - FLUSH LOCAL FILES.
00009  M00S00008.compflf +++|*         S. L. BETH.        79/10/22.
00010  M00S00009.compflf +++|*         P. T. BARNETT.     82/10/07.
00011  M00S00010.compflf +++| FLF      SPACE  4,10
00012  M00S00011.compflf +++|***       *FLF* WILL INSURE THAT ALL FILES LOCAL TO A JOB THAT ARE
00013  M00S00012.compflf +++|*         RESIDING ON A BUFFERED DEVICE ARE FLUSHED TO THE DISK.

Line S00001 Modification History
`M01` (Added by)	`271l716`

Seq #  *Modification Id* Act 
----------------------------+
00014  M01S00001.271l716 +++|*

Line S00002 Modification History
`M01` (Added by)	`271l716`
`M02` (Removed by)	`273l780`

Seq #  *Modification Id* Act 
----------------------------+
00015  M02S00002.273l780 ---|*         IF SYMBOL *PCP$* IS DEFINED, *FLF* MAY BE CALLED TO PROCESS
00016  M02S00003.273l780 ---|*         THE FILES OF A PCP JOB.  IN THIS CASE, *FLF* USES MACRO
00017  M02S00004.273l780 ---|*         *LCPA* TO COMPUTE THE CPA/PCPA ADDRESS.  THIS REQUIRES THAT
00018  M02S00005.273l780 ---|*         COMMON DECK *COMSPCP* BE CALLED PRIOR TO THIS POINT, WITH
00019  M02S00006.273l780 ---|*         SYMBOLS *LCP$* AND *PLC$* DEFINED.

Line S00001 Modification History
`M01` (Added by)	`273l780`

Seq #  *Modification Id* Act 
----------------------------+
00020  M01S00001.273l780 +++|*         ENTRY  (A) = NFL SIZE OF CONTROL POINT OR PSEUDO-CONTROL
00021  M01S00002.273l780 +++|*                      POINT TO PROCESS.
00022  M00S00013.compflf +++|*

Line S00014 Modification History
`M01` (Removed by)	`273l780`

Seq #  *Modification Id* Act 
----------------------------+
00023  M01S00014.273l780 ---|*         USES T3 - T7, CM - CM+5, CN.- CN+4.
00024  M01S00015.273l780 ---|*

Line S00007 Modification History
`M01` (Added by)	`271l716`
`M02` (Removed by)	`273l780`

Seq #  *Modification Id* Act 
----------------------------+
00025  M02S00007.273l780 ---|*         MACROS LCPA.

Line S00003 Modification History
`M01` (Added by)	`273l780`

Seq #  *Modification Id* Act 
----------------------------+
00026  M01S00003.273l780 +++|*         USES   T3 - T7, CM - CM+5, CN - CN+4.

Line S00008 Modification History
`M01` (Added by)	`271l716`

Seq #  *Modification Id* Act 
----------------------------+
00027  M01S00008.271l716 +++|*
00028  M00S00016.compflf +++|*         MACROS MONITOR, NFA, SFA.
00029  M00S00017.compflf +++|
00030  M00S00018.compflf +++|
00031  M00S00019.compflf +++| FLF      SUBR               ENTRY/EXIT

Line S00004 Modification History
`M01` (Added by)	`273l780`

Seq #  *Modification Id* Act 
----------------------------+
00032  M01S00004.273l780 +++|          ADN    1           SET LIMIT FOR FILE SEARCH
00033  M01S00005.273l780 +++|          STD    T3
00034  M00S00020.compflf +++|          LDK    BIOL        CHECK PRESENCE OF BUFFERED I/O
00035  M00S00021.compflf +++|          CRD    CM
00036  M00S00022.compflf +++|          LDD    CM+1
00037  M00S00023.compflf +++|          SHN    14
00038  M00S00024.compflf +++|          ADD    CM+2
00039  M00S00025.compflf +++|          ZJN    FLFX        IF BUFFERED I/O NOT IN USE
00040  M00S00026.compflf +++|          ADN    /COMSHIO/CBTP  READ CONTROL BUFFER ADDRESS
00041  M00S00027.compflf +++|          CRD    CM
00042  M00S00028.compflf +++|          LDD    CM+4
00043  M00S00029.compflf +++|          RAM    FLFA+1
00044  M00S00030.compflf +++|          SHN    -14
00045  M00S00031.compflf +++|          ADD    CM+3
00046  M00S00032.compflf +++|          RAM    FLFA

Line S00033 Modification History
`M01` (Removed by)	`271l716`

Seq #  *Modification Id* Act 
----------------------------+
00047  M01S00033.271l716 ---|          LDD    CP          INITIALIZE SEARCH
00048  M01S00034.271l716 ---|          ADN    FLSW

Line S00009 Modification History
`M01` (Added by)	`271l716`
`M02` (Removed by)	`273l780`

Seq #  *Modification Id* Act 
----------------------------+
00049  M02S00009.273l780 ---| PCP$     IF     DEF,PCP$
00050  M02S00010.273l780 ---|          IF     -DEF,PLC$,1
00051  M02S00011.273l780 ---|          ERR                ACCUMULATOR MUST CONTAIN CP/PCP NUMBER
00052  M02S00012.273l780 ---|          LCPA   FLSW        COMPUTE CPA/PCPA ADDRESS
00053  M02S00013.273l780 ---| PCP$     ELSE
00054  M02S00014.273l780 ---|          LDD    CP
00055  M02S00015.273l780 ---|          ADN    FLSW
00056  M02S00016.273l780 ---| PCP$     ENDIF

Line S00035 Modification History
`M01` (Removed by)	`273l780`

Seq #  *Modification Id* Act 
----------------------------+
00057  M01S00035.273l780 ---|          CRD    CM
00058  M01S00036.273l780 ---|          LDD    CM          SET NFL OFFSET FOR THE LOCAL FNT
00059  M01S00037.273l780 ---|          SHN    6
00060  M01S00038.273l780 ---|          ADN    1
00061  M01S00039.273l780 ---|          STD    T3
00062  M00S00040.compflf +++|          LDC    FNTN        SET FIRST ENTRY
00063  M00S00041.compflf +++|          STD    T4
00064  M00S00042.compflf +++| FLF1     NFA    T4,R        READ NFL ENTRY
00065  M00S00043.compflf +++|          ADN    FSTL
00066  M00S00044.compflf +++|          CRD    T5
00067  M00S00045.compflf +++|          LDD    T5
00068  M00S00046.compflf +++|          LPC    777
00069  M00S00047.compflf +++|          ZJN    FLF2        IF EMPTY ENTRY
00070  M00S00048.compflf +++|          SFA    EST         CHECK FOR BUFFERED DEVICE
00071  M00S00049.compflf +++|          ADK    EQDE
00072  M00S00050.compflf +++|          CRD    CM

Line S00001 Modification History
`M01` (Added by)	`pflf1`

Seq #  *Modification Id* Act 
----------------------------+
00073  M01S00001.pflf1   +++|          LDD    CM
00074  M01S00002.pflf1   +++|          SHN    21-13
00075  M01S00003.pflf1   +++|          PJN    FLF2        IF NOT MASS STORAGE
00076  M00S00051.compflf +++|          LDD    CM+4        MST ADDRESS / 10B
00077  M00S00052.compflf +++|          SHN    3
00078  M00S00053.compflf +++|          ADK    DILL
00079  M00S00054.compflf +++|          CRD    CM
00080  M00S00055.compflf +++|          LDD    CM+3
00081  M00S00056.compflf +++|          SHN    21-12
00082  M00S00057.compflf +++| FLF2     PJP    FLF5        IF NOT BUFFERED DEVICE
00083  M00S00058.compflf +++|          NFA    T4,R        READ FNT
00084  M00S00059.compflf +++|          ADK    FUTL
00085  M00S00060.compflf +++|          CRD    CN
00086  M00S00061.compflf +++|          LDD    CN+4
00087  M00S00062.compflf +++|          SHN    /COMSHIO/CBTLS

Line S00063 Modification History
`M01` (Removed by)	`271l716`

Seq #  *Modification Id* Act 
----------------------------+
00088  M01S00063.271l716 ---|          ZJN    FLF5        IF NO CONTROL BUFFER INDEX

Line S00017 Modification History
`M01` (Added by)	`271l716`

Seq #  *Modification Id* Act 
----------------------------+
00089  M01S00017.271l716 +++|          ZJN    FLF2        IF NO CONTROL BUFFER INDEX
00090  M00S00064.compflf +++| FLFA     ADC    /COMSHIO/LSLK  READ CONTROL BUFFER
00091  M00S00065.compflf +++|          CRD    T7
00092  M00S00066.compflf +++|          SBN    -/COMSHIO/IOLK+/COMSHIO/LSLK
00093  M00S00067.compflf +++|          CRD    CM
00094  M00S00068.compflf +++|          SBN    -/COMSHIO/FSTC+/COMSHIO/IOLK
00095  M00S00069.compflf +++|          CRD    CM+1
00096  M00S00070.compflf +++|          LDD    T7
00097  M00S00071.compflf +++|          NJN    FLF4        IF BUFFER BEING ACCESSED
00098  M00S00072.compflf +++|          LDD    CM+1        COMPARE FST INFORMATION
00099  M00S00073.compflf +++|          LMD    T5
00100  M00S00074.compflf +++|          LPC    777
00101  M00S00075.compflf +++|          NJN    FLF4        IF BUFFER NOT FOR SAME EQUIPMENT
00102  M00S00076.compflf +++|          LDD    CM+2
00103  M00S00077.compflf +++|          ZJN    FLF3        IF NO FIRST TRACK (*PIOM* READ BUFFER)
00104  M00S00078.compflf +++|          LMD    T6
00105  M00S00079.compflf +++|          NJN    FLF4        IF NOT SAME TRACK
00106  M00S00080.compflf +++| FLF3     LDD    CM
00107  M00S00081.compflf +++|          LPC    5000
00108  M00S00082.compflf +++|          LMD    TH
00109  M00S00083.compflf +++|          ZJN    FLF6        IF WRITE DATA
00110  M00S00084.compflf +++| FLF4     LDN    0           CLEAR BUFFER INDEX
00111  M00S00085.compflf +++|          STD    CN+4
00112  M00S00086.compflf +++|          NFA    T4,R
00113  M00S00087.compflf +++|          ADK    FUTL
00114  M00S00088.compflf +++|          CWD    CN
00115  M00S00089.compflf +++| FLF5     LDN    LENF        ADVANCE TO NEXT ENTRY
00116  M00S00090.compflf +++|          RAD    T4
00117  M00S00091.compflf +++|          SBD    T3
00118  M00S00092.compflf +++|          MJP    FLF1        IF NOT END OF LOCAL FNT
00119  M00S00093.compflf +++|          LJM    FLFX        RETURN
00120  M00S00094.compflf +++|
00121  M00S00095.compflf +++| FLF6     LDD    T4          SET FNT ORDINAL
00122  M00S00096.compflf +++|          STD    CM+4
00123  M00S00097.compflf +++|          LDC    FLBS*100    REQUEST BUFFER FLUSH
00124  M00S00098.compflf +++|          STD    CM+1
00125  M00S00099.compflf +++|          MONITOR  PIOM
00126  M00S00100.compflf +++|          UJN    FLF5        CONTINUE SCAN
00127  M00S00101.compflf +++|
00128  M00S00102.compflf +++|
00129  M00S00103.compflf +++| QUAL$    IF     -DEF,QUAL$
00130  M00S00104.compflf +++|          QUAL   *
00131  M00S00105.compflf +++| FLF      EQU    /COMPFLF/FLF
00132  M00S00106.compflf +++| QUAL$    ENDIF
00133  M00S00107.compflf +++|          ENDX