Common COMPFLF

4 Modifications

Source

Seq #  *Modification Id* Act 
----------------------------+
00001  M01S00001.compflf +++|          CTEXT  COMPFLF - FLUSH LOCAL FILES.
00002  M01S00002.compflf +++|          SPACE  4
00003  M01S00003.compflf +++|          IF     -DEF,QUAL$,1
00004  M01S00004.compflf +++|          QUAL   COMPFLF

Line S00005 Modification History
`M01` (Added by)	`compflf`
`M02` (Updated by)	`281l803`

Seq #  *Modification Id* Act 
----------------------------+
00005  M02S00005.281l803 ---|*         COMMENT  COPYRIGHT CONTROL DATA CORP. 1979.
00006  M01S00001.281l803 +++|*         COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
00007  M01S00006.compflf +++| FLF      SPACE  4,10
00008  M01S00007.compflf +++|***       FLF - FLUSH LOCAL FILES.
00009  M01S00008.compflf +++|*         S. L. BETH.        79/10/22.
00010  M01S00009.compflf +++|*         P. T. BARNETT.     82/10/07.
00011  M01S00010.compflf +++| FLF      SPACE  4,10
00012  M01S00011.compflf +++|***       *FLF* WILL INSURE THAT ALL FILES LOCAL TO A JOB THAT ARE
00013  M01S00012.compflf +++|*         RESIDING ON A BUFFERED DEVICE ARE FLUSHED TO THE DISK.
00014  M01S00001.271l716 +++|*

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

Seq #  *Modification Id* Act 
----------------------------+
00015  M02S00002.273l780 ---|*         IF SYMBOL *PCP$* IS DEFINED, *FLF* MAY BE CALLED TO PROCESS

Line S00003 Modification History
`M01` (Added by)	`271l716`
`M02` (Updated by)	`273l780`

Seq #  *Modification Id* Act 
----------------------------+
00016  M02S00003.273l780 ---|*         THE FILES OF A PCP JOB.  IN THIS CASE, *FLF* USES MACRO

Line S00004 Modification History
`M01` (Added by)	`271l716`
`M02` (Updated by)	`273l780`

Seq #  *Modification Id* Act 
----------------------------+
00017  M02S00004.273l780 ---|*         *LCPA* TO COMPUTE THE CPA/PCPA ADDRESS.  THIS REQUIRES THAT

Line S00005 Modification History
`M01` (Added by)	`271l716`
`M02` (Updated by)	`273l780`

Seq #  *Modification Id* Act 
----------------------------+
00018  M02S00005.273l780 ---|*         COMMON DECK *COMSPCP* BE CALLED PRIOR TO THIS POINT, WITH

Line S00006 Modification History
`M01` (Added by)	`271l716`
`M02` (Updated by)	`273l780`

Seq #  *Modification Id* Act 
----------------------------+
00019  M02S00006.273l780 ---|*         SYMBOLS *LCP$* AND *PLC$* DEFINED.
00020  M01S00001.273l780 +++|*         ENTRY  (A) = NFL SIZE OF CONTROL POINT OR PSEUDO-CONTROL
00021  M01S00002.273l780 +++|*                      POINT TO PROCESS.
00022  M01S00013.compflf +++|*

Line S00014 Modification History
`M01` (Added by)	`compflf`
`M02` (Updated by)	`273l780`

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

Line S00015 Modification History
`M01` (Added by)	`compflf`
`M02` (Updated by)	`273l780`

Seq #  *Modification Id* Act 
----------------------------+
00024  M02S00015.273l780 ---|*

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

Seq #  *Modification Id* Act 
----------------------------+
00025  M02S00007.273l780 ---|*         MACROS LCPA.
00026  M01S00003.273l780 +++|*         USES   T3 - T7, CM - CM+5, CN - CN+4.
00027  M01S00008.271l716 +++|*
00028  M01S00016.compflf +++|*         MACROS MONITOR, NFA, SFA.
00029  M01S00017.compflf +++|
00030  M01S00018.compflf +++|
00031  M01S00019.compflf +++| FLF      SUBR               ENTRY/EXIT
00032  M01S00004.273l780 +++|          ADN    1           SET LIMIT FOR FILE SEARCH
00033  M01S00005.273l780 +++|          STD    T3
00034  M01S00020.compflf +++|          LDK    BIOL        CHECK PRESENCE OF BUFFERED I/O
00035  M01S00021.compflf +++|          CRD    CM
00036  M01S00022.compflf +++|          LDD    CM+1
00037  M01S00023.compflf +++|          SHN    14
00038  M01S00024.compflf +++|          ADD    CM+2
00039  M01S00025.compflf +++|          ZJN    FLFX        IF BUFFERED I/O NOT IN USE
00040  M01S00026.compflf +++|          ADN    /COMSHIO/CBTP  READ CONTROL BUFFER ADDRESS
00041  M01S00027.compflf +++|          CRD    CM
00042  M01S00028.compflf +++|          LDD    CM+4
00043  M01S00029.compflf +++|          RAM    FLFA+1
00044  M01S00030.compflf +++|          SHN    -14
00045  M01S00031.compflf +++|          ADD    CM+3
00046  M01S00032.compflf +++|          RAM    FLFA

Line S00033 Modification History
`M01` (Added by)	`compflf`
`M02` (Updated by)	`271l716`

Seq #  *Modification Id* Act 
----------------------------+
00047  M02S00033.271l716 ---|          LDD    CP          INITIALIZE SEARCH

Line S00034 Modification History
`M01` (Added by)	`compflf`
`M02` (Updated by)	`271l716`

Seq #  *Modification Id* Act 
----------------------------+
00048  M02S00034.271l716 ---|          ADN    FLSW

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

Seq #  *Modification Id* Act 
----------------------------+
00049  M02S00009.273l780 ---| PCP$     IF     DEF,PCP$

Line S00010 Modification History
`M01` (Added by)	`271l716`
`M02` (Updated by)	`273l780`

Seq #  *Modification Id* Act 
----------------------------+
00050  M02S00010.273l780 ---|          IF     -DEF,PLC$,1

Line S00011 Modification History
`M01` (Added by)	`271l716`
`M02` (Updated by)	`273l780`

Seq #  *Modification Id* Act 
----------------------------+
00051  M02S00011.273l780 ---|          ERR                ACCUMULATOR MUST CONTAIN CP/PCP NUMBER

Line S00012 Modification History
`M01` (Added by)	`271l716`
`M02` (Updated by)	`273l780`

Seq #  *Modification Id* Act 
----------------------------+
00052  M02S00012.273l780 ---|          LCPA   FLSW        COMPUTE CPA/PCPA ADDRESS

Line S00013 Modification History
`M01` (Added by)	`271l716`
`M02` (Updated by)	`273l780`

Seq #  *Modification Id* Act 
----------------------------+
00053  M02S00013.273l780 ---| PCP$     ELSE

Line S00014 Modification History
`M01` (Added by)	`271l716`
`M02` (Updated by)	`273l780`

Seq #  *Modification Id* Act 
----------------------------+
00054  M02S00014.273l780 ---|          LDD    CP

Line S00015 Modification History
`M01` (Added by)	`271l716`
`M02` (Updated by)	`273l780`

Seq #  *Modification Id* Act 
----------------------------+
00055  M02S00015.273l780 ---|          ADN    FLSW

Line S00016 Modification History
`M01` (Added by)	`271l716`
`M02` (Updated by)	`273l780`

Seq #  *Modification Id* Act 
----------------------------+
00056  M02S00016.273l780 ---| PCP$     ENDIF

Line S00035 Modification History
`M01` (Added by)	`compflf`
`M02` (Updated by)	`273l780`

Seq #  *Modification Id* Act 
----------------------------+
00057  M02S00035.273l780 ---|          CRD    CM

Line S00036 Modification History
`M01` (Added by)	`compflf`
`M02` (Updated by)	`273l780`

Seq #  *Modification Id* Act 
----------------------------+
00058  M02S00036.273l780 ---|          LDD    CM          SET NFL OFFSET FOR THE LOCAL FNT

Line S00037 Modification History
`M01` (Added by)	`compflf`
`M02` (Updated by)	`273l780`

Seq #  *Modification Id* Act 
----------------------------+
00059  M02S00037.273l780 ---|          SHN    6

Line S00038 Modification History
`M01` (Added by)	`compflf`
`M02` (Updated by)	`273l780`

Seq #  *Modification Id* Act 
----------------------------+
00060  M02S00038.273l780 ---|          ADN    1

Line S00039 Modification History
`M01` (Added by)	`compflf`
`M02` (Updated by)	`273l780`

Seq #  *Modification Id* Act 
----------------------------+
00061  M02S00039.273l780 ---|          STD    T3
00062  M01S00040.compflf +++|          LDC    FNTN        SET FIRST ENTRY
00063  M01S00041.compflf +++|          STD    T4
00064  M01S00042.compflf +++| FLF1     NFA    T4,R        READ NFL ENTRY
00065  M01S00043.compflf +++|          ADN    FSTL
00066  M01S00044.compflf +++|          CRD    T5
00067  M01S00045.compflf +++|          LDD    T5
00068  M01S00046.compflf +++|          LPC    777
00069  M01S00047.compflf +++|          ZJN    FLF2        IF EMPTY ENTRY
00070  M01S00048.compflf +++|          SFA    EST         CHECK FOR BUFFERED DEVICE
00071  M01S00049.compflf +++|          ADK    EQDE
00072  M01S00050.compflf +++|          CRD    CM
00073  M01S00001.pflf1   +++|          LDD    CM
00074  M01S00002.pflf1   +++|          SHN    21-13
00075  M01S00003.pflf1   +++|          PJN    FLF2        IF NOT MASS STORAGE
00076  M01S00051.compflf +++|          LDD    CM+4        MST ADDRESS / 10B
00077  M01S00052.compflf +++|          SHN    3
00078  M01S00053.compflf +++|          ADK    DILL
00079  M01S00054.compflf +++|          CRD    CM
00080  M01S00055.compflf +++|          LDD    CM+3
00081  M01S00056.compflf +++|          SHN    21-12
00082  M01S00057.compflf +++| FLF2     PJP    FLF5        IF NOT BUFFERED DEVICE
00083  M01S00058.compflf +++|          NFA    T4,R        READ FNT
00084  M01S00059.compflf +++|          ADK    FUTL
00085  M01S00060.compflf +++|          CRD    CN
00086  M01S00061.compflf +++|          LDD    CN+4
00087  M01S00062.compflf +++|          SHN    /COMSHIO/CBTLS

Line S00063 Modification History
`M01` (Added by)	`compflf`
`M02` (Updated by)	`271l716`

Seq #  *Modification Id* Act 
----------------------------+
00088  M02S00063.271l716 ---|          ZJN    FLF5        IF NO CONTROL BUFFER INDEX
00089  M01S00017.271l716 +++|          ZJN    FLF2        IF NO CONTROL BUFFER INDEX
00090  M01S00064.compflf +++| FLFA     ADC    /COMSHIO/LSLK  READ CONTROL BUFFER
00091  M01S00065.compflf +++|          CRD    T7
00092  M01S00066.compflf +++|          SBN    -/COMSHIO/IOLK+/COMSHIO/LSLK
00093  M01S00067.compflf +++|          CRD    CM
00094  M01S00068.compflf +++|          SBN    -/COMSHIO/FSTC+/COMSHIO/IOLK
00095  M01S00069.compflf +++|          CRD    CM+1
00096  M01S00070.compflf +++|          LDD    T7
00097  M01S00071.compflf +++|          NJN    FLF4        IF BUFFER BEING ACCESSED
00098  M01S00072.compflf +++|          LDD    CM+1        COMPARE FST INFORMATION
00099  M01S00073.compflf +++|          LMD    T5
00100  M01S00074.compflf +++|          LPC    777
00101  M01S00075.compflf +++|          NJN    FLF4        IF BUFFER NOT FOR SAME EQUIPMENT
00102  M01S00076.compflf +++|          LDD    CM+2
00103  M01S00077.compflf +++|          ZJN    FLF3        IF NO FIRST TRACK (*PIOM* READ BUFFER)
00104  M01S00078.compflf +++|          LMD    T6
00105  M01S00079.compflf +++|          NJN    FLF4        IF NOT SAME TRACK
00106  M01S00080.compflf +++| FLF3     LDD    CM
00107  M01S00081.compflf +++|          LPC    5000
00108  M01S00082.compflf +++|          LMD    TH
00109  M01S00083.compflf +++|          ZJN    FLF6        IF WRITE DATA
00110  M01S00084.compflf +++| FLF4     LDN    0           CLEAR BUFFER INDEX
00111  M01S00085.compflf +++|          STD    CN+4
00112  M01S00086.compflf +++|          NFA    T4,R
00113  M01S00087.compflf +++|          ADK    FUTL
00114  M01S00088.compflf +++|          CWD    CN
00115  M01S00089.compflf +++| FLF5     LDN    LENF        ADVANCE TO NEXT ENTRY
00116  M01S00090.compflf +++|          RAD    T4
00117  M01S00091.compflf +++|          SBD    T3
00118  M01S00092.compflf +++|          MJP    FLF1        IF NOT END OF LOCAL FNT
00119  M01S00093.compflf +++|          LJM    FLFX        RETURN
00120  M01S00094.compflf +++|
00121  M01S00095.compflf +++| FLF6     LDD    T4          SET FNT ORDINAL
00122  M01S00096.compflf +++|          STD    CM+4
00123  M01S00097.compflf +++|          LDC    FLBS*100    REQUEST BUFFER FLUSH
00124  M01S00098.compflf +++|          STD    CM+1
00125  M01S00099.compflf +++|          MONITOR  PIOM
00126  M01S00100.compflf +++|          UJN    FLF5        CONTINUE SCAN
00127  M01S00101.compflf +++|
00128  M01S00102.compflf +++|
00129  M01S00103.compflf +++| QUAL$    IF     -DEF,QUAL$
00130  M01S00104.compflf +++|          QUAL   *
00131  M01S00105.compflf +++| FLF      EQU    /COMPFLF/FLF
00132  M01S00106.compflf +++| QUAL$    ENDIF
00133  M01S00107.compflf +++|          ENDX