User Tools

Site Tools


Action unknown: copypageplugin__copy
cdc:nos2.source:opl.opl871:deck:pfm.012

Deck PFM Part 012

95 Modifications

Listing Sections

Source

Seq #  *Modification Id* Act 
----------------------------+
Line S01504 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
17019  M01S01504.242l642 +++| ISP      SPACE  4,20
17020  M00S12181.pfm     +++|**        ISP - INITIALIZE SEARCH OF PERMANENT FILES.
17021  M00S12182.pfm     +++|*
17022  M00S12183.pfm     +++|*         ENTRY  (SDAA) = MASTER DEVICE EST ORDINAL.
17023  M00S12184.pfm     +++|*                (CCIA) = CATALOG TRACK.
17024  M00S12185.pfm     +++|*
17025  M00S12186.pfm     +++|*         EXIT   (T4) = MASTER DEVICE CHANNEL.
17026  M00S12187.pfm     +++|*                (T5) = MASTER DEVICE EST ORDINAL.
17027  M00S12188.pfm     +++|*                (T6) = CATALOG TRACK.
17028  M00S12189.pfm     +++|*                (T7) = CATALOG SECTOR.
17029  M00S12190.pfm     +++|*                (DPPF) = INCREMENTED FOR CATALOG SEARCH.
Line S01505 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
17030  M01S01505.242l642 +++|*                (MSRA) = ERROR PROCESSOR ADDRESS FOR *RNS*.
17031  M00S12191.pfm     +++|*                (P0 - P4) = INITIALIZED CATALOG SEARCH POINTERS.
17032  M00S12192.pfm     +++|*                CATALOG TRACK INTERLOCK SET.
17033  M00S12193.pfm     +++|*                *SETMS READ* PERFORMED.
17034  M00S12194.pfm     +++|*
Line S12195 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
17035  M01S12195.242l642 ---|*         CALLS  IRA, ITC.
Line S01506 Modification History
M01 (Added by) 242l642
M02 (Removed by) pfm36
Seq #  *Modification Id* Act 
----------------------------+
17036  M02S01506.pfm36   ---|*         CALLS  IRA, ITC, PDV.
Line S00053 Modification History
M01 (Added by) pfm36
Seq #  *Modification Id* Act 
----------------------------+
17037  M01S00053.pfm36   +++|*         CALLS  ICT, IRA, PDV.
17038  M00S12196.pfm     +++|*
17039  M00S12197.pfm     +++|*         MACROS ERROR, SETMS.
17040  M00S12198.pfm     +++|
17041  M00S12199.pfm     +++|
17042  M00S12200.pfm     +++| ISP      SUBR               ENTRY/EXIT
17043  M00S12201.pfm     +++|          LDM    SDAA        SET MASTER DEVICE EST ORDINAL
17044  M00S12202.pfm     +++|          STD    T5
17045  M00S12203.pfm     +++|          LDM    CCIA        SET CATALOG TRACK
17046  M00S12204.pfm     +++|          STD    T6
Line S12205 Modification History
M01 (Removed by) pfm36
Seq #  *Modification Id* Act 
----------------------------+
17047  M01S12205.pfm36   ---|          RJM    ITC         SET CATALOG TRACK INTERLOCK
Line S00054 Modification History
M01 (Added by) pfm36
Seq #  *Modification Id* Act 
----------------------------+
17048  M01S00054.pfm36   +++|          RJM    ICT         INTERLOCK CATALOG TRACK
17049  M00S12206.pfm     +++|          AOM    CCIB        SET CATALOG TRACK INTERLOCK FLAG
17050  M00S12207.pfm     +++| ISP1     LDN    IPCS        PF INCREMENT FOR CATALOG SEARCH
Line S12208 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
17051  M01S12208.242l642 ---|          RAM    DPPF
Line S01507 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
17052  M01S01507.242l642 +++|          RAM    AIPF+1
17053  M00S12209.pfm     +++|          RJM    IRA         INITIALIZE RANDOM PROCESSORS
Line S01508 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
17054  M01S01508.242l642 +++|          LDK    PCC         SET ERROR PROCESSOR ADDRESS FOR *RNS*
17055  M01S01509.242l642 +++|          STM    MSRA
17056  M00S12210.pfm     +++|
17057  M00S12211.pfm     +++|*         SET SEARCH POINTERS.
17058  M00S12212.pfm     +++|
17059  M00S12213.pfm     +++|          LDN    0           SET STARTING CATALOG TRACK SECTOR
17060  M00S12214.pfm     +++|          STD    T7
17061  M00S12215.pfm     +++|          LDN    ZERL        CONTIGUOUS STORAGE INITIALIZATION
17062  M00S12216.pfm     +++|          CRD    P0          TEMPORARY CATALOG SEARCH BUFFER POINTERS
17063  M00S12217.pfm     +++|          LDC    BUF1        SET PRIMARY BUFFER POINTER
17064  M00S12218.pfm     +++|          STD    P2
17065  M00S12219.pfm     +++|          LDC    BUF2        SET SECONDARY BUFFER POINTER
17066  M00S12220.pfm     +++|          STD    P3
Line S12221 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
17067  M01S12221.242l642 ---|          SETMS  READ
17068  M01S12222.242l642 ---|          UJN    ISPX        RETURN
Line S01510 Modification History
M01 (Added by) 242l642
M02 (Removed by) ns2645
Seq #  *Modification Id* Act 
----------------------------+
17069  M02S01510.ns2645  ---|          SETMS  IO
Line S00020 Modification History
M01 (Added by) ns2645
Seq #  *Modification Id* Act 
----------------------------+
17070  M01S00020.ns2645  +++|          SETMS  READSTR
Line S01511 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
17071  M01S01511.242l642 +++|          RJM    PDV         PROCESS DEVICE STATUS
17072  M01S01512.242l642 +++|          UJP    ISPX        RETURN
17073  M00S12223.pfm     +++| PCC      SPACE  4,10
17074  M00S12224.pfm     +++|**        PCC - PROCESS CATALOG READ ERROR FOR *CHANGE*.
17075  M00S12225.pfm     +++|*
Line S12226 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
17076  M01S12226.242l642 ---|*         ENTRY  FROM MSR.
Line S01513 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
17077  M01S01513.242l642 +++|*         ENTRY  READ ERROR DETECTED BY *COMPRNS*.
17078  M00S12227.pfm     +++|
17079  M00S12228.pfm     +++|
Line S12229 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
17080  M01S12229.242l642 ---| PCC      BSS    0           ENTRY
17081  M01S12230.242l642 ---|          LDD    P1
17082  M01S12231.242l642 ---|          ZJN    PCC1        IF OLD FILE NOT FOUND
Line S01514 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
17083  M01S01514.242l642 +++| PCC      SUBR               ENTRY
17084  M01S01515.242l642 +++|          RJM    PES         PROCESS ERROR STATUS
17085  M00S12232.pfm     +++|          ERROR  MSE,,,EQ    *EQXXX,DNYY, MASS STORAGE ERROR.*
Line S12233 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
17086  M01S12233.242l642 ---|
17087  M01S12234.242l642 ---| PCC1     ERROR  FNF         *(FILENAME) NOT FOUND.*
17088  M00S12235.pfm     +++| SCT      SPACE  4,10
17089  M00S12236.pfm     +++|**        SCT - SEARCH CATALOG.
17090  M00S12237.pfm     +++|*
17091  M00S12238.pfm     +++|*         ENTRY  (FN - FN+3) = PF NAME.
17092  M00S12239.pfm     +++|*                (FS - FS+3) = NEW FILE NAME.
17093  M00S12240.pfm     +++|*                (UI - UI+1) = USER INDEX.
17094  M00S12241.pfm     +++|*
17095  M00S12242.pfm     +++|*         EXIT   (CB) = CATALOG BUFFER.
17096  M00S12243.pfm     +++|*                (CI) = CATALOG POINTER.
17097  M00S12244.pfm     +++|*                (A)  = 0 IF FILE NOT FOUND.
17098  M00S12245.pfm     +++|*
17099  M00S12246.pfm     +++|*         USES   CB, CI, P0, P1, T3.
17100  M00S12247.pfm     +++|*
17101  M00S12248.pfm     +++|*         CALLS  RNS, CFN.
17102  M00S12249.pfm     +++|
17103  M00S12250.pfm     +++|
17104  M00S12251.pfm     +++| SCT6     LDD    P1
17105  M00S12252.pfm     +++|
17106  M00S12253.pfm     +++| SCT      SUBR               ENTRY/EXIT
17107  M00S12254.pfm     +++|          LDN    IPCS        PF INCREMENT FOR CATALOG SEARCH
Line S12255 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
17108  M01S12255.242l642 ---|          RAM    DPPF
Line S01516 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
17109  M01S01516.242l642 +++|          RAM    AIPF+1
17110  M00S12256.pfm     +++|          UJN    SCT2        READ FIRST SECTOR FOR SEARCH
17111  M00S12257.pfm     +++|
17112  M00S12258.pfm     +++|*         END OF SECTOR.
17113  M00S12259.pfm     +++|
17114  M00S12260.pfm     +++| SCT1     LDC    *           SECTOR WORD COUNT
17115  M00S12261.pfm     +++| SCTA     EQU    *-1
17116  M00S12262.pfm     +++|          LPN    77
17117  M00S12263.pfm     +++|          NJN    SCT6        IF EOR
17118  M00S12264.pfm     +++|
17119  M00S12265.pfm     +++|*         READ NEXT SECTOR FOR SEARCH.
17120  M00S12266.pfm     +++|
17121  M00S12267.pfm     +++| SCT2     LDM    P2,P1       SET BUFFER ADDRESS
17122  M00S12268.pfm     +++|          STD    T3
17123  M00S12269.pfm     +++|          LDD    T6          SAVE POSITION OF SECTOR
17124  M00S12270.pfm     +++|          STM    -2,T3
17125  M00S12271.pfm     +++|          STM    ERRC
17126  M00S12272.pfm     +++|          LDD    T7
17127  M00S12273.pfm     +++|          STM    -1,T3
17128  M00S12274.pfm     +++|          STM    ERRD
17129  M00S12275.pfm     +++|          LDD    T3
17130  M00S12276.pfm     +++|          RJM    RNS         READ SECTOR
Line S12277 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
17131  M01S12277.242l642 ---| .MSE2    BSS    0           (*COMPRNS* RETURN ADDRESS)
17132  M00S12278.pfm     +++|          ZJN    SCT6        IF EOI
17133  M00S12279.pfm     +++|          STD    P0          SAVE WORD COUNT
17134  M00S12280.pfm     +++|          STM    SCTA
17135  M00S12281.pfm     +++|          LPN    NWCE-1
17136  M00S12282.pfm     +++|          ZJN    SCT3        IF INTEGRAL NUMBER OF CATALOG ENTRIES
Line S12283 Modification History
M01 (Removed by) ns2415
Seq #  *Modification Id* Act 
----------------------------+
17137  M01S12283.ns2415  ---|          ERROR  BCS,,,T5    *EQXXX,DNYY, BAD CATALOG/PERMIT SECTOR.*
Line S00202 Modification History
M01 (Added by) ns2415
Seq #  *Modification Id* Act 
----------------------------+
17138  M01S00202.ns2415  +++|          ERROR  BCS,,,T5,,EI  *EQXXX,DNYY, BAD CATALOG/PERMIT SECTOR.*
17139  M00S12284.pfm     +++|
17140  M00S12285.pfm     +++| SCT3     LDN    2
17141  M00S12286.pfm     +++|          RAD    T3          SKIP CONTROL BYTES
17142  M00S12287.pfm     +++|          UJN    SCT5        CHECK CATALOG ENTRY
17143  M00S12288.pfm     +++|
17144  M00S12289.pfm     +++|*         ADVANCE TO NEXT ENTRY.
17145  M00S12290.pfm     +++|
17146  M00S12291.pfm     +++| SCT4     LDC    NWCE*5      ADVANCE POINTER
17147  M00S12292.pfm     +++|          RAD    T3
17148  M00S12293.pfm     +++|          LCN    NWCE        DECREMENT WORD COUNT
17149  M00S12294.pfm     +++|          RAD    P0
17150  M00S12295.pfm     +++|          NJN    SCT5        IF NOT END OF BUFFER
17151  M00S12296.pfm     +++|          LJM    SCT1        PROCESS END OF BUFFER
17152  M00S12297.pfm     +++|
17153  M00S12298.pfm     +++|*         CHECK CATALOG ENTRY.
17154  M00S12299.pfm     +++|
17155  M00S12300.pfm     +++| SCT5     LDM    FCUI,T3
17156  M00S12301.pfm     +++|          LPN    37
17157  M00S12302.pfm     +++|          SHN    14
17158  M00S12303.pfm     +++|          LMM    FCUI+1,T3
17159  M00S12304.pfm     +++|          ZJN    SCT4        IF HOLE
17160  M00S12305.pfm     +++|          LMD    UI+1
17161  M00S12306.pfm     +++|          SHN    6
17162  M00S12307.pfm     +++|          LMD    UI
17163  M00S12308.pfm     +++|          NJN    SCT4        IF NOT CORRECT USER INDEX
17164  M00S12309.pfm     +++| SCTB     EQU    *-1         PRESET TO *PSN* IF PRIVATE DEVICE
17165  M00S12310.pfm     +++|          RJM    CFN         CHECK FILE NAME
17166  M00S12311.pfm     +++|          ZJN    SCT4        IF OLD NOT FOUND
17167  M00S12312.pfm     +++|
17168  M00S12313.pfm     +++|*         OLD FILE FOUND.
17169  M00S12314.pfm     +++|
17170  M00S12315.pfm     +++|          AOD    P1          SET NEW BUFFER
17171  M00S12316.pfm     +++|          LDD    T3          SET CATALOG ENTRY POINTERS
17172  M00S12317.pfm     +++|          STD    CI
17173  M00S12318.pfm     +++|          LDD    P2
17174  M00S12319.pfm     +++|          STD    CB
17175  M00S12320.pfm     +++| SCTC     LDN    0
17176  M00S12321.pfm     +++|*         LDN    1           (NO NEW FILE NAME)
17177  M00S12322.pfm     +++|          ZJN    SCT4        IF NEW FILENAME SPECIFIED, CONTINUE SEARCH
17178  M00S12323.pfm     +++|          LJM    SCTX        RETURN
17179  M00S12324.pfm     +++| SFL      SPACE  4,15
17180  M00S12325.pfm     +++|**        SFL - SET FILE NAMES.
17181  M00S12326.pfm     +++|*
17182  M00S12327.pfm     +++|*         EXIT   (FN - FN+3) = PERMANENT FILE NAME.
17183  M00S12328.pfm     +++|*                (FS - FS+3) = NEW FILE NAME.
17184  M00S12329.pfm     +++|*                (PI) = CATEGORY.
17185  M00S12330.pfm     +++|*                (PI+1) = MODE.
17186  M00S12331.pfm     +++|*
17187  M00S12332.pfm     +++|*         USES   FN - FN+4, FS - FS+4, PI - PI+1.
17188  M00S12333.pfm     +++|*
17189  M00S12334.pfm     +++|*         CALLS  ISP.
17190  M00S12335.pfm     +++|
17191  M00S12336.pfm     +++|
17192  M00S12337.pfm     +++| SFL      SUBR               ENTRY/EXIT
17193  M00S12338.pfm     +++|          LDD    MA          SET NEW FILE NAME
17194  M00S12339.pfm     +++|          CWM    PFNF,ON
17195  M00S12340.pfm     +++|          SBN    1
17196  M00S12341.pfm     +++|          CRD    FS          SET NEW FILE NAME
17197  M00S12342.pfm     +++|          LDD    FS
17198  M00S12343.pfm     +++|          NJN    SFL1        IF NEW FILE NAME
17199  M00S12344.pfm     +++|          AOM    CFNC        SET TO BYPASS CHECK FOR NEW NAME
17200  M00S12345.pfm     +++|          AOM    SCTC        SET TO BYPASS SEARCH FOR NEW NAME
17201  M00S12346.pfm     +++| SFL1     LDM    MODE
17202  M00S12347.pfm     +++|          SCN    77
17203  M00S12348.pfm     +++|          STD    PI          SET CATEGORY
17204  M00S12349.pfm     +++|          LDM    MODE
17205  M00S12350.pfm     +++|          LPN    77
17206  M00S12351.pfm     +++|          STD    PI+1        SET MODE
17207  M00S12352.pfm     +++|          RJM    ISP         INITIALIZE FOR SEARCH OF CATALOG
17208  M00S12353.pfm     +++|          UJN    SFLX        RETURN
17209  M00S12354.pfm     +++|          SPACE  4,10
17210  M00S12355.pfm     +++|*         COMMON DECKS.
17211  M00S12356.pfm     +++|
17212  M00S12357.pfm     +++|
17213  M00S12358.pfm     +++|*CALL     COMPSDN
17214  M00S12359.pfm     +++|*CALL     COMPRSS
17215  M00S12360.pfm     +++|          SPACE  4,10
17216  M00S12361.pfm     +++|*         EQUIVALENCE EXTERNALLY REFERENCED TAGS.
17217  M00S12362.pfm     +++|
17218  M00S12363.pfm     +++|
17219  M00S12364.pfm     +++|          QUAL   *
17220  M00S12365.pfm     +++|
17221  M00S12366.pfm     +++| PCC      EQU    /".O"/PCC
Line S12367 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
17222  M01S12367.242l642 ---| .MSE2    EQU    /".O"/.MSE2
17223  M00S12368.pfm     +++|          SPACE  4,10
17224  M00S12369.pfm     +++|*         CHECK FOR OVERFLOW.
17225  M00S12370.pfm     +++|
17226  M00S12371.pfm     +++|
17227  M00S12372.pfm     +++|          ERRNG  BUF1-2-*    OVERFLOW INTO CATALOG SEARCH BUFFER
17228  M00S12373.pfm     +++|
17229  M00S12374.pfm     +++|
17230  M00S12375.pfm     +++|          OVERFLOW  OVLC,EPFW  OVERFLOW INTO ERROR PROCESSING AREA
17231  M00S12376.pfm     +++|          OVERLAY  (SETASA/SETAF PROCESSING.)
17232  M00S12377.pfm     +++|          SPACE  4,10
17233  M00S12378.pfm     +++|**        THIS OVERLAY PROCESSES THE COMMANDS *SETASA* AND *SETAF*.
17234  M00S12379.pfm     +++|
17235  M00S12380.pfm     +++|
17236  M00S12381.pfm     +++| OVL      BSS    0           ENTRY
17237  M00S12382.pfm     +++|          RJM    RMD         RESET TO MASTER DEVICE
17238  M00S12383.pfm     +++|          LJM    0,P0        PROCESS COMMAND
17239  M00S12384.pfm     +++|          TITLE  COMMAND PROCESSING.
17240  M00S12385.pfm     +++| SAA      SPACE  4,10
17241  M00S12386.pfm     +++|***       PROCESS *SETASA* REQUEST.
17242  M00S12387.pfm     +++|*
17243  M00S12388.pfm     +++|*         SET ALTERNATE STORAGE ADDRESS IN CATALOG ENTRY.
17244  M00S12389.pfm     +++|
17245  M00S12390.pfm     +++|
17246  M00S12391.pfm     +++| SAA      BSS    0           ENTRY
Line S00527 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
17247  M01S00527.253l688 +++|          LDM    STAT
17248  M01S00528.253l688 +++|          LPK    STTA
17249  M01S00529.253l688 +++|          NJP    SAA3        IF TAPE ALTERNATE STORAGE REQUEST
17250  M01S00530.253l688 +++|
17251  M01S00531.253l688 +++|*         SET CARTRIDGE ALTERNATE STORAGE ADDRESS.
17252  M01S00532.253l688 +++|
Line S00006 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
17253  M01S00006.274l797 +++|          LDM    PFAT        GET ALTERNATE STORAGE TYPE
17254  M01S00007.274l797 +++|          LPN    77
17255  M01S00008.274l797 +++|          LMN    ATOD
17256  M01S00009.274l797 +++|          ZJN    SAA0        IF OPTICAL DISK STORAGE
17257  M00S12392.pfm     +++|          LDM    FCBS,CI
17258  M00S12393.pfm     +++|          SHN    21-13
17259  M00S12394.pfm     +++|          MJN    SAA1        IF DIRECT ACCESS FILE
Line S12395 Modification History
M01 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
17260  M01S12395.274l797 ---|          LDM    FCAF,CI
Line S00010 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
17261  M01S00010.274l797 +++| SAA0     LDM    FCAF,CI
17262  M00S12396.pfm     +++|          LPC    AFLOKM
17263  M00S12397.pfm     +++|          NJN    SAA2        IF *AFLOK* STILL SET
Line S12398 Modification History
M01 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
17264  M01S12398.253l688 ---|          ERROR  AIO         * ALTERNATE IMAGE OBSOLETE.*
Line S00533 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
17265  M01S00533.253l688 +++|          ERROR  AIO         * NO ALTERNATE STORAGE COPY OF FILE.*
17266  M00S12399.pfm     +++|
17267  M00S12400.pfm     +++| SAA1     RJM    CDA         COMPARE DISK ADDRESS FOR DIRECT ACCESS
17268  M00S12401.pfm     +++| SAA2     NFA    FA,R        SET FST COMPLETE
17269  M00S12402.pfm     +++|          ADN    FSTL
17270  M00S12403.pfm     +++|          CWD    FS
Line S00534 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
17271  M01S00534.253l688 +++|          LDN    0           CLEAR ALTERNATE STORAGE FLAGS
17272  M01S00535.253l688 +++|          STM    FCAF,CI
17273  M01S00536.253l688 +++|          LDM    PFAT        SET ALTERNATE STORAGE TYPE
17274  M01S00537.253l688 +++|          LMM    FCAT,CI
17275  M01S00538.253l688 +++|          SCN    77
17276  M01S00539.253l688 +++|          LMM    PFAT
17277  M01S00540.253l688 +++|          STM    FCAT,CI
17278  M00S12404.pfm     +++|          LDM    PFAA        SET ALTERNATE STORAGE ADDRESS
17279  M00S12405.pfm     +++|          STM    FCAA,CI
17280  M00S12406.pfm     +++|          LDM    PFAA+1
17281  M00S12407.pfm     +++|          STM    FCAA+1,CI
17282  M00S12408.pfm     +++|          LDM    PFAA+2
17283  M00S12409.pfm     +++|          STM    FCAA+2,CI
Line S12410 Modification History
M01 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
17284  M01S12410.253l688 ---|          LDM    PFAT        SET ALTERNATE STORAGE TYPE
17285  M01S12411.253l688 ---|          LMM    FCAT,CI
Line S00541 Modification History
M01 (Added by) 253l688
M02 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
17286  M02S00541.274l797 ---|          LJM    WCE         REWRITE CATALOG ENTRY AND EXIT
Line S00011 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
17287  M01S00011.274l797 +++|          LDM    PFAT
17288  M01S00012.274l797 +++|          LPN    77
17289  M01S00013.274l797 +++|          LMN    ATOD
17290  M01S00014.274l797 +++|          NJN    SAA2.1      IF NOT OPTICAL DISK STORAGE
17291  M01S00015.274l797 +++|          LDM    PFOA        SET OPTICAL DISK ADDRESS
17292  M01S00016.274l797 +++|          STM    FCOA,CI
17293  M01S00017.274l797 +++|          LDM    PFOA+1
17294  M01S00018.274l797 +++|          STM    FCOA+1,CI
17295  M01S00019.274l797 +++|          RJM    UFL         UPDATE FILE LENGTH
17296  M01S00020.274l797 +++| SAA2.1   LJM    WCE         REWRITE CATALOG ENTRY AND EXIT
Line S00542 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
17297  M01S00542.253l688 +++|
17298  M01S00543.253l688 +++|*         SET TAPE ALTERNATE STORAGE ADDRESS.
17299  M01S00544.253l688 +++|
17300  M01S00545.253l688 +++| SAA3     LDM    FCTF,CI
17301  M01S00546.253l688 +++|          LPC    TFLOKM
17302  M01S00547.253l688 +++|          NJN    SAA4        IF *TFLOK* STILL SET
17303  M01S00548.253l688 +++|          ERROR  AIO         * NO ALTERNATE STORAGE COPY OF FILE.*
17304  M01S00549.253l688 +++|
Line S00550 Modification History
M01 (Added by) 253l688
M02 (Removed by) ns2670
Seq #  *Modification Id* Act 
----------------------------+
17305  M02S00550.ns2670  ---| SAA4     LDN    0           CLEAR TAPE ALTERNATE STORAGE FLAGS
17306  M02S00551.ns2670  ---|          STM    FCTF,CI
17307  M02S00552.ns2670  ---|          LDM    PFTS        SET TAPE SEQUENCE NUMBER
Line S00001 Modification History
M01 (Added by) ns2670
Seq #  *Modification Id* Act 
----------------------------+
17308  M01S00001.ns2670  +++| SAA4     LDM    PFTS        SET TAPE SEQUENCE NUMBER
Line S00553 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
17309  M01S00553.253l688 +++|          LMM    FCTS,CI
17310  M00S12412.pfm     +++|          SCN    77
Line S12413 Modification History
M01 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
17311  M01S12413.253l688 ---|          LMM    PFAT
17312  M01S12414.253l688 ---|          STM    FCAT,CI
17313  M01S12415.253l688 ---|          LDN    0           CLEAR ALTERNATE STORAGE FLAGS
17314  M01S12416.253l688 ---|          STM    FCAF,CI
17315  M01S12417.253l688 ---|          LJM    WCE         REWRITE CATALOG ENTRY
Line S00554 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
17316  M01S00554.253l688 +++|          LMM    PFTS
17317  M01S00555.253l688 +++|          STM    FCTS,CI
17318  M01S00556.253l688 +++|          LDM    PFTS+1
17319  M01S00557.253l688 +++|          STM    FCTS+1,CI
17320  M01S00558.253l688 +++|          LDM    PFTV        SET TAPE VSN
17321  M01S00559.253l688 +++|          STM    FCTV,CI
17322  M01S00560.253l688 +++|          LDM    PFTV+1
17323  M01S00561.253l688 +++|          STM    FCTV+1,CI
Line S00562 Modification History
M01 (Added by) 253l688
M02 (Removed by) ns2670
Seq #  *Modification Id* Act 
----------------------------+
17324  M02S00562.ns2670  ---|          LDM    PFES        SET TAPE FLAGS
Line S00002 Modification History
M01 (Added by) ns2670
Seq #  *Modification Id* Act 
----------------------------+
17325  M01S00002.ns2670  +++|          LDM    PFES        CHECK TAPE FLAGS
Line S00563 Modification History
M01 (Added by) 253l688
M02 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
17326  M02S00563.274l797 ---|          SCN    77
Line S00021 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
17327  M01S00021.274l797 +++|          LPC    -777
Line S00564 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
17328  M01S00564.253l688 +++|          NJN    SAA6        IF UNDEFINED BITS SPECIFIED
Line S00565 Modification History
M01 (Added by) 253l688
M02 (Removed by) ns2670
Seq #  *Modification Id* Act 
----------------------------+
17329  M02S00565.ns2670  ---|          LDM    PFES
Line S00003 Modification History
M01 (Added by) ns2670
Seq #  *Modification Id* Act 
----------------------------+
17330  M01S00003.ns2670  +++|          LDM    PFES        SET TAPE ALTERNATE STORAGE FLAGS
Line S00566 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
17331  M01S00566.253l688 +++|          STM    FCTF,CI
Line S00004 Modification History
M01 (Added by) ns2670
Seq #  *Modification Id* Act 
----------------------------+
17332  M01S00004.ns2670  +++|          RJM    UFL         UPDATE FILE LENGTH
Line S00567 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
17333  M01S00567.253l688 +++| SAA5     LJM    WCE         REWRITE CATALOG ENTRY AND EXIT
17334  M01S00568.253l688 +++|
17335  M01S00569.253l688 +++| SAA6     ERROR  ICU         * INVALID CATALOG UPDATE.*
17336  M00S12418.pfm     +++| SAF      SPACE  4,10
17337  M00S12419.pfm     +++|***       PROCESS *SETAF* REQUEST.
17338  M00S12420.pfm     +++|*
17339  M00S12421.pfm     +++|*         SET/CLEAR ALTERNATE STORAGE FLAGS IN CATALOG ENTRY.
17340  M00S12422.pfm     +++|
17341  M00S12423.pfm     +++|
17342  M00S12424.pfm     +++| SAF      BSS    0           ENTRY
Line S12425 Modification History
M01 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
17343  M01S12425.253l688 ---|          RJM    UAF         UPDATE ALTERNATE STORAGE FLAGS
17344  M01S12426.253l688 ---|          LJM    WCE         REWRITE CATALOG ENTRY
Line S00570 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
17345  M01S00570.253l688 +++|          LDM    STAT
17346  M01S00571.253l688 +++|          LPK    STTA
17347  M01S00572.253l688 +++|          NJN    SAF1        IF TAPE ALTERNATE STORAGE REQUEST
17348  M01S00573.253l688 +++|          RJM    UAF         UPDATE CARTRIDGE ALTERNATE STORAGE FLAGS
17349  M01S00574.253l688 +++|          UJN    SAF2        CONTINUE
17350  M01S00575.253l688 +++|
17351  M01S00576.253l688 +++| SAF1     RJM    UTF         UPDATE TAPE ALTERNATE STORAGE FLAGS
17352  M01S00577.253l688 +++| SAF2     LJM    WCE         REWRITE CATALOG ENTRY AND EXIT
17353  M00S12427.pfm     +++|          TITLE  SUBROUTINES.
17354  M00S12428.pfm     +++| CDA      SPACE  4,15
17355  M00S12429.pfm     +++|**        CDA - COMPARE DISK ADDRESSES.
17356  M00S12430.pfm     +++|*
17357  M00S12431.pfm     +++|*         ENTRY  (FS - FS+4) = FST FOR LOCAL FILE.
17358  M00S12432.pfm     +++|*                (CI) = ADDRESS OF CATALOG ENTRY.
17359  M00S12433.pfm     +++|*
Line S12434 Modification History
M01 (Removed by) ns2670
Seq #  *Modification Id* Act 
----------------------------+
17360  M01S12434.ns2670  ---|*         EXIT   TO ERR IF DISK ADDRESSES DO NOT MATCH.
Line S00005 Modification History
M01 (Added by) ns2670
Seq #  *Modification Id* Act 
----------------------------+
17361  M01S00005.ns2670  +++|*         EXIT   TO *ERR* IF DISK ADDRESSES DO NOT MATCH.
17362  M00S12435.pfm     +++|*
Line S12436 Modification History
M01 (Removed by) ns2670
Seq #  *Modification Id* Act 
----------------------------+
17363  M01S12436.ns2670  ---|*         USES   T5.
Line S00006 Modification History
M01 (Added by) ns2670
M02 (Removed by) ns2776
Seq #  *Modification Id* Act 
----------------------------+
17364  M02S00006.ns2776  ---|*         CALLS  PDV, RMD, SDN.
Line S00091 Modification History
M01 (Added by) ns2776
Seq #  *Modification Id* Act 
----------------------------+
17365  M01S00091.ns2776  +++|*         CALLS  PDA, RMD, SDN.
17366  M00S12437.pfm     +++|*
Line S12438 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
17367  M01S12438.242l642 ---|*         CALLS  SDN.
Line S01517 Modification History
M01 (Added by) 242l642
M02 (Removed by) ns2670
Seq #  *Modification Id* Act 
----------------------------+
17368  M02S01517.ns2670  ---|*         CALLS  PDV, SDN.
Line S12439 Modification History
M01 (Removed by) ns2670
Seq #  *Modification Id* Act 
----------------------------+
17369  M01S12439.ns2670  ---|*
17370  M01S12440.ns2670  ---|*         MACROS ENDMS, ERROR.
Line S00007 Modification History
M01 (Added by) ns2670
Seq #  *Modification Id* Act 
----------------------------+
17371  M01S00007.ns2670  +++|*         MACROS ERROR.
17372  M00S12441.pfm     +++|
17373  M00S12442.pfm     +++|
17374  M00S12443.pfm     +++| CDA      SUBR               ENTRY/EXIT
Line S12444 Modification History
M01 (Removed by) ns2670
Seq #  *Modification Id* Act 
----------------------------+
17375  M01S12444.ns2670  ---|          ENDMS
17376  M00S12445.pfm     +++|          LDM    FCDN,CI     CHECK DEVICE NUMBER
17377  M00S12446.pfm     +++|          LPN    77
17378  M00S12447.pfm     +++|          ZJN    CDA1        IF FILE ON MASTER DEVICE
17379  M00S12448.pfm     +++|          STD    CM
17380  M00S12449.pfm     +++|          LDM    PFPN+4      SET FAMILY EST ORDINAL
17381  M00S12450.pfm     +++|          RJM    SDN         SEARCH FOR DEVICE NUMBER
17382  M00S12451.pfm     +++|          PJN    CDA1        IF DEVICE FOUND
Line S12452 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
17383  M01S12452.242l642 ---|          ERROR  DAD,CH      *DIRECT ACCESS DEVICE ERROR.*
Line S01518 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
17384  M01S01518.242l642 +++|          ADN    1
Line S01519 Modification History
M01 (Added by) 242l642
M02 (Removed by) ns2776
Seq #  *Modification Id* Act 
----------------------------+
17385  M02S01519.ns2776  ---|          ZJN    CDA0.1      IF DEVICE NOT FOUND
17386  M02S01520.ns2776  ---|          RJM    PDV         PROCESS DEVICE STATUS
Line S00092 Modification History
M01 (Added by) ns2776
Seq #  *Modification Id* Act 
----------------------------+
17387  M01S00092.ns2776  +++|          RJM    PDA         PROCESS DEVICE AVAILABILITY
Line S01521 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
17388  M01S01521.242l642 +++| CDA0.1   ERROR  DAD,CH      * DIRECT ACCESS DEVICE ERROR.*
17389  M00S12453.pfm     +++|
17390  M00S12454.pfm     +++| CDA1     LDD    T5          CHECK FILE EST ORDINAL
17391  M00S12455.pfm     +++|          LMD    FS
17392  M00S12456.pfm     +++|          ZJN    CDA3        IF FILE ON RIGHT EQUIPMENT
17393  M00S12457.pfm     +++| CDA2     ERROR  PVE,CH      *PFC VERIFICATION ERROR.*
17394  M00S12458.pfm     +++|
17395  M00S12459.pfm     +++| CDA3     LDM    FCBT,CI     CHECK FIRST TRACK
17396  M00S12460.pfm     +++|          LMD    FS+1
17397  M00S12461.pfm     +++|          NJN    CDA2        IF FILE ON WRONG TRACK
Line S12462 Modification History
M01 (Removed by) ns2670
Seq #  *Modification Id* Act 
----------------------------+
17398  M01S12462.ns2670  ---|          LDD    EQ          RESET TO MASTER DEVICE
17399  M01S12463.ns2670  ---|          STD    T5
Line S00008 Modification History
M01 (Added by) ns2670
Seq #  *Modification Id* Act 
----------------------------+
17400  M01S00008.ns2670  +++|          RJM    RMD         RESET TO MASTER DEVICE
Line S12464 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
17401  M01S12464.242l642 ---|          UJN    CDAX        RETURN
Line S01522 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
17402  M01S01522.242l642 +++|          UJP    CDAX        RETURN
17403  M00S12465.pfm     +++| UAF      SPACE  4,10
Line S12466 Modification History
M01 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
17404  M01S12466.253l688 ---|**        UAF - UPDATE ALTERNATE STORAGE FLAGS.
Line S00578 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
17405  M01S00578.253l688 +++|**        UAF - UPDATE CARTRIDGE ALTERNATE STORAGE FLAGS.
17406  M00S12467.pfm     +++|*
17407  M00S12468.pfm     +++|*         ENTRY  (CI) = ADDRESS OF CATALOG ENTRY.
17408  M00S12469.pfm     +++|*
17409  M00S12470.pfm     +++|*         EXIT   (FCAF) UPDATED.
Line S00001 Modification History
M01 (Added by) pfm57
Seq #  *Modification Id* Act 
----------------------------+
17410  M01S00001.pfm57   +++|*                (FCAF/FCAT/FCAA) CLEARED IF SET REQUEST FOR *AFOBS*,
17411  M01S00002.pfm57   +++|*                OR IF SET REQUEST FOR *AFFRE* ON A DISK-RESIDENT FILE.
17412  M00S12471.pfm     +++|*
17413  M00S12472.pfm     +++|*         USES   T1, T2.
17414  M00S12473.pfm     +++|
17415  M00S12474.pfm     +++|
17416  M00S12475.pfm     +++| UAF      SUBR               ENTRY/EXIT
17417  M00S12476.pfm     +++|          LDM    PFES        SAVE SET/CLEAR FLAG
17418  M00S12477.pfm     +++|          SCN    77
17419  M00S12478.pfm     +++|          STD    T2
17420  M00S12479.pfm     +++|          LDM    PFES        GET PROCESSOR ADDRESS
17421  M00S12480.pfm     +++|          LPN    77
17422  M00S12481.pfm     +++|          STD    T1
17423  M00S12482.pfm     +++|          SBN    AFMAX+1
17424  M00S12483.pfm     +++|          PJN    UAF1        IF INVALID FLAG NUMBER
Line S12484 Modification History
M01 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
17425  M01S12484.253l688 ---|          LDM    UAFB,T1
Line S00579 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
17426  M01S00579.253l688 +++|          LDM    UAFA,T1
17427  M00S12485.pfm     +++|          STD    T1
17428  M00S12486.pfm     +++|          LJM    0,T1        PROCESS FLAG
Line S00580 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
17429  M01S00580.253l688 +++|
17430  M01S00581.253l688 +++| UAFA     BSS    0           TABLE OF ERROR FLAG PROCESSORS
17431  M01S00582.253l688 +++|          LOC    0
17432  M01S00583.253l688 +++|          CON    UAF2        *AFOBS* PROCESSOR
17433  M01S00584.253l688 +++|          CON    UAF3        *AFPSE* PROCESSOR
17434  M01S00585.253l688 +++|          CON    UAF5        *AFPDE* PROCESSOR
17435  M01S00586.253l688 +++|          CON    UAF6        *AFPDR* PROCESSOR
17436  M01S00587.253l688 +++|          CON    UAF1        *AFVER* PROCESSOR
17437  M01S00588.253l688 +++|          CON    UAF8        *AFTMP* PROCESSOR
17438  M01S00589.253l688 +++|          CON    UAF10       *AFFRE* PROCESSOR
17439  M01S00590.253l688 +++|          LOC    *O
17440  M00S12487.pfm     +++|
17441  M00S12488.pfm     +++| UAF1     ERROR  ICU         *INVALID CATALOG UPDATE.*
17442  M00S12489.pfm     +++|
17443  M00S12490.pfm     +++|*         PROCESS *ALTERNATE STORAGE COPY OBSOLETE* FLAG.
17444  M00S12491.pfm     +++|
17445  M00S12492.pfm     +++| UAF2     LDD    T2          PROCESS *AFOBS*
17446  M00S12493.pfm     +++|          ZJN    UAF1        IF *CLEAR* REQUEST
17447  M00S12494.pfm     +++|          LDM    FCBT,CI
17448  M00S12495.pfm     +++|          ZJN    UAF1        IF NO DISK ADDRESS
17449  M00S12496.pfm     +++|          LDM    FCAF,CI
17450  M00S12497.pfm     +++|          LPN    AFPDRM
17451  M00S12498.pfm     +++|          NJN    UAF1        IF *PSEUDO-RELEASE* SET
Line S12499 Modification History
M01 (Removed by) pfm57
Seq #  *Modification Id* Act 
----------------------------+
17452  M01S12499.pfm57   ---|          LDN    FCAF        CLEAR *AF*, *AT*, AND *ASA* INFO
Line S00003 Modification History
M01 (Added by) pfm57
Seq #  *Modification Id* Act 
----------------------------+
17453  M01S00003.pfm57   +++| UAF2.1   LDN    FCAF        CLEAR *AF*, *AT*, AND *ASA* INFO
17454  M00S12500.pfm     +++|          ADD    CI
17455  M00S12501.pfm     +++|          STM    UAFD
17456  M00S12502.pfm     +++|          LDN    ZERL
17457  M00S12503.pfm     +++|          CRM    *,ON
17458  M00S12504.pfm     +++| UAFD     EQU    *-1
17459  M00S12505.pfm     +++|          LJM    UAFX        RETURN
17460  M00S12506.pfm     +++|
17461  M00S12507.pfm     +++|*         PROCESS *ALTERNATE STORAGE COPY PERMANENT STATUS ERROR* FLAG
17462  M00S12508.pfm     +++|
17463  M00S12509.pfm     +++| UAF3     LDD    T2          PROCESS *AFPSE*
17464  M00S12510.pfm     +++|          ZJN    UAF1        IF *CLEAR* REQUEST
17465  M00S12511.pfm     +++|          LDM    FCAF,CI     SET *AFPSE* FLAG
17466  M00S12512.pfm     +++|          SCN    AFPSEM
17467  M00S12513.pfm     +++|          LMN    AFPSEM
17468  M00S12514.pfm     +++| UAF4     STM    FCAF,CI     UPDATE FLAGS IN CATALOG
17469  M00S12515.pfm     +++|          LJM    UAFX        RETURN
17470  M00S12516.pfm     +++|
17471  M00S12517.pfm     +++|*         PROCESS *ALTERNATE STORAGE COPY PERMANENT DATA ERROR* FLAG.
17472  M00S12518.pfm     +++|
17473  M00S12519.pfm     +++| UAF5     LDD    T2          PROCESS *AFPDE*
17474  M00S12520.pfm     +++|          ZJP    UAF1        IF CLEAR REQUEST
17475  M00S12521.pfm     +++|          LDM    FCAF,CI     SET *AFPDE* FLAG
17476  M00S12522.pfm     +++|          SCN    AFPDEM
17477  M00S12523.pfm     +++|          LMN    AFPDEM
17478  M00S12524.pfm     +++|          UJN    UAF4        RETURN
17479  M00S12525.pfm     +++|
17480  M00S12526.pfm     +++|*         PROCESS *ALTERNATE STORAGE COPY PSEUDO-RELEASED* FLAG.
17481  M00S12527.pfm     +++|
17482  M00S12528.pfm     +++| UAF6     LDD    T2          PROCESS *AFPDR*
17483  M00S12529.pfm     +++|          NJN    UAF7        IF *SET* REQUEST
Line S12530 Modification History
M01 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
17484  M01S12530.253l688 ---|          STM    UAFA
Line S00591 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
17485  M01S00591.253l688 +++|          STM    UAFB
17486  M00S12531.pfm     +++| UAF7     LDM    FCAF,CI     SET/CLEAR *AFPDR* FLAG
17487  M00S12532.pfm     +++|          SCN    AFPDRM
Line S12533 Modification History
M01 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
17488  M01S12533.253l688 ---| UAFA     LMN    AFPDRM
Line S00592 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
17489  M01S00592.253l688 +++| UAFB     LMN    AFPDRM
17490  M00S12534.pfm     +++|*         PSN                (*CLEAR* REQUEST)
17491  M00S12535.pfm     +++|          UJN    UAF4        RETURN
17492  M00S12536.pfm     +++|
17493  M00S12537.pfm     +++|*         PROCESS *TEMPORARY ERROR* FLAG.
17494  M00S12538.pfm     +++|
17495  M00S12539.pfm     +++| UAF8     LDD    T2
17496  M00S12540.pfm     +++|          NJN    UAF9        IF *SET* REQUEST
17497  M00S12541.pfm     +++|          STM    UAFC
17498  M00S12542.pfm     +++| UAF9     LDM    FCAF,CI     SET/CLEAR *AFTMP* FLAG
17499  M00S12543.pfm     +++|          SCN    AFTMPM
17500  M00S12544.pfm     +++| UAFC     LMN    AFTMPM
17501  M00S12545.pfm     +++|*         PSN                (*CLEAR* REQUEST)
17502  M00S12546.pfm     +++|          UJN    UAF4        RETURN
17503  M00S12547.pfm     +++|
17504  M00S12548.pfm     +++|*         PROCESS *FREE CARTRIDGE* FLAG.
17505  M00S12549.pfm     +++|
17506  M00S12550.pfm     +++| UAF10    LDD    T2          PROCESS *AFFRE* FLAG
17507  M00S12551.pfm     +++|          ZJN    UAF11       IF *CLEAR* REQUEST
Line S12552 Modification History
M01 (Removed by) pfm57
Seq #  *Modification Id* Act 
----------------------------+
17508  M01S12552.pfm57   ---|          LDN    PSNI
Line S00004 Modification History
M01 (Added by) pfm57
Seq #  *Modification Id* Act 
----------------------------+
17509  M01S00004.pfm57   +++|          LDM    FCBT,CI
17510  M01S00005.pfm57   +++|          NJP    UAF2.1      IF FILE CURRENTLY DISK RESIDENT
17511  M01S00006.pfm57   +++|          LDN    PSNI        ENABLE SET OF FLAG
17512  M00S12553.pfm     +++|          STM    UAFE
17513  M00S12554.pfm     +++| UAF11    LDM    FCAF,CI     ALTERNATE STORAGE FLAGS
17514  M00S12555.pfm     +++|          LPC    -AFFREM     CLEAR *AFFRE* FLAG
17515  M00S12556.pfm     +++| UAFE     UJN    UAF12       DO NOT RESET FLAG
17516  M00S12557.pfm     +++|*         PSN                (*SET* REQUEST)
17517  M00S12558.pfm     +++|          LMC    AFFREM      SET *AFFRE* FLAG
17518  M00S12559.pfm     +++| UAF12    LJM    UAF4        STORE ALTERNATE STORAGE FLAGS
Line S00009 Modification History
M01 (Added by) ns2670
Seq #  *Modification Id* Act 
----------------------------+
17519  M01S00009.ns2670  +++| UFL      SPACE  4,20
17520  M01S00010.ns2670  +++|**        UFL - UPDATE FILE LENGTH.
17521  M01S00011.ns2670  +++|*
17522  M01S00012.ns2670  +++|*         ENTRY  (CI) = ADDRESS OF PFC ENTRY IN BUFFER.
17523  M01S00013.ns2670  +++|*
17524  M01S00014.ns2670  +++|*         EXIT   FILE LENGTH UPDATED IN PFC.
17525  M01S00015.ns2670  +++|*
17526  M01S00016.ns2670  +++|*         USES   CM, T6.
17527  M01S00017.ns2670  +++|*
Line S00018 Modification History
M01 (Added by) ns2670
M02 (Removed by) ns2776
Seq #  *Modification Id* Act 
----------------------------+
17528  M02S00018.ns2776  ---|*         CALLS  CTA, PDV, RMD, SDN, SEI.
Line S00093 Modification History
M01 (Added by) ns2776
Seq #  *Modification Id* Act 
----------------------------+
17529  M01S00093.ns2776  +++|*         CALLS  CTA, PDA, RMD, SDN, SEI.
Line S00019 Modification History
M01 (Added by) ns2670
Seq #  *Modification Id* Act 
----------------------------+
17530  M01S00019.ns2670  +++|*
17531  M01S00020.ns2670  +++|*         MACROS ERROR, SETMS.
17532  M01S00021.ns2670  +++|*
17533  M01S00022.ns2670  +++|*         NOTES  THIS SUBROUTINE ASSUMES THAT THE FILE IS NOT
17534  M01S00023.ns2670  +++|*                CURRENTLY ATTACHED IN A WRITEABLE MODE; THE
17535  M01S00024.ns2670  +++|*                CORRECTNESS OF THAT ASSUMPTION DEPENDS ON LOGIC IN
17536  M01S00025.ns2670  +++|*                *PFDUMP* AND *PFU*.  THIS SUBROUTINE WILL ONLY BE
17537  M01S00026.ns2670  +++|*                CALLED IF *TFLOK* IS STILL SET, AND *PFDUMP* DOES
17538  M01S00027.ns2670  +++|*                NOT SET *TFLOK* UNTIL AFTER *PFU* HAS DETERMINED
17539  M01S00028.ns2670  +++|*                THAT THE FILE IS NOT BUSY.
17540  M01S00029.ns2670  +++|
17541  M01S00030.ns2670  +++|
17542  M01S00031.ns2670  +++| UFL      SUBR               ENTRY/EXIT
17543  M01S00032.ns2670  +++|          LDM    FCBS,CI
17544  M01S00033.ns2670  +++|          SHN    21-13
17545  M01S00034.ns2670  +++|          PJN    UFLX        IF INDIRECT ACCESS FILE
17546  M01S00035.ns2670  +++|          LDM    FCLF,CI
17547  M01S00036.ns2670  +++|          ADM    FCLF+1,CI
17548  M01S00037.ns2670  +++|          NJN    UFLX        IF FILE LENGTH NONZERO
17549  M01S00038.ns2670  +++|          LDM    FCDN,CI     CHECK DEVICE NUMBER
17550  M01S00039.ns2670  +++|          LPN    77
17551  M01S00040.ns2670  +++|          ZJN    UFL2        IF FILE ON MASTER DEVICE
17552  M01S00041.ns2670  +++|
17553  M01S00042.ns2670  +++|*         PROCESS ALTERNATE DEVICE ACCESS.
17554  M01S00043.ns2670  +++|
17555  M01S00044.ns2670  +++|          STD    CM
17556  M01S00045.ns2670  +++|          LDM    PFPN+4      SET FAMILY EST ORDINAL
17557  M01S00046.ns2670  +++|          RJM    SDN         SEARCH FOR DEVICE NUMBER
17558  M01S00047.ns2670  +++|          PJN    UFL2        IF DEVICE FOUND
17559  M01S00048.ns2670  +++|          ADN    1
Line S00049 Modification History
M01 (Added by) ns2670
M02 (Removed by) ns2776
Seq #  *Modification Id* Act 
----------------------------+
17560  M02S00049.ns2776  ---|          ZJN    UFL1        IF DEVICE NOT FOUND
17561  M02S00050.ns2776  ---|          RJM    PDV         PROCESS DEVICE STATUS
Line S00094 Modification History
M01 (Added by) ns2776
Seq #  *Modification Id* Act 
----------------------------+
17562  M01S00094.ns2776  +++|          RJM    PDA         PROCESS DEVICE AVAILABILITY
Line S00051 Modification History
M01 (Added by) ns2670
Seq #  *Modification Id* Act 
----------------------------+
17563  M01S00051.ns2670  +++| UFL1     ERROR  DAD,CH      * DIRECT ACCESS DEVICE ERROR.*
17564  M01S00052.ns2670  +++|
17565  M01S00053.ns2670  +++|*         DETERMINE FILE LENGTH.
17566  M01S00054.ns2670  +++|
17567  M01S00055.ns2670  +++| UFL2     LDM    FCBT,CI     SET FILE FIRST TRACK
17568  M01S00056.ns2670  +++|          STD    T6
17569  M01S00057.ns2670  +++|          SETMS  STATUS
17570  M01S00058.ns2670  +++|          LDD    CM+4        SET TRT ADDRESS FOR *SEI*
17571  M01S00059.ns2670  +++|          SHN    3
17572  M01S00060.ns2670  +++|          ADN    TRLL
17573  M01S00061.ns2670  +++|          RJM    CTA         CALCULATE FWA OF TRT
17574  M01S00062.ns2670  +++|          SBD    TH
17575  M01S00063.ns2670  +++|          STM    SEIA+1
17576  M01S00064.ns2670  +++|          SHN    -14
17577  M01S00065.ns2670  +++|          LMC    ADCI
17578  M01S00066.ns2670  +++|          STM    SEIA
17579  M01S00067.ns2670  +++|          LDN    0           FORCE CURRENT TRT
17580  M01S00068.ns2670  +++|          RJM    SEI         SKIP TO EOI
17581  M01S00069.ns2670  +++|          LDD    T2          SET FILE LENGTH
17582  M01S00070.ns2670  +++|          STM    FCLF,CI
17583  M01S00071.ns2670  +++|          LDD    T3
17584  M01S00072.ns2670  +++|          STM    FCLF+1,CI
17585  M01S00073.ns2670  +++|          RJM    RMD         RESET TO MASTER DEVICE
17586  M01S00074.ns2670  +++|          UJP    UFLX        RETURN
Line S00593 Modification History
M01 (Added by) 253l688
M02 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
17587  M02S00593.274l797 ---| UTF      SPACE  4,10
Line S00022 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
17588  M01S00022.274l797 +++| UTF      SPACE  4,20
Line S00594 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
17589  M01S00594.253l688 +++|**        UTF - UPDATE TAPE ALTERNATE STORAGE FLAGS.
17590  M01S00595.253l688 +++|*
17591  M01S00596.253l688 +++|*         ENTRY  (CI) = ADDRESS OF CATALOG ENTRY.
17592  M01S00597.253l688 +++|*
17593  M01S00598.253l688 +++|*         EXIT   (FCTF) UPDATED.
17594  M01S00599.253l688 +++|*
17595  M01S00600.253l688 +++|*         USES   T1, T2.
Line S00023 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
17596  M01S00023.274l797 +++|*
17597  M01S00024.274l797 +++|*         NOTE - CODE TO SET AND CLEAR SOME OF THESE FLAGS ARE INCLUDED
17598  M01S00025.274l797 +++|*                IN THIS FUNCTION ONLY FOR TESTING PURPOSES.  DURING
17599  M01S00026.274l797 +++|*                NORMAL SYSTEM OPERATION, THE FLAGS ARE SET BY OTHER
17600  M01S00027.274l797 +++|*                MEANS.  FOR EXAMPLE, *PFDUMP* SETS THE FLAG *TFLOK*
17601  M01S00028.274l797 +++|*                BY CALLING THE *PFU* FUNCTION *CTSL*, AND SETS THE
17602  M01S00029.274l797 +++|*                FLAGS *TFSVS*, *TFLIF*, *TFCTS* AND *TFACS* BY
17603  M01S00030.274l797 +++|*                SPECIFYING THESE BITS ON THE CALL TO *SETASA*.
17604  M00S12560.pfm     +++|
17605  M00S12561.pfm     +++|
Line S12562 Modification History
M01 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
17606  M01S12562.253l688 ---| UAFB     BSS    0           TABLE OF ERROR FLAG PROCESSORS
Line S00601 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
17607  M01S00601.253l688 +++| UTF      SUBR               ENTRY/EXIT
17608  M01S00602.253l688 +++|          LDM    PFES        SAVE SET/CLEAR FLAG
17609  M01S00603.253l688 +++|          SCN    77
17610  M01S00604.253l688 +++|          STD    T2
17611  M01S00605.253l688 +++|          LDM    PFES        GET PROCESSOR ADDRESS
17612  M01S00606.253l688 +++|          LPN    77
17613  M01S00607.253l688 +++|          STD    T1
17614  M01S00608.253l688 +++|          SBN    TFMAX+1
17615  M01S00609.253l688 +++|          PJN    UTF1        IF INVALID FLAG NUMBER
17616  M01S00610.253l688 +++|          LDM    UTFA,T1
17617  M01S00611.253l688 +++|          STD    T1
17618  M01S00612.253l688 +++|          LJM    0,T1        PROCESS FLAG
17619  M01S00613.253l688 +++|
17620  M01S00614.253l688 +++| UTFA     BSS    0           TABLE OF ERROR FLAG PROCESSORS
17621  M00S12563.pfm     +++|          LOC    0
Line S12564 Modification History
M01 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
17622  M01S12564.253l688 ---|          CON    UAF2        *AFOBS* PROCESSOR
17623  M01S12565.253l688 ---|          CON    UAF3        *AFPSE* PROCESSOR
17624  M01S12566.253l688 ---|          CON    UAF5        *AFPDE* PROCESSOR
17625  M01S12567.253l688 ---|          CON    UAF6        *AFPDR* PROCESSOR
17626  M01S12568.253l688 ---|          CON    UAF1        *AFVER* PROCESSOR
17627  M01S12569.253l688 ---|          CON    UAF8        *AFTMP* PROCESSOR
17628  M01S12570.253l688 ---|          CON    UAF10       *AFFRE* PROCESSOR
Line S00615 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
17629  M01S00615.253l688 +++|          CON    UTF1        *TFVER* PROCESSOR
17630  M01S00616.253l688 +++|          CON    UTF2        *TFSVS* PROCESSOR
17631  M01S00617.253l688 +++|          CON    UTF5        *TFPVN* PROCESSOR
17632  M01S00618.253l688 +++|          CON    UTF7        *TFSVN* PROCESSOR
17633  M01S00619.253l688 +++|          CON    UTF9        *TFEPV* PROCESSOR
17634  M01S00620.253l688 +++|          CON    UTF11       *TFESV* PROCESSOR
Line S00031 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
17635  M01S00031.274l797 +++|          CON    UTF13       *TFLIF* PROCESSOR
17636  M01S00032.274l797 +++|          CON    UTF15       *TFCTS* PROCESSOR
17637  M01S00033.274l797 +++|          CON    UTF17       *TFACS* PROCESSOR
Line S00621 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
17638  M01S00621.253l688 +++|          CON    UTF1        RESERVED
17639  M01S00622.253l688 +++|          CON    UTF1        RESERVED
Line S00623 Modification History
M01 (Added by) 253l688
M02 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
17640  M02S00623.274l797 ---|          CON    UTF1        RESERVED
17641  M02S00624.274l797 ---|          CON    UTF1        RESERVED
17642  M02S00625.274l797 ---|          CON    UTF1        RESERVED
17643  M02S00626.274l797 ---|          CON    UTF13       *TFLOK* PROCESSOR
Line S00034 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
17644  M01S00034.274l797 +++|          CON    UTF19       *TFLOK* PROCESSOR
17645  M00S12571.pfm     +++|          LOC    *O
Line S00627 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
17646  M01S00627.253l688 +++|
17647  M01S00628.253l688 +++| UTF1     ERROR  ICU         * INVALID CATALOG UPDATE.*
17648  M01S00629.253l688 +++|
17649  M01S00630.253l688 +++|*         PROCESS *SECONDARY VSN EXISTS* FLAG.
17650  M01S00631.253l688 +++|
17651  M01S00632.253l688 +++| UTF2     LDD    T2          PROCESS *TFSVS*
17652  M01S00633.253l688 +++|          NJN    UTF3        IF *SET* REQUEST
17653  M01S00634.253l688 +++|          STM    UTFB
17654  M01S00635.253l688 +++| UTF3     LDM    FCTF,CI     SET/CLEAR *TFSVS* FLAG
17655  M01S00636.253l688 +++|          SCN    TFSVSM
17656  M01S00637.253l688 +++| UTFB     LMN    TFSVSM
17657  M01S00638.253l688 +++|*         PSN                (*CLEAR* REQUEST)
17658  M01S00639.253l688 +++| UTF4     STM    FCTF,CI     UPDATE FLAG FIELD IN CATALOG
17659  M01S00640.253l688 +++|          UJP    UTFX        RETURN
17660  M01S00641.253l688 +++|
17661  M01S00642.253l688 +++|*         PROCESS *PRIMARY VSN NOT AVAILABLE* FLAG.
17662  M01S00643.253l688 +++|
17663  M01S00644.253l688 +++| UTF5     LDD    T2          PROCESS *TFPVN*
17664  M01S00645.253l688 +++|          NJN    UTF6        IF *SET* REQUEST
17665  M01S00646.253l688 +++|          STM    UTFC
17666  M01S00647.253l688 +++| UTF6     LDM    FCTF,CI     SET/CLEAR *TFPVN* FLAG
17667  M01S00648.253l688 +++|          SCN    TFPVNM
17668  M01S00649.253l688 +++| UTFC     LMN    TFPVNM
17669  M01S00650.253l688 +++|*         PSN                (*CLEAR* REQUEST)
17670  M01S00651.253l688 +++|          UJN    UTF4        RETURN
17671  M01S00652.253l688 +++|
17672  M01S00653.253l688 +++|*         PROCESS *SECONDARY VSN NOT AVAILABLE* FLAG.
17673  M01S00654.253l688 +++|
17674  M01S00655.253l688 +++| UTF7     LDM    FCTF,CI     CHECK IF SECONDARY VSN EXISTS
17675  M01S00656.253l688 +++|          LPK    TFSVSM
17676  M01S00657.253l688 +++|          ZJP    UTF1        IF SECONDARY VSN NOT DEFINED
17677  M01S00658.253l688 +++|          LDD    T2
17678  M01S00659.253l688 +++|          NJN    UTF8        IF *SET* REQUEST
17679  M01S00660.253l688 +++|          STM    UTFD
17680  M01S00661.253l688 +++| UTF8     LDM    FCTF,CI     SET/CLEAR *TFSVN* FLAG
17681  M01S00662.253l688 +++|          SCN    TFSVNM
17682  M01S00663.253l688 +++| UTFD     LMN    TFSVNM
17683  M01S00664.253l688 +++|*         PSN                (*CLEAR* REQUEST)
17684  M01S00665.253l688 +++|          UJN    UTF4        RETURN
17685  M01S00666.253l688 +++|
17686  M01S00667.253l688 +++|*         PROCESS *DATA ERROR ON PRIMARY VSN* FLAG.
17687  M01S00668.253l688 +++|
17688  M01S00669.253l688 +++| UTF9     LDD    T2
17689  M01S00670.253l688 +++|          NJN    UTF10       IF *SET* REQUEST
17690  M01S00671.253l688 +++|          STM    UTFE
17691  M01S00672.253l688 +++| UTF10    LDM    FCTF,CI     SET/CLEAR *TFEPV* FLAG
17692  M01S00673.253l688 +++|          SCN    TFEPVM
17693  M01S00674.253l688 +++| UTFE     LMN    TFEPVM
17694  M01S00675.253l688 +++|*         PSN                (*CLEAR* REQUEST)
17695  M01S00676.253l688 +++|          UJP    UTF4        RETURN
17696  M01S00677.253l688 +++|
17697  M01S00678.253l688 +++|*         PROCESS *DATA ERROR ON SECONDARY VSN* FLAG.
17698  M01S00679.253l688 +++|
17699  M01S00680.253l688 +++| UTF11    LDM    FCTF,CI     CHECK IF SECONDARY VSN EXISTS
17700  M01S00681.253l688 +++|          LPK    TFSVSM
17701  M01S00682.253l688 +++|          ZJP    UTF1        IF SECONDARY VSN NOT DEFINED
17702  M01S00683.253l688 +++|          LDD    T2
17703  M01S00684.253l688 +++|          NJN    UTF12       IF *SET* REQUEST
17704  M01S00685.253l688 +++|          STM    UTFF
17705  M01S00686.253l688 +++| UTF12    LDM    FCTF,CI     SET/CLEAR *TFESV* FLAG
17706  M01S00687.253l688 +++|          SCN    TFESVM
17707  M01S00688.253l688 +++| UTFF     LMN    TFESVM
17708  M01S00689.253l688 +++|*         PSN                (*CLEAR* REQUEST)
17709  M01S00690.253l688 +++|          UJP    UTF4        RETURN
17710  M01S00691.253l688 +++|
Line S00035 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
17711  M01S00035.274l797 +++|*         PROCESS *FILE ON LI FORMAT TAPE* FLAG.
17712  M01S00036.274l797 +++|
17713  M01S00037.274l797 +++| UTF13    LDD    T2          PROCESS *TFLIF*
17714  M01S00038.274l797 +++|          NJN    UTF14       IF *SET* REQUEST
17715  M01S00039.274l797 +++|          STM    UTFG
17716  M01S00040.274l797 +++|          STM    UTFG+1
17717  M01S00041.274l797 +++| UTF14    LDM    FCTF,CI     SET/CLEAR *TFLIF* FLAG
17718  M01S00042.274l797 +++|          LPC    -TFLIFM
17719  M01S00043.274l797 +++| UTFG     LMC    TFLIFM
17720  M01S00044.274l797 +++|*         PSN                (*CLEAR* REQUEST)
17721  M01S00045.274l797 +++|          UJP    UTF4        RETURN
17722  M01S00046.274l797 +++|
17723  M01S00047.274l797 +++|*         PROCESS *FILE ON CARTRIDGE (CT/AT) TAPE* FLAG.
17724  M01S00048.274l797 +++|
17725  M01S00049.274l797 +++| UTF15    LDD    T2          PROCESS *TFCTS*
17726  M01S00050.274l797 +++|          NJN    UTF15       IF *SET* REQUEST
17727  M01S00051.274l797 +++|          STM    UTFH
17728  M01S00052.274l797 +++|          STM    UTFH+1
17729  M01S00053.274l797 +++| UTF16    LDM    FCTF,CI     SET/CLEAR *TFCTS* FLAG
17730  M01S00054.274l797 +++|          LPC    -TFCTSM
17731  M01S00055.274l797 +++| UTFH     LMC    TFCTSM
17732  M01S00056.274l797 +++|*         PSN                (*CLEAR* REQUEST)
17733  M01S00057.274l797 +++|          UJP    UTF4        RETURN
17734  M01S00058.274l797 +++|
17735  M01S00059.274l797 +++|*         PROCESS *FILE ON ACS CARTRIDGE (AT) TAPE* FLAG.
17736  M01S00060.274l797 +++|
17737  M01S00061.274l797 +++| UTF17    LDD    T2          PROCESS *TFACS*
17738  M01S00062.274l797 +++|          NJN    UTF18       IF *SET* REQUEST
17739  M01S00063.274l797 +++|          STM    UTFI
17740  M01S00064.274l797 +++|          STM    UTFI+1
17741  M01S00065.274l797 +++| UTF18    LDM    FCTF,CI     SET/CLEAR *TFACS* FLAG
17742  M01S00066.274l797 +++|          LPC    -TFACSM
17743  M01S00067.274l797 +++| UTFI     LMC    TFACSM
17744  M01S00068.274l797 +++|*         PSN                (*CLEAR* REQUEST)
17745  M01S00069.274l797 +++|          UJP    UTF4        RETURN
17746  M01S00070.274l797 +++|
Line S00692 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
17747  M01S00692.253l688 +++|*         PROCESS *TFLOK* FLAG.
Line S00075 Modification History
M01 (Added by) ns2670
M02 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
17748  M02S00075.274l797 ---|*         NOTE - CODE TO SET THIS FLAG IS INCLUDED IN *PFM* ONLY FOR
17749  M02S00076.274l797 ---|*         TESTING PURPOSES.  WHEN DESTAGING FILES TO TAPE, *PFDUMP*
17750  M02S00077.274l797 ---|*         SETS THIS FLAG BY CALLING *PFU* FUNCTION *CTSL*.
Line S00693 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
17751  M01S00693.253l688 +++|
Line S00694 Modification History
M01 (Added by) 253l688
M02 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
17752  M02S00694.274l797 ---| UTF13    LDD    T2
Line S00071 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
17753  M01S00071.274l797 +++| UTF19    LDD    T2
Line S00695 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
17754  M01S00695.253l688 +++|          ZJP    UTF1        IF *CLEAR* REQUEST
17755  M01S00696.253l688 +++|          LDM    FCTF,CI     SET *TFLOK* FLAG
17756  M01S00697.253l688 +++|          LPC    -TFLOKM
17757  M01S00698.253l688 +++|          LMC    TFLOKM
17758  M01S00699.253l688 +++|          UJP    UTF4        RETURN
17759  M00S12572.pfm     +++| WCE      SPACE  4,15
17760  M00S12573.pfm     +++|**        WCE - REWRITE CATALOG ENTRY.
17761  M00S12574.pfm     +++|*
17762  M00S12575.pfm     +++|*         ENTRY  (CI) = ADDRESS OF CATALOG ENTRY.
17763  M00S12576.pfm     +++|*                (CB) = ADDRESS OF CATALOG BUFFER.
17764  M00S12577.pfm     +++|*
Line S12578 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
17765  M01S12578.242l642 ---|*         EXIT   TO TRPX.
Line S01523 Modification History
M01 (Added by) 242l642
M02 (Removed by) ns2414
Seq #  *Modification Id* Act 
----------------------------+
17766  M02S01523.ns2414  ---|*         EXIT   TO *3PT*.
Line S00309 Modification History
M01 (Added by) ns2414
Seq #  *Modification Id* Act 
----------------------------+
17767  M01S00309.ns2414  +++|*         EXIT   TO *3PU*.
17768  M00S12579.pfm     +++|*                (FCKD) UPDATED AND CATALOG SECTOR REWRITTEN.
17769  M00S12580.pfm     +++|*
17770  M00S12581.pfm     +++|*         USES   CM - CM+4.
17771  M00S12582.pfm     +++|*
17772  M00S12583.pfm     +++|*         CALLS  WBI.
17773  M00S12584.pfm     +++|*
17774  M00S12585.pfm     +++|*         MACROS ENDMS.
17775  M00S12586.pfm     +++|
17776  M00S12587.pfm     +++|
17777  M00S12588.pfm     +++| WCE      BSS    0           ENTRY
17778  M00S12589.pfm     +++|          LDN    PDTL        UPDATE CONTROL MODIFICATION DATE
17779  M00S12590.pfm     +++|          CRD    CM
17780  M00S12591.pfm     +++|          LDD    CM+2
17781  M00S12592.pfm     +++|          STM    FCKD,CI
17782  M00S12593.pfm     +++|          LDD    CM+3
17783  M00S12594.pfm     +++|          STM    FCKD+1,CI
17784  M00S12595.pfm     +++|          LDD    CM+4
17785  M00S12596.pfm     +++|          STM    FCKD+2,CI
17786  M00S12597.pfm     +++|          LDD    CB          REWRITE CATALOG BUFFER
17787  M00S12598.pfm     +++|          RJM    WBI
17788  M00S12599.pfm     +++|          ENDMS
Line S12600 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
17789  M01S12600.242l642 ---|          LJM    TRPX        TERMINATE PROGRAM
Line S01524 Modification History
M01 (Added by) 242l642
M02 (Removed by) ns2414
Seq #  *Modification Id* Act 
----------------------------+
17790  M02S01524.ns2414  ---|          EXECUTE  3PT       TERMINATE PROGRAM
Line S00310 Modification History
M01 (Added by) ns2414
Seq #  *Modification Id* Act 
----------------------------+
17791  M01S00310.ns2414  +++|          EXECUTE  3PU       TERMINATE PROGRAM
17792  M00S12601.pfm     +++|          SPACE  4,10
17793  M00S12602.pfm     +++|*         COMMON DECKS.
17794  M00S12603.pfm     +++|
17795  M00S12604.pfm     +++|
17796  M00S12605.pfm     +++|*CALL     COMPSDN
Line S00078 Modification History
M01 (Added by) ns2670
Seq #  *Modification Id* Act 
----------------------------+
17797  M01S00078.ns2670  +++| SEI$     SET    0           FORCE TRT UPDATE ON *SEI* CALLS
17798  M01S00079.ns2670  +++|*CALL     COMPSEI
17799  M00S12606.pfm     +++|          SPACE  4,10
17800  M00S12607.pfm     +++|*         CHECK FOR OVERFLOW.
17801  M00S12608.pfm     +++|
17802  M00S12609.pfm     +++|
17803  M00S12610.pfm     +++|          OVERFLOW  OVLC,BUF1-2  OVERFLOW INTO CATALOG BUFFER
17804  M00S12611.pfm     +++|          OVERLAY  (DEVICE TO DEVICE TRANSFER.),LOCG
17805  M00S12612.pfm     +++|          SPACE  4,10
17806  M00S12613.pfm     +++|**        THIS OVERLAY PROCESSES DEVICE-TO-DEVICE TRANSFER FOR
17807  M00S12614.pfm     +++|*         THE INDIRECT ACCESS FILE COMMANDS *GET*, *OLD*, *SAVE*,
17808  M00S12615.pfm     +++|*         *REPLACE*, AND *APPEND*.
17809  M00S12616.pfm     +++|
17810  M00S12617.pfm     +++|
17811  M00S12618.pfm     +++| OVL      BSS    0           ENTRY
17812  M00S12619.pfm     +++|          RJM    CES         CREATE EOI SECTOR
17813  M00S12620.pfm     +++|          UJN    ".Q"X       RETURN
17814  M00S12621.pfm     +++|          TITLE  DEVICE-TO-DEVICE TRANSFER MAIN LOOP.
17815  M00S12622.pfm     +++|**        DTD - DEVICE TO DEVICE TRANSFER.
17816  M00S12623.pfm     +++|*
17817  M00S12624.pfm     +++|*         ENTRY  (T4 - T7) = MASS STORAGE PARMETERS TO START READ AT.
17818  M00S12625.pfm     +++|*                (SDAA - SDAC) = MASS STORAGE PARAMETERS FOR 1ST WRITE
17819  M00S12626.pfm     +++|*                (BB) = ADDRESS TO START READING IN AT.
17820  M00S12627.pfm     +++|*                (FA) = FST ADDRESS.
17821  M00S12628.pfm     +++|*                (LF - LF+1) = FILE LENGTH.
17822  M00S12629.pfm     +++|*
Line S12630 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
17823  M01S12630.242l642 ---|*         CALLS  IBA, RNS, SDP, WES, WNS.
Line S01525 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
17824  M01S01525.242l642 +++|*         CALLS  IBA, PDV, RNS, SDP, WES, WNS.
17825  M00S12631.pfm     +++|*
17826  M00S12632.pfm     +++|*         MACROS ERROR, SETMS.
17827  M00S12633.pfm     +++|
17828  M00S12634.pfm     +++|
17829  M00S12635.pfm     +++| DTD      BSS    0           ENTRY
Line S01526 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
17830  M01S01526.242l642 +++|          LDK    PTE         SET ERROR PROCESSOR ADDRESS FOR *RNS*
17831  M01S01527.242l642 +++|          STM    MSRA
17832  M00S12636.pfm     +++| DTD0     LDD    BB
17833  M00S12637.pfm     +++|          RJM    RNS
Line S12638 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
17834  M01S12638.242l642 ---| .MSE3    BSS    0           (*COMPRNS* RETURN ADDRESS)
17835  M00S12639.pfm     +++|          LDI    BB
17836  M00S12640.pfm     +++|          ADM    1,BB
17837  M00S12641.pfm     +++|          ZJN    DTD1        IF EOI
17838  M00S12642.pfm     +++|          RJM    IBA         INCREMENT BUFFER ADDRESSES
17839  M00S12643.pfm     +++|          MJN    DTD0        IF BUFFER NOT FULL
17840  M00S12644.pfm     +++| DTD1     RJM    SDP         SWAP DISK PARAMETERS
17841  M00S12645.pfm     +++| DTD2     LDI    BB
17842  M00S12646.pfm     +++|          ADM    1,BB
Line S12647 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
17843  M01S12647.242l642 ---|          ZJN    DTD4        IF EOI SECTOR
Line S01528 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
17844  M01S01528.242l642 +++|          ZJP    DTD4        IF EOI SECTOR
17845  M00S12648.pfm     +++|          SOD    LF+1        DECREMENT LENGTH
17846  M00S12649.pfm     +++|          PJN    DTD3        IF NO UNDERFLOW
17847  M00S12650.pfm     +++|          AOD    LF+1
17848  M00S12651.pfm     +++|          SOD    LF
Line S12652 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
17849  M01S12652.242l642 ---|          MJN    DTD7        IF LENGTH ERROR
Line S01529 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
17850  M01S01529.242l642 +++|          MJP    DTD7        IF LENGTH ERROR
17851  M00S12653.pfm     +++| DTD3     RJM    WNS         WRITE NEXT SECTOR
17852  M00S12654.pfm     +++|          RJM    IBA         INCREMENT BUFFER ADDRESSES
17853  M00S12655.pfm     +++|          MJN    DTD2        IF STILL ANOTHER SECTOR IN BUFFER
17854  M00S12656.pfm     +++|          RJM    SDP         SWAP DISK PARAMETERS
Line S12657 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
17855  M01S12657.242l642 ---|          SETMS  READ
Line S01530 Modification History
M01 (Added by) 242l642
M02 (Removed by) ns2645
Seq #  *Modification Id* Act 
----------------------------+
17856  M02S01530.ns2645  ---|          SETMS  IO
Line S00021 Modification History
M01 (Added by) ns2645
Seq #  *Modification Id* Act 
----------------------------+
17857  M01S00021.ns2645  +++|          SETMS  READSTR,NS
Line S01531 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
17858  M01S01531.242l642 +++|          RJM    PDV         PROCESS DEVICE STATUS
17859  M00S12658.pfm     +++|          LJM    DTD0        LOOP
17860  M00S12659.pfm     +++|
17861  M00S12660.pfm     +++|*         EOI SECTOR ENCOUNTERED.
17862  M00S12661.pfm     +++|
17863  M00S12662.pfm     +++| DTD4     LDD    LF          CHECK FILE LENGTH
17864  M00S12663.pfm     +++|          ADD    LF+1
17865  M00S12664.pfm     +++|          ZJN    DTD8        IF NO LENGTH ERROR
17866  M00S12665.pfm     +++|          LDD    CC
17867  M00S12666.pfm     +++|          LMN    CCGT
17868  M00S12667.pfm     +++|          ZJN    DTD7        IF *GET*
17869  M00S12668.pfm     +++|          LMN    CCOD&CCGT
17870  M00S12669.pfm     +++|          ZJN    DTD7        IF *OLD*
17871  M00S12670.pfm     +++|          LMN    CCUG&CCOD
17872  M00S12671.pfm     +++|          ZJN    DTD7        IF *UGET*
17873  M00S12672.pfm     +++|
17874  M00S12673.pfm     +++|*         IF EOI ENCOUNTERED ON *SAVE*/*REPLACE*/*APPEND* BEFORE
17875  M00S12674.pfm     +++|*         FILE LENGTH EXHAUSTED, FILL TO END OF FILE WITH EOF-S.
17876  M00S12675.pfm     +++|
17877  M00S12676.pfm     +++| DTD5     SOD    LF+1        DECREMENT LENGTH
17878  M00S12677.pfm     +++|          PJN    DTD6        IF STILL MORE SECTORS
17879  M00S12678.pfm     +++|          AOD    LF+1
17880  M00S12679.pfm     +++|          SOD    LF
17881  M00S12680.pfm     +++|          MJN    DTD7        IF END OF SPACE
17882  M00S12681.pfm     +++| DTD6     RJM    WNS         WRITE EOF
17883  M00S12682.pfm     +++|          UJN    DTD5        CHECK IF MORE EOF-S NEEDED
17884  M00S12683.pfm     +++|
17885  M00S12684.pfm     +++| DTD7     LJM    PLE         PROCESS LENGTH ERROR
17886  M00S12685.pfm     +++|
17887  M00S12686.pfm     +++| DTD8     RJM    WES         WRITE EOI SECTOR
17888  M00S12687.pfm     +++|          LDD    FA
17889  M00S12688.pfm     +++|          ZJN    DTD9        IF NOT FST
17890  M00S12689.pfm     +++|          NFA    FA,R
17891  M00S12690.pfm     +++|          ADN    FSTL
17892  M00S12691.pfm     +++|          CWD    FS
17893  M00S12692.pfm     +++|
17894  M00S12693.pfm     +++| DTD9     LDC    0
17895  M00S12694.pfm     +++| DTDA     EQU    *-1         (TRANSFER ERROR FLAG)
17896  M00S12695.pfm     +++|          ZJN    DTD10       IF NO TRANSFER ERRORS
Line S12696 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
17897  M01S12696.242l642 ---|          ERROR  DTE,CH,,T5  *DATA TRANSFER ERROR.*
Line S01532 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
17898  M01S01532.242l642 +++|          LDM    SDAA        SET SOURCE EST ORDINAL
17899  M01S01533.242l642 +++|          ERROR  DTE,CH      *DATA TRANSFER ERROR.*
17900  M00S12697.pfm     +++|
Line S12698 Modification History
M01 (Removed by) ns2311
Seq #  *Modification Id* Act 
----------------------------+
17901  M01S12698.ns2311  ---| DTD10    LDM    IAIF
17902  M01S12699.ns2311  ---|          ZJN    DTD11       IF INDIRECT ALLOCATION INTERLOCK NOT SET
17903  M01S12700.ns2311  ---|          LDD    EQ          CLEAR INDIRECT ALLOCATION INTERLOCK
17904  M01S12701.ns2311  ---|          STD    CM+1
17905  M01S12702.ns2311  ---|          LDM    DVLW
17906  M01S12703.ns2311  ---|          STD    CM+2
17907  M01S12704.ns2311  ---|          LDN    CTIS
17908  M01S12705.ns2311  ---|          STD    CM+3
17909  M01S12706.ns2311  ---|          MONITOR  STBM
17910  M01S12707.ns2311  ---| DTD11    LJM    TRPX        TERMINATE PROGRAM
Line S00016 Modification History
M01 (Added by) ns2311
M02 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
17911  M02S00016.242l642 ---| DTD10    LJM    TRPX        TERMINATE PROGRAM
Line S01534 Modification History
M01 (Added by) 242l642
M02 (Removed by) ns2414
Seq #  *Modification Id* Act 
----------------------------+
17912  M02S01534.ns2414  ---| DTD10    EXECUTE  3PT       TERMINATE PROGRAM
Line S00311 Modification History
M01 (Added by) ns2414
M02 (Removed by) pfm54
Seq #  *Modification Id* Act 
----------------------------+
17913  M02S00311.pfm54   ---| DTD10    EXECUTE  3PU       TERMINATE PROGRAM
Line S00192 Modification History
M01 (Added by) pfm54
Seq #  *Modification Id* Act 
----------------------------+
17914  M01S00192.pfm54   +++| DTD10    LDM    IAIF        CHECK FOR INDIRECT ALLOCATION INTERLOCK
17915  M01S00193.pfm54   +++|          ZJN    DTD11       IF INDIRECT ALLOCATION INTERLOCK NOT SET
17916  M01S00194.pfm54   +++|          LDD    EQ          CLEAR INTERLOCK (SET CHECKPOINT BIT)
17917  M01S00195.pfm54   +++|          ADC    4000
17918  M01S00196.pfm54   +++|          STD    CM+1
17919  M01S00197.pfm54   +++|          LDM    DVLW
17920  M01S00198.pfm54   +++|          STD    CM+2
17921  M01S00199.pfm54   +++|          LDN    CTIS
17922  M01S00200.pfm54   +++|          STD    CM+3
17923  M01S00201.pfm54   +++|          MONITOR  STBM
17924  M01S00202.pfm54   +++|*         LDN    0           CLEAR INDIRECT ALLOCATION INTERLOCK FLAG
17925  M01S00203.pfm54   +++|          STM    IAIF
17926  M01S00204.pfm54   +++| DTD11    EXECUTE  3PU       TERMINATE PROGRAM
17927  M00S12708.pfm     +++|          TITLE  SUBROUTINES.
17928  M00S12709.pfm     +++| DPC      SPACE  4,10
17929  M00S12710.pfm     +++|**        DPC - DECREMENT PRU COUNTER.
17930  M00S12711.pfm     +++|*
17931  M00S12712.pfm     +++|*         ENTRY  (DPCA) PRESET FOR SRU ACCUMULATION OPTION.
17932  M00S12713.pfm     +++|*                       .EQ. 0 TO ACCUMULATE SRUS.
17933  M00S12714.pfm     +++|*                       .NE. 0 TO NOT ACCUMULATE SRUS.
17934  M00S12715.pfm     +++|*
Line S12716 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
17935  M01S12716.242l642 ---|*         EXIT   (DPPF) UPDATED IF SPECIFIED NUMBER OF PRUS TRANSFERRED
Line S01535 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
17936  M01S01535.242l642 +++|*         EXIT   (IAPF) UPDATED IF SPECIFIED NUMBER OF PRUS TRANSFERRED
17937  M00S12717.pfm     +++|*                AND SRU ACCUMULATION OPTION ON.
17938  M00S12718.pfm     +++|
17939  M00S12719.pfm     +++|
17940  M00S12720.pfm     +++| DPC      SUBR               ENTRY/EXIT
17941  M00S12721.pfm     +++|          SOM    DPCB        DECREMENT PRUS TRANSFERRED
17942  M00S12722.pfm     +++|          NJN    DPCX        IF INCREMENT NOT EXHAUSTED
17943  M00S12723.pfm     +++| DPCA     LDN    0           CHECK SRU ACCUMULATION OPTION
17944  M00S12724.pfm     +++|*         LDN    1           (NO SRU ACCUMULATION)
17945  M00S12725.pfm     +++|          NJN    DPCX        IF NO SRU ACCUMULATION
17946  M00S12726.pfm     +++|          LDN    IPPR        INCREMENT SRUS FOR TRANSFER
Line S12727 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
17947  M01S12727.242l642 ---|          RAM    DPPF
Line S01536 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
17948  M01S01536.242l642 +++|          RAM    AIPF+1
17949  M00S12728.pfm     +++|          SHN    -14
Line S12729 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
17950  M01S12729.242l642 ---|          RAM    DPPF-1
Line S01537 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
17951  M01S01537.242l642 +++|          RAM    AIPF
17952  M00S12730.pfm     +++|          LDN    IPPN        RESET PRU TRANSFER INCREMENT
17953  M00S12731.pfm     +++|          STM    DPCB
17954  M00S12732.pfm     +++|          UJN    DPCX        RETURN
17955  M00S12733.pfm     +++|
17956  M00S12734.pfm     +++| DPCB     CON    IPPN        PRU TRANSFER INCREMENT
17957  M00S12735.pfm     +++| IBA      SPACE  4,10
17958  M00S12736.pfm     +++|**        IBA - INCREMENT BUFFER ADDRESS.
17959  M00S12737.pfm     +++|*
17960  M00S12738.pfm     +++|*         EXIT   (A) .LT. 0, IF BUFFER NOT FULL.
17961  M00S12739.pfm     +++|
17962  M00S12740.pfm     +++|
17963  M00S12741.pfm     +++| IBA2     LDC    502         FULL BUFFER NEEDED FOR WRITE ERROR
17964  M00S12742.pfm     +++|          RAD    BB
17965  M00S12743.pfm     +++|          LCN    1
17966  M00S12744.pfm     +++|
17967  M00S12745.pfm     +++| IBA      SUBR               ENTRY/EXIT
17968  M00S12746.pfm     +++|          LDD    BB
17969  M00S12747.pfm     +++|          LMM    SDPA
17970  M00S12748.pfm     +++|          ZJN    IBA2        IF FIRST SECTOR IN BUFFER
17971  M00S12749.pfm     +++|          LDI    BB
17972  M00S12750.pfm     +++|          ZJN    IBA1        IF EOF
17973  M00S12751.pfm     +++|          LDM    1,BB        GET LENGTH
17974  M00S12752.pfm     +++|          SHN    2
17975  M00S12753.pfm     +++|          ADM    1,BB
17976  M00S12754.pfm     +++| IBA1     ADN    2
17977  M00S12755.pfm     +++|          RAD    BB
17978  M00S12756.pfm     +++|          ADC    -BFMS
17979  M00S12757.pfm     +++|          UJN    IBAX        RETURN
17980  M00S12758.pfm     +++| PLE      SPACE  4,10
17981  M00S12759.pfm     +++|**        PLE - PROCESS LENGTH ERROR.
17982  M00S12760.pfm     +++|*
17983  M00S12761.pfm     +++|*         CALLS  WES.
17984  M00S12762.pfm     +++|*
17985  M00S12763.pfm     +++|*         MACROS ERROR.
17986  M00S12764.pfm     +++|
17987  M00S12765.pfm     +++|
17988  M00S12766.pfm     +++| PLE      BSS    0           ENTRY
17989  M00S12767.pfm     +++|          RJM    WES         WRITE EOI SECTOR
Line S12768 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
17990  M01S12768.242l642 ---|          LDM    SDAA        SET SOURCE EST ORDINAL
Line S01538 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
17991  M01S01538.242l642 +++|          LDM    PLEA
17992  M01S01539.242l642 +++|          NJN    PLE1        IF LENGTH ERROR DUE TO HARDWARE FAILURE
17993  M01S01540.242l642 +++|          LDM    SDAA        SET SOURCE EST ORDINAL
17994  M01S01541.242l642 +++|          ERROR  FLE,CH,,,,EI  *EQXXX,DNYY, FILE LENGTH ERROR.*
17995  M01S01542.242l642 +++|
17996  M01S01543.242l642 +++| PLE1     LDM    SDAA        SET SOURCE EST ORDINAL
17997  M00S12769.pfm     +++|          ERROR  FLE,CH      *EQXXX,DNYY, FILE LENGTH ERROR.*
Line S01544 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
17998  M01S01544.242l642 +++|
17999  M01S01545.242l642 +++|
18000  M01S01546.242l642 +++| PLEA     CON    0           LINKAGE ERROR DUE TO HARDWARE FAILURE
18001  M00S12770.pfm     +++| PTE      SPACE  4,10
18002  M00S12771.pfm     +++|**        PTE - PROCESS TRANSFER ERROR.
18003  M00S12772.pfm     +++|*
Line S12773 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
18004  M01S12773.242l642 ---|*         ENTRY  FROM MSR.
Line S01547 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
18005  M01S01547.242l642 +++|*         ENTRY  READ ERROR DETECTED BY *COMPRNS*.
18006  M00S12774.pfm     +++|*
Line S12775 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
18007  M01S12775.242l642 ---|*         EXIT   TO *.MSE3* WITH EOI LINKAGE SET IF NOT VALID SECTOR.
18008  M01S12776.242l642 ---|*                TO *MSRX* WITH TRANSFER ERROR INDICATED IF VALID DATA.
Line S01548 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
18009  M01S01548.242l642 +++|*         EXIT   (DTDA) .NE. 0 IF DATA TRANSFER ERROR OCCURRED.
18010  M01S01549.242l642 +++|*                (PLEA) .NE. 0 IF LINKAGE ERROR OCCURRED.
18011  M01S01550.242l642 +++|*
18012  M01S01551.242l642 +++|*         CALLS  PES.
18013  M00S12777.pfm     +++|
18014  M00S12778.pfm     +++|
Line S12779 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
18015  M01S12779.242l642 ---| PTE      BSS    0           ENTRY
Line S01552 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
18016  M01S01552.242l642 +++| PTE      SUBR               ENTRY/EXIT
18017  M01S01553.242l642 +++|          RJM    PES         PROCESS ERROR STATUS
18018  M00S12780.pfm     +++|          LDM    RDCT        CHECK TYPE OF ERROR
18019  M00S12781.pfm     +++|          SHN    21-13
18020  M00S12782.pfm     +++|          PJN    PTE1        IF VALID SECTOR READ
Line S01554 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
18021  M01S01554.242l642 +++|          AOM    PLEA        INDICATE LINKAGE ERROR
18022  M00S12783.pfm     +++|          LDN    0           SET EOI LINKAGE TO TERMINATE TRANSFER
18023  M00S12784.pfm     +++|          STM    1,BB
18024  M00S12785.pfm     +++|          STI    BB
Line S12786 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
18025  M01S12786.242l642 ---|          LJM    .MSE3       REENTER TRANSFER LOOP
Line S01555 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
18026  M01S01555.242l642 +++|          UJN    PTEX        RETURN
18027  M00S12787.pfm     +++|
18028  M00S12788.pfm     +++| PTE1     AOM    DTDA        INDICATE TRANSFER ERROR
Line S12789 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
18029  M01S12789.242l642 ---|          LJM    MSRX        REENTER *COMPRNS*
Line S01556 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
18030  M01S01556.242l642 +++|          UJN    PTEX        RETURN
18031  M00S12790.pfm     +++| SDP      SPACE  4,15
18032  M00S12791.pfm     +++|**        SDP - SWAP DISK PARAMETERS.
18033  M00S12792.pfm     +++|*
18034  M00S12793.pfm     +++|*         ENTRY  (SDAA - SDAC) = NEXT DEVICE PARAMETERS.
18035  M00S12794.pfm     +++|*                (T5 - T7) = CURRENT DEVICE PARAMETERS.
18036  M00S12795.pfm     +++|*
18037  M00S12796.pfm     +++|*         EXIT   (T4 - T7) = DISK INFORMATION FOR NEXT DEVICE.
18038  M00S12797.pfm     +++|*                (BB) = STARTING BUFFER ADDRESS.
18039  M00S12798.pfm     +++|*                *SETMS* WRITE PERFORMED.
18040  M00S12799.pfm     +++|*
18041  M00S12800.pfm     +++|*         USES   T0 - T7.
Line S01557 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
18042  M01S01557.242l642 +++|*
18043  M01S01558.242l642 +++|*         CALLS  PDV.
18044  M00S12801.pfm     +++|*
18045  M00S12802.pfm     +++|*         MACROS ENDMS, SETMS.
18046  M00S12803.pfm     +++|
18047  M00S12804.pfm     +++|
18048  M00S12805.pfm     +++| SDP      SUBR               ENTRY/EXIT
18049  M00S12806.pfm     +++|          ENDMS
18050  M00S12807.pfm     +++|          LDN    T5          SWAP DEVICE PARAMETERS
18051  M00S12808.pfm     +++|          STD    T1
18052  M00S12809.pfm     +++| SDP1     LDI    T1
18053  M00S12810.pfm     +++|          STD    T0
18054  M00S12811.pfm     +++|          LDM    SDAA-T5,T1
18055  M00S12812.pfm     +++|          STI    T1
18056  M00S12813.pfm     +++|          LDD    T0
18057  M00S12814.pfm     +++|          STM    SDAA-T5,T1
18058  M00S12815.pfm     +++|          AOD    T1
18059  M00S12816.pfm     +++|          LMN    T7+1
18060  M00S12817.pfm     +++|          NJN    SDP1        IF NOT ALL PARAMETERS SWAPPGD
Line S12818 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
18061  M01S12818.242l642 ---|          SETMS  WRITE
Line S01559 Modification History
M01 (Added by) 242l642
M02 (Removed by) ns2645
Seq #  *Modification Id* Act 
----------------------------+
18062  M02S01559.ns2645  ---|          SETMS  IO
Line S00022 Modification History
M01 (Added by) ns2645
Seq #  *Modification Id* Act 
----------------------------+
18063  M01S00022.ns2645  +++|          SETMS  IO,NS
Line S01560 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
18064  M01S01560.242l642 +++|          RJM    PDV         PROCESS DEVICE STATUS
18065  M00S12819.pfm     +++|          LDM    UERR        SET TRANSFER MODE (REWRITE OR NON-REWRITE)
Line S12820 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
18066  M01S12820.242l642 ---|          SCN    EPRW
Line S01561 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
18067  M01S01561.242l642 +++|          LPC    -EPRW
18068  M00S12821.pfm     +++|          LMM    DTMD
18069  M00S12822.pfm     +++|          STM    UERR
18070  M00S12823.pfm     +++|          LDC    BUF         SET BUFFER ADDRESS
18071  M00S12824.pfm     +++| SDPA     EQU    *-1
18072  M00S12825.pfm     +++|          STD    BB
18073  M00S12826.pfm     +++|          STM    WDSE        SET WRITE ERROR BUFFER ADDRESS
18074  M00S12827.pfm     +++|          LJM    SDPX        RETURN
18075  M00S12828.pfm     +++| SNS      SPACE  4,15
18076  M00S12829.pfm     +++|**        SNS - SET NEXT SECTOR.
18077  M00S12830.pfm     +++|*
18078  M00S12831.pfm     +++|*         ENTRY  (T7) = CURRENT SECTOR.
18079  M00S12832.pfm     +++|*                (SNSA) PRESET IF ACCUMULATION DESIRED.
18080  M00S12833.pfm     +++|*
18081  M00S12834.pfm     +++|*         EXIT   (T3) = NEXT SECTOR/TRACK.
18082  M00S12835.pfm     +++|*
18083  M00S12836.pfm     +++|*         USES   T3.
18084  M00S12837.pfm     +++|*
18085  M00S12838.pfm     +++|*         CALLS  SNT.
18086  M00S12839.pfm     +++|
18087  M00S12840.pfm     +++|
18088  M00S12841.pfm     +++| SNS      SUBR               ENTRY/EXIT
18089  M00S12842.pfm     +++|          LDD    T7          SET NEXT SECTOR
18090  M00S12843.pfm     +++|          ADN    1
18091  M00S12844.pfm     +++|          STD    T3
18092  M00S12845.pfm     +++|          LMM    SLM
18093  M00S12846.pfm     +++|          NJN    SNSX        IF NOT SECTOR LIMIT
18094  M00S12847.pfm     +++|
18095  M00S12848.pfm     +++|*         SET NEXT TRACK.
18096  M00S12849.pfm     +++|
18097  M00S12850.pfm     +++| SNSA     LDN    0
18098  M00S12851.pfm     +++|*         LDN    1           (IF PRU ACCUMULATION DESIRED)
18099  M00S12852.pfm     +++|          ZJN    SNS1        IF NO PRU ACCUMULATION
18100  M00S12853.pfm     +++|          LDM    SLM         INCREMENT PRU COUNT FOR NEXT TRACK
Line S12854 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
18101  M01S12854.242l642 ---|          RAM    DPPD+1
Line S01562 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
18102  M01S01562.242l642 +++|          RAM    AIPR+1
18103  M00S12855.pfm     +++|          SHN    -14
Line S12856 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
18104  M01S12856.242l642 ---|          RAM    DPPD
Line S01563 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
18105  M01S01563.242l642 +++|          RAM    AIPR
18106  M00S12857.pfm     +++| SNS1     RJM    SNT         SET NEXT TRACK
18107  M00S12858.pfm     +++|          STD    T3
18108  M00S12859.pfm     +++|          UJN    SNSX        RETURN
Line S12860 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
18109  M01S12860.242l642 ---| WES      SPACE  4,15
Line S01564 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
18110  M01S01564.242l642 +++| WES      SPACE  4,20
18111  M00S12861.pfm     +++|**        WES - WRITE EOI SECTOR.
18112  M00S12862.pfm     +++|*
18113  M00S12863.pfm     +++|*         ENTRY  (T4) = CHANNEL (RESERVED).
18114  M00S12864.pfm     +++|*                (T5) = EST ORDINAL.
18115  M00S12865.pfm     +++|*                (T6) = EOI TRACK.
18116  M00S12866.pfm     +++|*                (T7) = EOI SECTOR.
18117  M00S12867.pfm     +++|*                (CC) = COMMAND CODE.
18118  M00S12868.pfm     +++|*
18119  M00S12869.pfm     +++|*         EXIT   CHANNEL RELEASED.
18120  M00S12870.pfm     +++|*                EOI SET IN TRT IF *GET*, *OLD*, OR *UGET* REQUEST.
Line S01565 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
18121  M01S01565.242l642 +++|*                TO *WSE* TO PROCESS WRITE ERRORS.
18122  M00S12871.pfm     +++|*
18123  M00S12872.pfm     +++|*         USES   CM - CM+4.
18124  M00S12873.pfm     +++|*
18125  M00S12874.pfm     +++|*         CALLS  WEI.
18126  M00S12875.pfm     +++|*
18127  M00S12876.pfm     +++|*         MACROS ENDMS, ERROR, MONITOR.
18128  M00S12877.pfm     +++|
18129  M00S12878.pfm     +++|
18130  M00S12879.pfm     +++| WES      SUBR               ENTRY/EXIT
18131  M00S12880.pfm     +++|          LDN    0           CLEAR FST ADDRESS
18132  M00S12881.pfm     +++|          STD    FA
18133  M00S12882.pfm     +++|          RJM    WEI         WRITE EOI
Line S12883 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
18134  M01S12883.242l642 ---|          MJN    WES2        IF MASS STORAGE ERRORS
Line S01566 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
18135  M01S01566.242l642 +++|          MJP    WSE         IF WRITE ERROR
18136  M00S12884.pfm     +++|          ENDMS
18137  M00S12885.pfm     +++|          LDC    *           RESTORE FST ADDRESS
18138  M00S12886.pfm     +++| WESA     EQU    *-1
18139  M00S12887.pfm     +++|          STD    FA
18140  M00S12888.pfm     +++|          LDD    CC          CHECK REQUEST
18141  M00S12889.pfm     +++|          LMN    CCGT
18142  M00S12890.pfm     +++|          ZJN    WES1        IF *GET*
18143  M00S12891.pfm     +++|          LMN    CCOD&CCGT
18144  M00S12892.pfm     +++|          ZJN    WES1        IF *OLD*
18145  M00S12893.pfm     +++|          LMN    CCUG&CCOD
18146  M00S12894.pfm     +++|          NJN    WESX        IF NOT *UGET*
18147  M00S12895.pfm     +++| WES1     LDD    T5          SET EST ORDINAL
18148  M00S12896.pfm     +++|          STD    CM+1
18149  M00S12897.pfm     +++|          LDD    T6          SET TRACK
18150  M00S12898.pfm     +++|          LPC    3777
18151  M00S12899.pfm     +++|          STD    CM+2
18152  M00S12900.pfm     +++|          LDD    T7          SET SECTOR
18153  M00S12901.pfm     +++|          STD    CM+3
18154  M00S12902.pfm     +++|          MONITOR DTKM       SET EOI IN TRT
Line S12903 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
18155  M01S12903.242l642 ---|          UJN    WESX        RETURN
Line S01567 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
18156  M01S01567.242l642 +++|          UJP    WESX        RETURN
18157  M00S12904.pfm     +++|
Line S12905 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
18158  M01S12905.242l642 ---| WES2     ERROR  MSE,,,T5    *EQXXX,DNYY, MASS STORAGE ERROR.*
18159  M00S12906.pfm     +++|
18160  M00S12907.pfm     +++| WEIA     BSSZ   WCEI*5+2    EOI BUFFER
Line S12908 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
18161  M01S12908.242l642 ---| WNS      SPACE  4,10
Line S01568 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
18162  M01S01568.242l642 +++| WNS      SPACE  4,15
18163  M00S12909.pfm     +++|**        WNS - WRITE NEXT SECTOR.
18164  M00S12910.pfm     +++|*
18165  M00S12911.pfm     +++|*         WRITE SECTOR WITH NEW LINKAGE.  USES OLD WORD COUNT AND
18166  M00S12912.pfm     +++|*         EOF FLAGS.  SYSTEM SECTORS ARE HANDLED PROPERLY ALSO.
18167  M00S12913.pfm     +++|*         PRU INCREMENTS AND PF INCREMENTS ARE UPDATED.
18168  M00S12914.pfm     +++|*
18169  M00S12915.pfm     +++|*         ENTRY  (BB) = ADDRESS OF SECTOR BUFFER.
Line S01569 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
18170  M01S01569.242l642 +++|*
18171  M01S01570.242l642 +++|*         EXIT   TO *WSE* TO PROCESS WRITE ERRORS.
18172  M00S12916.pfm     +++|*
18173  M00S12917.pfm     +++|*         USES   T1, T3 - T7.
18174  M00S12918.pfm     +++|*
18175  M00S12919.pfm     +++|*         CALLS  SNT, WDS.
18176  M00S12920.pfm     +++|
18177  M00S12921.pfm     +++|
18178  M00S12922.pfm     +++| WNS      SUBR               ENTRY/EXIT
18179  M00S12923.pfm     +++|          RJM    SNS         SET NEXT SECTOR
18180  M00S12924.pfm     +++|          LDI    BB
18181  M00S12925.pfm     +++|          NJN    WNS1        IF NOT EOF
18182  M00S12926.pfm     +++|
18183  M00S12927.pfm     +++|*         PROCESS EOF.
18184  M00S12928.pfm     +++|
18185  M00S12929.pfm     +++|          LDD    T3          SET NEXT SECTOR ADDRESS
18186  M00S12930.pfm     +++|          STM    1,BB
18187  M00S12931.pfm     +++|          UJN    WNS3        WRITE SECTOR
18188  M00S12932.pfm     +++|
18189  M00S12933.pfm     +++|*         PROCESS SYSTEM SECTOR.
18190  M00S12934.pfm     +++|
18191  M00S12935.pfm     +++| WNS1     LMC    3777
18192  M00S12936.pfm     +++|          NJN    WNS2        IF NOT SYSTEM SECTOR
18193  M00S12937.pfm     +++|          LDD    T3          SET NEXT SECTOR ADDRESS
18194  M00S12938.pfm     +++|          STM    NSSS-BFMS,BB
18195  M00S12939.pfm     +++|          UJN    WNS3        WRITE SECTOR
18196  M00S12940.pfm     +++|
18197  M00S12941.pfm     +++|*         PROCESS DATA SECTOR.
18198  M00S12942.pfm     +++|
18199  M00S12943.pfm     +++| WNS2     LDD    T3          SET NEXT SECTOR ADDRESS
18200  M00S12944.pfm     +++|          STI    BB
18201  M00S12945.pfm     +++|
18202  M00S12946.pfm     +++|*         WRITE SECTOR.
18203  M00S12947.pfm     +++|
18204  M00S12948.pfm     +++| WNS3     LDD    BB
18205  M00S12949.pfm     +++|          STD    T1
18206  M00S12950.pfm     +++|          RJM    IBA         INCREMENT BUFFER ADDRESS
18207  M00S12951.pfm     +++|          SHN    -21
18208  M00S12952.pfm     +++|          ZJN    WNS4        IF END OF BUFFER
18209  M00S12953.pfm     +++|          LDC    WCSF&WLSF   WRITE CONSECUTIVE SECTOR
18210  M00S12954.pfm     +++| WNS4     LMD    T1+WLSF     WRITE LAST SECTOR
18211  M00S12955.pfm     +++|          STD    BB          RESET BUFFER ADDRESS
18212  M00S12956.pfm     +++|          RJM    WDS
Line S12957 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
18213  M01S12957.242l642 ---|          MJN    WNS6        IF WRITE ERROR
Line S01571 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
18214  M01S01571.242l642 +++|          MJN    WSE         IF WRITE ERROR
18215  M00S12958.pfm     +++|          RJM    DPC         DECREMENT PRU COUNT
18216  M00S12959.pfm     +++|
18217  M00S12960.pfm     +++|*         SET NEXT SECTOR.
18218  M00S12961.pfm     +++|
18219  M00S12962.pfm     +++|          LDD    T3          SET NEXT SECTOR
18220  M00S12963.pfm     +++|          STD    T7
18221  M00S12964.pfm     +++|          SHN    21-13
18222  M00S12965.pfm     +++|          PJN    WNS5        IF NOT TRACK POINTER
18223  M00S12966.pfm     +++|          SHN    -21+13      SET NEXT TRACK
18224  M00S12967.pfm     +++|          STD    T6
18225  M00S12968.pfm     +++|          LDN    0
18226  M00S12969.pfm     +++|          STD    T7
18227  M00S12970.pfm     +++| WNS5     LJM    WNSX        RETURN
Line S12971 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
18228  M01S12971.242l642 ---|
18229  M01S12972.242l642 ---|*         PROCESS MASS STORAGE WRITE ERRORS.
18230  M01S12973.242l642 ---|
18231  M01S12974.242l642 ---| WNS6     ERROR  MSE,,,T5    *EQXXX,DNYY, MASS STORAGE ERROR.*
Line S01572 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
18232  M01S01572.242l642 +++| WSE      SPACE  4,15
18233  M01S01573.242l642 +++|**        WSE - WRITE MASS STORAGE ERROR PROCESSOR.
18234  M01S01574.242l642 +++|*
18235  M01S01575.242l642 +++|*         ENTRY  (PWRF) = *PFM* RESTART FLAGS FOR RECALL.
18236  M01S01576.242l642 +++|*                (RDCT) = DRIVER STATUS.
18237  M01S01577.242l642 +++|*                (STAT) = *STNS* BIT SET IF JOB SUSPENSION NOT ALLOWED.
18238  M01S01578.242l642 +++|*
18239  M01S01579.242l642 +++|*         EXIT   (PWRF) = *RFRR* FLAG SET IF REQUEST TO BE RETRIED
18240  M01S01580.242l642 +++|*                         DUE TO UNRECOVERABLE WRITE ERROR.
18241  M01S01581.242l642 +++|*                TO *ERR* TO RETRY REQUEST OR ISSUE ERROR MESSAGE.
18242  M01S01582.242l642 +++|*
18243  M01S01583.242l642 +++|*         MACROS ERROR.
18244  M01S01584.242l642 +++|
18245  M01S01585.242l642 +++|
18246  M01S01586.242l642 +++| WSE      BSS    0           ENTRY
18247  M01S01587.242l642 +++|          LDM    STAT        *PFM* STATUS BITS
18248  M01S01588.242l642 +++|          LPK    STNS
18249  M01S01589.242l642 +++|          NJN    WSE3        IF JOB SUSPENSION INHIBITED
18250  M01S01590.242l642 +++|          LDM    RDCT        DRIVER STATUS
18251  M01S01591.242l642 +++|          SHN    21-12
18252  M01S01592.242l642 +++|          PJN    WSE1        IF RECOVERABLE ERROR
18253  M01S01593.242l642 +++|          LDM    PWRF        CHECK RESTART FLAGS
18254  M01S01594.242l642 +++|          LPK    RFRR
18255  M01S01595.242l642 +++|          NJN    WSE2        IF REQUEST ALREADY RETRIED
18256  M01S01596.242l642 +++|          LDK    RFRR        SET RETRY REQUEST FLAG
18257  M01S01597.242l642 +++|          RAM    PWRF
18258  M01S01598.242l642 +++| WSE1     ERROR  RTR,CH      RETRY REQUEST
18259  M01S01599.242l642 +++|
18260  M01S01600.242l642 +++| WSE2     ERROR  MSE,CH,,T5  *EQXXX,DNYY, MASS STORAGE ERROR.*
18261  M01S01601.242l642 +++|
18262  M01S01602.242l642 +++| WSE3     ERROR  MSE,CH,,T5,,EI  *EQXXX,DNYY, MASS STORAGE ERROR.*
18263  M00S12975.pfm     +++|          SPACE  4,10
18264  M00S12976.pfm     +++|*         COMMON DECKS.
18265  M00S12977.pfm     +++|
18266  M00S12978.pfm     +++|
18267  M00S12979.pfm     +++|*CALL     COMPWEI
18268  M00S12980.pfm     +++| BUF      SPACE  4,10
18269  M00S12981.pfm     +++|*         BUF - BUFFER USED IN DEVICE TO DEVICE TRANSFER.
18270  M00S12982.pfm     +++|
18271  M00S12983.pfm     +++|
18272  M00S12984.pfm     +++| BUF      BSS    0
18273  M00S12985.pfm     +++|
18274  M00S12986.pfm     +++| .BUFL    SET    EPFW-BUF
18275  M00S12987.pfm     +++|          ERRNG  .BUFL-5020  NOT ROOM FOR 8 SECTORS IN BUFFER
18276  M00S12988.pfm     +++| CES      SPACE  4,10
18277  M00S12989.pfm     +++|**        CES - CREATE EOI SECTOR.
18278  M00S12990.pfm     +++|*
18279  M00S12991.pfm     +++|*         ENTRY  (CC) = COMMAND CODE.
18280  M00S12992.pfm     +++|*                (FA) = FST ADDRESS.
18281  M00S12993.pfm     +++|*                (FS - FS+4) = FST IMAGE (*GET*/*OLD*/*UGET* REQUEST).
18282  M00S12994.pfm     +++|*                (SDAA - SDAC) = PARAMETERS FOR 1ST WRITE.
18283  M00S12995.pfm     +++|*
18284  M00S12996.pfm     +++|*         EXIT   (WEIA) SET UP WITH EOI DATA.
18285  M00S12997.pfm     +++|*                (WESA) = FST ADDRESS.
18286  M00S12998.pfm     +++|
18287  M00S12999.pfm     +++|
18288  M00S13000.pfm     +++| CES2     LDD    MA          MOVE FST INFORMATION TO EOI BUFFER
18289  M00S13001.pfm     +++|          CWM    SDAA,ON
18290  M00S13002.pfm     +++|          SBN    1
18291  M00S13003.pfm     +++| CES3     CRM    WEIA+FSEI,ON
18292  M00S13004.pfm     +++|          LDD    FA          SAVE FST ADDRESS
18293  M00S13005.pfm     +++|          STM    WESA
18294  M00S13006.pfm     +++|          NFA    FA,R        COPY FILE NAME TO EOI BUFFER
18295  M00S13007.pfm     +++|          ADK    FNTL
18296  M00S13008.pfm     +++|          CRM    WEIA+FNEI,ON
18297  M00S13009.pfm     +++|
18298  M00S13010.pfm     +++| CES      SUBR               ENTRY/EXIT
18299  M00S13011.pfm     +++|          LDD    CC          CHECK REQUEST
18300  M00S13012.pfm     +++|          LMN    CCGT
18301  M00S13013.pfm     +++|          ZJN    CES1        IF *GET* FUNCTION
18302  M00S13014.pfm     +++|          LMN    CCOD&CCGT
18303  M00S13015.pfm     +++|          ZJN    CES1        IF *OLD*
18304  M00S13016.pfm     +++|          LMN    CCUG&CCOD
18305  M00S13017.pfm     +++|          NJN    CES2        IF NOT *UGET*
18306  M00S13018.pfm     +++| CES1     LDD    MA          COPY FST IMAGE TO EOI BUFFER
18307  M00S13019.pfm     +++|          CWD    FS
18308  M00S13020.pfm     +++|          UJN    CES3        READ FST ENTRY
18309  M00S13021.pfm     +++|          SPACE  4,10
18310  M00S13022.pfm     +++|*         EQUIVALENCE EXTERNALLY REFERENCED TAGS.
18311  M00S13023.pfm     +++|
18312  M00S13024.pfm     +++|
18313  M00S13025.pfm     +++|          QUAL   *
18314  M00S13026.pfm     +++|
18315  M00S13027.pfm     +++| BUF      EQU    /".O"/BUF
18316  M00S13028.pfm     +++| DPCA     EQU    /".O"/DPCA
18317  M00S13029.pfm     +++| DPCB     EQU    /".O"/DPCB
18318  M00S13030.pfm     +++| DTD      EQU    /".O"/DTD
18319  M00S13031.pfm     +++| DTDA     EQU    /".O"/DTDA
18320  M00S13032.pfm     +++| IBA      EQU    /".O"/IBA
18321  M00S13033.pfm     +++| PLE      EQU    /".O"/PLE
Line S01603 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
18322  M01S01603.242l642 +++| PLEA     EQU    /".O"/PLEA
18323  M00S13034.pfm     +++| PTE      EQU    /".O"/PTE
18324  M00S13035.pfm     +++| SDP      EQU    /".O"/SDP
18325  M00S13036.pfm     +++| SDPA     EQU    /".O"/SDPA
18326  M00S13037.pfm     +++| SNSA     EQU    /".O"/SNSA
18327  M00S13038.pfm     +++| WNS      EQU    /".O"/WNS
Line S13039 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
18328  M01S13039.242l642 ---| .MSE3    EQU    /".O"/.MSE3
18329  M00S13040.pfm     +++|          OVERLAY  (APPEND - ORIGINAL FILE TRANSFER.),(BUF+5)
18330  M00S13041.pfm     +++|          SPACE  4,10
Line S13042 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
18331  M01S13042.242l642 ---|**        THIS OVERLAY (TOGETHER WITH OVERLAY *3PN*) PERFORMS THE
Line S01604 Modification History
M01 (Added by) 242l642
M02 (Removed by) ns2414
Seq #  *Modification Id* Act 
----------------------------+
18332  M02S01604.ns2414  ---|**        THIS OVERLAY (TOGETHER WITH OVERLAY *3PO*) PERFORMS THE
Line S00312 Modification History
M01 (Added by) ns2414
Seq #  *Modification Id* Act 
----------------------------+
18333  M01S00312.ns2414  +++|**        THIS OVERLAY (TOGETHER WITH OVERLAY *3PP*) PERFORMS THE
18334  M00S13043.pfm     +++|*         DEVICE-TO-DEVICE TRANSFER OF THE ORIGINAL PERMANENT FILE,
18335  M00S13044.pfm     +++|*         WHEN REQUIRED, FOR THE INDIRECT ACCESS FILE COMMAND
Line S13045 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
18336  M01S13045.242l642 ---|*         *APPEND*.  ONCE THIS TRANSFER IS COMPLETE, OVERLAY *3PN*
Line S01605 Modification History
M01 (Added by) 242l642
M02 (Removed by) ns2414
Seq #  *Modification Id* Act 
----------------------------+
18337  M02S01605.ns2414  ---|*         *APPEND*.  ONCE THIS TRANSFER IS COMPLETE, OVERLAY *3PO*
Line S00313 Modification History
M01 (Added by) ns2414
Seq #  *Modification Id* Act 
----------------------------+
18338  M01S00313.ns2414  +++|*         *APPEND*.  ONCE THIS TRANSFER IS COMPLETE, OVERLAY *3PP*
18339  M00S13046.pfm     +++|*         IS CALLED TO COPY THE LOCAL FILE.
18340  M00S13047.pfm     +++|
18341  M00S13048.pfm     +++|
18342  M00S13049.pfm     +++| OVL      BSS    0           ENTRY
18343  M00S13050.pfm     +++|          UJN    ".Q"X       RETURN AFTER LOAD
18344  M00S13051.pfm     +++| ADT      SPACE  4,15
18345  M00S13052.pfm     +++|**        ADT - APPEND DISK TRANSFER.
18346  M00S13053.pfm     +++|*
18347  M00S13054.pfm     +++|*         ENTRY  (FS - FS+4) = FST ENTRY FOR SYSTEM FILE.
18348  M00S13055.pfm     +++|*                (PFFN) = BEGINNING TRACK OF READ FILE.
18349  M00S13056.pfm     +++|*                (PFFN+1) = BEGINNING SECTOR OF READ FILE.
18350  M00S13057.pfm     +++|*
18351  M00S13058.pfm     +++|*         EXIT   TO *DTD*.
18352  M00S13059.pfm     +++|*                TO *PLE* FOR LENGTH ERRORS.
18353  M00S13060.pfm     +++|*
18354  M00S13061.pfm     +++|*         USES   BB, P0, P1, T5, T6, T7, CM - CM+4, LF - LF+1.
18355  M00S13062.pfm     +++|*
Line S13063 Modification History
M01 (Removed by) ns2776
Seq #  *Modification Id* Act 
----------------------------+
18356  M01S13063.ns2776  ---|*         CALLS  CSS, CTI, DTD, IBA, PLE, RNS, RSS, SDP, STI, WNS.
Line S00095 Modification History
M01 (Added by) ns2776
Seq #  *Modification Id* Act 
----------------------------+
18357  M01S00095.ns2776  +++|*         CALLS  CSS, CTI, DTD, IBA, PDV, PLE, RNS, RSS, SDP, STI, WNS.
18358  M00S13064.pfm     +++|*
18359  M00S13065.pfm     +++|*         MACROS ENDMS, ERROR, MONITOR, SETMS.
18360  M00S13066.pfm     +++|
18361  M00S13067.pfm     +++|
18362  M00S13068.pfm     +++| ADT      BSS    0           ENTRY
Line S01606 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
18363  M01S01606.242l642 +++|          LDK    PTE         SET ERROR PROCESSOR ADDRESS FOR *RNS*
18364  M01S01607.242l642 +++|          STM    MSRA
18365  M00S13069.pfm     +++| ADT2     LDD    BB          READ NEXT SECTOR
18366  M00S13070.pfm     +++|          RJM    RNS
Line S13071 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
18367  M01S13071.242l642 ---| .MSE4    BSS    0           (*COMPRNS* RETURN ADDRESS)
18368  M00S13072.pfm     +++|          LDI    BB
18369  M00S13073.pfm     +++|          ADM    1,BB
18370  M00S13074.pfm     +++|          ZJN    ADT3        IF EOI
18371  M00S13075.pfm     +++|          RJM    IBA         INCREMENT BUFFER ADDRESSES
18372  M00S13076.pfm     +++|          MJN    ADT2        IF BUFFER NOT FULL
18373  M00S13077.pfm     +++| ADT3     RJM    SDP         SWAP DISK PARAMETERS
18374  M00S13078.pfm     +++| ADT4     LDI    BB
18375  M00S13079.pfm     +++|          ADM    1,BB
18376  M00S13080.pfm     +++|          ZJN    ADT6        IF EOI SECTOR
18377  M00S13081.pfm     +++|          SOD    LF+1        DECREMENT LENGTH
18378  M00S13082.pfm     +++|          PJN    ADT5        IF NO UNDEFLOW
18379  M00S13083.pfm     +++|          AOD    LF+1
18380  M00S13084.pfm     +++|          SOD    LF
18381  M00S13085.pfm     +++|          PJN    ADT5        IF NO LENGTH ERROR
18382  M00S13086.pfm     +++|          LJM    PLE         PROCESS LENGTH ERROR
18383  M00S13087.pfm     +++|
18384  M00S13088.pfm     +++| ADT5     RJM    WNS         WRITE NEXT SECTOR
18385  M00S13089.pfm     +++|          RJM    IBA         INCREMENT BUFFER ADDRESS
18386  M00S13090.pfm     +++|          MJN    ADT4        IF STILL ROOM IN BUFFER
18387  M00S13091.pfm     +++|          RJM    SDP         SWAP DISK PARAMETERS
Line S13092 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
18388  M01S13092.242l642 ---|          SETMS  READ
Line S01608 Modification History
M01 (Added by) 242l642
M02 (Removed by) ns2645
Seq #  *Modification Id* Act 
----------------------------+
18389  M02S01608.ns2645  ---|          SETMS  IO
Line S00023 Modification History
M01 (Added by) ns2645
Seq #  *Modification Id* Act 
----------------------------+
18390  M01S00023.ns2645  +++|          SETMS  READSTR,NS
Line S01609 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
18391  M01S01609.242l642 +++|          RJM    PDV         PROCESS DEVICE STATUS
18392  M00S13093.pfm     +++|          LJM    ADT2        LOOP
18393  M00S13094.pfm     +++|
18394  M00S13095.pfm     +++|*         CHECK FOR DELAYED DELINK REQUEST FOR ORIGINAL FILE.
18395  M00S13096.pfm     +++|
18396  M00S13097.pfm     +++| ADT6     LDM    APDK+1
18397  M00S13098.pfm     +++|          ZJP    ADT9        IF NO DELINK REQUESTED
Line S13099 Modification History
M01 (Removed by) pfm54
Seq #  *Modification Id* Act 
----------------------------+
18398  M01S13099.pfm54   ---|          LDD    T6          SAVE CURRENT POSITION
18399  M01S13100.pfm54   ---|          STD    P0
18400  M01S13101.pfm54   ---|          LDD    T7
18401  M01S13102.pfm54   ---|          STD    P1
18402  M01S13103.pfm54   ---|
18403  M01S13104.pfm54   ---|*         DELINK OLD FILE.
18404  M01S13105.pfm54   ---|
18405  M00S13106.pfm     +++|          ENDMS
Line S13107 Modification History
M01 (Removed by) ns2415
Seq #  *Modification Id* Act 
----------------------------+
18406  M01S13107.ns2415  ---|          LDM    DVLW
Line S00203 Modification History
M01 (Added by) ns2415
M02 (Removed by) pfm54
Seq #  *Modification Id* Act 
----------------------------+
18407  M02S00203.pfm54   ---|          LDM    DVLW        INTERLOCK INDIRECT ALLOCATION
Line S13108 Modification History
M01 (Removed by) pfm54
Seq #  *Modification Id* Act 
----------------------------+
18408  M01S13108.pfm54   ---|          STD    T6
Line S13109 Modification History
M01 (Removed by) ns2415
M02 (Removed by) pfm54
Seq #  *Modification Id* Act 
----------------------------+
18409  M02S13109.pfm54   ---|          RJM    STI         INTERLOCK DATA CHAIN
Line S00204 Modification History
M01 (Added by) ns2415
M02 (Removed by) pfm54
Seq #  *Modification Id* Act 
----------------------------+
18410  M02S00204.pfm54   ---|          RJM    STI
Line S13110 Modification History
M01 (Removed by) pfm54
Seq #  *Modification Id* Act 
----------------------------+
18411  M01S13110.pfm54   ---|          ZJN    ADT8        IF TRACK INTERLOCKED
Line S13111 Modification History
M01 (Removed by) ns2415
M02 (Removed by) pfm54
Seq #  *Modification Id* Act 
----------------------------+
18412  M02S13111.pfm54   ---|          ERROR  ABT         * PFM ABORTED.*
Line S00205 Modification History
M01 (Added by) ns2415
M02 (Removed by) pfm54
Seq #  *Modification Id* Act 
----------------------------+
18413  M02S00205.pfm54   ---|          ERROR  ABT,,,T5    *EQXXX,DNYY, PFM ABORTED.*
Line S13112 Modification History
M01 (Removed by) pfm54
Seq #  *Modification Id* Act 
----------------------------+
18414  M01S13112.pfm54   ---|
18415  M01S13113.pfm54   ---| ADT8     LDD    MA          COPY DELINK PARAMETERS
Line S00205 Modification History
M01 (Added by) pfm54
Seq #  *Modification Id* Act 
----------------------------+
18416  M01S00205.pfm54   +++|          LDD    MA          COPY DELINK PARAMETERS
Proceed to Part 13
cdc/nos2.source/opl.opl871/deck/pfm.012.txt ยท Last modified: by 127.0.0.1