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