User Tools

Site Tools


cdc:nos2.source:opl.opl871:deck:pflist

Deck PFLIST

0 Modifications

Source

Seq #  *Modification Id* Act 
----------------------------+
00001  M01S00001.pflist  +++|          IDENT  PFLIST1,/COMSPFS/OVLA,PFS,01,00
00002  M01S00002.pflist  +++|          TITLE  PFLIST - LIST PF UTILITY SUMMARY FILE.
00003  M01S00003.pflist  +++|          ABS
00004  M01S00004.pflist  +++|          SST
00005  M01S00005.pflist  +++|          SYSCOM B1
00006  M01S00006.pflist  +++|          SPACE  4
00007  M01S00007.pflist  +++|*COMMENT  PFLIST - LIST PF UTILITY SUMMARY FILE.
00008  M01S00008.pflist  +++|          COMMENT  COPYRIGHT CONTROL SYSTEMS INC.  1996.
00009  M01S00009.pflist  +++|          SPACE  4
00010  M01S00010.pflist  +++|***       PFLIST - LIST PF UTILITY SUMMARY FILE.
00011  M01S00011.pflist  +++|*
00012  M01S00012.pflist  +++|*         G. S. YODER        96/04/24.
00013  M01S00013.pflist  +++|          SPACE  4
00014  M01S00014.pflist  +++|***       *PFLIST* IS A PERMANENT FILE UTILITY PROGRAM WHICH GENERATES
00015  M01S00015.pflist  +++|*         AN OUTPUT LISTING FROM A SUMMARY FILE PRODUCED BY ANOTHER
00016  M01S00016.pflist  +++|*         PERMANENT FILE UTILITY.  *PFLIST* MAY BE CALLED FROM *PFS* OR
00017  M01S00017.pflist  +++|*         DIRECTLY BY A COMMAND.
00018  M01S00018.pflist  +++|          SPACE  4
00019  M01S00019.pflist  +++|***       DAYFILE MESSAGES.
00020  M01S00020.pflist  +++|*
00021  M01S00021.pflist  +++|*         INFORMATIVE.
00022  M01S00022.pflist  +++|*
00023  M01S00023.pflist  +++|*         * PFLIST COMPLETE.* = PROGRAM COMPLETE.
00024  M01S00024.pflist  +++|*
00025  M01S00025.pflist  +++|*         FATAL SYSTEM ERRORS.
00026  M01S00026.pflist  +++|*
00027  M01S00027.pflist  +++|*         * PFLIST ABORTED.* = ERROR FLAG DETECTED ON CONTROL POINT.
00028  M01S00028.pflist  +++|*
00029  M01S00029.pflist  +++|*         * FORMAT ERROR IN SUMMARY FILE.*
00030  M01S00030.pflist  +++|          SPACE  4
00031  M01S00031.pflist  +++|*         COMMON DECKS.
00032  M01S00032.pflist  +++|
00033  M01S00033.pflist  +++|
00034  M01S00034.pflist  +++|*CALL     COMCMAC
00035  M01S00035.pflist  +++|*CALL     COMCCMD
00036  M01S00036.pflist  +++|*CALL     COMSMLS
00037  M01S00037.pflist  +++|*CALL     COMSRPV
00038  M01S00038.pflist  +++|*CALL     COMSPFM
00039  M01S00039.pflist  +++|          LIST   X
00040  M01S00040.pflist  +++|*CALL     COMSPFS
00041  M01S00041.pflist  +++|          LIST   *
00042  M01S00042.pflist  +++|*CALL     COMSPFU
00043  M01S00043.pflist  +++|*CALL     COMSPRD
00044  M01S00044.pflist  +++|*CALL     COMSSFM
00045  M01S00045.pflist  +++|*CALL     COMSVER
00046  M01S00046.pflist  +++|          TITLE  ASSEMBLY CONSTANTS.
00047  M01S00047.pflist  +++|*         ASSEMBLY CONSTANTS.
00048  M01S00048.pflist  +++|
00049  M01S00049.pflist  +++|
00050  M01S00050.pflist  +++| DBUFL    EQU    1000B       SUMMARY FILE DATA BLOCK BUFFER LENGTH
00051  M01S00051.pflist  +++| MSFBL    EQU    10001B      *COMCMSF* SORT FILES BUFFER LENGTH
00052  M01S00052.pflist  +++| OUTBL    EQU    10001B      OUTPUT FILE BUFFER LENGTH
00053  M01S00053.pflist  +++| PFLBL    EQU    1001B       PROCESSED FILES FILE BUFFER LENGTH
00054  M01S00054.pflist  +++| SABFL    EQU    1000B       SUMMARY FILE ASSEMBLY BUFFER LENGTH
00055  M01S00055.pflist  +++| SRTBL    EQU    20000B      SORT BUFFER LENGTH
00056  M01S00056.pflist  +++| SUIBL    EQU    10001B      SUMMARY INPUT FILE BUFFER LENGTH
00057  M01S00057.pflist  +++| SUMBL    EQU    0           SUMMARY FILE BUFFER LENGTH
00058  M01S00058.pflist  +++|
00059  M01S00059.pflist  +++|
00060  M01S00060.pflist  +++|*         *COMSPFS* EQUIVALENCES.
00061  M01S00061.pflist  +++|
00062  M01S00062.pflist  +++| CPAR     EQU    /COMSPFS/CPL
00063  M01S00063.pflist  +++| IDSA     EQU    /COMSPFS/PADR
00064  M01S00064.pflist  +++|          TITLE  RESERVED LOCATIONS AND FETS.
00065  M01S00065.pflist  +++|          SPACE  4
00066  M01S00066.pflist  +++|          ORG    /COMSPFS/OVLA
00067  M01S00067.pflist  +++|          SPACE  4
00068  M01S00068.pflist  +++|**        RESERVED LOCATIONS.
00069  M01S00069.pflist  +++|
00070  M01S00070.pflist  +++|
00071  M01S00071.pflist  +++|*         SUMMARY FILE DATA BLOCK STATUS.
00072  M01S00072.pflist  +++|
00073  M01S00073.pflist  +++| BLCW     CON    0           BLOCK CONTROL WORD
00074  M01S00074.pflist  +++| BLTY     CON    0           TYPE OF DATA BLOCK IN BUFFER
00075  M01S00075.pflist  +++|          SPACE  4
00076  M01S00076.pflist  +++|**        FETS.
00077  M01S00077.pflist  +++|
00078  M01S00078.pflist  +++|
00079  M01S00079.pflist  +++| SI       BSS    0           SUMMARY INPUT FILE
00080  M01S00080.pflist  +++| SUMMARY  FILEB  SUIB,SUIBL,FET=10D
00081  M01S00081.pflist  +++|          SPACE  4
00082  M01S00082.pflist  +++|**        OPERATOR AND DAYFILE MESSAGES.
00083  M01S00083.pflist  +++|
00084  M01S00084.pflist  +++|
00085  M01S00085.pflist  +++| MSFP     DATA   C* ?????? FILE! PROCESSED.*
00086  M01S00086.pflist  +++| BLNK     DATA   30H
00087  M01S00087.pflist  +++|          SPACE  4
00088  M01S00088.pflist  +++|**        ERROR MESSAGES.
00089  M01S00089.pflist  +++|
00090  M01S00090.pflist  +++|
00091  M01S00091.pflist  +++| ERAN     DATA   C* SF EXCEDES NUMBER OF ARCHIVE FILES.*
00092  M01S00092.pflist  +++| ERDS     DATA   C* DEVICE STATUS BLOCK MISSING.*
00093  M01S00093.pflist  +++| ERFE     DATA   C* FORMAT ERROR IN SUMMARY FILE.*
00094  M01S00094.pflist  +++|          TITLE  MAIN ROUTINES.
00095  M01S00095.pflist  +++| PFS      SPACE  4,10
00096  M01S00096.pflist  +++|**        MAIN PROGRAM.
00097  M01S00097.pflist  +++|*
00098  M01S00098.pflist  +++|*         CALLS  CFP, CSC, ICI, OAL, OCH, OCI, PRS, RDB, SPA.
00099  M01S00099.pflist  +++|*
00100  M01S00100.pflist  +++|*         EXIT   TO *ABT* IF FATAL ERROR.
00101  M01S00101.pflist  +++|
00102  M01S00102.pflist  +++|
00103  M01S00103.pflist  +++| PFS      BSS    0           ENTRY
00104  M01S00104.pflist  +++|          RJ     PRS         PRESET PROGRAM
00105  M01S00105.pflist  +++|
00106  M01S00106.pflist  +++|*         LOCATE ARCHIVE LABEL BLOCK IF SKIP COUNT SPECIFIED.
00107  M01S00107.pflist  +++|
00108  M01S00108.pflist  +++|          SA5    CPAR+/COMSPFS/CPSF
00109  M01S00109.pflist  +++|          ZR     X5,PFS3     IF NO ARCHIVE FILES TO SKIP
00110  M01S00110.pflist  +++| PFS1     SA1    BLTY        GET BLOCK TYPE
00111  M01S00111.pflist  +++|          SX1    X1-/COMSPFS/AFSB
00112  M01S00112.pflist  +++|          NZ     X1,PFS2     IF NOT ARCHIVE LABEL BLOCK
00113  M01S00113.pflist  +++|          ZR     X5,PFS5     IF BLOCK FOUND
00114  M01S00114.pflist  +++|          SX5    X5-1        COUNT BLOCK
00115  M01S00115.pflist  +++| PFS2     RJ     RDB         READ DATA BLOCK
00116  M01S00116.pflist  +++|          PL     X6,PFS1     IF NOT EOR
00117  M01S00117.pflist  +++|          SB2    ERAN        * SF EXCEDES NUMBER OF ARCHIVE FILES.*
00118  M01S00118.pflist  +++|          EQ     ABT         ABORT
00119  M01S00119.pflist  +++|
00120  M01S00120.pflist  +++|*         READ SUMMARY FILE BLOCK AND CHECK FOR SORTED OUTPUT.
00121  M01S00121.pflist  +++|
00122  M01S00122.pflist  +++| PFS3     RJ     RDB
00123  M01S00123.pflist  +++|          ZR     X2,PFS4     IF BLOCK TYPE IS SAME AS PREVIOUS
00124  M01S00124.pflist  +++|          RJ     CSO         CHECK FOR SORTED OUTPUT
00125  M01S00125.pflist  +++|
00126  M01S00126.pflist  +++|*         EXECUTE BLOCK TYPE PROCESSOR.
00127  M01S00127.pflist  +++|
00128  M01S00128.pflist  +++| PFS4     NG     X6,END      IF EOR, EOF, OR EOI ENCOUNTERED
00129  M01S00129.pflist  +++|          SA1    TSIP+X6     GET PROCESSOR ADDRESS
00130  M01S00130.pflist  +++|          SB2    X1
00131  M01S00131.pflist  +++|          JP     B2          ENTER BLOCK TYPE PROCESSOR
00132  M01S00132.pflist  +++|
00133  M01S00133.pflist  +++|*         PROCESS ARCHIVE LABEL BLOCK.
00134  M01S00134.pflist  +++|
00135  M01S00135.pflist  +++| PFS5     SA1    CPAR+/COMSPFS/CPNB
00136  M01S00136.pflist  +++|          SA2    PFSA
00137  M01S00137.pflist  +++|          IX1    X2-X1
00138  M01S00138.pflist  +++|          ZR     X1,END      IF ARCHIVE FILE COUNT REACHED
00139  M01S00139.pflist  +++|          SX6    X2+B1
00140  M01S00140.pflist  +++|          SA6    PFSA        COUNT ARCHIVE FILE PROCESSED
00141  M01S00141.pflist  +++|          MOVE   3,DBUF,AFIB SET ARCHIVE FILE LABEL INFORMATION
00142  M01S00142.pflist  +++|          RJ     OAL         OUTPUT ARCHIVE FILE LABEL INFORMATION
00143  M01S00143.pflist  +++|          EQ     PFS3        READ NEXT BLOCK
00144  M01S00144.pflist  +++|
00145  M01S00145.pflist  +++|*         PROCESS CATALOG IMAGE RECORD BLOCK.
00146  M01S00146.pflist  +++|
00147  M01S00147.pflist  +++| PFS6     ZR     X2,PFS7     IF LAST BLOCK WAS CIR BLOCK
00148  M01S00148.pflist  +++|          RJ     ICI         INITIALIZE FOR CIR PROCESSING
00149  M01S00149.pflist  +++| PFS7     SA1    BLCW
00150  M01S00150.pflist  +++|          SX6    DBUF        SET CIR BUFFER POINTER
00151  M01S00151.pflist  +++|          SX7    X1          SET WORD COUNT
00152  M01S00152.pflist  +++|          RJ     OCI         OUTPUT CATALOG IMAGE BLOCK
00153  M01S00153.pflist  +++|          EQ     PFS3        READ NEXT BLOCK
00154  M01S00154.pflist  +++|
00155  M01S00155.pflist  +++|*         PROCESS CATALOG ENTRIES BLOCK.
00156  M01S00156.pflist  +++|
00157  M01S00157.pflist  +++| PFS8     SA0    DBUF-NWCE-1 INITIALIZE ENTRY ADDRESS
00158  M01S00158.pflist  +++|          ZR     X2,PFS9     IF LAST BLOCK WAS CATALOG ENTRIES
00159  M01S00159.pflist  +++|          RJ     IFL         INITIALIZE FOR FILE PROCESSING
00160  M01S00160.pflist  +++| PFS9     SA2    BLCW
00161  M01S00161.pflist  +++|          SA0    A0+NWCE+1   ADVANCE ENTRY ADDRESS
00162  M01S00162.pflist  +++|          SB2    X2+DBUF
00163  M01S00163.pflist  +++|          SB2    A0-B2
00164  M01S00164.pflist  +++|          PL     B2,PFS3     IF BLOCK ALL PROCESSED
00165  M01S00165.pflist  +++|          SB4    A0          SET CATALOG ADDRESS
00166  M01S00166.pflist  +++|          RJ     CSC         CHECK SELECTION CRITERIA
00167  M01S00167.pflist  +++|          ZR     X6,PFS9     IF NOT TO PROCESS FILE
00168  M01S00168.pflist  +++|          SA1    B4+NWCE
00169  M01S00169.pflist  +++|          BX7    X1
00170  M01S00170.pflist  +++|          SA7    FLST        SET FILE STATUS
00171  M01S00171.pflist  +++|          RJ     CFP         COUNT FILE PROCESSED
00172  M01S00172.pflist  +++|          EQ     PFS9        PROCESS NEXT ENTRY
00173  M01S00173.pflist  +++|
00174  M01S00174.pflist  +++|
00175  M01S00175.pflist  +++| PFSA     CON    0           ARCHIVE FILES PROCESSED COUNT
00176  M01S00176.pflist  +++| TSIP     SPACE  4,10
00177  M01S00177.pflist  +++|*         TABLE OF SUMMARY INPUT FILE BLOCK PROCESSORS.
00178  M01S00178.pflist  +++|
00179  M01S00179.pflist  +++| TSIP     IVFD               START OF TABLE
00180  M01S00180.pflist  +++|          IVFD   /COMSPFS/SYSB,(60/SER)    SYSTEM
00181  M01S00181.pflist  +++|          IVFD   /COMSPFS/DSSB,(60/PFS3)   DEVICE STATUS
00182  M01S00182.pflist  +++|          IVFD   /COMSPFS/AFSB,(60/PFS5)   ARCHIVE FILE
00183  M01S00183.pflist  +++|          IVFD   /COMSPFS/CISB,(60/PFS6)   CIR
00184  M01S00184.pflist  +++|          IVFD   /COMSPFS/CESB,(60/PFS8)   CATALOG ENTRIES
00185  M01S00185.pflist  +++|          IVFD   /COMSPFS/MXSB,(60/PFS3)   UNIDENTIFIED
00186  M01S00186.pflist  +++|          IVFD   /COMSPFS/MXSB+1
00187  M01S00187.pflist  +++| CSO      SPACE  4,15
00188  M01S00188.pflist  +++|**        CSO - CHECK FOR SORTED OUTPUT.
00189  M01S00189.pflist  +++|*
00190  M01S00190.pflist  +++|*         ENTRY  (X3) = PREVIOUS BLOCK TYPE.
00191  M01S00191.pflist  +++|*                (X6) = CURRENT BLOCK TYPE.
00192  M01S00192.pflist  +++|*
00193  M01S00193.pflist  +++|*         EXIT   (X6) = CURRENT BLOCK TYPE.
00194  M01S00194.pflist  +++|*                (X2) .NE. 0 (NON-MATCHING BLOCK TYPE).
00195  M01S00195.pflist  +++|*
00196  M01S00196.pflist  +++|*         USES   X - 1, 2, 6.
00197  M01S00197.pflist  +++|*                A - 1.
00198  M01S00198.pflist  +++|*
00199  M01S00199.pflist  +++|*         CALLS  PSF, PSI.
00200  M01S00200.pflist  +++|
00201  M01S00201.pflist  +++|
00202  M01S00202.pflist  +++| CSO      SUBR               ENTRY/EXIT
00203  M01S00203.pflist  +++|          SX1    X3-/COMSPFS/CISB
00204  M01S00204.pflist  +++|          NZ     X1,CSO1     IF PREVIOUS BLOCK NOT CIR ENTRIES
00205  M01S00205.pflist  +++|          RJ     PSI         PROCESS SORTED CIR ENTRIES
00206  M01S00206.pflist  +++|          EQ     CSO2        RESET BLOCK STATUS
00207  M01S00207.pflist  +++|
00208  M01S00208.pflist  +++| CSO1     SX1    X3-/COMSPFS/CESB
00209  M01S00209.pflist  +++|          NZ     X1,CSOX     IF PREVIOUS BLOCK NOT CATALOG ENTRIES
00210  M01S00210.pflist  +++|          RJ     PSF         PROCESS SORTED CATALOG ENTRIES
00211  M01S00211.pflist  +++| CSO2     SA1    BLTY
00212  M01S00212.pflist  +++|          SX2    B1          INDICATE NON-MATCHING BLOCK TYPE
00213  M01S00213.pflist  +++|          SX6    X1          RESET BLOCK TYPE
00214  M01S00214.pflist  +++|          EQ     CSOX        RETURN
00215  M01S00215.pflist  +++|          TITLE  SUBROUTINES.
00216  M01S00216.pflist  +++| APR      SPACE  4,10
00217  M01S00217.pflist  +++|**        APR - ABORT PROCESSOR.
00218  M01S00218.pflist  +++|
00219  M01S00219.pflist  +++|
00220  M01S00220.pflist  +++| APR      SUBR               ENTRY/EXIT
00221  M01S00221.pflist  +++|          EQ     APRX        RETURN
00222  M01S00222.pflist  +++| IFM      SPACE  4,10
00223  M01S00223.pflist  +++|**        IFM - ISSUE FILE COUNT MESSAGES.
00224  M01S00224.pflist  +++|*
00225  M01S00225.pflist  +++|*         EXIT   FILE COUNT MESSAGES ISSUED TO DAYFILE.
00226  M01S00226.pflist  +++|*
00227  M01S00227.pflist  +++|*         USES   X - 1, 5, 6.
00228  M01S00228.pflist  +++|*                A - 1, 5.
00229  M01S00229.pflist  +++|*
00230  M01S00230.pflist  +++|*         CALLS  IFC.
00231  M01S00231.pflist  +++|
00232  M01S00232.pflist  +++|
00233  M01S00233.pflist  +++| IFM      SUBR               ENTRY/EXIT
00234  M01S00234.pflist  +++|          SA5    IFMA
00235  M01S00235.pflist  +++|          RJ     IFC         ISSUE FILE COUNT MESSAGES
00236  M01S00236.pflist  +++|          EQ     IFMX        RETURN
00237  M01S00237.pflist  +++|
00238  M01S00238.pflist  +++|
00239  M01S00239.pflist  +++| IFMA     BSS    0           *PFLIST* MESSAGE TABLE
00240  M01S00240.pflist  +++|          VFD    1/1,1/1,22/0,18/MSFP,18/PRFC
00241  M01S00241.pflist  +++|          CON    0           END OF TABLE
00242  M01S00242.pflist  +++| RDB      SPACE  4,20
00243  M01S00243.pflist  +++|**        RDB - READ DATA BLOCK FROM SUMMARY FILE.
00244  M01S00244.pflist  +++|*
00245  M01S00245.pflist  +++|*         EXIT   (X6) = BLOCK TYPE IF BLOCK READ.
00246  M01S00246.pflist  +++|*                (X6) = -1 IF EOR, EOF, OR EOI ENCOUNTERED ON READ OF
00247  M01S00247.pflist  +++|*                       BLOCK CONTROL WORD.
00248  M01S00248.pflist  +++|*                (X2) = 0 IF BLOCK TYPE SAME A PREVIOUS BLOCK TYPE.
00249  M01S00249.pflist  +++|*                (X2) .NE. 0 IF BLOCK TYPE NOT SAME AS PREVIOUS.
00250  M01S00250.pflist  +++|*                (X3) = PREVIOUS BLOCK TYPE.
00251  M01S00251.pflist  +++|*                (BLCW) = BLOCK CONTROL WORD IF BLOCK READ.
00252  M01S00252.pflist  +++|*                (BLTY) = BLOCK TYPE IF BLOCK READ.
00253  M01S00253.pflist  +++|*                (BLTY) = -1 IF EOR, EOF, OR EOI ENCOUNTERED ON READ OF
00254  M01S00254.pflist  +++|*                         BLOCK CONTROL WORD.
00255  M01S00255.pflist  +++|*                DATA BLOCK READ TO *DBUF* IF NO ERROR.
00256  M01S00256.pflist  +++|*                TO *SER* IF ERROR IN SUMMARY FILE BLOCK.
00257  M01S00257.pflist  +++|*
00258  M01S00258.pflist  +++|*         USES   X - 1, 2, 3, 6.
00259  M01S00259.pflist  +++|*                A - 1, 2, 3, 6.
00260  M01S00260.pflist  +++|*
00261  M01S00261.pflist  +++|*         MACROS READW.
00262  M01S00262.pflist  +++|
00263  M01S00263.pflist  +++|
00264  M01S00264.pflist  +++| RDB      SUBR               ENTRY/EXIT
00265  M01S00265.pflist  +++|
00266  M01S00266.pflist  +++|*         READ BLOCK CONTROL WORD AND DATA.
00267  M01S00267.pflist  +++|
00268  M01S00268.pflist  +++|          READW  SI,BLCW,1   READ BLOCK CONTROL WORD
00269  M01S00269.pflist  +++|          SA3    BLCW
00270  M01S00270.pflist  +++|          SX6    -1          SET EOR, EOF, EOI STATUS
00271  M01S00271.pflist  +++|          NZ     X1,RDB2     IF EOR, EOF, OR EOI ENCOUNTERED
00272  M01S00272.pflist  +++|          SX1    X3-DBUFL-1
00273  M01S00273.pflist  +++|          SX6    X3
00274  M01S00274.pflist  +++|          BX1    -X1+X6
00275  M01S00275.pflist  +++|          NG     X1,SER      IF BAD BLOCK LENGTH
00276  M01S00276.pflist  +++|          READW  X2,DBUF,X3  READ DATA BLOCK
00277  M01S00277.pflist  +++|          NZ     X1,SER      IF INCOMPLETE READ
00278  M01S00278.pflist  +++|
00279  M01S00279.pflist  +++|*         IDENTIFY BLOCK TYPE.
00280  M01S00280.pflist  +++|
00281  M01S00281.pflist  +++|          SA1    BLCW
00282  M01S00282.pflist  +++|          SA2    TSBI-1
00283  M01S00283.pflist  +++|          MX6    42
00284  M01S00284.pflist  +++|          BX1    X6*X1       BLOCK IDENTIFIER
00285  M01S00285.pflist  +++| RDB1     SA2    A2+B1       GET NEXT ENTRY
00286  M01S00286.pflist  +++|          SX6    A2-TSBI     SET BLOCK TYPE
00287  M01S00287.pflist  +++|          BX3    X2-X1
00288  M01S00288.pflist  +++|          ZR     X2,RDB2     IF END OF ENTRIES
00289  M01S00289.pflist  +++|          NZ     X3,RDB1     IF NO MATCH
00290  M01S00290.pflist  +++| RDB2     SA3    BLTY
00291  M01S00291.pflist  +++|          SA6    A3          SET NEW BLOCK TYPE
00292  M01S00292.pflist  +++|          IX2    X6-X3       SET NEW BLOCK TYPE STATUS
00293  M01S00293.pflist  +++|          EQ     RDBX        RETURN
00294  M01S00294.pflist  +++| RIP      SPACE  4,10
00295  M01S00295.pflist  +++|**        RIP - REPRIEVE INTERRUPT PROCESSOR.
00296  M01S00296.pflist  +++|*
00297  M01S00297.pflist  +++|*         EXIT   BUSY FETS SET COMPLETE TO ALLOW TERMINATION
00298  M01S00298.pflist  +++|*                  PROCESSING.
00299  M01S00299.pflist  +++|*
00300  M01S00300.pflist  +++|*         MACROS COMPFET.
00301  M01S00301.pflist  +++|
00302  M01S00302.pflist  +++|
00303  M01S00303.pflist  +++| RIP      SUBR               ENTRY/EXIT
00304  M01S00304.pflist  +++|          COMPFET  (O,SU)
00305  M01S00305.pflist  +++|          EQ     RIPX        RETURN
00306  M01S00306.pflist  +++| SER      SPACE  4,10
00307  M01S00307.pflist  +++|**        SER - PROCESS SUMMARY FILE ERROR.
00308  M01S00308.pflist  +++|*
00309  M01S00309.pflist  +++|*         EXIT   TO *ABT*.
00310  M01S00310.pflist  +++|*
00311  M01S00311.pflist  +++|*         USES   B - 2.
00312  M01S00312.pflist  +++|
00313  M01S00313.pflist  +++|
00314  M01S00314.pflist  +++| SER      BSS    0           ENTRY
00315  M01S00315.pflist  +++|          SB2    ERFE        * FORMAT ERROR IN SUMMARY FILE.*
00316  M01S00316.pflist  +++|          EQ     ABT         ABORT
00317  M01S00317.pflist  +++|          SPACE  4
00318  M01S00318.pflist  +++|**        COMMON DECKS.
00319  M01S00319.pflist  +++|
00320  M01S00320.pflist  +++|
00321  M01S00321.pflist  +++|*CALL     COMCCDD
00322  M01S00322.pflist  +++|*CALL     COMCCIO
00323  M01S00323.pflist  +++|*CALL     COMCCOD
00324  M01S00324.pflist  +++|*CALL     COMCCPM
00325  M01S00325.pflist  +++|*CALL     COMCDXB
00326  M01S00326.pflist  +++|*CALL     COMCEDT
00327  M01S00327.pflist  +++| FCE$     EQU    0
00328  M01S00328.pflist  +++|*CALL     COMCFCE
00329  M01S00329.pflist  +++| CHDR1    EQU    /COMCFCE/CHDR1
00330  M01S00330.pflist  +++| GMS$     EQU    1           USE SORT KEY MASK
00331  M01S00331.pflist  +++| MWK$     EQU    1           ALLOW MULTIPLE WORD SORT KEYS
00332  M01S00332.pflist  +++|*CALL     COMCGMS
00333  M01S00333.pflist  +++|*CALL     COMCJCR
00334  M01S00334.pflist  +++|*CALL     COMCLFM
00335  M01S00335.pflist  +++|*CALL     COMCMSF
00336  M01S00336.pflist  +++|*CALL     COMCMVE
00337  M01S00337.pflist  +++|          LIST   X
00338  M01S00338.pflist  +++|*CALL     COMCPFS
00339  M01S00339.pflist  +++|          LIST   *
00340  M01S00340.pflist  +++|*CALL     COMCPFU
00341  M01S00341.pflist  +++|*CALL     COMCRDW
00342  M01S00342.pflist  +++|*CALL     COMCSCB
00343  M01S00343.pflist  +++|*CALL     COMCSFN
00344  M01S00344.pflist  +++|*CALL     COMCSNM
00345  M01S00345.pflist  +++|*CALL     COMCSYS
00346  M01S00346.pflist  +++|*CALL     COMCVDT
00347  M01S00347.pflist  +++|*CALL     COMCWTC
00348  M01S00348.pflist  +++|*CALL     COMCWTH
00349  M01S00349.pflist  +++|*CALL     COMCWTO
00350  M01S00350.pflist  +++|*CALL     COMCWTW
00351  M01S00351.pflist  +++|*CALL     COMCZTB
00352  M01S00352.pflist  +++|          TITLE  BUFFERS.
00353  M01S00353.pflist  +++|          USE    LITERALS
00354  M01S00354.pflist  +++|          SPACE  4
00355  M01S00355.pflist  +++|**        BUFFERS.
00356  M01S00356.pflist  +++|
00357  M01S00357.pflist  +++|
00358  M01S00358.pflist  +++|*         BUFFERS USED BY PRESET.
00359  M01S00359.pflist  +++|
00360  M01S00360.pflist  +++| DBUF     BSSZ   DBUFL       SUMMARY FILE DATA BLOCK BUFFER
00361  M01S00361.pflist  +++| SUIB     BSSZ   SUIBL       SUMMARY INPUT FILE BUFFER
00362  M01S00362.pflist  +++| OUTB     BSSZ   OUTBL       OUTPUT FILE
00363  M01S00363.pflist  +++|
00364  M01S00364.pflist  +++|*         BUFFERS OVERLAYING PRESET.
00365  M01S00365.pflist  +++|
00366  M01S00366.pflist  +++| SUMB     EQU    OUTB+OUTBL  SUMMARY FILE (NOT USED)
00367  M01S00367.pflist  +++| PFLB     EQU    SUMB+SUMBL  PROCESSED FILES FILE
00368  M01S00368.pflist  +++| MS1B     EQU    PFLB+PFLBL  SORT FILE 1
00369  M01S00369.pflist  +++| MS2B     EQU    MS1B+MSFBL  SORT FILE 2
00370  M01S00370.pflist  +++| MS3B     EQU    MS2B+MSFBL  SORT FILE 3
00371  M01S00371.pflist  +++| MS4B     EQU    MS3B+MSFBL  SORT FILE 4
00372  M01S00372.pflist  +++| SRTB     EQU    MS3B        SORT BUFFER (OVERLAYS *MS3B* AND *MS4B*)
00373  M01S00373.pflist  +++|          ERRNG  MSFBL*2-SRTBL  SORT BUFFER OVERFLOW
00374  M01S00374.pflist  +++| EBUF     EQU    MS4B+MSFBL+5  END OF BUFFERS
00375  M01S00375.pflist  +++|          TITLE  PFLIST PRESET.
00376  M01S00376.pflist  +++| PRS      SPACE  4,15
00377  M01S00377.pflist  +++|**        PRS - PRESET PROGRAM.
00378  M01S00378.pflist  +++|*
00379  M01S00379.pflist  +++|*         EXIT   FILES INITIALIZED.
00380  M01S00380.pflist  +++|*                MESSAGES INITIALIZED.
00381  M01S00381.pflist  +++|*                SUMMARY FILE SYSTEM BLOCK PROCESSED.
00382  M01S00382.pflist  +++|*                SUMMARY FILE DEVICE STATUS BLOCK PROCESSED IF PRESENT.
00383  M01S00383.pflist  +++|*
00384  M01S00384.pflist  +++|*         USES   A - 1, 2, 6, 7.
00385  M01S00385.pflist  +++|*                X - 0, 1, 2, 3, 5, 6, 7.
00386  M01S00386.pflist  +++|*                B - 2, 3, 5, 7.
00387  M01S00387.pflist  +++|*
00388  M01S00388.pflist  +++|*         CALLS  IOF, ODV, RPS, RDB, SCB, SNM, ZTB.
00389  M01S00389.pflist  +++|*
00390  M01S00390.pflist  +++|*         MACROS MEMORY, MOVE, REPRIEVE, READ, READW.
00391  M01S00391.pflist  +++|
00392  M01S00392.pflist  +++|
00393  M01S00393.pflist  +++| PRS      SUBR               ENTRY/EXIT
00394  M01S00394.pflist  +++|          SB1    1
00395  M01S00395.pflist  +++|          MEMORY CM,,R,EBUF  REQUEST REQUIRED MEMORY
00396  M01S00396.pflist  +++|          REPRIEVE  RPVB,SET,277B  SET EXTENDED REPRIEVE PROCESSING
00397  M01S00397.pflist  +++|
00398  M01S00398.pflist  +++|*         READ USER AND FILE NAME SELECTIONS.
00399  M01S00399.pflist  +++|
00400  M01S00400.pflist  +++|          SX0    EBUF        SET SELECTION BUFFER ADDRESS
00401  M01S00401.pflist  +++|          RJ     RPS         READ PERMANENT FILE SELECTIONS
00402  M01S00402.pflist  +++|
00403  M01S00403.pflist  +++|*         INITIALIZE SUMMARY INPUT FILE FET AND READ PREFIX TABLE.
00404  M01S00404.pflist  +++|
00405  M01S00405.pflist  +++|          SA1    SI          SET FILE NAME IN FET
00406  M01S00406.pflist  +++|          SA2    CPAR+/COMSPFS/CPSI
00407  M01S00407.pflist  +++|          MX6    -18
00408  M01S00408.pflist  +++|          BX6    -X6*X1
00409  M01S00409.pflist  +++|          BX6    X2+X6
00410  M01S00410.pflist  +++|          SA6    A1
00411  M01S00411.pflist  +++|          READ   SI
00412  M01S00412.pflist  +++|          READW  SI,DBUF,15  READ PREFIX TABLE
00413  M01S00413.pflist  +++|          NZ     X1,SER      IF INCOMPLETE READ
00414  M01S00414.pflist  +++|          SA1    DBUF
00415  M01S00415.pflist  +++|          SA2    PRSA
00416  M01S00416.pflist  +++|          BX1    X1-X2
00417  M01S00417.pflist  +++|          NZ     X1,SER      IF NOT PREFIX TABLE
00418  M01S00418.pflist  +++|
00419  M01S00419.pflist  +++|*         PROCESS SYSTEM BLOCK.
00420  M01S00420.pflist  +++|
00421  M01S00421.pflist  +++|          RJ     RDB         READ SYSTEM BLOCK
00422  M01S00422.pflist  +++|          SA1    BLCW
00423  M01S00423.pflist  +++|          SX6    X6-/COMSPFS/SYSB
00424  M01S00424.pflist  +++|          NZ     X6,SER      IF NOT SYSTEM BLOCK
00425  M01S00425.pflist  +++|          SX1    X1-13B
00426  M01S00426.pflist  +++|          NZ     X1,SER      IF NOT CORRECT WORD COUNT FOR SYSTEM BLOCK
00427  M01S00427.pflist  +++|          MOVE   2,PRSB,PGSC SET SUMMARY FILE CREATION TEXT IN PAGE TITL
00428  M01S00428.pflist  +++|          SA1    DBUF+1
00429  M01S00429.pflist  +++|          RJ     ZTB         ENSURE BLANK FILL
00430  M01S00430.pflist  +++|          SA6    PGSC+2      SET SUMMARY FILE CREATION DATE
00431  M01S00431.pflist  +++|          SA1    DBUF+2
00432  M01S00432.pflist  +++|          RJ     ZTB         ENSURE BLANK FILL
00433  M01S00433.pflist  +++|          SA6    PGSC+3
00434  M01S00434.pflist  +++|          SA1    DBUF        GET UTILITY NAME
00435  M01S00435.pflist  +++|          MX6    42
00436  M01S00436.pflist  +++|          BX1    X6*X1
00437  M01S00437.pflist  +++|          SA2    TUTA
00438  M01S00438.pflist  +++| PRS1     SA2    A2+B1
00439  M01S00439.pflist  +++|          ZR     X2,SER      IF END OF UTILITY NAMES
00440  M01S00440.pflist  +++|          BX3    X6*X2       UTILITY NAME
00441  M01S00441.pflist  +++|          BX3    X1-X3
00442  M01S00442.pflist  +++|          NZ     X3,PRS1     IF NO MATCH ON UTILITY NAME
00443  M01S00443.pflist  +++|          LX2    59-0
00444  M01S00444.pflist  +++|          SX6    A2-TUTA
00445  M01S00445.pflist  +++|          SA6    OFUC        SET UTILITY CODE
00446  M01S00446.pflist  +++|          PL     X2,PRS3     IF UTILITY DOES NOT SUPPORT DEVICE BLOCK
00447  M01S00447.pflist  +++|
00448  M01S00448.pflist  +++|*         PROCESS DEVICE STATUS BLOCK.
00449  M01S00449.pflist  +++|
00450  M01S00450.pflist  +++|          RJ     RDB         READ BLOCK
00451  M01S00451.pflist  +++|          SB2    ERDS        * DEVICE STATUS BLOCK MISSING.*
00452  M01S00452.pflist  +++|          SX6    X6-/COMSPFS/DSSB
00453  M01S00453.pflist  +++|          NZ     X6,ABT      IF NOT DEVICE STATUS BLOCK
00454  M01S00454.pflist  +++|          SA1    DBUF+2
00455  M01S00455.pflist  +++|          SA2    DBUF
00456  M01S00456.pflist  +++|          MX6    -6
00457  M01S00457.pflist  +++|          MX7    42
00458  M01S00458.pflist  +++|          BX1    -X6*X1      EXTRACT DEVICE NUMBER OF FIRST DEVICE
00459  M01S00459.pflist  +++|          BX7    X7*X2
00460  M01S00460.pflist  +++|          SX3    OFFN        SELECT FAMILY NAME
00461  M01S00461.pflist  +++|          NZ     X1,PRS2     IF FAMILY DEVICE
00462  M01S00462.pflist  +++|          SX3    OFPN        SELECT PACK NAME
00463  M01S00463.pflist  +++| PRS2     SA7    X3          SET FAMILY OR PACK NAME
00464  M01S00464.pflist  +++|          SA1    DBUF+1
00465  M01S00465.pflist  +++|          BX6    X1
00466  M01S00466.pflist  +++|          SA6    OFUN        SET USER NAME IF AUXILIARY DEVICE
00467  M01S00467.pflist  +++|          RJ     IOF         INITIALIZE OUTPUT FILES
00468  M01S00468.pflist  +++|          SA1    BLCW
00469  M01S00469.pflist  +++|          SX6    0           SET END OF DEVICE ENTRIES
00470  M01S00470.pflist  +++|          SA6    DBUF+X1
00471  M01S00471.pflist  +++|          SX6    DBUF+2      SET DEVICE STATUS ADDRESS
00472  M01S00472.pflist  +++|          RJ     ODV         OUTPUT DEVICE STATUS
00473  M01S00473.pflist  +++|          EQ     PRS4        CHECK ARCHIVE FILE COUNT
00474  M01S00474.pflist  +++|
00475  M01S00475.pflist  +++|*         INITIALIZE OUTPUT FILES.
00476  M01S00476.pflist  +++|
00477  M01S00477.pflist  +++| PRS3     RJ     IOF         INITIALIZE OUTPUT FILES
00478  M01S00478.pflist  +++| PRS4     SA1    CPAR+/COMSPFS/CPNB
00479  M01S00479.pflist  +++|          NZ     X1,PRSX     IF ARCHIVE FILE COUNT SPECIFIED
00480  M01S00480.pflist  +++|          SX6    B1
00481  M01S00481.pflist  +++|          SA6    A1          SET ARCHIVE FILE COUNT = 1
00482  M01S00482.pflist  +++|          EQ     PRSX        RETURN
00483  M01S00483.pflist  +++|
00484  M01S00484.pflist  +++|
00485  M01S00485.pflist  +++| PRSA     VFD    12/7700B,12/16B,36/0
00486  M01S00486.pflist  +++| PRSB     DATA   20HSUMMARY FILE CREATED
00487  M01S00487.pflist  +++| TUTA     SPACE  4,10
00488  M01S00488.pflist  +++|**        TUTA - TABLE OF UTILITY ATTRIBUTES.
00489  M01S00489.pflist  +++|
00490  M01S00490.pflist  +++|
00491  M01S00491.pflist  +++| TUTA     IVFD               TABLE OF UTILITY NAMES
00492  M01S00492.pflist  +++|          IVFD   /COMSPFS/LDUT,(42/0LPFLOAD,18/1)
00493  M01S00493.pflist  +++|          IVFD   /COMSPFS/DUUT,(42/0LPFDUMP,18/1)
00494  M01S00494.pflist  +++|          IVFD   /COMSPFS/CAUT,(42/0LPFCAT,18/1)
00495  M01S00495.pflist  +++|          IVFD   /COMSPFS/ATUT,(42/0LPFATC,18/0)
00496  M01S00496.pflist  +++|          IVFD   /COMSPFS/COUT,(42/0LPFCOPY,18/0)
00497  M01S00497.pflist  +++|          IVFD   /COMSPFS/RLUT,(42/0LPFREL,18/1)
00498  M01S00498.pflist  +++|          IVFD   /COMSPFS/LIUT,(42/0LPFLIST,18/0)
00499  M01S00499.pflist  +++|          IVFD   /COMSPFS/RSUT,(42/0LPFRES,18/0)
00500  M01S00500.pflist  +++|          IVFD   /COMSPFS/MXUT,(60/0)
00501  M01S00501.pflist  +++|          IVFD   /COMSPFS/MXUT+1
00502  M01S00502.pflist  +++|
00503  M01S00503.pflist  +++|          SPACE  4
00504  M01S00504.pflist  +++|**        PRESET COMMON DECKS.
00505  M01S00505.pflist  +++|
00506  M01S00506.pflist  +++|
00507  M01S00507.pflist  +++|          LIST   X
00508  M01S00508.pflist  +++|*CALL     COMCPFP
00509  M01S00509.pflist  +++|          LIST   *
00510  M01S00510.pflist  +++|
00511  M01S00511.pflist  +++|
00512  M01S00512.pflist  +++|          ERRPL  *-EBUF-1    PRESET OVERFLOWS INTO BUFFERS
00513  M01S00513.pflist  +++|          SPACE  4
00514  M01S00514.pflist  +++|          END
cdc/nos2.source/opl.opl871/deck/pflist.txt ยท Last modified: by 127.0.0.1