User Tools

Site Tools


cdc:nos2.source:opl.opl871:deck:1ms.005

Deck 1MS Part 005

38 Modifications

Listing Sections

Source

Seq #  *Modification Id* Act 
----------------------------+
06972  M01S00545.242l642 +++|          LDD    T2          SET RANDOM INDEX
06973  M01S00546.242l642 +++|          STD    CM+3
06974  M01S00547.242l642 +++|          STD    RI
06975  M01S00548.242l642 +++|          LDD    T3
06976  M01S00549.242l642 +++|          STD    CM+4
06977  M01S00550.242l642 +++|          STD    RI+1
06978  M01S00551.242l642 +++|          LDD    DP+3        STORE RESPONSE WORD
06979  M01S00552.242l642 +++|          SHN    6
06980  M01S00553.242l642 +++|          ADD    RA
06981  M01S00554.242l642 +++|          SHN    6
06982  M01S00555.242l642 +++|          ADD    DP+4
06983  M01S00556.242l642 +++|          CWD    CM
06984  M01S00557.242l642 +++|          AOM    SFPA        INDICATE *RI* IS PRESET
06985  M01S00558.242l642 +++|          LJM    SFP         EXIT
06986  M01S05404.1ms     +++|          TITLE  POSITION MASS STORAGE PRESET.
06987  M01S05405.1ms     +++| PRS      SPACE  4,15
06988  M01S05406.1ms     +++|**        PRS - POSITION MASS STORAGE PRESET ROUTINE.
06989  M01S05407.1ms     +++|*
06990  M01S05408.1ms     +++|*         ENTRY  (FC) = INTERNAL *CIO* FUNCTION CODE.
06991  M01S05409.1ms     +++|*                (FS - FS+4) = FST ENTRY.
06992  M01S05410.1ms     +++|*
Line S05411 Modification History
M01 (Added by) 1ms
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
06993  M02S05411.242l642 ---|*         EXIT   (T4 - T7) = MS PARAMETERS.
06994  M01S00559.242l642 +++|*         EXIT   (T5) = EST ORDINAL.
06995  M01S00560.242l642 +++|*                (T6) = CURRENT TRACK.
06996  M01S00561.242l642 +++|*                (T7) = CURRENT SECTOR.
06997  M01S05412.1ms     +++|*                (BI) = 0.
06998  M01S05413.1ms     +++|*                (RI - RI+1) = 1.
06999  M01S00038.241l630 +++|*                TO *CFN* IF INCORRECT *CIO* FUNCTION CODE.
07000  M01S05414.1ms     +++|*
07001  M01S05415.1ms     +++|*         USES   T1, CM - CM+4.
07002  M01S05416.1ms     +++|*
Line S05417 Modification History
M01 (Added by) 1ms
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
07003  M02S05417.241l630 ---|*         CALLS  HNG, IRA.
07004  M01S00039.241l630 +++|*         CALLS  CHG, IRA.
07005  M01S05418.1ms     +++|
07006  M01S05419.1ms     +++|
07007  M01S05420.1ms     +++| PRS      BSS    0           ENTRY
07008  M01S05421.1ms     +++|          LDN    0           CLEAR BACKSPACE INDEX
07009  M01S05422.1ms     +++|          STD    BI
Line S05423 Modification History
M01 (Added by) 1ms
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
07010  M02S05423.ns22000 ---|          LDD    FS          SET EQUIPMENT NUMBER
07011  M01S00193.ns22000 +++|          LDD    FS          SET EST ORDINAL
Line S05424 Modification History
M01 (Added by) 1ms
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
07012  M02S05424.ns22000 ---|          LPN    77
07013  M01S05425.1ms     +++|          STD    T5
Line S05426 Modification History
M01 (Added by) 1ms
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
07014  M02S05426.242l642 ---|          LDD    FS+3        SET SECTOR
Line S05427 Modification History
M01 (Added by) 1ms
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
07015  M02S05427.242l642 ---|          STD    T7
07016  M01S05428.1ms     +++|          LDD    FS+2        SET TRACK
07017  M01S05429.1ms     +++|          STD    T6
07018  M01S05430.1ms     +++|          ZJN    PRS1        IF FILE NOT USED
07019  M01S05431.1ms     +++|          RJM    IRA         INITIALIZE RANDOM ACCESS
07020  M01S05432.1ms     +++|
07021  M01S05433.1ms     +++|*         IDENTIFY FUNCTION.
07022  M01S05434.1ms     +++|
Line S05435 Modification History
M01 (Added by) 1ms
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
07023  M02S05435.242l642 ---| PRS1     LDN    0
07024  M01S00562.242l642 +++| PRS1     LDD    FS+3        SET SECTOR
07025  M01S00563.242l642 +++|          STD    T7
07026  M01S00564.242l642 +++|          LDN    0
07027  M01S05436.1ms     +++|          STD    RI          PRESET RANDOM INDEX
Line S05437 Modification History
M01 (Added by) 1ms
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
07028  M02S05437.242l642 ---|          LDN    1
07029  M01S00565.242l642 +++|          LDN    FSMS
07030  M01S05438.1ms     +++|          STD    RI+1
07031  M01S05439.1ms     +++|          LDD    FC          SET FUNCTION INDEX
07032  M01S05440.1ms     +++|          SHN    -6
07033  M01S05441.1ms     +++|          LPN    17
07034  M01S05442.1ms     +++|          STD    T1
07035  M01S05443.1ms     +++|          SBN    TFPAL
07036  M01S05444.1ms     +++|          PJN    PRS2        IF FUNCTION NOT IN TABLE
07037  M01S05445.1ms     +++|          LDM    TFPA,T1     SET PROCESSING ADDRESS
07038  M01S05446.1ms     +++|          ZJN    PRS2        IF FUNCTION PROCESSOR NOT DEFINED
07039  M01S05447.1ms     +++|          STD    T1
07040  M01S05448.1ms     +++|          LJM    0,T1        JUMP TO PROCESSOR
07041  M01S05449.1ms     +++|
Line S05450 Modification History
M01 (Added by) 1ms
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
07042  M02S05450.241l630 ---| PRS2     RJM    HNG         HANG PP
07043  M01S00040.241l630 +++| PRS2     LDK    SWET        SET SYSTEM SOFTWARE ERROR
07044  M01S00041.241l630 +++|          RJM    CHG         CONDITIONALLY HANG PP
07045  M01S00042.241l630 +++|          LJM    CFN         COMPLETE FUNCTION
07046  M01S05451.1ms     +++|
07047  M01S05452.1ms     +++|
07048  M01S05453.1ms     +++| TFPA     INDEX              TABLE OF FUNCTION PROCESSOR ADDRESSES
07049  M01S05454.1ms     +++|
07050  M01S05455.1ms     +++| TFPAL1   MAX    /CIO/RDF,/CIO/WTF,/CIO/SKP,/CIO/OPE
07051  M01S05456.1ms     +++| TFPAL    EQU    TFPAL1+1    TABLE LENGTH
07052  M01S05457.1ms     +++|
07053  M01S05458.1ms     +++|          INDEX  /CIO/RDF,RRD  RANDOM READ
07054  M01S05459.1ms     +++|          INDEX  /CIO/WTF,RWT  RANDOM WRITE
07055  M01S05460.1ms     +++|          INDEX  /CIO/SKP,SKP  SKIP
07056  M01S05461.1ms     +++|          INDEX  /CIO/OPE,OPE  OPEN
07057  M01S05462.1ms     +++|          INDEX  TFPAL         END OF TABLE
07058  M01S00566.242l642 +++| SMS      SPACE  4,10
07059  M01S00567.242l642 +++|**        SMS - SET MASS STORAGE DRIVER.
07060  M01S00568.242l642 +++|*
07061  M01S00569.242l642 +++|*         ENTRY  (T5) = EQUIPMENT ORDINAL.
07062  M01S00570.242l642 +++|*                (FS+1) = FIRST TRACK OF LOCAL FILE.
07063  M01S00571.242l642 +++|*
07064  M01S00572.242l642 +++|*         EXIT   DRIVER LOADED.
07065  M01S00573.242l642 +++|*                SYSTEM ACCESS SET IF FILE IS SYSTEM FILE.
07066  M01S00574.242l642 +++|*
07067  M01S00575.242l642 +++|*         USES   CM - CM+4.
07068  M01S00576.242l642 +++|*
07069  M01S00577.242l642 +++|*         MACROS SETMS.
07070  M01S00578.242l642 +++|
07071  M01S00579.242l642 +++|
07072  M01S00580.242l642 +++| SMS1     SETMS  IO
07073  M01S00581.242l642 +++|
07074  M01S00582.242l642 +++| SMS      SUBR
07075  M01S00583.242l642 +++|          SFA    EST,T5      CHECK FOR SYSTEM DEVICE
07076  M01S00584.242l642 +++|          CRD    CM
07077  M01S00585.242l642 +++|          LDD    CM
07078  M01S00586.242l642 +++|          SHN    21-12
07079  M01S00587.242l642 +++|          PJN    SMS1        IF NOT SYSTEM DEVICE
07080  M01S00588.242l642 +++|          LDN    FNTP        READ FNT POINTER
07081  M01S00589.242l642 +++|          CRD    CM
07082  M01S00590.242l642 +++|          LDD    CM
07083  M01S00591.242l642 +++|          SHN    14
07084  M01S00592.242l642 +++|          ADD    CM+1
07085  M01S00593.242l642 +++|          ERRNZ  SYFO        CHECK SYSTEM FILE POSITION IN FNT
07086  M01S00594.242l642 +++|          ADK    FSTG
07087  M01S00595.242l642 +++|          CRD    CM
07088  M01S00596.242l642 +++|          LDD    CM+1
07089  M01S00597.242l642 +++|          LMD    FS+1
07090  M01S00598.242l642 +++|          NJN    SMS1        IF NOT SYSTEM FILE
07091  M01S00599.242l642 +++|
07092  M01S00600.242l642 +++|*         *CIO* IS USED TO ACCESS THE SYSTEM FILE FOR THE LOADER, CCL,
07093  M01S00601.242l642 +++|*         ETC. THE READSYS OPTION CAUSES THE DRIVER TO SELECT THE
07094  M01S00602.242l642 +++|*         SYSTEM DEVICE WITH THE LEAST ACTIVITY. IT ALSO CAUSES THE
07095  M01S00603.242l642 +++|*         DRIVER ERROR PROCESSOR TO AUTOMATICALLY TRY A DIFFERENT
07096  M01S00604.242l642 +++|*         SYSTEM DEVICE WHEN AN ERROR IS ENCOUNTERED.
07097  M01S00605.242l642 +++|
07098  M01S00606.242l642 +++|          SETMS  READSYS
07099  M01S00607.242l642 +++|          UJN    SMSX        RETURN
07100  M01S05463.1ms     +++|          SPACE  4,10
07101  M01S05464.1ms     +++|**        COMMON DECKS.
07102  M01S05465.1ms     +++|
07103  M01S05466.1ms     +++|
07104  M01S05467.1ms     +++|*CALL     COMPIRA
07105  M01S05468.1ms     +++|          SPACE  4,10
07106  M01S05469.1ms     +++|          OVERFLOW  MSDO
07107  M01S05470.1ms     +++| CMS      OVERLAY (CLOSE MASS STORAGE.),MSDO
07108  M01S05471.1ms     +++| CMS      SPACE  4,10
07109  M01S05472.1ms     +++|**        DIRECT LOCATION ASSIGNMENTS.
07110  M01S05473.1ms     +++|
07111  M01S05474.1ms     +++|
07112  M01S05475.1ms     +++| RI       EQU    36 - 37     RANDOM INDEX (2 LOCATIONS)
07113  M01S05476.1ms     +++| CMS      SPACE  4,10
07114  M01S05477.1ms     +++|          ORG    *+2
07115  M01S05478.1ms     +++| CLO      SPACE  4,15
07116  M01S05479.1ms     +++|**        CLO - CLOSE FILE.
07117  M01S05480.1ms     +++|*
07118  M01S05481.1ms     +++|*         ENTRY  (FO) = FET OPTIONS.
07119  M01S05482.1ms     +++|*                (BS - BS+4) = (FET+0).
07120  M01S05483.1ms     +++|*                (FS - FS+4) = FST ENTRY.
07121  M01S05484.1ms     +++|*
07122  M01S05485.1ms     +++|*         EXIT   TO *CLS*.
07123  M01S05486.1ms     +++|*
07124  M01S05487.1ms     +++|*         USES   T5, T6.
07125  M01S05488.1ms     +++|*
07126  M01S05489.1ms     +++|*         CALLS  DRI.
07127  M01S05490.1ms     +++|
07128  M01S05491.1ms     +++|
07129  M01S05492.1ms     +++| CLO      BSS    0           ENTRY
07130  M01S05493.1ms     +++|          LDD    BS+4        GET CLOSE FUNCTION
07131  M01S05494.1ms     +++|          SHN    -3
07132  M01S05495.1ms     +++|          LPN    7
07133  M01S05496.1ms     +++|          LMN    5
07134  M01S05497.1ms     +++|          ZJN    CLO2        IF REWIND
07135  M01S05498.1ms     +++|          LMN    3&5
07136  M01S05499.1ms     +++|          ZJN    CLO1        IF NO REWIND
07137  M01S05500.1ms     +++|          LDD    BS+4        SET RETURN/UNLOAD FLAG FOR *0DF*
07138  M01S05501.1ms     +++|          SHN    -2
07139  M01S05502.1ms     +++|          LPN    1
07140  M01S05503.1ms     +++|          LMN    1
07141  M01S05504.1ms     +++|          RAM    CLSA
07142  M01S05505.1ms     +++|          LDN    IMRU        CHARGE FOR RETURN/UNLOAD
07143  M01S05506.1ms     +++|          RAM    TACC+/CIO/CLO
07144  M01S05507.1ms     +++|          LDC    DRF&CFN     SET COMPLETION ADDRESS
07145  M01S05508.1ms     +++| CLO1     LMC    CFN
07146  M01S05509.1ms     +++|          STM    CLSB
07147  M01S05510.1ms     +++| CLO2     LDM    MSFF        GET MASS STORAGE FILE FLAG
07148  M01S05511.1ms     +++|          NJN    CLO3        IF NOT MASS STORAGE FILE
07149  M01S05512.1ms     +++|          LDD    FS+2
07150  M01S05513.1ms     +++|          ZJN    CLO3        IF FILE NOT USED
07151  M01S05514.1ms     +++|          STD    T6          SET CURRENT TRACK
Line S05515 Modification History
M01 (Added by) 1ms
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
07152  M02S05515.ns22000 ---|          LDD    FS          SET EQUIPMENT NUMBER
07153  M01S00194.ns22000 +++|          LDD    FS          SET EST ORDINAL
Line S05516 Modification History
M01 (Added by) 1ms
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
07154  M02S05516.ns22000 ---|          LPN    77
07155  M01S05517.1ms     +++|          STD    T5
07156  M01S05518.1ms     +++|          LDD    FO          CHECK SPECIAL PROCESSING
07157  M01S05519.1ms     +++|          SHN    6
07158  M01S05520.1ms     +++|          PJN    CLO3        IF NOT RANDOM FILE
07159  M01S05521.1ms     +++|          LDM    FETL
07160  M01S05522.1ms     +++|          SBN    3
07161  M01S05523.1ms     +++|          MJN    CLO3        IF NO INDEX WORD IN FET
07162  M01S05524.1ms     +++|          LDD    FS+4        CHECK WRITE STATUS
07163  M01S05525.1ms     +++|          SHN    21-7
07164  M01S05526.1ms     +++|          PJN    CLO3        IF NOT WRITTEN SINCE LAST OPEN
07165  M01S05527.1ms     +++|          LDM    FACF        CHECK WRITE LOCKOUT SET
07166  M01S05528.1ms     +++|          LPN    1
07167  M01S05529.1ms     +++|          NJN    CLO3        IF WRITE LOCKOUT SET
07168  M01S05530.1ms     +++|          RJM    DRI         DUMP RANDOM INDEX
07169  M01S05531.1ms     +++| CLO3     LJM    CLS         COMPLETE CLOSE PROCESSING
07170  M01S05532.1ms     +++| DRI      SPACE  4,15
07171  M01S05533.1ms     +++|**        DRI - DUMP RANDOM INDEX.
07172  M01S05534.1ms     +++|*
07173  M01S05535.1ms     +++|*         EXIT   TO *WMS* OVERLAY IF RANDOM INDEX TO BE WRITTEN.
07174  M01S05536.1ms     +++|*                (FS+2) = EOI TRACK.
07175  M01S05537.1ms     +++|*                (FS+3) = EOI SECTOR.
07176  M01S05538.1ms     +++|*                (FS+4) = COMPLETE WRITE FST STATUS.
07177  M01S05539.1ms     +++|*                (IN - IN+1) = LWA+1 INDEX AREA.
07178  M01S05540.1ms     +++|*                (LM - LM+1) = LWA+2 INDEX AREA.
07179  M01S05541.1ms     +++|*                (OT - OT+1) = FWA INDEX AREA.
07180  M01S05542.1ms     +++|*
07181  M01S05543.1ms     +++|*         USES   T1, T2, CM - CM+4.
07182  M01S05544.1ms     +++|*
Line S05545 Modification History
M01 (Added by) 1ms
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
07183  M02S05545.ns22000 ---|*         CALLS  EXR, SEI.
07184  M01S00195.ns22000 +++|*         CALLS  EXR, SEI, VAL.
07185  M01S05546.1ms     +++|*
07186  M01S05547.1ms     +++|*         MACROS ERROR.
07187  M01S05548.1ms     +++|
07188  M01S05549.1ms     +++|
07189  M01S05550.1ms     +++| DRI      SUBR               ENTRY/EXIT
07190  M01S05551.1ms     +++|          CFET   7           READ (FET+7)
07191  M01S05552.1ms     +++|          CRD    CM
07192  M01S05553.1ms     +++|          LDD    CM+3        CHECK INDEX LENGTH
07193  M01S05554.1ms     +++|          SCN    77
07194  M01S05555.1ms     +++|          SHN    6
07195  M01S05556.1ms     +++|          LMD    CM+2
07196  M01S05557.1ms     +++|          ZJN    DRIX        IF INDEX LENGTH=0 - RETURN
07197  M01S05558.1ms     +++|          SHN    6
07198  M01S05559.1ms     +++|          STD    T2
07199  M01S05560.1ms     +++|          SHN    -14
07200  M01S05561.1ms     +++|          LPN    37
07201  M01S05562.1ms     +++|          STD    T1
07202  M01S05563.1ms     +++|          LDD    CM+3        OUT = FWA
07203  M01S05564.1ms     +++|          LPN    37
07204  M01S05565.1ms     +++|          STD    OT
07205  M01S05566.1ms     +++|          SHN    14
07206  M01S05567.1ms     +++|          LMD    CM+4
07207  M01S05568.1ms     +++|          STD    OT+1
07208  M01S05569.1ms     +++|          SBN    2
07209  M01S05570.1ms     +++|          PJN    DRI2        IF INDEX BUFFER ADDRESS .GE. 2
07210  M01S05571.1ms     +++| DRI1     ERROR  FPE         *FET PARAMETER ERROR*
07211  M01S05572.1ms     +++|
07212  M01S05573.1ms     +++| DRI2     ADN    2
07213  M01S05574.1ms     +++|          SHN    6
07214  M01S05575.1ms     +++|          ADD    T1
07215  M01S05576.1ms     +++|          SHN    14
07216  M01S05577.1ms     +++|          ADD    T2
07217  M01S05578.1ms     +++|          STD    IN+1        IN = FWA+LENGTH = LWA+1
07218  M01S05579.1ms     +++|          SHN    -6
07219  M01S05580.1ms     +++|          SBD    FL
07220  M01S05581.1ms     +++|          PJN    DRI1        IF INDEX BUFFER LWA+1 .GE. FL
07221  M01S05582.1ms     +++|          ADD    FL
07222  M01S05583.1ms     +++|          SHN    -6
07223  M01S05584.1ms     +++|          STD    IN
07224  M01S00196.ns22000 +++|          LDN    1           CHECK WRITE SECURITY
07225  M01S00197.ns22000 +++|          RJM    VAL         VALIDATE FILE ACCESS LEVEL
07226  M01S05585.1ms     +++|          RJM    SEI         SEARCH FOR END OF INFORMATION
07227  M01S05586.1ms     +++|          LDD    T6          SET TRACK
07228  M01S05587.1ms     +++|          STD    FS+2
07229  M01S05588.1ms     +++|          LDD    T7          SET SECTOR
07230  M01S05589.1ms     +++|          STD    FS+3
07231  M01S05590.1ms     +++|          LDN    6           SET COMPLETE WRITE FST STATUS
07232  M01S05591.1ms     +++|          STD    FS+4
07233  M01S05592.1ms     +++|          LDD    IN          LIMIT = IN + 1
07234  M01S05593.1ms     +++|          SHN    14
07235  M01S05594.1ms     +++|          ADD    IN+1
07236  M01S05595.1ms     +++|          ADN    1
07237  M01S05596.1ms     +++|          STD    LM+1
07238  M01S05597.1ms     +++|          SHN    -14
07239  M01S05598.1ms     +++|          STD    LM
07240  M01S05599.1ms     +++|          LDC    1L4+WMS     SET WRITE OVERLAY NAME
07241  M01S05600.1ms     +++|          RJM    EXR         EXECUTE ROUTINE
07242  M01S05601.1ms     +++|          SPACE  4,10
07243  M01S05602.1ms     +++|**        COMMON DECKS.
07244  M01S05603.1ms     +++|
07245  M01S05604.1ms     +++|
07246  M01S05605.1ms     +++|*CALL     COMPSEI
07247  M01S05606.1ms     +++|          SPACE  4,10
07248  M01S05607.1ms     +++|          OVERFLOW  MSDO
07249  M01S00198.ns22000 +++| OMS      OVERLAY (OVERWRITE MASS STORAGE.),MSDO
07250  M01S00199.ns22000 +++|          SPACE  4,10
07251  M01S00200.ns22000 +++|**        DIRECT LOCATION ASSIGNMENTS.
07252  M01S00201.ns22000 +++|
07253  M01S00202.ns22000 +++|
07254  M01S00203.ns22000 +++| NT       EQU    36          EOI/NEXT TRACK LINK
07255  M01S00204.ns22000 +++| TC       EQU    37          TRACK COUNT BEFORE PP RELEASE
07256  M01S00205.ns22000 +++|          SPACE  4,10
07257  M01S00206.ns22000 +++|          ORG    *+2
07258  M01S00207.ns22000 +++| OVW      SPACE  4,15
07259  M01S00208.ns22000 +++|**        OVW - OVERWRITE FILE.
07260  M01S00209.ns22000 +++|*
07261  M01S00210.ns22000 +++|*         ENTRY  (BS - BS+4) = (FET+0).
07262  M01S00211.ns22000 +++|*                (FA) = FNT ENTRY NFL RELATIVE ADDRESS.
07263  M01S00212.ns22000 +++|*                (FS - FS+4) = FST ENTRY.
07264  M01S00213.ns22000 +++|*                (PC) = 0.
07265  M01S00214.ns22000 +++|*
07266  M01S00215.ns22000 +++|*         EXIT   TO *COC* IF TO ENTER RECALL STACK.
07267  M01S00216.ns22000 +++|*                TO *DRF* IF TO DROP FILE AFTER OVERWRITE.
07268  M01S00217.ns22000 +++|*                TO *REW* IF TO REWIND FILE AFTER OVERWRITE.
07269  M01S00608.242l642 +++|*                TO *CDA*, IF RECOVERABLE MASS STORAGE ERROR.
07270  M01S00218.ns22000 +++|*
Line S00219 Modification History
M01 (Added by) ns22000
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
07271  M02S00219.242l642 ---|*         CALLS  DCC, GNT, IBP, WDS, WEI.
07272  M01S00609.242l642 +++|*         CALLS  GNT, IBP, WDS, WEI.
07273  M01S00220.ns22000 +++|*
Line S00221 Modification History
M01 (Added by) ns22000
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
07274  M02S00221.242l642 ---|*         MACROS SETMS.
07275  M01S00610.242l642 +++|*         MACROS ENDMS, SETMS.
07276  M01S00222.ns22000 +++|
07277  M01S00223.ns22000 +++|
07278  M01S00224.ns22000 +++| OVW      BSS    0           ENTRY
07279  M01S00225.ns22000 +++|          LDD    FA
07280  M01S00226.ns22000 +++|          ZJN    OVW2        IF NO FNT ENTRY
07281  M01S00227.ns22000 +++|          LDM    FACF        CHECK FILE MODE
07282  M01S00228.ns22000 +++|          LPN    30
07283  M01S00229.ns22000 +++|          ZJN    OVW1        IF NO RESTRICTIONS
Line S00230 Modification History
M01 (Added by) ns22000
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
07284  M02S00230.v23l617 ---|          ERROR  IFM         *ILLEGAL MODIFICATION*
07285  M01S00018.v23l617 +++|          ERROR  IFM         *INCORRECT MODIFICATION*
07286  M01S00231.ns22000 +++|
07287  M01S00232.ns22000 +++| OVW1     LDM    RCRF        CHECK FOR CONTINUATION OF FUNCTION
07288  M01S00233.ns22000 +++|          SHN    21-6
07289  M01S00234.ns22000 +++|          MJN    OVW4        IF FUNCTION PREVIOUSLY INITIALIZED
07290  M01S00235.ns22000 +++|          LDD    FS+2
07291  M01S00236.ns22000 +++|          NJN    OVW3        IF FILE USED
07292  M01S00237.ns22000 +++| OVW2     LJM    OVW11       REWIND OR DROP FILE
07293  M01S00238.ns22000 +++|
07294  M01S00239.ns22000 +++| OVW3     LDN    FSMS        SET CURRENT SECTOR = FIRST SECTOR
07295  M01S00240.ns22000 +++|          STD    FS+3
07296  M01S00241.ns22000 +++|          LDD    FS+1        SET CURRENT TRACK = FIRST TRACK
07297  M01S00242.ns22000 +++|          STD    FS+2
07298  M01S00243.ns22000 +++|          RJM    GNT         GET NEXT TRACK
07299  M01S00244.ns22000 +++|          SBN    FSMS
07300  M01S00245.ns22000 +++|          ZJN    OVW2        IF EOI ONLY ON FILE
07301  M01S00246.ns22000 +++| OVW4     RJM    IBP         INITIALIZE BUFFER WITH PATTERN
07302  M01S00247.ns22000 +++|          LDD    FS+3        SET CURRENT SECTOR
07303  M01S00248.ns22000 +++|          STD    T7
07304  M01S00249.ns22000 +++|          LDD    FS+2        SET CURRENT TRACK
07305  M01S00250.ns22000 +++|          STD    T6
07306  M01S00251.ns22000 +++|          RJM    GNT         GET EOI/NEXT TRACK LINK
Line S00252 Modification History
M01 (Added by) ns22000
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
07307  M02S00252.242l642 ---|          SETMS  WRITE,,WDSB
07308  M01S00611.242l642 +++|          SETMS  IO,,WDSB
07309  M01S00253.ns22000 +++|          LDN    0
07310  M01S00254.ns22000 +++|          STD    TC          CLEAR TRACK COUNT
07311  M01S00255.ns22000 +++|          LDD    PC
07312  M01S00256.ns22000 +++|          STD    T1
07313  M01S00257.ns22000 +++| OVW5     AOD    TC          CALCULATE TRACK COUNT BEFORE PP RELEASE
07314  M01S00258.ns22000 +++|          LDM    SLM
07315  M01S00259.ns22000 +++|          RAD    T1
07316  M01S00260.ns22000 +++|          SBK    RWPC
07317  M01S00261.ns22000 +++|          MJN    OVW5        IF ALLOWED TO WRITE MORE TRACKS
07318  M01S00262.ns22000 +++| OVW6     LDD    T7          SET NEXT SECTOR LINKAGE
07319  M01S00263.ns22000 +++|          ADN    1
07320  M01S00264.ns22000 +++|          STM    BFMS
07321  M01S00265.ns22000 +++|          STD    FS+3
07322  M01S00266.ns22000 +++|          SBM    SLM
07323  M01S00267.ns22000 +++|          NJN    OVW7        IF NOT AT END OF TRACK
07324  M01S00268.ns22000 +++|          STD    FS+3        RESET TO FIRST SECTOR
07325  M01S00269.ns22000 +++|          LDD    NT          SET NEXT TRACK LINK
07326  M01S00270.ns22000 +++|          STM    BFMS
07327  M01S00271.ns22000 +++|          STD    FS+2
07328  M01S00272.ns22000 +++|          RJM    GNT         GET NEXT TRACK LINK
07329  M01S00273.ns22000 +++|          ZJN    OVW7        IF EOI IN FIRST SECTOR OF NEXT TRACK
07330  M01S00274.ns22000 +++|          SOD    TC
07331  M01S00275.ns22000 +++|          NJN    OVW7        IF NOT TRACK COUNT LIMIT
07332  M01S00276.ns22000 +++|          AOM    COCA        SET TO ENTER RECALL STACK
07333  M01S00277.ns22000 +++|          LDC    LDCI+WLSF/10000
07334  M01S00278.ns22000 +++|          STM    OVWA
07335  M01S00279.ns22000 +++| OVW7     LDD    FS+3
07336  M01S00280.ns22000 +++|          SBD    NT
07337  M01S00281.ns22000 +++|          NJN    OVW7.1      IF NOT LAST SECTOR BEFORE EOI
07338  M01S00282.ns22000 +++|          LDN    77          SET EOR ON LAST SECTOR BEFORE EOI
07339  M01S00283.ns22000 +++|          STM    BFMS+1
07340  M01S00284.ns22000 +++| OVW7.1   LDC    BFMS+WCSF   WRITE SECTOR
07341  M01S00285.ns22000 +++|*         LDC    BFMS+WLSF   (ENTER RECALL STACK)
07342  M01S00286.ns22000 +++| OVWA     EQU    *-2
07343  M01S00287.ns22000 +++|          RJM    WDS
Line S00288 Modification History
M01 (Added by) ns22000
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
07344  M02S00288.242l642 ---|          AOD    PC          INCREMENT PRU COUNT
07345  M01S00612.242l642 +++|          PJN    OVW7.2      IF NO ERROR
Line S00613 Modification History
M01 (Added by) 242l642
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
07346  M02S00613.253l688 ---|          LPN    17
07347  M01S00048.253l688 +++|          LPN    77
07348  M01S00614.242l642 +++|          LMN    PARE
07349  M01S00615.242l642 +++|          ZJN    OVW7.2      IF MEDIA ERROR CONTINUE
07350  M01S00616.242l642 +++|          RJM    CDA         CHECK DEVICE
07351  M01S00617.242l642 +++|
07352  M01S00618.242l642 +++| OVW7.2   AOD    PC          INCREMENT PRU COUNT
07353  M01S00289.ns22000 +++|          LDD    FS+2
07354  M01S00290.ns22000 +++|          STD    T6
07355  M01S00291.ns22000 +++|          LDD    FS+3
07356  M01S00292.ns22000 +++|          STD    T7
07357  M01S00293.ns22000 +++|          SBD    NT
07358  M01S00294.ns22000 +++|          ZJN    OVW9        IF EOI ENCOUNTERED
07359  M01S00295.ns22000 +++|          LDM    COCA
07360  M01S00296.ns22000 +++|          NJN    OVW8        IF TRACK COUNT LIMIT
07361  M01S00297.ns22000 +++|          LJM    OVW6        WRITE NEXT SECTOR
07362  M01S00298.ns22000 +++|
Line S00299 Modification History
M01 (Added by) ns22000
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
07363  M02S00299.242l642 ---| OVW8     RJM    DCC         DROP CHANNEL WHEN OUTPUT REGISTER CLEAR
07364  M01S00619.242l642 +++| OVW8     ENDMS
07365  M01S00300.ns22000 +++|          AOM    COCA
07366  M01S00301.ns22000 +++|          LDN    2           SET WRITE MODE FLAG
07367  M01S00302.ns22000 +++|          STD    FS+4
07368  M01S00303.ns22000 +++|          LJM    COC         ENTER RECALL STACK
07369  M01S00304.ns22000 +++|
07370  M01S00305.ns22000 +++| OVW9     RJM    WEI         WRITE EOI
07371  M01S00306.ns22000 +++|          LDD    IR+3
07372  M01S00307.ns22000 +++|          SHN    -6
07373  M01S00308.ns22000 +++|          SBN    2
07374  M01S00309.ns22000 +++|          MJN    OVW10       IF FUNCTION COMPLETE
07375  M01S00310.ns22000 +++|          LDC    -100
07376  M01S00311.ns22000 +++|          RAD    IR+3
07377  M01S00312.ns22000 +++|          LDD    FS+1        SET CURRENT TRACK = FIRST TRACK
07378  M01S00313.ns22000 +++|          STD    FS+2
07379  M01S00314.ns22000 +++|          LDN    FSMS        SET CURRENT SECTOR = FIRST SECTOR
07380  M01S00315.ns22000 +++|          STD    FS+3
07381  M01S00316.ns22000 +++|          SOD    TC
07382  M01S00317.ns22000 +++|          ZJN    OVW8        IF TRACK COUNT LIMIT
07383  M01S00318.ns22000 +++|          LJM    OVW4        PROCESS NEXT DATA PATTERN
07384  M01S00319.ns22000 +++|
Line S00320 Modification History
M01 (Added by) ns22000
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
07385  M02S00320.242l642 ---| OVW10    RJM    DCC         DROP CHANNEL WHEN OUTPUT REGISTER CLEAR
07386  M01S00620.242l642 +++| OVW10    ENDMS
07387  M01S00321.ns22000 +++|          LDM    CFNB        SET FILE WRITTEN FLAGS
07388  M01S00322.ns22000 +++|          LPN    74
07389  M01S00323.ns22000 +++|          LMN    03
07390  M01S00324.ns22000 +++|          STM    CFNB
07391  M01S00325.ns22000 +++| OVW11    LDD    BS+4        CHECK OVERWRITE FUNCTION CODE
07392  M01S00326.ns22000 +++|          LPN    10
07393  M01S00327.ns22000 +++|          ZJP    REW         IF TO REWIND FILE
07394  M01S00328.ns22000 +++|          LDN    0           SELECT *0DF* RETURN FUNCTION
07395  M01S00329.ns22000 +++|          LJM    DRF         DROP FILE
07396  M01S00330.ns22000 +++| GNT      SPACE  4,10
07397  M01S00331.ns22000 +++|**        GNT - GET NEXT TRACK POINTER.
07398  M01S00332.ns22000 +++|*
07399  M01S00333.ns22000 +++|*         ENTRY  (A) = CURRENT TRACK POINTER.
07400  M01S00334.ns22000 +++|*                (FS - FS+4) = FST ENTRY.
07401  M01S00335.ns22000 +++|*
07402  M01S00336.ns22000 +++|*         EXIT   (A) = (NT) = NEXT TRACK POINTER.
07403  M01S00337.ns22000 +++|*                (T2) = CURRENT TRACK POINTER.
07404  M01S00338.ns22000 +++|*                (T5) = EQUIPMENT IF INITIAL CALL.
07405  M01S00339.ns22000 +++|*
07406  M01S00340.ns22000 +++|*         USES   NT, T2, CM - CM+4.
07407  M01S00341.ns22000 +++|*
07408  M01S00342.ns22000 +++|*         MACROS SFA.
07409  M01S00343.ns22000 +++|
07410  M01S00344.ns22000 +++|
07411  M01S00345.ns22000 +++| GNT2     SHN    -2          READ TRT WORD
07412  M01S00346.ns22000 +++| GNTB     ADC    **          ADD TRT BASE ADDRESS
07413  M01S00347.ns22000 +++|          CRD    CM
07414  M01S00348.ns22000 +++|          LDD    T2          SET BYTE INDEX
07415  M01S00349.ns22000 +++|          LPN    3
07416  M01S00350.ns22000 +++|          STD    NT
07417  M01S00351.ns22000 +++|          LDM    CM,NT       GET NEXT TRACK POINTER
07418  M01S00352.ns22000 +++|          STD    NT
07419  M01S00353.ns22000 +++|
07420  M01S00354.ns22000 +++| GNT      SUBR               ENTRY/EXIT
07421  M01S00355.ns22000 +++|          STD    T2          SAVE CURRENT TRACK POINTER
07422  M01S00356.ns22000 +++| GNT1     LDD    FS          SET EQUIPMENT
07423  M01S00357.ns22000 +++|*         UJN    GNT2        (TRT ADDRESS PRESET)
07424  M01S00358.ns22000 +++| GNTA     EQU    *-1
07425  M01S00359.ns22000 +++|          STD    T5
07426  M01S00360.ns22000 +++|          SFA    EST         GET EST ENTRY
07427  M01S00361.ns22000 +++|          ADK    EQDE
07428  M01S00362.ns22000 +++|          CRD    CM
07429  M01S00363.ns22000 +++|          LDD    CM+4        MST ADDDRESS / 10
07430  M01S00364.ns22000 +++|          SHN    3
07431  M01S00365.ns22000 +++|          ADN    TRLL        READ TRT POINTER
07432  M01S00366.ns22000 +++|          CRD    CM
07433  M01S00367.ns22000 +++|          LDD    CM+3        EXTRACT TRT ADDRESS
07434  M01S00368.ns22000 +++|          LPN    77
07435  M01S00369.ns22000 +++|          SHN    14
07436  M01S00370.ns22000 +++|          LMD    CM+4
07437  M01S00371.ns22000 +++|          SBD    TH          COMPENSATE FOR TRACK LINK FLAG (4000/4)
07438  M01S00372.ns22000 +++|          STM    GNTB+1      SET TRT BASE ADDRESS
07439  M01S00373.ns22000 +++|          SHN    -14
07440  M01S00374.ns22000 +++|          RAM    GNTB
Line S00375 Modification History
M01 (Added by) ns22000
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
07441  M02S00375.242l642 ---|          LDC    0           MODIFY INSTRUCTION FOR SUBSEQUENT CALLS
Line S00376 Modification History
M01 (Added by) ns22000
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
07442  M02S00376.242l642 ---|          ORG    *-1
Line S00377 Modification History
M01 (Added by) ns22000
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
07443  M02S00377.242l642 ---|          LOC    GNTA
Line S00378 Modification History
M01 (Added by) ns22000
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
07444  M02S00378.242l642 ---|          UJN    GNT2        GET NEXT TRACK POINTER
Line S00379 Modification History
M01 (Added by) ns22000
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
07445  M02S00379.242l642 ---|          LOC    *O
Line S00380 Modification History
M01 (Added by) ns22000
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
07446  M02S00380.242l642 ---|          STM    GNTA
07447  M01S00621.242l642 +++|          ISTORE GNTA,(UJN GNT2)
07448  M01S00381.ns22000 +++|          LDD    T2
07449  M01S00382.ns22000 +++|          UJN    GNT1        GET NEXT TRACK POINTER
07450  M01S00383.ns22000 +++| IBP      SPACE  4,10
07451  M01S00384.ns22000 +++|**        IBP - INITIALIZE BUFFER WITH PATTERN SELECTION.
07452  M01S00385.ns22000 +++|*
07453  M01S00386.ns22000 +++|*         EXIT   (BFMS+1 - BFMS+501) INITIALIZED.
07454  M01S00387.ns22000 +++|*
07455  M01S00388.ns22000 +++|*         USES   T1, T2.
07456  M01S00389.ns22000 +++|
07457  M01S00390.ns22000 +++|
07458  M01S00391.ns22000 +++| IBP      SUBR               ENTRY/EXIT
07459  M01S00392.ns22000 +++|          LDC    BFMS+2
07460  M01S00393.ns22000 +++|          STD    T1
07461  M01S00394.ns22000 +++|          LDD    IR+3        GET PATTERN SELECTION
07462  M01S00395.ns22000 +++|          LPC    377
07463  M01S00396.ns22000 +++|          STD    IR+3
07464  M01S00397.ns22000 +++|          SHN    -6
07465  M01S00398.ns22000 +++|          STD    T2
07466  M01S00399.ns22000 +++|          LDM    TWPS,T2
07467  M01S00400.ns22000 +++|          STD    T2
07468  M01S00401.ns22000 +++| IBP1     LDD    T2          INITIALIZE BUFFER
07469  M01S00402.ns22000 +++|          STI    T1
07470  M01S00403.ns22000 +++|          AOD    T1
07471  M01S00404.ns22000 +++|          LMC    BFMS+502
07472  M01S00405.ns22000 +++|          NJN    IBP1        IF MORE WORDS TO INITIALIZE
07473  M01S00406.ns22000 +++|          LDD    HN          SET BUFFER WORD COUNT
07474  M01S00407.ns22000 +++|          STM    BFMS+1
07475  M01S00408.ns22000 +++|          UJN    IBPX        RETURN
07476  M01S00409.ns22000 +++|
07477  M01S00410.ns22000 +++|
07478  M01S00411.ns22000 +++| TWPS     BSS    0           TABLE OF WORD PATTERN SELECTIONS
07479  M01S00412.ns22000 +++|          LOC    0
07480  M01S00413.ns22000 +++|          CON    0
07481  M01S00414.ns22000 +++|          CON    5252
07482  M01S00415.ns22000 +++|          CON    7777
07483  M01S00416.ns22000 +++|          CON    0
07484  M01S00417.ns22000 +++|          LOC    *O
07485  M01S00418.ns22000 +++|          SPACE  4,10
07486  M01S00419.ns22000 +++|**        COMMON DECKS.
07487  M01S00420.ns22000 +++|
07488  M01S00421.ns22000 +++|
07489  M01S00422.ns22000 +++|*CALL     COMPWEI
07490  M01S00622.242l642 +++| WDSB     SPACE  4,10
07491  M01S00623.242l642 +++|**        WDSB - WRITE ERROR PROCESSING BUFFER.
07492  M01S00624.242l642 +++|*         THIS BUFFER IS USED STRICTLY BY THE DRIVER ERROR PROCESSOR
07493  M01S00625.242l642 +++|*         WHEN A WRITE ERROR IS ENCOUNTERED ON THE SECTOR PREVIOUS TO
07494  M01S00626.242l642 +++|*         A SECTOR CURRENTLY BEING WRITTEN.  THIS SPACE MAY BE
07495  M01S00627.242l642 +++|*         OVERLAYED BY THE ERROR PROCESSING OVERLAY.
07496  M01S00628.242l642 +++|
07497  M01S00629.242l642 +++| WDSB     EQU    *
07498  M01S00630.242l642 +++|          ERRNG  BFMS-WDSB-502  WDSB EXTENDS INTO BFMS
07499  M01S00423.ns22000 +++|          SPACE  4,10
07500  M01S00424.ns22000 +++|          OVERFLOW  MSDO,BFMS
07501  M01S05608.1ms     +++| ERP      OVERLAY (ERROR PROCESSOR.),ERPO
07502  M01S05609.1ms     +++| ERP      SPACE  4,10
07503  M01S05610.1ms     +++|          ORG    *+2
07504  M01S05611.1ms     +++|          UJN    ERP         ENTER ERROR PROCESSOR
07505  M01S05612.1ms     +++|          SPACE  4,35
07506  M01S05613.1ms     +++|***       RETURN OF UNRECOVERABLE MASS STORAGE ERROR STATUS.
07507  M01S05614.1ms     +++|*
07508  M01S05615.1ms     +++|*         WHENEVER A MASS STORAGE DEVICE RETURNS AN ERROR STATUS OR THE
07509  M01S05616.1ms     +++|*         DEVICE DRIVER DETECTS AN ERROR, AN ERROR STATUS IS PLACED IN
07510  M01S05617.1ms     +++|*         THE STATUS FIELD OF THE FET. IF THE USER ERROR PROCESSING BIT
07511  M01S05618.1ms     +++|*         IS SET IN THE FET *SP* FIELD, FURTHER *DETAIL* STATUS IS
07512  M01S05619.1ms     +++|*         RETURNED TO THE USER ; IF NOT SET, A MESSAGE IS ISSUED TO THE
07513  M01S05620.1ms     +++|*         DAYFILE AND THE JOB IS ABORTED.
07514  M01S05621.1ms     +++|*
07515  M01S05622.1ms     +++|*         ERROR STATUS (STATUS FIELD)
07516  M01S05623.1ms     +++|*                002         END OF DEVICE (TRACK LIMIT).
07517  M01S05624.1ms     +++|*                004         PARITY ERROR.
07518  M01S05625.1ms     +++|*                023         RANDOM INDEX TOO LARGE FOR INDEX BUFFER.
07519  M01S05626.1ms     +++|*                022         OTHER ERROR.
07520  M01S05627.1ms     +++|*
07521  M01S05628.1ms     +++|*         DETAIL ERROR STATUS (DEC FIELD) (ONLY IF *EPR* SET)
07522  M01S05629.1ms     +++|*                X001        PARITY ERROR.
07523  M01S05630.1ms     +++|*                X002        ADDRESS ERROR.
07524  M01S05631.1ms     +++|*                X003        DEVICE STATUS ERROR.
07525  M01S05632.1ms     +++|*                X004        6681 FUNCTION REJECT.
07526  M01S05633.1ms     +++|*                X005        DEVICE RESERVED.
07527  M01S05634.1ms     +++|*                X006        DEVICE NOT READY.
07528  M01S05635.1ms     +++|*                4007        TRACK LIMIT. (DEVICE FULL)
07529  M01S05636.1ms     +++|*                0000        OTHER ERROR.
07530  M01S05637.1ms     +++|*
07531  M01S05638.1ms     +++|*         IF, AFTER A READ ERROR (WITH *EPR* SET), THE SYSTEM
07532  M01S05639.1ms     +++|*         DETERMINES THAT THE PROPER PRU WAS READ (ALTHOUGH IT
07533  M01S05640.1ms     +++|*         PROBABLY CONTAINS BAD DATA) THEN *X* ABOVE IS ZERO, THE
07534  M01S05641.1ms     +++|*         DATA IS PLACED IN THE BUFFER, AND THE FILE IS POSITIONED
07535  M01S05642.1ms     +++|*         TO THE NEXT PRU OF THE FILE.  IF THE PROPER PRU WAS NOT
07536  M01S05643.1ms     +++|*         READ THEN *X* IS 4, NO DATA IS PLACED IN THE BUFFER, AND
07537  M01S05644.1ms     +++|*         THE FILE IS LEFT POSITIONED AT THE OFFENDING PRU.   *CRI*
07538  M01S05645.1ms     +++|*         IS SET AS USUAL.
07539  M01S05646.1ms     +++| IMR      SPACE  4,10
07540  M01S05647.1ms     +++|**        IMR - ISSUE MESSAGE AND RETURN TO MAIN PROGRAM.
07541  M01S05648.1ms     +++|*
07542  M01S05649.1ms     +++|*         ENTRY  (A) = ADDRESS TO RETURN TO.
07543  M01S05650.1ms     +++|*                AT *IMR* TO SET RETURN ADDRESS.
07544  M01S05651.1ms     +++|*                AT *IMR1* IF TO USE DEFAULT RETURN ADDRESS (*CFN*).
07545  M01S05652.1ms     +++|*                AT *IMR2* TO SET PP HANG.
07546  M01S05653.1ms     +++|*
07547  M01S05654.1ms     +++|*         CALLS  IDM.
07548  M01S05655.1ms     +++|
07549  M01S05656.1ms     +++|
07550  M01S05657.1ms     +++|*         ENTRY TO SET PP HANG.
07551  M01S05658.1ms     +++|
Line S05659 Modification History
M01 (Added by) 1ms
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
07552  M02S05659.241l630 ---| IMR2     LDC    RJMI        SET *RJM HNG* INSTRUCTION
Line S05660 Modification History
M01 (Added by) 1ms
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
07553  M02S05660.241l630 ---|          STM    IMRA-1
Line S05661 Modification History
M01 (Added by) 1ms
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
07554  M02S05661.241l630 ---|          LDC    HNG
07555  M01S00043.241l630 +++| IMR2     LDC    CHP         SET HANG PP ADDRESS
07556  M01S00044.241l630 +++|
07557  M01S05662.1ms     +++|
07558  M01S05663.1ms     +++| IMR      BSS    0           ENTRY
07559  M01S00001.1ms12   +++|          ZJN    IMR1        IF NO EXIT ADDRESS SPECIFIED
07560  M01S05664.1ms     +++|          STM    IMRA        SAVE RETURN ADDRESS
07561  M01S05665.1ms     +++|
07562  M01S05666.1ms     +++|*         ENTRY IF TO USE DEFAULT RETURN ADDRESS (*CFN*).
07563  M01S05667.1ms     +++|
07564  M01S05668.1ms     +++| IMR1     RJM    IDM         ISSUE DAYFILE MESSAGE
Line S05669 Modification History
M01 (Added by) 1ms
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
07565  M02S05669.242l642 ---|          LDD    MA          RESTORE T4 - T7
Line S05670 Modification History
M01 (Added by) 1ms
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
07566  M02S05670.242l642 ---|          CWM    MRSB,ON
Line S05671 Modification History
M01 (Added by) 1ms
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
07567  M02S05671.242l642 ---|          CWM    MSRA,ON     RESTORE T3, T8, T9
Line S05672 Modification History
M01 (Added by) 1ms
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
07568  M02S05672.242l642 ---|          SBN    2
Line S05673 Modification History
M01 (Added by) 1ms
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
07569  M02S05673.242l642 ---|          CRD    T4
Line S05674 Modification History
M01 (Added by) 1ms
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
07570  M02S05674.242l642 ---|          ADN    1
Line S05675 Modification History
M01 (Added by) 1ms
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
07571  M02S05675.242l642 ---|          CRD    CM+3
Line S05676 Modification History
M01 (Added by) 1ms
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
07572  M02S05676.242l642 ---|          LDD    CM+3        RESTORE (T3)
Line S05677 Modification History
M01 (Added by) 1ms
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
07573  M02S05677.242l642 ---|          STD    T3
07574  M01S00631.242l642 +++|          LDD    MA          RESTORE T3 - T7
07575  M01S00632.242l642 +++|          CWM    DCSA,ON
07576  M01S00633.242l642 +++|          SBN    1
07577  M01S00634.242l642 +++|          CRD    T3
07578  M01S05678.1ms     +++|          LJM    CFN         COMPLETE FUNCTION AND DROP PPU
07579  M01S05679.1ms     +++|*         LJM    MSP         (PROCESS WRITE OPERATION)
07580  M01S05680.1ms     +++|*         LJM    /PMS/SFP    (PROCESS POSITION ERROR)
07581  M01S05681.1ms     +++|*         LJM    /PMS/LRIX   (PROCESS OPEN ERROR - NOT CORRECT SECTOR)
07582  M01S05682.1ms     +++|*         LJM    /PMS/LRIX   (USER PROCESSING INDEX TOO LARGE ON OPEN)
07583  M01S05683.1ms     +++|*         LJM    MSRX        (PROCESS SKIP FORWARD - CORRECT SECTOR)
07584  M01S05684.1ms     +++|*         LJM    MSRX        (PROCESS OPEN ERROR - CORRECT SECTOR)
07585  M01S05685.1ms     +++|*         LJM    MSRX        (COMPLETE READ - CORRECT SECTOR)
07586  M01S05686.1ms     +++|*         LJM    /RMS/CPR    (COMPLETE READ - NOT CORRECT SECTOR)
Line S05687 Modification History
M01 (Added by) 1ms
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
07587  M02S05687.241l630 ---|*         RJM    HNG         (HANG MESSAGE)
07588  M01S00045.241l630 +++|*         LJM    CHP         (HANG MESSAGE)
07589  M01S05688.1ms     +++| IMRA     EQU    *-1
07590  M01S05689.1ms     +++| ERP      SPACE  4,20
07591  M01S05690.1ms     +++|**        ERP - MAIN ROUTINE.
07592  M01S05691.1ms     +++|*
07593  M01S05692.1ms     +++|*         ENTRY  (ERRA) = ERROR NUMBER
07594  M01S05693.1ms     +++|*                (FC) = INTERNAL *CIO* FUNCTION CODE.
07595  M01S05694.1ms     +++|*                (FO) = FET OPTIONS.
07596  M01S05695.1ms     +++|*                (BS - BS+4) = (FET+0).
07597  M01S05696.1ms     +++|*
07598  M01S05697.1ms     +++|*         EXIT   (BS - BS+4) = UPDATED WITH ERROR STATUS.
07599  M01S05698.1ms     +++|*                TO *ABJ* IF FATAL ERROR.
07600  M01S05699.1ms     +++|*                TO *IMR* IF ERROR PROCESSING SELECTED FOR INDEX
07601  M01S05700.1ms     +++|*                   TOO LARGE ERROR.
07602  M01S05701.1ms     +++|*                TO *IMR1* IF WARNING MESSAGE.
07603  M01S05702.1ms     +++|*                TO *IMR2* IF HANG CONDITION.
07604  M01S05703.1ms     +++|*                TO *RES* IF DEVICE ERROR.
07605  M01S05704.1ms     +++|*
07606  M01S05705.1ms     +++|*         USES   EN, T1, T4 - T4+4.
07607  M01S05706.1ms     +++|*
07608  M01S05707.1ms     +++|*         CALLS  PTL, WEI.
07609  M01S05708.1ms     +++|
07610  M01S05709.1ms     +++|
07611  M01S05710.1ms     +++| ERP      BSS    0           ENTRY
07612  M01S05711.1ms     +++|          LDM    ERRA        SET ERROR NUMBER
07613  M01S05712.1ms     +++|          STD    EN
07614  M01S05713.1ms     +++|          SBN    /CIOERR/HMSL
07615  M01S05714.1ms     +++|          MJN    IMR2        IF HANG CONDITION
07616  M01S05715.1ms     +++|          SBN    /CIOERR/WMSL-/CIOERR/HMSL
07617  M01S05716.1ms     +++|          PJN    ERP1        IF ERROR MESSAGE
07618  M01S05717.1ms     +++|          LDM    TMSG+/CIOERR/UCF  SET EXTERNAL FUNCTION IN MESSAGE
07619  M01S05718.1ms     +++|          ADN    10D
07620  M01S05719.1ms     +++|          STD    T1
07621  M01S05720.1ms     +++|          LDD    BS+4
07622  M01S05721.1ms     +++|          SHN    -6
07623  M01S05722.1ms     +++|          LPN    7
07624  M01S05723.1ms     +++|          RAI    T1
07625  M01S05724.1ms     +++|          AOD    T1
07626  M01S05725.1ms     +++|          LDD    BS+4
07627  M01S05726.1ms     +++|          LPN    4
07628  M01S05727.1ms     +++|          RAI    T1
07629  M01S05728.1ms     +++|          LDD    BS+4
07630  M01S05729.1ms     +++|          LPN    70
07631  M01S05730.1ms     +++|          SHN    3
07632  M01S05731.1ms     +++|          RAI    T1
07633  M01S05732.1ms     +++|          LJM    IMR1        ISSUE WARNING MESSAGE
07634  M01S05733.1ms     +++|
07635  M01S05734.1ms     +++| ERP1     LDN    0           CLEAR RECALL STACK FLAG
07636  M01S05735.1ms     +++|          STM    COCA
07637  M01S05736.1ms     +++|
07638  M01S05737.1ms     +++|*         CHECK FOR EOI NEEDED.
07639  M01S05738.1ms     +++|
07640  M01S05739.1ms     +++|          LDD    EN
07641  M01S05740.1ms     +++|          LMN    /CIOERR/DRE
07642  M01S05741.1ms     +++|          NJN    ERP3        IF NOT DEVICE ERROR
Line S00049 Modification History
M01 (Added by) 253l688
M02 (Updated by) 1ms13
Seq #  *Modification Id* Act 
----------------------------+
07643  M02S00049.1ms13   ---|          LDM    ERSD
Line S00050 Modification History
M01 (Added by) 253l688
M02 (Updated by) ns2553
M03 (Updated by) 1ms13
Seq #  *Modification Id* Act 
----------------------------+
07644  M03S00050.1ms13   ---|          NJN    ERP4        IF NO ERROR ON THE FILE
Line S00001 Modification History
M01 (Added by) ns2553
M02 (Updated by) 1ms13
Seq #  *Modification Id* Act 
----------------------------+
07645  M02S00001.1ms13   ---|          NJN    ERP2.1      IF NO ERROR ON THE FILE
Line S05742 Modification History
M01 (Added by) 1ms
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
07646  M02S05742.242l642 ---|          LDD    MA          RESET T4 - T7
Line S05743 Modification History
M01 (Added by) 1ms
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
07647  M02S05743.242l642 ---|          CWM    MRSB,ON
07648  M01S00635.242l642 +++|          LDD    MA          RESTORE T3 - T7
07649  M01S00636.242l642 +++|          CWM    DCSA,ON
07650  M01S05744.1ms     +++|          SBN    1
Line S05745 Modification History
M01 (Added by) 1ms
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
07651  M02S05745.242l642 ---|          CRD    T4
07652  M01S00637.242l642 +++|          CRD    T3
07653  M01S00004.1ms13   +++|          LDM    ERSD
07654  M01S00005.1ms13   +++|          NJN    ERP2.1      IF NO ERROR ON THE FILE
07655  M01S05746.1ms     +++|          LDD    FC
07656  M01S05747.1ms     +++|          SHN    -6
07657  M01S05748.1ms     +++|          LPN    17
07658  M01S05749.1ms     +++|          LMN    /CIO/WTF
07659  M01S05750.1ms     +++|          ZJN    ERP2        IF WRITE
07660  M01S05751.1ms     +++|          LMN    /CIO/CLO&/CIO/WTF
Line S05752 Modification History
M01 (Added by) 1ms
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
07661  M02S05752.242l642 ---|          ZJN    ERP2        IF CLOSE
Line S05753 Modification History
M01 (Added by) 1ms
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
07662  M02S05753.242l642 ---|          LMN    /CIO/EVI&/CIO/CLO
Line S05754 Modification History
M01 (Added by) 1ms
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
07663  M02S05754.242l642 ---|          NJN    ERP3        IF NOT EVICT
07664  M01S00638.242l642 +++|          NJN    ERP2.1      IF NOT CLOSE
07665  M01S05755.1ms     +++|
07666  M01S05756.1ms     +++|*         WRITE EOI IF FILE WRITTEN ON.
07667  M01S05757.1ms     +++|
Line S05758 Modification History
M01 (Added by) 1ms
M02 (Updated by) 1ms2
Seq #  *Modification Id* Act 
----------------------------+
07668  M02S05758.1ms2    ---| ERP2     RJM    WEI         WRITE EOI
07669  M01S00001.1ms2    +++| ERP2     LDD    EN          SAVE THE ERROR CODE
07670  M01S00002.1ms2    +++|          STM    ERPA
07671  M01S00003.1ms2    +++|          RJM    WEI         WRITE AN EOI SECTOR
07672  M01S00004.1ms2    +++|          LDC    **
07673  M01S00005.1ms2    +++| ERPA     EQU    *-1
07674  M01S00006.1ms2    +++|          STD    EN
Line S00639 Modification History
M01 (Added by) 242l642
M02 (Updated by) 1ms15
Seq #  *Modification Id* Act 
----------------------------+
07675  M02S00639.1ms15   ---| ERP2.1   UJN    RES         RETURN ERROR STATUS
07676  M01S00001.1ms15   +++| ERP2.1   UJP    RES         RETURN ERROR STATUS
07677  M01S05759.1ms     +++|
07678  M01S05760.1ms     +++|*         CHECK FOR TRACK LIMIT.
07679  M01S05761.1ms     +++|
07680  M01S05762.1ms     +++| ERP3     LDD    EN
07681  M01S05763.1ms     +++|          LMN    /CIOERR/TKL
07682  M01S05764.1ms     +++|          NJN    ERP4        IF NOT TRACK LIMIT
07683  M01S05765.1ms     +++|          RJM    PTL         PROCESS TRACK LIMIT ERROR
07684  M01S05766.1ms     +++|
07685  M01S05767.1ms     +++|*         CHECK USER PROCESSING OF ERRORS.
07686  M01S05768.1ms     +++|
Line S05769 Modification History
M01 (Added by) 1ms
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
07687  M02S05769.242l642 ---| ERP4     LDD    EN
Line S05770 Modification History
M01 (Added by) 1ms
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
07688  M02S05770.242l642 ---|          LMN    /CIOERR/DRE
Line S05771 Modification History
M01 (Added by) 1ms
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
07689  M02S05771.242l642 ---|          ZJN    RES         IF DEVICE ERROR
Line S05772 Modification History
M01 (Added by) 1ms
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
07690  M02S05772.242l642 ---|          LDC    22S9        SET STATUS = 22
07691  M01S00640.242l642 +++| ERP4     LDC    22S9        SET STATUS = 22
07692  M01S05773.1ms     +++|          RAD    BS+4
07693  M01S05774.1ms     +++|          SHN    -14
07694  M01S05775.1ms     +++|          RAD    BS+3
07695  M01S05776.1ms     +++|          LDD    EN
07696  M01S05777.1ms     +++|          LMN    /CIOERR/ITL
Line S05778 Modification History
M01 (Added by) 1ms
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
07697  M02S05778.v23l617 ---|          NJN    ERP5        IF NOT INDEX TOO LARGE ERROR
07698  M01S00019.v23l617 +++|          NJN    ERP6        IF NOT INDEX TOO LARGE ERROR
07699  M01S05779.1ms     +++|          STM    ERRA        CLEAR ERROR CODE
07700  M01S05780.1ms     +++|          LDD    TH          SET STATUS = 23B
07701  M01S05781.1ms     +++|          RAD    BS+4
07702  M01S05782.1ms     +++| ERP5     LJM    ABJ         ABORT JOB
07703  M01S00020.v23l617 +++|
07704  M01S00021.v23l617 +++| ERP6     LMN    /CIOERR/FTL&/CIOERR/ITL
Line S00022 Modification History
M01 (Added by) v23l617
M02 (Updated by) 1ms15
Seq #  *Modification Id* Act 
----------------------------+
07705  M02S00022.1ms15   ---|          NJN    ERP5        IF NOT FILE TOO LONG ERROR
Line S00023 Modification History
M01 (Added by) v23l617
M02 (Updated by) 1ms15
Seq #  *Modification Id* Act 
----------------------------+
07706  M02S00023.1ms15   ---|          LDD    CP          CHECK IF SUBSYSTEM
07707  M01S00002.1ms15   +++|          ZJN    ERP7        IF FILE TOO LONG ERROR
07708  M01S00003.1ms15   +++|          LMN    /CIOERR/LFL&/CIOERR/FTL
07709  M01S00004.1ms15   +++|          ZJN    ERP7        IF LOCAL FILE LIMIT ERROR
07710  M01S00005.1ms15   +++|          LMN    /CIOERR/PRL&/CIOERR/LFL
07711  M01S00006.1ms15   +++|          ZJN    ERP7        IF PRU LIMIT ERROR
07712  M01S00007.1ms15   +++|          LMN    /CIOERR/RAD&/CIOERR/PRL
07713  M01S00008.1ms15   +++|          ZJN    ERP7        IF RANDOM ADDRESS ERROR
07714  M01S00009.1ms15   +++|          LMN    /CIOERR/BLE&/CIOERR/RAD
07715  M01S00010.1ms15   +++|          NJN    ERP5        IF NOT BUFFER CONTROL WORD ERROR
07716  M01S00011.1ms15   +++| ERP7     LDD    CP          CHECK IF SUBSYSTEM
07717  M01S00024.v23l617 +++|          ADK    JCIW
07718  M01S00025.v23l617 +++|          CRD    CM
07719  M01S00026.v23l617 +++|          LDD    CM+2
07720  M01S00027.v23l617 +++|          SBK    LSSI
07721  M01S00028.v23l617 +++|          MJN    ERP5        IF NOT SUBSYSTEM
07722  M01S00029.v23l617 +++|          LJM    IMR1        TREAT ERROR AS WARNING
07723  M01S05783.1ms     +++| RES      SPACE  4,10
07724  M01S05784.1ms     +++|**        RES - RETURN ERROR STATUS.
07725  M01S05785.1ms     +++|*
07726  M01S00006.1ms13   +++|*         ENTRY  (T4) = (RDCT) AT THE TIME OF THE ERROR.
07727  M01S00007.1ms13   +++|*
07728  M01S05786.1ms     +++|*         EXIT   TO *ERP5* IF ERROR PROCESSING NOT SELECTED.
07729  M01S05787.1ms     +++|*                TO *IMR* TO ISSUE DAYFILE MESSAGE.
07730  M01S05788.1ms     +++|*
07731  M01S05789.1ms     +++|*         CALLS  MDE, SES.
07732  M01S05790.1ms     +++|
07733  M01S05791.1ms     +++|
07734  M01S05792.1ms     +++|*         PROCESS DRIVER DETECTED DEVICE ERROR.
07735  M01S05793.1ms     +++|
07736  M01S05794.1ms     +++| RES      BSS    0           ENTRY
Line S05795 Modification History
M01 (Added by) 1ms
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
07737  M02S05795.242l642 ---|          LDM    MRSB+4      SET ERROR STATUS
Line S00641 Modification History
M01 (Added by) 242l642
M02 (Updated by) 1ms13
Seq #  *Modification Id* Act 
----------------------------+
07738  M02S00641.1ms13   ---|          LDM    DCSA+1      GET ERROR STATUS
07739  M01S00008.1ms13   +++|          LDD    T4          GET ERROR STATUS
07740  M01S05796.1ms     +++|          RJM    MDE         MAP DISK ERROR
07741  M01S05797.1ms     +++|          RJM    SES
07742  M01S05798.1ms     +++|          ZJN    ERP5        IF ERROR PROCESSING NOT SELECTED
Line S05799 Modification History
M01 (Added by) 1ms
M02 (Updated by) 1ms13
Seq #  *Modification Id* Act 
----------------------------+
07743  M02S05799.1ms13   ---|          LDD    FC
07744  M01S00009.1ms13   +++|          LDD    FC          GET PROCESSOR ADDRESS
07745  M01S05800.1ms     +++|          SHN    -6
07746  M01S05801.1ms     +++|          LPN    17
Line S05802 Modification History
M01 (Added by) 1ms
M02 (Updated by) 1ms13
Seq #  *Modification Id* Act 
----------------------------+
07747  M02S05802.1ms13   ---|          LMN    /CIO/SKP
Line S05803 Modification History
M01 (Added by) 1ms
M02 (Updated by) 1ms13
Seq #  *Modification Id* Act 
----------------------------+
07748  M02S05803.1ms13   ---|          ZJN    RES1        IF SKIP FUNCTION
Line S05804 Modification History
M01 (Added by) 1ms
M02 (Updated by) 1ms13
Seq #  *Modification Id* Act 
----------------------------+
07749  M02S05804.1ms13   ---|          LMN    /CIO/WTF&/CIO/SKP
Line S05805 Modification History
M01 (Added by) 1ms
M02 (Updated by) 1ms13
Seq #  *Modification Id* Act 
----------------------------+
07750  M02S05805.1ms13   ---|          NJN    RES4        IF NOT WRITE
Line S05806 Modification History
M01 (Added by) 1ms
M02 (Updated by) 242l642
M03 (Updated by) 1ms13
Seq #  *Modification Id* Act 
----------------------------+
07751  M03S05806.1ms13   ---|          LDC    MSP         COMPLETE WRITE FUNCTION
Line S00642 Modification History
M01 (Added by) 242l642
M02 (Updated by) 1ms13
Seq #  *Modification Id* Act 
----------------------------+
07752  M02S00642.1ms13   ---|          LDC    /WMS/WMS3   COMPLETE WRITE OPERATION
Line S05807 Modification History
M01 (Added by) 1ms
M02 (Updated by) 1ms13
Seq #  *Modification Id* Act 
----------------------------+
07753  M02S05807.1ms13   ---|          UJN    RES3        ISSUE DAYFILE MESSAGE
07754  M01S00010.1ms13   +++|          STD    T1
07755  M01S00011.1ms13   +++|          LDM    RESB,T1
07756  M01S00012.1ms13   +++|          STM    RESA
07757  M01S00013.1ms13   +++|          LJM    *           ENTER PROCESSOR
07758  M01S00014.1ms13   +++| RESA     EQU    *-1
07759  M01S05808.1ms     +++|
07760  M01S05809.1ms     +++|*         PROCESS SKIP ERROR.
07761  M01S05810.1ms     +++|
Line S05811 Modification History
M01 (Added by) 1ms
M02 (Updated by) 1ms13
Seq #  *Modification Id* Act 
----------------------------+
07762  M02S05811.1ms13   ---| RES1     STD    FS+4        CLEAR FST STATUS
07763  M01S00015.1ms13   +++| RES1     LDN    0
07764  M01S00016.1ms13   +++|          STD    FS+4        CLEAR FST STATUS
07765  M01S05812.1ms     +++|          LDD    FC
07766  M01S05813.1ms     +++|          SHN    -13
07767  M01S05814.1ms     +++|          NJN    RES2        IF BACKWARD SKIP
Line S05815 Modification History
M01 (Added by) 1ms
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
07768  M02S05815.242l642 ---|          LDM    MRSB+4      CHECK IF CORRECT SECTOR READ
Line S00643 Modification History
M01 (Added by) 242l642
M02 (Updated by) 1ms13
Seq #  *Modification Id* Act 
----------------------------+
07769  M02S00643.1ms13   ---|          LDM    DCSA+1      CHECK IF CORRECT SECTOR READ
07770  M01S00017.1ms13   +++|          LDD    T4          CHECK IF CORRECT SECTOR READ
07771  M01S05816.1ms     +++|          SHN    -13
Line S05817 Modification History
M01 (Added by) 1ms
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
07772  M02S05817.v23l617 ---|          NJN    RES2        IF INVALID DATA
07773  M01S00030.v23l617 +++|          NJN    RES2        IF INCORRECT DATA
07774  M01S05818.1ms     +++|          LDD    HN+LJMI*    SET TERMINATOR
07775  M01S05819.1ms     +++|          STM    /PMS/SKFA
07776  M01S05820.1ms     +++|          LDC    /PMS/SFP
07777  M01S05821.1ms     +++|          STM    /PMS/SKFA+1
Line S05822 Modification History
M01 (Added by) 1ms
M02 (Updated by) 1ms13
Seq #  *Modification Id* Act 
----------------------------+
07778  M02S05822.1ms13   ---|          LJM    RES10       SET TO RETURN TO CALLER
07779  M01S00018.1ms13   +++|          UJN    RES5        RETURN TO CALLER
07780  M01S05823.1ms     +++|
Line S05824 Modification History
M01 (Added by) 1ms
M02 (Updated by) 1ms13
Seq #  *Modification Id* Act 
----------------------------+
07781  M02S05824.1ms13   ---| RES2     LDC    /PMS/SFP    PROCESS POSITION ERROR
07782  M01S00019.1ms13   +++|*         PROCESS WRITE/REWIND/RETURN/UNLOAD/EVICT ERRORS.
07783  M01S00020.1ms13   +++|
07784  M01S00021.1ms13   +++| RES2     LDM    RESC,T1     GET CONTINUATION PROCESSOR
07785  M01S05825.1ms     +++| RES3     LJM    IMR         ISSUE DAYFILE MESSAGE
07786  M01S05826.1ms     +++|
07787  M01S05827.1ms     +++|*         PROCESS OPEN ERROR.
07788  M01S05828.1ms     +++|
Line S05829 Modification History
M01 (Added by) 1ms
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
07789  M02S05829.242l642 ---| RES4     LMN    /CIO/WTF
Line S00644 Modification History
M01 (Added by) 242l642
M02 (Updated by) 1ms13
Seq #  *Modification Id* Act 
----------------------------+
07790  M02S00644.1ms13   ---| RES4     LMN    /CIO/WTF&/CIO/RDF
Line S05830 Modification History
M01 (Added by) 1ms
M02 (Updated by) 1ms13
Seq #  *Modification Id* Act 
----------------------------+
07791  M02S05830.1ms13   ---|          ZJN    RES6        IF READ FUNCTION
Line S05831 Modification History
M01 (Added by) 1ms
M02 (Updated by) 242l642
M03 (Updated by) 1ms13
Seq #  *Modification Id* Act 
----------------------------+
07792  M03S05831.1ms13   ---|          LDM    MRSB+4
Line S00645 Modification History
M01 (Added by) 242l642
M02 (Updated by) 1ms13
Seq #  *Modification Id* Act 
----------------------------+
07793  M02S00645.1ms13   ---|          LDM    DCSA+1
07794  M01S00022.1ms13   +++| RES4     LDD    T4
07795  M01S05832.1ms     +++|          SHN    21-11D
Line S05833 Modification History
M01 (Added by) 1ms
M02 (Updated by) 1ms13
Seq #  *Modification Id* Act 
----------------------------+
07796  M02S05833.1ms13   ---|          MJN    RES5        IF PROPER SECTOR READ
Line S05834 Modification History
M01 (Added by) 1ms
M02 (Updated by) 1ms13
Seq #  *Modification Id* Act 
----------------------------+
07797  M02S05834.1ms13   ---|          LDC    /PMS/LRIX
07798  M01S00023.1ms13   +++|          PJN    RES2        IF WRONG SECTOR READ
07799  M01S00024.1ms13   +++|          LDC    UJNI-ZJNI   SET STOP AFTER SECTOR WRITE
07800  M01S00025.1ms13   +++|          RAM    /PMS/LRIA
07801  M01S00026.1ms13   +++| RES5     LDM    CDA         GET RETURN ADDRESS
07802  M01S05835.1ms     +++|          UJN    RES3        ISSUE DAYFILE MESSAGE
07803  M01S05836.1ms     +++|
Line S05837 Modification History
M01 (Added by) 1ms
M02 (Updated by) 1ms13
Seq #  *Modification Id* Act 
----------------------------+
07804  M02S05837.1ms13   ---| RES5     LDC    UJNI-ZJNI   SET STOP AFTER SECTOR WRITE
Line S05838 Modification History
M01 (Added by) 1ms
M02 (Updated by) 1ms13
Seq #  *Modification Id* Act 
----------------------------+
07805  M02S05838.1ms13   ---|          RAM    /PMS/LRIA
Line S05839 Modification History
M01 (Added by) 1ms
M02 (Updated by) 1ms13
Seq #  *Modification Id* Act 
----------------------------+
07806  M02S05839.1ms13   ---|          LJM    RES10       SET RETURN ADDRESS
07807  M01S00027.1ms13   +++|*         PROCESS CLOSE/OVERWRITE ERROR.
07808  M01S05840.1ms     +++|
07809  M01S00028.1ms13   +++| RES6     LDM    ERSD
07810  M01S00029.1ms13   +++|          ZJP    RES2        IF NO ERROR ON THE FILE
07811  M01S00030.1ms13   +++|          LDC    RRF         EXIT TO RESET POINTERS
07812  M01S00031.1ms13   +++|          UJP    RES3        ISSUE DAYFILE MESSAGE AND RETURN
07813  M01S00032.1ms13   +++|
07814  M01S05841.1ms     +++|*         PROCESS READ ERROR.
07815  M01S05842.1ms     +++|
Line S05843 Modification History
M01 (Added by) 1ms
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
07816  M02S05843.242l642 ---| RES6     LDM    MRSB+4
Line S00646 Modification History
M01 (Added by) 242l642
M02 (Updated by) 1ms13
Seq #  *Modification Id* Act 
----------------------------+
07817  M02S00646.1ms13   ---| RES6     LDM    DCSA+1
07818  M01S00033.1ms13   +++| RES7     LDC    4000        SET ERROR FLAG IN CONTROL WORD
07819  M01S00034.1ms13   +++|          RAM    BFMS+2-5
07820  M01S00035.1ms13   +++|          LDN    0           SET STOP FOR CONTROL WORD READ LOOP
07821  M01S00036.1ms13   +++|          STM    /RMS/CRDB
07822  M01S00037.1ms13   +++|          UJP    RES5        RETURN TO CALLER
07823  M01S00038.1ms13   +++|
07824  M01S00039.1ms13   +++| RES8     LDD    T4
07825  M01S05844.1ms     +++|          SHN    21-11D
Line S05845 Modification History
M01 (Added by) 1ms
M02 (Updated by) 1ms13
Seq #  *Modification Id* Act 
----------------------------+
07826  M02S05845.1ms13   ---|          PJN    RES7        IF PROPER SECTOR READ
Line S05846 Modification History
M01 (Added by) 1ms
M02 (Updated by) 1ms13
Seq #  *Modification Id* Act 
----------------------------+
07827  M02S05846.1ms13   ---|          LDC    /RMS/CPR    COMPLETE READ
Line S05847 Modification History
M01 (Added by) 1ms
M02 (Updated by) 1ms13
Seq #  *Modification Id* Act 
----------------------------+
07828  M02S05847.1ms13   ---|          UJN    RES3        ISSUE DAYFILE MESSAGE
Line S05848 Modification History
M01 (Added by) 1ms
M02 (Updated by) 1ms13
Seq #  *Modification Id* Act 
----------------------------+
07829  M02S05848.1ms13   ---|
Line S05849 Modification History
M01 (Added by) 1ms
M02 (Updated by) 1ms13
Seq #  *Modification Id* Act 
----------------------------+
07830  M02S05849.1ms13   ---| RES7     LDD    FC          CHECK READ FUNCTION
07831  M01S00040.1ms13   +++|          MJN    RES2        IF WRONG SECTOR READ
07832  M01S00041.1ms13   +++|          LDD    FC          CHECK READ FUNCTION
07833  M01S05850.1ms     +++|          SHN    21-5
Line S05851 Modification History
M01 (Added by) 1ms
M02 (Updated by) 1ms13
Seq #  *Modification Id* Act 
----------------------------+
07834  M02S05851.1ms13   ---|          MJN    RES9        IF *READCW*
07835  M01S00042.1ms13   +++|          MJN    RES7        IF *READCW*
07836  M01S05852.1ms     +++|          SHN    21-12-21+5+22
Line S05853 Modification History
M01 (Added by) 1ms
M02 (Updated by) 1ms13
Seq #  *Modification Id* Act 
----------------------------+
07837  M02S05853.1ms13   ---|          PJN    RES8        IF NOT *READSKP*
07838  M01S00043.1ms13   +++|          PJN    RES9        IF NOT *READSKP*
07839  M01S05854.1ms     +++|          LDC    LDNI+0
07840  M01S05855.1ms     +++|          STM    /SMR/RSKB
07841  M01S05856.1ms     +++|          LDD    HN+LJMI*    SET TERMINATION
07842  M01S05857.1ms     +++|          STM    /SMR/RSKC
07843  M01S05858.1ms     +++|          LDC    /SMR/RSK13
07844  M01S05859.1ms     +++|          STM    /SMR/RSKC+1
Line S05860 Modification History
M01 (Added by) 1ms
M02 (Updated by) 1ms13
Seq #  *Modification Id* Act 
----------------------------+
07845  M02S05860.1ms13   ---| RES8     LDC    /RMS/CPR    SET STOPS FOR BUFFER READ LOOP
07846  M01S00044.1ms13   +++| RES9     LDC    /RMS/CPR    SET STOPS FOR BUFFER READ LOOP
07847  M01S05861.1ms     +++|          STM    /RMS/BRDE
07848  M01S05862.1ms     +++|          STM    /RMS/BRDF
07849  M01S05863.1ms     +++|          STM    /RMS/EOFA
07850  M01S05864.1ms     +++|          LDD    HN+LJMI*    SET TERMINATION
07851  M01S05865.1ms     +++|          STM    /RMS/BRDT
07852  M01S05866.1ms     +++|          LDC    /RMS/BRD2
07853  M01S05867.1ms     +++|          STM    /RMS/BRDT+1
Line S05868 Modification History
M01 (Added by) 1ms
M02 (Updated by) 1ms13
Seq #  *Modification Id* Act 
----------------------------+
07854  M02S05868.1ms13   ---|          UJN    RES10       ISSUE DAYFILE MESSAGE
07855  M01S00045.1ms13   +++|          LJM    RES5        ISSUE DAYFILE MESSAGE
07856  M01S05869.1ms     +++|
Line S05870 Modification History
M01 (Added by) 1ms
M02 (Updated by) 1ms13
Seq #  *Modification Id* Act 
----------------------------+
07857  M02S05870.1ms13   ---| RES9     LDC    4000        SET ERROR FLAG IN CONTROL WORD
Line S05871 Modification History
M01 (Added by) 1ms
M02 (Updated by) 1ms13
Seq #  *Modification Id* Act 
----------------------------+
07858  M02S05871.1ms13   ---|          RAM    BFMS+2-5
Line S05872 Modification History
M01 (Added by) 1ms
M02 (Updated by) 1ms13
Seq #  *Modification Id* Act 
----------------------------+
07859  M02S05872.1ms13   ---|          LDN    0           SET STOP FOR CONTROL WORD READ LOOP
Line S05873 Modification History
M01 (Added by) 1ms
M02 (Updated by) 1ms13
Seq #  *Modification Id* Act 
----------------------------+
07860  M02S05873.1ms13   ---|          STM    /RMS/CRDB
Line S05874 Modification History
M01 (Added by) 1ms
M02 (Updated by) 242l642
M03 (Updated by) 1ms13
Seq #  *Modification Id* Act 
----------------------------+
07861  M03S05874.1ms13   ---| RES10    LDC    MSRX        SET RETURN ADDRESS
Line S00647 Modification History
M01 (Added by) 242l642
M02 (Updated by) 1ms13
Seq #  *Modification Id* Act 
----------------------------+
07862  M02S00647.1ms13   ---| RES10    LDM    CDA         GET RETURN ADDRESS
Line S05875 Modification History
M01 (Added by) 1ms
M02 (Updated by) 1ms13
Seq #  *Modification Id* Act 
----------------------------+
07863  M02S05875.1ms13   ---|          LJM    IMR         ISSUE DAYFILE MESSAGE
07864  M01S00046.1ms13   +++|
07865  M01S00047.1ms13   +++| RESB     INDEX              TABLE OF ERROR COMPLETION PROCESSORS
07866  M01S00048.1ms13   +++|
07867  M01S00049.1ms13   +++|          INDEX  /CIO/RDF,RES8   READ
07868  M01S00050.1ms13   +++|          INDEX  /CIO/WTF,RES2   WRITE
07869  M01S00051.1ms13   +++|          INDEX  /CIO/SKP,RES1   SKIP
07870  M01S00052.1ms13   +++|          INDEX  /CIO/OPE,RES4   OPEN
07871  M01S00053.1ms13   +++|          INDEX  /CIO/CLO,RES6   CLOSE
07872  M01S00054.1ms13   +++|          INDEX  /CIO/REW,RES2   REWIND
07873  M01S00055.1ms13   +++|          INDEX  /CIO/RET,RES2   RETURN/UNLOAD
07874  M01S00056.1ms13   +++|          INDEX  /CIO/EVI,RES2   EVICT
07875  M01S00057.1ms13   +++|          INDEX  /CIO/OVW,RES6   OVERWRITE
07876  M01S00058.1ms13   +++|
07877  M01S00059.1ms13   +++|          INDEX  /CIO/MFC
07878  M01S00060.1ms13   +++|
07879  M01S00061.1ms13   +++| RESC     INDEX              TABLE OF FUNCTION CONTINUATION ROUTINES
07880  M01S00062.1ms13   +++|
07881  M01S00063.1ms13   +++|          INDEX  /CIO/RDF,/RMS/CPR   READ
07882  M01S00064.1ms13   +++|          INDEX  /CIO/WTF,/WMS/WMS3  WRITE
07883  M01S00065.1ms13   +++|          INDEX  /CIO/SKP,/PMS/SFP   SKIP
07884  M01S00066.1ms13   +++|          INDEX  /CIO/OPE,/PMS/LRIX  OPEN
07885  M01S00067.1ms13   +++|          INDEX  /CIO/CLO,/WMS/WMS3  CLOSE
07886  M01S00068.1ms13   +++|          INDEX  /CIO/REW,RRF        REWIND
07887  M01S00069.1ms13   +++|          INDEX  /CIO/RET,RRF        RETURN/UNLOAD
07888  M01S00070.1ms13   +++|          INDEX  /CIO/EVI,RRF        EVICT
07889  M01S00071.1ms13   +++|          INDEX  /CIO/OVW,/OMS/OVW10 OVERWRITE
07890  M01S00072.1ms13   +++|
07891  M01S00073.1ms13   +++|          INDEX  /CIO/MFC
07892  M01S05876.1ms     +++| ABJ      SPACE  4,15
07893  M01S05877.1ms     +++|**        ABJ - ABORT JOB.
07894  M01S05878.1ms     +++|*
07895  M01S05879.1ms     +++|*         ENTRY  (EN) = ERROR NUMBER.
07896  M01S05880.1ms     +++|*                (FC) = INTERNAL *CIO* FUNCTION CODE.
07897  M01S05881.1ms     +++|*                (BS - BS+4) = (FET+0).
07898  M01S05882.1ms     +++|*
07899  M01S05883.1ms     +++|*         EXIT   TO *IMR1* FOR EXIT TO *CFN*.
07900  M01S05884.1ms     +++|*
07901  M01S05885.1ms     +++|*         USES   T1, CM - CM+4.
07902  M01S05886.1ms     +++|*
07903  M01S05887.1ms     +++|*         CALLS  CTI.
07904  M01S05888.1ms     +++|*
07905  M01S05889.1ms     +++|*         MACROS MONITOR.
07906  M01S05890.1ms     +++|
07907  M01S05891.1ms     +++|
07908  M01S05892.1ms     +++|*         SET CONTROL POINT ERROR FLAG.
07909  M01S05893.1ms     +++|
07910  M01S05894.1ms     +++| ABJ      BSS    0           ENTRY
07911  M01S05895.1ms     +++|          LDM    TEPO,EN     SET CONTROL POINT ERROR FLAG
07912  M01S05896.1ms     +++|          SHN    -6
07913  M01S05897.1ms     +++|          ZJN    ABJ1        IF NO ERROR FLAG
07914  M01S05898.1ms     +++|          STD    CM+1        SET ERROR FLAG
07915  M01S05899.1ms     +++|          MONITOR CEFM
07916  M01S05900.1ms     +++| ABJ1     LDD    EN
07917  M01S05901.1ms     +++|          LMN    /CIOERR/ARG
07918  M01S05902.1ms     +++|          NJN    ABJ2        IF NOT ARGUMENT ERROR
07919  M01S05903.1ms     +++|          STD    BS          CLEAR FILE NAME
07920  M01S05904.1ms     +++|          STM    CFND        PREVENT WRITE OF FET+0
07921  M01S05905.1ms     +++|          UJN    ABJ3        COMPLETE ABORT PROCESSING
07922  M01S05906.1ms     +++|
07923  M01S05907.1ms     +++| ABJ2     LDD    FO          CHECK FET OPTIONS
07924  M01S05908.1ms     +++|          SHN    21-10
07925  M01S05909.1ms     +++|          PJN    ABJ3        IF ERROR PROCESSING NOT SELECTED
07926  M01S05910.1ms     +++|          LDN    0           CLEAR DETAILED STATUS FIELD IN FET
07927  M01S05911.1ms     +++|          STD    T1
07928  M01S05912.1ms     +++|          RJM    SDS
07929  M01S05913.1ms     +++| ABJ3     LDD    FC
07930  M01S05914.1ms     +++|          NJN    ABJ4        IF INTERNAL FUNCTION DEFINED
07931  M01S05915.1ms     +++|          STM    TACC        PREVENT ACCOUNTING FUNCTION CHARGE
07932  M01S05916.1ms     +++|
07933  M01S05917.1ms     +++|*         SET UP FET DUMP REQUEST.
07934  M01S05918.1ms     +++|
07935  M01S05919.1ms     +++| ABJ4     LDM    TEPO,EN     CHECK ERROR CONTROL
07936  M01S05920.1ms     +++|          LPN    1
07937  M01S05921.1ms     +++|          ZJN    ABJ5        IF FET DUMP NOT NEEDED
07938  M01S05922.1ms     +++|          LDD    CP          READ PPDW
07939  M01S05923.1ms     +++|          ADC    PPDW
07940  M01S05924.1ms     +++|          STD    T1
07941  M01S05925.1ms     +++|          CRD    CM
07942  M01S05926.1ms     +++|          LDD    IR+3        SET DUMP LENGTH AND FET ADDRESS
07943  M01S05927.1ms     +++|          LPN    77
07944  M01S05928.1ms     +++|          SHN    14
07945  M01S05929.1ms     +++|          LMM    FETL
07946  M01S05930.1ms     +++|          ADN    5
07947  M01S05931.1ms     +++|          SHN    6
07948  M01S05932.1ms     +++|          STD    CM+3
07949  M01S05933.1ms     +++|          LDD    IR+4
07950  M01S05934.1ms     +++|          STD    CM+4
07951  M01S05935.1ms     +++|          LDD    T1          REWRITE PPDW
07952  M01S05936.1ms     +++|          CWD    CM
07953  M01S05937.1ms     +++| ABJ5     LJM    IMR1        ISSUE MESSAGE
07954  M01S05938.1ms     +++| TMSG     SPACE  4,10
07955  M01S05939.1ms     +++|**        TMSG - TABLE OF MESSAGE ADDRESSES.
07956  M01S05940.1ms     +++|*         INDEXED BY ERROR CODE.
07957  M01S05941.1ms     +++|*
07958  M01S05942.1ms     +++|*T,       12/ ADDR
Figure

011 ADDR

07959  M01S05943.1ms     +++|*         ADDR   ADDRESS OF MESSAGE
07960  M01S05944.1ms     +++|
07961  M01S05945.1ms     +++|
07962  M01S05946.1ms     +++| TMSG     EQU    *-1
07963  M01S05947.1ms     +++|          LOC    TMSG+/CIOERR/MEC
07964  M01S05948.1ms     +++| TEPO     SPACE  4,10
07965  M01S05949.1ms     +++|**        TEPO - TABLE OF ERROR PROCESSING OPTIONS.
07966  M01S05950.1ms     +++|*         INDEXED BY ERROR CODE.
07967  M01S05951.1ms     +++|*
07968  M01S05952.1ms     +++|*T,       6/ EF, 5/ 0, 1/F
Figure

015611F 0 EF

07969  M01S05953.1ms     +++|*
07970  M01S05954.1ms     +++|*         EF     ERROR FLAG.
07971  M01S05955.1ms     +++|*         F = 1 IF FET DUMP NEEDED.
07972  M01S05956.1ms     +++|
07973  M01S05957.1ms     +++|
07974  M01S05958.1ms     +++| TEPO     EQU    *-1
07975  M01S05959.1ms     +++|
07976  M01S05960.1ms     +++| ARG      MSG    (FET ADDRESS OUT OF RANGE),PPET,0
07977  M01S05961.1ms     +++| ASD      MSG    (ASSIGNED FOR DIAGNOSTICS, FILE ),PPET,0
07978  M01S05962.1ms     +++| BLE      MSG    (BUFFER CONTROL WORD ERROR ON ),PPET,0
07979  M01S05963.1ms     +++| BUF      MSG    (BUFFER ARGUMENT ERROR ON ),PPET,1
07980  M01S05964.1ms     +++| DRE      MSG    (DEVICE ERROR ON FILE ),PPET,0
07981  M01S05965.1ms     +++| EFT      MSG    (ERROR FLAG TERMINATION, FILE ),0,0
07982  M01S05966.1ms     +++| EXO      MSG    (I/O ON EXECUTE-ONLY FILE ),PPET,0
Line S05967 Modification History
M01 (Added by) 1ms
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
07983  M02S05967.v23l617 ---| FLN      MSG    (ILLEGAL FILE NAME ),PPET,0
07984  M01S00031.v23l617 +++| FLN      MSG    (INCORRECT FILE NAME ),PPET,0
07985  M01S05968.1ms     +++| FPE      MSG    (FET PARAMETER ERROR ON ),PPET,1
07986  M01S05969.1ms     +++| FSQ      MSG    (I/O SEQUENCE ERROR ON FILE ),PPET,0
07987  M01S05970.1ms     +++| FTL      MSG    (FILE TOO LONG, FILE ),PPET,0
Line S05971 Modification History
M01 (Added by) 1ms
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
07988  M02S05971.v23l617 ---| IEQ      MSG    (ILLEGAL EQUIPMENT ON FILE ),0,0
Line S05972 Modification History
M01 (Added by) 1ms
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
07989  M02S05972.v23l617 ---| IFM      MSG    (ILLEGAL MODIFICATION OF ),PPET,0
Line S05973 Modification History
M01 (Added by) 1ms
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
07990  M02S05973.v23l617 ---| IRQ      MSG    (ILLEGAL I/O REQUEST ON FILE ),PPET,1
07991  M01S00032.v23l617 +++| IEQ      MSG    (INCORRECT EQUIPMENT ON FILE ),0,0
07992  M01S00033.v23l617 +++| IFM      MSG    (INCORRECT MODIFICATION OF ),PPET,0
07993  M01S00034.v23l617 +++| IRQ      MSG    (INCORRECT I/O REQUEST ON FILE ),PPET,1
07994  M01S05974.1ms     +++| ITL      MSG    (INDEX TOO LARGE ON OPEN, FILE ),PPET,1
07995  M01S05975.1ms     +++| IWR      MSG    (WRITE ON READ-ONLY FILE ),PPET,0
07996  M01S05976.1ms     +++| LFL      MSG    ,FLET,0
Line S00425 Modification History
M01 (Added by) ns22000
M02 (Updated by) 1ms16
Seq #  *Modification Id* Act 
----------------------------+
07997  M02S00425.1ms16   ---| LNF      MSG    (ACCESS LEVEL NOT VALID FOR FILE ),SVET,0
Line S00426 Modification History
M01 (Added by) ns22000
M02 (Updated by) 1ms16
Seq #  *Modification Id* Act 
----------------------------+
07998  M02S00426.1ms16   ---| LNJ      MSG    (ACCESS LEVEL NOT VALID FOR JOB, ),SVET,0
07999  M01S00012.1ms16   +++| LNF      MSG    (FILE ACCESS LEVEL CONFLICT, ),SVET,0
08000  M01S00013.1ms16   +++| LNJ      MSG    (JOB ACCESS LEVEL CONFLICT, ),SVET,0
08001  M01S05977.1ms     +++| PRL      MSG    (PRU LIMIT, FILE ),TKET,0
08002  M01S05978.1ms     +++| RAD      MSG    (RANDOM ADDRESS NOT ON FILE ),PPET,1
08003  M01S05979.1ms     +++| RUD      MSG    (REQUEST UNDEFINED ON DEVICE, ),PPET,1
08004  M01S05980.1ms     +++| RWT      MSG    (INDEX ADDRESS OUT OF RANGE FOR ),PPET,1
08005  M01S05981.1ms     +++| TKL      MSG    ,0,1
08006  M01S05982.1ms     +++| TNA      MSG    (M.T. NOT AVAILABLE ON FILE ),PPET,0
08007  M01S05983.1ms     +++| UCF      MSG    (UNNECESSARY CIO FCT. 000 ON ),0,0
08008  M01S00427.ns22000 +++| WDP      MSG    (WRITEDOWN PROHIBITED ON ),SVET,0
08009  M01S05984.1ms     +++| MEC      MSG
08010  M01S00648.242l642 +++| BOS      SPACE  4,10
08011  M01S00649.242l642 +++|**        BOS - BACKUP ONE SECTOR.
08012  M01S00650.242l642 +++|*
08013  M01S00651.242l642 +++|
08014  M01S00652.242l642 +++| BOS1     LMD    T3          SAVE TRACK NUMBER
08015  M01S00653.242l642 +++| BOS2     STD    T6
08016  M01S00654.242l642 +++|          RJM    SNT         GET NEXT TRACK
08017  M01S00655.242l642 +++|          LMD    T3
08018  M01S00656.242l642 +++|          NJN    BOS1        IF NOT EQUAL TO CURRENT TRACK
08019  M01S00657.242l642 +++|          LDM    SLM         SET SECTOR TO END OF TRACK
08020  M01S00658.242l642 +++|          SBN    1
08021  M01S00659.242l642 +++|          STD    T7
08022  M01S00660.242l642 +++|
08023  M01S00661.242l642 +++| BOS      SUBR
08024  M01S00662.242l642 +++|          SOD    T7          DECREMENT SECTOR
08025  M01S00663.242l642 +++|          PJN    BOSX        IF SAME TRACK
08026  M01S00664.242l642 +++|          LDD    T6          SAVE CURRENT TRACK
08027  M01S00665.242l642 +++|          STD    T3
08028  M01S00666.242l642 +++|          LDD    FS+1        START WITH FIRST TRACK
08029  M01S00667.242l642 +++|          UJN    BOS2        ENTER LOOP
08030  M01S00046.241l630 +++| CHP      SPACE  4,10
08031  M01S00047.241l630 +++|**        CHP - CONDITIONALLY HANG PP.
08032  M01S00048.241l630 +++|*
08033  M01S00049.241l630 +++|*         EXIT   TO *CFN*.
08034  M01S00050.241l630 +++|*
08035  M01S00051.241l630 +++|*         CALLS  CHG.
08036  M01S00052.241l630 +++|
08037  M01S00053.241l630 +++|
08038  M01S00054.241l630 +++| CHP      LDK    SWET        SET SYSTEM SOFTWARE ERROR FLAG
08039  M01S00055.241l630 +++|          RJM    CHG         CONDITIONALLY HANG PP
08040  M01S00056.241l630 +++|          LJM    CFN         COMPLETE FUNCTION
08041  M01S05985.1ms     +++|          TITLE  ERROR PROCESSOR SUBROUTINES.
08042  M01S05986.1ms     +++| MDE      SPACE  4,15
08043  M01S05987.1ms     +++|**        MDE - MAP DISK ERROR.
08044  M01S05988.1ms     +++|*
08045  M01S05989.1ms     +++|*         ENTRY  (A) = DETAILED ERROR CODE FROM DRIVER.
Line S05990 Modification History
M01 (Added by) 1ms
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
08046  M02S05990.242l642 ---|*                      6/0,1/I,5/0,6/DC
Line S05991 Modification History
M01 (Added by) 1ms
M02 (Updated by) v23l617
M03 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
08047  M03S05991.242l642 ---|*                      I = INVALID DATA FLAG.
Line S00035 Modification History
M01 (Added by) v23l617
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
08048  M02S00035.242l642 ---|*                      I = INCORRECT DATA FLAG.
Line S05992 Modification History
M01 (Added by) 1ms
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
08049  M02S05992.242l642 ---|*                          0 = VALID DATA.
Line S05993 Modification History
M01 (Added by) 1ms
M02 (Updated by) v23l617
M03 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
08050  M03S05993.242l642 ---|*                          1 = INVALID DATA.
Line S00036 Modification History
M01 (Added by) v23l617
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
08051  M02S00036.242l642 ---|*                          1 = INCORRECT DATA.
08052  M01S00668.242l642 +++|*                6/, 8/, 4/DC
08053  M01S05994.1ms     +++|*                      DC = DRIVER ERROR CODE.
08054  M01S05995.1ms     +++|*
Line S05996 Modification History
M01 (Added by) 1ms
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
08055  M02S05996.242l642 ---|*         EXIT   (A) = 6/0,6/NC,6/CC
08056  M01S00669.242l642 +++|*         EXIT   (A) = 6/0,8/NC,4/CC
08057  M01S05997.1ms     +++|*                      NC = NOT CHANGED FROM INPUT.
08058  M01S05998.1ms     +++|*                      CC = CPU ERROR CODE EQUIVALENT TO *DC* IF *DC*
08059  M01S05999.1ms     +++|*                           IN EQUIVALENCE TABLE, OTHERWISE *DC*.
08060  M01S06000.1ms     +++|*
08061  M01S06001.1ms     +++|*         USES   T0, T1.
08062  M01S06002.1ms     +++|
08063  M01S06003.1ms     +++|
08064  M01S06004.1ms     +++| MDE1     LDD    T0          RESTORE ORIGINAL ERROR CODE
08065  M01S06005.1ms     +++|
08066  M01S06006.1ms     +++| MDE      SUBR               ENTRY/EXIT
08067  M01S06007.1ms     +++|          STD    T0          SAVE ORIGINAL ERROR CODE
Line S06008 Modification History
M01 (Added by) 1ms
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
08068  M02S06008.242l642 ---|          LPN    77          GET DRIVER ERROR CODE
Line S00670 Modification History
M01 (Added by) 242l642
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
08069  M02S00670.253l688 ---|          LPN    17          GET DRIVER ERROR CODE
08070  M01S00051.253l688 +++|          LPN    77          GET DRIVER ERROR CODE
08071  M01S06009.1ms     +++|          STD    T1
08072  M01S06010.1ms     +++|          SBN    MXDE
08073  M01S06011.1ms     +++|          PJN    MDE1        IF CODE NOT IN TABLE
08074  M01S06012.1ms     +++|          LDM    MDEA,T1     GET EQUIVALENT CPU ERROR CODE
08075  M01S06013.1ms     +++|          SBD    T1          MAP DRIVER CODE TO CPU CODE
08076  M01S06014.1ms     +++|          ADD    T0
08077  M01S06015.1ms     +++|          UJN    MDEX        EXIT
08078  M01S06016.1ms     +++|
08079  M01S06017.1ms     +++|
08080  M01S06018.1ms     +++|          LIST   G
Line S06019 Modification History
M01 (Added by) 1ms
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
08081  M02S06019.242l642 ---| MDEA     DEET               TABLE OF DISK ERROR EQUIVALENCES
Line S00671 Modification History
M01 (Added by) 242l642
M02 (Updated by) 1ms13
Seq #  *Modification Id* Act 
----------------------------+
08082  M02S00671.1ms13   ---| MDEA     EQU    *-1
08083  M01S00074.1ms13   +++| MDEA     CON    CEC.LN      ISHARED RETURN-ON-INACCESSIBLE DEVICE
08084  M01S00672.242l642 +++|          ECHO   1,ERRCODE=("DREC")
08085  M01S00673.242l642 +++|          CON    CEC._ERRCODE      "TXT._ERRCODE"
08086  M01S06020.1ms     +++|          LIST   *
08087  M01S06021.1ms     +++| PTL      SPACE  4,20
08088  M01S06022.1ms     +++|**        PTL - PROCESS TRACK LIMIT.
08089  M01S06023.1ms     +++|*
08090  M01S06024.1ms     +++|*         ENTRY  (EN) = ERROR NUMBER.
08091  M01S06025.1ms     +++|*                (FO) = FET OPTIONS.
08092  M01S06026.1ms     +++|*
08093  M01S06027.1ms     +++|*         EXIT   (EN) = */ERR/EFT* IF SPECIAL ERROR FLAG SET ON CP.
08094  M01S06028.1ms     +++|*                TRACK LIMIT SYSTEM EVENT ISSUED.
08095  M01S06029.1ms     +++|*                TO *MSP* IF USER PROCESSING OF TRACK LIMIT REQUESTED
08096  M01S06030.1ms     +++|*                     (AND NO SPECIAL ERROR FLAG SET ON CP).
08097  M01S06031.1ms     +++|*                TO *COC* IF NOT USER PROCESSING OF TRACK LIMIT
08098  M01S06032.1ms     +++|*                     (AND NO SPECIAL ERROR FLAG SET ON CP).
08099  M01S06033.1ms     +++|*
08100  M01S06034.1ms     +++|*         USES   CM - CM+4.
08101  M01S06035.1ms     +++|*
08102  M01S06036.1ms     +++|*         CALLS  SES.
08103  M01S06037.1ms     +++|*
08104  M01S06038.1ms     +++|*         MACROS MONITOR.
08105  M01S06039.1ms     +++|
08106  M01S06040.1ms     +++|
08107  M01S06041.1ms     +++| PTL3     LDN    /CIOERR/EFT *ERROR FLAG TERMINATION*
08108  M01S06042.1ms     +++|          STD    EN
08109  M01S06043.1ms     +++|          STM    ERRA
08110  M01S06044.1ms     +++|
08111  M01S06045.1ms     +++| PTL      SUBR               ENTRY/EXIT
08112  M01S06046.1ms     +++|          LDN    ZERL        SET TRACK LIMIT EVENT
08113  M01S06047.1ms     +++|          CRD    CM
08114  M01S06048.1ms     +++|          LDN    TKLE
08115  M01S06049.1ms     +++|          STD    CM+4
08116  M01S06050.1ms     +++|          MONITOR  EATM
08117  M01S06051.1ms     +++|          LDD    CP          CHECK ERROR FLAG
08118  M01S06052.1ms     +++|          ADN    STSW
08119  M01S06053.1ms     +++|          CRD    CM
08120  M01S06054.1ms     +++|          LDD    CM+1
08121  M01S06055.1ms     +++|          SBN    SPET
08122  M01S06056.1ms     +++|          PJN    PTL3        IF SPECIAL ERROR TYPE
08123  M01S06057.1ms     +++|          ADN    SPET-ODET
08124  M01S06058.1ms     +++|          ZJN    PTL3        IF OPERATOR DROP ERROR FLAG
08125  M01S06059.1ms     +++|          ADN    ODET-FSET
08126  M01S06060.1ms     +++|          ZJN    PTL3        IF FORCED ERROR
08127  M01S06061.1ms     +++|          ADN    FSET-TAET
08128  M01S06062.1ms     +++|          ZJN    PTL3        IF USER BREAK TWO
08129  M01S06063.1ms     +++|          ADN    TAET-TIET
08130  M01S06064.1ms     +++|          ZJN    PTL3        IF USER BREAK ONE
08131  M01S06065.1ms     +++|          LDD    FO          CHECK USER PROCESSING
08132  M01S06066.1ms     +++|          SHN    21-11
08133  M01S06067.1ms     +++|          PJN    PTL1        IF NOT USER PROCESSING
08134  M01S06068.1ms     +++|          LDC    TLME        SET TRACK LIMIT ERROR STATUS
08135  M01S06069.1ms     +++|          RJM    SES         SET ERROR STATUS
Line S06070 Modification History
M01 (Added by) 1ms
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
08136  M02S06070.242l642 ---|          LJM    MSP         COMPLETE MASS STORAGE PROCESSING
08137  M01S00674.242l642 +++|          LJM    /WMS/WMS3   COMPLETE WRITE FUNCTION
08138  M01S00428.ns22000 +++|
08139  M01S00429.ns22000 +++| PTL0     LDM    OSSM
08140  M01S00430.ns22000 +++|          ZJN    PTL0.1      IF UNSECURED SYSTEM
08141  M01S00431.ns22000 +++|          LDC    PTLB+12     SET ACCESS LEVEL MESSAGE ADDRESS
08142  M01S00432.ns22000 +++|          STD    T1
08143  M01S00433.ns22000 +++|          LDM    FSAL        GET FILE ACCESS LEVEL
08144  M01S00434.ns22000 +++|          SHN    2
08145  M01S00435.ns22000 +++|          ADC    TALV
08146  M01S00436.ns22000 +++|          RJM    ACS         MOVE ACCESS LEVEL NAME TO MESSAGE
08147  M01S00437.ns22000 +++|          LDC    =Z*.*
08148  M01S00438.ns22000 +++|          RJM    ACS
08149  M01S00439.ns22000 +++|          LDC    2R,
08150  M01S00440.ns22000 +++|          STM    PTLB+11
08151  M01S00441.ns22000 +++|          LDN    0
08152  M01S00442.ns22000 +++| PTL0.1   UJN    PTL2        WRITE CONSOLE MESSAGE
08153  M01S06071.1ms     +++|
Line S06072 Modification History
M01 (Added by) 1ms
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08154  M02S06072.ns22000 ---| PTL1     LDD    FS          SET EQUIPMENT NUMBER IN MESSAGE
Line S06073 Modification History
M01 (Added by) 1ms
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08155  M02S06073.ns22000 ---|          LPN    77
08156  M01S00443.ns22000 +++| PTL1     LDD    FS          CONVERT UPPER TWO DIGITS OF EST ORDINAL
Line S06074 Modification History
M01 (Added by) 1ms
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08157  M02S06074.ns22000 ---|          ZJN    PTL2        IF NO EQUIPMENT ASSIGNED
08158  M01S00444.ns22000 +++|          ZJN    PTL0        IF NO EQUIPMENT ASSIGNED
08159  M01S00445.ns22000 +++|          SHN    -3
08160  M01S06075.1ms     +++|          STD    T0
08161  M01S06076.1ms     +++|          SHN    3
08162  M01S06077.1ms     +++|          LMD    T0
08163  M01S06078.1ms     +++|          SCN    70
Line S06079 Modification History
M01 (Added by) 1ms
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08164  M02S06079.ns22000 ---|          RAM    PTLB+1
Line S06080 Modification History
M01 (Added by) 1ms
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08165  M02S06080.ns22000 ---|          LCN    1R.-1R
Line S06081 Modification History
M01 (Added by) 1ms
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08166  M02S06081.ns22000 ---|          RAM    PTLB-1
Line S06082 Modification History
M01 (Added by) 1ms
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08167  M02S06082.ns22000 ---|          LDC    2REQ
Line S06083 Modification History
M01 (Added by) 1ms
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08168  M02S06083.ns22000 ---| PTL2     STM    PTLB
08169  M01S00446.ns22000 +++|          RAM    PTLB+1
08170  M01S00447.ns22000 +++|          LDD    FS          CONVERT LOWER DIGIT OF EST ORDINAL
08171  M01S00448.ns22000 +++|          LPN    7
08172  M01S00449.ns22000 +++|          SHN    6
08173  M01S00450.ns22000 +++|          RAM    PTLB+2
08174  M01S00451.ns22000 +++|          LCN    3
08175  M01S00452.ns22000 +++| PTL2     ADC    PTLB+3      SET MESSAGE ADDRESS
08176  M01S00453.ns22000 +++|          STM    PTLA
08177  M01S06084.1ms     +++|          LDD    CP          WRITE CONSOLE *TRACK LIMIT* MESSAGE
08178  M01S06085.1ms     +++|          ADN    MS2W
Line S06086 Modification History
M01 (Added by) 1ms
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08179  M02S06086.ns22000 ---|          CWM    PTLA,TR
08180  M01S00454.ns22000 +++|          CWM    *,TR
08181  M01S00455.ns22000 +++| PTLA     EQU    *-1         ADDRESS OF MESSAGE
08182  M01S06087.1ms     +++|          AOM    COCA        SET RECALL STACK FLAG
08183  M01S06088.1ms     +++|          LDN    TRLR-PTLR   SET TRACK LIMIT REASON CODE
08184  M01S06089.1ms     +++|          RAM    ERSA
08185  M01S06090.1ms     +++|          LDC    TLRT        SET TRACK LIMIT RECALL TIME PERIOD
08186  M01S06091.1ms     +++|          STM    ERSB
08187  M01S06092.1ms     +++|          LJM    COC         SET UP TO ENTER RECALL STACK
08188  M01S06093.1ms     +++|
08189  M01S06094.1ms     +++|
Line S06095 Modification History
M01 (Added by) 1ms
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08190  M02S06095.ns22000 ---| PTLA     DATA   H*TRACK LIMIT.*
Line S06096 Modification History
M01 (Added by) 1ms
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08191  M02S06096.ns22000 ---| PTLB     DATA   C*EQ00.*
08192  M01S00456.ns22000 +++| PTLB     DATA   C*EQ000, TRACK LIMIT.*
Line S06097 Modification History
M01 (Added by) 1ms
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08193  M02S06097.ns22000 ---| SDS      SPACE  4,10
08194  M01S00457.ns22000 +++|          BSSZ   4           ACCESS LEVEL NAME
08195  M01S00458.ns22000 +++| SDS      SPACE  4,10
08196  M01S06098.1ms     +++|**        SDS - SET DETAILED STATUS FIELD IN FET.
08197  M01S06099.1ms     +++|*
08198  M01S06100.1ms     +++|*         ENTRY  (T1) = DETAILED STATUS.
08199  M01S06101.1ms     +++|*
08200  M01S06102.1ms     +++|*         USES   CM - CM+4.
08201  M01S06103.1ms     +++|*
08202  M01S06104.1ms     +++|*         MACROS CFET.
08203  M01S06105.1ms     +++|
08204  M01S06106.1ms     +++|
08205  M01S06107.1ms     +++| SDS      SUBR               ENTRY/EXIT
08206  M01S06108.1ms     +++|          LDM    FETL        CHECK FET LENGTH
08207  M01S06109.1ms     +++|          SBN    2
08208  M01S06110.1ms     +++|          MJN    SDSX        IF NO DETAILED STATUS FIELD IN FET
08209  M01S06111.1ms     +++|          CFET   6           SET DETAILED STATUS
08210  M01S06112.1ms     +++|          CRD    CM
08211  M01S06113.1ms     +++|          LDN    0
08212  M01S06114.1ms     +++|          STD    CM+3
08213  M01S06115.1ms     +++|          LDD    T1
08214  M01S06116.1ms     +++|          STD    CM+4
08215  M01S06117.1ms     +++|          CFET   6
08216  M01S06118.1ms     +++|          CWD    CM
08217  M01S06119.1ms     +++|          UJN    SDSX        RETURN
08218  M01S06120.1ms     +++| SES      SPACE  4,15
08219  M01S06121.1ms     +++|**        SES - SET ERROR STATUS.
08220  M01S06122.1ms     +++|*
08221  M01S06123.1ms     +++|*         ENTRY  (A)= DETAIL STATUS CODE.
08222  M01S06124.1ms     +++|*                (FC) = INTERNAL *CIO* FUNCTION CODE.
08223  M01S06125.1ms     +++|*                (FO) = FET OPTIONS.
08224  M01S06126.1ms     +++|*                (BS - BS+4) = (FET+0).
08225  M01S06127.1ms     +++|*                (DP - DP+4) = *IN* POINTER FOR READ FUNCTION.
08226  M01S06128.1ms     +++|*
08227  M01S06129.1ms     +++|*         EXIT   (A) = 0 IF ERROR PROCESSING (EP) NOT SELECTED.
08228  M01S06130.1ms     +++|*                (BS+3 - BS+4)= ERROR STATUS.
08229  M01S06131.1ms     +++|*                DETAIL STATUS SET IN BITS 0-12 OF FET+6.
08230  M01S06132.1ms     +++|*
08231  M01S06133.1ms     +++|*         USES   T0, T1, CM - CM+4.
08232  M01S06134.1ms     +++|*
08233  M01S06135.1ms     +++|*         MACROS CFET.
08234  M01S06136.1ms     +++|
08235  M01S06137.1ms     +++|
08236  M01S06138.1ms     +++| SES4     LDN    0           SET ERROR PROCESSING NOT SELECTED
08237  M01S06139.1ms     +++|
08238  M01S06140.1ms     +++| SES      SUBR               ENTRY/EXIT
Line S00675 Modification History
M01 (Added by) 242l642
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
08239  M02S00675.253l688 ---|          LPC    6017        PRESERVE ONLY DATA TO BE RETURNED TO FET
08240  M01S00052.253l688 +++|          LPC    6077        PRESERVE DATA TO BE RETURNED TO FET
08241  M01S06141.1ms     +++|          STD    T1          SAVE STATUS CODE
Line S06142 Modification History
M01 (Added by) 1ms
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
08242  M02S06142.242l642 ---|          LPN    77
Line S00676 Modification History
M01 (Added by) 242l642
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
08243  M02S00676.253l688 ---|          LPN    17
08244  M01S00053.253l688 +++|          LPN    77
08245  M01S06143.1ms     +++|          LMN    PTYE        CHECK STATUS CODE
08246  M01S06144.1ms     +++|          STD    T0          SET/CLEAR PARITY ERROR FLAG
08247  M01S06145.1ms     +++|          ZJN    SES1        IF PARITY ERROR
08248  M01S06146.1ms     +++|          LDD    T1
08249  M01S06147.1ms     +++|          LMC    TLME
08250  M01S06148.1ms     +++|          ZJN    SES2        IF TRACK LIMIT
08251  M01S06149.1ms     +++|          LDN    22-4        STATUS = 22
08252  M01S06150.1ms     +++| SES1     ADN    2           STATUS = 4
08253  M01S06151.1ms     +++| SES2     ADN    2           STATUS = 2
08254  M01S06152.1ms     +++|          SHN    11
08255  M01S06153.1ms     +++|          LMD    BS+4
08256  M01S06154.1ms     +++|          STD    BS+4
08257  M01S06155.1ms     +++|          SHN    -11-3
08258  M01S06156.1ms     +++|          LMD    BS+3
08259  M01S06157.1ms     +++|          STD    BS+3
08260  M01S06158.1ms     +++|          LDD    FO          CHECK ERROR PROCESSING SELECTED
08261  M01S06159.1ms     +++|          SHN    21-8D
08262  M01S06160.1ms     +++|          PJN    SES4        IF NOT SELECTED
08263  M01S06161.1ms     +++|          LDD    FC          GET FUNCTION CODE
08264  M01S06162.1ms     +++|          LPC    1700
08265  M01S06163.1ms     +++|          ADD    T0
08266  M01S06164.1ms     +++|          NJN    SES3        IF NOT READ PARITY ERROR
08267  M01S06165.1ms     +++|          LDD    DP+3        SAVE *IN* POINTER
08268  M01S06166.1ms     +++|          RAM    /RMS/CPRA
08269  M01S06167.1ms     +++|          LDD    DP+4
08270  M01S06168.1ms     +++|          STM    /RMS/CPRA+1
08271  M01S06169.1ms     +++| SES3     RJM    SDS         SET DETAILED STATUS
08272  M01S06170.1ms     +++|          LJM    SESX        RETURN
08273  M01S06171.1ms     +++| WEI      SPACE  4,15
08274  M01S06172.1ms     +++|**        WEI - WRITE EOI SECTOR.
08275  M01S06173.1ms     +++|*
Line S06174 Modification History
M01 (Added by) 1ms
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08276  M02S06174.ns22000 ---|*         ENTRY  (T5) = EQUIPMENT ORDINAL.
08277  M01S00459.ns22000 +++|*         ENTRY  (T5) = EST ORDINAL.
08278  M01S06175.1ms     +++|*                (T6) = TRACK WHERE ERROR OCCURED.
08279  M01S06176.1ms     +++|*                (T7) = SECTOR WHERE ERROR OCCURED.
08280  M01S06177.1ms     +++|*                (FS+1) = FIRST TRACK OF FILE.
08281  M01S06178.1ms     +++|*
08282  M01S06179.1ms     +++|*         EXIT   (FS+2) = CURRENT TRACK.
08283  M01S06180.1ms     +++|*                (FS+3) = CURRENT SECTOR.
08284  M01S06181.1ms     +++|*
Line S06182 Modification History
M01 (Added by) 1ms
M02 (Updated by) ns2090
Seq #  *Modification Id* Act 
----------------------------+
08285  M02S06182.ns2090  ---|*         USES   T3, T6, T7, CM - CM+4.
08286  M01S00193.ns2090  +++|*         USES   RC, T6, T7, CM - CM+4.
08287  M01S06183.1ms     +++|*
Line S06184 Modification History
M01 (Added by) 1ms
M02 (Updated by) ns2090
Seq #  *Modification Id* Act 
----------------------------+
08288  M02S06184.ns2090  ---|*         CALLS  SNT, /WEI/WEI.
08289  M01S00194.ns2090  +++|*         CALLS  FWB, SCF, SNT, /WEI/WEI.
08290  M01S06185.1ms     +++|*
08291  M01S06186.1ms     +++|*         MACROS ENDMS, MONITOR, SETMS.
08292  M01S06187.1ms     +++|
08293  M01S06188.1ms     +++|
08294  M01S06189.1ms     +++| WEI      SUBR               ENTRY/EXIT
08295  M01S06190.1ms     +++|          LDD    FC          CHECK FOR REWRITE
08296  M01S06191.1ms     +++|          SHN    21-12
Line S06192 Modification History
M01 (Added by) 1ms
M02 (Updated by) ns2090
Seq #  *Modification Id* Act 
----------------------------+
08297  M02S06192.ns2090  ---|          PJN    WEI0.1      IF NOT REWRITE
Line S00195 Modification History
M01 (Added by) ns2090
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
08298  M02S00195.242l642 ---|          PJN    WEI0        IF NOT REWRITE
08299  M01S00677.242l642 +++|          PJN    WEI1        IF NOT REWRITE
08300  M01S06193.1ms     +++|          LDM    /WMS/WEIA   CHECK TRACK TABLE
Line S06194 Modification History
M01 (Added by) 1ms
M02 (Updated by) ns2090
Seq #  *Modification Id* Act 
----------------------------+
08301  M02S06194.ns2090  ---|          STD    T3
08302  M01S00196.ns2090  +++|          STD    RC
08303  M01S06195.1ms     +++|          SBD    /WMS/NT
Line S06196 Modification History
M01 (Added by) 1ms
M02 (Updated by) ns2090
Seq #  *Modification Id* Act 
----------------------------+
08304  M02S06196.ns2090  ---|          MJN    WEI0.1      IF TRACK BEYOND EOI USED
Line S06197 Modification History
M01 (Added by) 1ms
M02 (Updated by) ns2090
Seq #  *Modification Id* Act 
----------------------------+
08305  M02S06197.ns2090  ---|          NJN    WEI0        IF NOT AT EOI TRACK
Line S00197 Modification History
M01 (Added by) ns2090
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
08306  M02S00197.242l642 ---|          MJP    WEI0.2      IF TRACK BEYOND EOI USED
Line S00198 Modification History
M01 (Added by) ns2090
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
08307  M02S00198.242l642 ---|          NJN    WEI0.1      IF NOT AT EOI TRACK
08308  M01S00678.242l642 +++|          MJP    WEI3        IF TRACK BEYOND EOI USED
08309  M01S00679.242l642 +++|          NJN    WEI2        IF NOT AT EOI TRACK
08310  M01S06198.1ms     +++|          LDD    T7          CHECK OLD EOI SECTOR
08311  M01S06199.1ms     +++|          SBM    /WMS/WEIB
Line S06200 Modification History
M01 (Added by) 1ms
M02 (Updated by) ns2090
Seq #  *Modification Id* Act 
----------------------------+
08312  M02S06200.ns2090  ---|          PJN    WEI0.1      IF EOI NOT INTACT
Line S06201 Modification History
M01 (Added by) 1ms
M02 (Updated by) ns2090
Seq #  *Modification Id* Act 
----------------------------+
08313  M02S06201.ns2090  ---| WEI0     LDD    T6          SET CURRENT TRACK IN FST
Line S00199 Modification History
M01 (Added by) ns2090
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
08314  M02S00199.242l642 ---| WEI0     PJN    WEI0.2      IF EOI NOT INTACT
Line S00200 Modification History
M01 (Added by) ns2090
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
08315  M02S00200.242l642 ---| WEI0.1   LDD    T6          SET CURRENT TRACK IN FST
08316  M01S00680.242l642 +++| WEI1     PJN    WEI3        IF EOI NOT INTACT
08317  M01S00681.242l642 +++| WEI2     LDD    T6          SET CURRENT TRACK IN FST
08318  M01S06202.1ms     +++|          STD    FS+2
08319  M01S06203.1ms     +++|          LDD    T7          SET CURRENT SECTOR IN FST
08320  M01S06204.1ms     +++|          STD    FS+3
08321  M01S06205.1ms     +++|          LDN    76          ONLY SET FILE WRITTEN IN FST IF REWRITE
Line S06206 Modification History
M01 (Added by) 1ms
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
08322  M02S06206.242l642 ---|          STM    MSPA
08323  M01S00682.242l642 +++|          STM    /WMS/WMSB
08324  M01S06207.1ms     +++|          LDN    1           SET FILE WRITTEN
Line S06208 Modification History
M01 (Added by) 1ms
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
08325  M02S06208.242l642 ---|          STM    MSPB
08326  M01S00683.242l642 +++|          STM    /WMS/WMSC
08327  M01S00201.ns2090  +++|          RJM    SCF         SET CONTROL BUFFER INDEX INTO FNT
08328  M01S00202.ns2090  +++|          RJM    FWB         FLUSH WRITE DATA FOR BUFFERED DEVICE
08329  M01S06209.1ms     +++|          LDM    /WMS/WEIC   CHECK TRT MODIFIED
08330  M01S06210.1ms     +++|          LPN    77
Line S06211 Modification History
M01 (Added by) 1ms
M02 (Updated by) ns2090
Seq #  *Modification Id* Act 
----------------------------+
08331  M02S06211.ns2090  ---|          ZJN    WEIX        IF NO TRT UPDATE NEEDED
08332  M01S00203.ns2090  +++|          ZJP    WEIX        IF NO TRT UPDATE NEEDED
08333  M01S06212.1ms     +++|          LDM    /WMS/WEIB   RESET OLD EOI SECTOR
08334  M01S06213.1ms     +++|          STD    CM+3
Line S06214 Modification History
M01 (Added by) 1ms
M02 (Updated by) ns2090
Seq #  *Modification Id* Act 
----------------------------+
08335  M02S06214.ns2090  ---|          LDI    T3          RESET OLD EOI TRACK
08336  M01S00204.ns2090  +++|          LDI    RC          RESET OLD EOI TRACK
Line S06215 Modification History
M01 (Added by) 1ms
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
08337  M02S06215.242l642 ---|          LJM    WEI3.1      RESET EOI IN TRT
08338  M01S00684.242l642 +++|          LJM    WEI10       RESET EOI IN TRT
08339  M01S06216.1ms     +++|
Line S06217 Modification History
M01 (Added by) 1ms
M02 (Updated by) ns2090
Seq #  *Modification Id* Act 
----------------------------+
08340  M02S06217.ns2090  ---| WEI0.1   SETMS  WRITE
Line S00205 Modification History
M01 (Added by) ns2090
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
08341  M02S00205.242l642 ---| WEI0.2   SETMS  WRITE
08342  M01S00685.242l642 +++|*         BACK UP AND WRITE AN EOI.
08343  M01S00686.242l642 +++|
Line S00687 Modification History
M01 (Added by) 242l642
M02 (Updated by) 1ms6
Seq #  *Modification Id* Act 
----------------------------+
08344  M02S00687.1ms6    ---| WEI3     SETMS  IO,NS
Line S00688 Modification History
M01 (Added by) 242l642
M02 (Updated by) 1ms6
Seq #  *Modification Id* Act 
----------------------------+
08345  M02S00688.1ms6    ---|          LDM    RDCT
08346  M01S00121.1ms6    +++| WEI3     LDD    FS+2
08347  M01S00122.1ms6    +++|          NJN    WEI3.1      IF SYSTEM SECTOR NOT WRITTEN THIS TIME
08348  M01S00123.1ms6    +++|
08349  M01S00124.1ms6    +++|*         SINCE THIS IS THE BEGINNING OF THE FILE, TRY TO START THE
08350  M01S00125.1ms6    +++|*         OPERATION OVER AGAIN USING A DIFFERENT TRACK OR DEVICE.
08351  M01S00126.1ms6    +++|
08352  M01S00127.1ms6    +++|          RJM    /WMS/RWF    REWRITE FILE
08353  M01S00128.1ms6    +++|          LJM    WEIX        RETURN
08354  M01S00129.1ms6    +++|
Line S00130 Modification History
M01 (Added by) 1ms6
M02 (Updated by) 1ms11
Seq #  *Modification Id* Act 
----------------------------+
08355  M02S00130.1ms11   ---| WEI3.1   LDM    DCSA+1
08356  M01S00001.1ms11   +++| WEI3.1   SETMS  IO,NS       RESET TO CORRECT DRIVER
08357  M01S00002.1ms11   +++|          LDM    DCSA+1
08358  M01S00689.242l642 +++|          SHN    21-10
08359  M01S00690.242l642 +++|          MJN    WEI6        IF SECTORS BUFFERED IN THE HARDWARE
08360  M01S00691.242l642 +++|
08361  M01S00692.242l642 +++|*         SINCE, FOR FULL TRACK DEVICES, THE ERROR COULD HAVE OCCURED
08362  M01S00693.242l642 +++|*         IN THE CURRENT SECTOR OR THE PREVIOUS SECTOR, BACK UP TWO
08363  M01S00694.242l642 +++|*         SECTORS AND WRITE THE EOI.
08364  M01S00695.242l642 +++|
Line S06218 Modification History
M01 (Added by) 1ms
M02 (Updated by) 1ms6
Seq #  *Modification Id* Act 
----------------------------+
08365  M02S06218.1ms6    ---|          LDD    T6          BACKSPACE 1 PRU
08366  M01S00131.1ms6    +++|          LDD    T6
08367  M01S06219.1ms     +++|          LMD    FS+1
Line S06220 Modification History
M01 (Added by) 1ms
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
08368  M02S06220.242l642 ---|          NJN    WEI1        IF NOT FIRST TRACK
08369  M01S00696.242l642 +++|          NJN    WEI4        IF NOT FIRST TRACK
08370  M01S06221.1ms     +++|          LDD    T7
Line S06222 Modification History
M01 (Added by) 1ms
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
08371  M02S06222.242l642 ---|          LMN    FSMS
Proceed to Part 6
cdc/nos2.source/opl.opl871/deck/1ms.005.txt ยท Last modified: by 127.0.0.1