Action unknown: copypageplugin__copy
cdc:nos2.source:opl.opl871:common:comcpfs.002
Common COMCPFS Part 002
10 Modifications
Listing Sections
- Common COMCPFS Start
- Common COMCPFS Part 1 (Line 1561)
- Common COMCPFS Part 2 (Line 3008)
- Common COMCPFS Part 3 (Line 4448)
Source
Seq # *Modification Id* Act ----------------------------+ 03008 M00S01225.comcpfs +++|
| Line S01677 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 03009 M01S01677.286l859 +++|* OUTPUT ARCHIVE FILE LABEL PARAMETERS. 03010 M01S01678.286l859 +++| 03011 M01S01679.286l859 +++| PLP6 RJ OAL OUTPUT ARCHIVE LABEL PARAMETERS 03012 M01S01680.286l859 +++| 03013 M00S01226.comcpfs +++| PLP SUBR ENTRY/EXIT 03014 M00S01227.comcpfs +++|
| Line S01228 Modification History | |
|---|---|
M01 (Removed by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 03015 M01S01228.286l859 ---|* SET LABEL PARAMETERS IN OUTPUT FILE HEADER.
| Line S01681 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 03016 M01S01681.286l859 +++|* BUILD ARCHIVE FILE IDENTIFIER BLOCK. 03017 M00S01229.comcpfs +++|
| Line S01230 Modification History | |
|---|---|
M01 (Removed by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 03018 M01S01230.286l859 ---| ZR X0,PLP2 IF ARCHIVE FILE LABEL NOT FOUND 03019 M01S01231.286l859 ---| MOVE 2,PLPA,PGTB+1 03020 M01S01232.286l859 ---| SA1 X0+/COMSPFS/DAAL SET LABEL DATE 03021 M01S01233.286l859 ---| SA2 X0+/COMSPFS/TIAL SET LABEL TIME 03022 M01S01234.286l859 ---| BX6 X1 03023 M01S01235.286l859 ---| BX7 X2 03024 M01S01236.286l859 ---| SA6 PGAD SET ARCHIVE FILE DATE 03025 M01S01237.286l859 ---| SA7 PGAT SET ARCHIVE FILE TIME 03026 M01S01238.286l859 ---| SA1 X0+/COMSPFS/FMAL 03027 M01S01239.286l859 ---| SB2 1R? 03028 M01S01240.286l859 ---| SB3 PGAF SET ASSEMBLY ADDRESS 03029 M01S01241.286l859 ---| SB5 -PLPB 03030 M01S01242.286l859 ---| NZ X1,PLP1 IF FAMILY NAME PRESENT 03031 M01S01243.286l859 ---| SA1 X0+/COMSPFS/PNAL USE PACK NAME 03032 M01S01244.286l859 ---| SB5 -PLPC 03033 M01S01245.286l859 ---| PLP1 MX6 42 03034 M01S01246.286l859 ---| BX1 X6*X1 03035 M01S01247.286l859 ---| RJ SNM SET FAMILY OR PACK NAME 03036 M01S01248.286l859 ---| SA1 PGAF+1 BLANK FILL FAMILY OR PACK NAME 03037 M01S01249.286l859 ---| RJ ZTB 03038 M01S01250.286l859 ---| SA6 PGAF+1 03039 M01S01251.286l859 ---| SA1 PGAF+2 03040 M01S01252.286l859 ---| RJ ZTB 03041 M01S01253.286l859 ---| SA6 PGAF+2 03042 M01S01254.286l859 ---| EQ PLP3 CHECK SUMMARY FILE 03043 M01S01255.286l859 ---| 03044 M01S01256.286l859 ---| PLP2 MOVE 8,PLPD,PGTB+1 SET LABEL NOT FOUND MESSAGE 03045 M01S01257.286l859 ---| 03046 M01S01258.286l859 ---|* BUILD SUMMARY FILE ARCHIVE FILE IDENTIFIER BLOCK. 03047 M01S01259.286l859 ---| 03048 M01S01260.286l859 ---| PLP3 SA1 CPAR+/COMSPFS/CPSU 03049 M01S01261.286l859 ---| ZR X1,PLPX IF SUMMARY FILE NOT SELECTED 03050 M01S01262.286l859 ---| ZR X0,PLP4 IF ARCHIVE FILE LABEL NOT FOUND 03051 M01S01263.286l859 ---| SA1 X0+/COMSPFS/FMAL SET FAMILY OR PACK NAME 03052 M01S01264.286l859 ---| SA2 X0+/COMSPFS/PNAL
| Line S01682 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 03053 M01S01682.286l859 +++| SX1 A0+ 03054 M01S01683.286l859 +++| ZR X1,PLP1 IF ARCHIVE FILE LABEL NOT FOUND 03055 M01S01684.286l859 +++| SA1 A0+/COMSPFS/FMAL SET FAMILY OR PACK NAME 03056 M01S01685.286l859 +++| SA2 A0+/COMSPFS/PNAL 03057 M00S01265.comcpfs +++| MX7 42 03058 M00S01266.comcpfs +++| BX6 X7*X1 03059 M00S01267.comcpfs +++| BX7 X7*X2
| Line S01268 Modification History | |
|---|---|
M01 (Removed by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 03060 M01S01268.286l859 ---| SA6 PLPE
| Line S01686 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 03061 M01S01686.286l859 +++| SA6 AFIB 03062 M00S01269.comcpfs +++| SA7 A6+B1
| Line S01270 Modification History | |
|---|---|
M01 (Removed by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 03063 M01S01270.286l859 ---| SA1 X0+/COMSPFS/TIAL 03064 M01S01271.286l859 ---| SA2 X0+/COMSPFS/DAAL
| Line S01687 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 03065 M01S01687.286l859 +++| SA1 A0+/COMSPFS/TIAL 03066 M01S01688.286l859 +++| SA2 A0+/COMSPFS/DAAL 03067 M00S01272.comcpfs +++| BX6 X1 SAVE TIME
| Line S01273 Modification History | |
|---|---|
M01 (Removed by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 03068 M01S01273.286l859 ---| SA6 PLPF
| Line S01689 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 03069 M01S01689.286l859 +++| SA6 PLPA 03070 M00S01274.comcpfs +++| RJ REC REMOVE EDIT CHARACTERS FROM DATE 03071 M00S01275.comcpfs +++| SX2 B0+ SET DATE CONVERSION 03072 M00S01276.comcpfs +++| RJ VDT CONVERT DATE TO PACKED FORMAT
| Line S01277 Modification History | |
|---|---|
M01 (Removed by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 03073 M01S01277.286l859 ---| NG X6,PLP4 IF ERROR IN DATE
| Line S01690 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 03074 M01S01690.286l859 +++| NG X6,PLP1 IF ERROR IN DATE 03075 M00S01278.comcpfs +++| LX6 18
| Line S01279 Modification History | |
|---|---|
M01 (Removed by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 03076 M01S01279.286l859 ---| SA6 PLPE+2 03077 M01S01280.286l859 ---| SA2 PLPF
| Line S01691 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 03078 M01S01691.286l859 +++| SA6 AFIB+2 03079 M01S01692.286l859 +++| SA2 PLPA 03080 M00S01281.comcpfs +++| RJ REC REMOVE EDIT CHARACTERS FROM TIME 03081 M00S01282.comcpfs +++| SX2 B1+ SET TIME CONVERSION 03082 M00S01283.comcpfs +++| RJ VDT CONVERT TIME TO PACKED FORMAT
| Line S01284 Modification History | |
|---|---|
M01 (Removed by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 03083 M01S01284.286l859 ---| NG X6,PLP4 IF ERROR IN TIME 03084 M01S01285.286l859 ---| SA1 PLPE+2 MERGE PACKED DATE AND TIME
| Line S01693 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 03085 M01S01693.286l859 +++| NG X6,PLP1 IF ERROR IN TIME 03086 M01S01694.286l859 +++| SA1 AFIB+2 MERGE PACKED DATE AND TIME 03087 M00S01286.comcpfs +++| BX6 X6+X1 03088 M00S01287.comcpfs +++| SA6 A1
| Line S01288 Modification History | |
|---|---|
M01 (Removed by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 03089 M01S01288.286l859 ---| EQ PLP5 WRITE BLOCK TO FILE
| Line S01695 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 03090 M01S01695.286l859 +++| EQ PLP2 PROCESS DEVICE PARAMETERS 03091 M00S01289.comcpfs +++|
| Line S01290 Modification History | |
|---|---|
M01 (Removed by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 03092 M01S01290.286l859 ---| PLP4 SX6 B0+ CLEAR ALL INFORMATION IN BLOCK 03093 M01S01291.286l859 ---| SA6 PLPE 03094 M01S01292.286l859 ---| SA6 PLPE+1 03095 M01S01293.286l859 ---| SA6 PLPE+2 03096 M01S01294.286l859 ---| PLP5 RJ FAB FLUSH ASSEMBLY BUFFER 03097 M01S01295.286l859 ---| SA1 AFID SET ARCHIVE FILE BLOCK IDENTIFIER 03098 M01S01296.286l859 ---| BX6 X1 03099 M01S01297.286l859 ---| SA6 CFBI 03100 M01S01298.286l859 ---| SX1 3 SET BLOCK WORD COUNT 03101 M01S01299.286l859 ---| SX2 PLPE SET DATA ADDRESS 03102 M01S01300.286l859 ---| SX0 3 SET NUMBER OF WORDS TO ALLOCATE 03103 M01S01301.286l859 ---| RJ MWA MOVE DATA TO ASSEMBLY BUFFER 03104 M01S01302.286l859 ---| EQ PLPX RETURN
| Line S01696 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 03105 M01S01696.286l859 +++| PLP1 SX6 B0 CLEAR ALL INFORMATION IN BLOCK 03106 M01S01697.286l859 +++| SA6 AFIB 03107 M01S01698.286l859 +++| SA6 A6+B1 03108 M01S01699.286l859 +++| SA6 A6+B1 03109 M01S01700.286l859 +++| EQ PLP6 OUTPUT LABEL PARAMETERS 03110 M00S01303.comcpfs +++|
| Line S01701 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 03111 M01S01701.286l859 +++|* PROCESS *PFDUMP* DEVICE PARAMETERS. IF A SUBFAMILY USER 03112 M01S01702.286l859 +++|* INDEX IS SELECTED, NO DEVICE POSITION WILL BE SET SINCE 03113 M01S01703.286l859 +++|* *MSS* AND *MSE* CATALOGS ARE NOT DUMPED IN DEVICE ORDER. 03114 M00S01304.comcpfs +++|
| Line S01305 Modification History | |
|---|---|
M01 (Removed by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 03115 M01S01305.286l859 ---| PLPA DATA 20HARCHIVE FILE CREATED 03116 M01S01306.286l859 ---| PLPB DATA C*ARCHIVE FAMILY = ???????.* 03117 M01S01307.286l859 ---| PLPC DATA C*ARCHIVE PACK NAME = ???????.* 03118 M01S01308.286l859 ---| PLPD DATA 80HARCHIVE FILE LABEL NOT FOUND. 03119 M01S01309.286l859 ---| PLPE BSSZ 3 ARCHIVE FILE IDENTIFIER BLOCK 03120 M01S01310.286l859 ---| PLPF CON 0 ARCHIVE FILE TIME
| Line S01704 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 03121 M01S01704.286l859 +++| PLP2 SA1 CPAR+/COMSPFS/CPNB 03122 M01S01705.286l859 +++| SX1 X1-2 03123 M01S01706.286l859 +++| PL X1,PLP6 IF NOT LAST ARCHIVE FILE 03124 M01S01707.286l859 +++| SA1 /COMSPFS/FISP 03125 M01S01708.286l859 +++| ZR X1,PLP3 IF NO FILE SELECTIONS 03126 M01S01709.286l859 +++| RJ SUM SET MASK FOR REMAINING FILE SELECTIONS 03127 M01S01710.286l859 +++| SX6 X4+ 03128 M01S01711.286l859 +++| SA6 FLSM SET FILE SELECTION MASK 03129 M01S01712.286l859 +++| PLP3 SA1 A0+/COMSPFS/MAAL 03130 M01S01713.286l859 +++| MX6 -8 03131 M01S01714.286l859 +++| BX6 -X6*X1 03132 M01S01715.286l859 +++| SA6 AFDM SET DUMP MASK 03133 M01S01716.286l859 +++| LX1 59-35 03134 M01S01717.286l859 +++| PL X1,PLP6 IF DEVICE INFORMATION NOT PRESENT 03135 M01S01718.286l859 +++| SA1 /COMSPFS/FISP 03136 M01S01719.286l859 +++| ZR X1,PLP6 IF NO USER INDEX SELECTIONS 03137 M01S01720.286l859 +++| RJ BST BUILD SUBFAMILY DEVICE TABLE 03138 M01S01721.286l859 +++| SA1 /COMSPFS/FISP 03139 M01S01722.286l859 +++| SB5 X1 SET SELECTIONS TABLE ADDRESS 03140 M01S01723.286l859 +++| SX5 B0 INITIALIZE DEVICE PARAMETERS 03141 M01S01724.286l859 +++| PLP4 SA1 B5 GET NEXT ENTRY 03142 M01S01725.286l859 +++| SX7 377770B 03143 M01S01726.286l859 +++| BX6 X5 03144 M01S01727.286l859 +++| ZR X1,PLP5 IF END OF ENTRIES 03145 M01S01728.286l859 +++| BX6 X7*X1 03146 M01S01729.286l859 +++| LX1 59-17 03147 M01S01730.286l859 +++| SX6 X6-SBUI 03148 M01S01731.286l859 +++| NG X1,PLP4 IF PROCESSED FILE NAME ENTRY 03149 M01S01732.286l859 +++| ZR X6,PLP6 IF SUBFAMILY USER INDEX 03150 M01S01733.286l859 +++| LX1 18 03151 M01S01734.286l859 +++| MX2 -3 03152 M01S01735.286l859 +++| BX2 -X2*X1 SUBFAMILY 03153 M01S01736.286l859 +++| SA2 SFDT+X2 03154 M01S01737.286l859 +++| LX1 -3 03155 M01S01738.286l859 +++| SX3 X2 CATALOG TRACK MASK 03156 M01S01739.286l859 +++| BX1 X3*X1 CATALOG TRACK 03157 M01S01740.286l859 +++| BX2 -X3*X2 ARCHIVE FILE DEVICE ORDINAL 03158 M01S01741.286l859 +++| BX2 X2+X1 DEVICE ORDINAL AND CATALOG TRACK 03159 M01S01742.286l859 +++| SB5 B5+B1 ADVANCE ENTRY ADDRESS 03160 M01S01743.286l859 +++| IX1 X5-X2 03161 M01S01744.286l859 +++| PL X1,PLP4 IF PREVIOUS UI POSITION NOT BEFORE CURRENT 03162 M01S01745.286l859 +++| BX5 X2 UPDATE DEVICE PARAMETERS 03163 M01S01746.286l859 +++| EQ PLP4 GET NEXT ENTRY 03164 M01S01747.286l859 +++| 03165 M01S01748.286l859 +++| PLP5 SA6 MXDC SET MAXIMUM DEVICE AND CATALOG TRACK 03166 M01S01749.286l859 +++| EQ PLP6 OUTPUT LABEL PARAMETERS 03167 M01S01750.286l859 +++| 03168 M01S01751.286l859 +++| 03169 M01S01752.286l859 +++| PLPA CON 0 ARCHIVE FILE TIME 03170 M00S01311.comcpfs +++| REC SPACE 4,10 03171 M00S01312.comcpfs +++|** REC - REMOVE EDIT CHARACTERS FROM DATE OR TIME. 03172 M00S01313.comcpfs +++|* 03173 M00S01314.comcpfs +++|* ENTRY (X2) = DATE IN YY/MM/DD. FORMAT OR TIME IN HH.MM.SS. 03174 M00S01315.comcpfs +++|* FORMAT. 03175 M00S01316.comcpfs +++|* 03176 M00S01317.comcpfs +++|* EXIT (X1) = DATE IN YYMMDD FORMAT OR TIME IN HHMMSS FORMAT 03177 M00S01318.comcpfs +++|* (LEFT JUSTIFIED). 03178 M00S01319.comcpfs +++|* 03179 M00S01320.comcpfs +++|* USES X - 1, 2, 6, 7. 03180 M00S01321.comcpfs +++| 03181 M00S01322.comcpfs +++| 03182 M00S01323.comcpfs +++| REC SUBR ENTRY/EXIT 03183 M00S01324.comcpfs +++| MX6 12 03184 M00S01325.comcpfs +++| LX2 6 03185 M00S01326.comcpfs +++| BX1 X6*X2 YY OR HH 03186 M00S01327.comcpfs +++| LX2 6 03187 M00S01328.comcpfs +++| LX6 -12 03188 M00S01329.comcpfs +++| BX7 X6*X2 03189 M00S01330.comcpfs +++| BX1 X1+X7 YYMM OR HHMM 03190 M00S01331.comcpfs +++| LX2 6 03191 M00S01332.comcpfs +++| LX6 -12 03192 M00S01333.comcpfs +++| BX7 X6*X2 03193 M00S01334.comcpfs +++| BX1 X1+X7 YYMMDD OR HHMMSS 03194 M00S01335.comcpfs +++| EQ RECX RETURN
| Line S01753 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 03195 M01S01753.286l859 +++| SFDT SPACE 4,10 03196 M01S01754.286l859 +++|** SFDT - SUBFAMILY MASTER DEVICE TABLE. 03197 M01S01755.286l859 +++|* 03198 M01S01756.286l859 +++|* INDEXED BY SUBFAMILY (BITS 0 - 2 OF USER INDEX). 03199 M01S01757.286l859 +++|* 03200 M01S01758.286l859 +++|* ENTRY FORMAT - 03201 M01S01759.286l859 +++|* 03202 M01S01760.286l859 +++|* 24/ 0,12/ DO,24/ CTM. 03203 M01S01761.286l859 +++|* 03204 M01S01762.286l859 +++|* DO = MASTER DEVICE ORDINAL ON ARCHIVE FILE (ORDER IN WHICH 03205 M01S01763.286l859 +++|* FILES CATALOGED ON DEVICE WERE DUMPED). 03206 M01S01764.286l859 +++|* CTM = CATALOG TRACK MASK. 03207 M01S01765.286l859 +++| 03208 M01S01766.286l859 +++| 03209 M01S01767.286l859 +++| SFDT BSSZ 10B SUBFAMILY DEVICE TABLE 03210 M01S01768.286l859 +++| SPACE 4,10 03211 M01S01769.286l859 +++| 03212 M01S01770.286l859 +++| 03213 M01S01771.286l859 +++| AFDM CON 377B ARCHIVE FILE DUMP MASK 03214 M01S01772.286l859 +++| FLSM CON 377B FILE SELECTIONS MASK 03215 M01S01773.286l859 +++| MXDC CON 0 MAXIMUM DEVICE AND CATALOG TRACK SELECTED 03216 M00S01336.comcpfs +++| PFA$ ENDIF 03217 M00S01337.comcpfs +++| SPACE 4,10
| Line S01774 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 03218 M01S01774.286l859 +++| PFR$ IF DEF,PFR$ 03219 M01S01775.286l859 +++| TITLE COMCPFS - ARCHIVE FILE READ ROUTINES. 03220 M01S01776.286l859 +++| CWR SPACE 4,60 03221 M01S01777.286l859 +++|** CWR - CONTROL WORD READ WORDS. 03222 M01S01778.286l859 +++|* 03223 M01S01779.286l859 +++|* ENTRY (X2) = FET ADDRESS. 03224 M01S01780.286l859 +++|* (B6) = FWA OF WORKING BUFFER. 03225 M01S01781.286l859 +++|* (B7) = WORD COUNT OF WORKING BUFFER. 03226 M01S01782.286l859 +++|* (X2+CWSW) = 0 FOR FIRST CALL. 03227 M01S01783.286l859 +++|* = CONTENTS AT EXIT FROM PREVIOUS CALL, 03228 M01S01784.286l859 +++|* OTHERWISE. 03229 M01S01785.286l859 +++|* 03230 M01S01786.286l859 +++|* EXIT (X1) = 0 FOR TRANSFER COMPLETE. 03231 M01S01787.286l859 +++|* = (B6) FOR EOR DETECTED ON FILE. 03232 M01S01788.286l859 +++|* = -1 FOR EOF DETECTED ON FILE. 03233 M01S01789.286l859 +++|* = -2 FOR EOI DETECTED ON FILE. 03234 M01S01790.286l859 +++|* (X2) = FET ADDRESS. 03235 M01S01791.286l859 +++|* (X7) = 0 IF NO ERROR DETECTED. 03236 M01S01792.286l859 +++|* = ERROR CODE FROM FET IF ERROR DETECTED. 03237 M01S01793.286l859 +++|* (B6) = ADDRESS PLUS ONE OF LAST WORD TRANSFERRED TO 03238 M01S01794.286l859 +++|* WORKING BUFFER. 03239 M01S01795.286l859 +++|* (B7) = WORD COUNT REMAINING TO BE TRANSFERRED. 03240 M01S01796.286l859 +++|* 03241 M01S01797.286l859 +++|* *CWSW* IS A STATUS WORD USED BY *CWR* TO UNPACK 03242 M01S01798.286l859 +++|* CONTROL WORD BLOCKS. THIS WORD SHOULD BE CLEARED BY 03243 M01S01799.286l859 +++|* THE CALLER BEFORE THE FIRST CALL TO *CWR*. WHEN AN 03244 M01S01800.286l859 +++|* EOR/EOF TERMINATION STATUS IS INDICATED BY *CWR* AS A 03245 M01S01801.286l859 +++|* RESULT OF DETECTING A SHORT BLOCK IN THE BUFFER, 03246 M01S01802.286l859 +++|* *CWSW* WILL BE NON-ZERO. SUBSEQUENT CALLS TO *CWR* 03247 M01S01803.286l859 +++|* WILL THEN CONTINUE TO INDICATE EOR/EOF TERMINATION 03248 M01S01804.286l859 +++|* STATUS UNTIL *CWSW* IS AGAIN CLEARED BY THE CALLER. 03249 M01S01805.286l859 +++|* THUS THE CLEARING OF *CWSW* IS ANALOGOUS TO THE USE 03250 M01S01806.286l859 +++|* OF THE *READ* MACRO TO ADVANCE PAST EOR/EOF WHEN 03251 M01S01807.286l859 +++|* USING *CIO* BUFFER READ OPERATIONS. 03252 M01S01808.286l859 +++|* 03253 M01S01809.286l859 +++|* BEFORE THE FIRST CALL TO *CWR* OR FOLLOWING THE 03254 M01S01810.286l859 +++|* DETECTION OF EOF/EOI IN THE FET STATUS FIELD, THE 03255 M01S01811.286l859 +++|* *READCW* MACRO MUST BE ISSUED TO INITIATE A CONTROL 03256 M01S01812.286l859 +++|* WORD READ OPERATION. IF THE READ IS TO EOF 03257 M01S01813.286l859 +++|* (*READCW FET,17B*), AN EOF TERMINATION STATUS 03258 M01S01814.286l859 +++|* INDICATES THAT AN EOF WAS DETECTED IN THE FET AND A 03259 M01S01815.286l859 +++|* NEW READ MUST BE ISSUED IN ADDITION TO CLEARING *CWSW* 03260 M01S01816.286l859 +++|* IN ORDER TO ADVANCE PAST EOF. IF THE READ IS TO EOI 03261 M01S01817.286l859 +++|* (*READCW FET,0*), AN EOF TERMINATION STATUS 03262 M01S01818.286l859 +++|* INDICATES THAT AN EOF BLOCK WAS DETECTED IN THE BUFFER 03263 M01S01819.286l859 +++|* AND THAT ONLY *CWSW* NEED BE CLEARED TO ADVANCE PAST 03264 M01S01820.286l859 +++|* EOF. 03265 M01S01821.286l859 +++|* 03266 M01S01822.286l859 +++|* NOTE THAT THE FIRST TIME (X7) INDICATES AN ERROR, NO 03267 M01S01823.286l859 +++|* BAD DATA WILL BE TRANSFERRED TO THE WORKING BUFFER. 03268 M01S01824.286l859 +++|* SUBSEQUENT CALLS WILL CONTINUE TO INDICATE THE ERROR 03269 M01S01825.286l859 +++|* BY THE (X7) AND WILL TRANSFER BAD DATA IF AVAILABLE. 03270 M01S01826.286l859 +++|* IN ALL ERROR CASES (X1) WILL INDICATE EOR/EOF/EOI 03271 M01S01827.286l859 +++|* STATUS AND (B6) AND (B7) WILL INDICATE WORKING BUFFER 03272 M01S01828.286l859 +++|* STATUS AS FOR NON-ERROR CASES. IN ERROR CASES, 03273 M01S01829.286l859 +++|* HOWEVER, EVEN THOUGH (X1) MAY BE ZERO INDICATING 03274 M01S01830.286l859 +++|* TRANSFER COMPLETE, (B6) OR (B7) MUST BE ANALYZED TO 03275 M01S01831.286l859 +++|* DETERMINE HOW MUCH DATA WAS ACTUALLY TRANSFERRED TO 03276 M01S01832.286l859 +++|* THE WORKING BUFFER. 03277 M01S01833.286l859 +++|* 03278 M01S01834.286l859 +++|* USES X - 1, 3, 4, 6, 7. 03279 M01S01835.286l859 +++|* A - 1, 3, 4, 6, 7. 03280 M01S01836.286l859 +++|* B - 5, 6, 7. 03281 M01S01837.286l859 +++|* 03282 M01S01838.286l859 +++|* MACROS READW, RECALL. 03283 M01S01839.286l859 +++| 03284 M01S01840.286l859 +++| 03285 M01S01841.286l859 +++|* SET ERROR STATUS CODE. 03286 M01S01842.286l859 +++| 03287 M01S01843.286l859 +++| CWR11 PL X3,CWRX IF CURRENT BLOCK NOT BAD 03288 M01S01844.286l859 +++| BX4 X1 SAVE TERMINATION STATUS 03289 M01S01845.286l859 +++| RECALL X2 WAIT FOR FILE NOT BUSY 03290 M01S01846.286l859 +++| SA1 X2 GET ERROR CODE FROM FET 03291 M01S01847.286l859 +++| SX3 36000B 03292 M01S01848.286l859 +++| BX7 X3*X1 03293 M01S01849.286l859 +++| SX1 X4 RESTORE TERMINATION STATUS 03294 M01S01850.286l859 +++| LX7 -10 03295 M01S01851.286l859 +++| 03296 M01S01852.286l859 +++| CWR SUBR ENTRY/EXIT 03297 M01S01853.286l859 +++| 03298 M01S01854.286l859 +++|* TRANSFER DATA TO WORKING BUFFER. 03299 M01S01855.286l859 +++| 03300 M01S01856.286l859 +++| CWR1 SA3 X2+CWSW GET CONTROL WORD STATUS 03301 M01S01857.286l859 +++| BX7 X7-X7 CLEAR ERROR STATUS 03302 M01S01858.286l859 +++| SX1 B0 SET TRANSFER COMPLETE STATUS 03303 M01S01859.286l859 +++| ZR B7,CWR11 IF WORKING BUFFER FULL 03304 M01S01860.286l859 +++| SB5 X3-1 03305 M01S01861.286l859 +++| LE B5,CWR3 IF CURRENT BLOCK EMPTY 03306 M01S01862.286l859 +++| SX6 B7-B5 SET REMAINING WORKING BUFFER LENGTH 03307 M01S01863.286l859 +++| GE B7,B5,CWR2 IF BLOCK WILL FIT IN BUFFER 03308 M01S01864.286l859 +++| BX6 X6-X6 03309 M01S01865.286l859 +++| SB5 B7 SET TO FILL BUFFER 03310 M01S01866.286l859 +++| CWR2 SA6 CWRA SAVE REMAINING WORKING BUFFER LENGTH 03311 M01S01867.286l859 +++| SX1 B5 UPDATE BLOCK WORD COUNT 03312 M01S01868.286l859 +++| IX7 X3-X1 03313 M01S01869.286l859 +++| SA7 A3 03314 M01S01870.286l859 +++| READW X2,B6,B5 TRANSFER DATA TO WORKING BUFFER 03315 M01S01871.286l859 +++| SA1 CWRA RESTORE WORKING BUFFER LENGTH 03316 M01S01872.286l859 +++| SB7 B7+X1 03317 M01S01873.286l859 +++| EQ CWR1 FILL REMAINDER OF WORKING BUFFER 03318 M01S01874.286l859 +++| 03319 M01S01875.286l859 +++|* SAVE WORKING BUFFER PARAMETERS. 03320 M01S01876.286l859 +++| 03321 M01S01877.286l859 +++| CWR3 SX6 B7 SAVE WORKING BUFFER LENGTH 03322 M01S01878.286l859 +++| SX7 B6 SAVE WORKING BUFFER ADDRESS 03323 M01S01879.286l859 +++| SA6 CWRA 03324 M01S01880.286l859 +++| SA7 A6+B1 03325 M01S01881.286l859 +++| LX3 -18 03326 M01S01882.286l859 +++| ZR B5,CWR9 IF SECOND CONTROL WORD LEFT 03327 M01S01883.286l859 +++| 03328 M01S01884.286l859 +++|* PROCESS FIRST CONTROL WORD. 03329 M01S01885.286l859 +++| 03330 M01S01886.286l859 +++| CWR4 SA4 CWRC 03331 M01S01887.286l859 +++| PL X4,CWR5 IF LAST BLOCK NOT BAD 03332 M01S01888.286l859 +++| RECALL X2 03333 M01S01889.286l859 +++| SA3 X2 CLEAR ERROR STATUS 03334 M01S01890.286l859 +++| SX6 36000B 03335 M01S01891.286l859 +++| BX6 -X6*X3 03336 M01S01892.286l859 +++| SA6 A3 03337 M01S01893.286l859 +++| CWR5 READW X2,CWRB,1 READ FIRST CONTROL WORD 03338 M01S01894.286l859 +++| SA3 CWRA RESTORE WORKING BUFFER LENGTH 03339 M01S01895.286l859 +++| SA4 A3+B1 RESTORE WORKING BUFFER ADDRESS 03340 M01S01896.286l859 +++| SB5 B7 SAVE TRANSFER COMPLETE STATUS 03341 M01S01897.286l859 +++| SB7 X3 03342 M01S01898.286l859 +++| SB6 X4 03343 M01S01899.286l859 +++| NZ B5,CWR7 IF CONTROL WORD NOT READ 03344 M01S01900.286l859 +++| SA1 CWRB BLOCK SIZE = BYTE COUNT / 5 03345 M01S01901.286l859 +++| SX6 5 03346 M01S01902.286l859 +++| SX3 X1 03347 M01S01903.286l859 +++| PX3 X3 03348 M01S01904.286l859 +++| PX6 X6 03349 M01S01905.286l859 +++| NX6 X6 03350 M01S01906.286l859 +++| FX7 X3/X6 03351 M01S01907.286l859 +++| UX7,B5 X7 03352 M01S01908.286l859 +++| LX7 X7,B5 03353 M01S01909.286l859 +++| MX4 1 SAVE ERROR FLAG 03354 M01S01910.286l859 +++| BX3 X4*X1 03355 M01S01911.286l859 +++| LX1 -36 GET PRU SIZE 03356 M01S01912.286l859 +++| SX6 X7+B1 ALLOW FOR SECOND CONTROL WORD 03357 M01S01913.286l859 +++| SX1 X1 03358 M01S01914.286l859 +++| IX7 X7-X1 CHECK FOR SHORT BLOCK 03359 M01S01915.286l859 +++| BX6 X3+X6 03360 M01S01916.286l859 +++| ZR X7,CWR6 IF FULL BLOCK 03361 M01S01917.286l859 +++| LX4 18-59 SET SHORT BLOCK FLAG 03362 M01S01918.286l859 +++| BX6 X6+X4 03363 M01S01919.286l859 +++| CWR6 SA4 X2+CWSW GET OLD STATUS WORD 03364 M01S01920.286l859 +++| SA6 CWRC 03365 M01S01921.286l859 +++| SA6 A4 SAVE NEW STATUS WORD 03366 M01S01922.286l859 +++| BX6 X4-X6 03367 M01S01923.286l859 +++| PL X6,CWR1 IF NO CHANGE IN BLOCK STATUS 03368 M01S01924.286l859 +++| BX1 X1-X1 SET TRANSFER COMPLETE STATUS 03369 M01S01925.286l859 +++| EQ CWR11 GET ERROR STATUS 03370 M01S01926.286l859 +++| 03371 M01S01927.286l859 +++|* PROCESS EOF/EOI AND FET ERROR CODE STATUS. 03372 M01S01928.286l859 +++| 03373 M01S01929.286l859 +++| CWR7 SX3 X1+3 03374 M01S01930.286l859 +++| ZR X3,CWR8 IF READ ERROR 03375 M01S01931.286l859 +++| BX7 X7-X7 CLEAR ERROR STATUS 03376 M01S01932.286l859 +++| EQ CWRX RETURN 03377 M01S01933.286l859 +++| 03378 M01S01934.286l859 +++| CWR8 BX6 X6-X6 CLEAR STATUS WORD 03379 M01S01935.286l859 +++| BX1 X1-X1 03380 M01S01936.286l859 +++| SA6 X2+CWSW 03381 M01S01937.286l859 +++| EQ CWRX RETURN 03382 M01S01938.286l859 +++| 03383 M01S01939.286l859 +++|* PROCESS SECOND CONTROL WORD. 03384 M01S01940.286l859 +++| 03385 M01S01941.286l859 +++| CWR9 SX4 X3-2 03386 M01S01942.286l859 +++| PL X4,CWR10 IF SECOND CONTROL WORD ALREADY READ 03387 M01S01943.286l859 +++| READW X2,CWRB,1 READ SECOND CONTROL WORD 03388 M01S01944.286l859 +++| SA3 X2+CWSW CHECK SHORT BLOCK STATUS 03389 M01S01945.286l859 +++| LX3 -18 03390 M01S01946.286l859 +++| SX6 X3 03391 M01S01947.286l859 +++| ZR X6,CWR4 IF NOT SHORT BLOCK 03392 M01S01948.286l859 +++| SA4 B6-B1 GET END OF RECORD LEVEL NUMBER 03393 M01S01949.286l859 +++| IX3 X3+X6 03394 M01S01950.286l859 +++| AX4 48 03395 M01S01951.286l859 +++| IX6 X3+X4 SAVE LEVEL NUMBER IN STATUS WORD 03396 M01S01952.286l859 +++| LX6 18 03397 M01S01953.286l859 +++| SA6 A3 03398 M01S01954.286l859 +++| CWR10 SB5 X4-17B 03399 M01S01955.286l859 +++| SA4 CWRA RESTORE WORKING BUFFER LENGTH 03400 M01S01956.286l859 +++| LX3 18 03401 M01S01957.286l859 +++| SA1 A4+B1 RESTORE WORKING BUFFER ADDRESS 03402 M01S01958.286l859 +++| SB7 X4 03403 M01S01959.286l859 +++| BX7 X7-X7 CLEAR ERROR STATUS 03404 M01S01960.286l859 +++| SB6 X1 03405 M01S01961.286l859 +++| NZ B5,CWR11 IF NOT LEVEL 17B END OF RECORD 03406 M01S01962.286l859 +++| SX1 -B1 SET EOF STATUS 03407 M01S01963.286l859 +++| EQ CWR11 SET ERROR STATUS CODE 03408 M01S01964.286l859 +++| 03409 M01S01965.286l859 +++| 03410 M01S01966.286l859 +++| CWRA BSSZ 2 WORKING BUFFER PARAMETER STORAGE 03411 M01S01967.286l859 +++| CWRB CON 0 CONTROL WORD BUFFER 03412 M01S01968.286l859 +++| CWRC CON 0 STATUS WORD FROM LAST BLOCK 03413 M01S01969.286l859 +++| PFR$ ENDIF 03414 M01S01970.286l859 +++| SPACE 4,10 03415 M01S01971.286l859 +++| DVA$ IF DEF,DVA$ 03416 M01S01972.286l859 +++| TITLE COMCPFS - PERMANENT FILE DEVICE ACCESS ROUTINES. 03417 M01S01973.286l859 +++| SEI SPACE 4,15 03418 M01S01974.286l859 +++|** SEI - SET ERROR IDLE STATUS ON MASTER DEVICE. 03419 M01S01975.286l859 +++|* 03420 M01S01976.286l859 +++|* ENTRY (B2) = ERROR LOG MESSAGE ADDRESS. 03421 M01S01977.286l859 +++|* (MAEQ) = MASTER DEVICE EST ORDINAL. 03422 M01S01978.286l859 +++|* 03423 M01S01979.286l859 +++|* EXIT ERROR IDLE STATUS SET ON MASTER DEVICE. 03424 M01S01980.286l859 +++|* ERROR IDLE MESSAGE ISSUED TO ERROR LOG. 03425 M01S01981.286l859 +++|* 03426 M01S01982.286l859 +++|* USES X - 1, 4, 6. 03427 M01S01983.286l859 +++|* A - 1, 6. 03428 M01S01984.286l859 +++|* B - 2, 3, 5. 03429 M01S01985.286l859 +++|* 03430 M01S01986.286l859 +++|* CALLS COD, SNM. 03431 M01S01987.286l859 +++|* 03432 M01S01988.286l859 +++|* MACROS CALLPFU, MESSAGE. 03433 M01S01989.286l859 +++| 03434 M01S01990.286l859 +++| 03435 M01S01991.286l859 +++| SEI SUBR ENTRY/EXIT 03436 M01S01992.286l859 +++| SA1 MAEQ GET MASTER DEVICE EST ORDINAL 03437 M01S01993.286l859 +++| SX6 1 SET COMPLETION STATUS 03438 M01S01994.286l859 +++| LX1 48 03439 M01S01995.286l859 +++| BX6 X1+X6 03440 M01S01996.286l859 +++| SA6 SEIA 03441 M01S01997.286l859 +++| CALLPFU A6,CTEI,R SET ERROR IDLE STATUS 03442 M01S01998.286l859 +++| SA1 MAEQ 03443 M01S01999.286l859 +++| SX1 X1+1000B FORCE CONVERSION OF LEADING ZEROES 03444 M01S02000.286l859 +++| SB5 -B2 SET TEMPLATE ADDRESS FOR *SNM* 03445 M01S02001.286l859 +++| RJ COD CONVERT EST ORDINAL 03446 M01S02002.286l859 +++| MX6 18 03447 M01S02003.286l859 +++| LX4 6 03448 M01S02004.286l859 +++| BX1 X6*X4 EST ORDINAL 03449 M01S02005.286l859 +++| SB2 1R? 03450 M01S02006.286l859 +++| SB3 MSGB SET ASSEMBLY ADDRESS 03451 M01S02007.286l859 +++| RJ SNM SET EST ORDINAL IN MESSAGE 03452 M01S02008.286l859 +++| MESSAGE MSGB,4 ISSUE ERROR LOG MESSAGE 03453 M01S02009.286l859 +++| EQ SEIX RETURN 03454 M01S02010.286l859 +++| 03455 M01S02011.286l859 +++| 03456 M01S02012.286l859 +++| SEIA BSS 1 *PFU* PARAMETER WORD 03457 M01S02013.286l859 +++| SPACE 4,10 03458 M01S02014.286l859 +++|* ERROR LOG MESSAGES. 03459 M01S02015.286l859 +++| 03460 M01S02016.286l859 +++| 03461 M01S02017.286l859 +++| ELWC DATA C*EQ??? ERROR IDLE SET - PF CATALOG WRITE ERROR.* 03462 M01S02018.286l859 +++| ELLI DATA C*EQ??? ERROR IDLE SET - INDIRECT PF LENGTH ERROR.* 03463 M01S02019.286l859 +++| ELWP DATA C*EQ??? ERROR IDLE SET - PF PERMITS WRITE ERROR.* 03464 M01S02020.286l859 +++| SPACE 4,10 03465 M01S02021.286l859 +++|* GLOBAL DATA LOCATIONS. 03466 M01S02022.286l859 +++| 03467 M01S02023.286l859 +++| 03468 M01S02024.286l859 +++| FMPN BSSZ 1 FAMILY NAME OR PACK NAME 03469 M01S02025.286l859 +++| MASK BSSZ 1 FILE SELECTION MASK 03470 M01S02026.286l859 +++| SXUF BSSZ 1 *SYSTEMX* ONLY UI ON SUBFAMILY 7 FLAG 03471 M01S02027.286l859 +++| SPACE 4,10 03472 M01S02028.286l859 +++|* *GETPFP*, *SETPFP* PARAMETER BLOCKS. 03473 M01S02029.286l859 +++| 03474 M01S02030.286l859 +++| 03475 M01S02031.286l859 +++| SPAR BSSZ 3 MODIFIED PERMANENT FILE PARAMETERS 03476 M01S02032.286l859 +++| GPAR BSSZ 3 ORIGINAL PERMANENT FILE PARAMETERS 03477 M01S02033.286l859 +++| SPACE 4,10 03478 M01S02034.286l859 +++|* CATALOG FILE PARAMETER WORDS. 03479 M01S02035.286l859 +++| 03480 M01S02036.286l859 +++| 03481 M01S02037.286l859 +++|*T PDWD 42/ PN, 6/, 12/ EQ
Figure PDWD
03482 M01S02038.286l859 +++|* PN = PACKNAME FOR AN AUXILIARY DEVICE. 03483 M01S02039.286l859 +++|* = 0 FOR A FAMILY DEVICE. 03484 M01S02040.286l859 +++|* EQ = EST ORDINAL OF A FAMILY DEVICE. 03485 M01S02041.286l859 +++|* = 0 FOR AN AUXILIARY DEVICE. 03486 M01S02042.286l859 +++| 03487 M01S02043.286l859 +++| PDWD BSS 1 PF DESCRIPTION WORD 03488 M01S02044.286l859 +++| MSTT SPACE 4,20 03489 M01S02045.286l859 +++|** MSTT - TABLE OF MST INFORMATION. 03490 M01S02046.286l859 +++|* 03491 M01S02047.286l859 +++|* 2 WORD ENTRIES, TERMINATED WITH A PAIR OF ZERO WORDS. 03492 M01S02048.286l859 +++|* 03493 M01S02049.286l859 +++|*T MSTT 12/ DATA,12/ CATS,12/ PETS,9/ NCTR,9/ EQ,6/ DN
Figure MSTT
03494 M01S02050.286l859 +++|*T MSTT+1 12/ MSTA,12/ SL,6/ AL,12/ MN,1/,1/0,8/ SM,8/ DM
Figure MSTT+1
03495 M01S02051.286l859 +++|* 03496 M01S02052.286l859 +++|* DATA = FIRST TRACK OF INDIRECT DATA CHAIN. 03497 M01S02053.286l859 +++|* CATS = FIRST CATALOG TRACK. 03498 M01S02054.286l859 +++|* PETS = FIRST TRACK OF PERMIT CHAIN. 03499 M01S02055.286l859 +++|* NCTR = NUMBER OF CATALOG TRACKS. 03500 M01S02056.286l859 +++|* EQ = EST ORDINAL OF DEVICE. 03501 M01S02057.286l859 +++|* DN = DEVICE NUMBER. 03502 M01S02058.286l859 +++|* MSTA = MST ADDRESS / 10B 03503 M01S02059.286l859 +++|* SL = SECTOR LIMIT. 03504 M01S02060.286l859 +++|* AL = ACCESS LEVEL LIMITS. 03505 M01S02061.286l859 +++|* MN = EQUIPMENT MNEMONIC. 03506 M01S02062.286l859 +++|* SM = SECONDARY MASK (DIRECT ACCESS FILES). 03507 M01S02063.286l859 +++|* DM = DEVICE MASK (INDIRECT ACCESS FILES AND CATALOGS). 03508 M01S02064.286l859 +++| 03509 M01S02065.286l859 +++| 03510 M01S02066.286l859 +++| MSTT BSSZ 2*MSMX+2 MST TABLE 03511 M01S02067.286l859 +++| TMDA SPACE 4,10 03512 M01S02068.286l859 +++|** TMDA - TABLE OF MASTER DEVICE ADDRESSES. 03513 M01S02069.286l859 +++|* 03514 M01S02070.286l859 +++|* INDEXED BY SUBFAMILY (LOWER 3 BITS OF USER INDEX). 03515 M01S02071.286l859 +++|* 03516 M01S02072.286l859 +++|*T TMDA 60/ *MSTT* ADDRESS OF MASTER DEVICE
Figure TMDA
03517 M01S02073.286l859 +++| 03518 M01S02074.286l859 +++| 03519 M01S02075.286l859 +++| TMDA BSSZ 8 03520 M01S02076.286l859 +++| SPACE 4,10 03521 M01S02077.286l859 +++|* *MSS*/*MSE* ENVIRONMENT FLAGS. 03522 M01S02078.286l859 +++| 03523 M01S02079.286l859 +++| 03524 M01S02080.286l859 +++| ASFF BSSZ 1 *MSE* ENVIRONMENT FLAG 03525 M01S02081.286l859 +++| MSSF BSSZ 1 *MSS* ENVIRONMENT FLAG 03526 M01S02082.286l859 +++| DVA$ ENDIF 03527 M01S02083.286l859 +++| SPACE 4,10 03528 M00S01338.comcpfs +++| PFD$ IF DEF,PFD$ 03529 M00S01339.comcpfs +++| TITLE COMCPFS - *PFDUMP*/*PFDM* CATALOG FILE ACCESS ROUTINES.
| Line S01340 Modification History | |
|---|---|
M01 (Removed by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 03530 M01S01340.286l859 ---| PCE SPACE 4,25 03531 M01S01341.286l859 ---|** PCE - PROCESS CATALOG FILE ERRORS. 03532 M01S01342.286l859 ---|* 03533 M01S01343.286l859 ---|* ENTRY (B3) = FWA OF CATALOG ENTRIES. 03534 M01S01344.286l859 ---|* (B3) = 0 IF NO SECTOR READ DUE TO ERROR. 03535 M01S01345.286l859 ---|* (B6) = LWA+1 OF CATALOG ENTRIES. 03536 M01S01346.286l859 ---|* (X6) = *CIO* TRAILER CONTROL WORD 03537 M01S01347.286l859 ---|* (IF (B3)=0, CONTROL WORD FOR LAST SECTOR READ). 03538 M01S01348.286l859 ---|* (X7) = CATALOG FET ADDRESS. 03539 M01S01349.286l859 ---|* (CPAR+/COMSPFS/CPDN) = MASTER DEVICE NUMBER. 03540 M01S01350.286l859 ---|* (MPCT) = CURRENT CATALOG TRACK. 03541 M01S01351.286l859 ---|* 03542 M01S01352.286l859 ---|* EXIT ERROR MESSAGES ISSUED FOR EACH OF THE AFFECTED 03543 M01S01353.286l859 ---|* CATALOG ENTRIES. 03544 M01S01354.286l859 ---|* FET ERROR STATUS CLEARED FROM CATALOG FET. 03545 M01S01355.286l859 ---|* 03546 M01S01356.286l859 ---|* USES X - 1, 2, 3, 6, 7. 03547 M01S01357.286l859 ---|* A - 1, 2, 6, 7. 03548 M01S01358.286l859 ---|* B - 3, 6. 03549 M01S01359.286l859 ---|* 03550 M01S01360.286l859 ---|* CALLS SEM. 03551 M01S01361.286l859 ---|* 03552 M01S01362.286l859 ---|* MACROS EDITS. 03553 M01S01363.286l859 ---| 03554 M01S01364.286l859 ---| 03555 M01S01365.286l859 ---| PCE SUBR ENTRY/EXIT 03556 M01S01366.286l859 ---| SA7 PCEA SAVE FET ADDRESS 03557 M01S01367.286l859 ---| SX7 B3+ SAVE FWA 03558 M01S01368.286l859 ---| SA7 PCEB 03559 M01S01369.286l859 ---| SX7 B6+ SAVE LWA+1 03560 M01S01370.286l859 ---| SA7 PCEC 03561 M01S01371.286l859 ---| MX3 -12 SET SECTOR NUMBER 03562 M01S01372.286l859 ---| BX7 -X3*X6 03563 M01S01373.286l859 ---| NZ B3,PCE1 IF SECTOR READ 03564 M01S01374.286l859 ---| SX7 X7+B1 INCREMENT SECTOR NUMBER 03565 M01S01375.286l859 ---| BX7 -X3*X7 03566 M01S01376.286l859 ---| PCE1 SA7 MPSC 03567 M01S01377.286l859 ---| LX6 11-23 SET TRACK NUMBER 03568 M01S01378.286l859 ---| BX7 -X3*X6 03569 M01S01379.286l859 ---| SA7 MPTK 03570 M01S01380.286l859 ---| LX6 11-23 SET EST ORDINAL 03571 M01S01381.286l859 ---| BX7 -X3*X6 03572 M01S01382.286l859 ---| SA7 MPEQ 03573 M01S01383.286l859 ---| SA1 CPAR+/COMSPFS/CPDN SET DEVICE NUMBER 03574 M01S01384.286l859 ---| BX6 X1 03575 M01S01385.286l859 ---| SA6 MPDN 03576 M01S01386.286l859 ---| SA1 MPPN 03577 M01S01387.286l859 ---| SB6 MSPN SET PACK NAME SKELETON 03578 M01S01388.286l859 ---| NZ X1,PCE2 IF PACK NAME SPECIFIED 03579 M01S01389.286l859 ---| SB6 MSCT SET CATALOG TRACK SKELETON 03580 M01S01390.286l859 ---| PCE2 EDITS B6,MECR GENERATE CATALOG READ ERROR MESSAGE 03581 M01S01391.286l859 ---| SX6 B1+ SET ERRLOG FLAG 03582 M01S01392.286l859 ---| SA6 ELFG 03583 M01S01393.286l859 ---| RJ SEM SEND ERROR MESSAGE 03584 M01S01394.286l859 ---| SA1 PCEB INITIALIZE CATALOG ENTRY INDEX 03585 M01S01395.286l859 ---| SB3 X1+ 03586 M01S01396.286l859 ---| ZR B3,PCE5 IF NO SECTOR READ DUE TO ERROR 03587 M01S01397.286l859 ---| PCE3 SA1 B3+FCUI SET USER INDEX 03588 M01S01398.286l859 ---| MX3 -18 03589 M01S01399.286l859 ---| BX6 -X3*X1 03590 M01S01400.286l859 ---| BX7 X3*X1 SET FILE NAME 03591 M01S01401.286l859 ---| ZR X6,PCE4 IF NULL CATALOG ENTRY (HOLE) 03592 M01S01402.286l859 ---| SA6 MPUI 03593 M01S01403.286l859 ---| SA7 MPFN 03594 M01S01404.286l859 ---| EDITS MSFN,MECR GENERATE MESSAGE WITH FILE NAME 03595 M01S01405.286l859 ---| RJ SEM SEND ERROR MESSAGE 03596 M01S01406.286l859 ---| PCE4 SA1 PCEB INCREMENT CATALOG ENTRY INDEX 03597 M01S01407.286l859 ---| SA2 PCEC 03598 M01S01408.286l859 ---| SB3 X1+NWCE 03599 M01S01409.286l859 ---| SX6 B3+ 03600 M01S01410.286l859 ---| SA6 PCEB SAVE INDEX 03601 M01S01411.286l859 ---| SB6 X2+ 03602 M01S01412.286l859 ---| LT B3,B6,PCE3 IF MORE CATALOG ENTRIES 03603 M01S01413.286l859 ---| PCE5 SA2 PCEA CLEAR FET ERROR STATUS 03604 M01S01414.286l859 ---| SA2 X2+ 03605 M01S01415.286l859 ---| SX7 36000B 03606 M01S01416.286l859 ---| BX6 -X7*X2 03607 M01S01417.286l859 ---| BX7 X7-X7 CLEAR DETAILED ERROR STATUS 03608 M01S01418.286l859 ---| SA6 A2+ 03609 M01S01419.286l859 ---| SA7 A2+6 03610 M01S01420.286l859 ---| EQ PCEX RETURN 03611 M01S01421.286l859 ---| 03612 M01S01422.286l859 ---| 03613 M01S01423.286l859 ---| PCEA BSS 1 FET ADDRESS SAVE AREA 03614 M01S01424.286l859 ---| PCEB BSS 1 FWA OF CATALOG ENTRIES - SAVE AREA 03615 M01S01425.286l859 ---| PCEC BSS 1 LWA+1 OF CATALOG ENTRIES - SAVE AREA 03616 M00S01426.comcpfs +++| PCI SPACE 4,15 03617 M00S01427.comcpfs +++|** PCI - PROCESS CATALOG TRACK INTERLOCK. 03618 M00S01428.comcpfs +++|* 03619 M00S01429.comcpfs +++|* ENTRY (X6) = ADDRESS OF FET TO PROCESS INTERLOCK WITH. 03620 M00S01430.comcpfs +++|* (X7) = *PFU* FUNCTION CODE TO PROCESS INTERLOCK WITH. 03621 M00S01431.comcpfs +++|* 03622 M00S01432.comcpfs +++|* EXIT *PFU* CALLED TO PROCESS INTERLOCK. 03623 M00S01433.comcpfs +++|* INTERLOCK MESSAGE POSTED AT LINE 2 OF THE CONTROL 03624 M00S01434.comcpfs +++|* POINT AND ON THE *K* DISPLAY BEFORE INTERLOCKING 03625 M00S01435.comcpfs +++|* AND CLEARED AFTER. 03626 M00S01436.comcpfs +++|* 03627 M00S01437.comcpfs +++|* USES X - 1, 2, 3. 03628 M00S01438.comcpfs +++|* A - 1, 2, 3, 6, 7. 03629 M00S01439.comcpfs +++|* 03630 M00S01440.comcpfs +++|* MACROS CALLPFU, MESSAGE, MOVE, RECALL. 03631 M00S01441.comcpfs +++| 03632 M00S01442.comcpfs +++| 03633 M00S01443.comcpfs +++| PCI SUBR ENTRY/EXIT 03634 M00S01444.comcpfs +++| SA6 PCIA SAVE FET ADDRESS 03635 M00S01445.comcpfs +++| SA7 PCIB SAVE *PFU* FUNCTION CODE 03636 M00S01446.comcpfs +++| RECALL X6 WAIT FOR FET NON BUSY 03637 M00S01447.comcpfs +++| SA3 IDSA+/COMSPFS/ADM1 03638 M00S01448.comcpfs +++| MOVE 4,MEWC,X3 *WAIT FOR CATALOG INTERLOCK.* 03639 M00S01449.comcpfs +++| MESSAGE MEWC,2,R 03640 M00S01450.comcpfs +++| SA2 PCIA GET FET ADDRESS 03641 M00S01451.comcpfs +++| SA1 PCIB GET *PFU* FUNCTION CODE 03642 M00S01452.comcpfs +++| CALLPFU X2,X1,R PROCESS CATALOG TRACK INTERLOCK 03643 M00S01453.comcpfs +++| SA3 IDSA+/COMSPFS/ADM1 03644 M00S01454.comcpfs +++| MOVE 4,MENL,X3 CLEAR INTERLOCK MESSAGE 03645 M00S01455.comcpfs +++| MESSAGE (=C**),2,R 03646 M00S01456.comcpfs +++| EQ PCIX RETURN 03647 M00S01457.comcpfs +++| 03648 M00S01458.comcpfs +++| 03649 M00S01459.comcpfs +++| PCIA BSS 1 TEMPORARY FET ADDRESS STORAGE 03650 M00S01460.comcpfs +++| PCIB BSS 1 TEMPORARY *PFU* FUNCTION CODE STORAGE
| Line S01461 Modification History | |
|---|---|
M01 (Removed by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 03651 M01S01461.286l859 ---| RCE SPACE 4,30 03652 M01S01462.286l859 ---|** RCE - READ CATALOG ENTRIES.
| Line S02084 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 03653 M01S02084.286l859 +++| RCS SPACE 4,20 03654 M01S02085.286l859 +++|** RCS - READ CATALOG SECTOR. 03655 M00S01463.comcpfs +++|*
| Line S01464 Modification History | |
|---|---|
M01 (Removed by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 03656 M01S01464.286l859 ---|* IF THE CATALOG ENTRIES BEING READ ARE IN 8-WORD FORMAT 03657 M01S01465.286l859 ---|* AND *PF8$* IS DEFINED, THEY ARE CONVERTED TO 16-WORD 03658 M01S01466.286l859 ---|* FORMAT. WHEN SUCH A CONVERSION OCCURS, THE ENTRY 03659 M01S01467.286l859 ---|* POINTERS (REGISTERS B3 AND B6) REFERENCE THE CATALOG 03660 M01S01468.286l859 ---|* CONVERSION BUFFER *CCBUF* INSTEAD OF THE CATALOG READ 03661 M01S01469.286l859 ---|* BUFFER *CBUF*.
| Line S02086 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 03662 M01S02086.286l859 +++|* ENTRY (X2) = FET ADDRESS. 03663 M00S01470.comcpfs +++|*
| Line S01471 Modification History | |
|---|---|
M01 (Removed by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 03664 M01S01471.286l859 ---|* ENTRY (X2) = CATALOG FILE FET ADDRESS. 03665 M01S01472.286l859 ---|* (CFMT) = CATALOG ENTRY FORMAT CODE IF *PF8$* DEFINED. 03666 M01S01473.286l859 ---|* = 0, IF 8-WORD FORMAT. 03667 M01S01474.286l859 ---|* = 1, IF 16-WORD FORMAT.
| Line S02087 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 03668 M01S02087.286l859 +++|* EXIT (X1) = 0 IF SECTOR READ WITHOUT ERROR. 03669 M01S02088.286l859 +++|* (X1) .GT. 0 IF EOR, EOF, OR EOI ENCOUNTERED OR READ 03670 M01S02089.286l859 +++|* ERROR WITH NO DATA TRANSFERRED. 03671 M01S02090.286l859 +++|* (X1) .LT. 0 IF SECTOR READ WITH ERROR IN DATA. 03672 M01S02091.286l859 +++|* CATALOG ENTRIES IN *CSBF* IF DATA READ. 03673 M01S02092.286l859 +++|* (CSTC) = CATALOG SECTOR TRAILING CONTROL WORD IF DATA 03674 M01S02093.286l859 +++|* READ. 03675 M01S02094.286l859 +++|* (CSLW) = LWA+1 OF LAST ENTRY IN *CSBF* IF DATA READ. 03676 M00S01475.comcpfs +++|*
| Line S01476 Modification History | |
|---|---|
M01 (Removed by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 03677 M01S01476.286l859 ---|* EXIT (B3) = FWA OF CATALOG ENTRIES. 03678 M01S01477.286l859 ---|* (B6) = LWA+1 OF CATALOG ENTRIES. 03679 M01S01478.286l859 ---|* (CFTS) = NEW CATALOG FILE TERMINATION STATUS. 03680 M01S01479.286l859 ---|* = 0, IF NOT END OF CATALOG TRACK. 03681 M01S01480.286l859 ---|* = 1, IF END OF CATALOG TRACK. 03682 M01S01481.286l859 ---|* (CSCW) = LIST OF *CIO* TRAILER CONTROL WORDS FOR 03683 M01S01482.286l859 ---|* CATALOG SECTORS CURRENTLY IN CATALOG BUFFER.
| Line S02095 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 03684 M01S02095.286l859 +++|* USES X - 1, 3, 4, 5, 6, 7. 03685 M01S02096.286l859 +++|* A - 1, 2, 3, 4, 6, 7. 03686 M01S02097.286l859 +++|* B - 2, 6, 7. 03687 M00S01483.comcpfs +++|*
| Line S01484 Modification History | |
|---|---|
M01 (Removed by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 03688 M01S01484.286l859 ---|* USES X - 0, 1, 3, 6, 7. 03689 M01S01485.286l859 ---|* A - 1, 2, 6, 7. 03690 M01S01486.286l859 ---|* B - 3, 6.
| Line S02098 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 03691 M01S02098.286l859 +++|* CALLS SFE. 03692 M00S01487.comcpfs +++|*
| Line S01488 Modification History | |
|---|---|
M01 (Removed by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 03693 M01S01488.286l859 ---|* CALLS CCF, PCE. 03694 M01S01489.286l859 ---|* 03695 M01S01490.286l859 ---|* MACROS READO, READW.
| Line S02099 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 03696 M01S02099.286l859 +++|* MACROS RECALL, READW. 03697 M00S01491.comcpfs +++| 03698 M00S01492.comcpfs +++|
| Line S01493 Modification History | |
|---|---|
M01 (Removed by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 03699 M01S01493.286l859 ---| RCE SUBR ENTRY/EXIT 03700 M01S01494.286l859 ---| BX6 X2 SAVE CATALOG FET ADDRESS 03701 M01S01495.286l859 ---| SA6 RCEA 03702 M01S01496.286l859 ---| BX6 X6-X6 CLEAR END OF CATALOG TRACK FLAG 03703 M01S01497.286l859 ---| SA6 CFTS
| Line S02100 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 03704 M01S02100.286l859 +++| RCS SUBR ENTRY/EXIT 03705 M01S02101.286l859 +++| READW X2,RCSA,1 READ LEADING CONTROL WORD
| Line S02102 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
M02 (Removed by) | cpfs2 |
Seq # *Modification Id* Act ----------------------------+ 03706 M02S02102.cpfs2 ---| SX6 X1+ SAVE STATUS
| Line S00011 Modification History | |
|---|---|
M01 (Added by) | cpfs2 |
Seq # *Modification Id* Act ----------------------------+ 03707 M01S00011.cpfs2 +++| SX4 B1 PRESET FATAL ERROR 03708 M01S00012.cpfs2 +++| SX6 X1 SAVE STATUS
| Line S02103 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 03709 M01S02103.286l859 +++| SX1 X1+3 03710 M01S02104.286l859 +++| SB2 ERCR * CATALOG READ ERROR ...* 03711 M01S02105.286l859 +++| ZR X1,RCS1 IF READ ERROR 03712 M01S02106.286l859 +++| NZ X6,RCSX IF EOR, EOF, OR EOI 03713 M01S02107.286l859 +++| SA3 RCSA 03714 M01S02108.286l859 +++| SX6 5 03715 M01S02109.286l859 +++| SX3 X3 SECTOR LENGTH IN BYTES 03716 M01S02110.286l859 +++| IX3 X3/X6 SECTOR LENGTH IN WORDS 03717 M01S02111.286l859 +++| MX6 -4 03718 M01S02112.286l859 +++| SX7 CSBF+X3 03719 M01S02113.286l859 +++| BX6 -X6*X3 03720 M01S02114.286l859 +++| ERRNZ NWCE-20B 03721 M01S02115.286l859 +++| SB2 ERCB * CATALOG SECTOR BAD ...* 03722 M01S02116.286l859 +++| NZ X6,RCS1 IF LENGTH NOT MULTIPLE OF *NWCE* 03723 M01S02117.286l859 +++| SA7 CSLW SET LWA+1 OF ENTRIES IN *CSBF* 03724 M01S02118.286l859 +++| READW X2,CSBF,X3 READ DATA 03725 M01S02119.286l859 +++| READW X2,CSTC,1 READ TRAILING CONTROL WORD 03726 M01S02120.286l859 +++|* SX1 B0 SET READ COMPLETE STATUS 03727 M01S02121.286l859 +++| SA4 RCSA 03728 M01S02122.286l859 +++| PL X4,RCSX IF NO ERROR IN SECTOR DATA
| Line S00013 Modification History | |
|---|---|
M01 (Added by) | cpfs2 |
Seq # *Modification Id* Act ----------------------------+ 03729 M01S00013.cpfs2 +++| SB2 ERCR * CATALOG READ ERROR ...* 03730 M00S01498.comcpfs +++|
| Line S01499 Modification History | |
|---|---|
M01 (Removed by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 03731 M01S01499.286l859 ---|* INITIALIZE READ CONTROLS.
| Line S02123 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
M02 (Removed by) | cpfs2 |
Seq # *Modification Id* Act ----------------------------+ 03732 M02S02123.cpfs2 ---|* PROCESS READ ERROR WITH DATA TRANSFERRED.
| Line S00014 Modification History | |
|---|---|
M01 (Added by) | cpfs2 |
Seq # *Modification Id* Act ----------------------------+ 03733 M01S00014.cpfs2 +++|* CLEAR ERROR CODE IN FET. 03734 M00S01500.comcpfs +++|
| Line S01501 Modification History | |
|---|---|
M01 (Removed by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 03735 M01S01501.286l859 ---| SX6 CBUF FWA OF BUFFER (IN) 03736 M01S01502.286l859 ---| SA6 RCEB 03737 M01S01503.286l859 ---| SX6 CBUFL BUFFER LENGTH 03738 M01S01504.286l859 ---| SA6 RCEC 03739 M01S01505.286l859 ---| SX6 CSCW FWA OF *CIO* TRAILER CONTROL WORD LIST 03740 M01S01506.286l859 ---| SA6 RCED 03741 M01S01507.286l859 ---| SA1 CWNP 03742 M01S01508.286l859 ---| BX6 X1 03743 M01S01509.286l859 ---| NZ X6,RCE5 IF UNPROCESSED CONTROL WORD LEFTOVER
| Line S02124 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
M02 (Removed by) | cpfs2 |
Seq # *Modification Id* Act ----------------------------+ 03744 M02S02124.cpfs2 ---| RECALL X2 WAIT *CIO* COMPLETE
| Line S00015 Modification History | |
|---|---|
M01 (Added by) | cpfs2 |
Seq # *Modification Id* Act ----------------------------+ 03745 M01S00015.cpfs2 +++| RCS1 RECALL X2 WAIT *CIO* COMPLETE
| Line S02125 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 03746 M01S02125.286l859 +++| SA1 X2 03747 M01S02126.286l859 +++| SX6 36000B 03748 M01S02127.286l859 +++| BX6 -X6*X1 CLEAR ERROR CODE IN FET STATUS 03749 M01S02128.286l859 +++| SX7 B0 03750 M01S02129.286l859 +++| SA6 X2 03751 M01S02130.286l859 +++| SA7 X2+6 CLEAR DETAILED ERROR CODE
| Line S02131 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
M02 (Removed by) | cpfs2 |
Seq # *Modification Id* Act ----------------------------+ 03752 M02S02131.cpfs2 ---| SB2 ERCR * CATALOG READ ERROR ...* 03753 M02S02132.cpfs2 ---| EQ RCS2 ISSUE ERROR MESSAGE
| Line S01510 Modification History | |
|---|---|
M01 (Removed by) | cpfs2 |
Seq # *Modification Id* Act ----------------------------+ 03754 M01S01510.cpfs2 ---|
| Line S01511 Modification History | |
|---|---|
M01 (Removed by) | 286l859 |
M02 (Removed by) | cpfs2 |
Seq # *Modification Id* Act ----------------------------+ 03755 M02S01511.cpfs2 ---|* READ *CIO* HEADER CONTROL WORD.
| Line S02133 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
M02 (Removed by) | cpfs2 |
Seq # *Modification Id* Act ----------------------------+ 03756 M02S02133.cpfs2 ---|* SET FATAL ERROR.
| Line S01512 Modification History | |
|---|---|
M01 (Removed by) | cpfs2 |
Seq # *Modification Id* Act ----------------------------+ 03757 M01S01512.cpfs2 ---|
| Line S01513 Modification History | |
|---|---|
M01 (Removed by) | 286l859 |
M02 (Removed by) | cpfs2 |
Seq # *Modification Id* Act ----------------------------+ 03758 M02S01513.cpfs2 ---| RCE1 READO X2 READ *CIO* HEADER CONTROL WORD 03759 M02S01514.cpfs2 ---| ZR X1,RCE4 IF NOT END OF CATALOG TRACK 03760 M02S01515.cpfs2 ---| SX1 X1+3 03761 M02S01516.cpfs2 ---| NZ X1,RCE2 IF NOT READ ERROR 03762 M02S01517.cpfs2 ---| SX7 X2 03763 M02S01518.cpfs2 ---| SB3 B0 SET *SECTOR NOT READ* STATUS 03764 M02S01519.cpfs2 ---| SA1 CPCW GET PREVIOUS SECTOR CONTROL WORD 03765 M02S01520.cpfs2 ---| BX6 X1 03766 M02S01521.cpfs2 ---| RJ PCE PROCESS CATALOG READ ERROR 03767 M02S01522.cpfs2 ---| RCE2 SX6 B1 SET END OF CATALOG TRACK FLAG 03768 M02S01523.cpfs2 ---| SA6 CFTS 03769 M02S01524.cpfs2 ---| BX6 X6-X6 CLEAR UNPROCESSED CONTROL WORD 03770 M02S01525.cpfs2 ---| SA6 CWNP 03771 M02S01526.cpfs2 ---| RCE3 SB3 CBUF SET BUFFER INDICES 03772 M02S01527.cpfs2 ---| SA1 RCEB 03773 M02S01528.cpfs2 ---| SB6 X1+ 03774 M02S01529.cpfs2 ---| EQ RCE11 CHECK CATALOG ENTRY FORMAT
| Line S02134 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
M02 (Removed by) | cpfs2 |
Seq # *Modification Id* Act ----------------------------+ 03775 M02S02134.cpfs2 ---| RCS1 SX6 1 03776 M02S02135.cpfs2 ---| SA6 RCSA SET FATAL ERROR STATUS 03777 M00S01530.comcpfs +++|
| Line S01531 Modification History | |
|---|---|
M01 (Removed by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 03778 M01S01531.286l859 ---|* CHECK ERROR STATUS.
| Line S02136 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 03779 M01S02136.286l859 +++|* ISSUE ERROR MESSAGE. 03780 M00S01532.comcpfs +++|
| Line S01533 Modification History | |
|---|---|
M01 (Removed by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 03781 M01S01533.286l859 ---| RCE4 SA6 CWNP SAVE CONTROL WORD 03782 M01S01534.286l859 ---| RCE5 NG X6,RCE8 IF CONTROL WORD ERROR INDICATOR SET
| Line S02137 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
M02 (Removed by) | cpfs2 |
Seq # *Modification Id* Act ----------------------------+ 03783 M02S02137.cpfs2 ---| RCS2 SA1 PDUI
| Line S00016 Modification History | |
|---|---|
M01 (Added by) | cpfs2 |
Seq # *Modification Id* Act ----------------------------+ 03784 M01S00016.cpfs2 +++| BX6 X4 03785 M01S00017.cpfs2 +++| SA6 RCSB SAVE FATAL ERROR STATUS 03786 M01S00018.cpfs2 +++| SA1 PDUI
| Line S02138 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 03787 M01S02138.286l859 +++| RJ SFE SEND ERROR MESSAGE
| Line S02139 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
M02 (Removed by) | cpfs2 |
Seq # *Modification Id* Act ----------------------------+ 03788 M02S02139.cpfs2 ---| SA1 RCSA GET ERROR STATUS
| Line S00019 Modification History | |
|---|---|
M01 (Added by) | cpfs2 |
Seq # *Modification Id* Act ----------------------------+ 03789 M01S00019.cpfs2 +++| SA1 RCSB GET ERROR STATUS
| Line S02140 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 03790 M01S02140.286l859 +++| EQ RCSX RETURN 03791 M00S01535.comcpfs +++|
| Line S01536 Modification History | |
|---|---|
M01 (Removed by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 03792 M01S01536.286l859 ---|* DETERMINE IF SECTOR WILL FIT INTO REMAINING BUFFER SPACE. 03793 M00S01537.comcpfs +++|
| Line S01538 Modification History | |
|---|---|
M01 (Removed by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 03794 M01S01538.286l859 ---| MX0 -18 GET SECTOR LENGTH (BYTES) 03795 M01S01539.286l859 ---| BX6 -X0*X6 03796 M01S01540.286l859 ---| SX3 5 CONVERT LENGTH FROM BYTES TO WORDS 03797 M01S01541.286l859 ---| IX6 X6/X3 03798 M01S01542.286l859 ---| SA1 RCEC GET REMAINING BUFFER SPACE 03799 M01S01543.286l859 ---| IX7 X1-X6 03800 M01S01544.286l859 ---| SA7 RCEC UPDATE REMAINING BUFFER SPACE 03801 M01S01545.286l859 ---| NG X7,RCE3 IF NOT ENOUGH ROOM IN BUFFER 03802 M01S01546.286l859 ---| 03803 M01S01547.286l859 ---|* TRANSFER GOOD CATALOG SECTOR TO WORKING BUFFER. 03804 M01S01548.286l859 ---| 03805 M01S01549.286l859 ---| BX7 X7-X7 CLEAR UNPROCESSED CONTROL WORD 03806 M01S01550.286l859 ---| SA7 CWNP 03807 M01S01551.286l859 ---| SA1 RCEB GET IN POINTER 03808 M01S01552.286l859 ---| RCE6 READW X2,X1,X6 READ SECTOR OF CATALOG ENTRIES 03809 M01S01553.286l859 ---| SX6 B6+ UPDATE IN POINTER 03810 M01S01554.286l859 ---| SA6 RCEB 03811 M01S01555.286l859 ---| ZR B7,RCE7 IF TRANSFER COMPLETE 03812 M01S01556.286l859 ---| SX1 B6 03813 M01S01557.286l859 ---| SX6 B7 03814 M01S01558.286l859 ---| EQ RCE6 READ REMAINDER OF CATALOG SECTOR 03815 M01S01559.286l859 ---| 03816 M01S01560.286l859 ---|* READ AND SAVE *CIO* TRAILER CONTROL WORD. 03817 M01S01561.286l859 ---| 03818 M01S01562.286l859 ---| RCE7 READO X2 READ CONTROL WORD 03819 M01S01563.286l859 ---| SA6 CPCW SAVE CONTROL WORD 03820 M01S01564.286l859 ---| SA3 RCED INSERT INTO LIST 03821 M01S01565.286l859 ---| SA6 X3 03822 M01S01566.286l859 ---| SX6 X3+B1 INCREMENT LIST POINTER 03823 M01S01567.286l859 ---| SA6 A3+ 03824 M01S01568.286l859 ---| EQ RCE1 PROCESS NEXT SECTOR 03825 M01S01569.286l859 ---| 03826 M01S01570.286l859 ---|* READ BAD CATALOG SECTOR. 03827 M01S01571.286l859 ---| 03828 M01S01572.286l859 ---| RCE8 LX6 17-53 DETERMINE LENGTH OF BAD SECTOR 03829 M01S01573.286l859 ---| MX0 -18 03830 M01S01574.286l859 ---| BX6 -X0*X6 03831 M01S01575.286l859 ---| SX1 BCBUF 03832 M01S01576.286l859 ---| RCE9 READW X2,X1,X6 READ BAD CATALOG SECTOR 03833 M01S01577.286l859 ---| SX6 B6+ SAVE LWA+1 03834 M01S01578.286l859 ---| SA6 RCEF 03835 M01S01579.286l859 ---| ZR B7,RCE10 IF TRANSFER COMPLETE 03836 M01S01580.286l859 ---| SX1 B6 03837 M01S01581.286l859 ---| SX6 B7 03838 M01S01582.286l859 ---| EQ RCE9 READ REMAINDER OF CATALOG SECTOR 03839 M01S01583.286l859 ---| 03840 M01S01584.286l859 ---|* READ AND SAVE BAD SECTOR *CIO* TRAILER CONTROL WORD. 03841 M01S01585.286l859 ---| 03842 M01S01586.286l859 ---| RCE10 READO X2 READ *CIO* TRAILER CONTROL WORD 03843 M01S01587.286l859 ---| SA6 CPCW SAVE CONTROL WORD 03844 M01S01588.286l859 ---| SB3 BCBUF SET BUFFER INDICES 03845 M01S01589.286l859 ---| SA1 RCEF 03846 M01S01590.286l859 ---| SB6 X1+ 03847 M01S01591.286l859 ---| 03848 M01S01592.286l859 ---|* CHECK CATALOG ENTRY FORMAT. 03849 M01S01593.286l859 ---| 03850 M01S01594.286l859 ---| RCE11 BSS 0 03851 M01S01595.286l859 ---| IF DEF,PF8$,1 03852 M01S01596.286l859 ---| RJ CCF CHECK CATALOG FORMAT 03853 M01S01597.286l859 ---| SA1 RCEF 03854 M01S01598.286l859 ---| ZR X1,RCEX IF NOT PROCESSING BAD CATALOG SECTOR 03855 M01S01599.286l859 ---| 03856 M01S01600.286l859 ---|* PROCESS BAD CATALOG SECTOR. 03857 M01S01601.286l859 ---| 03858 M01S01602.286l859 ---| EQ B3,B6,RCE12 IF NO CATALOG ENTRIES 03859 M01S01603.286l859 ---| SA1 RCEA GET CATALOG FET ADDRESS 03860 M01S01604.286l859 ---| BX7 X1 03861 M01S01605.286l859 ---| SA1 CPCW GET BAD SECTOR TRAILER CONTROL WORD 03862 M01S01606.286l859 ---| BX6 X1 03863 M01S01607.286l859 ---| RJ PCE PROCESS CATALOG ERRORS 03864 M01S01608.286l859 ---| RCE12 BX6 X6-X6 CLEAR BAD CATALOG SECTOR LWA+1 (FLAG) 03865 M01S01609.286l859 ---| SA6 RCEF 03866 M01S01610.286l859 ---| SA2 RCEA GET FET ADDRESS 03867 M01S01611.286l859 ---| EQ RCE1 READ NEXT CATALOG SECTOR 03868 M01S01612.286l859 ---| 03869 M01S01613.286l859 ---| 03870 M01S01614.286l859 ---| RCEA BSSZ 1 FET ADDRESS 03871 M01S01615.286l859 ---| RCEB BSSZ 1 CATALOG BUFFER IN POINTER 03872 M01S01616.286l859 ---| RCEC BSSZ 1 REMAINING CATALOG BUFFER SPACE 03873 M01S01617.286l859 ---| RCED BSSZ 1 NEXT TRAILER CONTROL WORD LIST ENTRY 03874 M01S01618.286l859 ---| RCEF BSSZ 1 BAD CATALOG SECTOR LWA+1
| Line S02141 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
M02 (Removed by) | cpfs2 |
Seq # *Modification Id* Act ----------------------------+ 03875 M02S02141.cpfs2 ---| RCSA CON 0 LEADING CONTROL WORD/ERROR STATUS
| Line S00020 Modification History | |
|---|---|
M01 (Added by) | cpfs2 |
Seq # *Modification Id* Act ----------------------------+ 03876 M01S00020.cpfs2 +++| RCSA CON 0 LEADING CONTROL WORD 03877 M01S00021.cpfs2 +++| RCSB CON 0 FATAL ERROR STATUS 03878 M00S01619.comcpfs +++| SPACE 4,10 03879 M00S01620.comcpfs +++|* CATALOG FILE STATUS DATA AND BUFFERS. 03880 M00S01621.comcpfs +++|
| Line S01622 Modification History | |
|---|---|
M01 (Removed by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 03881 M01S01622.286l859 ---| CBIN BSSZ 1 INDEX OF CATALOG ENTRY IN *CBUF* 03882 M01S01623.286l859 ---| CFMT BSSZ 1 CATALOG ENTRY FORMAT CODE 03883 M01S01624.286l859 ---| CFTS BSSZ 1 CATALOG FILE TERMINATION STATUS (EOR) 03884 M01S01625.286l859 ---| CPCW BSSZ 1 PREVIOUS SECTOR TRAILER CONTROL WORD 03885 M01S01626.286l859 ---| CWNP BSSZ 1 UNPROCESSED CATALOG CONTROL WORD
| Line S02142 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 03886 M01S02142.286l859 +++| CSBF BSSZ 100B CATALOG SECTOR BUFFER 03887 M00S01627.comcpfs +++|
| Line S01628 Modification History | |
|---|---|
M01 (Removed by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 03888 M01S01628.286l859 ---| CSCW BSSZ CBUFL/NWPR LIST OF *CIO* TRAILER CONTROL WORDS 03889 M01S01629.286l859 ---| 03890 M01S01630.286l859 ---| CBUF BSSZ CBUFL CATALOG BUFFER 03891 M01S01631.286l859 ---| 03892 M01S01632.286l859 ---| BCBUF BSSZ NWPR BAD CATALOG SECTOR BUFFER
| Line S02143 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 03893 M01S02143.286l859 +++| CSLW CON 0 LWA+1 OF LAST ENTRY IN *CSBF* 03894 M01S02144.286l859 +++| CSTC CON 0 CATALOG SECTOR TRAILING CONTROL WORD 03895 M00S01633.comcpfs +++| SPACE 4,10
| Line S01634 Modification History | |
|---|---|
M01 (Removed by) | cpfs2 |
Seq # *Modification Id* Act ----------------------------+ 03896 M01S01634.cpfs2 ---|* MESSAGE DESCRIPTION STRINGS.
| Line S00022 Modification History | |
|---|---|
M01 (Added by) | cpfs2 |
Seq # *Modification Id* Act ----------------------------+ 03897 M01S00022.cpfs2 +++|* ERROR MESSAGES. 03898 M00S01635.comcpfs +++| 03899 M00S01636.comcpfs +++|
| Line S01637 Modification History | |
|---|---|
M01 (Removed by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 03900 M01S01637.286l859 ---| MECR DATA C* ??????? - CATALOG READ ERROR*
| Line S02145 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
M02 (Removed by) | cpfs2 |
Seq # *Modification Id* Act ----------------------------+ 03901 M02S02145.cpfs2 ---| ERCR DATA C* CATALOG READ ERROR* 03902 M02S02146.cpfs2 ---| ERCB DATA C* CATALOG SECTOR BAD*
| Line S00023 Modification History | |
|---|---|
M01 (Added by) | cpfs2 |
Seq # *Modification Id* Act ----------------------------+ 03903 M01S00023.cpfs2 +++| ERCR DATA C* CATALOG READ ERROR, UI=!!!!!!.* 03904 M01S00024.cpfs2 +++| ERCB DATA C* CATALOG SECTOR BAD, UI=!!!!!!.* 03905 M00S01638.comcpfs +++| SPACE 4,10
| Line S01639 Modification History | |
|---|---|
M01 (Removed by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 03906 M01S01639.286l859 ---| PF8$ IF DEF,PF8$ 03907 M01S01640.286l859 ---| CCF SPACE 4,15 03908 M01S01641.286l859 ---|** CCF - CHECK CATALOG FORMAT. 03909 M01S01642.286l859 ---|* 03910 M01S01643.286l859 ---|* ENTRY (CFMT) .NE. 0 IF 8 WORD PFC FORMAT. 03911 M01S01644.286l859 ---|* (B3) = FWA OF ENTRIES IN SOURCE BUFFER. 03912 M01S01645.286l859 ---|* (B6) = LWA+1 OF ENTRIES IN SOURCE BUFFER. 03913 M01S01646.286l859 ---|* 03914 M01S01647.286l859 ---|* EXIT (B3) = FWA OF CONVERTED ENTRIES IN *CCBUF*. 03915 M01S01648.286l859 ---|* (B6) = LWA+1 OF CONVERTED ENTRIES IN *CCBUF*. 03916 M01S01649.286l859 ---|* 03917 M01S01650.286l859 ---|* USES X - 1, 4, 6. 03918 M01S01651.286l859 ---|* A - 1, 6. 03919 M01S01652.286l859 ---|* B - 3, 4, 5, 6, 7. 03920 M01S01653.286l859 ---|* 03921 M01S01654.286l859 ---|* CALLS CCE. 03922 M01S01655.286l859 ---| 03923 M01S01656.286l859 ---| 03924 M01S01657.286l859 ---| CCF SUBR ENTRY/EXIT 03925 M01S01658.286l859 ---| SA1 CFMT CHECK CATALOG ENTRY FORMAT 03926 M01S01659.286l859 ---| NZ X1,CCFX IF 16 WORD FORMAT 03927 M01S01660.286l859 ---| 03928 M01S01661.286l859 ---|* CONVERT CATALOG ENTRIES TO 16 WORD FORMAT. 03929 M01S01662.286l859 ---| 03930 M01S01663.286l859 ---| EQ B3,B6,CCFX IF NO CATALOG ENTRIES 03931 M01S01664.286l859 ---| SB7 CCBUF INITIALIZE CONVERSION BUFFER INDEX 03932 M01S01665.286l859 ---| CCF1 SB4 B7+ INITIALIZE BUFFER TRANSFER INDICES 03933 M01S01666.286l859 ---| SB5 B7+10B 03934 M01S01667.286l859 ---| CCF2 SA1 B3 TRANSFER TO CONVERSION BUFFER 03935 M01S01668.286l859 ---| BX6 X1 03936 M01S01669.286l859 ---| SA6 B4 03937 M01S01670.286l859 ---| SB3 B3+B1 INCREMENT TRANSFER INDICES 03938 M01S01671.286l859 ---| SB4 B4+B1 03939 M01S01672.286l859 ---| NE B4,B5,CCF2 IF TRANSFER NOT COMPLETE 03940 M01S01673.286l859 ---| SX4 B7 03941 M01S01674.286l859 ---| RJ CCE CONVERT CATALOG ENTRY TO 16 WORD FORMAT 03942 M01S01675.286l859 ---| SB7 B7+NWCE INCREMENT CONVERSION BUFFER INDEX 03943 M01S01676.286l859 ---| LT B3,B6,CCF1 IF SOURCE BUFFER NOT EXHAUSTED 03944 M01S01677.286l859 ---| SB3 CCBUF RESET INDICES TO CONVERSION BUFFER 03945 M01S01678.286l859 ---| SB6 B7+ 03946 M01S01679.286l859 ---| EQ CCFX RETURN 03947 M01S01680.286l859 ---| SPACE 4,10 03948 M01S01681.286l859 ---| CCBUF BSSZ CCBUFL CONVERTED CATALOG BUFFER 03949 M01S01682.286l859 ---| PF8$ ENDIF 03950 M01S01683.286l859 ---| TITLE COMCPFS - *PFM* REQUEST FILE PROCESSSORS.
| Line S02147 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 03951 M01S02147.286l859 +++| TITLE COMCPFS - *PFM* SPECIAL REQUEST ROUTINES. 03952 M00S01684.comcpfs +++| PFR SPACE 4,15 03953 M00S01685.comcpfs +++|** PFR - PROCESS *PFM* REQUESTS. 03954 M00S01686.comcpfs +++|* 03955 M00S01687.comcpfs +++|* ENTRY *PFMREQ* = *PFM* REQUEST FILE FET. 03956 M00S01688.comcpfs +++|* 03957 M00S01689.comcpfs +++|* EXIT *PFM* REQUESTS PROCESSED.
| Line S02148 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 03958 M01S02148.286l859 +++|* (PPFC) = COUNT OF REQUESTS WITH NO ERROR. 03959 M01S02149.286l859 +++|* *PFMREQ* FILE RETURNED. 03960 M00S01690.comcpfs +++|* 03961 M00S01691.comcpfs +++|* USES X - 1, 2, 6. 03962 M00S01692.comcpfs +++|* A - 1, 2, 6. 03963 M00S01693.comcpfs +++|* B - 2. 03964 M00S01694.comcpfs +++|* 03965 M00S01695.comcpfs +++|* CALLS DFN. 03966 M00S01696.comcpfs +++|*
| Line S01697 Modification History | |
|---|---|
M01 (Removed by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 03967 M01S01697.286l859 ---|* MACROS DROPDS, READ, READW, REWIND, SETASA, WRITER.
| Line S02150 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 03968 M01S02150.286l859 +++|* MACROS DROPDS, READ, READW, RETURN, REWIND, SETASA, WRITER. 03969 M00S01698.comcpfs +++| 03970 M00S01699.comcpfs +++|
| Line S02151 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 03971 M01S02151.286l859 +++| PFR6 RETURN X2 RETURN REQUEST FILE 03972 M01S02152.286l859 +++| 03973 M00S01700.comcpfs +++| PFR SUBR ENTRY/EXIT
| Line S02153 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 03974 M01S02153.286l859 +++| SA1 PFRI 03975 M01S02154.286l859 +++| ZR X1,PFRX IF NO REQUESTS 03976 M00S01701.comcpfs +++| WRITER PFMREQ FLUSH REQUEST FILE 03977 M00S01702.comcpfs +++| REWIND X2 03978 M00S01703.comcpfs +++| READ X2 03979 M00S01704.comcpfs +++| 03980 M00S01705.comcpfs +++|* READ NEXT REQUEST AND DISPLAY FILE NAME. 03981 M00S01706.comcpfs +++| 03982 M00S01707.comcpfs +++| PFR1 READW PFMREQ,PFRP,PFRPL READ *PFM* REQUEST
| Line S01708 Modification History | |
|---|---|
M01 (Removed by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 03983 M01S01708.286l859 ---| NZ X1,PFRX IF END OF REQUESTS
| Line S02155 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 03984 M01S02155.286l859 +++| NZ X1,PFR6 IF END OF REQUESTS 03985 M00S01709.comcpfs +++| SA2 PFRI 03986 M00S01710.comcpfs +++| SA1 PFRF
| Line S01711 Modification History | |
|---|---|
M01 (Removed by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 03987 M01S01711.286l859 ---| SX2 X2 SET MESSAGE DESCRIPTION ADDRESS
| Line S02156 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 03988 M01S02156.286l859 +++| SA2 X2 SET MESSAGE VERB 03989 M00S01712.comcpfs +++| RJ DFN DISPLAY FILE PROCESSING MESSAGE 03990 M00S01713.comcpfs +++| SA1 PFRI 03991 M00S01714.comcpfs +++| UX1 B2,X1 03992 M00S01715.comcpfs +++| SA2 PFRA+B2 GET PROCESSOR ADDRESS 03993 M00S01716.comcpfs +++| SB2 X2+ 03994 M00S01717.comcpfs +++| JP B2 PROCESS REQUEST 03995 M00S01718.comcpfs +++| 03996 M00S01719.comcpfs +++|* SET TAPE ALTERNATE STORAGE POINTERS. 03997 M00S01720.comcpfs +++| 03998 M00S01721.comcpfs +++| PFR2 SETASA PFMR 03999 M00S01722.comcpfs +++| EQ PFR5 CHECK ERROR STATUS 04000 M00S01723.comcpfs +++| 04001 M00S01724.comcpfs +++|* DROP DISK SPACE. 04002 M00S01725.comcpfs +++| 04003 M00S01726.comcpfs +++| PFR3 DROPDS PFMR 04004 M00S01727.comcpfs +++| EQ PFR5 CHECK ERROR STATUS 04005 M00S01728.comcpfs +++| 04006 M00S01729.comcpfs +++|* PURGE FILE. 04007 M00S01730.comcpfs +++| 04008 M00S01731.comcpfs +++| PFR4 PURGE PFMR 04009 M00S01732.comcpfs +++|* EQ PFR5 CHECK ERROR STATUS 04010 M00S01733.comcpfs +++| 04011 M00S01734.comcpfs +++|* CHECK ERROR STATUS. 04012 M00S01735.comcpfs +++|
| Line S01736 Modification History | |
|---|---|
M01 (Removed by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 04013 M01S01736.286l859 ---| PFR5 SA1 X2 GET ERROR CODE FROM FET 04014 M01S01737.286l859 ---| SA2 PFRI GET ACCUMULATORS ADDRESS
| Line S02157 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 04015 M01S02157.286l859 +++| PFR5 SA1 X2+ GET ERROR CODE FROM FET 04016 M00S01738.comcpfs +++| SX1 X1
| Line S01739 Modification History | |
|---|---|
M01 (Removed by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 04017 M01S01739.286l859 ---| LX2 -18 04018 M00S01740.comcpfs +++| AX1 10 04019 M00S01741.comcpfs +++| NZ X1,PFR1 IF *PFM* ERROR
| Line S01742 Modification History | |
|---|---|
M01 (Removed by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 04020 M01S01742.286l859 ---| SA2 X2 COUNT FILE PROCESSED 04021 M01S01743.286l859 ---| SX6 X2+B1 04022 M01S01744.286l859 ---| SA6 A2+
| Line S02158 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 04023 M01S02158.286l859 +++| SA1 PPFC COUNT FILE PROCESSED 04024 M01S02159.286l859 +++| SX6 B1 04025 M01S02160.286l859 +++| IX6 X1+X6 04026 M01S02161.286l859 +++| SA6 PPFC 04027 M00S01745.comcpfs +++| EQ PFR1 PROCESS NEXT FILE 04028 M00S01746.comcpfs +++| 04029 M00S01747.comcpfs +++| 04030 M00S01748.comcpfs +++| PFRA BSS 0 TABLE OF *PFM* REQUEST PROCESSORS 04031 M00S01749.comcpfs +++| LOC 0 04032 M00S01750.comcpfs +++| SAPP CON PFR2 *SETASA* PROCESSOR 04033 M00S01751.comcpfs +++| DDPP CON PFR3 *DROPDS* PROCESSOR 04034 M00S01752.comcpfs +++| PRPP CON PFR4 *PURGE* PROCESSOR 04035 M00S01753.comcpfs +++| MXPP BSS 0 MAXIMUM *PFM* PROCESSOR + 1 04036 M00S01754.comcpfs +++| LOC *O
| Line S02162 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 04037 M01S02162.286l859 +++| SCA SPACE 4,10 04038 M01S02163.286l859 +++|** SCA - SET CATALOG DISK ADDRESS. 04039 M01S02164.286l859 +++|* 04040 M01S02165.286l859 +++|* ENTRY (A0) = ADDRESS OF CATALOG ENTRY IN *CSBF*. 04041 M01S02166.286l859 +++|* (CSTC) = CATALOG SECTOR TRAILING CONTROL WORD. 04042 M01S02167.286l859 +++|* 04043 M01S02168.286l859 +++|* EXIT (A0) = CATALOG ENTRY ADDRESS. 04044 M01S02169.286l859 +++|* (CADA) = DISK ADRESS OF CATALOG ENTRY FORMATTED FOR 04045 M01S02170.286l859 +++|* *PFM* SPECIAL REQUEST BLOCK. 04046 M01S02171.286l859 +++|* 04047 M01S02172.286l859 +++|* USES X - 1, 2, 6. 04048 M01S02173.286l859 +++|* A - 1, 2. 04049 M01S02174.286l859 +++| 04050 M01S02175.286l859 +++| 04051 M01S02176.286l859 +++| SCA SUBR ENTRY/EXIT 04052 M01S02177.286l859 +++| SA1 CSTC 04053 M01S02178.286l859 +++| SA2 CPAR+/COMSPFS/CPDN 04054 M01S02179.286l859 +++| SX6 A0-CSBF OFFSET IN BUFFER 04055 M01S02180.286l859 +++| MX7 -24 04056 M01S02181.286l859 +++| AX6 4 INDEX IN SECTOR 04057 M01S02182.286l859 +++| ERRNZ NWCE-20B 04058 M01S02183.286l859 +++| LX6 30 04059 M01S02184.286l859 +++| BX1 -X7*X1 CATALOG TRACK AND SECTOR 04060 M01S02185.286l859 +++| LX2 24 04061 M01S02186.286l859 +++| BX6 X6+X1 MERGE INDEX AND TRACK/SECTOR 04062 M01S02187.286l859 +++| BX6 X6+X2 MERGE MASTER DEVICE NUMBER 04063 M01S02188.286l859 +++| SA6 CADA SET CATALOG DISK ADDRESS 04064 M01S02189.286l859 +++| EQ SCAX RETURN 04065 M00S01755.comcpfs +++| SPR SPACE 4,15 04066 M00S01756.comcpfs +++|** SPR - SET *PFM* REQUEST PARAMETERS. 04067 M00S01757.comcpfs +++|*
| Line S01758 Modification History | |
|---|---|
M01 (Removed by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 04068 M01S01758.286l859 ---|* ENTRY (A0) = ADDRESS OF *PFM* SPECIAL REQUEST BLOCK. 04069 M01S01759.286l859 ---|* (X4) = INDEX OF CATALOG ENTRY IN *CBUF*.
| Line S02190 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 04070 M01S02190.286l859 +++|* ENTRY (B2) = *PFM* SPECIAL REQUEST BLOCK ADDRESS. 04071 M01S02191.286l859 +++|* (A0) = CATALOG ENTRY ADDRESS. 04072 M00S01760.comcpfs +++|* (X7) = SPECIAL REQUEST BLOCK WORD 1.
| Line S01761 Modification History | |
|---|---|
M01 (Removed by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 04073 M01S01761.286l859 ---|* (CPAR+/COMSPFS/CPDN) = MASTER DEVICE NUMBER.
| Line S02192 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 04074 M01S02192.286l859 +++|* (CADA) = CATALOG DISK ADDRESS (REQUEST BLOCK WORD 0). 04075 M00S01762.comcpfs +++|* (FMPN) = FAMILY OR PACK NAME. 04076 M00S01763.comcpfs +++|*
| Line S01764 Modification History | |
|---|---|
M01 (Removed by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 04077 M01S01764.286l859 ---|* EXIT (A1) = ADDRESS OF CATALOG ENTRY IN *CBUF*.
| Line S02193 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 04078 M01S02193.286l859 +++|* EXIT (A0) = CATALOG ENTRY ADDRESS. 04079 M00S01765.comcpfs +++|* *PFM* SPECIAL REQUEST BLOCK BUILT. 04080 M00S01766.comcpfs +++|*
| Line S01767 Modification History | |
|---|---|
M01 (Removed by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 04081 M01S01767.286l859 ---|* USES X - 0, 1, 2, 3, 6, 7.
| Line S01768 Modification History | |
|---|---|
M01 (Removed by) | 274l797 |
M02 (Removed by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 04082 M02S01768.286l859 ---|* A - 2, 3, 6, 7.
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | 274l797 |
M02 (Removed by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 04083 M02S00001.286l859 ---|* A - 1, 2, 3, 6, 7.
| Line S02194 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 04084 M01S02194.286l859 +++|* USES X - 0, 1, 2, 3, 4, 6, 7. 04085 M01S02195.286l859 +++|* A - 1, 2, 3, 4, 6, 7. 04086 M00S01769.comcpfs +++| 04087 M00S01770.comcpfs +++| 04088 M00S01771.comcpfs +++| SPR SUBR ENTRY/EXIT
| Line S01772 Modification History | |
|---|---|
M01 (Removed by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 04089 M01S01772.286l859 ---| SA7 A0+1 SET SPECIAL REQUEST BLOCK WORD 1 04090 M01S01773.286l859 ---| BX1 X4 04091 M01S01774.286l859 ---| LX1 4 CATALOG ENTRY OFFSET 04092 M01S01775.286l859 ---| SA1 X1+CBUF GET FILE NAME AND USER INDEX 04093 M01S01776.286l859 ---| SA2 A1+FCCD GET CREATION DATE AND TIME
| Line S02196 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 04094 M01S02196.286l859 +++| SA4 CADA GET CATALOG DISK ADDRESS 04095 M01S02197.286l859 +++| SA1 A0+FCUI GET FILE NAME AND USER INDEX 04096 M01S02198.286l859 +++| SA2 A0+FCCD GET CREATION DATE AND TIME 04097 M00S01777.comcpfs +++| SA3 FMPN GET FAMILY OR PACK NAME
| Line S02199 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 04098 M01S02199.286l859 +++| BX6 X4 04099 M01S02200.286l859 +++| SA7 B2+B1 SET SPECIAL REQUEST BLOCK WORD 1 04100 M01S02201.286l859 +++| SA6 B2+ SET CATALOG DISK ADDRESS
| Line S01778 Modification History | |
|---|---|
M01 (Removed by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 04101 M01S01778.274l797 ---| MX6 -36
| Line S00002 Modification History | |
|---|---|
M01 (Added by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 04102 M01S00002.274l797 +++| MX0 -36 04103 M00S01779.comcpfs +++| MX7 -18 04104 M00S01780.comcpfs +++| BX1 -X7*X1 ISOLATE USER INDEX
| Line S01781 Modification History | |
|---|---|
M01 (Removed by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 04105 M01S01781.274l797 ---| BX6 -X6*X2
| Line S00003 Modification History | |
|---|---|
M01 (Added by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 04106 M01S00003.274l797 +++| BX6 -X0*X2
| Line S00004 Modification History | |
|---|---|
M01 (Added by) | 274l797 |
M02 (Removed by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 04107 M02S00004.286l859 ---| SA2 A0+2 GET OPTICAL DISK ADDRESS
| Line S02202 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 04108 M01S02202.286l859 +++| SA2 B2+2 GET OPTICAL DISK ADDRESS
| Line S00005 Modification History | |
|---|---|
M01 (Added by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 04109 M01S00005.274l797 +++| BX2 X0*X2 04110 M01S00006.274l797 +++| BX6 X2+X6 MERGE ADDRESS AND CREATION DATE/TIME
| Line S01782 Modification History | |
|---|---|
M01 (Removed by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 04111 M01S01782.286l859 ---| SA6 A0+2 SET CREATION DATE AND TIME
| Line S02203 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 04112 M01S02203.286l859 +++| SA6 A2 SET CREATION DATE AND TIME 04113 M00S01783.comcpfs +++| BX7 X3+X1 MERGE FAMILY/PACK NAME AND USER INDEX
| Line S01784 Modification History | |
|---|---|
M01 (Removed by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 04114 M01S01784.286l859 ---| BX1 X4 04115 M01S01785.286l859 ---| SA7 A6+B1 SET FAMILY/PACK NAME AND USER INDEX 04116 M01S01786.286l859 ---| AX1 2-0 SECTOR NUMBER IN *CBUF* 04117 M01S01787.286l859 ---| SA2 X1+CSCW GET *CIO* TRAILER CONTROL WORD 04118 M01S01788.286l859 ---| SA3 CPAR+/COMSPFS/CPDN GET MASTER DEVICE NUMBER 04119 M01S01789.286l859 ---| MX0 -24 04120 M01S01790.286l859 ---| BX2 -X0*X2 ISOLATE TRACK AND SECTOR 04121 M01S01791.286l859 ---| LX1 2 DETERMINE CATALOG ENTRY ORDINAL 04122 M01S01792.286l859 ---| IX1 X4-X1 04123 M01S01793.286l859 ---| LX1 30 04124 M01S01794.286l859 ---| LX3 24 04125 M01S01795.286l859 ---| BX6 X1+X2 MERGE ORDINAL 04126 M01S01796.286l859 ---| BX6 X6+X3 MERGE DEVICE NUMBER 04127 M01S01797.286l859 ---| SA6 A0 SET PFC POINTERS
| Line S02204 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 04128 M01S02204.286l859 +++| SA7 B2+3 SET FAMILY/PACK NAME AND USER INDEX 04129 M00S01798.comcpfs +++| EQ SPRX RETURN 04130 M00S01799.comcpfs +++| WPR SPACE 4,15 04131 M00S01800.comcpfs +++|** WPR - WRITE *PFM* REQUEST PARAMETERS TO *PFMREQ* FILE. 04132 M00S01801.comcpfs +++|*
| Line S01802 Modification History | |
|---|---|
M01 (Removed by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 04133 M01S01802.286l859 ---|* ENTRY (CBIN) = INDEX OF CATALOG ENTRY IN *CBUF*.
| Line S02205 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 04134 M01S02205.286l859 +++|* ENTRY (A0) = CATALOG ENTRY ADDRESS. 04135 M00S01803.comcpfs +++|* (X7) = SPECIAL REQUEST BLOCK WORD 1.
| Line S02206 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 04136 M01S02206.286l859 +++|* (CADA) = CATALOG ENTRY DISK ADDRESS PARAMETERS. 04137 M00S01804.comcpfs +++|* (PFRI) = PROCESSOR INDEX, FILE COUNTS POINTER, AND 04138 M00S01805.comcpfs +++|* MESSAGE POINTER (SEE *PFRP* DOCUMENTATION). 04139 M00S01806.comcpfs +++|*
| Line S01807 Modification History | |
|---|---|
M01 (Removed by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 04140 M01S01807.286l859 ---|* EXIT *PFM* REQUEST PARAMETERS WRITTEN TO REQUEST FILE.
| Line S02207 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 04141 M01S02207.286l859 +++|* EXIT (A0) = CATALOG ENTRY ADDRESS. 04142 M01S02208.286l859 +++|* *PFM* REQUEST PARAMETERS WRITTEN TO REQUEST FILE. 04143 M00S01808.comcpfs +++|* 04144 M00S01809.comcpfs +++|* CALLS SPR. 04145 M00S01810.comcpfs +++|* 04146 M00S01811.comcpfs +++|* MACROS WRITEW. 04147 M00S01812.comcpfs +++| 04148 M00S01813.comcpfs +++| 04149 M00S01814.comcpfs +++| WPR SUBR ENTRY/EXIT
| Line S01815 Modification History | |
|---|---|
M01 (Removed by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 04150 M01S01815.286l859 ---| SA4 CBIN SET CATALOG ENTRY INDEX 04151 M01S01816.286l859 ---| SA0 PFRS SET SPECIAL REQUEST BLOCK ADDRESS
| Line S02209 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 04152 M01S02209.286l859 +++| SB2 PFRS SET SPECIAL REQUEST BLOCK ADDRESS 04153 M00S01817.comcpfs +++| RJ SPR SET *PFM* REQUEST
| Line S01818 Modification History | |
|---|---|
M01 (Removed by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 04154 M01S01818.286l859 ---| SA1 A1 SET FILE NAME AND USER INDEX
| Line S02210 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 04155 M01S02210.286l859 +++| SA1 A0+FCFN SET FILE NAME AND USER INDEX 04156 M00S01819.comcpfs +++| BX6 X1 04157 M00S01820.comcpfs +++| SA6 PFRF 04158 M00S01821.comcpfs +++| WRITEW PFMREQ,PFRP,PFRPL WRITE REQUEST FILE ENTRY 04159 M00S01822.comcpfs +++| EQ WPRX RETURN
| Line S02211 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 04160 M01S02211.286l859 +++| SPACE 4,10 04161 M01S02212.286l859 +++|* GLOBAL DATA. 04162 M01S02213.286l859 +++| 04163 M01S02214.286l859 +++| 04164 M01S02215.286l859 +++| CADA CON 0 CATALOG DISK ADDRESS 04165 M00S01823.comcpfs +++| PFMR SPACE 4,10 04166 M00S01824.comcpfs +++|* PFMR - *PFM* REQUEST FET. 04167 M00S01825.comcpfs +++| 04168 M00S01826.comcpfs +++| 04169 M00S01827.comcpfs +++| PFMR FILEB PFRB,PFRBL,EPR,FET=16 04170 M00S01828.comcpfs +++| ORG PFMR+CFPW 04171 M00S01829.comcpfs +++| VFD 42/0,18/PFRE ERROR MESSAGE RETURN ADDRESS 04172 M00S01830.comcpfs +++| ORG PFMR+CFSR 04173 M00S01831.comcpfs +++| VFD 42/0,18/PFRS SPECIAL REQUEST BLOCK ADDRESS 04174 M00S01832.comcpfs +++| ORG PFMR+16 04175 M00S01833.comcpfs +++| PFRP SPACE 4,10 04176 M00S01834.comcpfs +++|* PFRP - *PFM* REQUEST PARAMETERS BLOCK. 04177 M00S01835.comcpfs +++| 04178 M00S01836.comcpfs +++| 04179 M00S01837.comcpfs +++| PFRP BSS 0 *PFM* REQUEST PARAMETERS
| Line S01838 Modification History | |
|---|---|
M01 (Removed by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 04180 M01S01838.286l859 ---| PFRI VFD 12/2000B 2000B + INDEX INTO *PFRA* 04181 M01S01839.286l859 ---| VFD 12/0 04182 M01S01840.286l859 ---| VFD 18/0 POINTER TO FILE COUNT ACCUMULATORS
| Line S02216 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 04183 M01S02216.286l859 +++| PFRI VFD 12/0 2000B + INDEX INTO *PFRA* 04184 M01S02217.286l859 +++| VFD 30/0 04185 M00S01841.comcpfs +++| VFD 18/0 MESSAGE POINTER 04186 M00S01842.comcpfs +++| PFRF VFD 42/0 FILE NAME 04187 M00S01843.comcpfs +++| VFD 18/0 USER INDEX 04188 M00S01844.comcpfs +++| PFRS BSSZ 4 *PFM* SPECIAL REQUEST BLOCK 04189 M00S01845.comcpfs +++| PFRPL EQU *-PFRP REQUEST BLOCK LENGTH 04190 M00S01846.comcpfs +++| 04191 M00S01847.comcpfs +++| PFRE BSSZ 3 *PFM* ERROR MESSAGE 04192 M00S01848.comcpfs +++| TITLE COMCPFS - *PFDUMP*/*PFDM* GENERAL SUBROUTINES. 04193 M00S01849.comcpfs +++| CAC SPACE 4,15 04194 M00S01850.comcpfs +++|** CAC - CLEAR PF ACTIVITY COUNT. 04195 M00S01851.comcpfs +++|* 04196 M00S01852.comcpfs +++|* ENTRY (ACFL) = 1 IF ACTIVITY COUNT SET. 04197 M00S01853.comcpfs +++|* = 0 IF ACTIVITY COUNT ALREADY CLEAR. 04198 M00S01854.comcpfs +++|* (MAEQ) = MASTER DEVICE EST ORDINAL. 04199 M00S01855.comcpfs +++|* 04200 M00S01856.comcpfs +++|* EXIT (ACFL) = 0. 04201 M00S01857.comcpfs +++|* *PFU* CALLED TO CLEAR PF ACTIVITY COUNT IF NOT ALREADY 04202 M00S01858.comcpfs +++|* CLEAR. 04203 M00S01859.comcpfs +++|* 04204 M00S01860.comcpfs +++|* USES X - 1, 3, 6. 04205 M00S01861.comcpfs +++|* A - 1, 3, 6. 04206 M00S01862.comcpfs +++|* 04207 M00S01863.comcpfs +++|* MACROS CALLPFU, MESSAGE, MOVE. 04208 M00S01864.comcpfs +++| 04209 M00S01865.comcpfs +++| 04210 M00S01866.comcpfs +++| CAC SUBR ENTRY/EXIT 04211 M00S01867.comcpfs +++| SA1 ACFL CHECK ACTIVITY COUNT FLAG 04212 M00S01868.comcpfs +++| SX6 ACFL SET ACTIVITY COUNT FLAG ADDRESS 04213 M00S01869.comcpfs +++| ZR X1,CACX IF ACTIVITY COUNT ALREADY CLEAR 04214 M00S01870.comcpfs +++| SA1 MAEQ SET MASTER DEVICE EST ORDINAL 04215 M00S01871.comcpfs +++| LX1 -12 04216 M00S01872.comcpfs +++| BX6 X1+X6 MERGE WITH FET ADDRESS 04217 M00S01873.comcpfs +++| SA6 ACFT+FTPM 04218 M00S01874.comcpfs +++| SA3 IDSA+/COMSPFS/ADM1 *K* DISPLAY MESSAGE ADDRESS 04219 M00S01875.comcpfs +++| MOVE 4,MECP,X3 *CLEARING PF ACTIVITY COUNT.* 04220 M00S01876.comcpfs +++| MESSAGE MECP,2,R 04221 M00S01877.comcpfs +++| CALLPFU ACFT,CTDA,R DECREMENT PF ACTIVITY COUNT 04222 M00S01878.comcpfs +++| SA3 IDSA+/COMSPFS/ADM1 *K* DISPLAY MESSAGE ADDRESS 04223 M00S01879.comcpfs +++| MOVE 4,MENL,X3 CLEAR MESSAGE 04224 M00S01880.comcpfs +++| MESSAGE (=C**),2,R 04225 M00S01881.comcpfs +++| EQ CACX RETURN 04226 M00S01882.comcpfs +++| CBR SPACE 4,20 04227 M00S01883.comcpfs +++|** CBR - CHECK BACKUP REQUIREMENT. 04228 M00S01884.comcpfs +++|*
| Line S01885 Modification History | |
|---|---|
M01 (Removed by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 04229 M01S01885.286l859 ---|* ENTRY (B3) = CATALOG ENTRY ADDRESS.
| Line S02218 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 04230 M01S02218.286l859 +++|* ENTRY (A0) = CATALOG ENTRY ADDRESS. 04231 M00S01886.comcpfs +++|* 04232 M00S01887.comcpfs +++|* EXIT (X6) = EFFECTIVE BACKUP REQUIREMENT. 04233 M00S01888.comcpfs +++|* (X7) = 0 IF BACKUP REQUIREMENT NOT MET BY ALTERNATE 04234 M00S01889.comcpfs +++|* STORAGE COPIES. 04235 M00S01890.comcpfs +++|* (X7) = 1 IF BACKUP REQUIREMENT MET BY ALTERNATE 04236 M00S01891.comcpfs +++|* STORAGE COPIES. 04237 M00S01892.comcpfs +++|* (B2) = NUMBER OF COPIES OF FILE DATA ON ALTERNATE 04238 M00S01893.comcpfs +++|* STORAGE MEDIA.
| Line S01894 Modification History | |
|---|---|
M01 (Removed by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 04239 M01S01894.286l859 ---|* (B4) = NUMBER OF ALTERNATE STORAGE COPIES WITHOUT 04240 M01S01895.286l859 ---|* ERRORS.
| Line S02219 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 04241 M01S02219.286l859 +++|* (B3) .NE. 0 IF FILE RESIDES ON TAPE ALTERNATE STORAGE. 04242 M01S02220.286l859 +++|* (B3) = 0 IF FILE DOES NOT RESIDE ON TAPE ALTERNATE 04243 M01S02221.286l859 +++|* STORAGE. 04244 M00S01896.comcpfs +++|*
| Line S01897 Modification History | |
|---|---|
M01 (Removed by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 04245 M01S01897.286l859 ---|* USES X - 0, 1, 2, 3, 6, 7.
| Line S02222 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 04246 M01S02222.286l859 +++|* USES X - 1, 2, 3, 6, 7. 04247 M00S01898.comcpfs +++|* A - 1, 2.
| Line S01899 Modification History | |
|---|---|
M01 (Removed by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 04248 M01S01899.286l859 ---|* B - 2, 4.
| Line S02223 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 04249 M01S02223.286l859 +++|* B - 2, 3. 04250 M00S01900.comcpfs +++| 04251 M00S01901.comcpfs +++| 04252 M00S01902.comcpfs +++| CBR SUBR ENTRY/EXIT 04253 M00S01903.comcpfs +++| 04254 M00S01904.comcpfs +++|* DETERMINE NUMBER OF ALTERNATE STORAGE COPIES. 04255 M00S01905.comcpfs +++|
| Line S01906 Modification History | |
|---|---|
M01 (Removed by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 04256 M01S01906.286l859 ---| SA2 B3+FCTV GET TAPE ALTERNATE STORAGE POINTERS 04257 M01S01907.286l859 ---| SA1 B3+FCAA GET CARTRIDGE ALTERNATE STORAGE POINTERS 04258 M01S01908.286l859 ---| SB2 B0 04259 M01S01909.286l859 ---| SB4 B0
| Line S02224 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 04260 M01S02224.286l859 +++| SA2 A0+FCTV GET TAPE ALTERNATE STORAGE POINTERS 04261 M01S02225.286l859 +++| SA1 A0+FCAA GET CARTRIDGE ALTERNATE STORAGE POINTERS 04262 M01S02226.286l859 +++| SB2 B0 SET NO ALTERNATE STORAGE COPIES 04263 M01S02227.286l859 +++| SB3 B0 SET NOT TAPE RESIDENT 04264 M00S01910.comcpfs +++| MX7 -36 04265 M00S01911.comcpfs +++| BX6 -X7*X2
| Line S01912 Modification History | |
|---|---|
M01 (Removed by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 04266 M01S01912.286l859 ---| BX7 -X7*X1 04267 M00S01913.comcpfs +++| ZR X6,CBR2 IF NO TAPE ALTERNATE STORAGE COPIES
| Line S01914 Modification History | |
|---|---|
M01 (Removed by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 04268 M01S01914.286l859 ---| LX2 -48 04269 M01S01915.286l859 ---| SX3 24B 04270 M01S01916.286l859 ---| SX6 B1+B1 04271 M01S01917.286l859 ---| BX0 X3*X2 04272 M01S01918.286l859 ---| BX6 X6*X2 COUNT SECONDARY VSN COPY 04273 M01S01919.286l859 ---| NZ X0,CBR1 IF PRIMARY VSN ERROR FLAGS SET 04274 M01S01920.286l859 ---| SB4 B4+B1 COUNT PRIMARY VSN ACCESSIBLE 04275 M01S01921.286l859 ---| CBR1 SB2 X6+B1 NUMBER OF TAPE ALTERNATE STORAGE COPIES 04276 M01S01922.286l859 ---| LX3 2 04277 M01S01923.286l859 ---| ZR X6,CBR2 IF NO SECONDARY VSN 04278 M01S01924.286l859 ---| BX3 X3*X2 04279 M01S01925.286l859 ---| NZ X3,CBR2 IF SECONDARY VSN ERROR FLAGS SET 04280 M01S01926.286l859 ---| SB4 B4+B1 COUNT SECONDARY VSN ACCESSIBLE 04281 M01S01927.286l859 ---| CBR2 ZR X7,CBR3 IF NO CARTRIDGE ALTERNATE STORAGE COPY 04282 M01S01928.286l859 ---| SX3 23B
| Line S02228 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 04283 M01S02228.286l859 +++| SX6 B1 04284 M01S02229.286l859 +++| LX2 0-49 04285 M01S02230.286l859 +++| SB3 B1 INDICATE TAPE RESIDENT 04286 M01S02231.286l859 +++| BX6 X6*X2 SECONDARY VSN FLAG 04287 M01S02232.286l859 +++| SB2 X6+1 NUMBER OF TAPE ALTERNATE STORAGE COPIES 04288 M01S02233.286l859 +++| CBR2 BX7 -X7*X1 04289 M01S02234.286l859 +++| ZR X7,CBR3 IF NO CARTRIDGE ALTERNATE STORAGE COPY 04290 M00S01929.comcpfs +++| LX1 59-48 04291 M00S01930.comcpfs +++| NG X1,CBR3 IF CARTRIDGE COPY IS OBSOLETE
| Line S01931 Modification History | |
|---|---|
M01 (Removed by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 04292 M01S01931.286l859 ---| BX3 X3*X1 04293 M01S01932.286l859 ---| SB2 B2+B1 COUNT CARTRIDGE COPY 04294 M01S01933.286l859 ---| NZ X3,CBR3 IF ERROR FLAGS SET 04295 M01S01934.286l859 ---| SB4 B4+B1 COUNT CARTRIDGE COPY ACCESSIBLE
| Line S02235 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 04296 M01S02235.286l859 +++| SB2 B2+1 COUNT CARTRIDGE COPY 04297 M00S01935.comcpfs +++| 04298 M00S01936.comcpfs +++|* DETERMINE BACKUP REQUIREMENT. 04299 M00S01937.comcpfs +++|
| Line S01938 Modification History | |
|---|---|
M01 (Removed by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 04300 M01S01938.286l859 ---| CBR3 SA1 B3+FCBR GET BACKUP REQUIREMENT CODE
| Line S02236 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 04301 M01S02236.286l859 +++| CBR3 SA1 A0+FCBR GET BACKUP REQUIREMENT CODE 04302 M00S01939.comcpfs +++| SA2 CPAR+/COMSPFS/CPOP 04303 M00S01940.comcpfs +++| SX6 BRAL SET BACKUP REQUIREMENT = YES 04304 M00S01941.comcpfs +++| MX3 -3 04305 M00S01942.comcpfs +++| LX1 -54 04306 M00S01943.comcpfs +++| LX2 59-45 04307 M00S01944.comcpfs +++| BX3 -X3*X1 04308 M00S01945.comcpfs +++| SX7 B0+ SET NOT BACKED UP ON ALTERNATE STORAGE 04309 M00S01946.comcpfs +++| NG X2,CBR4 IF *OP=Y* SELECTED 04310 M00S01947.comcpfs +++| SX6 X3+ SET BACKUP REQUIREMENT FROM PFC ENTRY 04311 M00S01948.comcpfs +++| 04312 M00S01949.comcpfs +++|* DETERMINE IF BACKUP REQUIREMENT IS MET. 04313 M00S01950.comcpfs +++|* *BR=Y* REQUIRES TWO ALTERNATE STORAGE COPIES. 04314 M00S01951.comcpfs +++|* *BR=MD* REQUIRES ONE ALTERNATE STORAGE COPY. 04315 M00S01952.comcpfs +++|* *BR=N* IS TREATED THE SAME AS *BR=MD* FOR THIS TEST. 04316 M00S01953.comcpfs +++| 04317 M00S01954.comcpfs +++| CBR4 ZR B2,CBRX IF NO ALTERNATE STORAGE COPIES 04318 M00S01955.comcpfs +++| SX1 X6-BRAL 04319 M00S01956.comcpfs +++| GT B2,B1,CBR5 IF MORE THAN ONE ALTERNATE STORAGE COPY 04320 M00S01957.comcpfs +++| ZR X1,CBRX IF BACKUP REQUIREMENT = YES 04321 M00S01958.comcpfs +++| CBR5 SX7 1 SET FILE BACKED UP ON ALTERNATE STORAGE 04322 M00S01959.comcpfs +++| EQ CBRX RETURN
| Line S01960 Modification History | |
|---|---|
M01 (Removed by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 04323 M01S01960.286l859 ---| CDS SPACE 4,20
| Line S02237 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 04324 M01S02237.286l859 +++| CDS SPACE 4,10 04325 M00S01961.comcpfs +++|** CDS - CHECK DEVICE STATUS. 04326 M00S01962.comcpfs +++|*
| Line S01963 Modification History | |
|---|---|
M01 (Removed by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 04327 M01S01963.286l859 ---|* ENTRY (X0) = 42/,18/CATALOG ADDRESS. 04328 M01S01964.286l859 ---|* (X1) = DIRECT ACCESS FILE RESIDENCY DEVICE.
| Line S02238 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 04329 M01S02238.286l859 +++|* ENTRY (X1) = DEVICE NUMBER. 04330 M00S01965.comcpfs +++|*
| Line S01966 Modification History | |
|---|---|
M01 (Removed by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 04331 M01S01966.286l859 ---|* EXIT (X6) = 0 IF DEVICE FOUND. 04332 M01S01967.286l859 ---|* = NON-ZERO IF DEVICE NOT FOUND. 04333 M01S01968.286l859 ---|* (X7) = EST ORDINAL. 04334 M01S01969.286l859 ---|* MESSAGE ISSUED IF RESIDENCY DEVICE NOT FOUND.
| Line S02239 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 04335 M01S02239.286l859 +++|* EXIT (X6) = EST ORDINAL IF DEVICE FOUND. 04336 M01S02240.286l859 +++|* (X6) = 0 IF DEVICE NOT FOUND. 04337 M00S01970.comcpfs +++|*
| Line S01971 Modification History | |
|---|---|
M01 (Removed by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 04338 M01S01971.286l859 ---|* USES X - 2, 3, 6, 7. 04339 M01S01972.286l859 ---|* A - 2, 6, 7. 04340 M01S01973.286l859 ---|* B - 2, 3.
| Line S02241 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 04341 M01S02241.286l859 +++|* USES X - 2, 6. 04342 M01S02242.286l859 +++|* A - 2. 04343 M01S02243.286l859 +++| 04344 M01S02244.286l859 +++| 04345 M01S02245.286l859 +++| CDS2 SX6 B0+ SET DEVICE NOT FOUND 04346 M01S02246.286l859 +++| 04347 M01S02247.286l859 +++| CDS SUBR ENTRY/EXIT 04348 M01S02248.286l859 +++| SA2 MSTT-2 SET MASS STORAGE TABLE ADDRESS 04349 M01S02249.286l859 +++| CDS1 SA2 A2+2 GET MASS STORAGE TABLE ENTRY 04350 M01S02250.286l859 +++| MX6 -6 04351 M01S02251.286l859 +++| BX6 -X6*X2 DEVICE NUMBER 04352 M01S02252.286l859 +++| ZR X2,CDS2 IF END OF MASS STORAGE TABLE 04353 M01S02253.286l859 +++| IX6 X1-X6 04354 M01S02254.286l859 +++| LX2 -6 04355 M01S02255.286l859 +++| NZ X6,CDS1 IF NOT CORRECT DEVICE 04356 M01S02256.286l859 +++| MX6 -9 04357 M01S02257.286l859 +++| BX6 -X6*X2 SET EST ORDINAL 04358 M01S02258.286l859 +++| EQ CDSX RETURN 04359 M01S02259.286l859 +++| OCF SPACE 4,10 04360 M01S02260.286l859 +++|** OCF - OPEN CATALOG FILE. 04361 M00S01974.comcpfs +++|*
| Line S01975 Modification History | |
|---|---|
M01 (Removed by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 04362 M01S01975.286l859 ---|* CALLS SEM.
| Line S02261 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 04363 M01S02261.286l859 +++|* EXIT NEW CATALOG FILE OPENED. 04364 M00S01976.comcpfs +++|*
| Line S01977 Modification History | |
|---|---|
M01 (Removed by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 04365 M01S01977.286l859 ---|* MACROS EDITS.
| Line S02262 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 04366 M01S02262.286l859 +++|* USES X - 1, 2, 6, 7. 04367 M01S02263.286l859 +++|* A - 1, 6. 04368 M01S02264.286l859 +++|* 04369 M01S02265.286l859 +++|* MACROS CALLPFU. 04370 M00S01978.comcpfs +++| 04371 M00S01979.comcpfs +++|
| Line S01980 Modification History | |
|---|---|
M01 (Removed by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 04372 M01S01980.286l859 ---|* SET DIRECT ACCESS FILE EQUIPMENT.
| Line S02266 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 04373 M01S02266.286l859 +++| OCF SUBR ENTRY/EXIT 04374 M01S02267.286l859 +++| SX6 PDWD SET DEVICE OR PACKNAME POINTER 04375 M01S02268.286l859 +++| SX7 PDUI SET USER INDEX POINTER 04376 M01S02269.286l859 +++| LX6 18 04377 M01S02270.286l859 +++| BX6 X6+X7 04378 M01S02271.286l859 +++| SA6 CATS+FTPM SET *PFU* PARAMETER WORD 04379 M01S02272.286l859 +++| CALLPFU CATS,CTCT,R GET CATALOG TRACK PARAMETERS 04380 M01S02273.286l859 +++| SA1 CATS+FTPM 04381 M01S02274.286l859 +++| SX2 5 SET INITIAL FILE STATUS 04382 M01S02275.286l859 +++| MX6 -24 04383 M01S02276.286l859 +++| BX1 -X6*X1 SET EQ AND FIRST TRACK 04384 M01S02277.286l859 +++| MX6 -12 04385 M01S02278.286l859 +++| BX6 -X6*X1 SET CURRENT TRACK 04386 M01S02279.286l859 +++| LX1 36 04387 M01S02280.286l859 +++| BX2 X2+X1 BUILD CATALOG TRACK FST ENTRY 04388 M01S02281.286l859 +++| LX6 24 04389 M01S02282.286l859 +++| BX6 X2+X6 04390 M01S02283.286l859 +++| SA6 A1 04391 M01S02284.286l859 +++| CALLPFU CATS,CTOL,R OPEN FILE 04392 M01S02285.286l859 +++| EQ OCFX RETURN 04393 M01S02286.286l859 +++| PCF SPACE 4,20 04394 M01S02287.286l859 +++|** PCF - POSITION CATALOG FILE. 04395 M01S02288.286l859 +++|* 04396 M01S02289.286l859 +++|* ENTRY (X5) = NEW CATALOG TRACK IF .GE. 0. 04397 M01S02290.286l859 +++|* (X5) = -1 IF TO CLEAR CATALOG TRACK STATUS. 04398 M01S02291.286l859 +++|* (CTRK) = OLD CATALOG TRACK IF .GE. 0. 04399 M01S02292.286l859 +++|* (CTRK) = -1 IF NO OLD CATALOG TRACK. 04400 M01S02293.286l859 +++|* OLD CATALOG TRACK INTERLOCKED IF CTRK .GE. 0. 04401 M01S02294.286l859 +++|* 04402 M01S02295.286l859 +++|* EXIT (X5) = NEW CATALOG TRACK IF .GE. 0. 04403 M01S02296.286l859 +++|* (X5) = -1 IF CATALOG TRACK STATUS CLEARED. 04404 M01S02297.286l859 +++|* (CTRK) = NEW CATALOG TRACK IF .GE. 0. 04405 M01S02298.286l859 +++|* (CTRK) = -1 IF CATALOG TRACK STATUS CLEARED. 04406 M01S02299.286l859 +++|* NEW CATALOG TRACK INTERLOCKED. 04407 M01S02300.286l859 +++|* OLD CATALOG TRACK INTERLOCK CLEARED. 04408 M01S02301.286l859 +++|* 04409 M01S02302.286l859 +++|* USES X - 0, 1, 2, 6, 7. 04410 M01S02303.286l859 +++|* A - 1, 2, 6, 7. 04411 M01S02304.286l859 +++|* 04412 M01S02305.286l859 +++|* MACROS CALLPFU, PCINT. 04413 M00S01981.comcpfs +++|
| Line S01982 Modification History | |
|---|---|
M01 (Removed by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 04414 M01S01982.286l859 ---| CDS2 LX2 -6 SET DIRECT ACCESS FILE EQUIPMENT 04415 M01S01983.286l859 ---| MX7 -9 04416 M01S01984.286l859 ---| BX7 -X7*X2 04417 M00S01985.comcpfs +++|
| Line S01986 Modification History | |
|---|---|
M01 (Removed by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 04418 M01S01986.286l859 ---| CDS SUBR ENTRY/EXIT 04419 M01S01987.286l859 ---| SB2 MSTT SET MASS STORAGE TABLE ADDRESS 04420 M01S01988.286l859 ---| MX7 -6 04421 M01S01989.286l859 ---| SB3 B1+B1 04422 M01S01990.286l859 ---| CDS1 SA2 B2 GET MASS STORAGE TABLE ENTRY 04423 M01S01991.286l859 ---| BX3 -X7*X2 COMPARE DEVICE NUMBERS 04424 M01S01992.286l859 ---| IX6 X1-X3 04425 M01S01993.286l859 ---| SB2 B2+B3 INCREMENT MASS STORAGE TABLE ADDRESS 04426 M01S01994.286l859 ---| ZR X6,CDS2 IF CORRECT DEVICE 04427 M01S01995.286l859 ---| NZ X2,CDS1 IF NOT END OF MASS STORAGE TABLE 04428 M01S01996.286l859 ---| SA2 X0 SET FILE NAME 04429 M01S01997.286l859 ---| BX6 X1 SET DEVICE NUMBER 04430 M01S01998.286l859 ---| MX3 42 04431 M01S01999.286l859 ---| BX7 X3*X2 04432 M01S02000.286l859 ---| SA6 MPDN 04433 M01S02001.286l859 ---| SA7 MPFN 04434 M01S02002.286l859 ---| BX6 -X3*X2 SET USER INDEX 04435 M01S02003.286l859 ---| SA6 MPUI 04436 M01S02004.286l859 ---| BX7 X0 SAVE (X0) 04437 M01S02005.286l859 ---| SA7 CDSA 04438 M01S02006.286l859 ---| EDITS MSMD,MEDN BUILD MISSING DEVICE MESSAGE 04439 M01S02007.286l859 ---| RJ SEM SEND ERROR MESSAGE 04440 M01S02008.286l859 ---| SA2 CDSA RESTORE (X0) 04441 M01S02009.286l859 ---| BX0 X2 04442 M01S02010.286l859 ---| SX6 B1 SET DEVICE NOT FOUND STATUS 04443 M01S02011.286l859 ---| EQ CDSX RETURN
| Line S02306 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 04444 M01S02306.286l859 +++| PCF1 NG X2,PCFX IF NO OLD CATALOG TRACK 04445 M01S02307.286l859 +++| PCINT CATS,CTCC CLEAR OLD CATALOG TRACK INTERLOCK 04446 M00S02012.comcpfs +++|
| Line S02013 Modification History | |
|---|---|
M01 (Removed by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 04447 M01S02013.286l859 ---| CDSA BSSZ 1 (X0) SAVE AREA
Proceed to Part 3
cdc/nos2.source/opl.opl871/common/comcpfs.002.txt · Last modified: by 127.0.0.1