User Tools

Site Tools


Action unknown: copypageplugin__copy
cdc:nos2.source:opl.opl871:deck:pfdump.005

Deck PFDUMP Part 005

50 Modifications

Source

Seq #  *Modification Id* Act 
----------------------------+
05116  M01S02979.286l859 ---|          SA2    CATH+FCBS
Line S02980 Modification History
M01 (Removed by) ns22000
M02 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
05117  M02S02980.286l859 ---|          BX6    X1          SET IAF MESSAGE ADDRESS
Line S00236 Modification History
M01 (Added by) ns22000
M02 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
05118  M02S00236.286l859 ---|          BX6    X1          SET IAPF MESSAGE ADDRESS
Line S02981 Modification History
M01 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
05119  M01S02981.286l859 ---|          LX2    59-11
05120  M01S02982.286l859 ---|          SA6    IDMA
05121  M01S02983.286l859 ---|          PL     X2,IDM1     IF INDIRECT ACCESS FILE
Line S02984 Modification History
M01 (Removed by) ns22000
M02 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
05122  M02S02984.286l859 ---|          SA2    CATH+FCEO   GET RESIDENCY DEVICE
Line S00237 Modification History
M01 (Added by) ns22000
M02 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
05123  M02S00237.286l859 ---|          SA2    CATH+FCDN   GET RESIDENCY DEVICE
Line S02985 Modification History
M01 (Removed by) ns22000
M02 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
05124  M02S02985.286l859 ---|          LX6    -18         SET DAF MESSAGE ADDRESS
Line S00238 Modification History
M01 (Added by) ns22000
M02 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
05125  M02S00238.286l859 ---|          LX6    -18         SET DAPF MESSAGE ADDRESS
Line S02986 Modification History
M01 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
05126  M01S02986.286l859 ---|          MX7    -6
05127  M01S02987.286l859 ---|          LX2    -36
05128  M01S02988.286l859 ---|          BX1    -X7*X2
05129  M01S02989.286l859 ---|          SA6    A6
05130  M01S02990.286l859 ---|          ZR     X1,IDM1     IF FILE RESIDENT ON MASTER DEVICE
05131  M01S02991.286l859 ---|          BX7    -X7*X2      SET RESIDENCY DEVICE
05132  M01S02992.286l859 ---|          SX0    CATH        SET CATALOG ADDRESS
05133  M01S02993.286l859 ---|          SA7    A7+
05134  M01S02994.286l859 ---|          RJ     CDS         SET RESIDENCY EQUIPMENT
05135  M01S02995.286l859 ---|          SA7    MPEQ
05136  M01S02996.286l859 ---|
05137  M01S02997.286l859 ---|*         SET FILE POSITION PARAMETERS.
05138  M01S02998.286l859 ---|
05139  M01S02999.286l859 ---| IDM1     SA1    DBUFH       SET BAD SECTOR NUMBER
05140  M01S03000.286l859 ---|          MX2    -12
05141  M01S03001.286l859 ---|          LX1    -24
05142  M01S03002.286l859 ---|          BX6    -X2*X1
05143  M01S03003.286l859 ---|          LX1    -12         SET BAD TRACK NUMBER
05144  M01S03004.286l859 ---|          BX7    -X2*X1
05145  M01S03005.286l859 ---|          SA6    MPSC
05146  M01S03006.286l859 ---|          SA7    MPTK
05147  M01S03007.286l859 ---|
05148  M01S03008.286l859 ---|*         ISSUE MESSAGES.
05149  M01S03009.286l859 ---|
05150  M01S03010.286l859 ---|          SA1    MPPN
05151  M01S03011.286l859 ---|          SB6    MSPN
05152  M01S03012.286l859 ---|          NZ     X1,IDM2     IF PACK NAME SPECIFIED
05153  M01S03013.286l859 ---|          SB6    MSFM
05154  M01S03014.286l859 ---| IDM2     SA1    IDMA        BUILD MESSAGE WITH DEVICE DESCRIPTION
05155  M01S03015.286l859 ---|          EDITS  B6,X1
05156  M01S03016.286l859 ---|          SX6    B1+         SET ERRLOG FLAG
05157  M01S03017.286l859 ---|          SA6    ELFG
05158  M01S03018.286l859 ---|          RJ     SEM         SEND ERROR MESSAGE
05159  M01S03019.286l859 ---|          SA1    IDMA        BUILD MESSAGE WITH FILE DESCRIPTION
05160  M01S03020.286l859 ---|          EDITS  MSPR,X1
05161  M01S03021.286l859 ---|          RJ     SEM         SEND ERROR MESSAGE
05162  M01S03022.286l859 ---|          EQ     IDMX        RETURN
Line S03023 Modification History
M01 (Removed by) pfdum12
M02 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
05163  M02S03023.286l859 ---|*         MACROS EDITS.
Line S03024 Modification History
M01 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
05164  M01S03024.286l859 ---|
05165  M01S03025.286l859 ---| IDMA     BSS    1           MESSAGE ADDRESS SAVE AREA
Line S03026 Modification History
M01 (Removed by) pfdum12
Seq #  *Modification Id* Act 
----------------------------+
05166  M01S03026.pfdum12 ---| PAE      SPACE  4,55
Line S03027 Modification History
M01 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
05167  M01S03027.286l859 ---| IRS      SPACE  4,20
Line S01044 Modification History
M01 (Added by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
05168  M01S01044.286l859 +++| IFM      SPACE  4,10
05169  M01S01045.286l859 +++|**        IFM - ISSUE FILE COUNT MESSAGES.
05170  M01S01046.286l859 +++|*
05171  M01S01047.286l859 +++|*         EXIT   FILES PROCESSED COUNTS ISSUED TO DAYFILE.
05172  M01S01048.286l859 +++|*
05173  M01S01049.286l859 +++|*         USES   X = 1, 2, 5, 6.
05174  M01S01050.286l859 +++|*                A = 1, 2, 5, 6.
05175  M01S01051.286l859 +++|*
05176  M01S01052.286l859 +++|*         CALLS  IFC.
05177  M01S01053.286l859 +++|
05178  M01S01054.286l859 +++|
05179  M01S01055.286l859 +++| IFM      SUBR               ENTRY/EXIT
05180  M01S01056.286l859 +++|          SA1    CPAR+/COMSPFS/CPIP
05181  M01S01057.286l859 +++|          SA5    IFMD
05182  M01S01058.286l859 +++|          NZ     X1,IFM2     IF PROCESSING INHIBITED
05183  M01S01059.286l859 +++|          SA5    IFMA
05184  M01S01060.286l859 +++|          RJ     IFC         ISSUE FILE COUNT MESSAGES
05185  M01S01061.286l859 +++|          SA1    CPAR+/COMSPFS/CPOP
05186  M01S01062.286l859 +++|          SA2    CPAR+/COMSPFS/CPDT
05187  M01S01063.286l859 +++|          SA5    IFMB
05188  M01S01064.286l859 +++|          LX1    59-53
05189  M01S01065.286l859 +++|          NG     X1,IFM1     IF PURGE OPTION SPECIFIED
05190  M01S01066.286l859 +++|          SA5    IFMC
05191  M01S01067.286l859 +++|          ZR     X2,IFMX     IF NOT DESTAGE DUMP
05192  M01S01068.286l859 +++| IFM1     SA1    PRFC
05193  M01S01069.286l859 +++|          SA2    PPFC
05194  M01S01070.286l859 +++|          IX6    X1-X2
05195  M01S01071.286l859 +++|          SA6    NPFC        SET FILES NOT POST PROCESSED
05196  M01S01072.286l859 +++| IFM2     RJ     IFC         ISSUE FILE COUNT MESSAGES
05197  M01S01073.286l859 +++|          EQ     IFMX        RETURN
05198  M01S01074.286l859 +++|
05199  M01S01075.286l859 +++|
05200  M01S01076.286l859 +++| IFMA     BSS    0           NORMAL PROCESSING MESSAGE TABLE
05201  M01S01077.286l859 +++|          VFD    1/1,1/0,22/0,18/DUMS,18/PRFC
05202  M01S01078.286l859 +++|          VFD    1/1,1/0,22/0,18/POMS,18/POFC
05203  M01S01079.286l859 +++|          VFD    1/0,1/0,22/0,18/STMS,18/STFC
05204  M01S01080.286l859 +++|          VFD    1/1,1/0,22/0,18/SEMS,18/SEFC
05205  M01S01081.286l859 +++|          VFD    1/1,1/0,22/0,18/DEMS,18/PEFC
05206  M01S01082.286l859 +++|          CON    0           END OF TABLE
05207  M01S01083.286l859 +++|
05208  M01S01084.286l859 +++| IFMB     BSS    0           DUMP WITH PURGE MESSAGE TABLE
05209  M01S01085.286l859 +++|          VFD    1/1,1/0,22/0,18/PGMS,18/PPFC
05210  M01S01086.286l859 +++|          VFD    1/0,1/0,22/0,18/NPMS,18/NPFC
05211  M01S01087.286l859 +++|          CON    0           END OF TABLE
05212  M01S01088.286l859 +++|
05213  M01S01089.286l859 +++| IFMC     BSS    0           DESTAGE DUMP MESSAGE TABLE
05214  M01S01090.286l859 +++|          VFD    1/1,1/0,22/0,18/DSMS,18/PPFC
05215  M01S01091.286l859 +++|          VFD    1/0,1/0,22/0,18/NDMS,18/NPFC
05216  M01S01092.286l859 +++|          CON    0           END OF TABLE
05217  M01S01093.286l859 +++|
05218  M01S01094.286l859 +++| IFMD     BSS    0           INHIBITED PROCESSING MESSAGE TABLE
05219  M01S01095.286l859 +++|          VFD    1/1,1/0,22/0,18/SDMS,18/PRFC
05220  M01S01096.286l859 +++|          VFD    1/1,1/0,22/0,18/SPMS,18/POFC
05221  M01S01097.286l859 +++|          CON    0           END OF TABLE
05222  M01S01098.286l859 +++| IRF      SPACE  4,10
05223  M01S01099.286l859 +++|**        IRF - INITILIZE RESCAN FILES.
05224  M01S01100.286l859 +++|*
05225  M01S01101.286l859 +++|*         EXIT   *REQS* FILE FLUSHED, REWOUND, AND RENAMED TO *RESS*.
05226  M01S01102.286l859 +++|*                OLD *RESS* FILE RETURNED.
05227  M01S01103.286l859 +++|*
05228  M01S01104.286l859 +++|*         USES   X - 0, 1, 2, 6.
05229  M01S01105.286l859 +++|*                A - 1, 2, 6.
05230  M01S01106.286l859 +++|*
05231  M01S01107.286l859 +++|*         MACROS READ, RECALL, RENAME, REWIND, WRITEF.
05232  M01S01108.286l859 +++|
05233  M01S01109.286l859 +++|
05234  M01S01110.286l859 +++| IRF      SUBR               ENTRY/EXIT
05235  M01S01111.286l859 +++|          WRITEF REQS,R      FLUSH REQUEST FILE BUFFER
05236  M01S01112.286l859 +++|          RENAME REQS,RESS   CREATE SCREEN FILE FROM REQUEST FILE
05237  M01S01113.286l859 +++|          REWIND RESS
05238  M01S01114.286l859 +++|          RECALL REQS
05239  M01S01115.286l859 +++|          SA1    IRFA        RESTORE LFN IN *REQS* FET
05240  M01S01116.286l859 +++|          SA2    REQS
05241  M01S01117.286l859 +++|          MX0    -18
05242  M01S01118.286l859 +++|          BX6    -X0*X2
05243  M01S01119.286l859 +++|          BX6    X1+X6
05244  M01S01120.286l859 +++|          SA6    A2
05245  M01S01121.286l859 +++|          READ   RESS
05246  M01S01122.286l859 +++|          EQ     IRFX        RETURN
05247  M01S01123.286l859 +++|
05248  M01S01124.286l859 +++|
05249  M01S01125.286l859 +++| IRFA     CON    0LZZZZZG5   ORIGINAL *REQS* FILE NAME
05250  M01S01126.286l859 +++| IRS      SPACE  4,15
05251  M00S03028.pfdump  +++|**        IRS - INITIALIZE RESCAN FOR STAGED FILES.
05252  M00S03029.pfdump  +++|*
05253  M00S03030.pfdump  +++|*         ENTRY  CATALOG TRACK INTERLOCK SET.
05254  M00S03031.pfdump  +++|*
Line S03032 Modification History
M01 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
05255  M01S03032.286l859 ---|*         EXIT   (SCAN) = 1 -- RESCAN MODE.
05256  M01S03033.286l859 ---|*                (NFSR) = NUMBER FILE STAGINGS REQUESTED CLEARED.
05257  M01S03034.286l859 ---|*                (NNAR) = NUMBER *NOT ACTIVE* RESPONSES CLEARED.
Line S03035 Modification History
M01 (Removed by) 253l688
M02 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
05258  M02S03035.286l859 ---|*                (RESW - RESW+3) = FIRST RESCAN FILE SCREEN ENTRY.
Line S00312 Modification History
M01 (Added by) 253l688
M02 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
05259  M02S00312.286l859 ---|*                (RSTS)= CATALOG TRACK AND SECTOR TO START RESCAN.
Line S03036 Modification History
M01 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
05260  M01S03036.286l859 ---|*                ABORTS DUMP, IF RESCAN SCREEN FILE HAS READ ERROR
05261  M01S03037.286l859 ---|*                  OR PREMATURE END OF FILE.
05262  M01S03038.286l859 ---|*                CATALOG TRACK INTERLOCK CLEARED DURING EXECUTION
05263  M01S03039.286l859 ---|*                  OF THIS ROUTINE IS RESET UPON EXIT.
Line S01127 Modification History
M01 (Added by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
05264  M01S01127.286l859 +++|*         EXIT   (X6) = 1 IF TO RESCAN CATALOG TRACK.
05265  M01S01128.286l859 +++|*                (X7) = INITIAL CATALOG TRACK INDEX IF TO RESCAN TRACK.
05266  M01S01129.286l859 +++|*                CATALOG TRACK INTERLOCK SET.
05267  M00S03040.pfdump  +++|*
Line S03041 Modification History
M01 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
05268  M01S03041.286l859 ---|*         USES   X - 1, 5, 6, 7.
05269  M01S03042.286l859 ---|*                A - 5, 6, 7.
05270  M01S03043.286l859 ---|*                B - 2.
Line S01130 Modification History
M01 (Added by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
05271  M01S01130.286l859 +++|*         USES   X - 1, 2, 3, 5, 6, 7.
05272  M01S01131.286l859 +++|*                A - 1, 2, 3, 6.
05273  M01S01132.286l859 +++|*                B - 2.
05274  M00S03044.pfdump  +++|*
Line S03045 Modification History
M01 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
05275  M01S03045.286l859 ---|*         CALLS  DLY, OPN.
Line S01133 Modification History
M01 (Added by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
05276  M01S01133.286l859 +++|*         CALLS  CFE, IRF, SRS.
05277  M00S03046.pfdump  +++|*
Line S03047 Modification History
M01 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
05278  M01S03047.286l859 ---|*         MACROS MESSAGE, MOVE, PCINT, READW.
Line S01134 Modification History
M01 (Added by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
05279  M01S01134.286l859 +++|*         MACROS CALLPFU, MESSAGE, MOVE, PCINT, RECALL, READW.
05280  M00S03048.pfdump  +++|
05281  M00S03049.pfdump  +++|
05282  M00S03050.pfdump  +++| IRS      SUBR               ENTRY/EXIT
Line S01135 Modification History
M01 (Added by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
05283  M01S01135.286l859 +++|
05284  M01S01136.286l859 +++|*         CLEAR CATALOG TRACK INTERLOCK AND ISSUE STATUS MESSAGE.
05285  M01S01137.286l859 +++|
05286  M00S03051.pfdump  +++|          PCINT  CATS,CTCC   CLEAR CATALOG TRACK INTERLOCK
Line S03052 Modification History
M01 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
05287  M01S03052.286l859 ---|          SA1    SCAN
05288  M01S03053.286l859 ---|          NZ     X1,IRS1     IF ALREADY IN RESCAN MODE
Line S03054 Modification History
M01 (Removed by) v23l617
M02 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
05289  M02S03054.286l859 ---|          MESSAGE  MSGS      DISPLAY *WAIT FOR MSS FILE STAGINGS*
Line S00164 Modification History
M01 (Added by) v23l617
M02 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
05290  M02S00164.286l859 ---|          MESSAGE  MSGS      *WAIT FOR FILE STAGING*
Line S03055 Modification History
M01 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
05291  M01S03055.286l859 ---| IRS1     SA5    IDSA+/COMSPFS/ADM1
05292  M01S03056.286l859 ---|          MOVE   4,MSGS,X5
Line S01138 Modification History
M01 (Added by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
05293  M01S01138.286l859 +++|          RJ     IRF         INITIALIZE RESCAN FILES
05294  M01S01139.286l859 +++|          MESSAGE  MSGS,1    *WAITING FOR STAGED FILES*
05295  M01S01140.286l859 +++|          SA3    IDSA+/COMSPFS/ADMS
05296  M01S01141.286l859 +++|          MOVE   3,MSGS,X3   SET STATUS MESSAGE IN *K* DISPLAY
05297  M01S01142.286l859 +++|          SX6    RESC
05298  M01S01143.286l859 +++|          RJ     SRS         SELECT RIGHT SCREEN
05299  M00S03057.pfdump  +++|
Line S03058 Modification History
M01 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
05300  M01S03058.286l859 ---|*         INITIALIZE RESCAN FOR STAGED FILES.
Line S01144 Modification History
M01 (Added by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
05301  M01S01144.286l859 +++|*         DELAY FOR FILE STAGING.
05302  M00S03059.pfdump  +++|
Line S03060 Modification History
M01 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
05303  M01S03060.286l859 ---|          BX6    X6-X6
05304  M01S03061.286l859 ---|          SA6    NFSR        CLEAR NUMBER FILE STAGINGS REQUESTED
05305  M01S03062.286l859 ---|          SA6    NNAR        CLEAR NUMBER *NOT ACTIVE* RESPONSES
05306  M01S03063.286l859 ---|          SX7    B1
05307  M01S03064.286l859 ---|          SA7    SCAN        SET RESCAN MODE
05308  M01S03065.286l859 ---|          RJ     OPN         INITIALIZE DUMP SYSTEM FILES
Line S03066 Modification History
M01 (Removed by) 253l688
M02 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
05309  M02S03066.286l859 ---|          READW  RESS,RESW,RSEL  INITIALIZE RESCAN SELECTION SCREEN
Line S00313 Modification History
M01 (Added by) 253l688
M02 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
05310  M02S00313.286l859 ---|          READW  RESS,RESE,2 INITIALIZE RESCAN SELECTION SCREEN
Line S03067 Modification History
M01 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
05311  M01S03067.286l859 ---|          ZR     X1,IRS2     IF TRANSFER COMPLETE
05312  M01S03068.286l859 ---|          SX1    MSGX        *PFDUMP - READ ERROR ON RESS - ABORT.*
Line S03069 Modification History
M01 (Removed by) 253l688
M02 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
05313  M02S03069.286l859 ---|          EQ     AEP         ABORT
Line S00314 Modification History
M01 (Added by) 253l688
M02 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
05314  M02S00314.286l859 ---|          EQ     ABT         ABORT
Line S01145 Modification History
M01 (Added by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
05315  M01S01145.286l859 +++|          SX5    DFAC        SET NUMBER OF RECALLS TO WAIT
05316  M01S01146.286l859 +++| IRS1     SA1    /COMSPFS/KIN  GET K-DISPLAY INPUT
05317  M01S01147.286l859 +++|          SA2    IRSA
05318  M01S01148.286l859 +++|          SX6    B0
05319  M01S01149.286l859 +++|          SA6    A1+         CLEAR INPUT
05320  M01S01150.286l859 +++|          BX2    X1-X2
05321  M01S01151.286l859 +++|          ZR     X2,IRS2     IF *SKIP* ENTERED
05322  M01S01152.286l859 +++|          RECALL
05323  M01S01153.286l859 +++|          SX5    X5-1
05324  M01S01154.286l859 +++|          NZ     X5,IRS1     IF MORE DELAY
05325  M00S03070.pfdump  +++|
Line S03071 Modification History
M01 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
05326  M01S03071.286l859 ---|*         DELAY RESCAN TO ALLOW TIME FOR STAGED FILE RELINKAGE.
Line S01155 Modification History
M01 (Added by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
05327  M01S01155.286l859 +++|*         INITIALIZE RESCAN OF CATALOG TRACK.
05328  M00S03072.pfdump  +++|
Line S03073 Modification History
M01 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
05329  M01S03073.286l859 ---| IRS2     SB2    DFAC        INITIALIZE DELAY LOOP CONTROLS
05330  M01S03074.286l859 ---|          RJ     DLY         DELAY
05331  M01S03075.286l859 ---|          PCINT  CATS,CTSC   SET CATALOG TRACK INTERLOCK
Line S01156 Modification History
M01 (Added by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
05332  M01S01156.286l859 +++|          READW  RESS,RESE,2 READ FIRST RESCAN REQUEST
05333  M01S01157.286l859 +++|          RETURN CATS,R      RETURN OLD CATALOG FILE
05334  M01S01158.286l859 +++|          SA1    RSTS
05335  M01S01159.286l859 +++|          SA2    CATS+FTPM
05336  M01S01160.286l859 +++|          MX6    24
05337  M01S01161.286l859 +++|          SX7    5
05338  M01S01162.286l859 +++|          LX1    12
05339  M01S01163.286l859 +++|          BX6    X6*X2       PRESERVE EST ORDINAL AND FIRST TRACK
05340  M01S01164.286l859 +++|          BX1    X1+X7       MERGE CURRENT TRACK/SECTOR AND STATUS
05341  M01S01165.286l859 +++|          BX6    X6+X1
05342  M01S01166.286l859 +++|          SA6    A2          SET FST PARAMETERS
05343  M01S01167.286l859 +++|          CALLPFU  CATS,CTOL,R  OPEN CATALOG FILE
05344  M01S01168.286l859 +++|          SX5    B1          SET TO RESCAN TRACK
05345  M01S01169.286l859 +++|          EQ     IRS3        RESET TRACK INTERLOCK
05346  M00S03076.pfdump  +++|
Line S03077 Modification History
M01 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
05347  M01S03077.286l859 ---|*         DISPLAY RESCAN MESSAGES.
Line S01170 Modification History
M01 (Added by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
05348  M01S01170.286l859 +++|*         ISSUE MESSAGES FOR SKIPPED FILES.
05349  M00S03078.pfdump  +++|
Line S03079 Modification History
M01 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
05350  M01S03079.286l859 ---|          SA5    IDSA+/COMSPFS/ADM2  DISPLAY RESCAN MESSAGE
05351  M01S03080.286l859 ---|          MOVE   4,MSGT,X5
Line S03081 Modification History
M01 (Removed by) 241l630
M02 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
05352  M02S03081.286l859 ---|          SA5    IDSA+/COMSPFS/ADE1  DISPLAY *GO* OPTION
05353  M02S03082.286l859 ---|          MOVE   4,MSGU,X5
05354  M02S03083.286l859 ---|          SA5    IDSA+/COMSPFS/ADE2  DISPLAY *SKIP* OPTION
05355  M02S03084.286l859 ---|          MOVE   4,MSGV,X5
Line S00036 Modification History
M01 (Added by) 241l630
M02 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
05356  M02S00036.286l859 ---|          SX6    RESC
05357  M02S00037.286l859 ---|          RJ     SRS         SELECT RIGHT SCREEN
Line S01171 Modification History
M01 (Added by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
05358  M01S01171.286l859 +++| IRS2     READW  RESS,RESE,2 READ STAGE REQUEST ENTRY
05359  M01S01172.286l859 +++|          SX5    B0+         SET NO RESCAN
05360  M01S01173.286l859 +++|          NZ     X1,IRS3     IF END OF REQUESTS
05361  M01S01174.286l859 +++|          SA1    RESE+1      SET FILE NAME AND USER INDEX
05362  M01S01175.286l859 +++|          SB2    ERRT        * STAGED FILE RESCAN TERMINATED ...*
05363  M01S01176.286l859 +++|          RJ     SFE         SEND ERROR MESSAGE
05364  M01S01177.286l859 +++|          RJ     CFE         COUNT FILE SKIPPED
05365  M01S01178.286l859 +++|          EQ     IRS2        READ NEXT ENTRY
05366  M01S01179.286l859 +++|
05367  M01S01180.286l859 +++|*         CLEAR MESSAGE AND RESET CATALOG TRACK INTERLOCK.
05368  M01S01181.286l859 +++|
05369  M01S01182.286l859 +++| IRS3     SA3    IDSA+/COMSPFS/ADER  CLEAR HELP MESSAGE
05370  M01S01183.286l859 +++|          MOVE   4,MSGW,X3
05371  M01S01184.286l859 +++|          PCINT  CATS,CTSC   RESET CATALOG TRACK INTERLOCK
05372  M01S01185.286l859 +++|          SA1    RSIN
05373  M01S01186.286l859 +++|          BX6    X5          SET RESCAN STATUS
05374  M01S01187.286l859 +++|          BX7    X1          SET CATALOG INDEX FOR RESCAN
05375  M00S03085.pfdump  +++|          EQ     IRSX        RETURN
Line S01188 Modification History
M01 (Added by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
05376  M01S01188.286l859 +++|
05377  M01S01189.286l859 +++|
05378  M01S01190.286l859 +++| IRSA     CON    0LSKIP      *SKIP* KEYBOARD ENTRY
Line S03086 Modification History
M01 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
05379  M01S03086.253l688 ---| MCO      SPACE  4,25
05380  M01S03087.253l688 ---|**        MCO - MOVE CATALOG TO OUTPUT.
05381  M01S03088.253l688 ---|*
05382  M01S03089.253l688 ---|*         ENTRY  (B2) = CATALOG ADDRESS.
05383  M01S03090.253l688 ---|*                (CONTH) = CONTROL WORD USED IN WRITING THE CATALOG
05384  M01S03091.253l688 ---|*                          ENTRY (PFC) TO THE ARCHIVE FILE.
05385  M01S03092.253l688 ---|*
05386  M01S03093.253l688 ---|*T CONTH  42/FILE NAME,3/,3/T,3/S,9/WC
Figure CONTH

08911121415171829WCSTFILE NAME3059FILE NAME

05387  M01S03094.253l688 ---|*
05388  M01S03095.253l688 ---|*         T = CONTROL WORD TYPE (1).
05389  M01S03096.253l688 ---|*         S = CONTROL WORD SUB-TYPE.
05390  M01S03097.253l688 ---|*             0 = *PFC ONLY* ENTRY.
05391  M01S03098.253l688 ---|*             1 = NORMAL ENTRY.
05392  M01S03099.253l688 ---|*         WC = ENTRY WORD COUNT.
05393  M01S03100.253l688 ---|*
05394  M01S03101.253l688 ---|*         EXIT   CATALOG ENTRY WRITTEN TO OUTPUT.
05395  M01S03102.253l688 ---|*
05396  M01S03103.253l688 ---|*         USES   X - 1, 2, 6.
05397  M01S03104.253l688 ---|*                A - 1, 2, 6.
05398  M01S03105.253l688 ---|*
05399  M01S03106.253l688 ---|*         CALLS  CDD.
05400  M01S03107.253l688 ---|*
Line S03108 Modification History
M01 (Removed by) v23l617
M02 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
05401  M02S03108.253l688 ---|*         MACROS EDCAT, WRITEH.
Line S00165 Modification History
M01 (Added by) v23l617
M02 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
05402  M02S00165.253l688 ---|*         MACROS EDCAT, MOVE, WRITEH.
Line S03109 Modification History
M01 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
05403  M01S03109.253l688 ---|
05404  M01S03110.253l688 ---|
05405  M01S03111.253l688 ---| MCO      SUBR               ENTRY/EXIT
05406  M01S03112.253l688 ---|          SX6    B2+         SAVE CATALOG ADDRESS
05407  M01S03113.253l688 ---|          SA6    MCOA
05408  M01S03114.253l688 ---|          SA1    LNAC        INCREMENT LINE NUMBER
05409  M01S03115.253l688 ---|          SX6    X1+B1
05410  M01S03116.253l688 ---|          SA6    A1
05411  M01S03117.253l688 ---|          SA1    LNPP        INCREMENT LINES / PAGE
Line S03118 Modification History
M01 (Removed by) v23l617
M02 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
05412  M02S03118.253l688 ---|          SX6    X1+4
Line S00166 Modification History
M01 (Added by) v23l617
M02 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
05413  M02S00166.253l688 ---|          SX6    X1+5
Line S03119 Modification History
M01 (Removed by) ns22000
M02 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
05414  M02S03119.253l688 ---|          SX2    PGLM
Line S00239 Modification History
M01 (Added by) ns22000
M02 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
05415  M02S00239.253l688 ---|          SA2    A1+B1
Line S03120 Modification History
M01 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
05416  M01S03120.253l688 ---|          IX2    X2-X6
05417  M01S03121.253l688 ---|          PL     X2,MCO1     IF NOT END OF PAGE
05418  M01S03122.253l688 ---|
05419  M01S03123.253l688 ---|*         WRITE HEADER.
05420  M01S03124.253l688 ---|
05421  M01S03125.253l688 ---|          SA1    PAGE
05422  M01S03126.253l688 ---|          SX6    X1+B1
05423  M01S03127.253l688 ---|          SA6    A1
05424  M01S03128.253l688 ---|          RJ     CDD
05425  M01S03129.253l688 ---|          SA6    HPGE
05426  M01S03130.253l688 ---|          WRITEH OUTPUT,HDR1A,7
05427  M01S03131.253l688 ---|          WRITEH X2,HDR1B,7
05428  M01S03132.253l688 ---|          WRITEH X2,HDR2,1
05429  M01S03133.253l688 ---|          WRITEH X2,HDR3,FCELL
05430  M01S03134.253l688 ---|          WRITEH X2,HDR4,FCELL
05431  M01S03135.253l688 ---|          WRITEH X2,HDR5,FCELL
Line S03136 Modification History
M01 (Removed by) ns22000
M02 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
05432  M02S03136.253l688 ---|          WRITEH X2,HDR2,1
05433  M02S03137.253l688 ---|          SX6    B1
Line S00240 Modification History
M01 (Added by) ns22000
M02 (Removed by) v23l617
M03 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
05434  M03S00240.253l688 ---|          SX6    6+4
Line S00167 Modification History
M01 (Added by) v23l617
M02 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
05435  M02S00167.253l688 ---|          WRITEH X2,HDR6,FCELB
05436  M02S00168.253l688 ---|          SX6    7+5
Line S03138 Modification History
M01 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
05437  M01S03138.253l688 ---|
05438  M01S03139.253l688 ---|*         WRITE DETAIL LINE.
05439  M01S03140.253l688 ---|
05440  M01S03141.253l688 ---| MCO1     SA6    LNPP
05441  M01S03142.253l688 ---|          SA1    LNAC
05442  M01S03143.253l688 ---|          SA2    MCOA
Line S03144 Modification History
M01 (Removed by) ns22000
M02 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
05443  M02S03144.253l688 ---|          EDCAT  X2,OUTL,X1,B1,B1
Line S00241 Modification History
M01 (Added by) ns22000
M02 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
05444  M02S00241.253l688 ---|          EDCAT  X2,OUTL,X1,1,1,1
Line S03145 Modification History
M01 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
05445  M01S03145.253l688 ---|          SA1    CONTH       GET CATALOG ENTRY SUB-TYPE
05446  M01S03146.253l688 ---|          MX6    3
05447  M01S03147.253l688 ---|          LX6    11-59
05448  M01S03148.253l688 ---|          BX6    X6*X1
05449  M01S03149.253l688 ---|          SA1    =C/* PFC ONLY/
05450  M01S03150.253l688 ---|          ZR     X6,MCO2     IF *PFC ONLY* ENTRY WAS WRITTEN
05451  M01S03151.253l688 ---|          SA1    =C/          /
05452  M01S03152.253l688 ---| MCO2     BX6    X1
05453  M01S03153.253l688 ---|          SA6    AMSG
Line S00242 Modification History
M01 (Added by) ns22000
M02 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
05454  M02S00242.253l688 ---|          WRITEH OUTPUT,HDR2,1
Line S03154 Modification History
M01 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
05455  M01S03154.253l688 ---|          WRITEH OUTPUT,OUTL,FCELL
05456  M01S03155.253l688 ---|          WRITEH X2,OUTL+FCELL,FCELL
Line S03156 Modification History
M01 (Removed by) v23l617
M02 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
05457  M02S03156.253l688 ---|          WRITEH X2,OUTL+2*FCELL,FCELL+1
Line S00169 Modification History
M01 (Added by) v23l617
M02 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
05458  M02S00169.253l688 ---|          MOVE   FCELL,OUTL+2*FCELL,COLN
05459  M02S00170.253l688 ---|          WRITEH OUTPUT,COLN,FCELL+1
05460  M02S00171.253l688 ---|          WRITEH X2,OUTL+3*FCELL,FCELB
Line S03157 Modification History
M01 (Removed by) ns22000
M02 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
05461  M02S03157.253l688 ---|          WRITEH X2,HDR2,1
Line S03158 Modification History
M01 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
05462  M01S03158.253l688 ---|          EQ     MCOX        RETURN
05463  M01S03159.253l688 ---|
05464  M01S03160.253l688 ---|
05465  M01S03161.253l688 ---| MCOA     BSS    1           REGISTER HOLD AREA
05466  M01S03162.253l688 ---|
05467  M01S03163.253l688 ---|
Line S03164 Modification History
M01 (Removed by) ns22000
M02 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
05468  M02S03164.253l688 ---| PGLM     EQU    LINP-11     MAXIMUM NUMBER OF LINES PER PAGE
Line S03165 Modification History
M01 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
05469  M01S03165.253l688 ---| PAGE     CON    1
05470  M01S03166.253l688 ---| LNAC     CON    0
Line S03167 Modification History
M01 (Removed by) ns22000
M02 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
05471  M02S03167.253l688 ---| LNPP     CON    PGLM
Line S03168 Modification History
M01 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
05472  M01S03168.253l688 ---| HDR1A    DATA   50H1           PFDUMP CATALOG OF
05473  M01S03169.253l688 ---|          DATA   20H    PAGE
05474  M01S03170.253l688 ---| HTYP     EQU    HDR1A+3
05475  M01S03171.253l688 ---| HPGE     EQU    HDR1A+6
05476  M01S03172.253l688 ---| HCIR     DATA   20HCATALOG IMAGE RECORD
05477  M01S03173.253l688 ---| HTPE     DATA   20HFILES DUMPED TO TAPE
05478  M01S03174.253l688 ---| HDR1B    DATA   50H               ON                         AT
05479  M01S03175.253l688 ---| HTMR     DATA   20H
05480  M01S03176.253l688 ---| HDTR     EQU    HDR1B+2
05481  M01S03177.253l688 ---| HDR2     DATA   10H
05482  M00S03178.pfdump  +++| MMC      SPACE  4,10
05483  M00S03179.pfdump  +++|**        MMC - MOVE MEMORY VIA *CMU* OR REGISTERS.
05484  M00S03180.pfdump  +++|*
05485  M00S03181.pfdump  +++|*         ENTRY  (X1) = WORD COUNT OF MOVE.
05486  M00S03182.pfdump  +++|*                (X3) = ADDRESS TO MOVE FROM.
05487  M00S03183.pfdump  +++|*                (X6) = ADDRESS TO MOVE TO.
05488  M00S03184.pfdump  +++|*
05489  M00S03185.pfdump  +++|*         USES   X - 0, 1, 3, 6.
05490  M00S03186.pfdump  +++|*                A - 1, 3, 6.
05491  M00S03187.pfdump  +++|*                B - 5.
05492  M00S03188.pfdump  +++|
05493  M00S03189.pfdump  +++|
05494  M00S03190.pfdump  +++| MMC      SUBR               ENTRY/EXIT
05495  M00S03191.pfdump  +++|          LX3    30          BUILD DESCRIPTOR WORD
05496  M00S03192.pfdump  +++|          BX6    X6+X3
05497  M00S03193.pfdump  +++|          SA3    MMCB        GET ADDRESS INCREMENT
05498  M00S03194.pfdump  +++|          UX3,B5 X3          EXTRACT CHARACTER COUNT
05499  M00S03195.pfdump  +++|          PX6    X6,B5       SET CHARACTER COUNT UPPER FIELD
05500  M00S03196.pfdump  +++|          SB5    X1          SET WORD COUNT
05501  M00S03197.pfdump  +++|          BX1    X0          SAVE X0
05502  M00S03198.pfdump  +++| MMC1     SA6    A3-B1       STORE DESCRIPTOR WORD
05503  M00S03199.pfdump  +++|          SB5    B5+X3       DECREMENT WORD COUNT
05504  M00S03200.pfdump  +++|          NG     B5,MMC2     IF SHORT BLOCK TO MOVE
05505  M00S03201.pfdump  +++|          IM     MMCA
05506  M00S03202.pfdump  +++|          IX6    X6-X3       INCREMENT ADDRESSES
05507  M00S03203.pfdump  +++|          GT     B5,B0,MMC1  IF MORE DATA TO TRANSFER
05508  M00S03204.pfdump  +++|          BX0    X1          RESTORE X0
05509  M00S03205.pfdump  +++|          EQ     MMCX        RETURN
05510  M00S03206.pfdump  +++|
05511  M00S03207.pfdump  +++|*         PROCESS BLOCK SHORTER THAN *NWCM* WORDS.
05512  M00S03208.pfdump  +++|
05513  M00S03209.pfdump  +++| MMC2     SX3    B5+NWCM     RESET CHARACTER COUNT IN DESCRIPTOR
05514  M00S03210.pfdump  +++|          UX6    X6
05515  M00S03211.pfdump  +++|          LX0    X3,B1       COMPUTE CHARACTERS LEFT TO MOVE
05516  M00S03212.pfdump  +++|          LX3    3
05517  M00S03213.pfdump  +++|          IX3    X0+X3
05518  M00S03214.pfdump  +++|          MX0    4
05519  M00S03215.pfdump  +++|          LX3    -4
05520  M00S03216.pfdump  +++|          BX0    X0*X3       EXTRACT LOWER FIELD
05521  M00S03217.pfdump  +++|          SB5    2000B+X3    SET UPPER FIELD
05522  M00S03218.pfdump  +++|          LX0    -30
05523  M00S03219.pfdump  +++|          PX6    X6,B5
05524  M00S03220.pfdump  +++|          BX6    X6+X0
05525  M00S03221.pfdump  +++|          SA6    MMCA        STORE DESCRIPTOR
05526  M00S03222.pfdump  +++|          IM     MMCA
05527  M00S03223.pfdump  +++|          BX0    X1          RESTORE X0
05528  M00S03224.pfdump  +++|          EQ     MMCX        RETURN
05529  M00S03225.pfdump  +++|
05530  M00S03226.pfdump  +++| MMCA     VFD    12/0        UPPER CHARACTER COUNT OF MOVE
05531  M00S03227.pfdump  +++|          VFD    18/0        ADDRESS TO MOVE FROM
05532  M00S03228.pfdump  +++|          VFD    4/0         LOWER CHARACTER COUNT FIELD
05533  M00S03229.pfdump  +++|          VFD    8/0
05534  M00S03230.pfdump  +++|          VFD    18/0        ADDRESS TO MOVE TO
05535  M00S03231.pfdump  +++|
05536  M00S03232.pfdump  +++| MMCB     VFD    12/-NWCM*10D/20B,18/-NWCM,30/-NWCM  ADDRESS INCREMENT
05537  M00S03233.pfdump  +++|          ERRNZ  MMCB-MMCA-1  CODE DEPENDS ON LOCATION OF CELLS
05538  M00S03234.pfdump  +++|
05539  M00S03235.pfdump  +++| MMCL     EQU    *-MMC       LENGTH OF CODE TO OVERLAY
05540  M00S03236.pfdump  +++|
05541  M00S03237.pfdump  +++|*         THE FOLLOWING CODE IS USED WHEN NO *CMU* IS PRESENT.
05542  M00S03238.pfdump  +++|
05543  M00S03239.pfdump  +++| MOVE     RMT
05544  M00S03240.pfdump  +++|          LOC    MMC
05545  M00S03241.pfdump  +++|
05546  M00S03242.pfdump  +++|
05547  M00S03243.pfdump  +++| MMC      SUBR               ENTRY/EXIT
05548  M00S03244.pfdump  +++|          SA3    X3          READ FIRST WORD TO MOVE
05549  M00S03245.pfdump  +++|          SB5    X1-10B      SET WORD COUNT
05550  M00S03246.pfdump  +++|          SA1    X6-1        INITIALIZE STORE ADDRESS
05551  M00S03247.pfdump  +++|          BX6    X1
05552  M00S03248.pfdump  +++|          SA6    A1
05553  M00S03249.pfdump  +++|          NG     B5,MMC4     IF LESS THAN 10B WORDS TO MOVE
05554  M00S03250.pfdump  +++|
05555  M00S03251.pfdump  +++|*         REGISTER MOVE LOOP.
05556  M00S03252.pfdump  +++|
05557  M00S03253.pfdump  +++| MMC3     SA1    A3+B1
05558  M00S03254.pfdump  +++|          BX6    X3
05559  M00S03255.pfdump  +++|          SA6    A6+B1
05560  M00S03256.pfdump  +++|          SA3    A1+B1
05561  M00S03257.pfdump  +++|          BX6    X1
05562  M00S03258.pfdump  +++|          SA6    A6+B1
05563  M00S03259.pfdump  +++|          SA1    A3+B1
05564  M00S03260.pfdump  +++|          BX6    X3
05565  M00S03261.pfdump  +++|          SA6    A6+B1
05566  M00S03262.pfdump  +++|          SB5    B5-10B      DECREMENT WORD COUNT
05567  M00S03263.pfdump  +++|          SA3    A1+B1
05568  M00S03264.pfdump  +++|          BX6    X1
05569  M00S03265.pfdump  +++|          SA6    A6+B1
05570  M00S03266.pfdump  +++|          SA1    A3+B1
05571  M00S03267.pfdump  +++|          BX6    X3
05572  M00S03268.pfdump  +++|          SA6    A6+B1
05573  M00S03269.pfdump  +++|          SA3    A1+B1
05574  M00S03270.pfdump  +++|          BX6    X1
05575  M00S03271.pfdump  +++|          SA6    A6+B1
05576  M00S03272.pfdump  +++|          SA1    A3+B1
05577  M00S03273.pfdump  +++|          BX6    X3
05578  M00S03274.pfdump  +++|          SA6    A6+B1
05579  M00S03275.pfdump  +++|          SA3    A1+B1
05580  M00S03276.pfdump  +++|          BX6    X1
05581  M00S03277.pfdump  +++|          SA6    A6+B1
05582  M00S03278.pfdump  +++|          PL     B5,MMC3     IF MORE 10 WORD BLOCKS TO MOVE
05583  M00S03279.pfdump  +++|
05584  M00S03280.pfdump  +++|*         MOVE REMAINDER OF DATA.
05585  M00S03281.pfdump  +++|
05586  M00S03282.pfdump  +++| MMC4     SB5    B5+10B
05587  M00S03283.pfdump  +++|          ZR     B5,MMCX     IF NO MORE DATA TO MOVE
05588  M00S03284.pfdump  +++| MMC5     BX6    X3
05589  M00S03285.pfdump  +++|          SA3    A3+B1
05590  M00S03286.pfdump  +++|          SB5    B5-B1
05591  M00S03287.pfdump  +++|          SA6    A6+B1
05592  M00S03288.pfdump  +++|          GT     B5,B0,MMC5  IF MORE DATA TO MOVE
05593  M00S03289.pfdump  +++|          EQ     MMCX        RETURN
05594  M00S03290.pfdump  +++|
05595  M00S03291.pfdump  +++|          ERRPL  *-MMC-MMCL  CODE TOO LARGE TO OVERLAY *MMC*
05596  M00S03292.pfdump  +++|          LOC    *O
05597  M00S03293.pfdump  +++|
05598  M00S03294.pfdump  +++| MOVE     RMT
Line S01191 Modification History
M01 (Added by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
05599  M01S01191.286l859 +++| MRE      SPACE  4,20
05600  M01S01192.286l859 +++|**        MRE - MAKE DATA READ LIST ENTRY.
05601  M01S01193.286l859 +++|*
05602  M01S01194.286l859 +++|*         ENTRY  (A0) = CATALOG ADDRESS.
05603  M01S01195.286l859 +++|*
05604  M01S01196.286l859 +++|*         EXIT   (A0) = CATALOG ADDRESS.
05605  M01S01197.286l859 +++|*                (X6) = 0 IF DATA LIST FULL.
05606  M01S01198.286l859 +++|*                (X6) .NE. 0 IF DATA LIST NOT FULL.
05607  M01S01199.286l859 +++|*                DATA READ LIST ENTRY MADE IF NO ERROR.
05608  M01S01200.286l859 +++|*                (NDLE) = UPDATED COUNT OF READ LIST ENTRIES.
05609  M01S01201.286l859 +++|*
05610  M01S01202.286l859 +++|*         USES   X - 0, 1, 2, 3, 5, 6, 7.
05611  M01S01203.286l859 +++|*                A - 1, 2, 6, 7.
05612  M01S01204.286l859 +++|*                B - 2.
05613  M01S01205.286l859 +++|*
05614  M01S01206.286l859 +++|*         CALLS  CDS, CFE, SDE.
05615  M01S01207.286l859 +++|*
05616  M01S01208.286l859 +++|*         MACROS MOVE.
05617  M01S01209.286l859 +++|
05618  M01S01210.286l859 +++|
05619  M01S01211.286l859 +++| MRE      SUBR               ENTRY/EXIT
05620  M01S01212.286l859 +++|
05621  M01S01213.286l859 +++|*         SET BUFFER INDEX AND TRACK/SECTOR IN ENTRY.
05622  M01S01214.286l859 +++|
05623  M01S01215.286l859 +++|          SA1    A0+FCBT
05624  M01S01216.286l859 +++|          SA2    NDLE
05625  M01S01217.286l859 +++|          MX0    -24
05626  M01S01218.286l859 +++|          BX7    -X0*X1      TRACK AND SECTOR
05627  M01S01219.286l859 +++|          SB2    X2          NEXT CATALOG INDEX
05628  M01S01220.286l859 +++|          LX1    59-11
05629  M01S01221.286l859 +++|          PX7    X7,B2       SET CATALOG INDEX AND TRACK/SECTOR
05630  M01S01222.286l859 +++|          MX0    24
05631  M01S01223.286l859 +++|          PL     X1,MRE2     IF INDIRECT ACCESS FILE
05632  M01S01224.286l859 +++|
05633  M01S01225.286l859 +++|*         PROCESS DIRECT ACCESS FILE.
05634  M01S01226.286l859 +++|
05635  M01S01227.286l859 +++|          SA1    A0+FCDN
05636  M01S01228.286l859 +++|          SA2    CPAR+/COMSPFS/CPDN
05637  M01S01229.286l859 +++|          MX0    48
05638  M01S01230.286l859 +++|          MX6    -6
05639  M01S01231.286l859 +++|          LX1    -36
05640  M01S01232.286l859 +++|          BX1    -X6*X1      DEVICE NUMBER
05641  M01S01233.286l859 +++|          ZR     X1,MRE1     IF FILE RESIDES ON MASTER DEVICE
05642  M01S01234.286l859 +++|          SX2    X1+
05643  M01S01235.286l859 +++| MRE1     SX2    X2+4000B    SET DIRECT ACCESS FLAG
05644  M01S01236.286l859 +++|          BX7    X0*X7
05645  M01S01237.286l859 +++|          BX7    X7+X2       SET DEVICE NUMBER IN LIST ENTRY
05646  M01S01238.286l859 +++|          ZR     X1,MRE3     IF FILE RESIDES ON MASTER DEVICE
05647  M01S01239.286l859 +++|          RJ     CDS         CHECK DEVICE STATUS
05648  M01S01240.286l859 +++|          NZ     X6,MRE3     IF DEVICE FOUND
05649  M01S01241.286l859 +++|          SX2    X1+         SET DEVICE NUMBER
05650  M01S01242.286l859 +++|          SA1    A0+FCFN     GET FILE NAME AND USER INDEX
05651  M01S01243.286l859 +++|          SB2    ERDN        * DEVICE NOT FOUND ...*
05652  M01S01244.286l859 +++|          RJ     SDE         SEND ERROR MESSAGE
05653  M01S01245.286l859 +++|          RJ     CFE         COUNT FILE SKIPPED
05654  M01S01246.286l859 +++|          SX6    B1          SET DATA LIST NOT FULL
05655  M01S01247.286l859 +++|          EQ     MREX        RETURN
05656  M01S01248.286l859 +++|
05657  M01S01249.286l859 +++|*         PROCESS INDIRECT ACCESS FILE.
05658  M01S01250.286l859 +++|
05659  M01S01251.286l859 +++| MRE2     SA1    A0+FCLF
05660  M01S01252.286l859 +++|          SX6    B1
05661  M01S01253.286l859 +++|          LX6    24
05662  M01S01254.286l859 +++|          BX7    X7+X6       SET FILE LENGTH ADJUSTMENT
05663  M01S01255.286l859 +++|          BX1    X0*X1       FILE LENGTH
05664  M01S01256.286l859 +++|          LX1    -12
05665  M01S01257.286l859 +++|          IX7    X7+X1       SET FILE LENGTH IN ENTRY
05666  M01S01258.286l859 +++|
05667  M01S01259.286l859 +++|*         PUT ENTRY IN LIST.
05668  M01S01260.286l859 +++|
05669  M01S01261.286l859 +++| MRE3     SA1    CADA
05670  M01S01262.286l859 +++|          SA7    DLRB+B2     PUT READ LIST ENTRY IN TABLE
05671  M01S01263.286l859 +++|          SX3    B2+
05672  M01S01264.286l859 +++|          LX3    4           OFFSET IN *DLCB*
05673  M01S01265.286l859 +++|          ERRNZ  NWCE-20B
05674  M01S01266.286l859 +++|          BX6    X1
05675  M01S01267.286l859 +++|          SX3    DLCB+X3     CATALOG ADDRESS IN *DLCB*
05676  M01S01268.286l859 +++|          SA6    DLDB+B2     SAVE DISK ADDRESS
05677  M01S01269.286l859 +++|          MOVE   NWCE,A0,X3  MOVE CATALOG ENTRY TO BUFFER
05678  M01S01270.286l859 +++|          SX6    B2+B1       ADVANCE READ LIST ENTRY COUNT
05679  M01S01271.286l859 +++|          SX7    B0
05680  M01S01272.286l859 +++|          SA6    NDLE        UPDATE ENTRY COUNT
05681  M01S01273.286l859 +++|          SA7    DLRB+X6     WRITE TERMINATOR WORD
05682  M01S01274.286l859 +++|          SX6    X6-DLEMX    SET LIST FULL STATUS
05683  M01S01275.286l859 +++|          EQ     MREX        RETURN
05684  M01S01276.286l859 +++| OPF      SPACE  4,10
05685  M01S01277.286l859 +++|**        OPF - OPEN PERMITS FILE.
05686  M01S01278.286l859 +++|*
05687  M01S01279.286l859 +++|*         EXIT   PERMITS FILE OPENED.
05688  M01S01280.286l859 +++|*
05689  M01S01281.286l859 +++|*         USES   X - 1, 2, 3, 6, 7.
05690  M01S01282.286l859 +++|*                A - 1, 2, 7.
05691  M01S01283.286l859 +++|*
05692  M01S01284.286l859 +++|*         MACROS CALLPFU.
05693  M01S01285.286l859 +++|
05694  M01S01286.286l859 +++|
05695  M01S01287.286l859 +++| OPF      SUBR               ENTRY/EXIT
05696  M01S01288.286l859 +++|          SA2    MSTA
05697  M01S01289.286l859 +++|          SA1    MAEQ
05698  M01S01290.286l859 +++|          SA2    X2
05699  M01S01291.286l859 +++|          MX6    -12
05700  M01S01292.286l859 +++|          SX7    10005B      FIRST SECTOR AND FILE STATUS
05701  M01S01293.286l859 +++|          LX1    48
05702  M01S01294.286l859 +++|          LX2    -24
05703  M01S01295.286l859 +++|          BX7    X1+X7       MERGE EST ORDINAL, SECTOR, AND STATUS
05704  M01S01296.286l859 +++|          BX3    -X6*X2      PERMITS FIRST TRACK
05705  M01S01297.286l859 +++|          BX2    -X6*X2      SET CURRENT TRACK
05706  M01S01298.286l859 +++|          LX3    36
05707  M01S01299.286l859 +++|          LX2    24
05708  M01S01300.286l859 +++|          BX7    X7+X3       MERGE FIRST TRACK
05709  M01S01301.286l859 +++|          BX7    X7+X2       MERGE CURRENT TRACK
05710  M01S01302.286l859 +++|          SA7    PETS+FTPM   SET PARAMETER WORD
05711  M01S01303.286l859 +++|          CALLPFU  PETS,CTOL,R  OPEN FILE
05712  M01S01304.286l859 +++|          EQ     OPFX        RETURN
05713  M00S03295.pfdump  +++| OPN      SPACE  4,20
Line S03296 Modification History
M01 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
05714  M01S03296.286l859 ---|**        OPN - OPEN FILES.
Line S01305 Modification History
M01 (Added by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
05715  M01S01305.286l859 +++|**        OPN - OPEN DEVICE FILES.
05716  M00S03297.pfdump  +++|*
Line S03298 Modification History
M01 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
05717  M01S03298.286l859 ---|*         ENTRY  (MDDS) = MASTER DEVICE DESCRIPTION.
Line S01306 Modification History
M01 (Added by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
05718  M01S01306.286l859 +++|*         ENTRY  (MSTA) = MASTER DEVICE *MSTT* ENTRY ADDRESS.
Line S03299 Modification History
M01 (Removed by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
05719  M01S03299.ns22000 ---|*                (MAEQ) = MASTER EQUIPMENT NUMBER.
Line S00243 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
05720  M01S00243.ns22000 +++|*                (MAEQ) = MASTER DEVICE EST ORDINAL.
05721  M00S03300.pfdump  +++|*                (CPAR+/COMSPFS/CPDN) = MASTER DEVICE NUMBER.
Line S03301 Modification History
M01 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
05722  M01S03301.286l859 ---|*                (SCAN) = 0, IF NORMAL SCAN.
05723  M01S03302.286l859 ---|*                       = 1, IF RESCAN.
Line S03303 Modification History
M01 (Removed by) 253l688
M02 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
05724  M02S03303.286l859 ---|*                (FRSG+RSFI) = *PF-ID* OF FIRST FILE FOR WHICH
05725  M02S03304.286l859 ---|*                              A STAGING REQUEST WAS ISSUED ON
05726  M02S03305.286l859 ---|*                              THE PREVIOUS SCAN.
Line S00315 Modification History
M01 (Added by) 253l688
M02 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
05727  M02S00315.286l859 ---|*                (RSTS) = CATALOG TRACK AND SECTOR OF FIRST STAGE
05728  M02S00316.286l859 ---|*                           REQUEST ISSUED ON THE PREVIOUS SCAN.
05729  M00S03306.pfdump  +++|*
05730  M00S03307.pfdump  +++|*         EXIT   CATALOG, PERMIT AND DATA FILES OPENED.
05731  M00S03308.pfdump  +++|*
Line S03309 Modification History
M01 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
05732  M01S03309.286l859 ---|*         USES   X - 0, 1, 2, 5, 6, 7.
05733  M01S03310.286l859 ---|*                A - 1, 2, 5, 6, 7.
Line S01307 Modification History
M01 (Added by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
05734  M01S01307.286l859 +++|*         USES   X - 1, 2, 3, 5, 6, 7.
05735  M01S01308.286l859 +++|*                A - 1, 2, 5, 7.
05736  M00S03311.pfdump  +++|*
Line S03312 Modification History
M01 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
05737  M01S03312.286l859 ---|*         CALLS  WUC.
Line S01309 Modification History
M01 (Added by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
05738  M01S01309.286l859 +++|*         CALLS  OCF, OPF.
05739  M00S03313.pfdump  +++|*
Line S03314 Modification History
M01 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
05740  M01S03314.286l859 ---|*         MACROS CALLPFU, READ, RENAME, RETURN, REWIND,
05741  M01S03315.286l859 ---|*                SETFS, WRITE, WRITEF.
Line S01310 Modification History
M01 (Added by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
05742  M01S01310.286l859 +++|*         MACROS CALLPFU.
05743  M00S03316.pfdump  +++|
05744  M00S03317.pfdump  +++|
05745  M00S03318.pfdump  +++| OPN      SUBR               ENTRY/EXIT
Line S03319 Modification History
M01 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
05746  M01S03319.286l859 ---|          RJ     WUC         WAIT FOR NO PF UTILITY ACTIVITY ON DEVICE
05747  M01S03320.286l859 ---|          SA1    SCAN
05748  M01S03321.286l859 ---|          ZR     X1,OPN1     IF NORMAL SCAN
05749  M00S03322.pfdump  +++|
Line S03323 Modification History
M01 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
05750  M01S03323.286l859 ---|*         SET UP CATALOG FST ENTRY FOR RESCAN.
Line S01311 Modification History
M01 (Added by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
05751  M01S01311.286l859 +++|*         OPEN CATALOG AND PERMITS FILES.
05752  M00S03324.pfdump  +++|
Line S03325 Modification History
M01 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
05753  M01S03325.253l688 ---|          SA1    FRSG+RSFI   GET FIRST STAGING REQUEST TRACK/SECTOR
Line S00317 Modification History
M01 (Added by) 253l688
M02 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
05754  M02S00317.286l859 ---|          SA1    RSTS        GET FIRST STAGING REQUEST TRACK/SECTOR
05755  M02S00318.286l859 ---|          SA2    OPNB        GET INITIAL SCAN CATALOG FST ENTRY
Line S03326 Modification History
M01 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
05756  M01S03326.286l859 ---|          MX0    -24
Line S03327 Modification History
M01 (Removed by) 253l688
M02 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
05757  M02S03327.286l859 ---|          SA2    OPNB        GET INITIAL SCAN CATALOG FST ENTRY
05758  M02S03328.286l859 ---|          BX1    -X0*X1      SET CURRENT TRACK/SECTOR = FIRST REQUEST
Line S03329 Modification History
M01 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
05759  M01S03329.286l859 ---|          LX0    35-23
05760  M01S03330.286l859 ---|          LX1    35-23
05761  M01S03331.286l859 ---|          BX6    X0*X2
Line S03332 Modification History
M01 (Removed by) 253l688
M02 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
05762  M02S03332.286l859 ---|          BX6    X6+X1
Line S00319 Modification History
M01 (Added by) 253l688
M02 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
05763  M02S00319.286l859 ---|          BX6    X6+X1       MERGE TRACK AND SECTOR
Line S03333 Modification History
M01 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
05764  M01S03333.286l859 ---|          SA6    CATS+FTPM
05765  M01S03334.286l859 ---|          EQ     OPN2        SET UP PERMITS FST ENTRY
Line S01312 Modification History
M01 (Added by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
05766  M01S01312.286l859 +++|          RJ     OCF         OPEN CATALOG FILE
05767  M01S01313.286l859 +++|          RJ     OPF         OPEN PERMITS FILE
05768  M00S03335.pfdump  +++|
Line S03336 Modification History
M01 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
05769  M01S03336.286l859 ---|*         SET UP CATALOG FST ENTRY FOR NORMAL SCAN.
Line S01314 Modification History
M01 (Added by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
05770  M01S01314.286l859 +++|*         OPEN DATA FILE.
05771  M00S03337.pfdump  +++|
Line S03338 Modification History
M01 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
05772  M01S03338.286l859 ---| OPN1     SA1    PDPM        SET CATALOG DESCRIPTION PARAMETER
05773  M01S03339.286l859 ---|          BX6    X1
05774  M01S03340.286l859 ---|          SA6    CATS+FTPM
05775  M01S03341.286l859 ---|          CALLPFU  CATS,CTCT,R  GET CATALOG TRACK PARAMETERS
05776  M01S03342.286l859 ---|          SA1    CATS+FTPM
05777  M01S03343.286l859 ---|          SX2    5
Line S03344 Modification History
M01 (Removed by) ns22000
M02 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
05778  M02S03344.286l859 ---|          MX0    -18
Line S00244 Modification History
M01 (Added by) ns22000
M02 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
05779  M02S00244.286l859 ---|          MX0    -24
Line S03345 Modification History
M01 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
05780  M01S03345.286l859 ---|          BX1    -X0*X1      SET EQ AND FIRST TRACK
05781  M01S03346.286l859 ---|          MX0    -12
05782  M01S03347.286l859 ---|          BX6    -X0*X1      SET CURRENT TRACK
05783  M01S03348.286l859 ---|          LX1    36
05784  M01S03349.286l859 ---|          BX2    X2+X1       BUILD CATALOG TRACK FST ENTRY
05785  M01S03350.286l859 ---|          LX6    24
05786  M01S03351.286l859 ---|          BX6    X2+X6
05787  M01S03352.286l859 ---|          SA6    A1
05788  M01S03353.286l859 ---|          SA6    OPNB        SAVE CATALOG FST ENTRY FOR RESCAN
Line S01315 Modification History
M01 (Added by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
05789  M01S01315.286l859 +++|          SA2    MSTA
05790  M01S01316.286l859 +++|          SA1    MAEQ
05791  M01S01317.286l859 +++|          SA2    X2
05792  M01S01318.286l859 +++|          MX6    -12
05793  M01S01319.286l859 +++|          SX7    10005B      FIRST SECTOR AND FILE STATUS
05794  M01S01320.286l859 +++|          LX1    48
05795  M01S01321.286l859 +++|          LX2    -48
05796  M01S01322.286l859 +++|          BX7    X1+X7       MERGE EST ORDINAL, SECTOR, AND STATUS
05797  M01S01323.286l859 +++|          BX3    -X6*X2      INDIRECT DATA CHAIN FIRST TRACK
05798  M01S01324.286l859 +++|          BX2    -X6*X2      SET CURRENT TRACK
05799  M01S01325.286l859 +++|          LX3    36
05800  M01S01326.286l859 +++|          LX2    24
05801  M01S01327.286l859 +++|          BX7    X7+X3       MERGE FIRST TRACK
05802  M01S01328.286l859 +++|          BX7    X7+X2       MERGE CURRENT TRACK
05803  M01S01329.286l859 +++|          SA7    DATA+FTPM
05804  M01S01330.286l859 +++|          CALLPFU  DATA,CTOL,R
05805  M00S03354.pfdump  +++|
Line S03355 Modification History
M01 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
05806  M01S03355.286l859 ---|*         SET UP PERMITS FST ENTRY.
05807  M01S03356.286l859 ---|
05808  M01S03357.286l859 ---| OPN2     MX0    36          CLEAR *CATS* TRACKS AND SECTOR
05809  M01S03358.286l859 ---|          SX1    B1          SET SECTOR FOR *PETS* AND *DATA*
05810  M01S03359.286l859 ---|          LX0    47-59
05811  M01S03360.286l859 ---|          LX1    12-0
05812  M01S03361.286l859 ---|          BX6    -X0*X6
05813  M01S03362.286l859 ---|          SA5    MDDS        GET MASTER DEVICE DESCRIPTION
05814  M01S03363.286l859 ---|          BX6    X6+X1
05815  M01S03364.286l859 ---|          AX5    24          SET TRACK FOR *PETS*
05816  M01S03365.286l859 ---|          MX0    48
05817  M01S03366.286l859 ---|          BX1    -X0*X5
05818  M01S03367.286l859 ---|          BX2    X1
05819  M01S03368.286l859 ---|          LX1    36
05820  M01S03369.286l859 ---|          LX2    24
05821  M01S03370.286l859 ---|          BX7    X6+X1
05822  M01S03371.286l859 ---|          BX7    X7+X2
05823  M01S03372.286l859 ---|          SA7    PETS+FTPM
05824  M01S03373.286l859 ---|
05825  M01S03374.286l859 ---|*         SET UP DATA FST ENTRY.
05826  M01S03375.286l859 ---|
05827  M01S03376.286l859 ---|          AX5    24          SET TRACK FOR *DATA*
05828  M01S03377.286l859 ---|          MX0    48
05829  M01S03378.286l859 ---|          BX1    -X0*X5
05830  M01S03379.286l859 ---|          BX2    X1
05831  M01S03380.286l859 ---|          LX1    36
05832  M01S03381.286l859 ---|          LX2    24
05833  M01S03382.286l859 ---|          BX7    X6+X1
05834  M01S03383.286l859 ---|          BX7    X7+X2
05835  M01S03384.286l859 ---|          SA7    DATA+FTPM
05836  M01S03385.286l859 ---|
05837  M01S03386.286l859 ---|
05838  M01S03387.286l859 ---|*         RETURN ANY EXISTING FILES.
05839  M01S03388.286l859 ---|
05840  M01S03389.286l859 ---|          SA1    OPNA
05841  M01S03390.286l859 ---|          SX6    B1
05842  M01S03391.286l859 ---|          SA6    A1          SET FIRST TIME FLAG
05843  M01S03392.286l859 ---|          ZR     X1,OPN3     IF FIRST TIME THROUGH
05844  M01S03393.286l859 ---|          RETURN CATS        RETURN EXISTING FILES
05845  M01S03394.286l859 ---|          RETURN PETS
05846  M01S03395.286l859 ---|          RETURN DATA
05847  M01S03396.286l859 ---|
05848  M01S03397.286l859 ---|*         CREATE RESCAN SELECTION SCREEN (*RESS*).
05849  M01S03398.286l859 ---|*         FROM REQUEST FILE STAGING LIST (*REQS*).
05850  M01S03399.286l859 ---|
Line S03400 Modification History
M01 (Removed by) pfdum5
M02 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
05851  M02S03400.286l859 ---|          WRITEF REQS        FLUSH REQUEST FILE BUFFER
Line S00001 Modification History
M01 (Added by) pfdum5
M02 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
05852  M02S00001.286l859 ---|          WRITEF REQS,R      FLUSH REQUEST FILE BUFFER
Line S03401 Modification History
M01 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
05853  M01S03401.286l859 ---|          RENAME REQS,RESS   CREATE SCREEN FILE FROM REQUEST FILE
05854  M01S03402.286l859 ---|          REWIND RESS
05855  M01S03403.286l859 ---|          SA1    OPNC        RESTORE LFN IN *REQS* FET
05856  M01S03404.286l859 ---|          SA2    REQS
05857  M01S03405.286l859 ---|          MX0    -18
05858  M01S03406.286l859 ---|          BX6    -X0*X2
05859  M01S03407.286l859 ---|          BX6    X1+X6
05860  M01S03408.286l859 ---|          SA6    A2
05861  M01S03409.286l859 ---|
05862  M01S03410.286l859 ---|*         OPEN NEW FILES AND SET SPECIAL SYSTEM FILE STATUS.
05863  M01S03411.286l859 ---|
05864  M01S03412.286l859 ---| OPN3     CALLPFU  CATS,CTOL,R
05865  M01S03413.286l859 ---|          CALLPFU  PETS,CTOL,R
05866  M01S03414.286l859 ---|          CALLPFU  DATA,CTOL,R
05867  M01S03415.286l859 ---|          SETFS  CATS,SSST
05868  M01S03416.286l859 ---|          SETFS  PETS,SSST
05869  M01S03417.286l859 ---|          SETFS  DATA,SSST
05870  M01S03418.286l859 ---|          READ   RESS
05871  M01S03419.286l859 ---|          WRITE  REQS
05872  M01S03420.286l859 ---|
05873  M00S03421.pfdump  +++|*         SET UP DATA FET FOR *PFU* READ LIST FUNCTION (CTRL).
Line S03422 Modification History
M01 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
05874  M01S03422.253l688 ---|*T FTPM   12/ 4000+DN,12/ FAM EQ,36/ 0
Figure FTPM

029 0303536474859 0 FAM EQ 4000+DN


Line S00320 Modification History
M01 (Added by) 253l688
M02 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
05875  M02S00320.286l859 ---|*T FTPM   12/ 4000+DN,12/ FAM EQ,1/U,35/ 0
Figure FTPM

029 030343536474859 0U FAM EQ 4000+DN

05876  M00S03423.pfdump  +++|
05877  M00S03424.pfdump  +++|          SA2    CPAR+/COMSPFS/CPDN  SET MASTER DEVICE NUMBER
Line S03425 Modification History
M01 (Removed by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
05878  M01S03425.ns22000 ---|          SA1    MAEQ        SET MASTER EQUIPMENT NUMBER
Line S00245 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
05879  M01S00245.ns22000 +++|          SA1    MAEQ        SET MASTER DEVICE EST ORDINAL
Line S00321 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
05880  M01S00321.253l688 +++|          SA5    CPAR+/COMSPFS/CPDT
05881  M00S03426.pfdump  +++|          SX7    X2+4000B
05882  M00S03427.pfdump  +++|          LX1    47-11
05883  M00S03428.pfdump  +++|          LX7    59-11
Line S03429 Modification History
M01 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
05884  M01S03429.253l688 ---|          BX7    X7+X1
Line S00322 Modification History
M01 (Added by) 253l688
M02 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
05885  M02S00322.286l859 ---|          ZR     X5,OPN4     IF NOT DESTAGE DUMP
Line S01331 Modification History
M01 (Added by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
05886  M01S01331.286l859 +++|          ZR     X5,OPN1     IF NOT DESTAGE DUMP
Line S00323 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
05887  M01S00323.253l688 +++|          SX5    1           SET TO CHECK UPDATE MODE FILE BUSY
05888  M01S00324.253l688 +++|          LX5    35-0
05889  M01S00325.253l688 +++|          BX7    X7+X5
Line S00326 Modification History
M01 (Added by) 253l688
M02 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
05890  M02S00326.286l859 ---| OPN4     BX7    X7+X1
Line S01332 Modification History
M01 (Added by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
05891  M01S01332.286l859 +++| OPN1     BX7    X7+X1
05892  M00S03430.pfdump  +++|          SA7    DATA+FTPM
05893  M00S03431.pfdump  +++|          EQ     OPNX        RETURN
Line S03432 Modification History
M01 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
05894  M01S03432.286l859 ---|
Line S00327 Modification History
M01 (Added by) 253l688
M02 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
05895  M02S00327.286l859 ---|
Line S03433 Modification History
M01 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
05896  M01S03433.286l859 ---| OPNA     BSSZ   1           FIRST TIME FLAG
05897  M01S03434.286l859 ---| OPNB     BSSZ   1           HOLD AREA FOR INITIAL CATALOG FST ENTRY
Line S03435 Modification History
M01 (Removed by) pfdum20
M02 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
05898  M02S03435.286l859 ---| OPNC     CON    4LREQS
Line S00001 Modification History
M01 (Added by) pfdum20
M02 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
05899  M02S00001.286l859 ---| OPNC     CON    0LZZZZZG5   ORIGINAL *REQS* FILE NAME
Line S03436 Modification History
M01 (Removed by) 253l688
M02 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
05900  M02S03436.286l859 ---| PAE      SPACE  4,35
Line S00328 Modification History
M01 (Added by) 253l688
M02 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
05901  M02S00328.286l859 ---| PAE      SPACE  4,50
Line S03437 Modification History
M01 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
05902  M01S03437.286l859 ---|**        PAE - PROCESS ARCHIVE FILE ERROR.
Line S01333 Modification History
M01 (Added by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
05903  M01S01333.286l859 +++| PAF      SPACE  4,10
05904  M01S01334.286l859 +++|**        PAF - PROCESS ARCHIVE FILE OPERATION.
05905  M00S03438.pfdump  +++|*
Line S03439 Modification History
M01 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
05906  M01S03439.286l859 ---|*                *PAE* WAITS FOR COMPLETION OF THE SPECIFIED FET AND
05907  M01S03440.286l859 ---|*         THEN CHECKS FOR AN ERROR CODE.  IF NO ERROR IS DETECTED, EXIT
Line S03441 Modification History
M01 (Removed by) 253l688
M02 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
05908  M02S03441.286l859 ---|*         IS TO THE CALLER WITH (X6) = 0.  EXIT IS TO *AEP* WITH AN
Line S00329 Modification History
M01 (Added by) 253l688
M02 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
05909  M02S00329.286l859 ---|*         IS TO THE CALLER WITH (X6) = 0.  EXIT IS TO *ABT* WITH AN
Line S03442 Modification History
M01 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
05910  M01S03442.286l859 ---|*         UNRECOVERED PARITY ABORT ERROR MESSAGE IF AN ERROR IS
05911  M01S03443.286l859 ---|*         DETECTED AND ONE OF THE FOLLOWING CONDITIONS EXIST.  OPERATOR
05912  M01S03444.286l859 ---|*         ACTION IS SUPPRESSED, THE OPERATOR RESPONSE IS *K.END.*, OR
05913  M01S03445.286l859 ---|*         AN ATTEMPT TO CLOSE THE BAD REEL OF TAPE FOLLOWING AN
05914  M01S03446.286l859 ---|*         OPERATOR RESPONSE OF *K.GO.* IS UNSUCCESSFUL.  A SUCCESSFUL
05915  M01S03447.286l859 ---|*         ATTEMPT TO CLOSE THE BAD REEL OF TAPE WILL RESULT IN AN EXIT
05916  M01S03448.286l859 ---|*         TO THE CALLER WITH (X6) = 1.  IF BOTH THE ARCHIVE AND VERIFY
05917  M01S03449.286l859 ---|*         FILES ARE ACTIVE, THE OPERATOR WILL BE GIVEN THE THIRD
05918  M01S03450.286l859 ---|*         OPTION OF *K.DISABLE*.  IF THIS OPTION IS SELECTED, THE FILE
05919  M01S03451.286l859 ---|*         WITH THE ERROR WILL BE MARKED AS DISABLED, THE DUMP WILL
05920  M01S03452.286l859 ---|*         CONTINUE ON THE REMAINING FILE ONLY, AND THE EXIT TO THE
05921  M01S03453.286l859 ---|*         CALLER WILL BE WITH (X6) = -1.  THE OPERATOR RESPONSE MUST
05922  M01S03454.286l859 ---|*         MATCH ONE OF THE DISPLAYED OPTIONS BEFORE ANY ACTION WILL BE
05923  M01S03455.286l859 ---|*         TAKEN.
05924  M01S03456.286l859 ---|*
05925  M01S03457.286l859 ---|*         ENTRY  (X2) = FET ADDRESS.  SELECTS OPERATOR ACTION.
05926  M01S03458.286l859 ---|*                     = -FET ADDRESS.  DESELECTS OPERATOR ACTION.
05927  M01S03459.286l859 ---|*                (B6) = PARAMETER TO BE PRESERVED.
05928  M01S03460.286l859 ---|*                (B7) = PARAMETER TO BE PRESERVED.
05929  M01S03461.286l859 ---|*
05930  M01S03462.286l859 ---|*         EXIT   (X6) = 0 IF NO ERROR ON FILE.
05931  M01S03463.286l859 ---|*                     = 1 IF ERROR ON FILE AND RECOVERY SUCCESSFUL.
05932  M01S03464.286l859 ---|*                     = -1 IF ERROR ON FILE AND *DISABLE* SELECTED.
05933  M01S03465.286l859 ---|*                (B6) = PARAMETER PRESERVED FROM INPUT.
05934  M01S03466.286l859 ---|*                (B7) = PARAMETER PRESERVED FROM INPUT.
05935  M01S03467.286l859 ---|*                (DFFA) = FET ADDRESS OF DISABLED FILE, IF ERROR AND
05936  M01S03468.286l859 ---|*                         *DISABLE* OPTION IS SELECTED BY THE
05937  M01S03469.286l859 ---|*                         OPERATOR.
05938  M01S03470.286l859 ---|*                (TAFA) = ARCHIVE OPEN FLAG = CLEARED ON UNSUCCESSFUL
05939  M01S03471.286l859 ---|*                         ERROR RECOVERY.
Line S03472 Modification History
M01 (Removed by) 253l688
M02 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
05940  M02S03472.286l859 ---|*                EXIT TO *AEP* ON UNSUCCESSFUL ERROR RECOVERY.
Line S00330 Modification History
M01 (Added by) 253l688
M02 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
05941  M02S00330.286l859 ---|*                EXIT TO *ABT* ON UNSUCCESSFUL ERROR RECOVERY.
Line S03473 Modification History
M01 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
05942  M01S03473.286l859 ---|*
05943  M01S03474.286l859 ---|*         USES   X - 0, 1, 2, 3, 5, 6, 7.
05944  M01S03475.286l859 ---|*                A - 1, 2, 3, 5, 6, 7.
05945  M01S03476.286l859 ---|*                B - 2, 3, 6, 7.
05946  M01S03477.286l859 ---|*
05947  M01S03478.286l859 ---|*         CALLS  KIP, SFN.
05948  M01S03479.286l859 ---|*
05949  M01S03480.286l859 ---|*         MACROS CLOSER, MESSAGE, MOVE, RECALL.
05950  M01S03481.286l859 ---|
05951  M01S03482.286l859 ---|
05952  M01S03483.286l859 ---| PAE      SUBR               ENTRY/EXIT
05953  M01S03484.286l859 ---|
05954  M01S03485.286l859 ---|*         CHECK ERROR STATUS.
05955  M01S03486.286l859 ---|
05956  M01S03487.286l859 ---|          BX6    X2          SAVE OPERATOR ACTION STATUS
05957  M01S03488.286l859 ---|          PL     X2,PAE1     IF OPERATOR ACTION WANTED
05958  M01S03489.286l859 ---|          BX2    -X2
05959  M01S03490.286l859 ---| PAE1     SA6    PAEA
05960  M01S03491.286l859 ---|          RECALL X2          WAIT OPERATION COMPLETE
05961  M01S03492.286l859 ---|          SA1    X2          CHECK FET ERROR STATUS
05962  M01S03493.286l859 ---|          SX3    36000B
05963  M01S03494.286l859 ---|          BX6    X3*X1
05964  M01S03495.286l859 ---|          ZR     X6,PAEX     IF NO ERROR
05965  M01S03496.286l859 ---|          BX7    -X3*X1      CLEAR ERROR STATUS
05966  M01S03497.286l859 ---|          SA7    X2
Line S00006 Modification History
M01 (Added by) pfdum12
M02 (Removed by) pfdu12a
M03 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
05967  M03S00006.286l859 ---|          SA1    AEPA
Line S00001 Modification History
M01 (Added by) pfdu12a
M02 (Removed by) 253l688
M03 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
05968  M03S00001.286l859 ---|          SA3    AEPA
Line S00331 Modification History
M01 (Added by) 253l688
M02 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
05969  M02S00331.286l859 ---|          SA3    ABTA
Line S00007 Modification History
M01 (Added by) pfdum12
M02 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
05970  M02S00007.286l859 ---|          BX6    X6-X6
Line S00008 Modification History
M01 (Added by) pfdum12
M02 (Removed by) pfdu12a
M03 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
05971  M03S00008.286l859 ---|          NZ     X1,PAEX     IF ABORT PROCESSING ACTIVE
Line S00002 Modification History
M01 (Added by) pfdu12a
M02 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
05972  M02S00002.286l859 ---|          NZ     X3,PAEX     IF ABORT PROCESSING ACTIVE
Line S03498 Modification History
M01 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
05973  M01S03498.286l859 ---|          SX6    B6          SAVE PARAMETERS
05974  M01S03499.286l859 ---|          SX7    B7
05975  M01S03500.286l859 ---|          SA6    PAEB
05976  M01S03501.286l859 ---|          SA7    PAEB+1
05977  M01S03502.286l859 ---|
05978  M01S03503.286l859 ---|*         PROCESS OPERATOR ACTION.
05979  M01S03504.286l859 ---|
05980  M01S03505.286l859 ---|          MX6    42          GET FILE NAME
05981  M01S03506.286l859 ---|          BX1    X6*X1
05982  M01S03507.286l859 ---|          RJ     SFN         SPACE FILL NAME
05983  M01S03508.286l859 ---|          SX1    1R.&1R      ADD PERIOD TO FILE NAME
05984  M01S03509.286l859 ---|          LX1    12
05985  M01S03510.286l859 ---|          BX6    X1-X6
05986  M01S03511.286l859 ---|          SA6    MSGH+3      ADD FILE NAME TO MESSAGE
05987  M01S03512.286l859 ---|          SA6    MSGAE+3
05988  M01S03513.286l859 ---|          SA5    IDSA+/COMSPFS/ADM2  DISPLAY PARITY ERROR MESSAGE
05989  M01S03514.286l859 ---|          MOVE   4,MSGH,X5
05990  M01S03515.286l859 ---|          MESSAGE  MSGH
05991  M01S03516.286l859 ---|          SA1    PAEA
05992  M01S03517.286l859 ---|          NG     X1,PAE7     IF NO OPERATOR ACTION WANTED
Line S03518 Modification History
M01 (Removed by) 241l630
M02 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
05993  M02S03518.286l859 ---|          SA5    IDSA+/COMSPFS/ADE1  DISPLAY *GO* OPTION
05994  M02S03519.286l859 ---|          MOVE   4,MSGI,X5
Line S00038 Modification History
M01 (Added by) 241l630
M02 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
05995  M02S00038.286l859 ---|          SX5    DSBL        BLANK THE *DISABLE* MESSAGE
Line S03520 Modification History
M01 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
05996  M01S03520.286l859 ---|          SA1    CPAR+/COMSPFS/CPVF
05997  M01S03521.286l859 ---|          ZR     X1,PAE2     IF NO VERIFY FILE SPECIFIED
05998  M01S03522.286l859 ---|          SA1    DFFA
05999  M01S03523.286l859 ---|          NZ     X1,PAE2     IF FILE ALREADY DISABLED
Line S03524 Modification History
M01 (Removed by) 241l630
M02 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
06000  M02S03524.286l859 ---|          SA5    IDSA+/COMSPFS/ADE3  DISPLAY *DISABLE* OPTION
06001  M02S03525.286l859 ---|          MOVE   4,MSGAC,X5
06002  M02S03526.286l859 ---| PAE2     SA5    IDSA+/COMSPFS/ADE2  DISPLAY *END* OPTION
06003  M02S03527.286l859 ---|          MOVE   4,MSGJ,X5
Line S00039 Modification History
M01 (Added by) 241l630
M02 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
06004  M02S00039.286l859 ---|          SX5    DSLN        DISPLAY THE *DISABLE* MESSAGE
06005  M02S00040.286l859 ---| PAE2     MOVE   4,X5,DSDS   BLANK/DISPLAY THE *DISABLE* MESSAGE
06006  M02S00041.286l859 ---|          SX6    TERR
06007  M02S00042.286l859 ---|          RJ     SRS         SELECT RIGHT SCREEN
Line S03528 Modification History
M01 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
06008  M01S03528.286l859 ---| PAE3     SB3    PAE4        *K.GO.* PROCESSOR ADDRESS
06009  M01S03529.286l859 ---|          SB2    PAE5        *K.ANYTHING ELSE.* PROCESSOR ADDRESS
06010  M01S03530.286l859 ---|          EQ     /COMSPFS/KIP  PROCESS KEYBOARD RESPONSE
06011  M01S03531.286l859 ---|
06012  M01S03532.286l859 ---|*         CLOSE BAD REEL. (*GO* SELECTED BY OPERATOR.)
06013  M01S03533.286l859 ---|
06014  M01S03534.286l859 ---| PAE4     SA2    PAEA        RESTORE FET ADDRESS
06015  M01S03535.286l859 ---|          CLOSER X2,UNLOAD,R SWITCH TO NEW REEL
06016  M01S03536.286l859 ---|          SA1    X2          CHECK ERROR STATUS
06017  M01S03537.286l859 ---|          SX3    36000B
06018  M01S03538.286l859 ---|          BX6    X3*X1
06019  M01S03539.286l859 ---|          NZ     X6,PAE7     IF ERROR IN CLOSING OLD REEL
Line S03540 Modification History
M01 (Removed by) pfdum6
M02 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
06020  M02S03540.286l859 ---|          SA1    PAEB        RESTORE PARAMETERS
06021  M02S03541.286l859 ---|          SA3    A1+B1
06022  M02S03542.286l859 ---|          SB6    X1
06023  M02S03543.286l859 ---|          SB7    X3
Line S03544 Modification History
M01 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
06024  M01S03544.286l859 ---|          SX6    B1          SET ERROR RESPONSE
06025  M01S03545.286l859 ---|          EQ     PAE9        CLEAR ERROR MESSAGES
06026  M01S03546.286l859 ---|
06027  M01S03547.286l859 ---|*         DETERMINE OPERATOR RESPONSE.
06028  M01S03548.286l859 ---|
06029  M01S03549.286l859 ---| PAE5     SA1    DFFA        GET DISABLE STATUS
06030  M01S03550.286l859 ---|          SA2    /COMSPFS/KIN  GET OPERATOR RESPONSE
06031  M01S03551.286l859 ---|          SA3    PAED
06032  M01S03552.286l859 ---|          NZ     X1,PAE6     IF *DISABLE* NOT AVAILABLE
06033  M01S03553.286l859 ---|          SA1    CPAR+/COMSPFS/CPVF
06034  M01S03554.286l859 ---|          ZR     X1,PAE6     IF NO VERIFY FILE SPECIFIED
06035  M01S03555.286l859 ---|          MX0    42
06036  M01S03556.286l859 ---|          BX3    X3-X2
06037  M01S03557.286l859 ---|          BX3    X0*X3
06038  M01S03558.286l859 ---|          ZR     X3,PAE8     IF *DISABLE* ENTERED
06039  M01S03559.286l859 ---| PAE6     MX0    18
06040  M01S03560.286l859 ---|          SA3    A3+B1
06041  M01S03561.286l859 ---|          BX3    X3-X2
06042  M01S03562.286l859 ---|          BX3    X0*X3
06043  M01S03563.286l859 ---|          ZR     X3,PAE7     IF *END* SELECTED
Line S03564 Modification History
M01 (Removed by) 241l630
M02 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
06044  M02S03564.286l859 ---|          SA5    IDSA+/COMSPFS/ADE4  DISPLAY ERROR MESSAGE
Line S00043 Modification History
M01 (Added by) 241l630
M02 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
06045  M02S00043.286l859 ---|          SA5    IDSA+/COMSPFS/ADER  DISPLAY ERROR MESSAGE
Line S03565 Modification History
M01 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
06046  M01S03565.286l859 ---|          MOVE   4,MSGAD,X5
06047  M01S03566.286l859 ---|          EQ     PAE3        GET OPERATOR RESPONSE
06048  M01S03567.286l859 ---|
06049  M01S03568.286l859 ---|*         PROCESS UNRECOVERED PARITY ERROR ABORT. (*END* SELECTED.)
06050  M01S03569.286l859 ---|
06051  M01S03570.286l859 ---| PAE7     BX6    X6-X6       CLEAR OPEN ARCHIVE FILE FLAG
06052  M01S03571.286l859 ---|          SA6    TAFA
06053  M01S03572.286l859 ---|          SX1    MSGK        SET UNRECOVERED PARITY ERROR MESSAGE
Line S03573 Modification History
M01 (Removed by) 253l688
M02 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
06054  M02S03573.286l859 ---|          EQ     AEP         ABORT DUMP
Line S00332 Modification History
M01 (Added by) 253l688
M02 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
06055  M02S00332.286l859 ---|          EQ     ABT         ABORT DUMP
Line S03574 Modification History
M01 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
06056  M01S03574.286l859 ---|
06057  M01S03575.286l859 ---|*         PROCESS *DISABLE* OPTION.
06058  M01S03576.286l859 ---|
06059  M01S03577.286l859 ---| PAE8     SA2    PAEA        GET FET ADDRESS
06060  M01S03578.286l859 ---|          BX7    X2
06061  M01S03579.286l859 ---|          SA7    DFFA        SET DISABLED FILE
06062  M01S03580.286l859 ---|          MESSAGE  MSGAE     ISSUE *OPERATOR DISABLED* MESSAGE
06063  M01S03581.286l859 ---|          SX6    -B1         SET *DISABLE* EXIT
06064  M01S03582.286l859 ---|
06065  M01S03583.286l859 ---|*         CLEAR ERROR MESSAGE DISPLAY AREA.
06066  M01S03584.286l859 ---|
06067  M01S03585.286l859 ---| PAE9     SA6    PAEC        SAVE EXIT STATUS
06068  M01S03586.286l859 ---|          SA5    IDSA+/COMSPFS/ADM2
06069  M01S03587.286l859 ---|          MOVE   4,MSGW,X5
Line S03588 Modification History
M01 (Removed by) 241l630
M02 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
06070  M02S03588.286l859 ---|          SA5    IDSA+/COMSPFS/ADE1
06071  M02S03589.286l859 ---|          MOVE   4,MSGW,X5
06072  M02S03590.286l859 ---|          SA5    IDSA+/COMSPFS/ADE2
06073  M02S03591.286l859 ---|          MOVE   4,MSGW,X5
06074  M02S03592.286l859 ---|          SA5    IDSA+/COMSPFS/ADE3
06075  M02S03593.286l859 ---|          MOVE   4,MSGW,X5
06076  M02S03594.286l859 ---|          SA5    IDSA+/COMSPFS/ADE4
Line S00044 Modification History
M01 (Added by) 241l630
M02 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
06077  M02S00044.286l859 ---|          SA5    IDSA+/COMSPFS/ADER
Line S03595 Modification History
M01 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
06078  M01S03595.286l859 ---|          MOVE   4,MSGW,X5
06079  M01S03596.286l859 ---|          SA1    PAEC
06080  M01S03597.286l859 ---|          BX6    X1          SET EXIT STATUS
Line S00001 Modification History
M01 (Added by) pfdum6
M02 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
06081  M02S00001.286l859 ---|          SA1    PAEB        RESTORE PARAMETERS
06082  M02S00002.286l859 ---|          SA3    A1+B1
06083  M02S00003.286l859 ---|          SB6    X1
06084  M02S00004.286l859 ---|          SB7    X3
Line S03598 Modification History
M01 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
06085  M01S03598.286l859 ---|          EQ     PAEX        RETURN
06086  M01S03599.286l859 ---|
06087  M01S03600.286l859 ---| PAEA     BSS    1           OPERATOR ACTION STATUS
06088  M01S03601.286l859 ---| PAEB     BSS    2           PARAMETER SAVE AREA
06089  M01S03602.286l859 ---| PAEC     CON    0           EXIT STATUS
06090  M01S03603.286l859 ---| PAED     DATA   7LDISABLE
06091  M01S03604.286l859 ---|          DATA   3LEND
06092  M01S03605.286l859 ---| PAF      SPACE  4,30
06093  M01S03606.286l859 ---|**        PAF - PROCESS ARCHIVE FILE OPERATION.
06094  M01S03607.286l859 ---|*
06095  M01S03608.286l859 ---|*                *PAF* PERFORMS THE FUNCTION INDICATED BY (B2) ON THE
06096  M01S03609.286l859 ---|*         ARCHIVE FILE AND ALSO ON THE ARCHIVE VERIFY FILE IF THE
06097  M01S03610.286l859 ---|*         VERIFY OPTION WAS SPECIFIED FOR THE DUMP.
06098  M01S03611.286l859 ---|*
06099  M01S03612.286l859 ---|*         ENTRY  (B2) = FUNCTION CODE.
06100  M01S03613.286l859 ---|*                       -1 = WRITE WORDS ON ARCHIVE FILE.
06101  M01S03614.286l859 ---|*                            (B6) = WORKING BUFFER ADDRESS.
06102  M01S03615.286l859 ---|*                            (B7) = WORD COUNT.
06103  M01S03616.286l859 ---|*                        0 = WRITE EOR ON ARCHIVE FILE.
06104  M01S03617.286l859 ---|*                            (B6) = RECORD LEVEL NUMBER (0 OR 17B).
06105  M01S03618.286l859 ---|*                            (B7) = -1.
06106  M01S03619.286l859 ---|*                        1 = SKIP FILES FORWARD ON ARCHIVE FILE.
06107  M01S03620.286l859 ---|*                            (B6) = FILE COUNT TO SKIP.
06108  M01S03621.286l859 ---|*                        2 = FLUSH ARCHIVE FILE BUFFER.
06109  M01S03622.286l859 ---|*                (B6) = FIRST PARAMETER.
06110  M01S03623.286l859 ---|*                (B7) = SECOND PARAMETER.
06111  M01S03624.286l859 ---|*                (DFFA) = FET ADDRESS OF FILE DISABLED BY OPERATOR.
06112  M01S03625.286l859 ---|*                       = 0 IF NONE PREVIOUSLY DISABLED.
Line S01335 Modification History
M01 (Added by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
06113  M01S01335.286l859 +++|*         ENTRY  (B6) = FIRST PARAMETER FOR *CWWRITE* MACRO.
06114  M01S01336.286l859 +++|*                (B7) = SECOND PARAMETER FOR *CWWRITE* MACRO.
06115  M00S03626.pfdump  +++|*
06116  M00S03627.pfdump  +++|*         USES   X - 1, 2, 6, 7.
06117  M00S03628.pfdump  +++|*                A - 1, 2, 6, 7.
06118  M00S03629.pfdump  +++|*                B - 6, 7.
06119  M00S03630.pfdump  +++|*
Line S03631 Modification History
M01 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
06120  M01S03631.286l859 ---|*         CALLS  FCW, PAE.
06121  M01S03632.286l859 ---|*
06122  M01S03633.286l859 ---|*         MACROS CWWRITE, SKIPFF.
Line S01337 Modification History
M01 (Added by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
06123  M01S01337.286l859 +++|*         MACROS CWWRITE.
06124  M00S03634.pfdump  +++|
06125  M00S03635.pfdump  +++|
06126  M00S03636.pfdump  +++| PAF      SUBR               ENTRY/EXIT
Line S03637 Modification History
M01 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
06127  M01S03637.286l859 ---|
06128  M01S03638.286l859 ---|*         PROCESS *WRITEW*, *WRITER* OR *WRITEF* REQUEST.
06129  M01S03639.286l859 ---|
06130  M01S03640.286l859 ---|          GE     B2,B1,PAF4  IF *SKIPFF* OR *FLUSH* REQUEST
06131  M01S03641.286l859 ---|          SA1    DFFA
06132  M01S03642.286l859 ---|          SX1    X1-TAPE
06133  M01S03643.286l859 ---|          ZR     X1,PAF3     IF ARCHIVE FILE DISABLED
06134  M00S03644.pfdump  +++|          SX6    B6          SAVE PARAMETERS
06135  M00S03645.pfdump  +++|          SX7    B7
06136  M00S03646.pfdump  +++|          SA6    PAFA
06137  M00S03647.pfdump  +++|          SA7    PAFA+1
Line S03648 Modification History
M01 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
06138  M01S03648.286l859 ---| PAF1     CWWRITE TAPE,B6,B7 WRITE DATA TO ARCHIVE FILE
06139  M01S03649.286l859 ---|          ZR     B7,PAF2     IF NO ERROR ON WRITE
06140  M01S03650.286l859 ---|          RJ     PAE         PROCESS ARCHIVE FILE ERROR
06141  M01S03651.286l859 ---|          PL     X6,PAF1     IF FILE NOT DISABLED
06142  M01S03652.286l859 ---| PAF2     SA1    CPAR+/COMSPFS/CPVF
Line S01338 Modification History
M01 (Added by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
06143  M01S01338.286l859 +++|          CWWRITE TAPE,B6,B7 WRITE DATA TO ARCHIVE FILE
06144  M01S01339.286l859 +++|          SA1    CPAR+/COMSPFS/CPVF
06145  M00S03653.pfdump  +++|          ZR     X1,PAFX     IF NO VERIFY FILE SPECIFIED
Line S03654 Modification History
M01 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
06146  M01S03654.286l859 ---|          SA2    DFFA
06147  M01S03655.286l859 ---|          SX2    X2-PFVER
06148  M01S03656.286l859 ---|          ZR     X2,PAFX     IF VERFIY FILE DISABLED
06149  M00S03657.pfdump  +++|          SA1    PAFA        RESTORE PARAMETERS
06150  M00S03658.pfdump  +++|          SA2    PAFA+1
Line S03659 Modification History
M01 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
06151  M01S03659.286l859 ---|          SB6    X1+
06152  M01S03660.286l859 ---|          SB7    X2+
06153  M01S03661.286l859 ---| PAF3     CWWRITE  PFVER,B6,B7  WRITE DATA TO ARCHIVE VERIFY FILE
06154  M01S03662.286l859 ---|          ZR     B7,PAFX     IF NO ERROR ON WRITE
06155  M01S03663.286l859 ---|          RJ     PAE         PROCESS ARCHIVE VERIFY FILE ERROR
06156  M01S03664.286l859 ---|          NG     X6,PAFX     IF FILE DISABLED
06157  M01S03665.286l859 ---|          EQ     PAF3        WRITE REMAINING DATA
06158  M01S03666.286l859 ---|
06159  M01S03667.286l859 ---|*         PROCESS *SKIPFF* REQUEST.
06160  M01S03668.286l859 ---|
06161  M01S03669.286l859 ---| PAF4     GT     B2,B1,PAF6  IF NOT *SKIPFF* REQUEST
06162  M01S03670.286l859 ---|          SKIPFF TAPE,B6     SKIP FILES ON ARCHIVE FILE
06163  M01S03671.286l859 ---|          SA1    CPAR+/COMSPFS/CPVF
06164  M01S03672.286l859 ---|          ZR     X1,PAF5     IF NO VERIFY FILE SPECIFIED
06165  M01S03673.286l859 ---|          SKIPFF PFVER,B6,R  SKIP FILES ON ARCHIVE VERIFY FILE
06166  M01S03674.286l859 ---|          BX2    -X2         FLAG NO OPERATOR ACTION
06167  M01S03675.286l859 ---|          RJ     PAE         PROCESS ARCHIVE VERIFY FILE ERROR
06168  M01S03676.286l859 ---| PAF5     SX2    -TAPE       PROCESS ARCHIVE FILE ERROR
06169  M01S03677.286l859 ---|          RJ     PAE
06170  M01S03678.286l859 ---|          EQ     PAFX        EXIT IF NO ERROR
06171  M01S03679.286l859 ---|
06172  M01S03680.286l859 ---|*         PROCESS *FLUSH* REQUEST.
06173  M01S03681.286l859 ---|
06174  M01S03682.286l859 ---| PAF6     SA1    DFFA
06175  M01S03683.286l859 ---|          SX1    X1-TAPE
06176  M01S03684.286l859 ---|          ZR     X1,PAF8     IF ARCHIVE FILE DISABLED
06177  M01S03685.286l859 ---| PAF7     SX2    TAPE        FLUSH ARCHIVE FILE BUFFER
06178  M01S03686.286l859 ---|          RJ     FCW
06179  M01S03687.286l859 ---|          SX2    TAPE
06180  M01S03688.286l859 ---|          RJ     PAE
06181  M01S03689.286l859 ---|          NG     X6,PAF8     IF FILE DISABLED
06182  M01S03690.286l859 ---|          NZ     X6,PAF7     IF ERROR ON ARCHIVE FILE
06183  M01S03691.286l859 ---|          SA1    CPAR+/COMSPFS/CPVF
06184  M01S03692.286l859 ---|          ZR     X1,PAFX     IF NO VERIFY FILE SPECIFIED
06185  M01S03693.286l859 ---|          SA2    DFFA
06186  M01S03694.286l859 ---|          SX2    X2-PFVER
06187  M01S03695.286l859 ---|          ZR     X2,PAFX     IF VERIFY FILE DISABLED
06188  M01S03696.286l859 ---| PAF8     SX2    PFVER
06189  M01S03697.286l859 ---|          RJ     FCW         FLUSH VERIFY FILE BUFFER
06190  M01S03698.286l859 ---|          SX2    PFVER
06191  M01S03699.286l859 ---|          RJ     PAE
06192  M01S03700.286l859 ---|          NG     X6,PAFX     IF FILE DISABLED
06193  M01S03701.286l859 ---|          NZ     X6,PAF8     IF ERROR ON VERIFY FILE
Line S01340 Modification History
M01 (Added by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
06194  M01S01340.286l859 +++|          SB6    X1
06195  M01S01341.286l859 +++|          SB7    X2
06196  M01S01342.286l859 +++|          CWWRITE  PFVER,B6,B7  WRITE DATA TO ARCHIVE VERIFY FILE
06197  M00S03702.pfdump  +++|          EQ     PAFX        RETURN
06198  M00S03703.pfdump  +++|
06199  M00S03704.pfdump  +++| PAFA     BSS    2           PARAMETER SAVE AREA
Line S03705 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
06200  M01S03705.242l642 ---| PCE      SPACE  4,30
Line S00041 Modification History
M01 (Added by) 242l642
M02 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
06201  M02S00041.253l688 ---| PCE      SPACE  4,20
Line S03706 Modification History
M01 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
06202  M01S03706.253l688 ---|**        PCE - PROCESS CATALOG FILE ERRORS.
06203  M01S03707.253l688 ---|*
06204  M01S03708.253l688 ---|*         ENTRY  (B3) = FWA OF CATALOG ENTRIES.
Line S00001 Modification History
M01 (Added by) ns2383
M02 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
06205  M02S00001.253l688 ---|*                (B3) = 0 IF NO SECTOR READ DUE TO ERROR.
Line S03709 Modification History
M01 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
06206  M01S03709.253l688 ---|*                (B6) = LWA+1 OF CATALOG ENTRIES.
Line S03710 Modification History
M01 (Removed by) ns2383
M02 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
06207  M02S03710.253l688 ---|*                (X6) = *CIO* TRAILER CONTROL WORD.
Line S00002 Modification History
M01 (Added by) ns2383
M02 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
06208  M02S00002.253l688 ---|*                (X6) = *CIO* TRAILER CONTROL WORD
06209  M02S00003.253l688 ---|*                       (IF (B3)=0, CONTROL WORD FOR LAST SECTOR READ).
Line S03711 Modification History
M01 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
06210  M01S03711.253l688 ---|*                (X7) = CATALOG FET ADDRESS.
06211  M01S03712.253l688 ---|*                (CPAR+/COMSPFS/CPDN) = MASTER DEVICE NUMBER.
06212  M01S03713.253l688 ---|*                (MPCT) = CURRENT CATALOG TRACK.
06213  M01S03714.253l688 ---|*
06214  M01S03715.253l688 ---|*         EXIT   ERROR MESSAGES ISSUED FOR EACH OF THE AFFECTED
06215  M01S03716.253l688 ---|*                  CATALOG ENTRIES.
Line S03717 Modification History
M01 (Removed by) 242l642
M02 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
06216  M02S03717.253l688 ---|*                ERROR IDLE STATUS SET FOR THE AFFECTED EQUIPMENT.
Line S03718 Modification History
M01 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
06217  M01S03718.253l688 ---|*                FET ERROR STATUS CLEARED FROM CATALOG FET.
06218  M01S03719.253l688 ---|*
06219  M01S03720.253l688 ---|*         USES   X - 1, 2, 3, 6, 7.
06220  M01S03721.253l688 ---|*                A - 1, 2, 6, 7.
06221  M01S03722.253l688 ---|*                B - 3, 6.
06222  M01S03723.253l688 ---|*
Line S03724 Modification History
M01 (Removed by) 242l642
M02 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
06223  M02S03724.253l688 ---|*         CALLS  SEI, SEM.
Line S00042 Modification History
M01 (Added by) 242l642
M02 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
06224  M02S00042.253l688 ---|*         CALLS  SEM.
Line S03725 Modification History
M01 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
06225  M01S03725.253l688 ---|*
06226  M01S03726.253l688 ---|*         MACROS EDITS.
06227  M01S03727.253l688 ---|
06228  M01S03728.253l688 ---|
06229  M01S03729.253l688 ---| PCE      SUBR               ENTRY/EXIT
06230  M01S03730.253l688 ---|          SA7    PCEA        SAVE FET ADDRESS
06231  M01S03731.253l688 ---|          SX7    B3          SAVE FWA
06232  M01S03732.253l688 ---|          SA7    PCEB
06233  M01S03733.253l688 ---|          SX7    B6          SAVE LWA+1
06234  M01S03734.253l688 ---|          SA7    PCEC
06235  M01S03735.253l688 ---|          MX3    -12         SET SECTOR NUMBER
06236  M01S03736.253l688 ---|          BX7    -X3*X6
Line S03737 Modification History
M01 (Removed by) ns2383
M02 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
06237  M02S03737.253l688 ---|          SA7    MPSC
Line S00004 Modification History
M01 (Added by) ns2383
M02 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
06238  M02S00004.253l688 ---|          NZ     B3,PCE0     IF SECTOR READ
06239  M02S00005.253l688 ---|          SX7    X7+B1       INCREMENT SECTOR NUMBER
06240  M02S00006.253l688 ---|          BX7    -X3*X7
06241  M02S00007.253l688 ---| PCE0     SA7    MPSC
Line S03738 Modification History
M01 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
06242  M01S03738.253l688 ---|          LX6    11-23       SET TRACK NUMBER
06243  M01S03739.253l688 ---|          BX7    -X3*X6
06244  M01S03740.253l688 ---|          SA7    MPTK
Line S03741 Modification History
M01 (Removed by) ns22000
M02 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
06245  M02S03741.253l688 ---|          LX6    11-23       SET EQUIPMENT NUMBER
Line S00246 Modification History
M01 (Added by) ns22000
M02 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
06246  M02S00246.253l688 ---|          LX6    11-23       SET EST ORDINAL
Line S03742 Modification History
M01 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
06247  M01S03742.253l688 ---|          BX7    -X3*X6
06248  M01S03743.253l688 ---|          SA7    MPEQ
06249  M01S03744.253l688 ---|          SA1    CPAR+/COMSPFS/CPDN  SET DEVICE NUMBER
06250  M01S03745.253l688 ---|          BX6    X1
06251  M01S03746.253l688 ---|          SA6    MPDN
06252  M01S03747.253l688 ---|          SA1    MPPN
06253  M01S03748.253l688 ---|          SB6    MSPN        SET PACK NAME SKELETON
06254  M01S03749.253l688 ---|          NZ     X1,PCE1     IF PACK NAME SPECIFIED
06255  M01S03750.253l688 ---|          SB6    MSCT        SET CATALOG TRACK SKELETON
06256  M01S03751.253l688 ---| PCE1     EDITS  B6,MES1     GENERATE CATALOG READ ERROR MESSAGE
06257  M01S03752.253l688 ---|          SX6    B1+         SET ERRLOG FLAG
06258  M01S03753.253l688 ---|          SA6    ELFG
06259  M01S03754.253l688 ---|          RJ     SEM         SEND ERROR MESSAGE
Line S03755 Modification History
M01 (Removed by) 242l642
M02 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
06260  M02S03755.253l688 ---|          RJ     SEI         SET ERROR IDLE STATUS
Line S03756 Modification History
M01 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
06261  M01S03756.253l688 ---|          SA1    PCEB        INITIALIZE CATALOG ENTRY INDEX
06262  M01S03757.253l688 ---|          SB3    X1
Line S00008 Modification History
M01 (Added by) ns2383
M02 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
06263  M02S00008.253l688 ---|          ZR     B3,PCE4     IF NO SECTOR READ DUE TO ERROR
Line S03758 Modification History
M01 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
06264  M01S03758.253l688 ---| PCE2     SA1    B3+FCUI     SET USER INDEX
06265  M01S03759.253l688 ---|          MX3    -18
06266  M01S03760.253l688 ---|          BX6    -X3*X1
06267  M01S03761.253l688 ---|          BX7    X3*X1       SET FILE NAME
06268  M01S03762.253l688 ---|          ZR     X6,PCE3     IF NULL CATALOG ENTRY (HOLE)
06269  M01S03763.253l688 ---|          SA6    MPUI
06270  M01S03764.253l688 ---|          SA7    MPFN
06271  M01S03765.253l688 ---|          EDITS  MSFN,MES1   GENERATE MESSAGE WITH FILE NAME
06272  M01S03766.253l688 ---|          RJ     SEM         SEND ERROR MESSAGE
06273  M01S03767.253l688 ---| PCE3     SA1    PCEB        INCREMENT CATALOG ENTRY INDEX
06274  M01S03768.253l688 ---|          SA2    PCEC
Line S03769 Modification History
M01 (Removed by) ns2383
M02 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
06275  M02S03769.253l688 ---|          SB3    X1+B1
Line S00009 Modification History
M01 (Added by) ns2383
M02 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
06276  M02S00009.253l688 ---|          SB3    X1+NWCE
Line S03770 Modification History
M01 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
06277  M01S03770.253l688 ---|          SX6    B3
06278  M01S03771.253l688 ---|          SA6    PCEB        SAVE INDEX
06279  M01S03772.253l688 ---|          SB6    X2
06280  M01S03773.253l688 ---|          LT     B3,B6,PCE2  IF MORE CATALOG ENTRIES
Line S03774 Modification History
M01 (Removed by) ns2383
M02 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
06281  M02S03774.253l688 ---|          SA2    PCEA        CLEAR FET ERROR STATUS
Line S00010 Modification History
M01 (Added by) ns2383
M02 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
06282  M02S00010.253l688 ---| PCE4     SA2    PCEA        CLEAR FET ERROR STATUS
06283  M02S00011.253l688 ---|          SA2    X2
Line S03775 Modification History
M01 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
06284  M01S03775.253l688 ---|          SX7    36000B
06285  M01S03776.253l688 ---|          BX6    -X7*X2
06286  M01S03777.253l688 ---|          BX7    X7-X7       CLEAR DETAILED ERROR STATUS
06287  M01S03778.253l688 ---|          SA6    A2+
06288  M01S03779.253l688 ---|          SA7    A2+6
06289  M01S03780.253l688 ---|          EQ     PCEX        RETURN
06290  M01S03781.253l688 ---|
06291  M01S03782.253l688 ---| PCEA     BSS    1           FET ADDRESS SAVE AREA
06292  M01S03783.253l688 ---| PCEB     BSS    1           FWA OF CATALOG ENTRIES - SAVE AREA
06293  M01S03784.253l688 ---| PCEC     BSS    1           LWA+1 OF CATALOG ENTRIES - SAVE AREA
06294  M01S03785.253l688 ---| PCI      SPACE  4,15
06295  M01S03786.253l688 ---|**        PCI - PROCESS CATALOG TRACK INTERLOCK.
06296  M01S03787.253l688 ---|*
06297  M01S03788.253l688 ---|*         ENTRY  (X6) = ADDRESS OF FET TO PROCESS INTERLOCK WITH.
06298  M01S03789.253l688 ---|*                (X7) = *PFU* FUNCTION CODE TO PROCESS INTERLOCK WITH.
06299  M01S03790.253l688 ---|*
06300  M01S03791.253l688 ---|*         EXIT   *PFU* CALLED TO PROCESS INTERLOCK.
06301  M01S03792.253l688 ---|*                INTERLOCK MESSAGE POSTED AT LINE 2 OF THE CONTROL
06302  M01S03793.253l688 ---|*                POINT AND ON THE *K* DISPLAY BEFORE INTERLOCKING
06303  M01S03794.253l688 ---|*                AND CLEARED AFTER.
06304  M01S03795.253l688 ---|*
06305  M01S03796.253l688 ---|*         USES   X - 1, 2, 3.
06306  M01S03797.253l688 ---|*                A - 1, 2, 3, 6, 7.
06307  M01S03798.253l688 ---|*
06308  M01S03799.253l688 ---|*         MACROS CALLPFU, MESSAGE, MOVE, RECALL.
06309  M01S03800.253l688 ---|
06310  M01S03801.253l688 ---|
06311  M01S03802.253l688 ---| PCI      SUBR               ENTRY/EXIT
06312  M01S03803.253l688 ---|          SA6    PCIA        SAVE FET ADDRESS
06313  M01S03804.253l688 ---|          SA7    PCIB        SAVE *PFU* FUNCTION CODE
06314  M01S03805.253l688 ---|          RECALL X6          WAIT FOR FET NON BUSY
06315  M01S03806.253l688 ---|          SA3    IDSA+/COMSPFS/ADM1
06316  M01S03807.253l688 ---|          MOVE   4,MSGC,X3   *WAIT FOR CATALOG INTERLOCK.*
06317  M01S03808.253l688 ---|          MESSAGE  MSGC,2,R
06318  M01S03809.253l688 ---|          SA2    PCIA        GET FET ADDRESS
06319  M01S03810.253l688 ---|          SA1    PCIB        GET *PFU* FUNCTION CODE
06320  M01S03811.253l688 ---|          CALLPFU X2,X1,R    PROCESS CATALOG TRACK INTERLOCK
06321  M01S03812.253l688 ---|          SA3    IDSA+/COMSPFS/ADM1
06322  M01S03813.253l688 ---|          MOVE   4,MSGL,X3   CLEAR INTERLOCK MESSAGE
06323  M01S03814.253l688 ---|          MESSAGE  (=C**),2,R
06324  M01S03815.253l688 ---|          EQ     PCIX        RETURN
06325  M01S03816.253l688 ---|
06326  M01S03817.253l688 ---|
06327  M01S03818.253l688 ---| PCIA     BSS    1           TEMPORARY FET ADDRESS STORAGE
06328  M01S03819.253l688 ---| PCIB     BSS    1           TEMPORARY PFU FUNCTION CODE STORAGE
Line S03820 Modification History
M01 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
06329  M01S03820.286l859 ---| PCT      SPACE  4,20
06330  M01S03821.286l859 ---|**        PCT - PROCESS CATALOG TRACK.
Line S01343 Modification History
M01 (Added by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
06331  M01S01343.286l859 +++| PAR      SPACE  4,15
06332  M01S01344.286l859 +++|**        PAR - POSITION ALTERNATE STORAGE TAPE TO NEXT RECORD.
06333  M00S03822.pfdump  +++|*
Line S03823 Modification History
M01 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
06334  M01S03823.286l859 ---|*         ENTRY  FILE *CATS* POSITIONED TO THE BEGINNING OF THE
06335  M01S03824.286l859 ---|*                CATALOG TRACK TO BE PROCESSED.
Line S03825 Modification History
M01 (Removed by) ns21000
M02 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
06336  M02S03825.286l859 ---|*                (LMSK) = 0, IF NORMAL DUMP PASS.
Line S00021 Modification History
M01 (Added by) ns21000
M02 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
06337  M02S00021.286l859 ---|*                (LFDP) = 0, IF NORMAL DUMP PASS.
Line S03826 Modification History
M01 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
06338  M01S03826.286l859 ---|*                       .NE. 0, IF LOCK FILE DUMP PASS --
06339  M01S03827.286l859 ---|*                               (X7) = FWA OF LOCK FILE PFC-S.
06340  M01S03828.286l859 ---|*                               (X6) = LWA+1 OF LOCK FILE PFC-S.
Line S00022 Modification History
M01 (Added by) ns21000
M02 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
06341  M02S00022.286l859 ---|*                               (B3) = FWA OF LOCK FILE PFC-S.
Line S01345 Modification History
M01 (Added by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
06342  M01S01345.286l859 +++|*         EXIT   ALTERNATE STORAGE TAPE POSITIONED TO START OF NEXT
06343  M01S01346.286l859 +++|*                  RECORD IF NOT CURRENTLY AT EOF OR EOI.
06344  M01S01347.286l859 +++|*                (X1) .LT. 0 IF CURRENTLY AT EOF OR EOI.
06345  M01S01348.286l859 +++|*                (CWSW) = 0 IF NOT AT EOF OR EOI.
06346  M00S03829.pfdump  +++|*
Line S03830 Modification History
M01 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
06347  M01S03830.286l859 ---|*         EXIT   ALL FILES MEETING THE SELECTION CRITERIA AND CATALOGED
06348  M01S03831.286l859 ---|*                ON THIS TRACK HAVE BEEN DUMPED TO THE ARCHIVE FILE.
Line S01349 Modification History
M01 (Added by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
06349  M01S01349.286l859 +++|*         USES   X - 6.
06350  M01S01350.286l859 +++|*                A - 6.
06351  M00S03832.pfdump  +++|*
Line S03833 Modification History
M01 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
06352  M01S03833.286l859 ---|*         USES   X - 1, 2, 6, 7.
06353  M01S03834.286l859 ---|*                A - 1, 6, 7.
06354  M01S03835.286l859 ---|*                B - 3, 6.
Line S01351 Modification History
M01 (Added by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
06355  M01S01351.286l859 +++|*         MACROS CWREAD.
06356  M01S01352.286l859 +++|
06357  M01S01353.286l859 +++|
06358  M01S01354.286l859 +++| PAR      SUBR               ENTRY/EXIT
06359  M01S01355.286l859 +++| PAR1     CWREAD AST,DBUFH,DBUFHL
06360  M01S01356.286l859 +++|          ZR     X7,PAR2     IF NO READ ERROR
06361  M01S01357.286l859 +++|          ZR     B7,PAR1     IF TRANSFER COMPLETE
06362  M01S01358.286l859 +++| PAR2     ZR     X1,PAR1     IF NOT EOR/EOF/EOI
06363  M01S01359.286l859 +++|          NG     X1,PARX     IF EOF/EOI
Proceed to Part 6
cdc/nos2.source/opl.opl871/deck/pfdump.005.txt ยท Last modified: by 127.0.0.1