Common COMCPFS Part 003

10 Modifications

Listing Sections

Common COMCPFS Start
Common COMCPFS Part 1 (Line 1561)
Common COMCPFS Part 2 (Line 3008)
Common COMCPFS Part 3 (Line 4448)

Source

Seq #  *Modification Id* Act 
----------------------------+

Line S02308 Modification History
`M01` (Added by)	`286l859`

Seq #  *Modification Id* Act 
----------------------------+
04448  M01S02308.286l859 +++| PCF      SUBR               ENTRY/EXIT
04449  M01S02309.286l859 +++|          SA2    CTRK
04450  M01S02310.286l859 +++|          SA1    PDUI
04451  M01S02311.286l859 +++|          BX6    X5
04452  M01S02312.286l859 +++|          SA6    A2          UPDATE CATALOG TRACK
04453  M01S02313.286l859 +++|          NG     X5,PCF1     IF CLEARING CATALOG TRACK STATUS
04454  M01S02314.286l859 +++|          MX7    -3
04455  M01S02315.286l859 +++|          BX7    -X7*X1
04456  M01S02316.286l859 +++|          LX6    3
04457  M01S02317.286l859 +++|          BX7    X7+X6       SET NEW CATALOG TRACK
04458  M01S02318.286l859 +++|          SA7    A1
04459  M01S02319.286l859 +++|          SX6    A1
04460  M01S02320.286l859 +++|          SX7    PDWD
04461  M01S02321.286l859 +++|          LX7    18
04462  M01S02322.286l859 +++|          BX7    X6+X7
04463  M01S02323.286l859 +++|          SA7    CATS+FTPM   SET PF DESCRIPTION POINTERS
04464  M01S02324.286l859 +++|          BX0    X2          SAVE OLD CATALOG TRACK STATUS
04465  M01S02325.286l859 +++|          CALLPFU  CATS,CTPC,R  POSITION CATALOG FILE TO NEW TRACK
04466  M01S02326.286l859 +++|          PL     X0,PCFX     IF OLD CATALOG TRACK ON ENTRY
04467  M01S02327.286l859 +++|          PCINT  CATS,CTSC   SET NEW CATALOG TRACK INTERLOCK
04468  M01S02328.286l859 +++|          EQ     PCFX        RETURN
04469  M00S02014.comcpfs +++| SAC      SPACE  4,15
04470  M00S02015.comcpfs +++|**        SAC - SET PF ACTIVITY COUNT.
04471  M00S02016.comcpfs +++|*
04472  M00S02017.comcpfs +++|*         ENTRY  (ACFL) = 0.
04473  M00S02018.comcpfs +++|*                (MAEQ) = MASTER DEVICE EST ORDINAL.
04474  M00S02019.comcpfs +++|*
04475  M00S02020.comcpfs +++|*         EXIT   (ACFL) = 1.
04476  M00S02021.comcpfs +++|*                *PFU* CALLED TO SET PF ACTIVITY COUNT.
04477  M00S02022.comcpfs +++|*
04478  M00S02023.comcpfs +++|*         USES   X - 3, 6.
04479  M00S02024.comcpfs +++|*                A - 3, 6.
04480  M00S02025.comcpfs +++|*
04481  M00S02026.comcpfs +++|*         MACROS CALLPFU, MESSAGE, MOVE.
04482  M00S02027.comcpfs +++|
04483  M00S02028.comcpfs +++|
04484  M00S02029.comcpfs +++| SAC      SUBR               ENTRY/EXIT
04485  M00S02030.comcpfs +++|          SA3    MAEQ        SET MASTER DEVICE EST ORDINAL
04486  M00S02031.comcpfs +++|          SX6    ACFL        SET ACTIVITY COUNT FLAG ADDRESS
04487  M00S02032.comcpfs +++|          LX3    -12
04488  M00S02033.comcpfs +++|          BX6    X3+X6       MERGE WITH FET ADDRESS
04489  M00S02034.comcpfs +++|          SA6    ACFT+FTPM
04490  M00S02035.comcpfs +++|          SA3    IDSA+/COMSPFS/ADM1  *K* DISPLAY MESSAGE ADDRESS
04491  M00S02036.comcpfs +++|          MOVE   4,MESP,X3   *SETTING PF ACTIVITY COUNT.*
04492  M00S02037.comcpfs +++|          MESSAGE  MESP,2,R
04493  M00S02038.comcpfs +++|          CALLPFU  ACFT,CTIA,R  INCREMENT PF ACTIVITY COUNT
04494  M00S02039.comcpfs +++|          SA3    IDSA+/COMSPFS/ADM1  *K* DISPLAY MESSAGE ADDRESS
04495  M00S02040.comcpfs +++|          MOVE   4,MENL,X3   CLEAR SETTING MESSAGE
04496  M00S02041.comcpfs +++|          MESSAGE  (=C**),2,R
04497  M00S02042.comcpfs +++|          EQ     SACX        RETURN

Line S02043 Modification History
`M01` (Removed by)	`ns2670a`

Seq #  *Modification Id* Act 
----------------------------+
04498  M01S02043.ns2670a ---| SFL      SPACE  4,15

Line S00001 Modification History
`M01` (Added by)	`ns2670a`

Seq #  *Modification Id* Act 
----------------------------+
04499  M01S00001.ns2670a +++| SFL      SPACE  4,20
04500  M00S02044.comcpfs +++|**        SFL - SET FILE LENGTH.
04501  M00S02045.comcpfs +++|*

Line S02046 Modification History
`M01` (Removed by)	`286l859`

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

Line S02329 Modification History
`M01` (Added by)	`286l859`

Seq #  *Modification Id* Act 
----------------------------+
04503  M01S02329.286l859 +++|*         ENTRY  (A0) = CATALOG ENTRY ADDRESS.

Line S00002 Modification History
`M01` (Added by)	`ns2670a`

Seq #  *Modification Id* Act 
----------------------------+
04504  M01S00002.ns2670a +++|*                (FLCF) .NE. 0 IF CORRECT FILE LENGTH IN CATALOG ENTRY.
04505  M00S02047.comcpfs +++|*

Line S02048 Modification History
`M01` (Removed by)	`286l859`

Seq #  *Modification Id* Act 
----------------------------+
04506  M01S02048.286l859 ---|*         EXIT   (X6) = 0 IF NO ERROR.
04507  M01S02049.286l859 ---|*                (X6) .NE. 0 IF NON-MASTER DEVICE NOT FOUND.

Line S02330 Modification History
`M01` (Added by)	`286l859`

Seq #  *Modification Id* Act 
----------------------------+
04508  M01S02330.286l859 +++|*         EXIT   (A0) = CATALOG ENTRY ADDRESS.
04509  M01S02331.286l859 +++|*                (X6) .NE. 0 IF NO ERROR.
04510  M01S02332.286l859 +++|*                (X6) = 0 IF NON-MASTER DEVICE NOT FOUND.
04511  M00S02050.comcpfs +++|*                FILE LENGTH SET IN PFC ENTRY IF NO ERROR.

Line S00003 Modification History
`M01` (Added by)	`ns2670a`

Seq #  *Modification Id* Act 
----------------------------+
04512  M01S00003.ns2670a +++|*                (FLCF) .NE. 0 IF CORRECT FILE LENGTH IN CATALOG ENTRY
04513  M01S00004.ns2670a +++|*                  AND NO ERROR.
04514  M00S02051.comcpfs +++|*

Line S02052 Modification History
`M01` (Removed by)	`ns2670a`

Seq #  *Modification Id* Act 
----------------------------+
04515  M01S02052.ns2670a ---|*         USES   X - 0, 1, 2, 4, 6, 7.

Line S00005 Modification History
`M01` (Added by)	`ns2670a`

Seq #  *Modification Id* Act 
----------------------------+
04516  M01S00005.ns2670a +++|*         USES   X - 0, 1, 2, 4, 5, 6, 7.
04517  M00S02053.comcpfs +++|*                A - 1, 2, 4, 6, 7.

Line S02054 Modification History
`M01` (Removed by)	`286l859`

Seq #  *Modification Id* Act 
----------------------------+
04518  M01S02054.286l859 ---|*                B - 3.

Line S02333 Modification History
`M01` (Added by)	`286l859`

Seq #  *Modification Id* Act 
----------------------------+
04519  M01S02333.286l859 +++|*                B - 2, 3.
04520  M00S02055.comcpfs +++|*

Line S02056 Modification History
`M01` (Removed by)	`286l859`

Seq #  *Modification Id* Act 
----------------------------+
04521  M01S02056.286l859 ---|*         CALLS  CDS.

Line S02334 Modification History
`M01` (Added by)	`286l859`

Seq #  *Modification Id* Act 
----------------------------+
04522  M01S02334.286l859 +++|*         CALLS  CDS, CFE, SDE.
04523  M00S02057.comcpfs +++|*
04524  M00S02058.comcpfs +++|*         MACROS CALLPFU.
04525  M00S02059.comcpfs +++|
04526  M00S02060.comcpfs +++|
04527  M00S02061.comcpfs +++| SFL      SUBR               ENTRY/EXIT

Line S00006 Modification History
`M01` (Added by)	`ns2670a`

Seq #  *Modification Id* Act 
----------------------------+
04528  M01S00006.ns2670a +++|          SA1    FLCF

Line S00007 Modification History
`M01` (Added by)	`ns2670a`
`M02` (Removed by)	`286l859`

Seq #  *Modification Id* Act 
----------------------------+
04529  M02S00007.286l859 ---|          NZ     X1,SFL4     IF FILE LENGTH ALREADY CORRECT

Line S02062 Modification History
`M01` (Removed by)	`286l859`

Seq #  *Modification Id* Act 
----------------------------+
04530  M01S02062.286l859 ---|          SA4    B3+FCLF     CHECK FILE LENGTH IN PFC
04531  M01S02063.286l859 ---|          SA1    B3+FCDN

Line S02335 Modification History
`M01` (Added by)	`286l859`

Seq #  *Modification Id* Act 
----------------------------+
04532  M01S02335.286l859 +++|          NZ     X1,SFL3     IF FILE LENGTH ALREADY CORRECT
04533  M01S02336.286l859 +++|          SA4    A0+FCLF
04534  M01S02337.286l859 +++|          SA1    A0+FCDN
04535  M00S02064.comcpfs +++|          SA2    MAEQ
04536  M00S02065.comcpfs +++|          MX7    24
04537  M00S02066.comcpfs +++|          MX0    -12
04538  M00S02067.comcpfs +++|          BX7    X7*X4
04539  M00S02068.comcpfs +++|          LX4    59-11

Line S02069 Modification History
`M01` (Removed by)	`ns2670a`

Seq #  *Modification Id* Act 
----------------------------+
04540  M01S02069.ns2670a ---|          SX6    B0          CLEAR ERROR STATUS
04541  M01S02070.ns2670a ---|          PL     X4,SFLX     IF INDIRECT ACCESS FILE

Line S00008 Modification History
`M01` (Added by)	`ns2670a`

Seq #  *Modification Id* Act 
----------------------------+
04542  M01S00008.ns2670a +++|          PL     X4,SFL3     IF INDIRECT ACCESS FILE
04543  M00S02071.comcpfs +++|          BX5    -X0*X4      FIRST TRACK
04544  M00S02072.comcpfs +++|          LX4    12
04545  M00S02073.comcpfs +++|          NZ     X7,SFL2     IF FILE LENGTH PRESENT IN CATALOG ENTRY
04546  M00S02074.comcpfs +++|          LX1    -36
04547  M00S02075.comcpfs +++|          MX7    -6

Line S02076 Modification History
`M01` (Removed by)	`286l859`

Seq #  *Modification Id* Act 
----------------------------+
04548  M01S02076.286l859 ---|          BX1    -X7*X1

Line S02338 Modification History
`M01` (Added by)	`286l859`

Seq #  *Modification Id* Act 
----------------------------+
04549  M01S02338.286l859 +++|          BX1    -X7*X1      RESIDENCY DEVICE
04550  M00S02077.comcpfs +++|          BX7    X2          MASTER EQUIPMENT
04551  M00S02078.comcpfs +++|          ZR     X1,SFL1     IF FILE RESIDES ON MASTER DEVICE

Line S02079 Modification History
`M01` (Removed by)	`ns2670a`

Seq #  *Modification Id* Act 
----------------------------+
04552  M01S02079.ns2670a ---|          SX6    B3          SAVE CATALOG ENTRY ADDRESS
04553  M01S02080.ns2670a ---|          SA6    SFLA

Line S00009 Modification History
`M01` (Added by)	`ns2670a`
`M02` (Removed by)	`286l859`

Seq #  *Modification Id* Act 
----------------------------+
04554  M02S00009.286l859 ---|          SX6    B3

Line S02081 Modification History
`M01` (Removed by)	`286l859`

Seq #  *Modification Id* Act 
----------------------------+
04555  M01S02081.286l859 ---|          SX0    B3          SET CATALOG ADDRESS

Line S00010 Modification History
`M01` (Added by)	`ns2670a`
`M02` (Removed by)	`286l859`

Seq #  *Modification Id* Act 
----------------------------+
04556  M02S00010.286l859 ---|          SA6    SFLA        SAVE CATALOG ENTRY ADDRESS
04557  M00S02082.comcpfs +++|          RJ     CDS         CHECK DEVICE STATUS

Line S02083 Modification History
`M01` (Removed by)	`286l859`

Seq #  *Modification Id* Act 
----------------------------+
04558  M01S02083.286l859 ---|          SA1    SFLA        RESTORE CATALOG ENTRY ADDRESS
04559  M01S02084.286l859 ---|          SB3    X1+
04560  M01S02085.286l859 ---|          NZ     X6,SFLX     IF DEVICE NOT FOUND

Line S02339 Modification History
`M01` (Added by)	`286l859`

Seq #  *Modification Id* Act 
----------------------------+
04561  M01S02339.286l859 +++|          BX7    X6
04562  M01S02340.286l859 +++|          NZ     X6,SFL1     IF DEVICE FOUND
04563  M01S02341.286l859 +++|          BX2    X1          SET DEVICE NUMBER
04564  M01S02342.286l859 +++|          SA1    A0+FCFN     GET FILE NAME AND USER INDEX
04565  M01S02343.286l859 +++|          SB2    ERDN        * DEVICE NOT FOUND ...*
04566  M01S02344.286l859 +++|          RJ     SDE         ISSUE ERROR MESSAGE
04567  M01S02345.286l859 +++|          RJ     CFE         COUNT FILE SKIPPED
04568  M01S02346.286l859 +++|          SX6    B0          SET DEVICE NOT FOUND
04569  M01S02347.286l859 +++|          EQ     SFLX        RETURN
04570  M01S02348.286l859 +++|
04571  M00S02086.comcpfs +++| SFL1     LX7    48
04572  M00S02087.comcpfs +++|          BX7    X7+X5       MERGE EQUIPMENT AND TRACK
04573  M00S02088.comcpfs +++|          SA7    CATS+FTPM
04574  M00S02089.comcpfs +++|          CALLPFU  CATS,CTFL,R  GET FILE LENGTH FROM TRT
04575  M00S02090.comcpfs +++|          SA1    CATS+FTPM
04576  M00S02091.comcpfs +++|          MX7    -24
04577  M00S02092.comcpfs +++|          BX7    -X7*X1
04578  M00S02093.comcpfs +++|          ZR     X7,SFL3     IF ZERO LENGTH
04579  M00S02094.comcpfs +++|          LX7    36
04580  M00S02095.comcpfs +++|          BX4    X4+X7       MERGE FILE LENGTH
04581  M00S02096.comcpfs +++| SFL2     SX1    B1          SUBTRACT EOI SECTOR FROM LENGTH
04582  M00S02097.comcpfs +++|          LX1    36
04583  M00S02098.comcpfs +++|          IX7    X4-X1
04584  M00S02099.comcpfs +++|          SA7    A4          SET FILE LENGTH

Line S02100 Modification History
`M01` (Removed by)	`ns2670a`

Seq #  *Modification Id* Act 
----------------------------+
04585  M01S02100.ns2670a ---| SFL3     BX6    X6-X6       SET NO ERROR

Line S00011 Modification History
`M01` (Added by)	`ns2670a`
`M02` (Removed by)	`286l859`

Seq #  *Modification Id* Act 
----------------------------+
04586  M02S00011.286l859 ---| SFL3     SX7    1           SET FILE LENGTH CORRECT FLAG
04587  M02S00012.286l859 ---|          SA7    FLCF
04588  M02S00013.286l859 ---| SFL4     BX6    X6-X6       SET NO ERROR

Line S02349 Modification History
`M01` (Added by)	`286l859`

Seq #  *Modification Id* Act 
----------------------------+
04589  M01S02349.286l859 +++| SFL3     SX6    1           SET FILE LENGTH CORRECT FLAG AND STATUS
04590  M01S02350.286l859 +++|          SA6    FLCF
04591  M00S02101.comcpfs +++|          EQ     SFLX        RETURN

Line S02351 Modification History
`M01` (Added by)	`286l859`

Seq #  *Modification Id* Act 
----------------------------+
04592  M01S02351.286l859 +++| SNC      SPACE  4,15
04593  M01S02352.286l859 +++|**        SNC - SET NEXT CATALOG TRACK.
04594  M01S02353.286l859 +++|*
04595  M01S02354.286l859 +++|*         ENTRY  (MSTA) = CURRENT MASTER DEVICE *MSTT* ADDRESS.
04596  M01S02355.286l859 +++|*                (CTRK) = CURRENT CATALOG TRACK IF .GE. 0.
04597  M01S02356.286l859 +++|*                (CTRK) = -1 IF NO CATALOG TRACKS PROCESSED ON DEVICE.
04598  M01S02357.286l859 +++|*                (SXUF) .NE. 0 IF ONLY PROCESSING *SYSTEMX* FILES ON
04599  M01S02358.286l859 +++|*                  SUBFAMILY 7.
04600  M01S02359.286l859 +++|*
04601  M01S02360.286l859 +++|*         EXIT   (X5) = NEXT CATALOG TRACK IF .GE. 0.
04602  M01S02361.286l859 +++|*                (X5) = -1 IF END OF CATALOG TRACKS TO PROCESS.
04603  M01S02362.286l859 +++|*
04604  M01S02363.286l859 +++|*         USES   X - ALL.
04605  M01S02364.286l859 +++|*                A - 1, 2, 3, 4.
04606  M01S02365.286l859 +++|*                B - 2.
04607  M00S02102.comcpfs +++|

Line S02103 Modification History
`M01` (Removed by)	`286l859`

Seq #  *Modification Id* Act 
----------------------------+
04608  M01S02103.286l859 ---| SFLA     CON    0           CATALOG ENTRY ADDRESS

Line S02366 Modification History
`M01` (Added by)	`286l859`

Seq #  *Modification Id* Act 
----------------------------+
04609  M01S02366.286l859 +++|
04610  M01S02367.286l859 +++| SNC      SUBR               ENTRY/EXIT
04611  M01S02368.286l859 +++|          SA1    /COMSPFS/FISP
04612  M01S02369.286l859 +++|          SA2    CTRK        GET CURRENT CATALOG TRACK
04613  M01S02370.286l859 +++|          SA3    MSTA        GET CURRENT *MSTT* POINTER
04614  M01S02371.286l859 +++|          SA3    X3+
04615  M01S02372.286l859 +++|          SA4    A3+B1
04616  M01S02373.286l859 +++|          MX6    -9
04617  M01S02374.286l859 +++|          LX3    -15
04618  M01S02375.286l859 +++|          BX3    -X6*X3
04619  M01S02376.286l859 +++|          SX3    X3-1        NUMBER OF CATALOG TRACKS - 1
04620  M01S02377.286l859 +++|          NZ     X1,SNC2     IF USER INDEX SELECTIONS PRESENT
04621  M01S02378.286l859 +++|          LX4    59-7
04622  M01S02379.286l859 +++|          PL     X4,SNC1     IF NOT *SYSTEMX* MASTER DEVICE
04623  M01S02380.286l859 +++|          SA4    SXUF
04624  M01S02381.286l859 +++|          NZ     X4,SNC5     IF PROCESSING *SYSTEMX* FILES ONLY
04625  M01S02382.286l859 +++|
04626  M01S02383.286l859 +++|*         ADVANCE CATALOG TRACK.
04627  M01S02384.286l859 +++|
04628  M01S02385.286l859 +++| SNC1     SX5    X2+B1       ADVANCE CATALOG TRACK
04629  M01S02386.286l859 +++|          BX2    -X3*X5
04630  M01S02387.286l859 +++|          ZR     X2,SNCX     IF NOT END OF CATALOG TRACKS
04631  M01S02388.286l859 +++|          SX5    -B1         SET END OF CATALOG TRACKS
04632  M01S02389.286l859 +++|          EQ     SNCX        RETURN
04633  M01S02390.286l859 +++|
04634  M01S02391.286l859 +++|*         SET CATALOG TRACK FROM USER INDEX SELECTIONS.
04635  M01S02392.286l859 +++|
04636  M01S02393.286l859 +++| SNC2     SA1    X1          GET FIRST ENTRY
04637  M01S02394.286l859 +++|          MX6    -8
04638  M01S02395.286l859 +++|          BX4    -X6*X4      DEVICE MASK
04639  M01S02396.286l859 +++|          MX7    -3
04640  M01S02397.286l859 +++|          SX0    1
04641  M01S02398.286l859 +++|          SX5    1000B
04642  M01S02399.286l859 +++| SNC3     BX6    -X7*X1
04643  M01S02400.286l859 +++|          LX1    -3
04644  M01S02401.286l859 +++|          SB2    X6          USER INDEX MASTER DEVICE POINTER
04645  M01S02402.286l859 +++|          BX6    X3*X1       USER INDEX CATALOG TRACK
04646  M01S02403.286l859 +++|          LX1    B2,X0
04647  M01S02404.286l859 +++|          BX1    X4*X1
04648  M01S02405.286l859 +++|          ZR     X1,SNC4     IF NOT CURRENT MASTER DEVICE
04649  M01S02406.286l859 +++|          IX1    X2-X6
04650  M01S02407.286l859 +++|          PL     X1,SNC4     IF CATALOG TRACK ALREADY PROCESSED
04651  M01S02408.286l859 +++|          IX1    X6-X5
04652  M01S02409.286l859 +++|          PL     X1,SNC4     IF THIS TRACK NOT LOWER THAN PREVIOUS
04653  M01S02410.286l859 +++|          SX5    X6+         UPDATE CATALOG TRACK
04654  M01S02411.286l859 +++| SNC4     SA1    A1+1        GET NEXT ENTRY
04655  M01S02412.286l859 +++|          NZ     X1,SNC3     IF MORE SELECTIONS TO CHECK
04656  M01S02413.286l859 +++|          SX1    X5-1000B
04657  M01S02414.286l859 +++|          NZ     X1,SNCX     IF NEW CATALOG TRACK FOUND
04658  M01S02415.286l859 +++|          SX5    -B1         SET END OF CATALOG TRACKS
04659  M01S02416.286l859 +++|          EQ     SNCX        PROCESS END OF CATALOG TRACKS
04660  M01S02417.286l859 +++|
04661  M01S02418.286l859 +++|*         SET *SYSTEMX* USER INDEX CATALOG TRACK.
04662  M01S02419.286l859 +++|
04663  M01S02420.286l859 +++| SNC5     BX5    X3          SET *SYSTEMX* CATALOG TRACK
04664  M01S02421.286l859 +++|          ZR     X2,SNCX     IF TRACK NOT ALREADY PROCESSED
04665  M01S02422.286l859 +++|          SX5    -B1         SET END OF CATALOG TRACKS
04666  M01S02423.286l859 +++|          EQ     SNCX        RETURN
04667  M01S02424.286l859 +++| SND      SPACE  4,20
04668  M01S02425.286l859 +++|**        SND - SET NEXT DEVICE.
04669  M01S02426.286l859 +++|*
04670  M01S02427.286l859 +++|*         ENTRY  (MSTA) = 0 IF FIRST CALL.
04671  M01S02428.286l859 +++|*                       = *MSTT* ADDRESS OF LAST DEVICE IF .NE. 0.
04672  M01S02429.286l859 +++|*
04673  M01S02430.286l859 +++|*         EXIT   (X1) .NE. 0 IF DEVICE SELECTED.
04674  M01S02431.286l859 +++|*                (X1) = 0 IF END OF DEVICES.
04675  M01S02432.286l859 +++|*                (MSTA) = *MSTT* ADDRESS OF NEXT DEVICE.
04676  M01S02433.286l859 +++|*                (MSTA) = *MSTT* LWA+1 IF END OF DEVICES.
04677  M01S02434.286l859 +++|*                (PDUI) = CATALOG DESCRIPTION USER INDEX.
04678  M01S02435.286l859 +++|*                (MAEQ) = MASTER DEVICE EST ORDINAL.
04679  M01S02436.286l859 +++|*                (CPAR+/COMSPFS/CPDN) = MASTER DEVICE NUMBER.
04680  M01S02437.286l859 +++|*                PF ACTIVITY COUNT ON PREVIOUS DEVICE IS DECREMENTED.
04681  M01S02438.286l859 +++|*                PF ACTIVITY COUNT IS INCREMENTED ON NEXT DEVICE.
04682  M01S02439.286l859 +++|*
04683  M01S02440.286l859 +++|*         USES   X - 1, 2, 3, 4, 6, 7.
04684  M01S02441.286l859 +++|*                A - 1, 2, 4, 6, 7.
04685  M01S02442.286l859 +++|*                B - 2, 3.
04686  M01S02443.286l859 +++|*
04687  M01S02444.286l859 +++|*         CALLS  CAC, SAC.
04688  M01S02445.286l859 +++|
04689  M01S02446.286l859 +++|
04690  M01S02447.286l859 +++| SND      SUBR               ENTRY/EXIT
04691  M01S02448.286l859 +++|          SA1    MSTA        SET ADDRESS OF MASS STORAGE TABLE
04692  M01S02449.286l859 +++|          SX7    MSTT
04693  M01S02450.286l859 +++|          ZR     X1,SND1     IF FIRST CALL
04694  M01S02451.286l859 +++|          RJ     CAC         CLEAR PF ACTIVITY COUNT
04695  M01S02452.286l859 +++|          SA1    MSTA
04696  M01S02453.286l859 +++|          SX7    X1+2        SET NEXT *MSTT* ADDRESS
04697  M01S02454.286l859 +++| SND1     SA4    MASK        GET FILE SELECTION MASK
04698  M01S02455.286l859 +++|          MX6    -8
04699  M01S02456.286l859 +++|
04700  M01S02457.286l859 +++|*         DETERMINE NEXT DEVICE.
04701  M01S02458.286l859 +++|
04702  M01S02459.286l859 +++| SND2     SA1    X7          GET FIRST WORD OF *MSTT* ENTRY
04703  M01S02460.286l859 +++|          SA2    X7+B1       GET DEVICE MASK
04704  M01S02461.286l859 +++|          SA7    MSTA        UPDATE *MSTT* ENTRY ADDRESS
04705  M01S02462.286l859 +++|          SX7    X7+2        ADVANCE ENTRY ADDRESS
04706  M01S02463.286l859 +++|          ZR     X1,SNDX     IF END OF DEVICES
04707  M01S02464.286l859 +++|          BX3    -X6*X2      DEVICE MASK
04708  M01S02465.286l859 +++|          BX3    X4*X3
04709  M01S02466.286l859 +++|          ZR     X3,SND2     IF NO SELECTED FILES CATALOGED ON DEVICE
04710  M01S02467.286l859 +++|
04711  M01S02468.286l859 +++|*         SET DEVICE PARAMETERS AND INCREMENT PF ACTIVITY COUNT.
04712  M01S02469.286l859 +++|
04713  M01S02470.286l859 +++|          SB2    47
04714  M01S02471.286l859 +++|          NX3    X3,B3       SET USER INDEX FOR CATALOG ACCESS
04715  M01S02472.286l859 +++|          SX7    B2-B3
04716  M01S02473.286l859 +++|          SA7    PDUI
04717  M01S02474.286l859 +++|          MX3    -6
04718  M01S02475.286l859 +++|          BX6    -X3*X1      MASTER DEVICE NUMBER
04719  M01S02476.286l859 +++|          SA6    CPAR+/COMSPFS/CPDN  SET MASTER DEVICE NUMBER
04720  M01S02477.286l859 +++|          MX3    -9
04721  M01S02478.286l859 +++|          LX1    -6
04722  M01S02479.286l859 +++|          BX7    -X3*X1      MASTER DEVICE EST ORDINAL
04723  M01S02480.286l859 +++|          SA7    MAEQ        SET MASTER DEVICE EST ORDINAL
04724  M01S02481.286l859 +++|          RJ     SAC         SET PF ACTIVITY COUNT
04725  M01S02482.286l859 +++|          SX1    B1          SET DEVICE SELECTED
04726  M01S02483.286l859 +++|          EQ     SNDX        RETURN

Line S02104 Modification History
`M01` (Removed by)	`ns2670a`

Seq #  *Modification Id* Act 
----------------------------+
04727  M01S02104.ns2670a ---| WCD      SPACE  4,15
04728  M01S02105.ns2670a ---|**        WCD - WRITE CATALOG DATA TO SELECTED OUTPUT FILES.
04729  M01S02106.ns2670a ---|*
04730  M01S02107.ns2670a ---|*         ENTRY  (B3) = CATALOG ENTRY ADDRESS.
04731  M01S02108.ns2670a ---|*                (X3) .NE. 0 IF FILE LENGTH SET IN CATALOG ENTRY.
04732  M01S02109.ns2670a ---|*
04733  M01S02110.ns2670a ---|*         EXIT   (B3) = CATALOG ENTRY ADDRESS.
04734  M01S02111.ns2670a ---|*                CATALOG DATA WRITTEN TO OUTPUT FILE AND CATALOG
04735  M01S02112.ns2670a ---|*                  ENTRIES FILE IF SELECTED.
04736  M01S02113.ns2670a ---|*
04737  M01S02114.ns2670a ---|*         USES   X - 1, 2, 6.
04738  M01S02115.ns2670a ---|*                A - 1, 2.
04739  M01S02116.ns2670a ---|*
04740  M01S02117.ns2670a ---|*         CALLS  OCD, SFL.
04741  M01S02118.ns2670a ---|
04742  M01S02119.ns2670a ---|
04743  M01S02120.ns2670a ---| WCD      SUBR               ENTRY/EXIT
04744  M01S02121.ns2670a ---|          SA1    CPAR+/COMSPFS/CPLO
04745  M01S02122.ns2670a ---|          SA2    CPAR+/COMSPFS/CPSU
04746  M01S02123.ns2670a ---|          NG     X1,WCD1     IF OUTPUT SELECTED
04747  M01S02124.ns2670a ---|          ZR     X2,WCDX     IF NO SUMMARY FILE
04748  M01S02125.ns2670a ---| WCD1     NZ     X3,WCD2     IF FILE LENGTH ALREADY SET
04749  M01S02126.ns2670a ---|          RJ     SFL         SET FILE LENGTH IN CATALOG ENTRY
04750  M01S02127.ns2670a ---| WCD2     SX6    B3+         SET CATALOG ADDRESS
04751  M01S02128.ns2670a ---|          SA6    WCDA
04752  M01S02129.ns2670a ---|          RJ     OCD         OUTPUT CATALOG DATA
04753  M01S02130.ns2670a ---|          SA1    WCDA        RESTORE CATALOG ENTRY ADDRESS
04754  M01S02131.ns2670a ---|          SB3    X1+
04755  M01S02132.ns2670a ---|          EQ     WCDX        RETURN
04756  M01S02133.ns2670a ---|
04757  M01S02134.ns2670a ---|
04758  M01S02135.ns2670a ---| WCDA     CON    0           CATALOG ENTRY ADDRESS
04759  M00S02136.comcpfs +++|          SPACE  4,10

Line S02137 Modification History
`M01` (Removed by)	`286l859`

Seq #  *Modification Id* Act 
----------------------------+
04760  M01S02137.286l859 ---|*         MESSAGE DESCRIPTION STRINGS.

Line S02484 Modification History
`M01` (Added by)	`286l859`

Seq #  *Modification Id* Act 
----------------------------+
04761  M01S02484.286l859 +++|*         ERROR MESSAGES.
04762  M00S02138.comcpfs +++|
04763  M00S02139.comcpfs +++|

Line S02140 Modification History
`M01` (Removed by)	`286l859`

Seq #  *Modification Id* Act 
----------------------------+
04764  M01S02140.286l859 ---| MEDN     DATA   C* ??????? - DEVICE NOT FOUND*
04765  M01S02141.286l859 ---| TCMP     SPACE  4,10
04766  M01S02142.286l859 ---|**        TCMP - TABLE OF COMMON MESSAGE DESCRIPTION STRING POINTERS.
04767  M01S02143.286l859 ---|*
04768  M01S02144.286l859 ---|*         THE UTILITY NAME WILL BE SET IN THE STRINGS BY *COMCPFP*.
04769  M01S02145.286l859 ---|*         TERMINATED BY A ZERO WORD.
04770  M01S02146.286l859 ---|
04771  M01S02147.286l859 ---|
04772  M01S02148.286l859 ---| TCMP     BSS    0           START OF TABLE
04773  M01S02149.286l859 ---|          CON    MECR        * CATALOG READ ERROR*
04774  M01S02150.286l859 ---|          CON    MEDN        * DEVICE NOT FOUND*
04775  M01S02151.286l859 ---|          CON    0           END OF TABLE

Line S02485 Modification History
`M01` (Added by)	`286l859`

Seq #  *Modification Id* Act 
----------------------------+
04776  M01S02485.286l859 +++| ERDN     DATA   C* DEVICE NOT FOUND, FN=???????, UI=!!!!!!, DN=++.*
04777  M00S02152.comcpfs +++|          SPACE  4,10
04778  M00S02153.comcpfs +++|*         STATUS MESSAGES.
04779  M00S02154.comcpfs +++|
04780  M00S02155.comcpfs +++|
04781  M00S02156.comcpfs +++| MEWC     DATA   40C WAIT FOR CATALOG INTERLOCK.
04782  M00S02157.comcpfs +++| MESP     DATA   40C SETTING PF ACTIVITY COUNT.
04783  M00S02158.comcpfs +++| MECP     DATA   40C CLEARING PF ACTIVITY COUNT.
04784  M00S02159.comcpfs +++| MENL     DATA   40C
04785  M00S02160.comcpfs +++|          TITLE  COMCPFS - *PFDUMP*/*PFDM* DATA AREA.
04786  M00S02161.comcpfs +++|          SPACE  4,10
04787  M00S02162.comcpfs +++|*         GLOBAL DATA LOCATIONS.
04788  M00S02163.comcpfs +++|
04789  M00S02164.comcpfs +++|

Line S00014 Modification History
`M01` (Added by)	`ns2670a`

Seq #  *Modification Id* Act 
----------------------------+
04790  M01S00014.ns2670a +++| FLCF     BSSZ   1           FILE LENGTH CORRECT FLAG

Line S02165 Modification History
`M01` (Removed by)	`286l859`

Seq #  *Modification Id* Act 
----------------------------+
04791  M01S02165.286l859 ---| FMPN     BSSZ   1           FAMILY NAME OR PACK NAME

Line S02486 Modification History
`M01` (Added by)	`286l859`

Seq #  *Modification Id* Act 
----------------------------+
04792  M01S02486.286l859 +++| CTRK     CON    -1          CURRENT CATALOG TRACK
04793  M00S02166.comcpfs +++| MAEQ     BSSZ   1           MASTER DEVICE EST ORDINAL

Line S02487 Modification History
`M01` (Added by)	`286l859`

Seq #  *Modification Id* Act 
----------------------------+
04794  M01S02487.286l859 +++| MSTA     BSSZ   1           *MSTT* ADDRESS OF DEVICE BEING PROCESSED
04795  M00S02167.comcpfs +++|          SPACE  4,10

Line S02168 Modification History
`M01` (Removed by)	`286l859`

Seq #  *Modification Id* Act 
----------------------------+
04796  M01S02168.286l859 ---|*         FILE SELECTION PARAMETERS.

Line S02488 Modification History
`M01` (Added by)	`286l859`

Seq #  *Modification Id* Act 
----------------------------+
04797  M01S02488.286l859 +++|*         CATALOG FILE PARAMETER WORDS.
04798  M00S02169.comcpfs +++|

Line S02170 Modification History
`M01` (Removed by)	`286l859`

Seq #  *Modification Id* Act 
----------------------------+
04799  M01S02170.286l859 ---|
04800  M01S02171.286l859 ---| BFSP     BSSZ   1           BOOLEAN FILE SELECTION PARAMETERS
04801  M01S02172.286l859 ---| FSNM     BSSZ   1           NON-MASTER DEVICE FILE SELECTION PARAMETER
04802  M01S02173.286l859 ---| FSTD     BSSZ   1           TRUE DEVICE FILE SELECTION PARAMETER
04803  M01S02174.286l859 ---| FSSD     BSSZ   1           SINGLE DEVICE FILE SELECTION PARAMETER
04804  M01S02175.286l859 ---|          SPACE  4,10
04805  M01S02176.286l859 ---|*         *GETPFP*, *SETPFP* PARAMETER BLOCKS.
04806  M01S02177.286l859 ---|
04807  M01S02178.286l859 ---|
04808  M01S02179.286l859 ---| SPAR     BSSZ   3           MODIFIED PERMANENT FILE PARAMETERS
04809  M01S02180.286l859 ---| GPAR     BSSZ   3           ORIGINAL PERMANENT FILE PARAMETERS

Line S02489 Modification History
`M01` (Added by)	`286l859`

Seq #  *Modification Id* Act 
----------------------------+
04810  M01S02489.286l859 +++| PDUI     BSS    1           PF DESCRIPTION USER INDEX
04811  M00S02181.comcpfs +++|          SPACE  4,10
04812  M00S02182.comcpfs +++|*         PERMANENT FILE ACTIVITY CONTROL FLAGS.
04813  M00S02183.comcpfs +++|
04814  M00S02184.comcpfs +++|
04815  M00S02185.comcpfs +++| ACFT     FILEB  0,0,(FET=10)  FET TO CONTROL PF ACTIVITY COUNT
04816  M00S02186.comcpfs +++| ACFL     CON    0           PF ACTIVITY FLAG (CLEAR=0, SET=1)

Line S02187 Modification History
`M01` (Removed by)	`286l859`

Seq #  *Modification Id* Act 
----------------------------+
04817  M01S02187.286l859 ---| MSTT     SPACE  4,20
04818  M01S02188.286l859 ---|**        MSTT - TABLE OF MST INFORMATION.
04819  M01S02189.286l859 ---|*
04820  M01S02190.286l859 ---|*         2 WORD ENTRIES, TERMINATED WITH A PAIR OF ZERO WORDS.
04821  M01S02191.286l859 ---|*
04822  M01S02192.286l859 ---|*T MSTT   12/  DATA,12/  CATS,12/  PETS,9/  NCTR,9/  EQ,6/  DN

Figure MSTT

04823  M01S02193.286l859 ---|*T MSTT+1 1/D,23/  0,6/  UC,12/  MN,1/F,1/0,8/  SM,8/  DM

Figure MSTT+1

04824  M01S02194.286l859 ---|*
04825  M01S02195.286l859 ---|*         DATA = FIRST TRACK OF INDIRECT DATA CHAIN.
04826  M01S02196.286l859 ---|*         CATS = FIRST CATALOG TRACK.
04827  M01S02197.286l859 ---|*         PETS = FIRST TRACK OF PERMIT CHAIN.
04828  M01S02198.286l859 ---|*         NCTR = NUMBER OF CATALOG TRACKS.
04829  M01S02199.286l859 ---|*         EQ = EST ORDINAL OF DEVICE.
04830  M01S02200.286l859 ---|*         DN = DEVICE NUMBER.
04831  M01S02201.286l859 ---|*         D = DEVICE DUMP COMPLETION FLAG (*PFDUMP* ONLY).
04832  M01S02202.286l859 ---|*         UC = UNIT COUNT - 1.
04833  M01S02203.286l859 ---|*         MN = EQUIPMENT MNEMONIC.
04834  M01S02204.286l859 ---|*         F = CATALOG ENTRY FORMAT CODE.
04835  M01S02205.286l859 ---|*                0 =  8 WORD FORMAT.
04836  M01S02206.286l859 ---|*                1 = 16 WORD FORMAT.
04837  M01S02207.286l859 ---|*         SM = SECONDARY MASK (DIRECT ACCESS FILES).
04838  M01S02208.286l859 ---|*         DM = DEVICE MASK (INDIRECT ACCESS FILES AND CATALOGS).
04839  M01S02209.286l859 ---|
04840  M01S02210.286l859 ---|
04841  M01S02211.286l859 ---| MSTT     BSSZ   2*MSMX+2    MST TABLE
04842  M01S02212.286l859 ---|          SPACE  4,10
04843  M01S02213.286l859 ---|*         *MSS*/*MSE* ENVIRONMENT FLAGS.
04844  M01S02214.286l859 ---|
04845  M01S02215.286l859 ---|
04846  M01S02216.286l859 ---| ASFF     BSSZ   1           *MSE* ENVIRONMENT FLAG
04847  M01S02217.286l859 ---| MSSF     BSSZ   1           *MSS* ENVIRONMENT FLAG
04848  M00S02218.comcpfs +++| PFD$     ENDIF
04849  M00S02219.comcpfs +++|          SPACE  4,10
04850  M00S02220.comcpfs +++|          BASE   *
04851  M00S02221.comcpfs +++| QUAL$    IF     -DEF,QUAL$
04852  M00S02222.comcpfs +++|          QUAL   *

Line S02490 Modification History
`M01` (Added by)	`286l859`

Seq #  *Modification Id* Act 
----------------------------+
04853  M01S02490.286l859 +++| ABT      EQU    /COMCPFS/ABT
04854  M01S02491.286l859 +++| ALN      EQU    /COMCPFS/ALN
04855  M01S02492.286l859 +++| CES      EQU    /COMCPFS/CES
04856  M01S02493.286l859 +++| CFE      EQU    /COMCPFS/CFE
04857  M01S02494.286l859 +++| CFP      EQU    /COMCPFS/CFP
04858  M01S02495.286l859 +++| CIS      EQU    /COMCPFS/CIS
04859  M00S02223.comcpfs +++| CSC      EQU    /COMCPFS/CSC

Line S02224 Modification History
`M01` (Removed by)	`286l859`

Seq #  *Modification Id* Act 
----------------------------+
04860  M01S02224.286l859 ---| COM$     IF     DEF,COM$
04861  M00S02225.comcpfs +++| DFN      EQU    /COMCPFS/DFN

Line S02226 Modification History
`M01` (Removed by)	`286l859`

Seq #  *Modification Id* Act 
----------------------------+
04862  M01S02226.286l859 ---| EDS      EQU    /COMCPFS/EDS

Line S02496 Modification History
`M01` (Added by)	`286l859`

Seq #  *Modification Id* Act 
----------------------------+
04863  M01S02496.286l859 +++| END      EQU    /COMCPFS/END
04864  M00S02227.comcpfs +++| FAB      EQU    /COMCPFS/FAB
04865  M00S02228.comcpfs +++| FCI      EQU    /COMCPFS/FCI
04866  M00S02229.comcpfs +++| ICI      EQU    /COMCPFS/ICI

Line S02497 Modification History
`M01` (Added by)	`286l859`

Seq #  *Modification Id* Act 
----------------------------+
04867  M01S02497.286l859 +++| IFC      EQU    /COMCPFS/IFC
04868  M00S02230.comcpfs +++| IFL      EQU    /COMCPFS/IFL

Line S02498 Modification History
`M01` (Added by)	`286l859`

Seq #  *Modification Id* Act 
----------------------------+
04869  M01S02498.286l859 +++| ISF      EQU    /COMCPFS/ISF
04870  M00S02231.comcpfs +++| MWA      EQU    /COMCPFS/MWA

Line S02232 Modification History
`M01` (Removed by)	`286l859`

Seq #  *Modification Id* Act 
----------------------------+
04871  M01S02232.286l859 ---| OCD      EQU    /COMCPFS/OCD

Line S02499 Modification History
`M01` (Added by)	`286l859`

Seq #  *Modification Id* Act 
----------------------------+
04872  M01S02499.286l859 +++| OAL      EQU    /COMCPFS/OAL
04873  M00S02233.comcpfs +++| OCI      EQU    /COMCPFS/OCI

Line S02500 Modification History
`M01` (Added by)	`286l859`

Seq #  *Modification Id* Act 
----------------------------+
04874  M01S02500.286l859 +++| PSF      EQU    /COMCPFS/PSF
04875  M01S02501.286l859 +++| PSI      EQU    /COMCPFS/PSI
04876  M00S02234.comcpfs +++| RPP      EQU    /COMCPFS/RPP

Line S02502 Modification History
`M01` (Added by)	`286l859`

Seq #  *Modification Id* Act 
----------------------------+
04877  M01S02502.286l859 +++| SDE      EQU    /COMCPFS/SDE

Line S00027 Modification History
`M01` (Added by)	`ns2793`

Seq #  *Modification Id* Act 
----------------------------+
04878  M01S00027.ns2793  +++| SDT      EQU    /COMCPFS/SDT
04879  M00S02235.comcpfs +++| SEM      EQU    /COMCPFS/SEM

Line S02503 Modification History
`M01` (Added by)	`286l859`

Seq #  *Modification Id* Act 
----------------------------+
04880  M01S02503.286l859 +++| SFE      EQU    /COMCPFS/SFE
04881  M01S02504.286l859 +++| SFU      EQU    /COMCPFS/SFU

Line S02236 Modification History
`M01` (Removed by)	`286l859`

Seq #  *Modification Id* Act 
----------------------------+
04882  M01S02236.286l859 ---| TOF      EQU    /COMCPFS/TOF

Line S02505 Modification History
`M01` (Added by)	`286l859`

Seq #  *Modification Id* Act 
----------------------------+
04883  M01S02505.286l859 +++| SHR      EQU    /COMCPFS/SHR
04884  M01S02506.286l859 +++| SUM      EQU    /COMCPFS/SUM
04885  M01S02507.286l859 +++| WCO      EQU    /COMCPFS/WCO
04886  M01S02508.286l859 +++| WSB      EQU    /COMCPFS/WSB
04887  M01S02509.286l859 +++| ABTF     EQU    /COMCPFS/ABTF
04888  M01S02510.286l859 +++| AFIB     EQU    /COMCPFS/AFIB
04889  M01S02511.286l859 +++| AFSA     EQU    /COMCPFS/AFSA
04890  M01S02512.286l859 +++| AFSB     EQU    /COMCPFS/AFSB
04891  M01S02513.286l859 +++| AFSC     EQU    /COMCPFS/AFSC
04892  M01S02514.286l859 +++| AFSD     EQU    /COMCPFS/AFSD
04893  M01S02515.286l859 +++| AFSE     EQU    /COMCPFS/AFSE
04894  M01S02516.286l859 +++| AFSF     EQU    /COMCPFS/AFSF
04895  M01S02517.286l859 +++| BLAN     EQU    /COMCPFS/BLAN

Line S02518 Modification History
`M01` (Added by)	`286l859`
`M02` (Removed by)	`ns2790`

Seq #  *Modification Id* Act 
----------------------------+
04896  M02S02518.ns2790  ---| CASF     EQU    /COMCPFS/CASF
04897  M00S02237.comcpfs +++| CFBI     EQU    /COMCPFS/CFBI

Line S02238 Modification History
`M01` (Removed by)	`286l859`

Seq #  *Modification Id* Act 
----------------------------+
04898  M01S02238.286l859 ---| CITX     EQU    /COMCPFS/CITX
04899  M01S02239.286l859 ---| CPTX     EQU    /COMCPFS/CPTX
04900  M01S02240.286l859 ---| DSID     EQU    /COMCPFS/DSID
04901  M01S02241.286l859 ---| ELFG     EQU    /COMCPFS/ELFG
04902  M01S02242.286l859 ---| EMIF     EQU    /COMCPFS/EMIF

Line S02519 Modification History
`M01` (Added by)	`286l859`
`M02` (Removed by)	`ns2790`

Seq #  *Modification Id* Act 
----------------------------+
04903  M02S02519.ns2790  ---| CISF     EQU    /COMCPFS/CISF

Line S02520 Modification History
`M01` (Added by)	`286l859`

Seq #  *Modification Id* Act 
----------------------------+
04904  M01S02520.286l859 +++| COBF     EQU    /COMCPFS/COBF
04905  M01S02521.286l859 +++| DINF     EQU    /COMCPFS/DINF
04906  M01S02522.286l859 +++| FLST     EQU    /COMCPFS/FLST

Line S02243 Modification History
`M01` (Removed by)	`286l859`

Seq #  *Modification Id* Act 
----------------------------+
04907  M01S02243.286l859 ---| MSCT     EQU    /COMCPFS/MSCT
04908  M01S02244.286l859 ---| MSDF     EQU    /COMCPFS/MSDF

Line S00002 Modification History
`M01` (Added by)	`ns2673`
`M02` (Removed by)	`286l859`

Seq #  *Modification Id* Act 
----------------------------+
04909  M02S00002.286l859 ---| MSFF     EQU    /COMCPFS/MSFF

Line S02245 Modification History
`M01` (Removed by)	`286l859`

Seq #  *Modification Id* Act 
----------------------------+
04910  M01S02245.286l859 ---| MSFM     EQU    /COMCPFS/MSFM
04911  M01S02246.286l859 ---| MSFN     EQU    /COMCPFS/MSFN
04912  M01S02247.286l859 ---| MSMD     EQU    /COMCPFS/MSMD
04913  M01S02248.286l859 ---| MSNI     EQU    /COMCPFS/MSNI
04914  M01S02249.286l859 ---| MSPN     EQU    /COMCPFS/MSPN
04915  M01S02250.286l859 ---| MSPR     EQU    /COMCPFS/MSPR
04916  M01S02251.286l859 ---| MPFM     EQU    /COMCPFS/MPFM
04917  M01S02252.286l859 ---| MPPN     EQU    /COMCPFS/MPPN
04918  M01S02253.286l859 ---| MPDN     EQU    /COMCPFS/MPDN
04919  M01S02254.286l859 ---| MPEQ     EQU    /COMCPFS/MPEQ
04920  M01S02255.286l859 ---| MPFN     EQU    /COMCPFS/MPFN
04921  M01S02256.286l859 ---| MPUI     EQU    /COMCPFS/MPUI
04922  M01S02257.286l859 ---| MPTK     EQU    /COMCPFS/MPTK
04923  M01S02258.286l859 ---| MPSC     EQU    /COMCPFS/MPSC
04924  M01S02259.286l859 ---| MPCT     EQU    /COMCPFS/MPCT
04925  M01S02260.286l859 ---| MPPR     EQU    /COMCPFS/MPPR
04926  M01S02261.286l859 ---| MPUH     EQU    /COMCPFS/MPUH
04927  M01S02262.286l859 ---| MPLH     EQU    /COMCPFS/MPLH

Line S02523 Modification History
`M01` (Added by)	`286l859`

Seq #  *Modification Id* Act 
----------------------------+
04928  M01S02523.286l859 +++| MSGB     EQU    /COMCPFS/MSGB
04929  M01S02524.286l859 +++| NPFC     EQU    /COMCPFS/NPFC
04930  M01S02525.286l859 +++| O        EQU    /COMCPFS/O
04931  M01S02526.286l859 +++| OFFA     EQU    /COMCPFS/OFFA
04932  M00S02263.comcpfs +++| PAGE     EQU    /COMCPFS/PAGE

Line S02264 Modification History
`M01` (Removed by)	`286l859`

Seq #  *Modification Id* Act 
----------------------------+
04933  M01S02264.286l859 ---| PCOF     EQU    /COMCPFS/PCOF

Line S02527 Modification History
`M01` (Added by)	`286l859`

Seq #  *Modification Id* Act 
----------------------------+
04934  M01S02527.286l859 +++| PEFC     EQU    /COMCPFS/PEFC
04935  M01S02528.286l859 +++| PF       EQU    /COMCPFS/PF
04936  M00S02265.comcpfs +++| PGFM     EQU    /COMCPFS/PGFM

Line S02529 Modification History
`M01` (Added by)	`286l859`

Seq #  *Modification Id* Act 
----------------------------+
04937  M01S02529.286l859 +++| PGLL     EQU    /COMCPFS/PGLL
04938  M01S02530.286l859 +++| PGSC     EQU    /COMCPFS/PGSC
04939  M00S02266.comcpfs +++| PGSD     EQU    /COMCPFS/PGSD
04940  M00S02267.comcpfs +++| PGST     EQU    /COMCPFS/PGST

Line S02268 Modification History
`M01` (Removed by)	`286l859`

Seq #  *Modification Id* Act 
----------------------------+
04941  M01S02268.286l859 ---| PGTA     EQU    /COMCPFS/PGTA
04942  M01S02269.286l859 ---| PGTX     EQU    /COMCPFS/PGTX
04943  M00S02270.comcpfs +++| PGTXL    EQU    /COMCPFS/PGTXL

Line S02531 Modification History
`M01` (Added by)	`286l859`

Seq #  *Modification Id* Act 
----------------------------+
04944  M01S02531.286l859 +++| PGUT     EQU    /COMCPFS/PGUT
04945  M01S02532.286l859 +++| POFC     EQU    /COMCPFS/POFC
04946  M01S02533.286l859 +++| PPFC     EQU    /COMCPFS/PPFC
04947  M01S02534.286l859 +++| PRFC     EQU    /COMCPFS/PRFC
04948  M01S02535.286l859 +++| MTTA     EQU    /COMCPFS/MTTA
04949  M01S02536.286l859 +++| MTTAL    EQU    /COMCPFS/MTTAL
04950  M01S02537.286l859 +++| RPVB     EQU    /COMCPFS/RPVB
04951  M01S02538.286l859 +++| SEFC     EQU    /COMCPFS/SEFC
04952  M01S02539.286l859 +++| STFC     EQU    /COMCPFS/STFC
04953  M01S02540.286l859 +++| SU       EQU    /COMCPFS/SU
04954  M01S02541.286l859 +++| SW1B     EQU    /COMCPFS/SW1B
04955  M01S02542.286l859 +++| SW2B     EQU    /COMCPFS/SW2B
04956  M00S02271.comcpfs +++| SYSS     EQU    /COMCPFS/SYSS

Line S02272 Modification History
`M01` (Removed by)	`286l859`

Seq #  *Modification Id* Act 
----------------------------+
04957  M01S02272.286l859 ---| COM$     ENDIF

Line S02543 Modification History
`M01` (Added by)	`286l859`

Seq #  *Modification Id* Act 
----------------------------+
04958  M01S02543.286l859 +++| TSBI     EQU    /COMCPFS/TSBI

Line S02544 Modification History
`M01` (Added by)	`286l859`
`M02` (Removed by)	`ns2790`

Seq #  *Modification Id* Act 
----------------------------+
04959  M02S02544.ns2790  ---| UCOF     EQU    /COMCPFS/UCOF
04960  M02S02545.ns2790  ---| UFOF     EQU    /COMCPFS/UFOF
04961  M00S02273.comcpfs +++| PFA$     IF     DEF,PFA$
04962  M00S02274.comcpfs +++| PLP      EQU    /COMCPFS/PLP

Line S02546 Modification History
`M01` (Added by)	`286l859`

Seq #  *Modification Id* Act 
----------------------------+
04963  M01S02546.286l859 +++| AFDM     EQU    /COMCPFS/AFDM
04964  M01S02547.286l859 +++| FLSM     EQU    /COMCPFS/FLSM
04965  M01S02548.286l859 +++| MXDC     EQU    /COMCPFS/MXDC
04966  M01S02549.286l859 +++| SFDT     EQU    /COMCPFS/SFDT
04967  M00S02275.comcpfs +++| PFA$     ENDIF

Line S02550 Modification History
`M01` (Added by)	`286l859`

Seq #  *Modification Id* Act 
----------------------------+
04968  M01S02550.286l859 +++| DVA$     IF     DEF,DVA$
04969  M01S02551.286l859 +++| SEI      EQU    /COMCPFS/SEI
04970  M01S02552.286l859 +++| ASFF     EQU    /COMCPFS/ASFF
04971  M01S02553.286l859 +++| ELWC     EQU    /COMCPFS/ELWC
04972  M01S02554.286l859 +++| ELLI     EQU    /COMCPFS/ELLI
04973  M01S02555.286l859 +++| ELWP     EQU    /COMCPFS/ELWP
04974  M01S02556.286l859 +++| FMPN     EQU    /COMCPFS/FMPN
04975  M01S02557.286l859 +++| MASK     EQU    /COMCPFS/MASK
04976  M01S02558.286l859 +++| GPAR     EQU    /COMCPFS/GPAR
04977  M01S02559.286l859 +++| MSSF     EQU    /COMCPFS/MSSF
04978  M01S02560.286l859 +++| MSTT     EQU    /COMCPFS/MSTT
04979  M01S02561.286l859 +++| PDWD     EQU    /COMCPFS/PDWD
04980  M01S02562.286l859 +++| SPAR     EQU    /COMCPFS/SPAR
04981  M01S02563.286l859 +++| SXUF     EQU    /COMCPFS/SXUF
04982  M01S02564.286l859 +++| TMDA     EQU    /COMCPFS/TMDA
04983  M01S02565.286l859 +++| DVA$     ENDIF
04984  M01S02566.286l859 +++| PFR$     IF     DEF,PFR$
04985  M01S02567.286l859 +++| CWR      EQU    /COMCPFS/CWR
04986  M01S02568.286l859 +++| PFR$     ENDIF
04987  M00S02276.comcpfs +++| PFD$     IF     DEF,PFD$
04988  M00S02277.comcpfs +++| CAC      EQU    /COMCPFS/CAC
04989  M00S02278.comcpfs +++| CBR      EQU    /COMCPFS/CBR
04990  M00S02279.comcpfs +++| CDS      EQU    /COMCPFS/CDS

Line S02569 Modification History
`M01` (Added by)	`286l859`

Seq #  *Modification Id* Act 
----------------------------+
04991  M01S02569.286l859 +++| OCF      EQU    /COMCPFS/OCF
04992  M01S02570.286l859 +++| PCF      EQU    /COMCPFS/PCF
04993  M00S02280.comcpfs +++| PCI      EQU    /COMCPFS/PCI
04994  M00S02281.comcpfs +++| PFR      EQU    /COMCPFS/PFR

Line S02282 Modification History
`M01` (Removed by)	`286l859`

Seq #  *Modification Id* Act 
----------------------------+
04995  M01S02282.286l859 ---| RCE      EQU    /COMCPFS/RCE

Line S02571 Modification History
`M01` (Added by)	`286l859`

Seq #  *Modification Id* Act 
----------------------------+
04996  M01S02571.286l859 +++| RCS      EQU    /COMCPFS/RCS
04997  M00S02283.comcpfs +++| SAC      EQU    /COMCPFS/SAC

Line S02572 Modification History
`M01` (Added by)	`286l859`

Seq #  *Modification Id* Act 
----------------------------+
04998  M01S02572.286l859 +++| SCA      EQU    /COMCPFS/SCA
04999  M00S02284.comcpfs +++| SFL      EQU    /COMCPFS/SFL

Line S02573 Modification History
`M01` (Added by)	`286l859`

Seq #  *Modification Id* Act 
----------------------------+
05000  M01S02573.286l859 +++| SNC      EQU    /COMCPFS/SNC
05001  M01S02574.286l859 +++| SND      EQU    /COMCPFS/SND
05002  M00S02285.comcpfs +++| SPR      EQU    /COMCPFS/SPR

Line S02286 Modification History
`M01` (Removed by)	`ns2670a`

Seq #  *Modification Id* Act 
----------------------------+
05003  M01S02286.ns2670a ---| WCD      EQU    /COMCPFS/WCD
05004  M00S02287.comcpfs +++| WPR      EQU    /COMCPFS/WPR
05005  M00S02288.comcpfs +++| ACFT     EQU    /COMCPFS/ACFT

Line S02289 Modification History
`M01` (Removed by)	`286l859`

Seq #  *Modification Id* Act 
----------------------------+
05006  M01S02289.286l859 ---| ASFF     EQU    /COMCPFS/ASFF
05007  M01S02290.286l859 ---| BFSP     EQU    /COMCPFS/BFSP
05008  M01S02291.286l859 ---| CBIN     EQU    /COMCPFS/CBIN
05009  M01S02292.286l859 ---| CBUF     EQU    /COMCPFS/CBUF
05010  M01S02293.286l859 ---| CFMT     EQU    /COMCPFS/CFMT
05011  M01S02294.286l859 ---| CFTS     EQU    /COMCPFS/CFTS
05012  M01S02295.286l859 ---| CPCW     EQU    /COMCPFS/CPCW
05013  M01S02296.286l859 ---| CSCW     EQU    /COMCPFS/CSCW
05014  M01S02297.286l859 ---| CWNP     EQU    /COMCPFS/CWNP

Line S02575 Modification History
`M01` (Added by)	`286l859`

Seq #  *Modification Id* Act 
----------------------------+
05015  M01S02575.286l859 +++| CADA     EQU    /COMCPFS/CADA
05016  M01S02576.286l859 +++| CSBF     EQU    /COMCPFS/CSBF
05017  M01S02577.286l859 +++| CSLW     EQU    /COMCPFS/CSLW
05018  M01S02578.286l859 +++| CSTC     EQU    /COMCPFS/CSTC
05019  M01S02579.286l859 +++| CTRK     EQU    /COMCPFS/CTRK
05020  M00S02298.comcpfs +++| DDPP     EQU    /COMCPFS/DDPP

Line S02580 Modification History
`M01` (Added by)	`286l859`

Seq #  *Modification Id* Act 
----------------------------+
05021  M01S02580.286l859 +++| ERDN     EQU    /COMCPFS/ERDN

Line S00015 Modification History
`M01` (Added by)	`ns2670a`

Seq #  *Modification Id* Act 
----------------------------+
05022  M01S00015.ns2670a +++| FLCF     EQU    /COMCPFS/FLCF

Line S02299 Modification History
`M01` (Removed by)	`286l859`

Seq #  *Modification Id* Act 
----------------------------+
05023  M01S02299.286l859 ---| FMPN     EQU    /COMCPFS/FMPN
05024  M01S02300.286l859 ---| FSNM     EQU    /COMCPFS/FSNM
05025  M01S02301.286l859 ---| FSTD     EQU    /COMCPFS/FSTD
05026  M01S02302.286l859 ---| FSSD     EQU    /COMCPFS/FSSD
05027  M01S02303.286l859 ---| GPAR     EQU    /COMCPFS/GPAR
05028  M01S02304.286l859 ---| CENN     EQU    /COMCPFS/CENN
05029  M00S02305.comcpfs +++| MAEQ     EQU    /COMCPFS/MAEQ

Line S02306 Modification History
`M01` (Removed by)	`286l859`

Seq #  *Modification Id* Act 
----------------------------+
05030  M01S02306.286l859 ---| MSSF     EQU    /COMCPFS/MSSF
05031  M01S02307.286l859 ---| MSTT     EQU    /COMCPFS/MSTT
05032  M01S02308.286l859 ---| PAGE     EQU    /COMCPFS/PAGE

Line S02581 Modification History
`M01` (Added by)	`286l859`

Seq #  *Modification Id* Act 
----------------------------+
05033  M01S02581.286l859 +++| MSTA     EQU    /COMCPFS/MSTA
05034  M01S02582.286l859 +++| PDUI     EQU    /COMCPFS/PDUI
05035  M00S02309.comcpfs +++| PFRI     EQU    /COMCPFS/PFRI
05036  M00S02310.comcpfs +++| PFRS     EQU    /COMCPFS/PFRS
05037  M00S02311.comcpfs +++| PRPP     EQU    /COMCPFS/PRPP
05038  M00S02312.comcpfs +++| SAPP     EQU    /COMCPFS/SAPP

Line S02313 Modification History
`M01` (Removed by)	`286l859`

Seq #  *Modification Id* Act 
----------------------------+
05039  M01S02313.286l859 ---| SPAR     EQU    /COMCPFS/SPAR
05040  M01S02314.286l859 ---| TCMP     EQU    /COMCPFS/TCMP
05041  M00S02315.comcpfs +++| PFD$     ENDIF
05042  M00S02316.comcpfs +++| QUAL$    ENDIF
05043  M00S02317.comcpfs +++|          ENDX