User Tools

Site Tools


cdc:nos2.source:opl.opl871:deck:pfload.004

Deck PFLOAD Part 004

34 Modifications

Source

Seq #  *Modification Id* Act 
----------------------------+
Line S00424 Modification History
M01 (Added by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
03990  M01S00424.286l859 +++|*         USES   X - 2, 5.
03991  M00S02324.pfload  +++|*
03992  M00S02325.pfload  +++|*         CALLS  FUB, PWE.
03993  M00S02326.pfload  +++|
03994  M00S02327.pfload  +++|
03995  M00S02328.pfload  +++| FPB      SUBR               ENTRY/EXIT
03996  M00S02329.pfload  +++|          SX2    PETS        FLUSH PERMIT BUFFER
03997  M00S02330.pfload  +++|          RJ     FUB
03998  M00S02331.pfload  +++|          ZR     X6,FPBX     IF NO PERMIT WRITE ERROR
03999  M00S02332.pfload  +++|          RJ     PWE         PROCESS PERMIT WRITE ERROR
Line S00425 Modification History
M01 (Added by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
04000  M01S00425.286l859 +++|          SB2    B0          SET NO MESSAGE
Line S02333 Modification History
M01 (Removed by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
04001  M01S02333.ns22000 ---|          EQ     ABT         ABORT LOAD
04002  M01S02334.ns22000 ---| FPF      SPACE  4,20
Line S00724 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
04003  M01S00724.ns22000 +++|          EQ     ABT         ABORT
04004  M01S00725.ns22000 +++| FPF      SPACE  4,15
04005  M00S02335.pfload  +++|**        FPF - FLUSH PERMANENT FILES.
04006  M00S02336.pfload  +++|*
04007  M00S02337.pfload  +++|*         ENTRY  (UIFL) = UTILITY INTERLOCK STATUS.
04008  M00S02338.pfload  +++|*                (PAFL) = UTILITY PROCESSOR ACTIVITY FLAG.
04009  M00S02339.pfload  +++|*
04010  M00S02340.pfload  +++|*         EXIT   ANY INCOMPLETE PERMANENT FILE DELETED.
04011  M00S02341.pfload  +++|*                COMPLETE PERMANENT FILES FLUSHED TO MASS STORAGE.
04012  M00S02342.pfload  +++|*
04013  M00S02343.pfload  +++|*         USES   X - 1, 2, 6.
04014  M00S02344.pfload  +++|*                A - 1, 2, 6.
04015  M00S02345.pfload  +++|*
04016  M00S02346.pfload  +++|*         CALLS  DIF, SSC.
04017  M00S02347.pfload  +++|*
04018  M00S02348.pfload  +++|*         MACROS CALLPFU, RECALL.
04019  M00S02349.pfload  +++|
04020  M00S02350.pfload  +++|
04021  M00S02351.pfload  +++| FPF1     RJ     DIF         DELETE INCOMPLETE FILE
04022  M00S02352.pfload  +++|
04023  M00S02353.pfload  +++| FPF      SUBR               ENTRY/EXIT
04024  M00S02354.pfload  +++|          SA1    UIFL        CHECK UTILITY INTERLOCK STATUS
04025  M00S02355.pfload  +++|          SX2    X1-1
04026  M00S02356.pfload  +++|          NZ     X2,FPFX     IF UTILITY INTERLOCK NOT SET
04027  M00S02357.pfload  +++|          SA1    PAFL
04028  M00S02358.pfload  +++|          NZ     X1,FPF1     IF UTILITY PROCESSOR ALREADY ACTIVE
04029  M00S02359.pfload  +++|          SA1    CATS+2      SET CATALOG WORD COUNT
04030  M00S02360.pfload  +++|          SA2    A1+B1
04031  M00S02361.pfload  +++|          IX6    X1-X2
04032  M00S02362.pfload  +++|          SX1    101B        SET SECTOR COUNT
04033  M00S02363.pfload  +++|          ZR     X6,FPFX     IF NO CATALOG ENTRIES
04034  M00S02364.pfload  +++|          IX6    X6/X1
04035  M00S02365.pfload  +++|          SA6    CATS+FTSC
04036  M00S02366.pfload  +++|          SX2    PETS        SET PERMIT FILE SECTOR COUNTER
04037  M00S02367.pfload  +++|          RJ     SSC
04038  M00S02368.pfload  +++|          SX2    DATA        SET DATA FILE SECTOR COUNTER
04039  M00S02369.pfload  +++|          RJ     SSC
04040  M00S02370.pfload  +++|          SA1    MAEQ        SET MASTER EQUIPMENT AND NON-INITIAL FLAG
04041  M00S02371.pfload  +++|          SX2    B1
04042  M00S02372.pfload  +++|          LX1    12
04043  M00S02373.pfload  +++|          BX6    X1+X2
04044  M00S02374.pfload  +++|          SA6    DATA+FTDW
04045  M00S02375.pfload  +++|          SA1    CPAR+/COMSPFS/CPDN  SET MASTER DEVICE NUMBER
04046  M00S02376.pfload  +++|          SA2    FAPM        SET FET ADDRESS PARAMETERS
04047  M00S02377.pfload  +++|          LX1    54
04048  M00S02378.pfload  +++|          BX6    X1+X2
04049  M00S02379.pfload  +++|          SA6    CATS+FTPM
04050  M00S02380.pfload  +++|          SA1    PETS        SET PERMITS FET BUSY
04051  M00S02381.pfload  +++|          MX2    48
04052  M00S02382.pfload  +++|          BX6    X2*X1
04053  M00S02383.pfload  +++|          SA6    A1
04054  M00S02384.pfload  +++|          SA1    DATA        SET DATA FET BUSY
04055  M00S02385.pfload  +++|          BX6    X2*X1
04056  M00S02386.pfload  +++|          SA6    A1+
04057  M00S02387.pfload  +++|          CALLPFU  CATS,CTLM ACTIVATE UTILITY LOAD PROCESSOR
04058  M00S02388.pfload  +++|          RECALL DATA        WAIT FOR UTILITY PROCESSOR TO INITIALIZE
04059  M00S02389.pfload  +++|          EQ     FPF1        DELETE INCOMPLETE FILE
04060  M00S02390.pfload  +++| FUB      SPACE  4,20
04061  M00S02391.pfload  +++|**        FUB - FLUSH UTILITY BUFFER.
04062  M00S02392.pfload  +++|*
04063  M00S02393.pfload  +++|*         ENTRY  (X2) = FET ADDRESS.
04064  M00S02394.pfload  +++|*
04065  M00S02395.pfload  +++|*         EXIT   (X2) = FET ADDRESS.
04066  M00S02396.pfload  +++|*                (X6) = 0 IF NO ERROR DETECTED.
04067  M00S02397.pfload  +++|*                     = FET ERROR CODE IF ERROR DETECTED.
04068  M00S02398.pfload  +++|*                *PFU* WRITE FUNCTION CODE PLACED IN FET IF BUFFER NOT
04069  M00S02399.pfload  +++|*                EMPTY.
04070  M00S02400.pfload  +++|*                FET NOT BUSY.
04071  M00S02401.pfload  +++|*
04072  M00S02402.pfload  +++|*         USES   X - 1, 3, 6, 7.
04073  M00S02403.pfload  +++|*                A - 1, 3, 7.
04074  M00S02404.pfload  +++|*
04075  M00S02405.pfload  +++|*         MACROS RECALL.
04076  M00S02406.pfload  +++|
04077  M00S02407.pfload  +++|
04078  M00S02408.pfload  +++| FUB      SUBR               ENTRY/EXIT
04079  M00S02409.pfload  +++| FUB1     RECALL X2
04080  M00S02410.pfload  +++|          SA1    X2+2        CHECK FOR EMPTY BUFFER
04081  M00S02411.pfload  +++|          SA3    A1+B1
04082  M00S02412.pfload  +++|          IX6    X1-X3
04083  M00S02413.pfload  +++|          ZR     X6,FUBX     IF BUFFER EMPTY
04084  M00S02414.pfload  +++|          SA1    X2          ISSUE WRITE REQUEST
04085  M00S02415.pfload  +++|          MX7    42
04086  M00S02416.pfload  +++|          BX6    X7*X1
04087  M00S02417.pfload  +++|          SX3    B1+B1       SET WRITE FUNCTION CODE
04088  M00S02418.pfload  +++|          BX7    X6+X3
04089  M00S02419.pfload  +++|          LX1    -12         GET ERROR STATUS
04090  M00S02420.pfload  +++|          MX3    -6
04091  M00S02421.pfload  +++|          BX6    -X3*X1
04092  M00S02422.pfload  +++|          NZ     X6,FUBX     IF WRITE ERROR
04093  M00S02423.pfload  +++|          SA7    X2
04094  M00S02424.pfload  +++|          EQ     FUB1        WAIT FOR *PFU* TO FLUSH BUFFER
Line S00726 Modification History
M01 (Added by) ns22000
M02 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
04095  M02S00726.286l859 ---| GCT      SPACE  4,15
04096  M02S00727.286l859 ---|**        GCT - GET DEVICE POSITION AND CATALOG TRACK OF USER INDEX.
Line S00426 Modification History
M01 (Added by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
04097  M01S00426.286l859 +++| IFM      SPACE  4,10
04098  M01S00427.286l859 +++|**        IFM - ISSUE FILE COUNT MESSAGES.
Line S00728 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
04099  M01S00728.ns22000 +++|*
Line S00729 Modification History
M01 (Added by) ns22000
M02 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
04100  M02S00729.286l859 ---|*         ENTRY  (X1) = USER INDEX.
Line S00730 Modification History
M01 (Added by) ns22000
M02 (Removed by) 253l688
M03 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
04101  M03S00730.286l859 ---|*                (DMCT - DMCT+2) = DEVICE MASK CATALOG TRACK TABLE
04102  M03S00731.286l859 ---|*                                  FROM ARCHIVE LABEL.
Line S00069 Modification History
M01 (Added by) 253l688
M02 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
04103  M02S00069.286l859 ---|*                (TLBF+/COMSPFS/D0AL - TLBF+/COMSPFS/D2AL) = DEVICE
04104  M02S00070.286l859 ---|*                   MASK CATALOG TRACK TABLE FROM ARCHIVE LABEL.
Line S00428 Modification History
M01 (Added by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
04105  M01S00428.286l859 +++|*         EXIT   FILES PROCESSED COUNTS ISSUED TO DAYFILE.
Line S00732 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
04106  M01S00732.ns22000 +++|*
Line S00733 Modification History
M01 (Added by) ns22000
M02 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
04107  M02S00733.286l859 ---|*         EXIT   (X6) = -1 IF USER INDEX DID NOT MAP INTO ANY DEVICE.
04108  M02S00734.286l859 ---|*                     = DEVICE POSITION IN TABLE AND CATALOG TRACK OF
04109  M02S00735.286l859 ---|*                       USER INDEX.
04110  M02S00736.286l859 ---|*                       45/ ,3/EQUIPMENT INDEX,12/CATALOG TRACK
Line S00429 Modification History
M01 (Added by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
04111  M01S00429.286l859 +++|*         USES   X - 1, 5.
04112  M01S00430.286l859 +++|*                A - 1, 5.
Line S00737 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
04113  M01S00737.ns22000 +++|*
Line S00738 Modification History
M01 (Added by) ns22000
M02 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
04114  M02S00738.286l859 ---|*         USES   X - 1, 2, 3, 4, 7.
04115  M02S00739.286l859 ---|*                A - 2.
04116  M02S00740.286l859 ---|*                B - 2, 3.
Line S00431 Modification History
M01 (Added by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
04117  M01S00431.286l859 +++|*         CALLS  IFC.
04118  M01S00432.286l859 +++|*
04119  M01S00433.286l859 +++|*         MACROS MESSAGE.
Line S00741 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
04120  M01S00741.ns22000 +++|
04121  M01S00742.ns22000 +++|
Line S00743 Modification History
M01 (Added by) ns22000
M02 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
04122  M02S00743.286l859 ---| GCT3     LX2    12          GET NUMBER OF CATALOG TRACKS ON DEVICE
Line S00744 Modification History
M01 (Added by) ns22000
M02 (Removed by) 253l688
M03 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
04123  M03S00744.286l859 ---|          SX7    A2-DMCT     DETERMINE POSITION IN TABLE
04124  M03S00745.286l859 ---|          SB3    X7+B3       X7 = 3*(A2-DMCT)+B3
Line S00071 Modification History
M01 (Added by) 253l688
M02 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
04125  M02S00071.286l859 ---|          SX7    A2-TLBF-/COMSPFS/D0AL  DETERMINE POSITION IN TABLE
04126  M02S00072.286l859 ---|          SB3    X7+B3       X7 = 3*(A2-(TLBF+/COMSPFS/D0AL))+B3
Line S00746 Modification History
M01 (Added by) ns22000
M02 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
04127  M02S00746.286l859 ---|          IX7    X7+X7
04128  M02S00747.286l859 ---|          SX7    X7+B3
04129  M02S00748.286l859 ---|          MX6    -12         NUMBER OF CATALOG TRACKS
04130  M02S00749.286l859 ---|          BX6    -X6*X2
04131  M02S00750.286l859 ---|          AX1    3
04132  M02S00751.286l859 ---|          SX6    X6-1        CATALOG TRACK MASK
04133  M02S00752.286l859 ---|          BX6    X6*X1       USER INDEX CATALOG TRACK
04134  M02S00753.286l859 ---|          LX7    12
04135  M02S00754.286l859 ---|          BX6    X6+X7       MERGE DEVICE AND USER INDEX CATALOG TRACK
Line S00434 Modification History
M01 (Added by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
04136  M01S00434.286l859 +++| IFM      SUBR               ENTRY/EXIT
04137  M01S00435.286l859 +++|          SA1    AREF
04138  M01S00436.286l859 +++|          ZR     X1,IFM1     IF NO ARCHIVE FILE READ ERRORS
04139  M01S00437.286l859 +++|          MESSAGE  AEMS      * READ ERRORS ENCOUNTERED ON ARCHIVE...*
04140  M01S00438.286l859 +++| IFM1     SA5    IFMA
04141  M01S00439.286l859 +++|          RJ     IFC         ISSUE FILE COUNT MESSAGES
04142  M01S00440.286l859 +++|          EQ     IFMX        RETURN
Line S00755 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
04143  M01S00755.ns22000 +++|
Line S00756 Modification History
M01 (Added by) ns22000
M02 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
04144  M02S00756.286l859 ---| GCT      SUBR               ENTRY/EXIT
Line S00757 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
04145  M01S00757.ns22000 +++|
Line S00758 Modification History
M01 (Added by) ns22000
M02 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
04146  M02S00758.286l859 ---|*         DETERMINE THE NUMBER OF CATALOG TRACKS ON THE MASTER DEVICE
04147  M02S00759.286l859 ---|*         ON WHICH THE USER INDEX RESIDES AND ITS POSITION IN THE
04148  M02S00760.286l859 ---|*         TABLE.
Line S00441 Modification History
M01 (Added by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
04149  M01S00441.286l859 +++| IFMA     BSS    0           MESSAGE TABLE
04150  M01S00442.286l859 +++|          VFD    1/1,1/0,22/0,18/LDMS,18/PRFC
04151  M01S00443.286l859 +++|          VFD    1/1,1/0,22/0,18/SEMS,18/SEFC
04152  M01S00444.286l859 +++|          VFD    1/1,1/0,22/0,18/LEMS,18/PEFC
04153  M01S00445.286l859 +++|          CON    0           END OF TABLE
04154  M01S00446.286l859 +++| LLF      SPACE  4,15
04155  M01S00447.286l859 +++|**        LLF - LIST LOADED FILES.
04156  M01S00448.286l859 +++|*
04157  M01S00449.286l859 +++|*         EXIT   CATALOG DATA WRITTEN TO OUTPUT FILES FOR LOADED FILES
04158  M01S00450.286l859 +++|*                  IN CATALOG BUFFER.
04159  M01S00451.286l859 +++|*
04160  M01S00452.286l859 +++|*         USES   X - 1, 2, 3, 4, 5, 6, 7.
04161  M01S00453.286l859 +++|*                A - 0, 1, 2, 3, 4, 5, 6, 7.
04162  M01S00454.286l859 +++|*
04163  M01S00455.286l859 +++|*         CALLS  CFP.
Line S00761 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
04164  M01S00761.ns22000 +++|
Line S00762 Modification History
M01 (Added by) ns22000
M02 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
04165  M02S00762.286l859 ---|          MX2    -3          SET UP DEVICE MASK
04166  M02S00763.286l859 ---|          BX2    -X2*X1
04167  M02S00764.286l859 ---|          SB3    X2          LAST DIGIT OF USER INDEX
04168  M02S00765.286l859 ---|          SX4    B1
04169  M02S00766.286l859 ---|          LX4    X4,B3       POSITION USER INDEX BIT
04170  M02S00767.286l859 ---|          SB2    4
04171  M02S00768.286l859 ---|          MX3    -8
04172  M02S00769.286l859 ---|          SX6    -1          PRESET USER INDEX NOT MAPPED
Line S00770 Modification History
M01 (Added by) ns22000
M02 (Removed by) 253l688
M03 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
04173  M03S00770.286l859 ---|          SA2    DMCT-1
Line S00073 Modification History
M01 (Added by) 253l688
M02 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
04174  M02S00073.286l859 ---|          SA2    TLBF+/COMSPFS/D0AL-1
Line S00771 Modification History
M01 (Added by) ns22000
M02 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
04175  M02S00771.286l859 ---| GCT1     SA2    A2+B1       PICK UP NEXT WORD IN TABLE
04176  M02S00772.286l859 ---|          SB3    B1+
04177  M02S00773.286l859 ---|          LX2    -12
04178  M02S00774.286l859 ---| GCT2     BX7    -X3*X2      GET DEVICE MASK
04179  M02S00775.286l859 ---|          ZR     X7,GCTX     IF END OF TABLE
04180  M02S00776.286l859 ---|          BX7    X4*X7
04181  M02S00777.286l859 ---|          NZ     X7,GCT3     IF USER INDEX ON THIS DEVICE
04182  M02S00778.286l859 ---|          SB3    B3+B1
04183  M02S00779.286l859 ---|          LX2    -20
04184  M02S00780.286l859 ---|          LT     B3,B2,GCT2  IF MORE DEVICES IN WORD
04185  M02S00781.286l859 ---|          EQ     GCT1        GET NEXT WORD IN TABLE
Line S00456 Modification History
M01 (Added by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
04186  M01S00456.286l859 +++|
04187  M01S00457.286l859 +++| LLF      SUBR               ENTRY/EXIT
04188  M01S00458.286l859 +++|          SA3    CATS+FTFT
04189  M01S00459.286l859 +++|          SX4    -NWCE       INITIALIZE SECTOR WORD COUNT
04190  M01S00460.286l859 +++|          SX5    B0+         INITIALIZE CATALOG ORDINAL
04191  M01S00461.286l859 +++|          MX6    -18
04192  M01S00462.286l859 +++|          BX3    -X6*X3      ADDRESS OF FIRST SECTOR CONTROL WORD
04193  M01S00463.286l859 +++| LLF1     SA1    CATS+FTOT   GET *OUT* POINTER
04194  M01S00464.286l859 +++|          SX4    NWCE+X4     EXCESS WORDS IN PREVIOUS SECTOR
04195  M01S00465.286l859 +++|          IX3    X3+X4       LWA+1 OF PREVIOUS SECTOR
04196  M01S00466.286l859 +++|          IX6    X3-X1
04197  M01S00467.286l859 +++|          PL     X6,LLFX     IF NO MORE SECTORS IN BUFFER
04198  M01S00468.286l859 +++|          SA4    X3          READ SECTOR CONTROL WORD
04199  M01S00469.286l859 +++|          MX6    -12
04200  M01S00470.286l859 +++|          BX4    -X6*X4      SECTOR WORD COUNT
04201  M01S00471.286l859 +++|          SX3    X3+B1       SKIP CONTROL WORD
04202  M01S00472.286l859 +++| LLF2     SX4    X4-NWCE     DECREMENT SECTOR WORD COUNT
04203  M01S00473.286l859 +++|          NG     X4,LLF1     IF NO MORE CATALOG ENTRIES IN SECTOR
04204  M01S00474.286l859 +++|          SA1    X3+FCUI     GET USER INDEX
04205  M01S00475.286l859 +++|          SA2    ANCE
04206  M01S00476.286l859 +++|          MX6    -18
04207  M01S00477.286l859 +++|          BX6    -X6*X1
04208  M01S00478.286l859 +++|          IX2    X3-X2
04209  M01S00479.286l859 +++|          SX3    X3+NWCE     ADVANCE CATALOG ENTRY ADDRESS
04210  M01S00480.286l859 +++|          SX5    X5+1        ADVANCE CATALOG BUFFER ORDINAL
04211  M01S00481.286l859 +++|          NG     X2,LLF2     IF OLD CATALOG ENTRY
04212  M01S00482.286l859 +++|          ZR     X6,LLF2     IF CATALOG HOLE (DATA WRITE ERROR)
04213  M01S00483.286l859 +++|          SX6    X6-IFUI
04214  M01S00484.286l859 +++|          ZR     X6,LLF2     IF IAPF FLAW (DATA WRITE ERROR)
04215  M01S00485.286l859 +++|          BX6    X3
04216  M01S00486.286l859 +++|          BX7    X4
04217  M01S00487.286l859 +++|          SA6    LLFA        SAVE NEXT CATALOG ENTRY ADDRESS
04218  M01S00488.286l859 +++|          SA7    A6+B1       SAVE SECTOR WORD COUNT
04219  M01S00489.286l859 +++|          SA1    TFST-1+X5   GET FILE STATUS
04220  M01S00490.286l859 +++|          SX6    X5
04221  M01S00491.286l859 +++|          SA6    A7+B1       SAVE CATALOG BUFFER ORDINAL
04222  M01S00492.286l859 +++|          BX7    X1
04223  M01S00493.286l859 +++|          SA0    X3-NWCE     SET CATALOG ENTRY ADDRESS
04224  M01S00494.286l859 +++|          SA7    FLST        SET FILE STATUS
04225  M01S00495.286l859 +++|          RJ     CFP         COUNT FILE PROCESSED
04226  M01S00496.286l859 +++|          SA3    LLFA        RESTORE CATALOG ENTRY ADDRESS
04227  M01S00497.286l859 +++|          SA4    LLFA+1      RESTORE SECTOR WORD COUNT
04228  M01S00498.286l859 +++|          SA5    LLFA+2      RESTORE CATALOG BUFFER ORDINAL
04229  M01S00499.286l859 +++|          EQ     LLF2        PROCESS NEXT CATALOG ENTRY
04230  M01S00500.286l859 +++|
04231  M01S00501.286l859 +++|
04232  M01S00502.286l859 +++| LLFA     CON    0           CATALOG ENTRY ADDRESS
04233  M01S00503.286l859 +++|          CON    0           REMAINING SECTOR WORD COUNT
04234  M01S00504.286l859 +++|          CON    0           CATALOG BUFFER ORDINAL
Line S02425 Modification History
M01 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
04235  M01S02425.253l688 ---| GLM      SPACE  4,15
04236  M01S02426.253l688 ---|**        GLM - GENERATE LABEL MESSAGES.
04237  M01S02427.253l688 ---|*
04238  M01S02428.253l688 ---|*         ENTRY  (TLBF - TLBF+NWTL-1) = CURRENT ARCHIVE FILE LABEL.
04239  M01S02429.253l688 ---|*
04240  M01S02430.253l688 ---|*         EXIT   LABEL INFORMATION MESSAGES WRITTEN TO OUTPUT FILE.
Line S02431 Modification History
M01 (Removed by) 241l630
M02 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
04241  M02S02431.253l688 ---|*                LABEL DATE, TIME, AND MASK DISPLAYED ON *K* DISPLAY.
Line S02432 Modification History
M01 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
04242  M01S02432.253l688 ---|*                PAGE CONTROL INFORMATION RESET.
04243  M01S02433.253l688 ---|*
04244  M01S02434.253l688 ---|*         USES   X - 1, 2, 6, 7.
04245  M01S02435.253l688 ---|*                A - 1, 2, 6, 7.
04246  M01S02436.253l688 ---|*
04247  M01S02437.253l688 ---|*         CALLS  COD.
04248  M01S02438.253l688 ---|*
04249  M01S02439.253l688 ---|*         MACROS WRITEC, WRITEH.
04250  M01S02440.253l688 ---|
04251  M01S02441.253l688 ---|
04252  M01S02442.253l688 ---| GLM      SUBR               ENTRY/EXIT
04253  M01S02443.253l688 ---|          SA1    TLBF+3      SET LABEL DATE
Line S02444 Modification History
M01 (Removed by) 241l630
M02 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
04254  M02S02444.253l688 ---|          SA2    IDSA+/COMSPFS/ADJ2
Line S02445 Modification History
M01 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
04255  M01S02445.253l688 ---|          BX6    X1
Line S02446 Modification History
M01 (Removed by) 241l630
M02 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
04256  M02S02446.253l688 ---|          SA6    X2+B1
Line S02447 Modification History
M01 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
04257  M01S02447.253l688 ---|          SA6    HDTR
04258  M01S02448.253l688 ---|          SA6    MSGB+2
04259  M01S02449.253l688 ---|          SA1    A1+B1       SET LABEL TIME
04260  M01S02450.253l688 ---|          BX6    X1
04261  M01S02451.253l688 ---|          SA6    HTMR
04262  M01S02452.253l688 ---|          SA6    MSGB+3
Line S02453 Modification History
M01 (Removed by) 241l630
M02 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
04263  M02S02453.253l688 ---|          SA6    X2+3
Line S02454 Modification History
M01 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
04264  M01S02454.253l688 ---|          SA1    TLBF+2      SET LABEL MASK
04265  M01S02455.253l688 ---|          MX2    -8
04266  M01S02456.253l688 ---|          BX1    -X2*X1
04267  M01S02457.253l688 ---|          RJ     COD         CONVERT MASK TO DISPLAY CODE
Line S02458 Modification History
M01 (Removed by) 241l630
M02 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
04268  M02S02458.253l688 ---|          SA1    IDSA+/COMSPFS/ADJ1  DISPLAY MASK ON *K* DISPLAY
04269  M02S02459.253l688 ---|          SA6    X1+3
Line S02460 Modification History
M01 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
04270  M01S02460.253l688 ---|          MX2    42
04271  M01S02461.253l688 ---|          SA1    MSGI+1      ENTER LABEL MASK IN OUTPUT MESSAGE
04272  M01S02462.253l688 ---|          LX2    6
04273  M01S02463.253l688 ---|          SX7    B1          INITIALIZE PAGE CONTROL INFORMATION
04274  M01S02464.253l688 ---|          BX1    X2*X1
04275  M01S02465.253l688 ---|          SA7    PAGE
04276  M01S02466.253l688 ---|          LX6    6
Line S02467 Modification History
M01 (Removed by) ns22000
M02 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
04277  M02S02467.253l688 ---|          SX7    PGLM
Line S00782 Modification History
M01 (Added by) ns22000
M02 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
04278  M02S00782.253l688 ---|          SX7    99999       FORCE PAGE EJECT
Line S02468 Modification History
M01 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
04279  M01S02468.253l688 ---|          BX6    -X2*X6
04280  M01S02469.253l688 ---|          SA7    LNPP
04281  M01S02470.253l688 ---|          BX6    X6+X1
04282  M01S02471.253l688 ---|          MX7    0
04283  M01S02472.253l688 ---|          SA6    A1+
04284  M01S02473.253l688 ---|          SA7    LNAC
04285  M01S02474.253l688 ---|          WRITEC OUTPUT,MSGB  WRITE LABEL INFORMATION MESSAGES
04286  M01S02475.253l688 ---|          WRITEH OUTPUT,MSGI,3
04287  M01S02476.253l688 ---|          EQ     GLMX        RETURN
04288  M00S02477.pfload  +++| MCE      SPACE  4,20
04289  M00S02478.pfload  +++|**        MCE - MOVE CATALOG ENTRY TO BUFFER.
04290  M00S02479.pfload  +++|*
04291  M00S02480.pfload  +++|*         ENTRY  (TCBF - TCBF+NWCE-1) = CATALOG ENTRY.
Line S02481 Modification History
M01 (Removed by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
04292  M01S02481.ns22000 ---|*                (*CATS* *IN* POINTER) = BUFFER ADDRESS FOR CATALOG.
Line S00783 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
04293  M01S00783.ns22000 +++|*                (*CATS* IN POINTER) = BUFFER ADDRESS FOR CATALOG.
04294  M00S02482.pfload  +++|*                (IPFF) = INCOMPLETE FILE FLAG.
04295  M00S02483.pfload  +++|*
04296  M00S02484.pfload  +++|*         EXIT   ANY INCOMPLETE FILE DELETED.
04297  M00S02485.pfload  +++|*                CATALOG ENTRY MOVED TO *CATS* BUFFER.
04298  M00S02486.pfload  +++|*                FIRST TRACK AND PERMIT RANDOM INDEX CLEARED FROM
04299  M00S02487.pfload  +++|*                CATALOG ENTRY IN *CATS* BUFFER.
04300  M00S02488.pfload  +++|*                (IPFF) = 1.
04301  M00S02489.pfload  +++|*
04302  M00S02490.pfload  +++|*         USES   X - 1, 2, 6, 7.
04303  M00S02491.pfload  +++|*                A - 1, 2, 6, 7.
04304  M00S02492.pfload  +++|*                B - 2, 3.
04305  M00S02493.pfload  +++|*
04306  M00S02494.pfload  +++|*         CALLS  DIF.
04307  M00S02495.pfload  +++|
04308  M00S02496.pfload  +++|
04309  M00S02497.pfload  +++| MCE      SUBR               ENTRY/EXIT
04310  M00S02498.pfload  +++|          RJ     DIF         DELETE INCOMPLETE FILE
Line S02499 Modification History
M01 (Removed by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
04311  M01S02499.ns22000 ---|          SA1    CATS+2      BUFFER ADDRESS = *IN*
Line S00784 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
04312  M01S00784.ns22000 +++|          SA1    CATS+2      BUFFER ADDRESS = IN
04313  M00S02500.pfload  +++|          SB2    NWCE-1      CATALOG ENTRY WORD COUNT - 1
04314  M00S02501.pfload  +++|          SB3    TCBF        CATALOG ENTRY ADDRESS
04315  M00S02502.pfload  +++| MCE1     SA2    B3+B2       GET WORD FROM CATALOG ENTRY
04316  M00S02503.pfload  +++|          BX6    X2
04317  M00S02504.pfload  +++|          SA6    X1+B2       STORE WORD IN BUFFER
04318  M00S02505.pfload  +++|          SB2    B2-B1       DECREMENT WORD COUNT
04319  M00S02506.pfload  +++|          PL     B2,MCE1     IF MORE WORDS TO MOVE
04320  M00S02507.pfload  +++|          SA2    X1+FCBS
04321  M00S02508.pfload  +++|          LX2    59-11
04322  M00S02509.pfload  +++|          PL     X2,MCE2     IF NOT DIRECT ACCESS FILE
04323  M00S02510.pfload  +++|          SX6    B1          INCREMENT FILE LENGTH (DATA SECTORS +1)
04324  M00S02511.pfload  +++|          SA2    X1+FCLF
04325  M00S02512.pfload  +++|          LX6    36-0
04326  M00S02513.pfload  +++|          IX6    X2+X6
04327  M00S02514.pfload  +++|          SA6    A2+
04328  M00S02515.pfload  +++| MCE2     SA2    X1+FCRI     CLEAR RANDOM INDEX
04329  M00S02516.pfload  +++|          MX7    -36
04330  M00S02517.pfload  +++|          BX6    -X7*X2
04331  M00S02518.pfload  +++|          SA6    A2
04332  M00S02519.pfload  +++|          MX7    48
04333  M00S02520.pfload  +++|          SA2    X1+FCBT     CLEAR FIRST TRACK
04334  M00S02521.pfload  +++|          LX7    12
04335  M00S02522.pfload  +++|          BX6    X7*X2
04336  M00S02523.pfload  +++|          SX7    B1          SET INCOMPLETE PERMANENT FILE FLAG
04337  M00S02524.pfload  +++|          SA6    A2
04338  M00S02525.pfload  +++|          SA7    IPFF
Line S02526 Modification History
M01 (Removed by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
04339  M01S02526.ns22000 ---|          EQ     MCEX        EXIT
Line S00785 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
04340  M01S00785.ns22000 +++|          EQ     MCEX        RETURN
Line S00786 Modification History
M01 (Added by) ns22000
M02 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
04341  M02S00786.253l688 ---| MCO      SPACE  4,15
04342  M02S00787.253l688 ---|**        MCO - MOVE CATALOG TO OUTPUT.
04343  M02S00788.253l688 ---|*
04344  M02S00789.253l688 ---|*         ENTRY  (B2) = CATALOG ADDRESS.
04345  M02S00790.253l688 ---|*                (PFCO) = 0, IF *PFC ONLY* FILE.
04346  M02S00791.253l688 ---|*
04347  M02S00792.253l688 ---|*         EXIT   CATALOG ENTRY WRITTEN TO OUTPUT.
04348  M02S00793.253l688 ---|*
04349  M02S00794.253l688 ---|*         USES   X - 1, 2, 3, 6.
04350  M02S00795.253l688 ---|*                A - 1, 2, 3, 6.
04351  M02S00796.253l688 ---|*
04352  M02S00797.253l688 ---|*         CALLS  CDD.
04353  M02S00798.253l688 ---|*
Line S00799 Modification History
M01 (Added by) ns22000
M02 (Removed by) v23l617
M03 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
04354  M03S00799.253l688 ---|*         MACROS EDCAT, WRITEH.
Line S00012 Modification History
M01 (Added by) v23l617
M02 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
04355  M02S00012.253l688 ---|*         MACROS EDCAT, MOVE, WRITEH.
Line S00800 Modification History
M01 (Added by) ns22000
M02 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
04356  M02S00800.253l688 ---|
04357  M02S00801.253l688 ---|
04358  M02S00802.253l688 ---| MCO      SUBR               ENTRY/EXIT
04359  M02S00803.253l688 ---|          SX6    B2+         SAVE PFC ADDRESS
04360  M02S00804.253l688 ---|          SA6    MCOA
04361  M02S00805.253l688 ---|          SA1    LNAC        INCREMENT LINE NUMBER
04362  M02S00806.253l688 ---|          SX6    X1+B1
04363  M02S00807.253l688 ---|          SA6    A1
04364  M02S00808.253l688 ---|          SA1    LNPP        INCREMENT LINES / PAGE
Line S00013 Modification History
M01 (Added by) v23l617
M02 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
04365  M02S00013.253l688 ---|          SX6    X1+5
Line S00809 Modification History
M01 (Added by) ns22000
M02 (Removed by) v23l617
M03 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
04366  M03S00809.253l688 ---|          SX6    X1+4
Line S00810 Modification History
M01 (Added by) ns22000
M02 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
04367  M02S00810.253l688 ---|          SA2    A1+B1
04368  M02S00811.253l688 ---|          IX2    X2-X6
04369  M02S00812.253l688 ---|          PL     X2,MCO1     IF NOT END OF PAGE
04370  M02S00813.253l688 ---|
04371  M02S00814.253l688 ---|*         WRITE PAGE HEADER.
04372  M02S00815.253l688 ---|
04373  M02S00816.253l688 ---|          SA1    PAGE        SET PAGE NUMBER
04374  M02S00817.253l688 ---|          SX6    X1+B1
04375  M02S00818.253l688 ---|          SA6    A1
04376  M02S00819.253l688 ---|          RJ     CDD
04377  M02S00820.253l688 ---|          SA6    HPGE
04378  M02S00821.253l688 ---|          WRITEH OUTPUT,HDR1A,7
04379  M02S00822.253l688 ---|          WRITEH OUTPUT,HDR1B,7
04380  M02S00823.253l688 ---|          WRITEH OUTPUT,HDR2,1
04381  M02S00824.253l688 ---|          WRITEH OUTPUT,HDR3,FCELL
04382  M02S00825.253l688 ---|          WRITEH X2,HDR4,FCELL
04383  M02S00826.253l688 ---|          WRITEH X2,HDR8,FCELL
Line S00827 Modification History
M01 (Added by) ns22000
M02 (Removed by) v23l617
M03 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
04384  M03S00827.253l688 ---|          SX6    6+4
Line S00014 Modification History
M01 (Added by) v23l617
M02 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
04385  M02S00014.253l688 ---|          WRITEH X2,HDR9,FCELB
04386  M02S00015.253l688 ---|          SX6    7+5
Line S00828 Modification History
M01 (Added by) ns22000
M02 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
04387  M02S00828.253l688 ---| MCO1     SA6    LNPP
04388  M02S00829.253l688 ---|
04389  M02S00830.253l688 ---|*         WRITE FORMATTED PFC ENTRY.
04390  M02S00831.253l688 ---|
04391  M02S00832.253l688 ---|          SA1    LNAC
04392  M02S00833.253l688 ---|          SA2    MCOA
04393  M02S00834.253l688 ---|          EDCAT  X2,OUTL,X1,1,1,1
04394  M02S00835.253l688 ---|          SA1    PFCO
04395  M02S00836.253l688 ---|          SA3    =C/* PFC ONLY/
04396  M02S00837.253l688 ---|          ZR     X1,MCO2     IF *PFC ONLY* FILE BEING LOADED
04397  M02S00838.253l688 ---|          SA3    =C/          /
04398  M02S00839.253l688 ---| MCO2     BX6    X3
04399  M02S00840.253l688 ---|          SA6    AMSG
04400  M02S00841.253l688 ---|          WRITEH OUTPUT,HDR2,1
04401  M02S00842.253l688 ---|          WRITEH OUTPUT,OUTL,FCELL
04402  M02S00843.253l688 ---|          WRITEH X2,OUTM,FCELL
Line S00844 Modification History
M01 (Added by) ns22000
M02 (Removed by) v23l617
M03 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
04403  M03S00844.253l688 ---|          WRITEH X2,OUTN,FCELL+1
Line S00016 Modification History
M01 (Added by) v23l617
M02 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
04404  M02S00016.253l688 ---|          MOVE   FCELL,OUTN,COLN
04405  M02S00017.253l688 ---|          WRITEH OUTPUT,COLN,FCELL+1
04406  M02S00018.253l688 ---|          WRITEH X2,OUTO,FCELB
Line S00845 Modification History
M01 (Added by) ns22000
M02 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
04407  M02S00845.253l688 ---|          EQ     MCOX        RETURN
04408  M02S00846.253l688 ---|
04409  M02S00847.253l688 ---|
04410  M02S00848.253l688 ---| MCOA     CON    0
04411  M02S00849.253l688 ---|
04412  M02S00850.253l688 ---|*         PAGE HEADER.
04413  M02S00851.253l688 ---|
04414  M02S00852.253l688 ---| HDR1A    DIS    5,1        PFLOAD CATALOG OF FILES PROCESSED
04415  M02S00853.253l688 ---|          DIS    1,    PAGE
04416  M02S00854.253l688 ---| HPGE     DIS    1,
04417  M02S00855.253l688 ---| HDR1B    DIS    5,               ON                         AT
04418  M02S00856.253l688 ---| HTMR     DIS    2,
04419  M02S00857.253l688 ---| HDTR     EQU    HDR1B+2
04420  M02S00858.253l688 ---| HDR2     DIS    1,
Line S02527 Modification History
M01 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
04421  M01S02527.286l859 ---| PAL      SPACE  4,20
Line S00505 Modification History
M01 (Added by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
04422  M01S00505.286l859 +++| PAL      SPACE  4,25
04423  M00S02528.pfload  +++|**        PAL - PROCESS ARCHIVE FILE LABEL.
04424  M00S02529.pfload  +++|*
Line S02530 Modification History
M01 (Removed by) pfloa19
Seq #  *Modification Id* Act 
----------------------------+
04425  M01S02530.pfloa19 ---|*         EXIT   (X6) = 0 IF ARCHIVE FILE LABEL NOT BAD.
04426  M01S02531.pfloa19 ---|*                     = NON-ZERO IF ARCHIVE FILE LABEL BAD.
Line S00027 Modification History
M01 (Added by) pfloa19
Seq #  *Modification Id* Act 
----------------------------+
04427  M01S00027.pfloa19 +++|*         EXIT   (X6) = 0 IF ARCHIVE FILE LABEL GOOD OR IF ARCHIVE FILE
04428  M01S00028.pfloa19 +++|*                         LABEL NOT FOUND AND NOT INCREMENTAL LOAD.
04429  M01S00029.pfloa19 +++|*                (X6) .NE. 0 IF ARCHIVE FILE LABEL BAD OR IF ARCHIVE
04430  M01S00030.pfloa19 +++|*                     FILE LABEL NOT FOUND AND INCREMENTAL LOAD.
04431  M01S00031.pfloa19 +++|*                (TLBF+/COMSPFS/PFAL) = 0 IF ARCHIVE FILE LABEL NOT
04432  M01S00032.pfloa19 +++|*                                       PRESENT OR BAD.
Line S02532 Modification History
M01 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
04433  M01S02532.253l688 ---|*                (TLBF - TLBF+NWTL-1) = NEW ARCHIVE FILE LABEL IF
04434  M01S02533.253l688 ---|*                                       PRESENT AND GOOD.
04435  M01S02534.253l688 ---|*                OUTPUT FILE MESSAGE ISSUED CONTAINING THE LABEL DATE
04436  M01S02535.253l688 ---|*                AND TIME IF LABEL PRESENT AND GOOD.
04437  M01S02536.253l688 ---|*                LABEL DATE, TIME AND MASK UPDATED IN MESSAGES IF
04438  M01S02537.253l688 ---|*                LABEL PRESENT AND GOOD.
Line S00074 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
04439  M01S00074.253l688 +++|*                (TLBF - TLBF+/COMSPFS/AFLBL-1) = NEW ARCHIVE FILE
04440  M01S00075.253l688 +++|*                  LABEL IF PRESENT AND GOOD.
04441  M01S00076.253l688 +++|*                LABEL INFORMATION SET IN OUTPUT FILE HEADER IF LABEL
04442  M01S00077.253l688 +++|*                  PRESENT AND GOOD.
04443  M01S00078.253l688 +++|*                ARCHIVE FILE INFORMATION BLOCK WRITTEN TO CATALOG
04444  M01S00079.253l688 +++|*                  ENTRIES FILE IF LABEL PRESENT AND GOOD OR LABEL NOT
04445  M01S00080.253l688 +++|*                  FOUND.
04446  M01S00081.253l688 +++|*                OUTPUT FILE INITIALIZED FOR FILE PROCESSING IF LABEL
04447  M01S00082.253l688 +++|*                  PRESENT AND GOOD OR LABEL NOT FOUND.
04448  M00S02538.pfload  +++|*
Line S02539 Modification History
M01 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
04449  M01S02539.253l688 ---|*         USES   X - 1, 2, 5, 6, 7.
Line S00083 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
04450  M01S00083.253l688 +++|*
Line S00084 Modification History
M01 (Added by) 253l688
M02 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
04451  M02S00084.286l859 ---|*         USES   X - 0, 1, 2, 5, 6, 7.
Line S02540 Modification History
M01 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
04452  M01S02540.286l859 ---|*                A - 1, 2, 7.
Line S00506 Modification History
M01 (Added by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
04453  M01S00506.286l859 +++|*         USES   X - 1, 2, 5, 6, 7.
04454  M01S00507.286l859 +++|*                A - 0, 1, 2, 7.
04455  M00S02541.pfload  +++|*
Line S02542 Modification History
M01 (Removed by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
04456  M01S02542.ns22000 ---|*         CALLS  GLM, RCW, SEM, SER.
Line S00859 Modification History
M01 (Added by) ns22000
M02 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
04457  M02S00859.253l688 ---|*         CALLS  GCT, GLM, RCW, SEM, SER.
Line S00085 Modification History
M01 (Added by) 253l688
M02 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
04458  M02S00085.286l859 ---|*         CALLS  GCT, PLP, RCW, SEM, SER.
Line S00508 Modification History
M01 (Added by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
04459  M01S00508.286l859 +++|*         CALLS  PLP, RCW, SER.
04460  M00S02543.pfload  +++|*
04461  M00S02544.pfload  +++|*         MACROS CWREAD, MOVE.
04462  M00S02545.pfload  +++|
04463  M00S02546.pfload  +++|
Line S02547 Modification History
M01 (Removed by) pfloa19
Seq #  *Modification Id* Act 
----------------------------+
04464  M01S02547.pfloa19 ---|*         PROCESS END OF LABEL.
Line S00033 Modification History
M01 (Added by) pfloa19
Seq #  *Modification Id* Act 
----------------------------+
04465  M01S00033.pfloa19 +++|*         PROCESS LABEL NOT FOUND.
04466  M00S02548.pfload  +++|
Line S02549 Modification History
M01 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
04467  M01S02549.253l688 ---| PAL4     BX6    X6-X6       CLEAR BAD LABEL STATUS
Line S00086 Modification History
M01 (Added by) 253l688
M02 (Removed by) pfloa19
Seq #  *Modification Id* Act 
----------------------------+
04468  M02S00086.pfloa19 ---| PAL4     SX0    B0+         SET LABEL NOT FOUND
Line S00034 Modification History
M01 (Added by) pfloa19
Seq #  *Modification Id* Act 
----------------------------+
04469  M01S00034.pfloa19 +++| PAL4     SA2    INCF
04470  M01S00035.pfloa19 +++|          SX7    1
04471  M01S00036.pfloa19 +++|          NZ     X2,PAL2.1   IF INCREMENTAL LOAD
04472  M01S00037.pfloa19 +++|          NG     X1,PAL5     IF EOF/EOI
04473  M01S00038.pfloa19 +++|          NZ     X1,PAL1     IF EOR
04474  M01S00039.pfloa19 +++|          SA7    RCWF        SET CONTROL WORD RE-USE FLAG
Line S00040 Modification History
M01 (Added by) pfloa19
M02 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
04475  M02S00040.286l859 ---| PAL5     SX0    B0          SET LABEL NOT FOUND
Line S00509 Modification History
M01 (Added by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
04476  M01S00509.286l859 +++| PAL5     SA0    B0          SET LABEL NOT FOUND
Line S00087 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
04477  M01S00087.253l688 +++|          RJ     PLP         PROCESS LABEL PARAMETERS
Line S00088 Modification History
M01 (Added by) 253l688
M02 (Removed by) pfloa19
Seq #  *Modification Id* Act 
----------------------------+
04478  M02S00088.pfloa19 ---|          BX6    X6-X6       CLEAR BAD LABEL STATUS
Line S00002 Modification History
M01 (Added by) pfloa9
M02 (Removed by) pfloa19
Seq #  *Modification Id* Act 
----------------------------+
04479  M02S00002.pfloa19 ---|          SX7    B1          SET NO LABEL READ FLAG
04480  M02S00003.pfloa19 ---|          SA7    NLRF
Line S02550 Modification History
M01 (Removed by) pfloa19
Seq #  *Modification Id* Act 
----------------------------+
04481  M01S02550.pfloa19 ---|          NG     X1,PALX     IF EOF/EOI
Line S02551 Modification History
M01 (Removed by) pfloa9
M02 (Removed by) pfloa19
Seq #  *Modification Id* Act 
----------------------------+
04482  M02S02551.pfloa19 ---|          SX7    B1
Line S02552 Modification History
M01 (Removed by) pfloa19
Seq #  *Modification Id* Act 
----------------------------+
04483  M01S02552.pfloa19 ---|          NZ     X1,PAL1     IF EOR
Line S02553 Modification History
M01 (Removed by) ns22000
M02 (Removed by) pfloa19
Seq #  *Modification Id* Act 
----------------------------+
04484  M02S02553.pfloa19 ---|          SA7    RCWA        SET CONTROL WORD RE-USE FLAG
Line S00860 Modification History
M01 (Added by) ns22000
M02 (Removed by) pfloa19
Seq #  *Modification Id* Act 
----------------------------+
04485  M02S00860.pfloa19 ---|          SA7    RCWF        SET CONTROL WORD RE-USE FLAG
Line S00041 Modification History
M01 (Added by) pfloa19
Seq #  *Modification Id* Act 
----------------------------+
04486  M01S00041.pfloa19 +++|          SX6    B0+         CLEAR BAD LABEL STATUS
04487  M00S02554.pfload  +++|
04488  M00S02555.pfload  +++| PAL      SUBR               ENTRY/EXIT
Line S00042 Modification History
M01 (Added by) pfloa19
Seq #  *Modification Id* Act 
----------------------------+
04489  M01S00042.pfloa19 +++|          SX7    B0+         PRESET NO LABEL PRESENT
04490  M01S00043.pfloa19 +++|          SA7    TLBF+/COMSPFS/PFAL
04491  M00S02556.pfload  +++| PAL1     RJ     RCW         READ ARCHIVE FILE CONTROL WORD
Line S02557 Modification History
M01 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
04492  M01S02557.286l859 ---|          NZ     X7,PAL3     IF PARITY ERROR
04493  M01S02558.286l859 ---|          SA7    PECT        CLEAR PARITY ERROR COUNT
Line S00510 Modification History
M01 (Added by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
04494  M01S00510.286l859 +++|          NZ     X7,PAL3     IF READ ERROR
04495  M00S02559.pfload  +++|          NZ     X3,PAL4     IF NOT LABEL CONTROL WORD
04496  M00S02560.pfload  +++|          SA1    CWBF        GET LABEL WORD COUNT
04497  M00S02561.pfload  +++|          MX2    -9
04498  M00S02562.pfload  +++|          BX6    -X2*X1
Line S02563 Modification History
M01 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
04499  M01S02563.253l688 ---|          SX1    X6-NWTL
Line S00089 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
04500  M01S00089.253l688 +++|          SX1    X6-/COMSPFS/AFLBL
04501  M00S02564.pfload  +++|          NZ     X1,PAL2     IF BAD LABEL WORD COUNT
Line S02565 Modification History
M01 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
04502  M01S02565.286l859 ---|          CWREAD TAPE,TDBF,X6  READ TAPE LABEL
Line S00511 Modification History
M01 (Added by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
04503  M01S00511.286l859 +++|          CWREAD TAPE,TDBF,X6  READ ARCHIVE FILE LABEL
Line S02566 Modification History
M01 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
04504  M01S02566.286l859 ---|          NZ     X7,PAL3     IF PARITY ERROR
Line S00512 Modification History
M01 (Added by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
04505  M01S00512.286l859 +++|          NZ     X7,PAL3     IF READ ERROR
04506  M00S02567.pfload  +++|          NZ     X1,PAL2     IF LABEL INCOMPLETE
Line S02568 Modification History
M01 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
04507  M01S02568.253l688 ---|          SA1    TDBF        CHECK ARCHIVE FILE LABEL IDENTIFIER
Line S00090 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
04508  M01S00090.253l688 +++|          SA1    TDBF+/COMSPFS/PFAL  CHECK LABEL IDENTIFIER
04509  M00S02569.pfload  +++|          SA2    AFLI
04510  M00S02570.pfload  +++|          MX6    36
04511  M00S02571.pfload  +++|          BX1    X6*X1
04512  M00S02572.pfload  +++|          IX2    X1-X2
04513  M00S02573.pfload  +++|          NZ     X2,PAL2     IF NOT CORRECT LABEL IDENTIFIER
Line S02574 Modification History
M01 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
04514  M01S02574.253l688 ---|          MOVE   NWTL,TDBF,TLBF  MOVE LABEL TO LABEL BUFFER
Line S00021 Modification History
M01 (Added by) ns2223
M02 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
04515  M02S00021.253l688 ---|          SA1    PVSN        SET PREVIOUS ARCHIVE TAPE VSN
Line S00091 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
04516  M01S00091.253l688 +++|          MOVE   /COMSPFS/AFLBL,TDBF,TLBF  MOVE LABEL TO LABEL BUFFER
Line S00092 Modification History
M01 (Added by) 253l688
M02 (Removed by) pfloa19
Seq #  *Modification Id* Act 
----------------------------+
04517  M02S00092.pfloa19 ---|          SA1    TLBF+/COMSPFS/PVAL  SET PREVIOUS ARCHIVE TAPE VSN
Line S00022 Modification History
M01 (Added by) ns2223
M02 (Removed by) pfloa19
Seq #  *Modification Id* Act 
----------------------------+
04518  M02S00022.pfloa19 ---|          BX6    X1
04519  M02S00023.pfloa19 ---|          SA6    VSNP
Line S02575 Modification History
M01 (Removed by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
04520  M01S02575.ns22000 ---|          RJ     GLM         GENERATE LABEL MESSAGES
Line S00861 Modification History
M01 (Added by) ns22000
M02 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
04521  M02S00861.286l859 ---|          SA1    CPAR+/COMSPFS/CPUI
04522  M02S00862.286l859 ---|          ZR     X1,PAL1.1   IF USER INDEX NOT SPECIFIED
Line S00001 Modification History
M01 (Added by) pfloa17
M02 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
04523  M02S00001.286l859 ---|          MX6    -15
04524  M02S00002.286l859 ---|          LX6    3
04525  M02S00003.286l859 ---|          BX6    -X6*X1
04526  M02S00004.286l859 ---|          SX6    X6-SBUI
04527  M02S00005.286l859 ---|          ZR     X6,PAL1.1   IF SUBFAMILY USER INDEX
Line S00863 Modification History
M01 (Added by) ns22000
M02 (Removed by) 253l688
M03 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
04528  M03S00863.286l859 ---|          SA2    TLBF+2      CHECK FOR NEW LABEL FORMAT
Line S00093 Modification History
M01 (Added by) 253l688
M02 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
04529  M02S00093.286l859 ---|          SA2    TLBF+/COMSPFS/MAAL  CHECK FOR NEW LABEL FORMAT
Line S00864 Modification History
M01 (Added by) ns22000
M02 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
04530  M02S00864.286l859 ---|          LX2    59-35
04531  M02S00865.286l859 ---|          PL     X2,PAL1.1   IF ARCHIVE TAPE HAS OLD LABEL FORMAT
04532  M02S00866.286l859 ---|          RJ     GCT         GET DEVICE POSITION AND CATALOG TRACK
04533  M02S00867.286l859 ---|          SA6    DPCT
Line S00868 Modification History
M01 (Added by) ns22000
M02 (Removed by) 253l688
M03 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
04534  M03S00868.286l859 ---| PAL1.1   RJ     GLM         GENERATE LABEL MESSAGES
Line S00094 Modification History
M01 (Added by) 253l688
M02 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
04535  M02S00094.286l859 ---| PAL1.1   SX0    TLBF        SET ARCHIVE LABEL ADDRESS
Line S00513 Modification History
M01 (Added by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
04536  M01S00513.286l859 +++|          SA0    TLBF        SET ARCHIVE LABEL ADDRESS
Line S00095 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
04537  M01S00095.253l688 +++|          RJ     PLP         PROCESS ARCHIVE LABEL PARAMETERS
04538  M00S02576.pfload  +++|          RJ     SER         SKIP TO END OF RECORD
04539  M00S02577.pfload  +++|          BX6    X6-X6       CLEAR BAD LABEL STATUS
Line S00002 Modification History
M01 (Added by) pfloa8
Seq #  *Modification Id* Act 
----------------------------+
04540  M01S00002.pfloa8  +++|          SA6    EOLF        CLEAR END OF LOAD FLAG
Line S02578 Modification History
M01 (Removed by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
04541  M01S02578.ns22000 ---|          EQ     PALX        EXIT
Line S00869 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
04542  M01S00869.ns22000 +++|          EQ     PALX        RETURN
04543  M00S02579.pfload  +++|
04544  M00S02580.pfload  +++|*         PROCESS BAD LABEL.
04545  M00S02581.pfload  +++|
Line S02582 Modification History
M01 (Removed by) pfloa19
Seq #  *Modification Id* Act 
----------------------------+
04546  M01S02582.pfloa19 ---| PAL2     RJ     SER         SKIP TO END OF RECORD
04547  M01S02583.pfloa19 ---|          SX6    B1          SET BAD LABEL STATUS
Line S00044 Modification History
M01 (Added by) pfloa19
Seq #  *Modification Id* Act 
----------------------------+
04548  M01S00044.pfloa19 +++| PAL2     SA2    INCF
04549  M01S00045.pfloa19 +++|          NZ     X2,PAL2.1   IF INCREMENTAL LOAD
04550  M01S00046.pfloa19 +++|          RJ     SER         SKIP TO END OF RECORD
Line S00047 Modification History
M01 (Added by) pfloa19
M02 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
04551  M02S00047.286l859 ---|          SX0    B0          SET LABEL NOT FOUND
Line S00514 Modification History
M01 (Added by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
04552  M01S00514.286l859 +++|          SA0    B0          SET LABEL NOT FOUND
Line S00048 Modification History
M01 (Added by) pfloa19
Seq #  *Modification Id* Act 
----------------------------+
04553  M01S00048.pfloa19 +++|          RJ     PLP         PROCESS LABEL PARAMETERS
04554  M01S00049.pfloa19 +++| PAL2.1   SX6    B1          SET BAD LABEL STATUS
Line S02584 Modification History
M01 (Removed by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
04555  M01S02584.ns22000 ---|          EQ     PALX        EXIT
Line S00870 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
04556  M01S00870.ns22000 +++|          EQ     PALX        RETURN
04557  M00S02585.pfload  +++|
Line S02586 Modification History
M01 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
04558  M01S02586.286l859 ---|*         PROCESS PARITY ERROR.
Line S00515 Modification History
M01 (Added by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
04559  M01S00515.286l859 +++|*         PROCESS READ ERROR.
04560  M00S02587.pfload  +++|
Line S02588 Modification History
M01 (Removed by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
04561  M01S02588.ns22000 ---| PAL3     SX5    MSGN        SEND TAPE PARITY ERROR MESSAGE
Line S00871 Modification History
M01 (Added by) ns22000
M02 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
04562  M02S00871.286l859 ---| PAL3     SX5    MSGN        * PFLOAD - TAPE PARITY ERROR.*
Line S02589 Modification History
M01 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
04563  M01S02589.286l859 ---|          RJ     SEM
Line S00516 Modification History
M01 (Added by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
04564  M01S00516.286l859 +++| PAL3     SA7    AREF        INDICATE READ ERROR
04565  M00S02590.pfload  +++|          RJ     SER         SKIP TO END OF RECORD
Line S02591 Modification History
M01 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
04566  M01S02591.286l859 ---|          SA1    PECT        INCREMENT PARITY ERROR COUNT
04567  M01S02592.286l859 ---|          SX7    X1+1
04568  M01S02593.286l859 ---|          SX1    X1-PELM
04569  M01S02594.286l859 ---|          SA7    A1+
04570  M01S02595.286l859 ---|          NG     X1,PAL1     IF PARITY ERROR LIMIT NOT REACHED
04571  M01S02596.286l859 ---|          SX5    MSGR        * PFLOAD - EXCESSIVE PARITY ERRORS.*
04572  M01S02597.286l859 ---|          RJ     SEM         SEND ERROR MESSAGE
04573  M01S02598.286l859 ---|          EQ     ABT         ABORT
Line S00517 Modification History
M01 (Added by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
04574  M01S00517.286l859 +++|          EQ     PAL1        READ ARCHIVE FILE CONTROL WORD
Line S00872 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
04575  M01S00872.ns22000 +++| PCB      SPACE  4,40
04576  M01S00873.ns22000 +++|**        PCB - PROCESS CATALOG BUFFER.
04577  M01S00874.ns22000 +++|*
Line S00875 Modification History
M01 (Added by) ns22000
M02 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
04578  M02S00875.286l859 ---|*         ENTRY  (CPAR) = CONVERTED PARAMETER ARRAY.
04579  M02S00876.286l859 ---|*                (MASK) = MASTER DEVICE MASK.
04580  M02S00877.286l859 ---|*                (MMSK) = CURRENT MASTER DEVICE MASK.
04581  M02S00878.286l859 ---|*                (NCTR) = CURRENT NUMBER OF CATALOG TRACKS.
04582  M02S00879.286l859 ---|*                (CCTR) = CURRENT CATALOG TRACK.
04583  M02S00880.286l859 ---|*                (TMDD) = TABLE OF MASTER DEVICE DESCRIPTIONS.
04584  M02S00881.286l859 ---|*                (NILD) = NON-INITIAL LOAD FLAG.
04585  M02S00882.286l859 ---|*                (CWBF) = CATALOG CONTROL WORD.
04586  M02S00883.286l859 ---|*
Line S00884 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
04587  M01S00884.ns22000 +++|*         EXIT   (X6) = 0 IF FILE NOT TO BE LOADED.
04588  M01S00885.ns22000 +++|*                     = 1 IF FILE TO BE LOADED.
04589  M01S00886.ns22000 +++|*                (TCBF) = CATALOG ENTRY FOR CURRENT FILE.
Line S00887 Modification History
M01 (Added by) ns22000
M02 (Removed by) ns2697
Seq #  *Modification Id* Act 
----------------------------+
04590  M02S00887.ns2697  ---|*                (MDDS) = MASTER DEVICE DESCRIPTION FOR FILE.
Line S00888 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
04591  M01S00888.ns22000 +++|*                (MMSK) = UPDATED MASTER DEVICE MASK.
04592  M01S00889.ns22000 +++|*                (NCTR) = UPDATED NUMBER OF CATALOG TRACKS.
04593  M01S00890.ns22000 +++|*                (MAEQ) = UPDATED MASTER EQUIPMENT.
Line S00891 Modification History
M01 (Added by) ns22000
M02 (Removed by) ns2697
Seq #  *Modification Id* Act 
----------------------------+
04594  M02S00891.ns2697  ---|*                (DAEQ) = DAPF EST ORDINAL IF FAMILY LOAD.
Line S00892 Modification History
M01 (Added by) ns22000
M02 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
04595  M02S00892.286l859 ---|*                (NILD) = SET AFTER DEVICE SWITCH.
Line S00893 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
04596  M01S00893.ns22000 +++|*                (CPAR+/COMSPFS/CPDN) = UPDATED MASTER DEVICE NUMBER.
04597  M01S00894.ns22000 +++|*                (SKER) = 1 IF *SKIP TO EOR* REQUIRED.
04598  M01S00895.ns22000 +++|*                (PFCO) = 0 IF *PFC ONLY* FILE.
Line S00896 Modification History
M01 (Added by) ns22000
M02 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
04599  M02S00896.286l859 ---|*                       .NE. 0 IF NOT *PFC ONLY* FILE.
Line S00518 Modification History
M01 (Added by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
04600  M01S00518.286l859 +++|*                (PFCO) .NE. 0 IF NOT *PFC ONLY* FILE.
Line S00897 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
04601  M01S00897.ns22000 +++|*                MASTER DEVICE SWITCH MADE IF NECESSARY.
04602  M01S00898.ns22000 +++|*                FILES OPENED IF A MASTER DEVICE SWITCH IS MADE.
Line S00899 Modification History
M01 (Added by) ns22000
M02 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
04603  M02S00899.253l688 ---|*                CATALOG ENTRY FOR CURRENT FILE MOVED TO CATALOG
04604  M02S00900.253l688 ---|*                BUFFER STARTING AT CURRENT IN ADDRESS.
Line S00096 Modification History
M01 (Added by) 253l688
M02 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
04605  M02S00096.286l859 ---|*                CATALOG ENTRY FORMATTED AND WRITTEN TO OUTPUT FILE IF
04606  M02S00097.286l859 ---|*                  REQUIRED.
04607  M02S00098.286l859 ---|*                CATALOG ENTRY WRITTEN TO SUMMARY FILE IF REQUIRED.
Line S00901 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
04608  M01S00901.ns22000 +++|*
Line S00902 Modification History
M01 (Added by) ns22000
M02 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
04609  M02S00902.286l859 ---|*         USES   X - ALL.
Line S00903 Modification History
M01 (Added by) ns22000
M02 (Removed by) ns2697
M03 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
04610  M03S00903.286l859 ---|*                A - 1, 2, 3, 5, 6, 7.
04611  M03S00904.286l859 ---|*                B - 2, 7.
Line S00270 Modification History
M01 (Added by) ns2697
M02 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
04612  M02S00270.286l859 ---|*                A - 1, 2, 5, 6, 7.
Line S00519 Modification History
M01 (Added by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
04613  M01S00519.286l859 +++|*         USES   X - 0, 1, 2, 4, 5, 6, 7.
04614  M01S00520.286l859 +++|*                A - 1, 5, 7.
Line S00905 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
04615  M01S00905.ns22000 +++|*
Line S00906 Modification History
M01 (Added by) ns22000
M02 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
04616  M02S00906.253l688 ---|*         CALLS  AEC, CCE, CCI, CSP, EFL, GCT, MCE, MCO, PPF, PDI, PGF,
Line S00099 Modification History
M01 (Added by) 253l688
M02 (Removed by) ns2697
Seq #  *Modification Id* Act 
----------------------------+
04617  M02S00099.ns2697  ---|*         CALLS  AEC, CCE, CCI, CSP, EFL, GCT, MCE, OCD, PPF, PDI, PGF,
Line S00907 Modification History
M01 (Added by) ns22000
M02 (Removed by) ns2697
Seq #  *Modification Id* Act 
----------------------------+
04618  M02S00907.ns2697  ---|*                SDM, SEM, SFD, SMD, VFN.
Line S00271 Modification History
M01 (Added by) ns2697
M02 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
04619  M02S00271.286l859 ---|*         CALLS  AEC, CCE, CCI, CDE, CSP, EFL, GCT, MCE, OCD, PGF, SDM,
04620  M02S00272.286l859 ---|*                SEM, SFL, SMD, VFN.
Line S00521 Modification History
M01 (Added by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
04621  M01S00521.286l859 +++|*         CALLS  CCE, CCI, CDE, CFE, CSP, DFN, ECL, EFL, GCT, MCE, PGF,
04622  M01S00522.286l859 +++|*                SFE, SFL, SMD, VFN.
Line S00908 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
04623  M01S00908.ns22000 +++|*
Line S00909 Modification History
M01 (Added by) ns22000
M02 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
04624  M02S00909.286l859 ---|*         MACROS CWREAD, EDITS, MESSAGE, MOVE.
Line S00523 Modification History
M01 (Added by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
04625  M01S00523.286l859 +++|*         MACROS CWREAD, MESSAGE, MOVE.
Line S00910 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
04626  M01S00910.ns22000 +++|
04627  M01S00911.ns22000 +++|
04628  M01S00912.ns22000 +++| PCB      SUBR               ENTRY/EXIT
04629  M01S00913.ns22000 +++|
04630  M01S00914.ns22000 +++|*         CHECK FOR PFC ONLY FILE.
04631  M01S00915.ns22000 +++|
04632  M01S00916.ns22000 +++|          SA1    CWBF        FETCH CONTROL WORD
04633  M01S00917.ns22000 +++|          MX0    -3          EXTRACT SUBTYPE
04634  M01S00918.ns22000 +++|          LX0    11-2
04635  M01S00919.ns22000 +++|          BX7    -X0*X1
04636  M01S00920.ns22000 +++|          SA7    PFCO        SAVE *PFC ONLY* FLAG
04637  M01S00921.ns22000 +++|
Line S00922 Modification History
M01 (Added by) ns22000
M02 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
04638  M02S00922.286l859 ---|*         READ CATALOG ENTRY.
Line S00524 Modification History
M01 (Added by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
04639  M01S00524.286l859 +++|*         READ AND VALIDATE CATALOG ENTRY.
Line S00923 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
04640  M01S00923.ns22000 +++|
04641  M01S00924.ns22000 +++|          MX0    -9
04642  M01S00925.ns22000 +++|          BX5    -X0*X1
04643  M01S00926.ns22000 +++|          CWREAD TAPE,TCBF,X5
Line S00927 Modification History
M01 (Added by) ns22000
M02 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
04644  M02S00927.286l859 ---|          NZ     X7,PCB5     IF PARITY ERROR
Line S00525 Modification History
M01 (Added by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
04645  M01S00525.286l859 +++|          NZ     X7,PCB10    IF READ ERROR
Line S00928 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
04646  M01S00928.ns22000 +++|          RJ     VFN         VALIDATE FILE NAME
Line S00929 Modification History
M01 (Added by) ns22000
M02 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
04647  M02S00929.v23l617 ---|          PL     X3,PCB6     IF ILLEGAL FILE NAME
Line S00019 Modification History
M01 (Added by) v23l617
M02 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
04648  M02S00019.286l859 ---|          PL     X3,PCB6     IF FILE NAME NOT VALID
Line S00526 Modification History
M01 (Added by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
04649  M01S00526.286l859 +++|          PL     X3,PCB9     IF FILE NAME NOT VALID
Line S00930 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
04650  M01S00930.ns22000 +++|          SA1    TCBF+FCUI   VALIDATE USER INDEX
04651  M01S00931.ns22000 +++|          SX6    X1+
Line S00932 Modification History
M01 (Added by) ns22000
M02 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
04652  M02S00932.v23l617 ---|          NG     X6,PCB6     IF ILLEGAL USER INDEX
Line S00020 Modification History
M01 (Added by) v23l617
M02 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
04653  M02S00020.286l859 ---|          NG     X6,PCB6     IF USER INDEX NOT VALID
Line S00933 Modification History
M01 (Added by) ns22000
M02 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
04654  M02S00933.286l859 ---|          RJ     SDM         SET DISPLAY MESSAGES
Line S00527 Modification History
M01 (Added by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
04655  M01S00527.286l859 +++|          NG     X6,PCB9     IF USER INDEX NOT VALID
Line S00934 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
04656  M01S00934.ns22000 +++|
04657  M01S00935.ns22000 +++|*         CHECK FORMAT OF CATALOG ENTRY.
04658  M01S00936.ns22000 +++|
04659  M01S00937.ns22000 +++|          SA1    CWBF        CHECK SIZE OF CATALOG ENTRY
04660  M01S00938.ns22000 +++|          MX6    -9
04661  M01S00939.ns22000 +++|          BX2    -X6*X1
04662  M01S00940.ns22000 +++|          SX1    X2-NWCE
Line S00941 Modification History
M01 (Added by) ns22000
M02 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
04663  M02S00941.286l859 ---|          ZR     X1,PCB1     IF NOT CURRENT SIZE
Line S00528 Modification History
M01 (Added by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
04664  M01S00528.286l859 +++|          ZR     X1,PCB1     IF CURRENT SIZE
Line S00942 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
04665  M01S00942.ns22000 +++|          SX4    TCBF
04666  M01S00943.ns22000 +++|          RJ     CCE         CONVERT CATALOG ENTRY TO CURRENT FORMAT
04667  M01S00944.ns22000 +++|
Line S00945 Modification History
M01 (Added by) ns22000
M02 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
04668  M02S00945.253l688 ---|*         PROCESS SELECTIVE PARAMETERS.
Line S00100 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
04669  M01S00100.253l688 +++|*         PROCESS SELECTION PARAMETERS.
Line S00946 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
04670  M01S00946.ns22000 +++|
Line S00947 Modification History
M01 (Added by) ns22000
M02 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
04671  M02S00947.286l859 ---| PCB1     SA1    CPAR+/COMSPFS/CPOP
Line S00529 Modification History
M01 (Added by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
04672  M01S00529.286l859 +++| PCB1     SA1    CPAR+/COMSPFS/CPOP
Line S00948 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
04673  M01S00948.ns22000 +++|          LX1    59-46
04674  M01S00949.ns22000 +++|          PL     X1,PCB2     IF *OP=Z* NOT SELECTED
04675  M01S00950.ns22000 +++|          SA1    PFCO
Line S00951 Modification History
M01 (Added by) ns22000
M02 (Removed by) ns2697
Seq #  *Modification Id* Act 
----------------------------+
04676  M02S00951.ns2697  ---|          ZR     X1,PCB4     IF *PFC ONLY*
04677  M02S00952.ns2697  ---| PCB2     SA1    CPAR+/COMSPFS/CPDI
04678  M02S00953.ns2697  ---|          SA2    TCBF+FCUI   USER INDEX FROM CATALOG
04679  M02S00954.ns2697  ---|          NZ     X1,PCB3     IF DESTINATION INDEX SPECIFIED
04680  M02S00955.ns2697  ---|          MX0    -3          CHECK USER INDEX AGAINST MASK
04681  M02S00956.ns2697  ---|          BX1    -X0*X2
04682  M02S00957.ns2697  ---|          SA2    MASK
04683  M02S00958.ns2697  ---|          SB2    X1
04684  M02S00959.ns2697  ---|          MX0    -1
04685  M02S00960.ns2697  ---|          AX1    X2,B2       SELECT MASK BIT
04686  M02S00961.ns2697  ---|          BX2    -X0*X1
04687  M02S00962.ns2697  ---|          ZR     X2,PCB13    IF USER INDEX NOT TO BE LOADED
Line S00963 Modification History
M01 (Added by) ns22000
M02 (Removed by) 253l688
M03 (Removed by) ns2697
Seq #  *Modification Id* Act 
----------------------------+
04688  M03S00963.ns2697  ---| PCB3     RJ     CSP         CHECK SELECTIVE PARAMETERS
Line S00101 Modification History
M01 (Added by) 253l688
M02 (Removed by) ns2697
Seq #  *Modification Id* Act 
----------------------------+
04689  M02S00101.ns2697  ---| PCB3     RJ     CSP         CHECK SELECTION PARAMETERS
Line S00273 Modification History
M01 (Added by) ns2697
M02 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
04690  M02S00273.286l859 ---|          ZR     X1,PCB13    IF *PFC ONLY FILE*
Line S00530 Modification History
M01 (Added by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
04691  M01S00530.286l859 +++|          ZR     X1,PCB6     IF PFC ONLY FILE
Line S00274 Modification History
M01 (Added by) ns2697
Seq #  *Modification Id* Act 
----------------------------+
04692  M01S00274.ns2697  +++| PCB2     RJ     CCI         CHECK CATALOG IMAGE
Line S00275 Modification History
M01 (Added by) ns2697
M02 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
04693  M02S00275.286l859 ---|          NZ     X6,PCB13    IF FILE NOT TO BE LOADED
Line S00531 Modification History
M01 (Added by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
04694  M01S00531.286l859 +++|          NZ     X6,PCB6     IF FILE NOT TO BE LOADED
Line S00276 Modification History
M01 (Added by) ns2697
Seq #  *Modification Id* Act 
----------------------------+
04695  M01S00276.ns2697  +++|          RJ     CSP         CHECK SELECTION PARAMETERS
Line S00964 Modification History
M01 (Added by) ns22000
M02 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
04696  M02S00964.286l859 ---|          ZR     X6,PCB13    IF FILE NOT TO BE LOADED
Line S00532 Modification History
M01 (Added by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
04697  M01S00532.286l859 +++|          ZR     X6,PCB6     IF FILE NOT TO BE LOADED
Line S00965 Modification History
M01 (Added by) ns22000
M02 (Removed by) ns2697
Seq #  *Modification Id* Act 
----------------------------+
04698  M02S00965.ns2697  ---|          RJ     CCI         CHECK CATALOG IMAGE
04699  M02S00966.ns2697  ---|          NZ     X6,PCB4     IF FILE NOT TO BE LOADED
04700  M02S00967.ns2697  ---|          RJ     PDI         PROCESS DESTINATION INDEX
Line S00968 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
04701  M01S00968.ns22000 +++|
Line S00969 Modification History
M01 (Added by) ns22000
M02 (Removed by) ns2697
Seq #  *Modification Id* Act 
----------------------------+
04702  M02S00969.ns2697  ---|*         CHECK FILE TYPE.
Line S00277 Modification History
M01 (Added by) ns2697
Seq #  *Modification Id* Act 
----------------------------+
04703  M01S00277.ns2697  +++|*         DETERMINE IF FILE CAN BE LOADED IN CURRENT ENVIRONMENT.
Line S00970 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
04704  M01S00970.ns22000 +++|
Line S00971 Modification History
M01 (Added by) ns22000
M02 (Removed by) ns2697
Seq #  *Modification Id* Act 
----------------------------+
04705  M02S00971.ns2697  ---|          SA1    TCBF+FCBS   CHECK FILE TYPE
04706  M02S00972.ns2697  ---|          LX1    59-11
04707  M02S00973.ns2697  ---|          BX6    X1
04708  M02S00974.ns2697  ---|          SA6    TYPE
04709  M02S00975.ns2697  ---|          NG     X1,PCB7     IF A DIRECT ACCESS FILE
Line S00278 Modification History
M01 (Added by) ns2697
Seq #  *Modification Id* Act 
----------------------------+
04710  M01S00278.ns2697  +++|          RJ     SMD         SET MASTER DEVICE PARAMETERS
04711  M01S00279.ns2697  +++|          RJ     SFL         SEARCH FILE LIST
Line S00280 Modification History
M01 (Added by) ns2697
M02 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
04712  M02S00280.286l859 ---|          ZR     X6,PCB2.1   IF FILE ALREADY PRESENT
Line S00533 Modification History
M01 (Added by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
04713  M01S00533.286l859 +++|          ZR     X6,PCB3     IF FILE ALREADY PRESENT
Line S00281 Modification History
M01 (Added by) ns2697
Seq #  *Modification Id* Act 
----------------------------+
04714  M01S00281.ns2697  +++|          RJ     CDE         CHECK DEVICE ENVIRONMENT
Line S00282 Modification History
M01 (Added by) ns2697
M02 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
04715  M02S00282.286l859 ---|          ZR     X5,PCB9     IF NO ERROR
04716  M02S00283.286l859 ---|          EQ     PCB3        ISSUE ERROR MESSAGE AND SKIP FILE
Line S00534 Modification History
M01 (Added by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
04717  M01S00534.286l859 +++|          ZR     B2,PCB5     IF NO ERROR
04718  M01S00535.286l859 +++|          EQ     PCB8        ISSUE ERROR MESSAGE AND SKIP FILE
Line S00976 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
04719  M01S00976.ns22000 +++|
Line S00977 Modification History
M01 (Added by) ns22000
M02 (Removed by) ns2697
Seq #  *Modification Id* Act 
----------------------------+
04720  M02S00977.ns2697  ---|*         PROCESS INDIRECT ACCESS FILE.
Line S00284 Modification History
M01 (Added by) ns2697
M02 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
04721  M02S00284.286l859 ---| PCB2.1   SA1    CPAR+/COMSPFS/CPOP
Line S00536 Modification History
M01 (Added by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
04722  M01S00536.286l859 +++| PCB3     SA1    CPAR+/COMSPFS/CPOP
Line S00285 Modification History
M01 (Added by) ns2697
Seq #  *Modification Id* Act 
----------------------------+
04723  M01S00285.ns2697  +++|          LX1    59-52
Line S00286 Modification History
M01 (Added by) ns2697
M02 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
04724  M02S00286.286l859 ---|          PL     X1,PCB4     IF REPLACE OPTION NOT SPECIFIED
Line S00537 Modification History
M01 (Added by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
04725  M01S00537.286l859 +++|          PL     X1,PCB9     IF REPLACE OPTION NOT SPECIFIED
Line S00287 Modification History
M01 (Added by) ns2697
Seq #  *Modification Id* Act 
----------------------------+
04726  M01S00287.ns2697  +++|          RJ     CDE         CHECK DEVICE ENVIRONMENT
Line S00288 Modification History
M01 (Added by) ns2697
M02 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
04727  M02S00288.286l859 ---|          SX6    X5-MES13
04728  M02S00289.286l859 ---|          ZR     X5,PCB2.2   IF NO ERROR
04729  M02S00290.286l859 ---|          NZ     X6,PCB3     IF NOT *NO SPACE FOR FILE* ERROR
04730  M02S00291.286l859 ---| PCB2.2   RJ     PGF         PURGE FILE
04731  M02S00292.286l859 ---|          NZ     X5,PCB3     IF NO SPACE FOR FILE
Line S00538 Modification History
M01 (Added by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
04732  M01S00538.286l859 +++|          SX6    B2-ERNS
04733  M01S00539.286l859 +++|          ZR     B2,PCB4     IF NO ERROR
04734  M01S00540.286l859 +++|          NZ     X6,PCB8     IF NOT *NO SPACE FOR FILE* ERROR
04735  M01S00541.286l859 +++| PCB4     RJ     PGF         PURGE FILE
04736  M01S00542.286l859 +++|          NZ     B2,PCB8     IF NO SPACE FOR FILE
Line S00293 Modification History
M01 (Added by) ns2697
Seq #  *Modification Id* Act 
----------------------------+
04737  M01S00293.ns2697  +++|          RJ     SFL         SEARCH FILE LIST
Line S00294 Modification History
M01 (Added by) ns2697
M02 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
04738  M02S00294.286l859 ---|          SX5    MES23       * PFLOAD - ERROR ON FILE PURGE.*
04739  M02S00295.286l859 ---|          ZR     X6,PCB3     IF FILE FOUND AGAIN AFTER PURGE
Line S00543 Modification History
M01 (Added by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
04740  M01S00543.286l859 +++|          SB2    ERPE        * ERROR ON FILE PURGE ...*
04741  M01S00544.286l859 +++|          ZR     X6,PCB8     IF FILE FOUND AGAIN AFTER PURGE
Line S00296 Modification History
M01 (Added by) ns2697
Seq #  *Modification Id* Act 
----------------------------+
04742  M01S00296.ns2697  +++|          RJ     CDE         CHECK DEVICE ENVIRONMENT
Line S00297 Modification History
M01 (Added by) ns2697
M02 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
04743  M02S00297.286l859 ---|          ZR     X5,PCB9     IF NO ERROR
Line S00545 Modification History
M01 (Added by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
04744  M01S00545.286l859 +++|          NZ     B2,PCB8     IF ERROR
Line S00978 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
04745  M01S00978.ns22000 +++|
Line S00979 Modification History
M01 (Added by) ns22000
M02 (Removed by) ns2697
Seq #  *Modification Id* Act 
----------------------------+
04746  M02S00979.ns2697  ---|          SA2    CPAR+/COMSPFS/CPDN
04747  M02S00980.ns2697  ---|          RJ     SFD         SEARCH FOR DEVICE
04748  M02S00981.ns2697  ---|          SA5    A1+1
04749  M02S00982.ns2697  ---|          RJ     CAL         CHECK ACCESS LEVEL
04750  M02S00983.ns2697  ---|          PL     X6,PCB8     IF NO ERROR
04751  M02S00984.ns2697  ---|          EDITS  MSFN,MES14  * PFLOAD - NO DEVICE FOUND.*
Line S00298 Modification History
M01 (Added by) ns2697
M02 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
04752  M02S00298.286l859 ---|*         ISSUE ERROR MESSAGE AND SUPPRESS LOADING OF FILE.
Line S00546 Modification History
M01 (Added by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
04753  M01S00546.286l859 +++|*         LOAD FILE.
Line S00985 Modification History
M01 (Added by) ns22000
M02 (Removed by) pfloa10
Seq #  *Modification Id* Act 
----------------------------+
04754  M02S00985.pfloa10 ---|          RJ     SEM
04755  M02S00986.pfloa10 ---|          RJ     AEC         ADVANCE ERROR COUNT
Line S00987 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
04756  M01S00987.ns22000 +++|
Line S00988 Modification History
M01 (Added by) ns22000
M02 (Removed by) ns2697
Seq #  *Modification Id* Act 
----------------------------+
04757  M02S00988.ns2697  ---|*         SUPPRESS LOADING OF FILE.
04758  M02S00989.ns2697  ---|
Line S00299 Modification History
M01 (Added by) ns2697
M02 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
04759  M02S00299.286l859 ---| PCB3     EDITS  MSFN,X5     BUILD ERROR MESSAGE
Line S00001 Modification History
M01 (Added by) pfloa10
M02 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
04760  M02S00001.286l859 ---| PCB3.1   RJ     SEM         SEND ERROR MESSAGE
04761  M02S00002.286l859 ---| PCB3.2   RJ     AEC         ADVANCE ERROR COUNT
Line S00990 Modification History
M01 (Added by) ns22000
M02 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
04762  M02S00990.286l859 ---| PCB4     SX7    B1          SET SKIP TO EOR FLAG
Line S00547 Modification History
M01 (Added by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
04763  M01S00547.286l859 +++| PCB5     SA7    TCBF+FCDN   SET DEVICE NUMBER
04764  M01S00548.286l859 +++|          RJ     EFL         ENTER FILE IN LIST
04765  M01S00549.286l859 +++|          SA1    TCBF+FCUI
04766  M01S00550.286l859 +++|          SA2    MSGA        *LOADING ...*
04767  M01S00551.286l859 +++|          RJ     DFN         DISPLAY MESSAGE
04768  M01S00552.286l859 +++|          RJ     ECL         EDIT CATALOG ENTRY FOR LOAD
04769  M01S00553.286l859 +++|          RJ     MCE         MOVE CATALOG ENTRY TO CATALOG BUFFER
04770  M01S00554.286l859 +++|          SX6    B1          SET LOAD FILE
04771  M01S00555.286l859 +++|          EQ     PCBX        RETURN
04772  M01S00556.286l859 +++|
04773  M01S00557.286l859 +++|*         DETERMINE IF END OF INDEX LOAD.
04774  M01S00558.286l859 +++|
04775  M01S00559.286l859 +++| PCB6     SA5    MXDC
04776  M01S00560.286l859 +++|          ZR     X5,PCB9     IF NOT SELECTIVE LOAD
04777  M01S00561.286l859 +++|          SA1    TCBF+FCUI   CURRENT USER INDEX
04778  M01S00562.286l859 +++|          MX2    -3
04779  M01S00563.286l859 +++|          BX2    -X2*X1      SUBFAMILY INDEX
04780  M01S00564.286l859 +++|          SA2    SFDT+X2
04781  M01S00565.286l859 +++|          LX1    -3
04782  M01S00566.286l859 +++|          SX6    X2          CATALOG TRACK MASK
04783  M01S00567.286l859 +++|          BX2    -X6*X2      ARCHIVE FILE DEVICE ORDINAL
04784  M01S00568.286l859 +++|          BX1    X6*X1       CATALOG TRACK
04785  M01S00569.286l859 +++|          BX6    X2+X1
04786  M01S00570.286l859 +++|          IX6    X5-X6
04787  M01S00571.286l859 +++|          PL     X6,PCB9     IF NOT PAST USER INDEX-S CATALOG TRACK
04788  M01S00572.286l859 +++|          SX7    1
04789  M01S00573.286l859 +++|          SA7    EOLF        SET END OF LOAD FLAG
04790  M01S00574.286l859 +++|          EQ     PCB9        SKIP FILE
04791  M01S00575.286l859 +++|
04792  M01S00576.286l859 +++|*         ISSUE ERROR MESSAGE AND COUNT FILE NOT LOADED.
04793  M01S00577.286l859 +++|
04794  M01S00578.286l859 +++| PCB8     SA1    TCBF+FCUI   SET FILE NAME AND USER INDEX
04795  M01S00579.286l859 +++|          RJ     SFE         SEND ERROR MESSAGE
04796  M01S00580.286l859 +++|          RJ     CFE         ISSUE MESSAGE AND COUNT FILE NOT LOADED
04797  M01S00581.286l859 +++|
04798  M01S00582.286l859 +++|*         SKIP FILE.
04799  M01S00583.286l859 +++|
04800  M01S00584.286l859 +++| PCB9     SX7    B1          SET SKIP TO EOR FLAG
Line S00102 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
04801  M01S00102.253l688 +++|          SA7    SKER
Line S00103 Modification History
M01 (Added by) 253l688
M02 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
04802  M02S00103.286l859 ---|          SA5    IDSA+/COMSPFS/ADMS
04803  M02S00104.286l859 ---|          MOVE   3,MSGE,X5
04804  M02S00105.286l859 ---|          MESSAGE  MSGE,1    *SKIPPING (FILENAME) (USERINDEX)*
Line S00585 Modification History
M01 (Added by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
04805  M01S00585.286l859 +++|          SA1    TCBF+FCUI
04806  M01S00586.286l859 +++|          SA2    MSGE        *SKIPPING ...*
04807  M01S00587.286l859 +++|          RJ     DFN         DISPLAY MESSAGE
Line S00991 Modification History
M01 (Added by) ns22000
M02 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
04808  M02S00991.286l859 ---|          BX6    X6-X6       CLEAR LOAD FLAG
Line S00588 Modification History
M01 (Added by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
04809  M01S00588.286l859 +++|          SX6    B0          SET SKIP FILE
Line S00992 Modification History
M01 (Added by) ns22000
M02 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
04810  M02S00992.253l688 ---|          SA7    SKER
Line S00993 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
04811  M01S00993.ns22000 +++|          EQ     PCBX        RETURN
Line S00994 Modification History
M01 (Added by) ns22000
M02 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
04812  M02S00994.286l859 ---|
04813  M02S00995.286l859 ---|*         PROCESS PARITY ERROR.
04814  M02S00996.286l859 ---|
04815  M02S00997.286l859 ---| PCB5     SX5    MSGN        * PFLOAD - TAPE PARITY ERROR.*
Line S00998 Modification History
M01 (Added by) ns22000
M02 (Removed by) pfloa10
M03 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
04816  M03S00998.286l859 ---|          RJ     SEM
04817  M03S00999.286l859 ---|          RJ     AEC         ADVANCE ERROR COUNT
04818  M03S01000.286l859 ---|          EQ     PCB4        SKIP FILE
Line S00003 Modification History
M01 (Added by) pfloa10
M02 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
04819  M02S00003.286l859 ---|          EQ     PCB3.1      ISSUE MESSAGE AND SKIP FILE
Line S01001 Modification History
M01 (Added by) ns22000
M02 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
04820  M02S01001.286l859 ---|
Line S01002 Modification History
M01 (Added by) ns22000
M02 (Removed by) v23l617
M03 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
04821  M03S01002.286l859 ---|*         PROCESS ILLEGAL FILE NAME/USER INDEX.
Line S00021 Modification History
M01 (Added by) v23l617
M02 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
04822  M02S00021.286l859 ---|*         PROCESS FILE NAME OR USER INDEX NOT VALID.
Line S01003 Modification History
M01 (Added by) ns22000
M02 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
04823  M02S01003.286l859 ---|
04824  M02S01004.286l859 ---| PCB6     SA1    TCBF+FCFN   SET NAME/INDEX PARAMETER
04825  M02S01005.286l859 ---|          MX0    30
04826  M02S01006.286l859 ---|          BX6    X0*X1
04827  M02S01007.286l859 ---|          BX7    -X0*X1
04828  M02S01008.286l859 ---|          LX6    30
04829  M02S01009.286l859 ---|          SA7    MPLH
04830  M02S01010.286l859 ---|          SA6    MPUH
Line S01011 Modification History
M01 (Added by) ns22000
M02 (Removed by) v23l617
M03 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
04831  M03S01011.286l859 ---|          EDITS  MSNI,MES6   * PFLOAD - ILLEGAL NAME/INDEX.*
Line S00022 Modification History
M01 (Added by) v23l617
M02 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
04832  M02S00022.286l859 ---|          EDITS  MSNI,MES6   * PFLOAD - INCORRECT NAME/INDEX.*
Line S01012 Modification History
M01 (Added by) ns22000
M02 (Removed by) pfloa10
M03 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
04833  M03S01012.286l859 ---|          RJ     SEM
04834  M03S01013.286l859 ---|          RJ     AEC         ADVANCE ERROR COUNT
04835  M03S01014.286l859 ---|          EQ     PCB4        SKIP FILE
Line S00004 Modification History
M01 (Added by) pfloa10
M02 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
04836  M02S00004.286l859 ---|          EQ     PCB3.1      ISSUE MESSAGE AND SKIP FILE
Line S01015 Modification History
M01 (Added by) ns22000
M02 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
04837  M02S01015.286l859 ---|
Line S01016 Modification History
M01 (Added by) ns22000
M02 (Removed by) ns2697
M03 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
04838  M03S01016.286l859 ---| PCB7     RJ     PDF         PROCESS DIRECT ACCESS FILE
Line S01017 Modification History
M01 (Added by) ns22000
M02 (Removed by) pfloa10
M03 (Removed by) ns2697
M04 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
04839  M04S01017.286l859 ---|          NZ     X5,PCB4     IF ERROR IN DEVICE SELECTION
Line S00005 Modification History
M01 (Added by) pfloa10
M02 (Removed by) ns2697
M03 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
04840  M03S00005.286l859 ---|          NZ     X5,PCB3.2   IF ERROR IN DEVICE SELECTION
Line S00300 Modification History
M01 (Added by) ns2697
M02 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
04841  M02S00300.286l859 ---|*         LOAD FILE.
Line S01018 Modification History
M01 (Added by) ns22000
M02 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
04842  M02S01018.286l859 ---|
Line S01019 Modification History
M01 (Added by) ns22000
M02 (Removed by) ns2697
M03 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
04843  M03S01019.286l859 ---|*         CHECK IF FILE ALREADY PERMANENT.
04844  M03S01020.286l859 ---|
04845  M03S01021.286l859 ---| PCB8     RJ     SMD         SET MASTER DEVICE PARAMETERS
04846  M03S01022.286l859 ---|          RJ     EFL         ENTER FILE LIST
04847  M03S01023.286l859 ---|          NZ     X6,PCB9     IF FILE NOT ALREADY PRESENT
04848  M03S01024.286l859 ---|
04849  M03S01025.286l859 ---|*         PROCESS REPLACE OPTION.
04850  M03S01026.286l859 ---|
04851  M03S01027.286l859 ---|          SA1    CPAR+/COMSPFS/CPOP
04852  M03S01028.286l859 ---|          LX1    59-52
04853  M03S01029.286l859 ---|          PL     X1,PCB4     IF FILE NOT TO BE LOADED (NO REPLACE)
04854  M03S01030.286l859 ---|          RJ     PGF         PURGE FILE
Line S01031 Modification History
M01 (Added by) ns22000
M02 (Removed by) pfloa10
M03 (Removed by) ns2697
M04 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
04855  M04S01031.286l859 ---|          NZ     X6,PCB4     IF FILE NOT TO BE LOADED
Line S00006 Modification History
M01 (Added by) pfloa10
M02 (Removed by) ns2697
M03 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
04856  M03S00006.286l859 ---|          NZ     X6,PCB3.2   IF ERROR ON PURGE
Line S01032 Modification History
M01 (Added by) ns22000
M02 (Removed by) ns2697
M03 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
04857  M03S01032.286l859 ---|
04858  M03S01033.286l859 ---|*         LOAD FILE.
04859  M03S01034.286l859 ---|
04860  M03S01035.286l859 ---| PCB9     SA5    IDSA+/COMSPFS/ADMS
Line S00301 Modification History
M01 (Added by) ns2697
M02 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
04861  M02S00301.286l859 ---| PCB9     SA7    TCBF+FCDN   SET DEVICE NUMBER
04862  M02S00302.286l859 ---|          RJ     EFL         ENTER FILE IN LIST
04863  M02S00303.286l859 ---|          SA5    IDSA+/COMSPFS/ADMS
Line S01036 Modification History
M01 (Added by) ns22000
M02 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
04864  M02S01036.286l859 ---|          MOVE   3,MSGA,X5
04865  M02S01037.286l859 ---|          MESSAGE MSGA,1     * LOADING  (FILE NAME) (USER INDEX)
04866  M02S01038.286l859 ---|          SA1    PFCO        FETCH *PFC ONLY* FLAG
04867  M02S01039.286l859 ---|          ZR     X1,PCB10    IF *PFC* ONLY
04868  M02S01040.286l859 ---|          SA1    CPAR+/COMSPFS/CPOP
Line S00106 Modification History
M01 (Added by) 253l688
M02 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
04869  M02S00106.286l859 ---|          BX6    X6-X6
Line S01041 Modification History
M01 (Added by) ns22000
M02 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
04870  M02S01041.286l859 ---|          LX1    59-46
Line S01042 Modification History
M01 (Added by) ns22000
M02 (Removed by) 253l688
M03 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
04871  M03S01042.286l859 ---|          PL     X1,PCB11    IF *OP=Z* NOT SELECTED
04872  M03S01043.286l859 ---|          BX6    X6-X6
04873  M03S01044.286l859 ---|          SA6    TCBF+FCAA+FCAT*0+FCAF*0
Line S00107 Modification History
M01 (Added by) 253l688
M02 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
04874  M02S00107.286l859 ---|          PL     X1,PCB10    IF *OP=Z* NOT SELECTED
04875  M02S00108.286l859 ---|          SA6    TCBF+FCAA+FCAT*0+FCAF*0  CLEAR CARTRIDGE POINTERS
04876  M02S00109.286l859 ---|          SA6    TCBF+FCTV+FCTS*0+FCTF*0  CLEAR TAPE POINTERS
Line S01045 Modification History
M01 (Added by) ns22000
M02 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
04877  M02S01045.286l859 ---|          EQ     PCB11       CHECK UTILITY CONTROL DATE UPDATE
04878  M02S01046.286l859 ---|
Line S01047 Modification History
M01 (Added by) ns22000
M02 (Removed by) 253l688
M03 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
04879  M03S01047.286l859 ---| PCB10    SX6    B1          SET *ASAVER* FLAG IN PFC
04880  M03S01048.286l859 ---|          SA1    TCBF+FCAF
04881  M03S01049.286l859 ---|          LX6    52
04882  M03S01050.286l859 ---|          BX6    X1+X6
04883  M03S01051.286l859 ---|          SA6    A1+
Line S00110 Modification History
M01 (Added by) 253l688
M02 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
04884  M02S00110.286l859 ---| PCB10    SA1    TCBF+FCAF   CHECK ALTERNATE STORAGE INFORMATION
04885  M02S00111.286l859 ---|          SA2    TCBF+FCTF
04886  M02S00112.286l859 ---|          MX0    -59
04887  M02S00113.286l859 ---|          BX6    -X0*X1      CLEAR *AFLOK* FLAG
04888  M02S00114.286l859 ---|          BX7    -X0*X2      CLEAR *TFLOK* FLAG
04889  M02S00115.286l859 ---|          MX0    -36
04890  M02S00116.286l859 ---|          BX3    -X0*X1
04891  M02S00117.286l859 ---|          BX4    -X0*X2
04892  M02S00118.286l859 ---|          SX0    1
04893  M02S00119.286l859 ---|          LX1    59-48
04894  M02S00120.286l859 ---|          LX0    52-0
04895  M02S00121.286l859 ---|          ZR     X3,PCB10.1  IF NO CARTRIDGE ALTERNATE STORAGE COPY
04896  M02S00122.286l859 ---|          NG     X1,PCB10.1  IF CARTRIDGE COPY IS OBSOLETE
04897  M02S00123.286l859 ---|          BX6    X6+X0       SET *AFVER* FLAG
04898  M02S00124.286l859 ---| PCB10.1  ZR     X4,PCB10.2  IF NO TAPE ALTERNATE STORAGE COPY
04899  M02S00125.286l859 ---|          LX0    48-52
Line S00126 Modification History
M01 (Added by) 253l688
M02 (Removed by) pfloa20
M03 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
04900  M03S00126.286l859 ---|          BX7    X2+X0       SET *TFVER* FLAG
Line S00001 Modification History
M01 (Added by) pfloa20
M02 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
04901  M02S00001.286l859 ---|          BX7    X7+X0       SET *TFVER* FLAG
Line S00127 Modification History
M01 (Added by) 253l688
M02 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
04902  M02S00127.286l859 ---| PCB10.2  SA6    TCBF+FCAF   SET CARTRIDGE ALTERNATE STORAGE FLAGS
04903  M02S00128.286l859 ---|          SA7    TCBF+FCTF   SET TAPE ALTERNATE STORAGE FLAGS
Line S01052 Modification History
M01 (Added by) ns22000
M02 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
04904  M02S01052.286l859 ---| PCB11    SA1    UDAT        FETCH UTLITY CONTROL UPDATE FLAG
04905  M02S01053.286l859 ---|          ZR     X1,PCB12    IF FORCED UPDATE FLAG NOT SET
04906  M02S01054.286l859 ---|          MX0    24
04907  M02S01055.286l859 ---|          SA2    TCBF+FCUD
04908  M02S01056.286l859 ---|          BX6    X0*X2
04909  M02S01057.286l859 ---|          BX6    X6+X1
04910  M02S01058.286l859 ---|          SA6    A2+
04911  M02S01059.286l859 ---| PCB12    RJ     MCE         MOVE CATALOG ENTRY TO CATALOG BUFFER
04912  M02S01060.286l859 ---|          SX6    B1+         SET FILE PROCESSED FLAG
04913  M02S01061.286l859 ---|          SA6    FPRF
Line S01062 Modification History
M01 (Added by) ns22000
M02 (Removed by) 253l688
M03 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
04914  M03S01062.286l859 ---|          SA2    CPAR+/COMSPFS/CPPF
04915  M03S01063.286l859 ---|          ZR     X2,PCB12.1  IF PF NAME NOT SPECIFIED
Line S00129 Modification History
M01 (Added by) 253l688
M02 (Removed by) ns2697
M03 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
04916  M03S00129.286l859 ---|          SA2    /COMSPFS/FISP
04917  M03S00130.286l859 ---|          ZR     X2,PCB12.1  IF NO FILE SELECTIONS
Line S01064 Modification History
M01 (Added by) ns22000
M02 (Removed by) ns2697
M03 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
04918  M03S01064.286l859 ---|          SA1    SFNA        MARK ENTRY AS FOUND
Proceed to Part 5
cdc/nos2.source/opl.opl871/deck/pfload.004.txt ยท Last modified: by 127.0.0.1