Deck PFDUMP Part 007

50 Modifications

Source

Seq #  *Modification Id* Act 
----------------------------+
07572  M02S04423.286l859 ---|*                         FROM WHICH CATALOG ENTRY WAS READ.
Line S00419 Modification History
M01 (Added by) 253l688
M02 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
07573  M02S00419.286l859 ---|*                (CBIN) = INDEX OF CATALOG ENTRY IN *CBUF*.
07574  M02S00420.286l859 ---|*                (CTIN) = INDEX OF CATALOG ENTRY ON CATALOG TRACK.
Line S04424 Modification History
M01 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
07575  M01S04424.286l859 ---|*                (NFSR) = NUMBER OF FILE STAGINGS REQUESTED.
07576  M01S04425.286l859 ---|*                (NNAR) = NUMBER OF *NOT ACTIVE* RESPONSES.
Line S01756 Modification History
M01 (Added by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
07577  M01S01756.286l859 +++|*         ENTRY  (A0) = FWA OF CATALOG ENTRY REQUIRING STAGING.
07578  M00S04426.pfdump  +++|*
Line S04427 Modification History
M01 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
07579  M01S04427.286l859 ---|*         EXIT   (NFSR) = NUMBER OF FILE STAGINGS REQUESTED UPDATED.
07580  M01S04428.286l859 ---|*                (NNAR) = NUMBER OF *NOT ACTIVE* RESPONSES UPDATED.
Line S04429 Modification History
M01 (Removed by) 253l688
M02 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
07581  M02S04429.286l859 ---|*                (FRSG - FRSG+2) = FIRST STAGING REQUEST OF SCAN.
07582  M02S04430.286l859 ---|*                FILE STAGING REQUEST ISSUED TO *PFU*.
Line S00421 Modification History
M01 (Added by) 253l688
M02 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
07583  M02S00421.286l859 ---|*                (RSTS) = CATALOG TRACK AND SECTOR TO BEGIN RESCAN.
Line S01757 Modification History
M01 (Added by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
07584  M01S01757.286l859 +++|*         EXIT   (RSTS) = CATALOG TRACK AND SECTOR TO BEGIN RESCAN.
Line S00422 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
07585  M01S00422.253l688 +++|*                (RSIN) = CATALOG TRACK INDEX TO BEGIN RESCAN.
07586  M01S00423.253l688 +++|*                FILE STAGING REQUEST ISSUED TO *PFM*.
07587  M00S04431.pfdump  +++|*                ENTRY POSTED IN LIST OF OUTSTANDING FILE STAGING
07588  M00S04432.pfdump  +++|*                  REQUESTS (*REQS*).
07589  M00S04433.pfdump  +++|*
Line S04434 Modification History
M01 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
07590  M01S04434.253l688 ---|*         USES   X - 0, 1, 2, 6.
07591  M01S04435.253l688 ---|*                A - 1, 2, 6.
07592  M01S04436.253l688 ---|*                B - NONE.
Line S00424 Modification History
M01 (Added by) 253l688
M02 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
07593  M02S00424.286l859 ---|*         USES   X - 1, 2, 6.
07594  M02S00425.286l859 ---|*                A - 0, 1, 2, 6.
Line S01758 Modification History
M01 (Added by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
07595  M01S01758.286l859 +++|*         USES   X - 1, 2, 5, 6, 7.
07596  M01S01759.286l859 +++|*                A - 1, 2, 6, 7.
07597  M01S01760.286l859 +++|*                B - 2.
07598  M00S04437.pfdump  +++|*
Line S04438 Modification History
M01 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
07599  M01S04438.253l688 ---|*         MACROS CALLPFU, MOVE, RECALL, WRITEW.
Line S00426 Modification History
M01 (Added by) 253l688
M02 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
07600  M02S00426.286l859 ---|*         MACROS RECALL, STAGEPF, WRITEO.
Line S01761 Modification History
M01 (Added by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
07601  M01S01761.286l859 +++|*         CALLS  CFE, SPR.
07602  M01S01762.286l859 +++|*
07603  M01S01763.286l859 +++|*         MACROS STAGEPF, WRITEO.
07604  M00S04439.pfdump  +++|
07605  M00S04440.pfdump  +++|
Line S01764 Modification History
M01 (Added by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
07606  M01S01764.286l859 +++|*         ISSUE STAGE REQUEST ERROR MESSAGE.
07607  M01S01765.286l859 +++|
07608  M01S01766.286l859 +++| RFS1     SA1    A0+FCFN     SET FILE NAME AND USER INDEX
07609  M01S01767.286l859 +++|          SB2    ERUS        * UNABLE TO STAGE FILE ...*
07610  M01S01768.286l859 +++|          RJ     SFE         SEND ERROR MESSAGE
07611  M01S01769.286l859 +++|          RJ     CFE         COUNT FILE SKIPPED
07612  M01S01770.286l859 +++|
07613  M00S04441.pfdump  +++| RFS      SUBR               ENTRY/EXIT
Line S04442 Modification History
M01 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
07614  M01S04442.286l859 ---|          SA1    NFSR
07615  M01S04443.286l859 ---|          ZR     X1,RFS1     IF FIRST TIME FOR THIS SCAN
07616  M00S04444.pfdump  +++|
Line S04445 Modification History
M01 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
07617  M01S04445.286l859 ---|*         CHECK RESPONSE FROM LAST STAGING REQUEST.
Line S01771 Modification History
M01 (Added by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
07618  M01S01771.286l859 +++|*         INITIATE FILE STAGE.
07619  M00S04446.pfdump  +++|
Line S04447 Modification History
M01 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
07620  M01S04447.253l688 ---|          RECALL SGCW        WAIT UNTIL PFU CATCHES UP
Line S00427 Modification History
M01 (Added by) 253l688
M02 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
07621  M02S00427.286l859 ---|          RECALL SRFT        WAIT FOR *PFM* REQUEST COMPLETION
Line S04448 Modification History
M01 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
07622  M01S04448.286l859 ---|          SA1    X2
Line S04449 Modification History
M01 (Removed by) 253l688
M02 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
07623  M02S04449.286l859 ---|          MX0    -12
07624  M02S04450.286l859 ---|          LX1    11-23
07625  M02S04451.286l859 ---|          BX1    -X0*X1
07626  M02S04452.286l859 ---|          ZR     X1,RFS1     IF STAGING REQUEST ACCEPTED
Line S00428 Modification History
M01 (Added by) 253l688
M02 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
07627  M02S00428.286l859 ---|          SX1    X1
07628  M02S00429.286l859 ---|          AX1    10
07629  M02S00430.286l859 ---|          ZR     X1,RFS1     IF PREVIOUS STAGING REQUEST ACCEPTED
Line S04453 Modification History
M01 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
07630  M01S04453.286l859 ---|          SA1    NNAR        INCREMENT NUMBER *NOT ACTIVE* RESPONSES
07631  M01S04454.286l859 ---|          SX6    X1+1
07632  M01S04455.286l859 ---|          SA6    A1
Line S01772 Modification History
M01 (Added by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
07633  M01S01772.286l859 +++|          SB2    SRBK        SET REQUEST BLOCK ADDRESS
07634  M01S01773.286l859 +++|          SX7    B0+
07635  M01S01774.286l859 +++|          RJ     SPR         SET *PFM* STAGE REQUEST PARAMETERS
07636  M01S01775.286l859 +++|          STAGEPF  SRFT      REQUEST FILE STAGE
07637  M01S01776.286l859 +++|          SA1    X2          CHECK FOR ERROR
07638  M01S01777.286l859 +++|          MX6    -8
07639  M01S01778.286l859 +++|          LX1    -10
07640  M01S01779.286l859 +++|          BX1    -X6*X1
07641  M01S01780.286l859 +++|          NZ     X1,RFS1     IF ERROR ON STAGE REQUEST
07642  M00S04456.pfdump  +++|
Line S04457 Modification History
M01 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
07643  M01S04457.253l688 ---|*         ISSUE FILE STAGING REQUEST.
Line S00431 Modification History
M01 (Added by) 253l688
M02 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
07644  M02S00431.286l859 ---|*         WRITE STAGE REQUEST PARAMETERS TO REQUEST FILE AND REQUEST
07645  M02S00432.286l859 ---|*         FILE STAGE.
Line S01781 Modification History
M01 (Added by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
07646  M01S01781.286l859 +++|*         WRITE FILE INFORMATION TO RESCAN REQUEST FILE.
07647  M00S04458.pfdump  +++|
Line S04459 Modification History
M01 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
07648  M01S04459.253l688 ---| RFS1     MOVE   NWCE,B3,SGCE SAVE PFC IMAGE
07649  M01S04460.253l688 ---|          MOVE   3,CRTK,SGTK  SAVE PFC TRACK/SECTOR/ORDINAL
07650  M01S04461.253l688 ---|          CALLPFU  SGCW,CTSR  ISSUE FILE STAGING REQUEST
07651  M01S04462.253l688 ---|
07652  M01S04463.253l688 ---|*         BUILD OUTSTANDING STAGING REQUEST LIST ENTRY.
07653  M01S04464.253l688 ---|
07654  M01S04465.253l688 ---|          SA1    SGCE+FCFN+FCUI*  SET FILE NAME AND USER INDEX
Line S00433 Modification History
M01 (Added by) 253l688
M02 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
07655  M02S00433.286l859 ---| RFS1     SA1    CTIN        SET INDEX OF ENTRY ON CATALOG TRACK
Line S01782 Modification History
M01 (Added by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
07656  M01S01782.286l859 +++|          SA1    CTIN        SET INDEX OF ENTRY ON CATALOG TRACK
07657  M00S04466.pfdump  +++|          BX6    X1
Line S04467 Modification History
M01 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
07658  M01S04467.253l688 ---|          SA6    REQW+RSFN+RSUI*
Line S00177 Modification History
M01 (Added by) v23l617
M02 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
07659  M02S00177.253l688 ---|          SA2    SGCE+FCBS   CHECK IF FILE IS DAPF OR IAPF
07660  M02S00178.253l688 ---|          MX0    1
07661  M02S00179.253l688 ---|          LX2    59-11
07662  M02S00180.253l688 ---|          BX2    X0*X2       DAPF FLAG
Line S04468 Modification History
M01 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
07663  M01S04468.253l688 ---|          MX0    -36         SET CREATION DATE/TIME
07664  M01S04469.253l688 ---|          SA1    SGCE+FCCD
07665  M01S04470.253l688 ---|          BX6    -X0*X1
Line S04471 Modification History
M01 (Removed by) v23l617
M02 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
07666  M02S04471.253l688 ---|          SA6    A6+B1
Line S00181 Modification History
M01 (Added by) v23l617
M02 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
07667  M02S00181.253l688 ---|          BX6    X2+X6       DAPF FLAG + CREATION DATE/TIME
07668  M02S00182.253l688 ---|          SA6    REQW+RSCD+RSDA*
Line S04472 Modification History
M01 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
07669  M01S04472.253l688 ---|          SA1    SGCE+FCAA+FCAT*  SET ALTERNATE STORAGE FIELDS
Line S00434 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
07670  M01S00434.253l688 +++|          WRITEO REQS        WRITE CATALOG TRACK INDEX
Line S00435 Modification History
M01 (Added by) 253l688
M02 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
07671  M02S00435.286l859 ---|          SA1    B3+FCFN     SET FILE NAME AND USER INDEX
Line S01783 Modification History
M01 (Added by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
07672  M01S01783.286l859 +++|          SA1    A0+FCFN     SET FILE NAME AND USER INDEX
07673  M00S04473.pfdump  +++|          BX6    X1
Line S04474 Modification History
M01 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
07674  M01S04474.253l688 ---|          SA6    A6+B1
07675  M01S04475.253l688 ---|          SA1    SGCO        SET PFC ORDINAL
07676  M01S04476.253l688 ---|          SA2    SGDN        SET DEVICE NUMBER
07677  M01S04477.253l688 ---|          LX1    7-1
07678  M01S04478.253l688 ---|          BX6    X1+X2
07679  M01S04479.253l688 ---|          SA1    A2+B1       SET TRACK NUMBER
07680  M01S04480.253l688 ---|          LX6    19-7
07681  M01S04481.253l688 ---|          BX6    X6+X1
07682  M01S04482.253l688 ---|          SA2    A1+B1       SET SECTOR NUMBER
07683  M01S04483.253l688 ---|          LX6    31-19
07684  M01S04484.253l688 ---|          BX6    X6+X2
07685  M01S04485.253l688 ---|          SA6    A6+B1
07686  M01S04486.253l688 ---|
07687  M01S04487.253l688 ---|*         POST ENTRY IN OUTSTANDING STAGING REQUEST LIST.
07688  M01S04488.253l688 ---|
07689  M01S04489.253l688 ---|          WRITEW REQS,REQW,RSEL
07690  M01S04490.253l688 ---|
07691  M01S04491.253l688 ---|*         SAVE FIRST STAGING REQUEST OF SCAN.
07692  M01S04492.253l688 ---|
07693  M01S04493.253l688 ---|          SA1    NFSR        INCREMENT NUMBER FILE STAGINGS REQUESTED
07694  M01S04494.253l688 ---|          SX6    X1+1
Line S00436 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
07695  M01S00436.253l688 +++|          WRITEO REQS
Line S00437 Modification History
M01 (Added by) 253l688
M02 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
07696  M02S00437.286l859 ---|          SA4    CBIN        SET CATALOG BUFFER INDEX
07697  M02S00438.286l859 ---|          SA0    SRBK        SET REQUEST BLOCK ADDRESS
07698  M02S00439.286l859 ---|          RJ     SPR         SET *PFM* STAGE REQUEST PARAMETERS
07699  M02S00440.286l859 ---|          SA1    NFSR        INCREMENT NUMBER OF STAGE REQUESTS
07700  M02S00441.286l859 ---|          SX6    X1+B1
Line S04495 Modification History
M01 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
07701  M01S04495.286l859 ---|          SA6    A1
Line S04496 Modification History
M01 (Removed by) 253l688
M02 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
07702  M02S04496.286l859 ---|          NZ     X1,RFSX     IF NOT FIRST TIME FOR THIS SCAN
07703  M02S04497.286l859 ---|          MOVE   RSEL,REQW,FRSG  SAVE FIRST STAGING REQUEST
Line S00442 Modification History
M01 (Added by) 253l688
M02 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
07704  M02S00442.286l859 ---|          NZ     X1,RFS2     IF NOT FIRST TIME FOR THIS SCAN
07705  M02S00443.286l859 ---|          SA1    CSCW
Line S01784 Modification History
M01 (Added by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
07706  M01S01784.286l859 +++|          SA1    RSTS
07707  M01S01785.286l859 +++|          NZ     X1,RFSX     IF NOT FIRST STAGE REQUEST
07708  M01S01786.286l859 +++|          SA1    CADA
07709  M01S01787.286l859 +++|          SA2    CTIN
Line S00444 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
07710  M01S00444.253l688 +++|          MX6    -24
Line S00445 Modification History
M01 (Added by) 253l688
M02 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
07711  M02S00445.286l859 ---|          BX6    -X6*X1      *CBUF* FIRST TRACK AND SECTOR
Line S01788 Modification History
M01 (Added by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
07712  M01S01788.286l859 +++|          MX7    58
07713  M01S01789.286l859 +++|          BX6    -X6*X1      CATALOG TRACK AND SECTOR
07714  M01S01790.286l859 +++|          BX7    X7*X2       INDEX OF FIRST ENTRY IN SECTOR
Line S00446 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
07715  M01S00446.253l688 +++|          SA6    RSTS        SET CATALOG TRACK AND SECTOR FOR RESCAN
Line S00447 Modification History
M01 (Added by) 253l688
M02 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
07716  M02S00447.286l859 ---|          SA1    CTIN
07717  M02S00448.286l859 ---|          SA2    CBIN
07718  M02S00449.286l859 ---|          IX6    X1-X2       TRACK INDEX OF FIRST ENTRY IN *CBUF*
07719  M02S00450.286l859 ---|          SA6    RSIN        SET CATALOG TRACK INDEX FOR RESCAN
07720  M02S00451.286l859 ---| RFS2     STAGEPF  SRFT      REQUEST FILE STAGE
Line S01791 Modification History
M01 (Added by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
07721  M01S01791.286l859 +++|          SA7    RSIN        SET CATALOG TRACK INDEX FOR RESCAN
07722  M00S04498.pfdump  +++|          EQ     RFSX        RETURN
Line S01792 Modification History
M01 (Added by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
07723  M01S01792.286l859 +++| RIP      SPACE  4,10
07724  M01S01793.286l859 +++|**        RIP - REPRIEVE INTERRUPT PROCESSOR.
07725  M01S01794.286l859 +++|*
07726  M01S01795.286l859 +++|*         EXIT   BUSY FETS SET COMPLETE TO ALLOW TERMINATION
07727  M01S01796.286l859 +++|*                  PROCESSING.
07728  M01S01797.286l859 +++|*
07729  M01S01798.286l859 +++|*         MACROS COMPFET.
07730  M01S01799.286l859 +++|
07731  M01S01800.286l859 +++|
07732  M01S01801.286l859 +++| RIP      SUBR               ENTRY/EXIT
07733  M01S01802.286l859 +++|          COMPFET  (CATS,PETS,DATA,CATC,TAPE,O,SU,PFVER,PFMREQ,ACFT)
07734  M01S01803.286l859 +++|          COMPFET  (ACFT,REQS,RESS,RDF,TC)
07735  M01S01804.286l859 +++|          EQ     RIPX        RETURN
07736  M00S04499.pfdump  +++| RLF      SPACE  4,15
07737  M00S04500.pfdump  +++|**        RLF - RELEASE LOCK FILES.
07738  M00S04501.pfdump  +++|*
07739  M00S04502.pfdump  +++|*         ENTRY  (LMSK) = LOCK FILE MASK.
Line S00024 Modification History
M01 (Added by) ns21000
M02 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
07740  M02S00024.286l859 ---|*                (LFDP) = LOCK FILE DUMP PASS FLAG.
07741  M00S04503.pfdump  +++|*                *LFAT* = FWA OF LOCK FILE FET ARGUMENT TABLE.
07742  M00S04504.pfdump  +++|*                *LOCK* = FWA OF LOCK FILE FET.
Line S00183 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
07743  M01S00183.v23l617 +++|*                (MSSF) = NONZERO, IF *MSS* ENVIRONMENT.
Line S00184 Modification History
M01 (Added by) v23l617
M02 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
07744  M02S00184.242l642 ---|*                (ASFF) = NONZERO, IF *MAS* ENVIRONMENT.
Line S00044 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
07745  M01S00044.242l642 +++|*                (ASFF) = NONZERO, IF *MSE* ENVIRONMENT.
07746  M00S04505.pfdump  +++|*
07747  M00S04506.pfdump  +++|*         EXIT   LOCKED FILES RETURNED.
07748  M00S04507.pfdump  +++|*                (LMSK) = 0.
Line S00025 Modification History
M01 (Added by) ns21000
M02 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
07749  M02S00025.286l859 ---|*                (LFDP) = 0.
07750  M00S04508.pfdump  +++|*
07751  M00S04509.pfdump  +++|*         USES   X - 0, 1, 2, 3, 6, 7.
07752  M00S04510.pfdump  +++|*                A - 1, 2, 6, 7.
07753  M00S04511.pfdump  +++|*                B - 5, 6.
07754  M00S04512.pfdump  +++|*
07755  M00S04513.pfdump  +++|*         MACROS CALLPFU, RETURN.
07756  M00S04514.pfdump  +++|
07757  M00S04515.pfdump  +++|
07758  M00S04516.pfdump  +++| RLF      SUBR               ENTRY/EXIT
Line S00026 Modification History
M01 (Added by) ns21000
M02 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
07759  M02S00026.286l859 ---|          BX6    X6-X6       CLEAR LOCK FILE DUMP PASS FLAG
07760  M02S00027.286l859 ---|          SA6    LFDP
07761  M00S04517.pfdump  +++|          SA1    LMSK
07762  M00S04518.pfdump  +++|          ZR     X1,RLFX     IF NO FILES LOCKED
07763  M00S04519.pfdump  +++|          SB6    B0          INITIALIZE LOCK INDEX
Line S04520 Modification History
M01 (Removed by) ns21000
Seq #  *Modification Id* Act 
----------------------------+
07764  M01S04520.ns21000 ---|          BX6    X6-X6
07765  M00S04521.pfdump  +++|          SA6    RLFA
07766  M00S04522.pfdump  +++|
07767  M00S04523.pfdump  +++|*         RELEASE LOCK FILES.
07768  M00S04524.pfdump  +++|
07769  M00S04525.pfdump  +++| RLF1     SA1    LMSK
07770  M00S04526.pfdump  +++|          SX2    1
07771  M00S04527.pfdump  +++|          LX2    B6,X2
07772  M00S04528.pfdump  +++|          BX3    X2*X1
07773  M00S04529.pfdump  +++|          ZR     X3,RLF2     IF THIS FILE NOT LOCKED
07774  M00S04530.pfdump  +++|          SA1    LFAT+B6     SET FILE NAME
07775  M00S04531.pfdump  +++|          SA2    LOCK
07776  M00S04532.pfdump  +++|          MX0    42
07777  M00S04533.pfdump  +++|          BX6    X0*X1
07778  M00S04534.pfdump  +++|          BX3    -X0*X2
07779  M00S04535.pfdump  +++|          BX6    X3+X6
07780  M00S04536.pfdump  +++|          SA6    A2
07781  M00S04537.pfdump  +++|          RETURN LOCK,R      RELEASE LOCK FILE
07782  M00S04538.pfdump  +++|          SA1    RLFA        RESTORE LOCK INDEX
07783  M00S04539.pfdump  +++|          SB6    X1+
07784  M00S04540.pfdump  +++| RLF2     SB6    B6+1        INCREMENT INDEX
Line S04541 Modification History
M01 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
07785  M01S04541.v23l617 ---|          SB5    MNSF
Line S00185 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
07786  M01S00185.v23l617 +++|          SB5    LFATL
07787  M00S04542.pfdump  +++|          GE     B6,B5,RLF3  IF ALL LOCK FILES RELEASED
07788  M00S04543.pfdump  +++|          SX6    B6          SAVE LOCK INDEX
07789  M00S04544.pfdump  +++|          SA6    RLFA
07790  M00S04545.pfdump  +++|          EQ     RLF1        RELEASE NEXT LOCK FILE
07791  M00S04546.pfdump  +++|
07792  M00S04547.pfdump  +++|*         ISSUE RELEASE NOTICE.
07793  M00S04548.pfdump  +++|
07794  M00S04549.pfdump  +++| RLF3     SA1    LMSK        INDICATE FILES RELEASED
07795  M00S04550.pfdump  +++|          BX6    X1
Line S00186 Modification History
M01 (Added by) v23l617
M02 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
07796  M02S00186.242l642 ---|          LX1    0-8         GET *MAS* LOCK MASK
Line S00045 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
07797  M01S00045.242l642 +++|          LX1    0-8         GET *MSE* LOCK MASK
Line S00187 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
07798  M01S00187.v23l617 +++|          BX6    X6+X1
07799  M01S00188.v23l617 +++|          MX7    -8
07800  M01S00189.v23l617 +++|          BX6    -X7*X6
07801  M00S04551.pfdump  +++|          BX7    X7-X7
07802  M00S04552.pfdump  +++|          SA6    CMSK
07803  M00S04553.pfdump  +++|          SA7    A1+
Line S04554 Modification History
M01 (Removed by) ns21000
Seq #  *Modification Id* Act 
----------------------------+
07804  M01S04554.ns21000 ---|          CALLPFU  LKCW,CTRE
Line S00028 Modification History
M01 (Added by) ns21000
M02 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
07805  M02S00028.v23l617 ---|          CALLPFU  LKCW,CTRU
Line S00190 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
07806  M01S00190.v23l617 +++|          SA2    MSSF
07807  M01S00191.v23l617 +++|          ZR     X2,RLF4     IF NOT *MSS* ENVIRONMENT
07808  M01S00192.v23l617 +++|          CALLPFU  LKC1,CTRU RELEASE *MSS* INTERLOCK
07809  M01S00193.v23l617 +++|
07810  M01S00194.v23l617 +++| RLF4     SA2    ASFF
Line S00195 Modification History
M01 (Added by) v23l617
M02 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
07811  M02S00195.242l642 ---|          ZR     X2,RLFX     IF NOT *MAS* ENVIRONMENT
07812  M02S00196.242l642 ---|          CALLPFU  LKC2,CTRU RELEASE *MAS* INTERLOCK
Line S00046 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
07813  M01S00046.242l642 +++|          ZR     X2,RLFX     IF NOT *MSE* ENVIRONMENT
07814  M01S00047.242l642 +++|          CALLPFU  LKC2,CTRU RELEASE *MSE* INTERLOCK
07815  M00S04555.pfdump  +++|          EQ     RLFX        RETURN
07816  M00S04556.pfdump  +++|
07817  M00S04557.pfdump  +++| RLFA     BSSZ   1           LOCK INDEX HOLD AREA
Line S01805 Modification History
M01 (Added by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
07818  M01S01805.286l859 +++| RMF      SPACE  4,10
07819  M01S01806.286l859 +++|**        RMF - RETURN MASTER DEVICE FILES.
07820  M01S01807.286l859 +++|*
07821  M01S01808.286l859 +++|*         EXIT   CATALOG, PERMITS, AND DATA FILES RETURNED.
07822  M01S01809.286l859 +++|*
07823  M01S01810.286l859 +++|*         MACROS RETURN.
07824  M01S01811.286l859 +++|
07825  M01S01812.286l859 +++|
07826  M01S01813.286l859 +++| RMF      SUBR               ENTRY/EXIT
07827  M01S01814.286l859 +++|          RETURN CATS        RETURN CATALOG FILE
07828  M01S01815.286l859 +++|          RETURN PETS        RETURN PERMITS FILE
07829  M01S01816.286l859 +++|          RETURN DATA        RETURN DATA FILE
07830  M01S01817.286l859 +++|          EQ     RMFX        RETURN
07831  M00S04558.pfdump  +++| RPF      SPACE  4,20
07832  M00S04559.pfdump  +++|**        RPF - READ PERMIT FILE.
07833  M00S04560.pfdump  +++|*
Line S04561 Modification History
M01 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
07834  M01S04561.286l859 ---|*         ENTRY  (X1) = RANDOM INDEX OF PERMITS.
Line S01818 Modification History
M01 (Added by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
07835  M01S01818.286l859 +++|*         ENTRY  CATALOG ENTRY IN *CATH*.
Line S04562 Modification History
M01 (Removed by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
07836  M01S04562.ns22000 ---|*                (MAEQ) = MASTER EQUIPMENT NUMBER.
Line S00276 Modification History
M01 (Added by) ns22000
M02 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
07837  M02S00276.286l859 ---|*                (MAEQ) = MASTER DEVICE EST ORDINAL.
Line S04563 Modification History
M01 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
07838  M01S04563.286l859 ---|*                (MPFN) = FILE NAME BEING DUMPED.
07839  M01S04564.286l859 ---|*                (MPUI) = USER INDEX OF FILE.
07840  M01S04565.286l859 ---|*                (CATH - CATH+NWCE-1) = CATALOG ENTRY FOR FILE.
07841  M00S04566.pfdump  +++|*
07842  M00S04567.pfdump  +++|*         EXIT   PERMIT DATA COPIED TO THE ARCHIVE FILE.
Line S01819 Modification History
M01 (Added by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
07843  M01S01819.286l859 +++|*                PERMITS LOST FLAG SET IN *FLST* IF ERROR DETECTED IN
07844  M01S01820.286l859 +++|*                  PERMITS.
07845  M01S01821.286l859 +++|*                (IFST) = 2 IF PERMITS DUMPED.
07846  M00S04568.pfdump  +++|*
07847  M00S04569.pfdump  +++|*         USES   X - 0, 1, 2, 3, 5, 6, 7.
07848  M00S04570.pfdump  +++|*                A - 1, 2, 3, 6, 7.
07849  M00S04571.pfdump  +++|*                B - 2, 3.
07850  M00S04572.pfdump  +++|*
Line S04573 Modification History
M01 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
07851  M01S04573.286l859 ---|*         CALLS  COD, PPE, SEI, SEM, SFN, WDT.
Line S01822 Modification History
M01 (Added by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
07852  M01S01822.286l859 +++|*         CALLS  SFE, WDT.
07853  M00S04574.pfdump  +++|*
Line S04575 Modification History
M01 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
07854  M01S04575.286l859 ---|*         MACROS EDITS, READ, READW, RECALL, SKIPEI.
Line S01823 Modification History
M01 (Added by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
07855  M01S01823.286l859 +++|*         MACROS READ, READW, RECALL, SKIPEI.
07856  M00S04576.pfdump  +++|
07857  M00S04577.pfdump  +++|
07858  M00S04578.pfdump  +++|*         PROCESS ERROR IN PERMIT DATA.
07859  M00S04579.pfdump  +++|
Line S04580 Modification History
M01 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
07860  M01S04580.286l859 ---| RPF5     RJ     PPE         PROCESS PERMIT ERROR
Line S01824 Modification History
M01 (Added by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
07861  M01S01824.286l859 +++| RPF5     SA1    CATH+FCUI
07862  M01S01825.286l859 +++|          SB2    ERPR        * PERMIT READ ERROR ...*
07863  M01S01826.286l859 +++|          RJ     SFE         SEND ERROR MESSAGE
07864  M01S01827.286l859 +++|          SA2    PETS        CLEAR FET ERROR STATUS
07865  M01S01828.286l859 +++|          SX1    36000B
07866  M01S01829.286l859 +++|          MX6    0           CLEAR DETAILED ERROR CODE
07867  M01S01830.286l859 +++|          BX7    -X1*X2
07868  M01S01831.286l859 +++|          SA6    A2+6
07869  M01S01832.286l859 +++|          SA7    A2
Line S04581 Modification History
M01 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
07870  M01S04581.286l859 ---| RPF6     SA1    RCWD        SET READ ERROR CONTROL WORD
Line S01833 Modification History
M01 (Added by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
07871  M01S01833.286l859 +++| RPF6     SA1    FLST        SET PERMITS LOST IN FILE STATUS
07872  M01S01834.286l859 +++|          SX6    4
07873  M01S01835.286l859 +++|          BX6    X1+X6
07874  M01S01836.286l859 +++|          SA6    A1
07875  M01S01837.286l859 +++|          SA1    RCWD        SET READ ERROR CONTROL WORD
07876  M00S04582.pfdump  +++|          SX2    PRCW
07877  M00S04583.pfdump  +++|          SB2    PHBUF       SET FWA OF PERMIT DATA
07878  M00S04584.pfdump  +++|          SB3    B0          CLEAR PERMIT DATA WORD COUNT
07879  M00S04585.pfdump  +++|          BX6    X1+X2
07880  M00S04586.pfdump  +++|          EQ     RPF8        WRITE *ERROR* CONTROL WORD
07881  M00S04587.pfdump  +++|
07882  M00S04588.pfdump  +++|*         PROCESS END OF PERMIT DATA.
07883  M00S04589.pfdump  +++|
07884  M00S04590.pfdump  +++| RPF7     SX1    PRCW        SET END OF PERMIT CONTROL WORD
07885  M00S04591.pfdump  +++|          SX2    B3          ADD WORD COUNT
07886  M00S04592.pfdump  +++|          BX6    X1+X2
07887  M00S04593.pfdump  +++| RPF8     SA6    CONTH
07888  M00S04594.pfdump  +++|          RJ     WDT         WRITE LAST BLOCK OF PERMITS
Line S01838 Modification History
M01 (Added by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
07889  M01S01838.286l859 +++|          SX6    2           SET PERMITS DUMPED INCOMPLETE FILE STATUS
07890  M01S01839.286l859 +++|          SA6    IFST
07891  M00S04595.pfdump  +++|
07892  M00S04596.pfdump  +++| RPF      SUBR
Line S04597 Modification History
M01 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
07893  M01S04597.286l859 ---|          BX6    X1          SAVE PERMIT RI
07894  M01S04598.286l859 ---|          SA6    RPFA
07895  M01S04599.286l859 ---|          BX6    X6-X6       CLEAR LENGTH RETRIEVAL FLAG
07896  M01S04600.286l859 ---|          SA6    RPFC
Line S01840 Modification History
M01 (Added by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
07897  M01S01840.286l859 +++|
07898  M01S01841.286l859 +++|*         CHECK FOR PERMITS PRESENT.
07899  M01S01842.286l859 +++|
07900  M01S01843.286l859 +++|          SA1    CATH+FCRI
07901  M01S01844.286l859 +++|          MX0    -24
07902  M01S01845.286l859 +++|          LX1    24
07903  M01S01846.286l859 +++|          BX6    -X0*X1      PERMITS FILE RANDOM INDEX
07904  M01S01847.286l859 +++|          SX7    B0
07905  M01S01848.286l859 +++|          ZR     X6,RPFX     IF NO PERMITS
07906  M01S01849.286l859 +++|          SA6    RPFA        SAVE RANDOM INDEX
07907  M01S01850.286l859 +++|          SA7    RPFC        CLEAR LENGTH RETRIEVAL FLAG
07908  M00S04601.pfdump  +++|
07909  M00S04602.pfdump  +++|*         READ PRU OF PERMITS.
07910  M00S04603.pfdump  +++|
07911  M00S04604.pfdump  +++| RPF1     RECALL PETS        REWIND PERMIT FILE
07912  M00S04605.pfdump  +++|          MX0    -18
07913  M00S04606.pfdump  +++|          SA2    PETS+1
07914  M00S04607.pfdump  +++|          BX6    -X0*X2
07915  M00S04608.pfdump  +++|          SA6    A2+B1
07916  M00S04609.pfdump  +++|          SA6    A6+B1
07917  M00S04610.pfdump  +++|          SA1    RPFA        GET RANDOM INDEX
07918  M00S04611.pfdump  +++|          SA2    RPFB        CHECK FOR PETS FILE LIMIT EXCEEDED
07919  M00S04612.pfdump  +++|          IX2    X1-X2
07920  M00S04613.pfdump  +++|          PL     X2,RPF3     IF RANDOM INDEX NOT ON FILE
07921  M00S04614.pfdump  +++|          BX6    X1
07922  M00S04615.pfdump  +++|          SA6    PETS+6
07923  M00S04616.pfdump  +++|          READ   PETS,R      FILL ONE SECTOR CIRCULAR BUFFER
07924  M00S04617.pfdump  +++|          READW  PETS,PHBUF,100B  READ PERMIT SECTOR
07925  M00S04618.pfdump  +++|          SB2    PHBUF       SET FWA OF PERMITS BUFFER
07926  M00S04619.pfdump  +++|          SB3    B6-B2       SET WORD COUNT IN BUFFER
Line S00001 Modification History
M01 (Added by) ns2649
Seq #  *Modification Id* Act 
----------------------------+
07927  M01S00001.ns2649  +++|          SX6    B3-NWPH-NWPE  CHECK WORD COUNT
07928  M01S00002.ns2649  +++|          NG     X6,RPF2     IF INCORRECT WORD COUNT
07929  M01S00003.ns2649  +++|          SX3    NWPE-1
07930  M01S00004.ns2649  +++|          ERRNZ  NWPH-NWPE   CODE DEPENDS ON VALUE
07931  M01S00005.ns2649  +++|          BX6    X3*X6
07932  M01S00006.ns2649  +++|          NZ     X6,RPF2     IF INCORRECT WORD COUNT
07933  M00S04620.pfdump  +++|          SA3    X2          GET FET ERROR STATUS
07934  M00S04621.pfdump  +++|          SX6    36000B
07935  M00S04622.pfdump  +++|          BX2    X6*X3
07936  M00S04623.pfdump  +++|          SA3    B2          GET USER INDEX FROM PERMIT SECTOR
07937  M00S04624.pfdump  +++|          NZ     X2,RPF5     IF ERROR ON PERMIT READ
07938  M00S04625.pfdump  +++|          SA2    CATH+FCUI   GET USER INDEX FROM CATALOG
07939  M00S04626.pfdump  +++|          LX3    -12
07940  M00S04627.pfdump  +++|          BX6    X2-X3       VALIDATE PERMIT USER INDEX
07941  M00S04628.pfdump  +++|          MX2    -18
07942  M00S04629.pfdump  +++|          BX6    -X2*X6
07943  M00S04630.pfdump  +++|          NZ     X6,RPF2     IF NOT CORRECT USER INDEX
07944  M00S04631.pfdump  +++|          NZ     X1,RPF7     IF END OF PERMIT DATA
07945  M00S04632.pfdump  +++|          LX3    -24         SET LINKAGE RANDOM INDEX
07946  M00S04633.pfdump  +++|          MX6    -24
07947  M00S04634.pfdump  +++|          BX7    -X6*X3
07948  M00S04635.pfdump  +++|          ZR     X7,RPF7     IF END OF PERMIT DATA
07949  M00S04636.pfdump  +++|          SX6    PMCW+100B   SET FULL BLOCK PERMIT CONTROL WORD
07950  M00S04637.pfdump  +++|          SA7    RPFA
07951  M00S04638.pfdump  +++|          SA6    CONTH
Line S04639 Modification History
M01 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
07952  M01S04639.286l859 ---|          RJ     WDT         WRITE DUMP TAPE
Line S01851 Modification History
M01 (Added by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
07953  M01S01851.286l859 +++|          RJ     WDT         WRITE ARCHIVE FILE
07954  M00S04640.pfdump  +++|          EQ     RPF1        GET NEXT SECTOR
07955  M00S04641.pfdump  +++|
07956  M00S04642.pfdump  +++|*         PROCESS PERMIT FORMAT ERROR.
07957  M00S04643.pfdump  +++|
Line S04644 Modification History
M01 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
07958  M01S04644.286l859 ---| RPF2     EDITS  MSFN,MES12  BUILD PERMIT FORMAT ERROR MESSAGE
07959  M01S04645.286l859 ---|          SX6    B1+         SET ERRLOG FLAG
07960  M01S04646.286l859 ---|          SA6    ELFG
Line S04647 Modification History
M01 (Removed by) ns22000
M02 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
07961  M02S04647.286l859 ---|          SA1    MAEQ        SET EQUIPMENT NUMBER
Line S00277 Modification History
M01 (Added by) ns22000
M02 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
07962  M02S00277.286l859 ---|          SA1    MAEQ        SET EST ORDINAL
Line S04648 Modification History
M01 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
07963  M01S04648.286l859 ---|          BX6    X1
07964  M01S04649.286l859 ---|          SA6    MPEQ
07965  M01S04650.286l859 ---|          SA1    CPAR+/COMSPFS/CPDN  SET DEVICE NUMBER
07966  M01S04651.286l859 ---|          BX6    X1
07967  M01S04652.286l859 ---|          SA6    MPDN
07968  M01S04653.286l859 ---|          RJ     SEM         SEND ERROR MESSAGE
Line S01852 Modification History
M01 (Added by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
07969  M01S01852.286l859 +++| RPF2     SA1    CATH+FCUI
07970  M01S01853.286l859 +++|          SB2    ERPF        * PERMIT FORMAT ERROR ...*
07971  M01S01854.286l859 +++|          RJ     SFE         SEND ERROR MESSAGE
Line S04654 Modification History
M01 (Removed by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
07972  M01S04654.ns22000 ---|          SA1    MAEQ        SET MASTER EQUIPMENT NUMBER
Line S00278 Modification History
M01 (Added by) ns22000
M02 (Removed by) ns2209
Seq #  *Modification Id* Act 
----------------------------+
07973  M02S00278.ns2209  ---|          SA1    MAEQ        SET MASTER DEVICE EST ORDINAL
Line S04655 Modification History
M01 (Removed by) ns2209
Seq #  *Modification Id* Act 
----------------------------+
07974  M01S04655.ns2209  ---|          SX6    X1+
07975  M01S04656.ns2209  ---|          SA6    MPEQ
Line S00018 Modification History
M01 (Added by) ns2209
M02 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
07976  M02S00018.286l859 ---|          SX6    B0+         CLEAR TRACK AND SECTOR
07977  M02S00019.286l859 ---|          SA6    MPTK
07978  M02S00020.286l859 ---|          SA6    MPSC
Line S04657 Modification History
M01 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
07979  M01S04657.286l859 ---|          RJ     SEI         SET ERROR IDLE STATUS
07980  M00S04658.pfdump  +++|          EQ     RPF6        PROCESS END OF PERMIT DATA
07981  M00S04659.pfdump  +++|
07982  M00S04660.pfdump  +++|*         PERMIT RANDOM INDEX OUT OF RANGE.
07983  M00S04661.pfdump  +++|
07984  M00S04662.pfdump  +++| RPF3     SA1    RPFC        CHECK LENGTH RETRIEVAL FLAG
07985  M00S04663.pfdump  +++|          NZ     X1,RPF4     IF LENGTH RETRIEVAL FLAG SET
07986  M00S04664.pfdump  +++|          SX6    B1          SET LENGTH RETRIEVAL FLAG
07987  M00S04665.pfdump  +++|          SA6    A1
07988  M00S04666.pfdump  +++|          SKIPEI PETS,R      SET LAST SECTOR
07989  M00S04667.pfdump  +++|          SA1    PETS+6
07990  M00S04668.pfdump  +++|          AX1    30
07991  M00S04669.pfdump  +++|          BX6    X1
07992  M00S04670.pfdump  +++|          SA6    RPFB
07993  M00S04671.pfdump  +++|          EQ     RPF1        TRY AGAIN
07994  M00S04672.pfdump  +++|
Line S04673 Modification History
M01 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
07995  M01S04673.286l859 ---| RPF4     SA1    CATH+FCFN   SET FILE NAME AND USER INDEX IN MESSAGE
07996  M01S04674.286l859 ---|          MX0    42
07997  M01S04675.286l859 ---|          BX5    -X0*X1      SAVE USER INDEX
07998  M01S04676.286l859 ---|          BX1    X0*X1
07999  M01S04677.286l859 ---|          RJ     SFN         SPACE FILL NAME
08000  M01S04678.286l859 ---|          LX6    54
08001  M01S04679.286l859 ---|          SA6    MSGP+2
08002  M01S04680.286l859 ---|          BX1    X5
08003  M01S04681.286l859 ---|          RJ     COD
08004  M01S04682.286l859 ---|          SA6    MSGP+3
08005  M01S04683.286l859 ---|          SX5    MSGP
08006  M01S04684.286l859 ---|          RJ     SEM         SEND ERROR MESSAGE
Line S01855 Modification History
M01 (Added by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
08007  M01S01855.286l859 +++| RPF4     SA1    CATH+FCUI
08008  M01S01856.286l859 +++|          SB2    ERPI        * PERMIT RANDOM INDEX ERROR ...*
08009  M01S01857.286l859 +++|          RJ     SFE         SEND ERROR MESSAGE
08010  M00S04685.pfdump  +++|          EQ     RPF6        PROCESS END OF PERMIT DATA
08011  M00S04686.pfdump  +++|
Line S00452 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
08012  M01S00452.253l688 +++|
08013  M00S04687.pfdump  +++| RPFA     BSSZ   1           RANDOM INDEX HOLD
08014  M00S04688.pfdump  +++| RPFB     BSSZ   1           PETS FILE LENGTH
08015  M00S04689.pfdump  +++| RPFC     BSSZ   1           LENGTH RETRIEVAL FLAG
08016  M00S04690.pfdump  +++| RPR      SPACE  4,15
08017  M00S04691.pfdump  +++|**        RPR - READ PRU.
08018  M00S04692.pfdump  +++|*
08019  M00S04693.pfdump  +++|*         ENTRY  (B5) = 0 IF ONLY TO READ CONTROL WORD.
08020  M00S04694.pfdump  +++|*                (B5) = INDEX TO START READING DATA IN *DBUFH*.
08021  M00S04695.pfdump  +++|*
08022  M00S04696.pfdump  +++|*         EXIT   CONTROL WORD TRANSFERRED TO *DBUFH*.
Line S04697 Modification History
M01 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
08023  M01S04697.286l859 ---|*                DATA TRANSFERRED TO *DBUFH+B5* IF (B5) NON-ZERO.
Line S01858 Modification History
M01 (Added by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
08024  M01S01858.286l859 +++|*                DATA TRANSFERRED IF NOT CONTROL WORD ONLY READ.
08025  M01S01859.286l859 +++|*                (B5) = INDEX TO READ NEXT PRU IF DATA READ.
08026  M00S04698.pfdump  +++|*
08027  M00S04699.pfdump  +++|*         USES   X - 1, 3, 4, 6.
08028  M00S04700.pfdump  +++|*                A - 1, 6.
08029  M00S04701.pfdump  +++|*                B - 2, 3, 4, 5, 6, 7.
08030  M00S04702.pfdump  +++|*
08031  M00S04703.pfdump  +++|*         CALLS  MMC, RCP.
08032  M00S04704.pfdump  +++|
08033  M00S04705.pfdump  +++|
08034  M00S04706.pfdump  +++| RPR      SUBR               ENTRY/EXIT
08035  M00S04707.pfdump  +++|          SA1    DATA+FTLM   READ LIMIT
08036  M00S04708.pfdump  +++|          SB7    X1+
08037  M00S04709.pfdump  +++|
08038  M00S04710.pfdump  +++|*         CHECK FOR EMPTY BUFFER.
08039  M00S04711.pfdump  +++|
08040  M00S04712.pfdump  +++|          RJ     RCP         RECALL *PFU* ON EMPTY BUFFER
08041  M00S04713.pfdump  +++|          SA1    B4+         READ DATA WORD
08042  M00S04714.pfdump  +++|          SB4    B4+B1
08043  M00S04715.pfdump  +++|          BX6    X1
08044  M00S04716.pfdump  +++|          SA6    DBUFH       STORE CONTROL WORD
08045  M00S04717.pfdump  +++|          NE     B4,B7,RPR1  IF OUT+1 .NE. LIMIT
08046  M00S04718.pfdump  +++|          SB4    X2          SET OUT+1 TO FIRST
08047  M00S04719.pfdump  +++| RPR1     MX4    -12         EXTRACT WORD COUNT FROM CONTROL WORD
08048  M00S04720.pfdump  +++|          BX3    -X4*X1
08049  M00S04721.pfdump  +++|          LX4    12
08050  M00S04722.pfdump  +++|          SX6    B4
08051  M00S04723.pfdump  +++|          SA6    DATA+FTOT
08052  M00S04724.pfdump  +++|          ZR     B5,RPRX     IF ONLY READ OF CONTROL WORD
08053  M00S04725.pfdump  +++|          ZR     X3,RPRX     IF NO DATA TO READ
08054  M00S04726.pfdump  +++|          BX1    -X4*X1
08055  M00S04727.pfdump  +++|          SB3    B4+X3
08056  M00S04728.pfdump  +++|          ZR     X1,RPRX     IF EOF/EOI
08057  M00S04729.pfdump  +++|
08058  M00S04730.pfdump  +++|*         TRANSFER DATA FROM CIRCULAR BUFFER TO WORKING BUFFER.
08059  M00S04731.pfdump  +++|
08060  M00S04732.pfdump  +++| RPR2     RJ     RCP         RECALL *PFU* IF EMPTY BUFFER
08061  M00S04733.pfdump  +++|          SX6    DBUFH+B5    ADDRESS TO TRANSFER TO
08062  M00S04734.pfdump  +++|          LT     B3,B7,RPR4  IF NO BUFFER WRAP
08063  M00S04735.pfdump  +++|
08064  M00S04736.pfdump  +++|*         PROCESS FIRST HALF OF BUFFER WRAP.
08065  M00S04737.pfdump  +++|
08066  M00S04738.pfdump  +++|          SX3    B4          ADDRESS TO TRANSFER FROM
08067  M00S04739.pfdump  +++|          SX1    B6-B4
08068  M00S04740.pfdump  +++|          GT     B6,B4,RPR3  IF REMAINDER OF BUFFER NOT FULL
08069  M00S04741.pfdump  +++|          SB6    X2          SET NEW OUT
08070  M00S04742.pfdump  +++|          SB3    B3-B7       RESET END OF TRANSFER
08071  M00S04743.pfdump  +++|          SX1    B7-B4       SET WORD COUNT TO END OF BUFFER
08072  M00S04744.pfdump  +++|          SB3    X2+B3
08073  M00S04745.pfdump  +++| RPR3     SB2    B5+X1       RESET WORKING BUFFER INDEX
08074  M00S04746.pfdump  +++|          SB4    B6
08075  M00S04747.pfdump  +++|          RJ     MMC         MOVE DATA TO WORKING BUFFER
08076  M00S04748.pfdump  +++|          SX6    B4          RESET OUT
08077  M00S04749.pfdump  +++|          SB5    B2
08078  M00S04750.pfdump  +++|          SA6    DATA+FTOT
08079  M00S04751.pfdump  +++|          EQ     RPR2        RECHECK BUFFER
08080  M00S04752.pfdump  +++|
08081  M00S04753.pfdump  +++|*         PROCESS SECOND HALF OF BUFFER WRAP OR NON-WRAP.
08082  M00S04754.pfdump  +++|
08083  M00S04755.pfdump  +++| RPR4     SX3    B4          ADDRESS TO TRANSFER FROM
08084  M00S04756.pfdump  +++|          SX1    B3-B4       WORDS TO TRANSFER
08085  M00S04757.pfdump  +++|          LT     B6,B4,RPR5  IF ALL OF DATA IN BUFFER
08086  M00S04758.pfdump  +++|          GT     B6,B3,RPR5  IF ALL OF DATA IN BUFFER
08087  M00S04759.pfdump  +++|          SX1    B6-B4       SET LENGTH TO DATA IN BUFFER
08088  M00S04760.pfdump  +++| RPR5     SB2    B5+X1       RESET WORKING BUFFER INDEX
08089  M00S04761.pfdump  +++|          SB4    B4+X1       RESET OUT
08090  M00S04762.pfdump  +++|          RJ     MMC         MOVE DATA TO WORKING BUFFER
08091  M00S04763.pfdump  +++|          SB5    B2          RESTORE B5
08092  M00S04764.pfdump  +++|          SX6    B4          RESET OUT
08093  M00S04765.pfdump  +++|          SA6    DATA+FTOT
08094  M00S04766.pfdump  +++|          NE     B3,B4,RPR2  IF NOT ALL DATA TRANSFERRED
08095  M00S04767.pfdump  +++|          EQ     RPRX        RETURN
Line S04768 Modification History
M01 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
08096  M01S04768.253l688 ---| SAC      SPACE  4,15
08097  M01S04769.253l688 ---|**        SAC - SET PF ACTIVITY COUNT.
08098  M01S04770.253l688 ---|*
08099  M01S04771.253l688 ---|*         ENTRY  (ACFL) = 0.
Line S04772 Modification History
M01 (Removed by) ns22000
M02 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
08100  M02S04772.253l688 ---|*                (MAEQ) = MASTER EQUIPMENT NUMBER.
Line S00279 Modification History
M01 (Added by) ns22000
M02 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
08101  M02S00279.253l688 ---|*                (MAEQ) = MASTER DEVICE EST ORDINAL.
Line S04773 Modification History
M01 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
08102  M01S04773.253l688 ---|*
08103  M01S04774.253l688 ---|*         EXIT   (ACFL) = 1.
08104  M01S04775.253l688 ---|*                PFU CALLED TO SET PF ACTIVITY COUNT.
08105  M01S04776.253l688 ---|*
08106  M01S04777.253l688 ---|*         USES   X - 3, 6.
08107  M01S04778.253l688 ---|*                A - 3, 6.
08108  M01S04779.253l688 ---|*
08109  M01S04780.253l688 ---|*         MACROS CALLPFU, MESSAGE, MOVE.
08110  M01S04781.253l688 ---|
08111  M01S04782.253l688 ---|
08112  M01S04783.253l688 ---| SAC      SUBR               ENTRY/EXIT
Line S04784 Modification History
M01 (Removed by) ns22000
M02 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
08113  M02S04784.253l688 ---|          SA3    MAEQ        SET MASTER EQUIPMENT NUMBER
Line S00280 Modification History
M01 (Added by) ns22000
M02 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
08114  M02S00280.253l688 ---|          SA3    MAEQ        SET MASTER DEVICE EST ORDINAL
Line S04785 Modification History
M01 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
08115  M01S04785.253l688 ---|          SX6    ACFL        SET ACTIVITY COUNT FLAG ADDRESS
08116  M01S04786.253l688 ---|          LX3    -12
08117  M01S04787.253l688 ---|          BX6    X3+X6       MERGE WITH FET ADDRESS
08118  M01S04788.253l688 ---|          SA6    ACFT+FTPM
08119  M01S04789.253l688 ---|          SA3    IDSA+/COMSPFS/ADM1  *K* DISPLAY MESSAGE ADDRESS
08120  M01S04790.253l688 ---|          MOVE   4,MSGE,X3   *SETTING PF ACTIVITY COUNT.*
08121  M01S04791.253l688 ---|          MESSAGE  MSGE,2,R
08122  M01S04792.253l688 ---|          CALLPFU ACFT,CTIA,R INCREMENT PF ACTIVITY COUNT
08123  M01S04793.253l688 ---|          SA3    IDSA+/COMSPFS/ADM1  *K* DISPLAY MESSAGE ADDRESS
08124  M01S04794.253l688 ---|          MOVE   4,MSGL,X3   CLEAR SETTING MESSAGE
08125  M01S04795.253l688 ---|          MESSAGE  (=C**),2,R
08126  M01S04796.253l688 ---|          EQ     SACX        RETURN
08127  M00S04797.pfdump  +++| SDI      SPACE  4,15
08128  M00S04798.pfdump  +++|**        SDI - SET DEVICE INHIBIT DATES.
08129  M00S04799.pfdump  +++|*
08130  M00S04800.pfdump  +++|*         ENTRY  DIFT = ADDRESS OF FET TO SET DEVICE INHIBIT DATES.
Line S04801 Modification History
M01 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
08131  M01S04801.253l688 ---|*                (DSDT) = DUMP START DATE/TIME.
Line S00453 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
08132  M01S00453.253l688 +++|*                (/COMSPFS/STDT) = START DATE/TIME.
Line S04802 Modification History
M01 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
08133  M01S04802.286l859 ---|*                (FSTD) = 0, IF NOT TRUE DEVICE DUMP.
08134  M01S04803.286l859 ---|*                       = DEVICE NUMBER, IF TRUE DEVICE DUMP.
Line S04804 Modification History
M01 (Removed by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08135  M01S04804.ns22000 ---|*                MSTT = FWA OF *MST* TABLE.
Line S00281 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08136  M01S00281.ns22000 +++|*                MSTT = FWA OF MST TABLE.
08137  M00S04805.pfdump  +++|*
08138  M00S04806.pfdump  +++|*         EXIT   DISK SPACE RELEASE INHIBIT DATES SET ON ALL DEVICES
Line S04807 Modification History
M01 (Removed by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08139  M01S04807.ns22000 ---|*                MARKED AS DUMP COMPLETED IN THE *MST* TABLE.
Line S00282 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08140  M01S00282.ns22000 +++|*                MARKED AS DUMP COMPLETED IN THE MST TABLE.
08141  M00S04808.pfdump  +++|*
08142  M00S04809.pfdump  +++|*         USES   X - 0, 1, 2, 3, 4, 5, 6.
08143  M00S04810.pfdump  +++|*                A - 1, 3, 4, 6.
08144  M00S04811.pfdump  +++|*                B - 2.
08145  M00S04812.pfdump  +++|*
08146  M00S04813.pfdump  +++|*         MACROS SETDI.
08147  M00S04814.pfdump  +++|
08148  M00S04815.pfdump  +++|
08149  M00S04816.pfdump  +++| SDI      SUBR               ENTRY/EXIT
08150  M00S04817.pfdump  +++|          SA1    CPAR+/COMSPFS/CPSD
Line S00454 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
08151  M01S00454.253l688 +++|          SA2    CPAR+/COMSPFS/CPIP
08152  M00S04818.pfdump  +++|          ZR     X1,SDIX     IF INHIBIT DATE SETTING NOT REQUESTED
Line S00455 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
08153  M01S00455.253l688 +++|          NZ     X2,SDIX     IF PROCESSING INHIBITED
Line S04819 Modification History
M01 (Removed by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08154  M01S04819.ns22000 ---|          SB2    MSTT        INITIALIZE *MST* TABLE POINTER
Line S00283 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08155  M01S00283.ns22000 +++|          SB2    MSTT        INITIALIZE MST TABLE POINTER
Line S04820 Modification History
M01 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
08156  M01S04820.286l859 ---| SDI1     SA1    B2+1
Line S01860 Modification History
M01 (Added by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
08157  M01S01860.286l859 +++| SDI1     SA1    B2+B1
08158  M01S01861.286l859 +++|          SA2    MASK
08159  M01S01862.286l859 +++|          MX0    -8
08160  M01S01863.286l859 +++|          BX2    X1*X2
08161  M01S01864.286l859 +++|          BX2    -X0*X2
Line S04821 Modification History
M01 (Removed by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08162  M01S04821.ns22000 ---|          ZR     X1,SDIX     IF *MST* TABLE EXHAUSTED
Line S00284 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08163  M01S00284.ns22000 +++|          ZR     X1,SDIX     IF MST TABLE EXHAUSTED
Line S04822 Modification History
M01 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
08164  M01S04822.286l859 ---|          PL     X1,SDI2     IF DEVICE NOT DUMPED
08165  M01S04823.286l859 ---|          SA3    B2+         GET DEVICE NUMBER
Line S01865 Modification History
M01 (Added by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
08166  M01S01865.286l859 +++|          ZR     X2,SDI2     IF DEVICE NOT DUMPED
08167  M01S01866.286l859 +++|          SA3    B2          GET DEVICE NUMBER
08168  M00S04824.pfdump  +++|          MX0    -6
08169  M00S04825.pfdump  +++|          BX5    -X0*X3
Line S04826 Modification History
M01 (Removed by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08170  M01S04826.ns22000 ---|          LX3    5-11        GET EQUIPMENT NUMBER
Line S00285 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08171  M01S00285.ns22000 +++|          LX3    5-11        GET EST ORDINAL
08172  M01S00286.ns22000 +++|          MX0    -9
08173  M00S04827.pfdump  +++|          BX3    -X0*X3
Line S04828 Modification History
M01 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
08174  M01S04828.253l688 ---|          SETDI  DIFT,X3,MDIT,DSDT  SET MASTER DEVICE INHIBIT DATE
Line S00456 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
08175  M01S00456.253l688 +++|          SETDI  DIFT,X3,MDIT,/COMSPFS/STDT  SET MASTER DEVICE DATE
Line S04829 Modification History
M01 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
08176  M01S04829.286l859 ---|          SA4    FSTD
Line S01867 Modification History
M01 (Added by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
08177  M01S01867.286l859 +++|          SA4    CPAR+/COMSPFS/CPTD
08178  M00S04830.pfdump  +++|          ZR     X4,SDI2     IF NOT TRUE DEVICE DUMP
08179  M00S04831.pfdump  +++|          IX4    X4-X5
08180  M00S04832.pfdump  +++|          NZ     X4,SDI2     IF NOT SPECIFIED TRUE DEVICE
08181  M00S04833.pfdump  +++|          SETDI  X2,X3,RDIT  SET RESIDENT DEVICE INHIBIT DATE
Line S04834 Modification History
M01 (Removed by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08182  M01S04834.ns22000 ---| SDI2     SB2    B2+2        INCREMENT *MST* TABLE POINTER
Line S00287 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08183  M01S00287.ns22000 +++| SDI2     SB2    B2+2        INCREMENT MST TABLE POINTER
08184  M00S04835.pfdump  +++|          EQ     SDI1        PROCESS NEXT ENTRY
08185  M00S04836.pfdump  +++| SDL      SPACE  4,10
08186  M00S04837.pfdump  +++|**        SDL - SORT DATA LIST.
08187  M00S04838.pfdump  +++|*
Line S04839 Modification History
M01 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
08188  M01S04839.286l859 ---|*         ENTRY  (B5) = NUMBER OF ENTRIES IN LIST.
08189  M01S04840.286l859 ---|*                *DLBUF* = FWA OF LIST.
Line S01868 Modification History
M01 (Added by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
08190  M01S01868.286l859 +++|*         ENTRY  (X1) = NUMBER OF ENTRIES IN LIST.
08191  M01S01869.286l859 +++|*                *DLRB* = FWA OF LIST.
08192  M00S04841.pfdump  +++|*
Line S04842 Modification History
M01 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
08193  M01S04842.286l859 ---|*         EXIT   LIST SORTED IN *DLBUF*.
Line S01870 Modification History
M01 (Added by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
08194  M01S01870.286l859 +++|*         EXIT   LIST SORTED IN *DLRB*.
08195  M00S04843.pfdump  +++|*
08196  M00S04844.pfdump  +++|*         USES   X - 0, 1, 2, 3, 4, 6.
08197  M00S04845.pfdump  +++|*                A - 1, 2, 6.
08198  M00S04846.pfdump  +++|*                B - 3, 4, 5, 6, 7.
08199  M00S04847.pfdump  +++|
08200  M00S04848.pfdump  +++|
08201  M00S04849.pfdump  +++| SDL      SUBR
08202  M00S04850.pfdump  +++|          MX0    -24
Line S04851 Modification History
M01 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
08203  M01S04851.286l859 ---|          SB6    B5          SET ITEM LIMIT
Line S01871 Modification History
M01 (Added by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
08204  M01S01871.286l859 +++|          SB6    X1          SET ITEM LIMIT
08205  M00S04852.pfdump  +++|          SB4    B0
08206  M00S04853.pfdump  +++|          SB5    B1
08207  M00S04854.pfdump  +++|          LE     B6,B5,SDLX  IF ONE OR LESS ELEMENTS - RETURN
Line S04855 Modification History
M01 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
08208  M01S04855.286l859 ---| SDL1     SA1    DLBUF+B4    GET ELEMENTS TO SORT
08209  M01S04856.286l859 ---|          SA2    DLBUF+B5
Line S01872 Modification History
M01 (Added by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
08210  M01S01872.286l859 +++| SDL1     SA1    DLRB+B4    GET ELEMENTS TO SORT
08211  M01S01873.286l859 +++|          SA2    DLRB+B5
08212  M00S04857.pfdump  +++|          UX3    B7,X1
08213  M00S04858.pfdump  +++|          UX4    B3,X2
08214  M00S04859.pfdump  +++|          BX4    -X0*X4
08215  M00S04860.pfdump  +++|          BX3    -X0*X3
08216  M00S04861.pfdump  +++|          IX3    X4-X3
08217  M00S04862.pfdump  +++|          PL     X3,SDL2     IF NO CANGE IN POSITION
08218  M00S04863.pfdump  +++|          PX6    B7,X1       CHANGE POSITIONS - RESORT
08219  M00S04864.pfdump  +++|          SA6    A2
08220  M00S04865.pfdump  +++|          PX6    B3,X2
08221  M00S04866.pfdump  +++|          SA6    A1
08222  M00S04867.pfdump  +++| SDL2     SB5    B5+B1
08223  M00S04868.pfdump  +++|          GT     B6,B5,SDL1  IF MORE ELEMENTS TO COMPARE TO BASE
08224  M00S04869.pfdump  +++|          SB4    B4+B1
08225  M00S04870.pfdump  +++|          SB5    B4+B1
08226  M00S04871.pfdump  +++|          SB7    B6-B1
08227  M00S04872.pfdump  +++|          NE     B7,B4,SDL1  IF MORE ELEMENTS TO COMPARE
08228  M00S04873.pfdump  +++|          EQ     SDLX        RETURN
Line S04874 Modification History
M01 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
08229  M01S04874.286l859 ---| SDM      SPACE  4,20
08230  M01S04875.286l859 ---|**        SDM - SEND DEVICE MESSAGES.
Line S01874 Modification History
M01 (Added by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
08231  M01S01874.286l859 +++| SDP      SPACE  4,10
08232  M01S01875.286l859 +++|**        SDP - SET DATA READ LIST PARAMETERS.
08233  M00S04876.pfdump  +++|*
Line S04877 Modification History
M01 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
08234  M01S04877.286l859 ---|*         ENTRY  (X1) = 0 IF NO MORE DEVICES.
08235  M01S04878.286l859 ---|*                     = .LT. 0 IF AN AUXILIARY DEVICE.
08236  M01S04879.286l859 ---|*                     = NEXT DEVICE NUMBER TO DUMP, OTHERWISE.
08237  M01S04880.286l859 ---|*                (SDMA) = 0 ON FIRST CALL.
08238  M01S04881.286l859 ---|*                       = VALUE OF (X1) FROM PREVIOUS CALL, OTHERWISE.
Line S01876 Modification History
M01 (Added by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
08239  M01S01876.286l859 +++|*         ENTRY  (X1) = DATA LIST ENTRY.
08240  M00S04882.pfdump  +++|*
Line S04883 Modification History
M01 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
08241  M01S04883.286l859 ---|*         EXIT   (SDMA) = (X1) FROM ENTRY.
08242  M01S04884.286l859 ---|*                END OF OLD AND START OF NEW DEVICE MESSAGES SENT.
Line S01877 Modification History
M01 (Added by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
08243  M01S01877.286l859 +++|*         EXIT   (A0) = ADDRESS OF CATALOG ENTRY.
08244  M01S01878.286l859 +++|*                (CADA) = CATALOG ENTRY DISK ADDRESS.
08245  M00S04885.pfdump  +++|*
Line S04886 Modification History
M01 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
08246  M01S04886.286l859 ---|*         USES   X - 1, 2, 3, 5, 6, 7.
08247  M01S04887.286l859 ---|*                A - 1, 2, 5, 6, 7.
08248  M01S04888.286l859 ---|*
08249  M01S04889.286l859 ---|*         CALLS  COD.
08250  M01S04890.286l859 ---|*
08251  M01S04891.286l859 ---|*         MACROS MESSAGE, MOVE.
Line S01879 Modification History
M01 (Added by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
08252  M01S01879.286l859 +++|*         USES   X - 1, 6.
08253  M01S01880.286l859 +++|*                A - 0, 6.
08254  M01S01881.286l859 +++|*                B - 2.
08255  M00S04892.pfdump  +++|
08256  M00S04893.pfdump  +++|
Line S04894 Modification History
M01 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
08257  M01S04894.286l859 ---| SDM3     MESSAGE  MSGN      SEND START OF DEVICE MESSAGE
08258  M01S04895.286l859 ---|
08259  M01S04896.286l859 ---| SDM      SUBR               ENTRY/EXIT
Line S00457 Modification History
M01 (Added by) 253l688
M02 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
08260  M02S00457.286l859 ---|          SA2    CPAR+/COMSPFS/CPIP
08261  M02S00458.286l859 ---|          NZ     X2,SDMX     IF PROCESSING INHIBITED
Line S04897 Modification History
M01 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
08262  M01S04897.286l859 ---|          SA2    SDMA        GET PREVIOUS DEVICE
08263  M01S04898.286l859 ---|          LX6    X1          SAVE NEW DEVICE
08264  M01S04899.286l859 ---|          BX3    X1-X2
08265  M01S04900.286l859 ---|          SA1    PFDB        GET FILES PROCESSED FLAG
08266  M01S04901.286l859 ---|          BX7    X7-X7       CLEAR FILES PROCESSED FLAG
08267  M01S04902.286l859 ---|          SA6    A2
08268  M01S04903.286l859 ---|          ZR     X3,SDMX     IF NO CHANGE IN DEVICE
08269  M01S04904.286l859 ---|          SA7    A1+
08270  M01S04905.286l859 ---|          ZR     X2,SDM2     IF NO PREVIOUS DEVICE
08271  M01S04906.286l859 ---|          NZ     X1,SDM1     IF FILES PROCESSED FOR PREVIOUS DEVICE
08272  M01S04907.286l859 ---|          MESSAGE  MSGQ      SEND *NO FILES PROCESSED* MESSAGE
08273  M01S04908.286l859 ---| SDM1     MESSAGE  MSGA      SEND END OF DEVICE MESSAGE
08274  M01S04909.286l859 ---|          SA5    IDSA+/COMSPFS/ADMS
08275  M01S04910.286l859 ---|          MOVE   3,MSGA,X5
08276  M01S04911.286l859 ---| SDM2     SA1    SDMA
08277  M01S04912.286l859 ---|          ZR     X1,SDMX     IF NO MORE DEVICES
08278  M01S04913.286l859 ---|          NG     X1,SDM3     IF AUXILIARY DEVICE
08279  M01S04914.286l859 ---|          RJ     COD         PUT DEVICE NUMBER IN MESSAGES
08280  M01S04915.286l859 ---|          SA1    MSGA+1
08281  M01S04916.286l859 ---|          SA2    MSGN+1
08282  M01S04917.286l859 ---|          MX3    -12
08283  M01S04918.286l859 ---|          BX6    -X3*X6
08284  M01S04919.286l859 ---|          BX1    X3*X1
08285  M01S04920.286l859 ---|          LX3    12
08286  M01S04921.286l859 ---|          BX7    X1+X6
08287  M01S04922.286l859 ---|          LX6    12
08288  M01S04923.286l859 ---|          BX2    X3*X2
08289  M01S04924.286l859 ---|          BX6    X2+X6
08290  M01S04925.286l859 ---|          SA7    A1
08291  M01S04926.286l859 ---|          SA6    A2
08292  M01S04927.286l859 ---|          EQ     SDM3        SEND START OF DEVICE MESSAGE
08293  M01S04928.286l859 ---|
08294  M01S04929.286l859 ---| SDMA     CON    0           PREVIOUS DEVICE NUMBER
Line S01882 Modification History
M01 (Added by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
08295  M01S01882.286l859 +++| SDP      SUBR               ENTRY/EXIT
08296  M01S01883.286l859 +++|          UX1,B2 X1
08297  M01S01884.286l859 +++|          SA1    DLDB+B2     GET CATALOG DISK ADDRESS
08298  M01S01885.286l859 +++|          SX6    B2
08299  M01S01886.286l859 +++|          LX6    4
08300  M01S01887.286l859 +++|          ERRNZ  NWCE-20B
08301  M01S01888.286l859 +++|          SA0    DLCB+X6     SET CATALOG ENTRY ADDRESS
08302  M01S01889.286l859 +++|          BX6    X1
08303  M01S01890.286l859 +++|          SA6    CADA        SET CATALOG ADDRESS
08304  M01S01891.286l859 +++|          EQ     SDPX        RETURN
Line S04930 Modification History
M01 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
08305  M01S04930.253l688 ---| SEI      SPACE  4,10
Line S00459 Modification History
M01 (Added by) 253l688
M02 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
08306  M02S00459.286l859 ---| SEI      SPACE  4,20
Line S04931 Modification History
M01 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
08307  M01S04931.286l859 ---|**        SEI - SET ERROR IDLE STATUS.
08308  M01S04932.286l859 ---|*
08309  M01S04933.286l859 ---|*         ENTRY  (MPEQ) = EQUIPMENT TO SET ERROR IDLE STATUS FOR.
Line S00021 Modification History
M01 (Added by) ns2209
M02 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
08310  M02S00021.286l859 ---|*                (MPTK) = TRACK.
08311  M02S00022.286l859 ---|*                (MPSC) = SECTOR.
08312  M02S00023.286l859 ---|*                (MPDN) = DEVICE NUMBER.
08313  M02S00024.286l859 ---|*                (MPFM) = FAMILY NAME OR (MPPN) = PACK NAME.
Line S04934 Modification History
M01 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
08314  M01S04934.286l859 ---|*
08315  M01S04935.286l859 ---|*         EXIT   ERROR IDLE STATUS SET FOR SPECIFIED EQUIPMENT.
08316  M01S04936.286l859 ---|*
08317  M01S04937.286l859 ---|*         USES   X - 1, 6.
08318  M01S04938.286l859 ---|*                A - 1, 6.
08319  M01S04939.286l859 ---|*                B - 6.
08320  M01S04940.286l859 ---|*
08321  M01S04941.286l859 ---|*         CALLS  SEM.
08322  M01S04942.286l859 ---|*
08323  M01S04943.286l859 ---|*         MACROS CALLPFU, EDITS.
08324  M01S04944.286l859 ---|
08325  M01S04945.286l859 ---|
08326  M01S04946.286l859 ---| SEI      SUBR               ENTRY/EXIT
08327  M01S04947.286l859 ---|          SA1    MPPN
08328  M01S04948.286l859 ---|          SB6    MSPN
08329  M01S04949.286l859 ---|          NZ     X1,SEI1     IF PACK NAME SPECIFIED
08330  M01S04950.286l859 ---|          SB6    MSFM
08331  M01S04951.286l859 ---| SEI1     EDITS  B6,MES20    BUILD *ERROR IDLE SET* MESSAGE
08332  M01S04952.286l859 ---|          SX6    B1          SET ERRLOG FLAG
08333  M01S04953.286l859 ---|          SA6    ELFG
08334  M01S04954.286l859 ---|          RJ     SEM         SEND ERROR MESSAGE
08335  M01S04955.286l859 ---|          SA1    MPEQ        SET EQUIPMENT IN PARAMETER BLOCK
08336  M01S04956.286l859 ---|          SX6    B1          SET COMPLETION STATUS
08337  M01S04957.286l859 ---|          LX1    48
08338  M01S04958.286l859 ---|          BX6    X1+X6
08339  M01S04959.286l859 ---|          SA6    SEIA
08340  M01S04960.286l859 ---|          CALLPFU  A6,CTEI,R SET ERROR IDLE STATUS
08341  M01S04961.286l859 ---|          EQ     SEIX        RETURN
08342  M01S04962.286l859 ---|
08343  M01S04963.286l859 ---| SEIA     BSS    1           *SET ERROR IDLE STATUS* PARAMETER WORD
Line S04964 Modification History
M01 (Removed by) 253l688
M02 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
08344  M02S04964.286l859 ---| SEM      SPACE  4,20
08345  M02S04965.286l859 ---|**        SEM - SEND ERROR MESSAGE.
08346  M02S04966.286l859 ---|*
08347  M02S04967.286l859 ---|*         ENTRY  (X5) = MESSAGE ADDRESS.
08348  M02S04968.286l859 ---|*                (ELFG) = 0, IF MESSAGE NOT TO BE INCLUDED IN ERRLOG.
08349  M02S04969.286l859 ---|*                       = 1, IF MESSAGE TO BE INCLUDED IN ERRLOG.
08350  M02S04970.286l859 ---|*
08351  M02S04971.286l859 ---|*         EXIT   MESSAGE SENT TO DAYFILE.
08352  M02S04972.286l859 ---|*                IF LO = E MESSAGE SENT TO OUTPUT FILE
08353  M02S04973.286l859 ---|*                IF (ELFG) = 1, MESSAGE SENT TO ERRLOG.
08354  M02S04974.286l859 ---|*                (ELFG) = 0.
08355  M02S04975.286l859 ---|*
08356  M02S04976.286l859 ---|*         USES   X - 1, 6.
08357  M02S04977.286l859 ---|*                A - 1, 6.
08358  M02S04978.286l859 ---|*
08359  M02S04979.286l859 ---|*         CALLS  BEL.
08360  M02S04980.286l859 ---|*
08361  M02S04981.286l859 ---|*         MACROS MESSAGE, WRITEC.
08362  M02S04982.286l859 ---|
08363  M02S04983.286l859 ---|
08364  M02S04984.286l859 ---| SEM      SUBR               ENTRY/EXIT
08365  M02S04985.286l859 ---|          SA1    CPAR+/COMSPFS/CPLO
08366  M02S04986.286l859 ---|          LX1    2
08367  M02S04987.286l859 ---|          PL     X1,SEM1     IF LO = E NOT SPECIFIED
08368  M02S04988.286l859 ---|          WRITEC OUTPUT,X5   PRINT ERROR MESSAGE
08369  M02S04989.286l859 ---| SEM1     MESSAGE  X5
08370  M02S04990.286l859 ---|          SA1    ELFG
08371  M02S04991.286l859 ---|          ZR     X1,SEM2     IF ERRLOG ENTRY NOT DESIRED
08372  M02S04992.286l859 ---|          RJ     BEL         BUILD ERRLOG MESSAGE
08373  M02S04993.286l859 ---|          MESSAGE  X5,4
08374  M02S04994.286l859 ---|          BX6    X6-X6       CLEAR ERRLOG FLAG
08375  M02S04995.286l859 ---|          SA6    ELFG
08376  M02S04996.286l859 ---| SEM2     SX6    B1+         SET *CHECK DAYFILE* FLAG
08377  M02S04997.286l859 ---|          SA6    SEMA
08378  M02S04998.286l859 ---|          EQ     SEMX        RETURN
08379  M02S04999.286l859 ---|
08380  M02S05000.286l859 ---| SEMA     CON    0
08381  M02S05001.286l859 ---| ELFG     BSSZ   1           ERRLOG FLAG
Line S05002 Modification History
M01 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
08382  M01S05002.286l859 ---| SFD      SPACE  4,20
08383  M01S05003.286l859 ---|**        SFD - SKIP FILE DATA.
08384  M01S05004.286l859 ---|*
08385  M01S05005.286l859 ---|*         ENTRY  DATA FILE POSITIONED FOR NEXT CONTROL WORD.
08386  M01S05006.286l859 ---|*
08387  M01S05007.286l859 ---|*         EXIT   DATA FILE POSITIONED FOR CONTROL WORD FOR NEXT
08388  M01S05008.286l859 ---|*                PERMANENT FILE.
08389  M01S05009.286l859 ---|*
08390  M01S05010.286l859 ---|*         USES   X - 1, 6, 7.
08391  M01S05011.286l859 ---|*                A - 1.
08392  M01S05012.286l859 ---|*                B - 5.
08393  M01S05013.286l859 ---|*
08394  M01S05014.286l859 ---|*         CALLS  RPR.
08395  M01S05015.286l859 ---|
08396  M01S05016.286l859 ---|
08397  M01S05017.286l859 ---| SFD      SUBR               ENTRY/EXIT
08398  M01S05018.286l859 ---| SFD1     SB5    B1          READ DATA BLOCK
08399  M01S05019.286l859 ---|          RJ     RPR
08400  M01S05020.286l859 ---|          SA1    DBUFH       CHECK FOR END OF FILE
08401  M01S05021.286l859 ---|          MX7    -24
08402  M01S05022.286l859 ---|          BX6    -X7*X1
08403  M01S05023.286l859 ---|          LX1    59-48
08404  M01S05024.286l859 ---|          ZR     X6,SFDX     IF EOI SECTOR
08405  M01S05025.286l859 ---|          PL     X1,SFD1     IF NOT FATAL ERROR
08406  M01S05026.286l859 ---|          EQ     SFDX        RETURN
08407  M01S05027.286l859 ---| SND      SPACE  4,45
08408  M01S05028.286l859 ---|**        SND - SET NEXT DEVICE.
08409  M01S05029.286l859 ---|*
08410  M01S05030.286l859 ---|*         ENTRY  (SNDA) = 0 IF FIRST CALL.
08411  M01S05031.286l859 ---|*                       = NEXT MASS STORAGE TABLE ADDRESS, OTHERWISE.
08412  M01S05032.286l859 ---|*                (FSNM) = NON-MASTER DEVICE FILE SELECTION PARAMETER.
08413  M01S05033.286l859 ---|*                (FSTD) = TRUE DEVICE FILE SELECTION PARAMETER.
08414  M01S05034.286l859 ---|*                (FSSD) = SINGLE DEVICE SELECTION PARAMETER.
08415  M01S05035.286l859 ---|*                (MSSF) = 0, IF NOT *MSS* ENVIRONMENT.
08416  M01S05036.286l859 ---|*                       = 1, IF *MSS* ENVIRONMENT.
08417  M01S05037.286l859 ---|*                (RDFE) = 1, IF *RDF* EXTRACT RECORD WAS WRITTEN.
08418  M01S05038.286l859 ---|*                MSTT = FWA OF MASS STORAGE TABLE.
08419  M01S05039.286l859 ---|*                CATALOG TRACK INTERLOCK SET, IF NOT FIRST CALL.
08420  M01S05040.286l859 ---|*
08421  M01S05041.286l859 ---|*         EXIT   (X1) = 0 IF NO MORE DEVICES TO PROCESS.
08422  M01S05042.286l859 ---|*                     = -1 IF AN AUXILIARY DEVICE TO PROCESS.
08423  M01S05043.286l859 ---|*                     = NEXT DEVICE NUMBER FOR DAYFILE MESSAGES IF
08424  M01S05044.286l859 ---|*                       ANOTHER FAMILY DEVICE TO PROCESS.
08425  M01S05045.286l859 ---|*                (SNDA) = NEXT MASS STORAGE TABLE ADDRESS.
08426  M01S05046.286l859 ---|*                (CMSK) = *MSS* SUBFAMILY CONTROL WORD = DEVICE MASK.
08427  M01S05047.286l859 ---|*                (FSNM) = (FSTD), IF NOT FIRST CALL AND (FSNM) WAS NOT
08428  M01S05048.286l859 ---|*                         PREVIOUSLY SPECIFIED.
08429  M01S05049.286l859 ---|*                (MDDS) = MASTER DEVICE DESCRIPTION.
08430  M01S05050.286l859 ---|*                (PDUI) = CATALOG DESCRIPTION USER INDEX.
Line S05051 Modification History
M01 (Removed by) ns22000
M02 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
08431  M02S05051.286l859 ---|*                (MAEQ) = MASTER EQUIPMENT NUMBER.
Line S00288 Modification History
M01 (Added by) ns22000
M02 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
08432  M02S00288.286l859 ---|*                (MAEQ) = MASTER DEVICE EST ORDINAL.
Line S05052 Modification History
M01 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
08433  M01S05052.286l859 ---|*                (NCAT) = NUMBER OF CATALOG TRACKS.
08434  M01S05053.286l859 ---|*                (CFMT) = 0, IF  8 WORD CATALOG ENTRY FORMAT.
08435  M01S05054.286l859 ---|*                       = 1, IF 16 WORD CATALOG ENTRY FORMAT.
08436  M01S05055.286l859 ---|*                (CPAR+/COMSPFS/CPDN) = MASTER DEVICE NUMBER.
Line S05056 Modification History
M01 (Removed by) ns22000
M02 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
08437  M02S05056.286l859 ---|*                DEVICE DUMP COMPLETION BIT SET IN *MST* TABLE
Line S00289 Modification History
M01 (Added by) ns22000
M02 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
08438  M02S00289.286l859 ---|*                DEVICE DUMP COMPLETION BIT SET IN MST TABLE
Line S05057 Modification History
M01 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
08439  M01S05057.286l859 ---|*                  FOR PREVIOUS DEVICE, IF NOT FIRST CALL.
08440  M01S05058.286l859 ---|*                DUMP SYSTEM FILES INITIALIZED.
08441  M01S05059.286l859 ---|*                CATALOG TRACK INTERLOCK SET ON NEW DEVICE.
08442  M01S05060.286l859 ---|*                PF ACTIVITY COUNT ON PREVIOUS DEVICE IS DECREMENTED.
08443  M01S05061.286l859 ---|*                PF ACTIVITY COUNT IS INCREMENTED ON NEXT DEVICE.
08444  M01S05062.286l859 ---|*
08445  M01S05063.286l859 ---|*         USES   X - 1, 2, 3, 6, 7.
08446  M01S05064.286l859 ---|*                A - 1, 2, 6, 7.
08447  M01S05065.286l859 ---|*                B - 2, 3.
08448  M01S05066.286l859 ---|*
Line S05067 Modification History
M01 (Removed by) ns21000
M02 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
08449  M02S05067.286l859 ---|*         CALLS  CAC, GRC, OPN, RLF, SAC.
Line S00029 Modification History
M01 (Added by) ns21000
M02 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
08450  M02S00029.286l859 ---|*         CALLS  CAC, GLF, GRC, OPN, RLF, SAC.
Line S05068 Modification History
M01 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
08451  M01S05068.286l859 ---|*
08452  M01S05069.286l859 ---|*         MACROS PCINT, WRITER.
08453  M01S05070.286l859 ---|
08454  M01S05071.286l859 ---|
08455  M01S05072.286l859 ---| SND6     SX1    B0+         CLEAR NEXT DEVICE FLAG
08456  M01S05073.286l859 ---|
08457  M01S05074.286l859 ---| SND      SUBR               ENTRY/EXIT
08458  M01S05075.286l859 ---|          SA1    SNDA        SET ADDRESS OF MASS STORAGE TABLE
08459  M01S05076.286l859 ---|          SB2    MSTT
08460  M01S05077.286l859 ---|          ZR     X1,SND3     IF FIRST CALL
08461  M01S05078.286l859 ---|          SA2    FSNM
08462  M01S05079.286l859 ---|          NZ     X2,SND1     IF NON-MASTER DEVICE SELECTED
08463  M01S05080.286l859 ---|          SA1    FSTD        USE TRUE DEVICE SELECTION
08464  M01S05081.286l859 ---|          BX6    X1
08465  M01S05082.286l859 ---|          SA6    A2
08466  M01S05083.286l859 ---|
08467  M01S05084.286l859 ---|*         SET DEVICE DUMP COMPLETION BIT.
08468  M01S05085.286l859 ---|
Line S05086 Modification History
M01 (Removed by) ns22000
M02 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
08469  M02S05086.286l859 ---| SND1     SA1    SNDA        GET LAST WORD OF PREVIOUS *MST* ENTRY
Line S00290 Modification History
M01 (Added by) ns22000
M02 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
08470  M02S00290.286l859 ---| SND1     SA1    SNDA        GET LAST WORD OF PREVIOUS MST ENTRY
Line S05087 Modification History
M01 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
08471  M01S05087.286l859 ---|          SA1    X1-1
08472  M01S05088.286l859 ---|          MX6    1           SET DUMP COMPLETION BIT
08473  M01S05089.286l859 ---|          BX6    X6+X1
08474  M01S05090.286l859 ---|          SA6    A1+
08475  M01S05091.286l859 ---|          SA1    RDFE
08476  M01S05092.286l859 ---|          ZR     X1,SND2     IF NO *RDF* EXTRACTS WRITTEN
08477  M01S05093.286l859 ---|          BX6    X6-X6       CLEAR EXTRACT WRITTEN FLAG
08478  M01S05094.286l859 ---|          SA6    A1
08479  M01S05095.286l859 ---|          WRITER RDF,R       TERMINATE SERIES OF *RDF* DEVICE EXTRACTS
08480  M01S05096.286l859 ---| SND2     RJ     GRC         GENERATE *RDF* CATALOG RECORDS
08481  M01S05097.286l859 ---|          RJ     RLF         RELEASE LOCK FILES
08482  M01S05098.286l859 ---|          RJ     CAC         CLEAR PF ACTIVITY COUNT
08483  M01S05099.286l859 ---|          SA1    FSSD
08484  M01S05100.286l859 ---|          NZ     X1,SND6     IF SINGLE DEVICE DUMP
08485  M01S05101.286l859 ---|          SA1    SNDA        INITIALIZE MASS STORAGE TABLE INDEX
08486  M01S05102.286l859 ---|          SB2    X1+
08487  M01S05103.286l859 ---|
08488  M01S05104.286l859 ---|*         DETERMINE NEXT DEVICE.
08489  M01S05105.286l859 ---|
08490  M01S05106.286l859 ---|**        NOTE - IF DUMP IS LIMITED TO EITHER A SINGLE DEVICE
08491  M01S05107.286l859 ---|*                OR A SINGLE USER INDEX, THE *PRESET* PROGRAM
08492  M01S05108.286l859 ---|*                HAS INSURED THAT THE RESPECTIVE DEVICE WILL BE
08493  M01S05109.286l859 ---|*                THE FIRST ENTRY IN *MSTT*.
08494  M01S05110.286l859 ---|
08495  M01S05111.286l859 ---| SND3     SA1    B2          GET MASS STORAGE TABLE ENTRY
08496  M01S05112.286l859 ---|          SA2    B2+B1
08497  M01S05113.286l859 ---|          ZR     X1,SND6     IF END OF MASS STORAGE TABLE
08498  M01S05114.286l859 ---|          MX6    -8          GET DEVICE MASK
08499  M01S05115.286l859 ---|          BX3    -X6*X2
08500  M01S05116.286l859 ---|          BX7    X3          SET *MSS* SUBFAMILY CONTROL MASK
08501  M01S05117.286l859 ---|          MX6    -1          GET CATALOG ENTRY FORMAT CODE
08502  M01S05118.286l859 ---|          SA7    CMSK
08503  M01S05119.286l859 ---|          LX2    0-17
08504  M01S05120.286l859 ---|          BX7    -X6*X2
08505  M01S05121.286l859 ---|          SA7    CFMT        SAVE FORMAT CODE
08506  M01S05122.286l859 ---|          SB2    A2+B1       ADVANCE MASS STORAGE TABLE ADDRESS
08507  M01S05123.286l859 ---|          SX7    A2+B1
08508  M01S05124.286l859 ---|          ZR     X3,SND3     IF NOT A MASTER DEVICE
08509  M01S05125.286l859 ---|          SA2    CPAR+/COMSPFS/CPUI
08510  M01S05126.286l859 ---|          BX6    X1          SET MASTER DEVICE DESCRIPTION
08511  M01S05127.286l859 ---|          NZ     X2,SND5     IF USER INDEX SPECIFIED
08512  M01S05128.286l859 ---|          SX2    -B1
08513  M01S05129.286l859 ---| SND4     LX3    -1          POSITION NEXT MASK BIT
08514  M01S05130.286l859 ---|          SX2    X2+B1       ADVANCE USER INDEX
08515  M01S05131.286l859 ---|          PL     X3,SND4     IF MASK BIT NOT SET
08516  M01S05132.286l859 ---|
08517  M01S05133.286l859 ---|*         INITIALIZE TO PROCESS SELECTED DEVICE.
08518  M01S05134.286l859 ---|
08519  M01S05135.286l859 ---| SND5     SA7    SNDA        SAVE MASS STORAGE TABLE ADDRESS
08520  M01S05136.286l859 ---|          SA6    MDDS
08521  M01S05137.286l859 ---|          BX7    X2          SET CATALOG DESCRIPTION USER INDEX
08522  M01S05138.286l859 ---|          MX3    -6
08523  M01S05139.286l859 ---|          BX6    -X3*X1      SET MASTER DEVICE NUMBER
Line S05140 Modification History
M01 (Removed by) ns22000
M02 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
08524  M02S05140.286l859 ---|          LX1    -6          SET MASTER EQUIPMENT NUMBER
Line S00291 Modification History
M01 (Added by) ns22000
M02 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
08525  M02S00291.286l859 ---|          LX1    -6          SET MASTER DEVICE EST ORDINAL
Line S05141 Modification History
M01 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
08526  M01S05141.286l859 ---|          SA7    PDUI
08527  M01S05142.286l859 ---|          SA6    CPAR+/COMSPFS/CPDN
Line S00292 Modification History
M01 (Added by) ns22000
M02 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
08528  M02S00292.286l859 ---|          MX3    -9
Line S05143 Modification History
M01 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
08529  M01S05143.286l859 ---|          BX7    -X3*X1
Line S05144 Modification History
M01 (Removed by) 253l688
M02 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
08530  M02S05144.286l859 ---|          SA6    SGDN
Line S05145 Modification History
M01 (Removed by) ns22000
M02 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
08531  M02S05145.286l859 ---|          LX1    -6          SET NUMBER OF CATALOG TRACKS
08532  M02S05146.286l859 ---|          MX3    -12
Line S00293 Modification History
M01 (Added by) ns22000
M02 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
08533  M02S00293.286l859 ---|          LX1    -9          POSITION CATALOG TRACKS
Line S05147 Modification History
M01 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
08534  M01S05147.286l859 ---|          BX6    -X3*X1
08535  M01S05148.286l859 ---|          SA7    MAEQ
08536  M01S05149.286l859 ---|          SA6    NCAT
08537  M01S05150.286l859 ---|          RJ     SAC         SET PF ACTIVITY COUNT
08538  M01S05151.286l859 ---|          RJ     OPN         INITIALIZE DUMP SYSTEM FILES
Line S00030 Modification History
M01 (Added by) ns21000
M02 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
08539  M02S00030.286l859 ---|          RJ     GLF         GET LOCK FILES
Line S05152 Modification History
M01 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
08540  M01S05152.286l859 ---|
08541  M01S05153.286l859 ---|*         SET CATALOG TRACK INTERLOCK.
08542  M01S05154.286l859 ---|
08543  M01S05155.286l859 ---|          PCINT  CATS,CTSC   SET CATALOG TRACK INTERLOCK
08544  M01S05156.286l859 ---|          SA1    FSNM
08545  M01S05157.286l859 ---|          NZ     X1,SNDX     IF NON-MASTER DEVICE
08546  M01S05158.286l859 ---|          SA1    CPAR+/COMSPFS/CPDN
08547  M01S05159.286l859 ---|          NZ     X1,SNDX     IF NOT AN AUXILIARY DEVICE
08548  M01S05160.286l859 ---|          SX1    -B1         SET AUXILIARY DEVICE FLAG
08549  M01S05161.286l859 ---|          EQ     SNDX        RETURN
08550  M01S05162.286l859 ---|
Line S00460 Modification History
M01 (Added by) 253l688
M02 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
08551  M02S00460.286l859 ---|
Line S05163 Modification History
M01 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
08552  M01S05163.286l859 ---| SNDA     CON    0           MASS STORAGE TABLE ADDRESS
Line S00045 Modification History
M01 (Added by) 241l630
M02 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
08553  M02S00045.253l688 ---| SRS      SPACE  4,10
Line S00461 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
08554  M01S00461.253l688 +++| SRS      SPACE  4,15
Line S00046 Modification History
M01 (Added by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
08555  M01S00046.241l630 +++|**        SRS - SELECT RIGHT SCREEN.
08556  M01S00047.241l630 +++|*
08557  M01S00048.241l630 +++|*         *SRS* REPLACES THE CURRENT RIGHT SCREEN WITH THE REQUESTED
08558  M01S00049.241l630 +++|*         ONE AND ALERTS THE OPERATOR TO ENTER AN OPTION.
08559  M01S00050.241l630 +++|*
08560  M01S00051.241l630 +++|*         ENTRY  (X6) = FWA OF THE REQUESTED RIGHT SCREEN BUFFER.
08561  M01S00052.241l630 +++|*
08562  M01S00053.241l630 +++|*         USES   X - 0, 5, 6.
08563  M01S00054.241l630 +++|*                A - 5, 6.
08564  M01S00055.241l630 +++|*
08565  M01S00056.241l630 +++|*         MACROS MOVE.
08566  M01S00057.241l630 +++|
08567  M01S00058.241l630 +++|
08568  M01S00059.241l630 +++| SRS      SUBR               ENTRY/EXIT
08569  M01S00060.241l630 +++|          SA5    IDSA+/COMSPFS/KDCW  CHANGE *K* DISPLAY CONTROL WORD
08570  M01S00061.241l630 +++|          MX0    42
08571  M01S00062.241l630 +++|          LX6    18
08572  M01S00063.241l630 +++|          LX0    18
08573  M01S00064.241l630 +++|          BX5    X0*X5
08574  M01S00065.241l630 +++|          BX6    X5+X6
08575  M01S00066.241l630 +++|          SA6    A5
08576  M01S00067.241l630 +++|          SA5    IDSA+/COMSPFS/ADER  ALERT THE OPERATOR
08577  M01S00068.241l630 +++|          MOVE   4,MSGI,X5
08578  M01S00069.241l630 +++|          EQ     SRSX        RETURN
Line S00462 Modification History
M01 (Added by) 253l688
M02 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
08579  M02S00462.286l859 ---| SSM      SPACE  4,15
08580  M02S00463.286l859 ---|**        SSM - SEND FILE STAGE ERROR MESSAGE.
Line S01892 Modification History
M01 (Added by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
08581  M01S01892.286l859 +++| STL      SPACE  4,15
08582  M01S01893.286l859 +++|**        STL - SORT TAPE COPY LIST.
Line S00464 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
08583  M01S00464.253l688 +++|*
Line S00465 Modification History
M01 (Added by) 253l688
M02 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
08584  M02S00465.286l859 ---|*         ENTRY  (B3) = CATALOG ADDRESS.
Line S01894 Modification History
M01 (Added by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
08585  M01S01894.286l859 +++|*         ENTRY  REQUEST FILE *TC* AT BOI.
Line S00466 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
08586  M01S00466.253l688 +++|*
Line S00467 Modification History
M01 (Added by) 253l688
M02 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
08587  M02S00467.286l859 ---|*         EXIT   ERROR MESSAGE ISSUED IF PROCESSING NOT INHIBITED.
Line S01895 Modification History
M01 (Added by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
08588  M01S01895.286l859 +++|*         EXIT   SORTED REQUESTS ON FILE *S3*.
Line S00468 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
08589  M01S00468.253l688 +++|*
Line S00469 Modification History
M01 (Added by) 253l688
M02 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
08590  M02S00469.286l859 ---|*         USES   X - 0, 1, 2, 5, 6, 7.
08591  M02S00470.286l859 ---|*                A - 1, 2, 6, 7.
Line S01896 Modification History
M01 (Added by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
08592  M01S01896.286l859 +++|*         USES   X - 0, 1, 5, 6.
08593  M01S01897.286l859 +++|*                A - 0, 5.
08594  M01S01898.286l859 +++|*                B - 4, 5.
Line S00471 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
08595  M01S00471.253l688 +++|*
Line S00472 Modification History
M01 (Added by) 253l688
M02 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
08596  M02S00472.286l859 ---|*         CALLS  SEM.
Line S01899 Modification History
M01 (Added by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
08597  M01S01899.286l859 +++|*         CALLS  MSF, ISF, WSB.
Line S00473 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
08598  M01S00473.253l688 +++|*
Line S00474 Modification History
M01 (Added by) 253l688
M02 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
08599  M02S00474.286l859 ---|*         MACROS EDITS.
Line S01900 Modification History
M01 (Added by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
08600  M01S01900.286l859 +++|*         MACROS READ, READW, WRITER.
Line S00475 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
08601  M01S00475.253l688 +++|
08602  M01S00476.253l688 +++|
Line S00477 Modification History
M01 (Added by) 253l688
M02 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
08603  M02S00477.286l859 ---| SSM      SUBR               ENTRY/EXIT
08604  M02S00478.286l859 ---|          SA2    CPAR+/COMSPFS/CPIP
08605  M02S00479.286l859 ---|          SA1    B3+FCFN     SET FILE NAME
08606  M02S00480.286l859 ---|          NZ     X2,SSMX     IF PROCESSING INHIBITED
08607  M02S00481.286l859 ---|          SX5    MES22       * UNABLE TO STAGE FILE.*
08608  M02S00482.286l859 ---|          MX0    42
08609  M02S00483.286l859 ---|          BX6    X0*X1
08610  M02S00484.286l859 ---|          BX7    -X0*X1      SET USER INDEX
08611  M02S00485.286l859 ---|          SA6    MPFN
08612  M02S00486.286l859 ---|          SA7    MPUI
08613  M02S00487.286l859 ---|          SA1    MAEQ        SET EST ORDINAL
08614  M02S00488.286l859 ---|          SA2    CPAR+/COMSPFS/CPDN  SET DEVICE NUMBER
08615  M02S00489.286l859 ---|          BX6    X1
08616  M02S00490.286l859 ---|          SA6    MPEQ
08617  M02S00491.286l859 ---|          BX6    X2
08618  M02S00492.286l859 ---|          SA6    MPDN
08619  M02S00493.286l859 ---|          EDITS  MSFN,X5     BUILD ERROR MESSAGE
08620  M02S00494.286l859 ---|          RJ     SEM         SEND ERROR MESSAGE
08621  M02S00495.286l859 ---|          EQ     SSMX        RETURN
Line S05164 Modification History
M01 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
08622  M01S05164.286l859 ---| TAF      SPACE  4,20
08623  M01S05165.286l859 ---|**        TAF - TERMINATE ARCHIVE FILE.
Line S01901 Modification History
M01 (Added by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
08624  M01S01901.286l859 +++| STL      SUBR               ENTRY/EXIT
08625  M01S01902.286l859 +++|          READ   TC
08626  M01S01903.286l859 +++|          RJ     ISF         INITIALIZE SORT FILES
08627  M01S01904.286l859 +++| STL1     READW  TC,SRTB,SBTCL
08628  M01S01905.286l859 +++|          SB7    B7-SBTCL
08629  M01S01906.286l859 +++|          ZR     B7,STL2     IF END OF ENTRIES
08630  M01S01907.286l859 +++|          MX0    60          SET SORT KEY MASK
08631  M01S01908.286l859 +++|          SX1    B1          SET SORT KEY LENGTH
08632  M01S01909.286l859 +++|          SB4    1           SET KEY OFFSET
08633  M01S01910.286l859 +++|          SB5    TCRQL       SET ENTRY LENGTH
08634  M01S01911.286l859 +++|          RJ     WSB         WRITE SORTED ENTRIES TO FILE
08635  M01S01912.286l859 +++|          EQ     STL1        READ NEXT BUFFER OF ENTRIES
08636  M01S01913.286l859 +++|
08637  M01S01914.286l859 +++| STL2     WRITER S1          FLUSH BUFFER
08638  M01S01915.286l859 +++|          WRITER S2          FLUSH BUFFER
08639  M01S01916.286l859 +++|          SX0    TCRQL       SET ENTRY LENGTH
08640  M01S01917.286l859 +++|          SX1    SBTCC       SET FULL BLOCK ENTRY COUNT
08641  M01S01918.286l859 +++|          MX2    60          SET KEY MASK
08642  M01S01919.286l859 +++|          SB4    B0          SET KEY OFFSET
08643  M01S01920.286l859 +++|          SB5    1           SET KEY LENGTH
08644  M01S01921.286l859 +++|          SA0    SW1B        SET WORKING BUFFER 1 ADDRESS
08645  M01S01922.286l859 +++|          SA5    SW2B        SET WORKING BUFFER 2 ADDRESS
08646  M01S01923.286l859 +++|          RJ     MSF         MERGE SORT FILES
08647  M01S01924.286l859 +++|          EQ     STLX        RETURN
08648  M01S01925.286l859 +++| TER      SPACE  4,15
08649  M01S01926.286l859 +++|**        TER - TERMINATE ARCHIVE FILE AND RETURN SYSTEM FILES.
08650  M00S05166.pfdump  +++|*
Line S05167 Modification History
M01 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
08651  M01S05167.286l859 ---|*                *TAF* TERMINATES THE ARCHIVE FILE(S) WITH AN END OF
08652  M01S05168.286l859 ---|*         DUMP CONTROL WORD IF THE OPEN ARCHIVE FILE FLAG IS SET AND
08653  M01S05169.286l859 ---|*         CLEARS THE ERROR STATUS ( IF ANY ) FROM THE
08654  M01S05170.286l859 ---|*         FET(S) BEFORE THE RETURN OPERATION TO GUARANTEE PROPER
08655  M01S05171.286l859 ---|*         RESULTS DURING ABORT END PROCESSING.
Line S01927 Modification History
M01 (Added by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
08656  M01S01927.286l859 +++|*         EXIT   END OF DUMP RECORD AND EOF WRITTEN TO ARCHIVE AND
08657  M01S01928.286l859 +++|*                  VERIFY FILES.
08658  M01S01929.286l859 +++|*                SYSTEM FILES RETURNED.
08659  M01S01930.286l859 +++|*                PERMANENT FILE PARAMETERS RESTORED TO ENTRY VALUES.
08660  M00S05172.pfdump  +++|*
Line S05173 Modification History
M01 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
08661  M01S05173.286l859 ---|*         ENTRY  (TAFA) = 0 IF ARCHIVE FILE CLOSED (NO END OF DUMP
08662  M01S05174.286l859 ---|*                         CONTROL WORD REQUIRED).
08663  M01S05175.286l859 ---|*                       = 1 IF ARCHIVE FILE OPEN (END OF DUMP CONTROL
08664  M01S05176.286l859 ---|*                         WORD REQUIRED).
Line S01931 Modification History
M01 (Added by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
08665  M01S01931.286l859 +++|*         USES   X - 7.
08666  M01S01932.286l859 +++|*                A - 7.
08667  M00S05177.pfdump  +++|*
Line S05178 Modification History
M01 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
08668  M01S05178.286l859 ---|*         EXIT   (TAFA) = 0.
Line S01933 Modification History
M01 (Added by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
08669  M01S01933.286l859 +++|*         CALLS  FAF.
08670  M00S05179.pfdump  +++|*
Line S05180 Modification History
M01 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
08671  M01S05180.286l859 ---|*         USES   X - 1, 3, 6, 7.
08672  M01S05181.286l859 ---|*                A - 1, 6, 7.
08673  M01S05182.286l859 ---|*
08674  M01S05183.286l859 ---|*         MACROS ARCHIVE, RECALL.
Line S01934 Modification History
M01 (Added by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
08675  M01S01934.286l859 +++|*         MACROS ARCHIVE, RETURN, SETPFP.
08676  M00S05184.pfdump  +++|
08677  M00S05185.pfdump  +++|
Line S05186 Modification History
M01 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
08678  M01S05186.286l859 ---| TAF      SUBR               ENTRY/EXIT
08679  M01S05187.286l859 ---|          SA1    TAFA
08680  M01S05188.286l859 ---|          ZR     X1,TAF1     IF ARCHIVE FILE CLOSED
08681  M01S05189.286l859 ---|          BX6    X6-X6       CLEAR OPEN ARCHIVE FILE FLAG
08682  M01S05190.286l859 ---|          SA6    A1
Line S01935 Modification History
M01 (Added by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
08683  M01S01935.286l859 +++| TER      SUBR               ENTRY/EXIT
08684  M01S01936.286l859 +++|          SA1    CPAR+/COMSPFS/CPIP
08685  M01S01937.286l859 +++|          NZ     X1,TER1     IF PROCESSING INHIBITED
08686  M00S05191.pfdump  +++|          SX7    EODC        WRITE END OF DUMP CONTROL WORD
08687  M00S05192.pfdump  +++|          SA7    CONTH
08688  M00S05193.pfdump  +++|          ARCHIVE  WRITEW,CONTH,B1
08689  M00S05194.pfdump  +++|          ARCHIVE  WRITER
08690  M00S05195.pfdump  +++|          ARCHIVE  WRITEF    WRITE EOF ON ARCHIVE FILE
Line S05196 Modification History
M01 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
08691  M01S05196.286l859 ---|          ARCHIVE  FLUSH     FLUSH ARCHIVE FILE BUFFER
08692  M01S05197.286l859 ---| TAF1     RECALL TAPE
08693  M01S05198.286l859 ---|          SA1    X2          CLEAR ERROR STATUS
08694  M01S05199.286l859 ---|          SX3    36000B
08695  M01S05200.286l859 ---|          BX6    -X3*X1
08696  M01S05201.286l859 ---|          SA6    X2
08697  M01S05202.286l859 ---|          SA1    CPAR+/COMSPFS/CPVF
08698  M01S05203.286l859 ---|          ZR     X1,TAFX     IF NO VERIFY FILE SPECIFIED
08699  M01S05204.286l859 ---|          RECALL PFVER
08700  M01S05205.286l859 ---|          SA1    X2          CLEAR ERROR STATUS
08701  M01S05206.286l859 ---|          SX3    36000B
08702  M01S05207.286l859 ---|          BX6    -X3*X1
08703  M01S05208.286l859 ---|          SA6    X2
08704  M01S05209.286l859 ---|          EQ     TAFX        RETURN
08705  M01S05210.286l859 ---|
08706  M01S05211.286l859 ---| TAFA     CON    0           ARCHIVE FILE CLOSED(0)/OPEN(1) FLAG
Line S05212 Modification History
M01 (Removed by) 253l688
M02 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
08707  M02S05212.286l859 ---| WDB      SPACE  4,20
Line S00496 Modification History
M01 (Added by) 253l688
M02 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
08708  M02S00496.286l859 ---| UCE      SPACE  4,25
Line S01938 Modification History
M01 (Added by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
08709  M01S01938.286l859 +++|          RJ     FAF         FLUSH ARCHIVE FILE BUFFERS
08710  M01S01939.286l859 +++|          RETURN REQS
08711  M01S01940.286l859 +++|          RETURN RESS
08712  M01S01941.286l859 +++|          RETURN TC
08713  M01S01942.286l859 +++| TER1     SETPFP GPAR        RESTORE PERMANENT FILE PARAMETERS
08714  M01S01943.286l859 +++|          EQ     TERX        RETURN
08715  M01S01944.286l859 +++| UCE      SPACE  4,20
Line S00497 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
08716  M01S00497.253l688 +++|**        UCE - UPDATE CATALOG ENTRY.
08717  M01S00498.253l688 +++|*
08718  M01S00499.253l688 +++|*         ENTRY  (B2) = *PFU* FUNCTION CODE.
Line S00500 Modification History
M01 (Added by) 253l688
M02 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
08719  M02S00500.286l859 ---|*                (B3) = ADDRESS OF READ/WRITE ERROR MESSAGE.
08720  M02S00501.286l859 ---|*                (B4) = ADDRESS OF VERIFY ERROR MESSAGE.
08721  M02S00502.286l859 ---|*                (CBIN) = CATALOG BUFFER RANDOM INDEX FOR AFFECTED
08722  M02S00503.286l859 ---|*                         CATALOG ENTRY.
Line S01945 Modification History
M01 (Added by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
08723  M01S01945.286l859 +++|*                (CADA) = CATALOG ENTRY DISK ADDRESS IN *PFM* FORMAT.
Line S00074 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
08724  M01S00074.274l797 +++|*                (FLOK) = *AFLOK*/*TFLOK* SELECTION FLAG.
Line S01946 Modification History
M01 (Added by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
08725  M01S01946.286l859 +++|*                CATALOG ENTRY IN *CATH*.
Line S00504 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
08726  M01S00504.253l688 +++|*                CATALOG TRACK INTERLOCKED.
08727  M01S00505.253l688 +++|*
08728  M01S00506.253l688 +++|*         EXIT   *PFU* CALLED TO UPDATE PFC ENTRY.
Line S00507 Modification History
M01 (Added by) 253l688
M02 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
08729  M02S00507.286l859 ---|*                DEVICE ERROR IDLE SET, IF UTILITY CONTROL DATE/TIME
08730  M02S00508.286l859 ---|*                  UPDATE VERIFICATION ERROR OCCURS.
Line S00509 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
08731  M01S00509.253l688 +++|*                DEVICE ERROR IDLE SET, IF WRITE ERROR ON CATALOG
08732  M01S00510.253l688 +++|*                  FILE AND DATA ON THE FILE HAS BEEN CORRUPTED.
Line S01947 Modification History
M01 (Added by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
08733  M01S01947.286l859 +++|*                CATALOG TRACK INTERLOCKED.
Line S00511 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
08734  M01S00511.253l688 +++|*
08735  M01S00512.253l688 +++|*         USES   X - 0, 1, 2, 3, 6, 7.
08736  M01S00513.253l688 +++|*                A - 1, 3, 6, 7.
08737  M01S00514.253l688 +++|*
Line S00515 Modification History
M01 (Added by) 253l688
M02 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
08738  M02S00515.286l859 ---|*         CALLS  SEM, SEI.
Line S01948 Modification History
M01 (Added by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
08739  M01S01948.286l859 +++|*         CALLS  SEI, SFE.
Line S00516 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
08740  M01S00516.253l688 +++|*
Line S00517 Modification History
M01 (Added by) 253l688
M02 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
08741  M02S00517.286l859 ---|*         MACROS CALLPFU, EDITS.
Line S01949 Modification History
M01 (Added by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
08742  M01S01949.286l859 +++|*         MACROS CALLPFU.
Line S00518 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
08743  M01S00518.253l688 +++|
08744  M01S00519.253l688 +++|
08745  M01S00520.253l688 +++| UCE      SUBR               ENTRY/EXIT
08746  M01S00521.253l688 +++|          SA1    CATH+FCFN+FCUI*  SET FILE NAME AND USER INDEX
08747  M01S00522.253l688 +++|          BX6    X1
08748  M01S00523.253l688 +++|          SA6    UULV
08749  M01S00524.253l688 +++|          SA1    CATH+FCCD   GET CREATION DATE/TIME
Line S00075 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
08750  M01S00075.274l797 +++|          SA3    FLOK        GET FILE LOCK FLAG
Line S00525 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
08751  M01S00525.253l688 +++|          MX0    -36
08752  M01S00526.253l688 +++|          BX6    -X0*X1
Proceed to Part 8