Common COMCPFS Part 002

10 Modifications

Seq #  *Modification Id* Act 
----------------------------+
03008  M00S01225.comcpfs +++|

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 +++|

Seq #  *Modification Id* Act 
----------------------------+
03015  M01S01228.286l859 ---|*         SET LABEL PARAMETERS IN OUTPUT FILE HEADER.

Seq #  *Modification Id* Act 
----------------------------+
03016  M01S01681.286l859 +++|*         BUILD ARCHIVE FILE IDENTIFIER BLOCK.
03017  M00S01229.comcpfs +++|

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

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

Seq #  *Modification Id* Act 
----------------------------+
03060  M01S01268.286l859 ---|          SA6    PLPE

Seq #  *Modification Id* Act 
----------------------------+
03061  M01S01686.286l859 +++|          SA6    AFIB
03062  M00S01269.comcpfs +++|          SA7    A6+B1

Seq #  *Modification Id* Act 
----------------------------+
03063  M01S01270.286l859 ---|          SA1    X0+/COMSPFS/TIAL
03064  M01S01271.286l859 ---|          SA2    X0+/COMSPFS/DAAL

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

Seq #  *Modification Id* Act 
----------------------------+
03068  M01S01273.286l859 ---|          SA6    PLPF

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

Seq #  *Modification Id* Act 
----------------------------+
03073  M01S01277.286l859 ---|          NG     X6,PLP4     IF ERROR IN DATE

Seq #  *Modification Id* Act 
----------------------------+
03074  M01S01690.286l859 +++|          NG     X6,PLP1     IF ERROR IN DATE
03075  M00S01278.comcpfs +++|          LX6    18

Seq #  *Modification Id* Act 
----------------------------+
03076  M01S01279.286l859 ---|          SA6    PLPE+2
03077  M01S01280.286l859 ---|          SA2    PLPF

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

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

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

Seq #  *Modification Id* Act 
----------------------------+
03089  M01S01288.286l859 ---|          EQ     PLP5        WRITE BLOCK TO FILE

Seq #  *Modification Id* Act 
----------------------------+
03090  M01S01695.286l859 +++|          EQ     PLP2        PROCESS DEVICE PARAMETERS
03091  M00S01289.comcpfs +++|

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

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 +++|

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 +++|

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

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

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

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.

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

Seq #  *Modification Id* Act 
----------------------------+
03651  M01S01461.286l859 ---| RCE      SPACE  4,30
03652  M01S01462.286l859 ---|**        RCE - READ CATALOG ENTRIES.

Seq #  *Modification Id* Act 
----------------------------+
03653  M01S02084.286l859 +++| RCS      SPACE  4,20
03654  M01S02085.286l859 +++|**        RCS - READ CATALOG SECTOR.
03655  M00S01463.comcpfs +++|*

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*.

Seq #  *Modification Id* Act 
----------------------------+
03662  M01S02086.286l859 +++|*         ENTRY  (X2) = FET ADDRESS.
03663  M00S01470.comcpfs +++|*

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.

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 +++|*

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.

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 +++|*

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.

Seq #  *Modification Id* Act 
----------------------------+
03691  M01S02098.286l859 +++|*         CALLS  SFE.
03692  M00S01487.comcpfs +++|*

Seq #  *Modification Id* Act 
----------------------------+
03693  M01S01488.286l859 ---|*         CALLS  CCF, PCE.
03694  M01S01489.286l859 ---|*
03695  M01S01490.286l859 ---|*         MACROS READO, READW.

Seq #  *Modification Id* Act 
----------------------------+
03696  M01S02099.286l859 +++|*         MACROS RECALL, READW.
03697  M00S01491.comcpfs +++|
03698  M00S01492.comcpfs +++|

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

Seq #  *Modification Id* Act 
----------------------------+
03704  M01S02100.286l859 +++| RCS      SUBR               ENTRY/EXIT
03705  M01S02101.286l859 +++|          READW  X2,RCSA,1   READ LEADING CONTROL WORD

Seq #  *Modification Id* Act 
----------------------------+
03706  M02S02102.cpfs2   ---|          SX6    X1+         SAVE STATUS

Seq #  *Modification Id* Act 
----------------------------+
03707  M01S00011.cpfs2   +++|          SX4    B1          PRESET FATAL ERROR
03708  M01S00012.cpfs2   +++|          SX6    X1          SAVE STATUS

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

Seq #  *Modification Id* Act 
----------------------------+
03729  M01S00013.cpfs2   +++|          SB2    ERCR        * CATALOG READ ERROR ...*
03730  M00S01498.comcpfs +++|

Seq #  *Modification Id* Act 
----------------------------+
03731  M01S01499.286l859 ---|*         INITIALIZE READ CONTROLS.

Seq #  *Modification Id* Act 
----------------------------+
03732  M02S02123.cpfs2   ---|*         PROCESS READ ERROR WITH DATA TRANSFERRED.

Seq #  *Modification Id* Act 
----------------------------+
03733  M01S00014.cpfs2   +++|*         CLEAR ERROR CODE IN FET.
03734  M00S01500.comcpfs +++|

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

Seq #  *Modification Id* Act 
----------------------------+
03744  M02S02124.cpfs2   ---|          RECALL X2          WAIT *CIO* COMPLETE

Seq #  *Modification Id* Act 
----------------------------+
03745  M01S00015.cpfs2   +++| RCS1     RECALL X2          WAIT *CIO* COMPLETE

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

Seq #  *Modification Id* Act 
----------------------------+
03752  M02S02131.cpfs2   ---|          SB2    ERCR        * CATALOG READ ERROR ...*
03753  M02S02132.cpfs2   ---|          EQ     RCS2        ISSUE ERROR MESSAGE

Seq #  *Modification Id* Act 
----------------------------+
03754  M01S01510.cpfs2   ---|

Seq #  *Modification Id* Act 
----------------------------+
03755  M02S01511.cpfs2   ---|*         READ *CIO* HEADER CONTROL WORD.

Seq #  *Modification Id* Act 
----------------------------+
03756  M02S02133.cpfs2   ---|*         SET FATAL ERROR.

Seq #  *Modification Id* Act 
----------------------------+
03757  M01S01512.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

Seq #  *Modification Id* Act 
----------------------------+
03775  M02S02134.cpfs2   ---| RCS1     SX6    1
03776  M02S02135.cpfs2   ---|          SA6    RCSA        SET FATAL ERROR STATUS
03777  M00S01530.comcpfs +++|

Seq #  *Modification Id* Act 
----------------------------+
03778  M01S01531.286l859 ---|*         CHECK ERROR STATUS.

Seq #  *Modification Id* Act 
----------------------------+
03779  M01S02136.286l859 +++|*         ISSUE ERROR MESSAGE.
03780  M00S01532.comcpfs +++|

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

Seq #  *Modification Id* Act 
----------------------------+
03783  M02S02137.cpfs2   ---| RCS2     SA1    PDUI

Seq #  *Modification Id* Act 
----------------------------+
03784  M01S00016.cpfs2   +++|          BX6    X4
03785  M01S00017.cpfs2   +++|          SA6    RCSB        SAVE FATAL ERROR STATUS
03786  M01S00018.cpfs2   +++|          SA1    PDUI

Seq #  *Modification Id* Act 
----------------------------+
03787  M01S02138.286l859 +++|          RJ     SFE         SEND ERROR MESSAGE

Seq #  *Modification Id* Act 
----------------------------+
03788  M02S02139.cpfs2   ---|          SA1    RCSA        GET ERROR STATUS

Seq #  *Modification Id* Act 
----------------------------+
03789  M01S00019.cpfs2   +++|          SA1    RCSB        GET ERROR STATUS

Seq #  *Modification Id* Act 
----------------------------+
03790  M01S02140.286l859 +++|          EQ     RCSX        RETURN
03791  M00S01535.comcpfs +++|

Seq #  *Modification Id* Act 
----------------------------+
03792  M01S01536.286l859 ---|*         DETERMINE IF SECTOR WILL FIT INTO REMAINING BUFFER SPACE.
03793  M00S01537.comcpfs +++|

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

Seq #  *Modification Id* Act 
----------------------------+
03875  M02S02141.cpfs2   ---| RCSA     CON    0           LEADING CONTROL WORD/ERROR STATUS

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 +++|

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

Seq #  *Modification Id* Act 
----------------------------+
03886  M01S02142.286l859 +++| CSBF     BSSZ   100B        CATALOG SECTOR BUFFER
03887  M00S01627.comcpfs +++|

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

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

Seq #  *Modification Id* Act 
----------------------------+
03896  M01S01634.cpfs2   ---|*         MESSAGE DESCRIPTION STRINGS.

Seq #  *Modification Id* Act 
----------------------------+
03897  M01S00022.cpfs2   +++|*         ERROR MESSAGES.
03898  M00S01635.comcpfs +++|
03899  M00S01636.comcpfs +++|

Seq #  *Modification Id* Act 
----------------------------+
03900  M01S01637.286l859 ---| MECR     DATA   C* ??????? - CATALOG READ ERROR*

Seq #  *Modification Id* Act 
----------------------------+
03901  M02S02145.cpfs2   ---| ERCR     DATA   C* CATALOG READ ERROR*
03902  M02S02146.cpfs2   ---| ERCB     DATA   C* CATALOG SECTOR BAD*

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

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.

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.

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 +++|*

Seq #  *Modification Id* Act 
----------------------------+
03967  M01S01697.286l859 ---|*         MACROS DROPDS, READ, READW, REWIND, SETASA, WRITER.

Seq #  *Modification Id* Act 
----------------------------+
03968  M01S02150.286l859 +++|*         MACROS DROPDS, READ, READW, RETURN, REWIND, SETASA, WRITER.
03969  M00S01698.comcpfs +++|
03970  M00S01699.comcpfs +++|

Seq #  *Modification Id* Act 
----------------------------+
03971  M01S02151.286l859 +++| PFR6     RETURN X2          RETURN REQUEST FILE
03972  M01S02152.286l859 +++|
03973  M00S01700.comcpfs +++| PFR      SUBR               ENTRY/EXIT

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

Seq #  *Modification Id* Act 
----------------------------+
03983  M01S01708.286l859 ---|          NZ     X1,PFRX     IF END OF REQUESTS

Seq #  *Modification Id* Act 
----------------------------+
03984  M01S02155.286l859 +++|          NZ     X1,PFR6     IF END OF REQUESTS
03985  M00S01709.comcpfs +++|          SA2    PFRI
03986  M00S01710.comcpfs +++|          SA1    PFRF

Seq #  *Modification Id* Act 
----------------------------+
03987  M01S01711.286l859 ---|          SX2    X2          SET MESSAGE DESCRIPTION ADDRESS

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 +++|

Seq #  *Modification Id* Act 
----------------------------+
04013  M01S01736.286l859 ---| PFR5     SA1    X2          GET ERROR CODE FROM FET
04014  M01S01737.286l859 ---|          SA2    PFRI        GET ACCUMULATORS ADDRESS

Seq #  *Modification Id* Act 
----------------------------+
04015  M01S02157.286l859 +++| PFR5     SA1    X2+         GET ERROR CODE FROM FET
04016  M00S01738.comcpfs +++|          SX1    X1

Seq #  *Modification Id* Act 
----------------------------+
04017  M01S01739.286l859 ---|          LX2    -18
04018  M00S01740.comcpfs +++|          AX1    10
04019  M00S01741.comcpfs +++|          NZ     X1,PFR1     IF *PFM* ERROR

Seq #  *Modification Id* Act 
----------------------------+
04020  M01S01742.286l859 ---|          SA2    X2          COUNT FILE PROCESSED
04021  M01S01743.286l859 ---|          SX6    X2+B1
04022  M01S01744.286l859 ---|          SA6    A2+

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

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 +++|*

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*.

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.

Seq #  *Modification Id* Act 
----------------------------+
04073  M01S01761.286l859 ---|*                (CPAR+/COMSPFS/CPDN) = MASTER DEVICE NUMBER.

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 +++|*

Seq #  *Modification Id* Act 
----------------------------+
04077  M01S01764.286l859 ---|*         EXIT   (A1) = ADDRESS OF CATALOG ENTRY IN *CBUF*.

Seq #  *Modification Id* Act 
----------------------------+
04078  M01S02193.286l859 +++|*         EXIT   (A0) = CATALOG ENTRY ADDRESS.
04079  M00S01765.comcpfs +++|*                *PFM* SPECIAL REQUEST BLOCK BUILT.
04080  M00S01766.comcpfs +++|*

Seq #  *Modification Id* Act 
----------------------------+
04081  M01S01767.286l859 ---|*         USES   X - 0, 1, 2, 3, 6, 7.

Seq #  *Modification Id* Act 
----------------------------+
04082  M02S01768.286l859 ---|*                A - 2, 3, 6, 7.

Seq #  *Modification Id* Act 
----------------------------+
04083  M02S00001.286l859 ---|*                A - 1, 2, 3, 6, 7.

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

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

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

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

Seq #  *Modification Id* Act 
----------------------------+
04101  M01S01778.274l797 ---|          MX6    -36

Seq #  *Modification Id* Act 
----------------------------+
04102  M01S00002.274l797 +++|          MX0    -36
04103  M00S01779.comcpfs +++|          MX7    -18
04104  M00S01780.comcpfs +++|          BX1    -X7*X1      ISOLATE USER INDEX

Seq #  *Modification Id* Act 
----------------------------+
04105  M01S01781.274l797 ---|          BX6    -X6*X2

Seq #  *Modification Id* Act 
----------------------------+
04106  M01S00003.274l797 +++|          BX6    -X0*X2

Seq #  *Modification Id* Act 
----------------------------+
04107  M02S00004.286l859 ---|          SA2    A0+2        GET OPTICAL DISK ADDRESS

Seq #  *Modification Id* Act 
----------------------------+
04108  M01S02202.286l859 +++|          SA2    B2+2        GET OPTICAL DISK ADDRESS

Seq #  *Modification Id* Act 
----------------------------+
04109  M01S00005.274l797 +++|          BX2    X0*X2
04110  M01S00006.274l797 +++|          BX6    X2+X6       MERGE ADDRESS AND CREATION DATE/TIME

Seq #  *Modification Id* Act 
----------------------------+
04111  M01S01782.286l859 ---|          SA6    A0+2        SET CREATION DATE AND TIME

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

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

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 +++|*

Seq #  *Modification Id* Act 
----------------------------+
04133  M01S01802.286l859 ---|*         ENTRY  (CBIN) = INDEX OF CATALOG ENTRY IN *CBUF*.

Seq #  *Modification Id* Act 
----------------------------+
04134  M01S02205.286l859 +++|*         ENTRY  (A0) = CATALOG ENTRY ADDRESS.
04135  M00S01803.comcpfs +++|*                (X7) = SPECIAL REQUEST BLOCK WORD 1.

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 +++|*

Seq #  *Modification Id* Act 
----------------------------+
04140  M01S01807.286l859 ---|*         EXIT   *PFM* REQUEST PARAMETERS WRITTEN TO REQUEST FILE.

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

Seq #  *Modification Id* Act 
----------------------------+
04150  M01S01815.286l859 ---|          SA4    CBIN        SET CATALOG ENTRY INDEX
04151  M01S01816.286l859 ---|          SA0    PFRS        SET SPECIAL REQUEST BLOCK ADDRESS

Seq #  *Modification Id* Act 
----------------------------+
04152  M01S02209.286l859 +++|          SB2    PFRS        SET SPECIAL REQUEST BLOCK ADDRESS
04153  M00S01817.comcpfs +++|          RJ     SPR         SET *PFM* REQUEST

Seq #  *Modification Id* Act 
----------------------------+
04154  M01S01818.286l859 ---|          SA1    A1          SET FILE NAME AND USER INDEX

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

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

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

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 +++|*

Seq #  *Modification Id* Act 
----------------------------+
04229  M01S01885.286l859 ---|*         ENTRY  (B3) = CATALOG ENTRY ADDRESS.

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.

Seq #  *Modification Id* Act 
----------------------------+
04239  M01S01894.286l859 ---|*                (B4) = NUMBER OF ALTERNATE STORAGE COPIES WITHOUT
04240  M01S01895.286l859 ---|*                  ERRORS.

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 +++|*

Seq #  *Modification Id* Act 
----------------------------+
04245  M01S01897.286l859 ---|*         USES   X - 0, 1, 2, 3, 6, 7.

Seq #  *Modification Id* Act 
----------------------------+
04246  M01S02222.286l859 +++|*         USES   X - 1, 2, 3, 6, 7.
04247  M00S01898.comcpfs +++|*                A - 1, 2.

Seq #  *Modification Id* Act 
----------------------------+
04248  M01S01899.286l859 ---|*                B - 2, 4.

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 +++|

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

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

Seq #  *Modification Id* Act 
----------------------------+
04266  M01S01912.286l859 ---|          BX7    -X7*X1
04267  M00S01913.comcpfs +++|          ZR     X6,CBR2     IF NO TAPE ALTERNATE STORAGE COPIES

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

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

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

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 +++|

Seq #  *Modification Id* Act 
----------------------------+
04300  M01S01938.286l859 ---| CBR3     SA1    B3+FCBR     GET BACKUP REQUIREMENT CODE

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

Seq #  *Modification Id* Act 
----------------------------+
04323  M01S01960.286l859 ---| CDS      SPACE  4,20

Seq #  *Modification Id* Act 
----------------------------+
04324  M01S02237.286l859 +++| CDS      SPACE  4,10
04325  M00S01961.comcpfs +++|**        CDS - CHECK DEVICE STATUS.
04326  M00S01962.comcpfs +++|*

Seq #  *Modification Id* Act 
----------------------------+
04327  M01S01963.286l859 ---|*         ENTRY  (X0) = 42/,18/CATALOG ADDRESS.
04328  M01S01964.286l859 ---|*                (X1) = DIRECT ACCESS FILE RESIDENCY DEVICE.

Seq #  *Modification Id* Act 
----------------------------+
04329  M01S02238.286l859 +++|*         ENTRY  (X1) = DEVICE NUMBER.
04330  M00S01965.comcpfs +++|*

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.

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 +++|*

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.

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 +++|*

Seq #  *Modification Id* Act 
----------------------------+
04362  M01S01975.286l859 ---|*         CALLS  SEM.

Seq #  *Modification Id* Act 
----------------------------+
04363  M01S02261.286l859 +++|*         EXIT   NEW CATALOG FILE OPENED.
04364  M00S01976.comcpfs +++|*

Seq #  *Modification Id* Act 
----------------------------+
04365  M01S01977.286l859 ---|*         MACROS EDITS.

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 +++|

Seq #  *Modification Id* Act 
----------------------------+
04372  M01S01980.286l859 ---|*         SET DIRECT ACCESS FILE EQUIPMENT.

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 +++|

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 +++|

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

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 +++|

Seq #  *Modification Id* Act 
----------------------------+
04447  M01S02013.286l859 ---| CDSA     BSSZ   1           (X0) SAVE AREA

Proceed to Part 3