cdc:nos2.source:opl.opl871:deck:pflist
Deck PFLIST
Library Member Format: MODIFY
Source
Seq # *Modification Id* Act ----------------------------+ 00001 M00S00001.pflist ---| IDENT PFLIST1,/COMSPFS/OVLA,PFS,01,00 00002 M00S00002.pflist ---| TITLE PFLIST - LIST PF UTILITY SUMMARY FILE. 00003 M00S00003.pflist ---| ABS 00004 M00S00004.pflist ---| SST 00005 M00S00005.pflist ---| SYSCOM B1 00006 M00S00006.pflist ---| SPACE 4 00007 M00S00007.pflist ---|*COMMENT PFLIST - LIST PF UTILITY SUMMARY FILE. 00008 M00S00008.pflist ---| COMMENT COPYRIGHT CONTROL SYSTEMS INC. 1996. 00009 M00S00009.pflist ---| SPACE 4 00010 M00S00010.pflist ---|*** PFLIST - LIST PF UTILITY SUMMARY FILE. 00011 M00S00011.pflist ---|* 00012 M00S00012.pflist ---|* G. S. YODER 96/04/24. 00013 M00S00013.pflist ---| SPACE 4 00014 M00S00014.pflist ---|*** *PFLIST* IS A PERMANENT FILE UTILITY PROGRAM WHICH GENERATES 00015 M00S00015.pflist ---|* AN OUTPUT LISTING FROM A SUMMARY FILE PRODUCED BY ANOTHER 00016 M00S00016.pflist ---|* PERMANENT FILE UTILITY. *PFLIST* MAY BE CALLED FROM *PFS* OR 00017 M00S00017.pflist ---|* DIRECTLY BY A COMMAND. 00018 M00S00018.pflist ---| SPACE 4 00019 M00S00019.pflist ---|*** DAYFILE MESSAGES. 00020 M00S00020.pflist ---|* 00021 M00S00021.pflist ---|* INFORMATIVE. 00022 M00S00022.pflist ---|* 00023 M00S00023.pflist ---|* * PFLIST COMPLETE.* = PROGRAM COMPLETE. 00024 M00S00024.pflist ---|* 00025 M00S00025.pflist ---|* FATAL SYSTEM ERRORS. 00026 M00S00026.pflist ---|* 00027 M00S00027.pflist ---|* * PFLIST ABORTED.* = ERROR FLAG DETECTED ON CONTROL POINT. 00028 M00S00028.pflist ---|* 00029 M00S00029.pflist ---|* * FORMAT ERROR IN SUMMARY FILE.* 00030 M00S00030.pflist ---| SPACE 4 00031 M00S00031.pflist ---|* COMMON DECKS. 00032 M00S00032.pflist ---| 00033 M00S00033.pflist ---| 00034 M00S00034.pflist ---|*CALL COMCMAC 00035 M00S00035.pflist ---|*CALL COMCCMD 00036 M00S00036.pflist ---|*CALL COMSMLS 00037 M00S00037.pflist ---|*CALL COMSRPV 00038 M00S00038.pflist ---|*CALL COMSPFM 00039 M00S00039.pflist ---| LIST X 00040 M00S00040.pflist ---|*CALL COMSPFS 00041 M00S00041.pflist ---| LIST * 00042 M00S00042.pflist ---|*CALL COMSPFU 00043 M00S00043.pflist ---|*CALL COMSPRD 00044 M00S00044.pflist ---|*CALL COMSSFM 00045 M00S00045.pflist ---|*CALL COMSVER 00046 M00S00046.pflist ---| TITLE ASSEMBLY CONSTANTS. 00047 M00S00047.pflist ---|* ASSEMBLY CONSTANTS. 00048 M00S00048.pflist ---| 00049 M00S00049.pflist ---| 00050 M00S00050.pflist ---| DBUFL EQU 1000B SUMMARY FILE DATA BLOCK BUFFER LENGTH 00051 M00S00051.pflist ---| MSFBL EQU 10001B *COMCMSF* SORT FILES BUFFER LENGTH 00052 M00S00052.pflist ---| OUTBL EQU 10001B OUTPUT FILE BUFFER LENGTH 00053 M00S00053.pflist ---| PFLBL EQU 1001B PROCESSED FILES FILE BUFFER LENGTH 00054 M00S00054.pflist ---| SABFL EQU 1000B SUMMARY FILE ASSEMBLY BUFFER LENGTH 00055 M00S00055.pflist ---| SRTBL EQU 20000B SORT BUFFER LENGTH 00056 M00S00056.pflist ---| SUIBL EQU 10001B SUMMARY INPUT FILE BUFFER LENGTH 00057 M00S00057.pflist ---| SUMBL EQU 0 SUMMARY FILE BUFFER LENGTH 00058 M00S00058.pflist ---| 00059 M00S00059.pflist ---| 00060 M00S00060.pflist ---|* *COMSPFS* EQUIVALENCES. 00061 M00S00061.pflist ---| 00062 M00S00062.pflist ---| CPAR EQU /COMSPFS/CPL 00063 M00S00063.pflist ---| IDSA EQU /COMSPFS/PADR 00064 M00S00064.pflist ---| TITLE RESERVED LOCATIONS AND FETS. 00065 M00S00065.pflist ---| SPACE 4 00066 M00S00066.pflist ---| ORG /COMSPFS/OVLA 00067 M00S00067.pflist ---| SPACE 4 00068 M00S00068.pflist ---|** RESERVED LOCATIONS. 00069 M00S00069.pflist ---| 00070 M00S00070.pflist ---| 00071 M00S00071.pflist ---|* SUMMARY FILE DATA BLOCK STATUS. 00072 M00S00072.pflist ---| 00073 M00S00073.pflist ---| BLCW CON 0 BLOCK CONTROL WORD 00074 M00S00074.pflist ---| BLTY CON 0 TYPE OF DATA BLOCK IN BUFFER 00075 M00S00075.pflist ---| SPACE 4 00076 M00S00076.pflist ---|** FETS. 00077 M00S00077.pflist ---| 00078 M00S00078.pflist ---| 00079 M00S00079.pflist ---| SI BSS 0 SUMMARY INPUT FILE 00080 M00S00080.pflist ---| SUMMARY FILEB SUIB,SUIBL,FET=10D 00081 M00S00081.pflist ---| SPACE 4 00082 M00S00082.pflist ---|** OPERATOR AND DAYFILE MESSAGES. 00083 M00S00083.pflist ---| 00084 M00S00084.pflist ---| 00085 M00S00085.pflist ---| MSFP DATA C* ?????? FILE! PROCESSED.* 00086 M00S00086.pflist ---| BLNK DATA 30H 00087 M00S00087.pflist ---| SPACE 4 00088 M00S00088.pflist ---|** ERROR MESSAGES. 00089 M00S00089.pflist ---| 00090 M00S00090.pflist ---| 00091 M00S00091.pflist ---| ERAN DATA C* SF EXCEDES NUMBER OF ARCHIVE FILES.* 00092 M00S00092.pflist ---| ERDS DATA C* DEVICE STATUS BLOCK MISSING.* 00093 M00S00093.pflist ---| ERFE DATA C* FORMAT ERROR IN SUMMARY FILE.* 00094 M00S00094.pflist ---| TITLE MAIN ROUTINES. 00095 M00S00095.pflist ---| PFS SPACE 4,10 00096 M00S00096.pflist ---|** MAIN PROGRAM. 00097 M00S00097.pflist ---|* 00098 M00S00098.pflist ---|* CALLS CFP, CSC, ICI, OAL, OCH, OCI, PRS, RDB, SPA. 00099 M00S00099.pflist ---|* 00100 M00S00100.pflist ---|* EXIT TO *ABT* IF FATAL ERROR. 00101 M00S00101.pflist ---| 00102 M00S00102.pflist ---| 00103 M00S00103.pflist ---| PFS BSS 0 ENTRY 00104 M00S00104.pflist ---| RJ PRS PRESET PROGRAM 00105 M00S00105.pflist ---| 00106 M00S00106.pflist ---|* LOCATE ARCHIVE LABEL BLOCK IF SKIP COUNT SPECIFIED. 00107 M00S00107.pflist ---| 00108 M00S00108.pflist ---| SA5 CPAR+/COMSPFS/CPSF 00109 M00S00109.pflist ---| ZR X5,PFS3 IF NO ARCHIVE FILES TO SKIP 00110 M00S00110.pflist ---| PFS1 SA1 BLTY GET BLOCK TYPE 00111 M00S00111.pflist ---| SX1 X1-/COMSPFS/AFSB 00112 M00S00112.pflist ---| NZ X1,PFS2 IF NOT ARCHIVE LABEL BLOCK 00113 M00S00113.pflist ---| ZR X5,PFS5 IF BLOCK FOUND 00114 M00S00114.pflist ---| SX5 X5-1 COUNT BLOCK 00115 M00S00115.pflist ---| PFS2 RJ RDB READ DATA BLOCK 00116 M00S00116.pflist ---| PL X6,PFS1 IF NOT EOR 00117 M00S00117.pflist ---| SB2 ERAN * SF EXCEDES NUMBER OF ARCHIVE FILES.* 00118 M00S00118.pflist ---| EQ ABT ABORT 00119 M00S00119.pflist ---| 00120 M00S00120.pflist ---|* READ SUMMARY FILE BLOCK AND CHECK FOR SORTED OUTPUT. 00121 M00S00121.pflist ---| 00122 M00S00122.pflist ---| PFS3 RJ RDB 00123 M00S00123.pflist ---| ZR X2,PFS4 IF BLOCK TYPE IS SAME AS PREVIOUS 00124 M00S00124.pflist ---| RJ CSO CHECK FOR SORTED OUTPUT 00125 M00S00125.pflist ---| 00126 M00S00126.pflist ---|* EXECUTE BLOCK TYPE PROCESSOR. 00127 M00S00127.pflist ---| 00128 M00S00128.pflist ---| PFS4 NG X6,END IF EOR, EOF, OR EOI ENCOUNTERED 00129 M00S00129.pflist ---| SA1 TSIP+X6 GET PROCESSOR ADDRESS 00130 M00S00130.pflist ---| SB2 X1 00131 M00S00131.pflist ---| JP B2 ENTER BLOCK TYPE PROCESSOR 00132 M00S00132.pflist ---| 00133 M00S00133.pflist ---|* PROCESS ARCHIVE LABEL BLOCK. 00134 M00S00134.pflist ---| 00135 M00S00135.pflist ---| PFS5 SA1 CPAR+/COMSPFS/CPNB 00136 M00S00136.pflist ---| SA2 PFSA 00137 M00S00137.pflist ---| IX1 X2-X1 00138 M00S00138.pflist ---| ZR X1,END IF ARCHIVE FILE COUNT REACHED 00139 M00S00139.pflist ---| SX6 X2+B1 00140 M00S00140.pflist ---| SA6 PFSA COUNT ARCHIVE FILE PROCESSED 00141 M00S00141.pflist ---| MOVE 3,DBUF,AFIB SET ARCHIVE FILE LABEL INFORMATION 00142 M00S00142.pflist ---| RJ OAL OUTPUT ARCHIVE FILE LABEL INFORMATION 00143 M00S00143.pflist ---| EQ PFS3 READ NEXT BLOCK 00144 M00S00144.pflist ---| 00145 M00S00145.pflist ---|* PROCESS CATALOG IMAGE RECORD BLOCK. 00146 M00S00146.pflist ---| 00147 M00S00147.pflist ---| PFS6 ZR X2,PFS7 IF LAST BLOCK WAS CIR BLOCK 00148 M00S00148.pflist ---| RJ ICI INITIALIZE FOR CIR PROCESSING 00149 M00S00149.pflist ---| PFS7 SA1 BLCW 00150 M00S00150.pflist ---| SX6 DBUF SET CIR BUFFER POINTER 00151 M00S00151.pflist ---| SX7 X1 SET WORD COUNT 00152 M00S00152.pflist ---| RJ OCI OUTPUT CATALOG IMAGE BLOCK 00153 M00S00153.pflist ---| EQ PFS3 READ NEXT BLOCK 00154 M00S00154.pflist ---| 00155 M00S00155.pflist ---|* PROCESS CATALOG ENTRIES BLOCK. 00156 M00S00156.pflist ---| 00157 M00S00157.pflist ---| PFS8 SA0 DBUF-NWCE-1 INITIALIZE ENTRY ADDRESS 00158 M00S00158.pflist ---| ZR X2,PFS9 IF LAST BLOCK WAS CATALOG ENTRIES 00159 M00S00159.pflist ---| RJ IFL INITIALIZE FOR FILE PROCESSING 00160 M00S00160.pflist ---| PFS9 SA2 BLCW 00161 M00S00161.pflist ---| SA0 A0+NWCE+1 ADVANCE ENTRY ADDRESS 00162 M00S00162.pflist ---| SB2 X2+DBUF 00163 M00S00163.pflist ---| SB2 A0-B2 00164 M00S00164.pflist ---| PL B2,PFS3 IF BLOCK ALL PROCESSED 00165 M00S00165.pflist ---| SB4 A0 SET CATALOG ADDRESS 00166 M00S00166.pflist ---| RJ CSC CHECK SELECTION CRITERIA 00167 M00S00167.pflist ---| ZR X6,PFS9 IF NOT TO PROCESS FILE 00168 M00S00168.pflist ---| SA1 B4+NWCE 00169 M00S00169.pflist ---| BX7 X1 00170 M00S00170.pflist ---| SA7 FLST SET FILE STATUS 00171 M00S00171.pflist ---| RJ CFP COUNT FILE PROCESSED 00172 M00S00172.pflist ---| EQ PFS9 PROCESS NEXT ENTRY 00173 M00S00173.pflist ---| 00174 M00S00174.pflist ---| 00175 M00S00175.pflist ---| PFSA CON 0 ARCHIVE FILES PROCESSED COUNT 00176 M00S00176.pflist ---| TSIP SPACE 4,10 00177 M00S00177.pflist ---|* TABLE OF SUMMARY INPUT FILE BLOCK PROCESSORS. 00178 M00S00178.pflist ---| 00179 M00S00179.pflist ---| TSIP IVFD START OF TABLE 00180 M00S00180.pflist ---| IVFD /COMSPFS/SYSB,(60/SER) SYSTEM 00181 M00S00181.pflist ---| IVFD /COMSPFS/DSSB,(60/PFS3) DEVICE STATUS 00182 M00S00182.pflist ---| IVFD /COMSPFS/AFSB,(60/PFS5) ARCHIVE FILE 00183 M00S00183.pflist ---| IVFD /COMSPFS/CISB,(60/PFS6) CIR 00184 M00S00184.pflist ---| IVFD /COMSPFS/CESB,(60/PFS8) CATALOG ENTRIES 00185 M00S00185.pflist ---| IVFD /COMSPFS/MXSB,(60/PFS3) UNIDENTIFIED 00186 M00S00186.pflist ---| IVFD /COMSPFS/MXSB+1 00187 M00S00187.pflist ---| CSO SPACE 4,15 00188 M00S00188.pflist ---|** CSO - CHECK FOR SORTED OUTPUT. 00189 M00S00189.pflist ---|* 00190 M00S00190.pflist ---|* ENTRY (X3) = PREVIOUS BLOCK TYPE. 00191 M00S00191.pflist ---|* (X6) = CURRENT BLOCK TYPE. 00192 M00S00192.pflist ---|* 00193 M00S00193.pflist ---|* EXIT (X6) = CURRENT BLOCK TYPE. 00194 M00S00194.pflist ---|* (X2) .NE. 0 (NON-MATCHING BLOCK TYPE). 00195 M00S00195.pflist ---|* 00196 M00S00196.pflist ---|* USES X - 1, 2, 6. 00197 M00S00197.pflist ---|* A - 1. 00198 M00S00198.pflist ---|* 00199 M00S00199.pflist ---|* CALLS PSF, PSI. 00200 M00S00200.pflist ---| 00201 M00S00201.pflist ---| 00202 M00S00202.pflist ---| CSO SUBR ENTRY/EXIT 00203 M00S00203.pflist ---| SX1 X3-/COMSPFS/CISB 00204 M00S00204.pflist ---| NZ X1,CSO1 IF PREVIOUS BLOCK NOT CIR ENTRIES 00205 M00S00205.pflist ---| RJ PSI PROCESS SORTED CIR ENTRIES 00206 M00S00206.pflist ---| EQ CSO2 RESET BLOCK STATUS 00207 M00S00207.pflist ---| 00208 M00S00208.pflist ---| CSO1 SX1 X3-/COMSPFS/CESB 00209 M00S00209.pflist ---| NZ X1,CSOX IF PREVIOUS BLOCK NOT CATALOG ENTRIES 00210 M00S00210.pflist ---| RJ PSF PROCESS SORTED CATALOG ENTRIES 00211 M00S00211.pflist ---| CSO2 SA1 BLTY 00212 M00S00212.pflist ---| SX2 B1 INDICATE NON-MATCHING BLOCK TYPE 00213 M00S00213.pflist ---| SX6 X1 RESET BLOCK TYPE 00214 M00S00214.pflist ---| EQ CSOX RETURN 00215 M00S00215.pflist ---| TITLE SUBROUTINES. 00216 M00S00216.pflist ---| APR SPACE 4,10 00217 M00S00217.pflist ---|** APR - ABORT PROCESSOR. 00218 M00S00218.pflist ---| 00219 M00S00219.pflist ---| 00220 M00S00220.pflist ---| APR SUBR ENTRY/EXIT 00221 M00S00221.pflist ---| EQ APRX RETURN 00222 M00S00222.pflist ---| IFM SPACE 4,10 00223 M00S00223.pflist ---|** IFM - ISSUE FILE COUNT MESSAGES. 00224 M00S00224.pflist ---|* 00225 M00S00225.pflist ---|* EXIT FILE COUNT MESSAGES ISSUED TO DAYFILE. 00226 M00S00226.pflist ---|* 00227 M00S00227.pflist ---|* USES X - 1, 5, 6. 00228 M00S00228.pflist ---|* A - 1, 5. 00229 M00S00229.pflist ---|* 00230 M00S00230.pflist ---|* CALLS IFC. 00231 M00S00231.pflist ---| 00232 M00S00232.pflist ---| 00233 M00S00233.pflist ---| IFM SUBR ENTRY/EXIT 00234 M00S00234.pflist ---| SA5 IFMA 00235 M00S00235.pflist ---| RJ IFC ISSUE FILE COUNT MESSAGES 00236 M00S00236.pflist ---| EQ IFMX RETURN 00237 M00S00237.pflist ---| 00238 M00S00238.pflist ---| 00239 M00S00239.pflist ---| IFMA BSS 0 *PFLIST* MESSAGE TABLE 00240 M00S00240.pflist ---| VFD 1/1,1/1,22/0,18/MSFP,18/PRFC 00241 M00S00241.pflist ---| CON 0 END OF TABLE 00242 M00S00242.pflist ---| RDB SPACE 4,20 00243 M00S00243.pflist ---|** RDB - READ DATA BLOCK FROM SUMMARY FILE. 00244 M00S00244.pflist ---|* 00245 M00S00245.pflist ---|* EXIT (X6) = BLOCK TYPE IF BLOCK READ. 00246 M00S00246.pflist ---|* (X6) = -1 IF EOR, EOF, OR EOI ENCOUNTERED ON READ OF 00247 M00S00247.pflist ---|* BLOCK CONTROL WORD. 00248 M00S00248.pflist ---|* (X2) = 0 IF BLOCK TYPE SAME A PREVIOUS BLOCK TYPE. 00249 M00S00249.pflist ---|* (X2) .NE. 0 IF BLOCK TYPE NOT SAME AS PREVIOUS. 00250 M00S00250.pflist ---|* (X3) = PREVIOUS BLOCK TYPE. 00251 M00S00251.pflist ---|* (BLCW) = BLOCK CONTROL WORD IF BLOCK READ. 00252 M00S00252.pflist ---|* (BLTY) = BLOCK TYPE IF BLOCK READ. 00253 M00S00253.pflist ---|* (BLTY) = -1 IF EOR, EOF, OR EOI ENCOUNTERED ON READ OF 00254 M00S00254.pflist ---|* BLOCK CONTROL WORD. 00255 M00S00255.pflist ---|* DATA BLOCK READ TO *DBUF* IF NO ERROR. 00256 M00S00256.pflist ---|* TO *SER* IF ERROR IN SUMMARY FILE BLOCK. 00257 M00S00257.pflist ---|* 00258 M00S00258.pflist ---|* USES X - 1, 2, 3, 6. 00259 M00S00259.pflist ---|* A - 1, 2, 3, 6. 00260 M00S00260.pflist ---|* 00261 M00S00261.pflist ---|* MACROS READW. 00262 M00S00262.pflist ---| 00263 M00S00263.pflist ---| 00264 M00S00264.pflist ---| RDB SUBR ENTRY/EXIT 00265 M00S00265.pflist ---| 00266 M00S00266.pflist ---|* READ BLOCK CONTROL WORD AND DATA. 00267 M00S00267.pflist ---| 00268 M00S00268.pflist ---| READW SI,BLCW,1 READ BLOCK CONTROL WORD 00269 M00S00269.pflist ---| SA3 BLCW 00270 M00S00270.pflist ---| SX6 -1 SET EOR, EOF, EOI STATUS 00271 M00S00271.pflist ---| NZ X1,RDB2 IF EOR, EOF, OR EOI ENCOUNTERED 00272 M00S00272.pflist ---| SX1 X3-DBUFL-1 00273 M00S00273.pflist ---| SX6 X3 00274 M00S00274.pflist ---| BX1 -X1+X6 00275 M00S00275.pflist ---| NG X1,SER IF BAD BLOCK LENGTH 00276 M00S00276.pflist ---| READW X2,DBUF,X3 READ DATA BLOCK 00277 M00S00277.pflist ---| NZ X1,SER IF INCOMPLETE READ 00278 M00S00278.pflist ---| 00279 M00S00279.pflist ---|* IDENTIFY BLOCK TYPE. 00280 M00S00280.pflist ---| 00281 M00S00281.pflist ---| SA1 BLCW 00282 M00S00282.pflist ---| SA2 TSBI-1 00283 M00S00283.pflist ---| MX6 42 00284 M00S00284.pflist ---| BX1 X6*X1 BLOCK IDENTIFIER 00285 M00S00285.pflist ---| RDB1 SA2 A2+B1 GET NEXT ENTRY 00286 M00S00286.pflist ---| SX6 A2-TSBI SET BLOCK TYPE 00287 M00S00287.pflist ---| BX3 X2-X1 00288 M00S00288.pflist ---| ZR X2,RDB2 IF END OF ENTRIES 00289 M00S00289.pflist ---| NZ X3,RDB1 IF NO MATCH 00290 M00S00290.pflist ---| RDB2 SA3 BLTY 00291 M00S00291.pflist ---| SA6 A3 SET NEW BLOCK TYPE 00292 M00S00292.pflist ---| IX2 X6-X3 SET NEW BLOCK TYPE STATUS 00293 M00S00293.pflist ---| EQ RDBX RETURN 00294 M00S00294.pflist ---| RIP SPACE 4,10 00295 M00S00295.pflist ---|** RIP - REPRIEVE INTERRUPT PROCESSOR. 00296 M00S00296.pflist ---|* 00297 M00S00297.pflist ---|* EXIT BUSY FETS SET COMPLETE TO ALLOW TERMINATION 00298 M00S00298.pflist ---|* PROCESSING. 00299 M00S00299.pflist ---|* 00300 M00S00300.pflist ---|* MACROS COMPFET. 00301 M00S00301.pflist ---| 00302 M00S00302.pflist ---| 00303 M00S00303.pflist ---| RIP SUBR ENTRY/EXIT 00304 M00S00304.pflist ---| COMPFET (O,SU) 00305 M00S00305.pflist ---| EQ RIPX RETURN 00306 M00S00306.pflist ---| SER SPACE 4,10 00307 M00S00307.pflist ---|** SER - PROCESS SUMMARY FILE ERROR. 00308 M00S00308.pflist ---|* 00309 M00S00309.pflist ---|* EXIT TO *ABT*. 00310 M00S00310.pflist ---|* 00311 M00S00311.pflist ---|* USES B - 2. 00312 M00S00312.pflist ---| 00313 M00S00313.pflist ---| 00314 M00S00314.pflist ---| SER BSS 0 ENTRY 00315 M00S00315.pflist ---| SB2 ERFE * FORMAT ERROR IN SUMMARY FILE.* 00316 M00S00316.pflist ---| EQ ABT ABORT 00317 M00S00317.pflist ---| SPACE 4 00318 M00S00318.pflist ---|** COMMON DECKS. 00319 M00S00319.pflist ---| 00320 M00S00320.pflist ---| 00321 M00S00321.pflist ---|*CALL COMCCDD 00322 M00S00322.pflist ---|*CALL COMCCIO 00323 M00S00323.pflist ---|*CALL COMCCOD 00324 M00S00324.pflist ---|*CALL COMCCPM 00325 M00S00325.pflist ---|*CALL COMCDXB 00326 M00S00326.pflist ---|*CALL COMCEDT 00327 M00S00327.pflist ---| FCE$ EQU 0 00328 M00S00328.pflist ---|*CALL COMCFCE 00329 M00S00329.pflist ---| CHDR1 EQU /COMCFCE/CHDR1 00330 M00S00330.pflist ---| GMS$ EQU 1 USE SORT KEY MASK 00331 M00S00331.pflist ---| MWK$ EQU 1 ALLOW MULTIPLE WORD SORT KEYS 00332 M00S00332.pflist ---|*CALL COMCGMS 00333 M00S00333.pflist ---|*CALL COMCJCR 00334 M00S00334.pflist ---|*CALL COMCLFM 00335 M00S00335.pflist ---|*CALL COMCMSF 00336 M00S00336.pflist ---|*CALL COMCMVE 00337 M00S00337.pflist ---| LIST X 00338 M00S00338.pflist ---|*CALL COMCPFS 00339 M00S00339.pflist ---| LIST * 00340 M00S00340.pflist ---|*CALL COMCPFU 00341 M00S00341.pflist ---|*CALL COMCRDW 00342 M00S00342.pflist ---|*CALL COMCSCB 00343 M00S00343.pflist ---|*CALL COMCSFN 00344 M00S00344.pflist ---|*CALL COMCSNM 00345 M00S00345.pflist ---|*CALL COMCSYS 00346 M00S00346.pflist ---|*CALL COMCVDT 00347 M00S00347.pflist ---|*CALL COMCWTC 00348 M00S00348.pflist ---|*CALL COMCWTH 00349 M00S00349.pflist ---|*CALL COMCWTO 00350 M00S00350.pflist ---|*CALL COMCWTW 00351 M00S00351.pflist ---|*CALL COMCZTB 00352 M00S00352.pflist ---| TITLE BUFFERS. 00353 M00S00353.pflist ---| USE LITERALS 00354 M00S00354.pflist ---| SPACE 4 00355 M00S00355.pflist ---|** BUFFERS. 00356 M00S00356.pflist ---| 00357 M00S00357.pflist ---| 00358 M00S00358.pflist ---|* BUFFERS USED BY PRESET. 00359 M00S00359.pflist ---| 00360 M00S00360.pflist ---| DBUF BSSZ DBUFL SUMMARY FILE DATA BLOCK BUFFER 00361 M00S00361.pflist ---| SUIB BSSZ SUIBL SUMMARY INPUT FILE BUFFER 00362 M00S00362.pflist ---| OUTB BSSZ OUTBL OUTPUT FILE 00363 M00S00363.pflist ---| 00364 M00S00364.pflist ---|* BUFFERS OVERLAYING PRESET. 00365 M00S00365.pflist ---| 00366 M00S00366.pflist ---| SUMB EQU OUTB+OUTBL SUMMARY FILE (NOT USED) 00367 M00S00367.pflist ---| PFLB EQU SUMB+SUMBL PROCESSED FILES FILE 00368 M00S00368.pflist ---| MS1B EQU PFLB+PFLBL SORT FILE 1 00369 M00S00369.pflist ---| MS2B EQU MS1B+MSFBL SORT FILE 2 00370 M00S00370.pflist ---| MS3B EQU MS2B+MSFBL SORT FILE 3 00371 M00S00371.pflist ---| MS4B EQU MS3B+MSFBL SORT FILE 4 00372 M00S00372.pflist ---| SRTB EQU MS3B SORT BUFFER (OVERLAYS *MS3B* AND *MS4B*) 00373 M00S00373.pflist ---| ERRNG MSFBL*2-SRTBL SORT BUFFER OVERFLOW 00374 M00S00374.pflist ---| EBUF EQU MS4B+MSFBL+5 END OF BUFFERS 00375 M00S00375.pflist ---| TITLE PFLIST PRESET. 00376 M00S00376.pflist ---| PRS SPACE 4,15 00377 M00S00377.pflist ---|** PRS - PRESET PROGRAM. 00378 M00S00378.pflist ---|* 00379 M00S00379.pflist ---|* EXIT FILES INITIALIZED. 00380 M00S00380.pflist ---|* MESSAGES INITIALIZED. 00381 M00S00381.pflist ---|* SUMMARY FILE SYSTEM BLOCK PROCESSED. 00382 M00S00382.pflist ---|* SUMMARY FILE DEVICE STATUS BLOCK PROCESSED IF PRESENT. 00383 M00S00383.pflist ---|* 00384 M00S00384.pflist ---|* USES A - 1, 2, 6, 7. 00385 M00S00385.pflist ---|* X - 0, 1, 2, 3, 5, 6, 7. 00386 M00S00386.pflist ---|* B - 2, 3, 5, 7. 00387 M00S00387.pflist ---|* 00388 M00S00388.pflist ---|* CALLS IOF, ODV, RPS, RDB, SCB, SNM, ZTB. 00389 M00S00389.pflist ---|* 00390 M00S00390.pflist ---|* MACROS MEMORY, MOVE, REPRIEVE, READ, READW. 00391 M00S00391.pflist ---| 00392 M00S00392.pflist ---| 00393 M00S00393.pflist ---| PRS SUBR ENTRY/EXIT 00394 M00S00394.pflist ---| SB1 1 00395 M00S00395.pflist ---| MEMORY CM,,R,EBUF REQUEST REQUIRED MEMORY 00396 M00S00396.pflist ---| REPRIEVE RPVB,SET,277B SET EXTENDED REPRIEVE PROCESSING 00397 M00S00397.pflist ---| 00398 M00S00398.pflist ---|* READ USER AND FILE NAME SELECTIONS. 00399 M00S00399.pflist ---| 00400 M00S00400.pflist ---| SX0 EBUF SET SELECTION BUFFER ADDRESS 00401 M00S00401.pflist ---| RJ RPS READ PERMANENT FILE SELECTIONS 00402 M00S00402.pflist ---| 00403 M00S00403.pflist ---|* INITIALIZE SUMMARY INPUT FILE FET AND READ PREFIX TABLE. 00404 M00S00404.pflist ---| 00405 M00S00405.pflist ---| SA1 SI SET FILE NAME IN FET 00406 M00S00406.pflist ---| SA2 CPAR+/COMSPFS/CPSI 00407 M00S00407.pflist ---| MX6 -18 00408 M00S00408.pflist ---| BX6 -X6*X1 00409 M00S00409.pflist ---| BX6 X2+X6 00410 M00S00410.pflist ---| SA6 A1 00411 M00S00411.pflist ---| READ SI 00412 M00S00412.pflist ---| READW SI,DBUF,15 READ PREFIX TABLE 00413 M00S00413.pflist ---| NZ X1,SER IF INCOMPLETE READ 00414 M00S00414.pflist ---| SA1 DBUF 00415 M00S00415.pflist ---| SA2 PRSA 00416 M00S00416.pflist ---| BX1 X1-X2 00417 M00S00417.pflist ---| NZ X1,SER IF NOT PREFIX TABLE 00418 M00S00418.pflist ---| 00419 M00S00419.pflist ---|* PROCESS SYSTEM BLOCK. 00420 M00S00420.pflist ---| 00421 M00S00421.pflist ---| RJ RDB READ SYSTEM BLOCK 00422 M00S00422.pflist ---| SA1 BLCW 00423 M00S00423.pflist ---| SX6 X6-/COMSPFS/SYSB 00424 M00S00424.pflist ---| NZ X6,SER IF NOT SYSTEM BLOCK 00425 M00S00425.pflist ---| SX1 X1-13B 00426 M00S00426.pflist ---| NZ X1,SER IF NOT CORRECT WORD COUNT FOR SYSTEM BLOCK 00427 M00S00427.pflist ---| MOVE 2,PRSB,PGSC SET SUMMARY FILE CREATION TEXT IN PAGE TITL 00428 M00S00428.pflist ---| SA1 DBUF+1 00429 M00S00429.pflist ---| RJ ZTB ENSURE BLANK FILL 00430 M00S00430.pflist ---| SA6 PGSC+2 SET SUMMARY FILE CREATION DATE 00431 M00S00431.pflist ---| SA1 DBUF+2 00432 M00S00432.pflist ---| RJ ZTB ENSURE BLANK FILL 00433 M00S00433.pflist ---| SA6 PGSC+3 00434 M00S00434.pflist ---| SA1 DBUF GET UTILITY NAME 00435 M00S00435.pflist ---| MX6 42 00436 M00S00436.pflist ---| BX1 X6*X1 00437 M00S00437.pflist ---| SA2 TUTA 00438 M00S00438.pflist ---| PRS1 SA2 A2+B1 00439 M00S00439.pflist ---| ZR X2,SER IF END OF UTILITY NAMES 00440 M00S00440.pflist ---| BX3 X6*X2 UTILITY NAME 00441 M00S00441.pflist ---| BX3 X1-X3 00442 M00S00442.pflist ---| NZ X3,PRS1 IF NO MATCH ON UTILITY NAME 00443 M00S00443.pflist ---| LX2 59-0 00444 M00S00444.pflist ---| SX6 A2-TUTA 00445 M00S00445.pflist ---| SA6 OFUC SET UTILITY CODE 00446 M00S00446.pflist ---| PL X2,PRS3 IF UTILITY DOES NOT SUPPORT DEVICE BLOCK 00447 M00S00447.pflist ---| 00448 M00S00448.pflist ---|* PROCESS DEVICE STATUS BLOCK. 00449 M00S00449.pflist ---| 00450 M00S00450.pflist ---| RJ RDB READ BLOCK 00451 M00S00451.pflist ---| SB2 ERDS * DEVICE STATUS BLOCK MISSING.* 00452 M00S00452.pflist ---| SX6 X6-/COMSPFS/DSSB 00453 M00S00453.pflist ---| NZ X6,ABT IF NOT DEVICE STATUS BLOCK 00454 M00S00454.pflist ---| SA1 DBUF+2 00455 M00S00455.pflist ---| SA2 DBUF 00456 M00S00456.pflist ---| MX6 -6 00457 M00S00457.pflist ---| MX7 42 00458 M00S00458.pflist ---| BX1 -X6*X1 EXTRACT DEVICE NUMBER OF FIRST DEVICE 00459 M00S00459.pflist ---| BX7 X7*X2 00460 M00S00460.pflist ---| SX3 OFFN SELECT FAMILY NAME 00461 M00S00461.pflist ---| NZ X1,PRS2 IF FAMILY DEVICE 00462 M00S00462.pflist ---| SX3 OFPN SELECT PACK NAME 00463 M00S00463.pflist ---| PRS2 SA7 X3 SET FAMILY OR PACK NAME 00464 M00S00464.pflist ---| SA1 DBUF+1 00465 M00S00465.pflist ---| BX6 X1 00466 M00S00466.pflist ---| SA6 OFUN SET USER NAME IF AUXILIARY DEVICE 00467 M00S00467.pflist ---| RJ IOF INITIALIZE OUTPUT FILES 00468 M00S00468.pflist ---| SA1 BLCW 00469 M00S00469.pflist ---| SX6 0 SET END OF DEVICE ENTRIES 00470 M00S00470.pflist ---| SA6 DBUF+X1 00471 M00S00471.pflist ---| SX6 DBUF+2 SET DEVICE STATUS ADDRESS 00472 M00S00472.pflist ---| RJ ODV OUTPUT DEVICE STATUS 00473 M00S00473.pflist ---| EQ PRS4 CHECK ARCHIVE FILE COUNT 00474 M00S00474.pflist ---| 00475 M00S00475.pflist ---|* INITIALIZE OUTPUT FILES. 00476 M00S00476.pflist ---| 00477 M00S00477.pflist ---| PRS3 RJ IOF INITIALIZE OUTPUT FILES 00478 M00S00478.pflist ---| PRS4 SA1 CPAR+/COMSPFS/CPNB 00479 M00S00479.pflist ---| NZ X1,PRSX IF ARCHIVE FILE COUNT SPECIFIED 00480 M00S00480.pflist ---| SX6 B1 00481 M00S00481.pflist ---| SA6 A1 SET ARCHIVE FILE COUNT = 1 00482 M00S00482.pflist ---| EQ PRSX RETURN 00483 M00S00483.pflist ---| 00484 M00S00484.pflist ---| 00485 M00S00485.pflist ---| PRSA VFD 12/7700B,12/16B,36/0 00486 M00S00486.pflist ---| PRSB DATA 20HSUMMARY FILE CREATED 00487 M00S00487.pflist ---| TUTA SPACE 4,10 00488 M00S00488.pflist ---|** TUTA - TABLE OF UTILITY ATTRIBUTES. 00489 M00S00489.pflist ---| 00490 M00S00490.pflist ---| 00491 M00S00491.pflist ---| TUTA IVFD TABLE OF UTILITY NAMES 00492 M00S00492.pflist ---| IVFD /COMSPFS/LDUT,(42/0LPFLOAD,18/1) 00493 M00S00493.pflist ---| IVFD /COMSPFS/DUUT,(42/0LPFDUMP,18/1) 00494 M00S00494.pflist ---| IVFD /COMSPFS/CAUT,(42/0LPFCAT,18/1) 00495 M00S00495.pflist ---| IVFD /COMSPFS/ATUT,(42/0LPFATC,18/0) 00496 M00S00496.pflist ---| IVFD /COMSPFS/COUT,(42/0LPFCOPY,18/0) 00497 M00S00497.pflist ---| IVFD /COMSPFS/RLUT,(42/0LPFREL,18/1) 00498 M00S00498.pflist ---| IVFD /COMSPFS/LIUT,(42/0LPFLIST,18/0) 00499 M00S00499.pflist ---| IVFD /COMSPFS/RSUT,(42/0LPFRES,18/0) 00500 M00S00500.pflist ---| IVFD /COMSPFS/MXUT,(60/0) 00501 M00S00501.pflist ---| IVFD /COMSPFS/MXUT+1 00502 M00S00502.pflist ---| 00503 M00S00503.pflist ---| SPACE 4 00504 M00S00504.pflist ---|** PRESET COMMON DECKS. 00505 M00S00505.pflist ---| 00506 M00S00506.pflist ---| 00507 M00S00507.pflist ---| LIST X 00508 M00S00508.pflist ---|*CALL COMCPFP 00509 M00S00509.pflist ---| LIST * 00510 M00S00510.pflist ---| 00511 M00S00511.pflist ---| 00512 M00S00512.pflist ---| ERRPL *-EBUF-1 PRESET OVERFLOWS INTO BUFFERS 00513 M00S00513.pflist ---| SPACE 4 00514 M00S00514.pflist ---| END
cdc/nos2.source/opl.opl871/deck/pflist.txt · Last modified: by 127.0.0.1