User Tools

Site Tools


cdc:nos2.source:opl.opl871:deck:msm.003

Deck MSM Part 003

30 Modifications

Listing Sections

Source

Seq #  *Modification Id* Act 
----------------------------+
05032  M00S04417.msm     +++|*
Line S04418 Modification History
M01 (Removed by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
05033  M01S04418.272l774 ---|*         CALLS  CDI, CMT, LRA, SSL.
Line S00026 Modification History
M01 (Added by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
05034  M01S00026.272l774 +++|*         CALLS  CDI, CMT, SSL.
05035  M00S04419.msm     +++|*
05036  M00S04420.msm     +++|*         MACROS SFA, SMSTF.
05037  M00S04421.msm     +++|
05038  M00S04422.msm     +++|
05039  M00S04423.msm     +++| IES      SUBR               ENTRY/EXIT
Line S00001 Modification History
M01 (Added by) ns2576
Seq #  *Modification Id* Act 
----------------------------+
05040  M01S00001.ns2576  +++|          SMSTF  LPTU        PROHIBIT TRT UPDATE BY *1RU*
05041  M00S04424.msm     +++|          SFA    EST,T5      READ EST ENTRY
05042  M00S04425.msm     +++|          ADK    EQDE
05043  M00S04426.msm     +++|          CRD    FN
05044  M00S04427.msm     +++|          LDD    FN+4
05045  M00S04428.msm     +++|          SHN    3
05046  M00S04429.msm     +++|          ADN    DDLL        READ DEVICE DESCRIPTION
05047  M00S04430.msm     +++|          CRD    CN
05048  M00S04431.msm     +++|          LDD    CN          SET TOTAL UNIT COUNT
05049  M00S04432.msm     +++|          LPN    7
05050  M00S04433.msm     +++|          STD    UC
Line S04434 Modification History
M01 (Removed by) ns2768
Seq #  *Modification Id* Act 
----------------------------+
05051  M01S04434.ns2768  ---|          LDD    CN          SET UNIT COUNT = ORIGINAL UNIT COUNT
Line S04435 Modification History
M01 (Removed by) 272l774
M02 (Removed by) ns2768
Seq #  *Modification Id* Act 
----------------------------+
05052  M02S04435.ns2768  ---|          LPN    70
Line S00027 Modification History
M01 (Added by) 272l774
M02 (Removed by) ns2768
Seq #  *Modification Id* Act 
----------------------------+
05053  M02S00027.ns2768  ---|          SCN    7
Line S00013 Modification History
M01 (Added by) ns2768
Seq #  *Modification Id* Act 
----------------------------+
05054  M01S00013.ns2768  +++|          LMD    CN          SET UNIT COUNT = ORIGINAL UNIT COUNT
05055  M00S04436.msm     +++|          STD    CN
05056  M00S04437.msm     +++|          SHN    -3
Line S00028 Modification History
M01 (Added by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
05057  M01S00028.272l774 +++|          LPN    7
05058  M00S04438.msm     +++|          RAD    CN
05059  M00S04439.msm     +++|          LPN    7           CHECK UNIT COUNTS
05060  M00S04440.msm     +++|          LMD    UC
05061  M00S04441.msm     +++|          ZJN    IES1        IF NO CHANGE IN UNIT COUNT
05062  M00S04442.msm     +++|
05063  M00S04443.msm     +++|*         RESTORE EQUIPMENT TO ORIGINAL STATUS.
05064  M00S04444.msm     +++|
05065  M00S04445.msm     +++|          LDD    FN+4        RESET ORIGINAL UNIT COUNT
05066  M00S04446.msm     +++|          SHN    3
05067  M00S04447.msm     +++|          ADN    DDLL
05068  M00S04448.msm     +++|          CWD    CN
05069  M00S04449.msm     +++|          RJM    SSL         SET SECTOR LIMITS
05070  M00S04450.msm     +++| IES1     RJM    CDI         CLEAR ISD INTERLOCKS
05071  M00S04451.msm     +++|          LDD    FN+4        GET *DDLL* WORD FROM MST
05072  M00S04452.msm     +++|          SHN    3
05073  M00S04453.msm     +++|          ADN    DDLL
05074  M00S04454.msm     +++|          CRD    CN
05075  M00S04455.msm     +++|          SBN    DDLL-STLL
05076  M00S04456.msm     +++|          CRD    FS
05077  M00S04457.msm     +++|          LDD    FS+4        SAVE CHAINED EST ORDINAL
05078  M00S04458.msm     +++|          SHN    -3
05079  M00S04459.msm     +++|          STD    T7
05080  M00S04460.msm     +++|          LDD    CN          SET ORIGINAL UNIT COUNT
05081  M00S04461.msm     +++|          SHN    -3
05082  M00S04462.msm     +++|          LPN    7
05083  M00S04463.msm     +++|          STD    T4
05084  M00S04464.msm     +++| IES2     RJM    CMT         CLEAR MST PARAMETERS
05085  M00S04465.msm     +++|          LDD    T7
05086  M00S04466.msm     +++|          NJN    IES4        IF NOT END OF CHAIN
05087  M00S04467.msm     +++|          LCN    0           DISABLE *MRL* REWRITE OF RECOVERY TABLE
05088  M00S04468.msm     +++| IES3     LJM    IESX        RETURN
05089  M00S04469.msm     +++|
05090  M00S04470.msm     +++|*         CHECK NEXT EQUIPMENT IN CHAIN.
05091  M00S04471.msm     +++|
05092  M00S04472.msm     +++| IES4     STD    T5
05093  M00S04473.msm     +++|          LDD    UC
05094  M00S04474.msm     +++|          SBD    T4
05095  M00S04475.msm     +++|          SBN    1
05096  M00S04476.msm     +++|          MJN    IES3        IF NO MORE UNITS IN CHAIN
05097  M00S04477.msm     +++|          STD    UC
05098  M00S04478.msm     +++|          SFA    EST,T5      READ NEXT EST ENTRY
05099  M00S04479.msm     +++|          ADK    EQDE
05100  M00S04480.msm     +++|          CRD    FN
05101  M00S04481.msm     +++|          SMSTF  LUNL        SET LOCAL UNLOAD
05102  M00S04482.msm     +++|          LDD    T6
05103  M00S04483.msm     +++|          ZJN    IES5        IF LAST EQUIPMENT NOT GLOBALLY UNLOADED
05104  M00S04484.msm     +++|          SMSTF  GUNL        SET GLOBAL UNLOAD
05105  M00S04485.msm     +++| IES5     LJM    IES1        CHECK NEXT EQUIPMENT
05106  M00S04486.msm     +++| SSL      SPACE  4
05107  M00S04487.msm     +++|**        SSL - SET SECTOR LIMITS.
05108  M00S04488.msm     +++|*
05109  M00S04489.msm     +++|*         ENTRY  (FN - FN+4) = EST ENTRY.
05110  M00S04490.msm     +++|*
05111  M00S04491.msm     +++|*         EXIT   SECTOR LIMITS SET IN MST WORD (MDGL).
05112  M00S04492.msm     +++|*
05113  M00S04493.msm     +++|*         USES   T2, T3, CN - CN+4, CM - CM+4.
05114  M00S04494.msm     +++|
05115  M00S04495.msm     +++|
05116  M00S04496.msm     +++| SSL2     LDD    FN+4        STORE DRIVER WORD
05117  M00S04497.msm     +++|          SHN    3
05118  M00S04498.msm     +++|          ADN    MDGL
05119  M00S04499.msm     +++|          CWD    CN
05120  M00S04500.msm     +++|
05121  M00S04501.msm     +++| SSL      SUBR               ENTRY/EXIT
05122  M00S04502.msm     +++|          LDD    FN+4        READ DRIVER WORD FROM MST
05123  M00S04503.msm     +++|          SHN    3
05124  M00S04504.msm     +++|          ADN    MDGL
05125  M00S04505.msm     +++|          CRD    CN
05126  M00S04506.msm     +++|          ADN    DDLL-MDGL
05127  M00S04507.msm     +++|          CRD    CM
05128  M00S04508.msm     +++|          LDD    CM
05129  M00S04509.msm     +++|          LPN    7
05130  M00S04510.msm     +++|          STD    T2
05131  M00S04511.msm     +++|          LDD    CN+1        SET SINGLE UNIT SECTOR LIMIT
05132  M00S04512.msm     +++|          LPC    3777
05133  M00S04513.msm     +++|          STD    T3
05134  M00S04514.msm     +++|          STD    CN+4
05135  M00S04515.msm     +++|
05136  M00S04516.msm     +++|*         SET SECTOR LIMITS FOR MULTI UNIT DEVICE.
05137  M00S04517.msm     +++|
05138  M00S04518.msm     +++| SSL1     SOD    T2          DECREMENT UNIT COUNT
05139  M00S04519.msm     +++|          MJN    SSL2        IF NO MORE UNITS
05140  M00S04520.msm     +++|          LDD    T3
05141  M00S04521.msm     +++|          RAD    CN+4
05142  M00S04522.msm     +++|          UJN    SSL1
Line S04523 Modification History
M01 (Removed by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
05143  M01S04523.283l840 ---|          TITLE  MMF ROUTINES.
05144  M01S04524.283l840 ---| CDE      SPACE  4,15
05145  M01S04525.283l840 ---|          QUAL   MMF
05146  M01S04526.283l840 ---|**        CDE - CHECK DAT ENTRY.
05147  M01S04527.283l840 ---|*
05148  M01S04528.283l840 ---|*         ENTRY  (DI) = DAT INDEX FROM MST.
05149  M01S04529.283l840 ---|*                (QS) = INDEX INTO DEVICE ACCESS TABLE.
05150  M01S04530.283l840 ---|*                (T2) = ADDRESS OF DATB+11.
05151  M01S04531.283l840 ---|*                (FN - FN+4) = EST ENTRY.
05152  M01S04532.283l840 ---|*                (DATB) = DAT ENTRY.
05153  M01S04533.283l840 ---|*
05154  M01S04534.283l840 ---|*         EXIT   (A) = 0 IF NO DAT CONFLICTS.
05155  M01S04535.283l840 ---|*                (T6) = 0 IF DAT ENTRY FOR NON-SHARED DEVICE.
05156  M01S04536.283l840 ---|*                     = EXTENDED MEMORY TRACK IF SHARED DEVICE ENTRY.
05157  M01S04537.283l840 ---|*
05158  M01S04538.283l840 ---|*         EREXIT (A) = ADDRESS OF ERROR MESSAGE.
Line S00152 Modification History
M01 (Added by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
05159  M01S00152.283l840 +++|          SPACE  4,10
05160  M01S00153.283l840 +++| MBUF     EQU    *           MST BUFFER
05161  M00S04539.msm     +++|
Line S00154 Modification History
M01 (Added by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
05162  M01S00154.283l840 +++| OVLA     EQU    MBUF+5*MSTL+5  OVERLAY LOAD ADDRESS
05163  M00S04540.msm     +++|
Line S04541 Modification History
M01 (Removed by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
05164  M01S04541.283l840 ---| CDE2     LDI    T2          CHECK MACHINE ACCESS BYTE
05165  M01S04542.283l840 ---|          SHN    21-13
05166  M01S04543.283l840 ---|          MJN    CDE3        IF RECOVERY IN PROGRESS
05167  M01S04544.283l840 ---|          LDD    DI          CHECK DAT INDEX
05168  M01S04545.283l840 ---|          LMD    QS
05169  M01S04546.283l840 ---|          ZJN    CDEX        IF VALID INDEX
05170  M01S04547.283l840 ---|          LMD    QS
05171  M01S04548.283l840 ---|          ZJN    CDEX        IF NO DAT INDEX IN MST
05172  M01S04549.283l840 ---| CDE3     LDC    CSDC+3
05173  M01S04550.283l840 ---|
05174  M01S04551.283l840 ---| CDE      SUBR               ENTRY/EXIT
05175  M01S04552.283l840 ---|          LDM    DATB+4      SET ECS POINTER FOR SHARED DEVICE
05176  M01S04553.283l840 ---|          STD    T6
05177  M01S04554.283l840 ---|          SHN    11-13
05178  M01S04555.283l840 ---|          LMD    FN          MAP TRACK BIT WITH SHARE FLAG
05179  M01S04556.283l840 ---|          SHN    21-11
05180  M01S04557.283l840 ---|          PJN    CDE2        IF COMPARE
05181  M01S04558.283l840 ---|          LDD    T6
05182  M01S04559.283l840 ---|          ZJN    CDE1        IF DAT ENTRY FOR NON-SHARED DEVICE
05183  M01S04560.283l840 ---|          LDN    CSDC-CSDB
05184  M01S04561.283l840 ---| CDE1     ADC    CSDB        SET ADDRESS OF ERROR MESSAGE
05185  M01S04562.283l840 ---|          UJN    CDEX        RETURN
05186  M01S04563.283l840 ---| CSD      SPACE  4,15
05187  M01S04564.283l840 ---|**        CSD - CHECK SHARED DEVICE STATUS.
05188  M01S04565.283l840 ---|*
05189  M01S04566.283l840 ---|*         ENTRY  (EQ) = DEVICE EST ORDINAL.
05190  M01S04567.283l840 ---|*                (RS) = RECOVERY STATUS.
05191  M01S04568.283l840 ---|*                (CN - CN+4) = PF DESCRIPTOR WORD (PFGL).
05192  M01S04569.283l840 ---|*                (FN - FN+4) = EST ENTRY.
05193  M01S04570.283l840 ---|*
05194  M01S04571.283l840 ---|*         EXIT   (A) = 0 IF NO DAT CONFLICT.
05195  M01S04572.283l840 ---|*                (T2) = 0 IF DEVICE NOT DESCRIBED IN DAT.
05196  M01S04573.283l840 ---|*
05197  M01S04574.283l840 ---|*         EREXIT (A) = ADDRESS OF ERROR MESSAGE.
05198  M01S04575.283l840 ---|*
05199  M01S04576.283l840 ---|*         USES   QS, RE, T7, CM - CM+4.
05200  M01S04577.283l840 ---|*
05201  M01S04578.283l840 ---|*         CALLS  SDT, CDE, CEA.
05202  M01S04579.283l840 ---|*
05203  M01S04580.283l840 ---|*         MACROS MONITOR.
05204  M01S04581.283l840 ---|
05205  M01S04582.283l840 ---|
05206  M01S04583.283l840 ---| CSD6     LDD    MA          MOVE ENTRY TO DAT BUFFER
05207  M01S04584.283l840 ---|          CWD    CN
05208  M01S04585.283l840 ---|          CRM    DATB,ON
05209  M01S04586.283l840 ---|          LDD    DI          CHECK DAT INDEX
05210  M01S04587.283l840 ---|          ZJN    CSD7        IF NO DAT ENTRY FOR DEVICE
05211  M01S04588.283l840 ---|          STD    QS
05212  M01S04589.283l840 ---|          UJN    CSD8        DAT SLOT ASSIGNED
05213  M01S04590.283l840 ---|
05214  M01S04591.283l840 ---| CSD7     LDD    FN
05215  M01S04592.283l840 ---|          SHN    2-11
05216  M01S04593.283l840 ---|          LPN    4           MAP SHARE FLAG AS ECS TRACK REQUIRED
05217  M01S04594.283l840 ---|          RAD    RE
05218  M01S04595.283l840 ---| CSD8     LDN    0           CLEAR MACHINE ACCESS BYTE
05219  M01S04596.283l840 ---| CSD9     STM    DATB+11
05220  M01S04597.283l840 ---|
05221  M01S04598.283l840 ---| CSD      SUBR               ENTRY/EXIT
05222  M01S04599.283l840 ---|          RJM    SDT         SEARCH DEVICE ACCESS TABLE
05223  M01S04600.283l840 ---|          STD    T2
05224  M01S04601.283l840 ---|          ZJN    CSD6        IF NO ENTRY FOR NAMED DEVICE
05225  M01S04602.283l840 ---|          RJM    CDE         CHECK DAT ENTRY
05226  M01S04603.283l840 ---|          NJN    CSDX        IF DAT CONFLICT/ERROR
05227  M01S04604.283l840 ---|          STD    T7
05228  M01S04605.283l840 ---|          LDD    T6
05229  M01S04606.283l840 ---|          NJN    CSD1        IF SHARED DEVICE
05230  M01S04607.283l840 ---|          LDI    T2
05231  M01S04608.283l840 ---|          LPC    -0
05232  M01S04609.283l840 ---|          MMTE   *-1
05233  M01S04610.283l840 ---|          ZJN    CSDX        IF ACCESS BY THIS MACHINE ONLY
05234  M01S04611.283l840 ---|          LDC    CSDB
05235  M01S04612.283l840 ---|          UJN    CSDX        RETURN
05236  M01S04613.283l840 ---|
05237  M01S04614.283l840 ---| CSD1     LDI    T2          CHECK MACHINES ACCESSING DEVICE
05238  M01S04615.283l840 ---|          ZJN    CSD9        IF NO MACHINE ACCESS
05239  M01S04616.283l840 ---|          LPC    -0
05240  M01S04617.283l840 ---|          MMTE   *-1
05241  M01S04618.283l840 ---|          ADD    RS
05242  M01S04619.283l840 ---|          ZJN    CSD9        IF ACCESS BY THIS MACHINE ONLY
05243  M01S04620.283l840 ---|          SBD    RS
05244  M01S04621.283l840 ---|          LMI    T2
05245  M01S04622.283l840 ---|          ZJN    CSD2        IF NOT ACCESSED BY THIS MACHINE
05246  M01S04623.283l840 ---|          LDN    10
05247  M01S04624.283l840 ---| CSD2     ADN    2           FLAG TRT RECOVERY FROM EXTENDED MEMORY
05248  M01S04625.283l840 ---|          RAD    RE
05249  M01S04626.283l840 ---|          RJM    CEA         CONVERT EXTENDED MEMORY ADDRESS
05250  M01S04627.283l840 ---|          LDD    AL          SET CM TABLE ADDRESS
05251  M01S04628.283l840 ---|          ADK    TDGL
05252  M01S04629.283l840 ---|          STD    CM+2
05253  M01S04630.283l840 ---|          LDC    GLGL*100-100+40  SET WORD COUNT
05254  M01S04631.283l840 ---|          STD    CM+1
05255  M01S04632.283l840 ---|          LDC    RECS*1000   SUBFUNCTION = READ ECS
05256  M01S04633.283l840 ---|          RAD    CM+3
05257  M01S04634.283l840 ---|          MONITOR  ECSM      ISSUE MONITOR REQUEST
05258  M01S04635.283l840 ---|          LDD    RA          READ DRIVER WORD FROM GLOBAL MST
05259  M01S04636.283l840 ---|          SHN    6
05260  M01S04637.283l840 ---|          ADD    AL
05261  M01S04638.283l840 ---|          ADN    MDGL
05262  M01S04639.283l840 ---|          CRD    CM
05263  M01S04640.283l840 ---|          LDD    DI
05264  M01S04641.283l840 ---|          ZJN    CSD3        IF DNAP BY THIS MACHINE
05265  M01S04642.283l840 ---|          LMD    QS
05266  M01S04643.283l840 ---|          NJN    CSD4        IF DAT CONFLICT
05267  M01S04644.283l840 ---| CSD3     LDD    FN
05268  M01S04645.283l840 ---|          SCN    77
05269  M01S04646.283l840 ---|          SHN    14-10
05270  M01S04647.283l840 ---|          LMD    QS
05271  M01S04648.283l840 ---|          SHN    -1          COMPARE REMOVABLE STATUS + DAT INDEX
05272  M01S04649.283l840 ---|          LMD    CM
05273  M01S04650.283l840 ---|          LPC    4377
05274  M01S04651.283l840 ---|          ZJN    CSD5        IF NO CONFLICT
05275  M01S04652.283l840 ---| CSD4     LDC    CSDD
05276  M01S04653.283l840 ---| CSD5     LJM    CSDX        RETURN
05277  M01S04654.283l840 ---|
05278  M01S04655.283l840 ---| CSDB     DATA   4HNON-
05279  M01S04656.283l840 ---| CSDC     DATA   C*SHARED DEVICE ACTIVE IN DAT.*
05280  M01S04657.283l840 ---|
05281  M01S04658.283l840 ---| CSDD     DATA   C*REMOVABLE DEVICE CONFLICT.*
05282  M01S04659.283l840 ---| LDT      SPACE  4,15
05283  M01S04660.283l840 ---|**        LDT - LOAD DEVICE ACCESS TABLE.
05284  M01S04661.283l840 ---|*
05285  M01S04662.283l840 ---|*         ENTRY  (EL) = EXTENDED MEMORY LABEL TRACK.
05286  M01S04663.283l840 ---|*
05287  M01S04664.283l840 ---|*         EXIT   (QI) = CURRENT DAT INDEX.
05288  M01S04665.283l840 ---|*                (QT) = LAST MST/TRT TRACK ASSIGNED.
05289  M01S04666.283l840 ---|*                DEVICE ACCESS TABLE LOADED TO CM.
05290  M01S04667.283l840 ---|*
05291  M01S04668.283l840 ---|*         USES   CA+1, CM - CM+4, CN - CN+4, T2 - T7.
05292  M01S04669.283l840 ---|*
05293  M01S04670.283l840 ---|*         CALLS  CEA.
05294  M01S04671.283l840 ---|*
05295  M01S04672.283l840 ---|*         MACROS MONITOR.
05296  M01S04673.283l840 ---|
05297  M01S04674.283l840 ---|
05298  M01S04675.283l840 ---| LDT1     LDD    HN          ADVANCE EXTENDED MEMORY ADDRESS
05299  M01S04676.283l840 ---|          RAD    CN+4
05300  M01S04677.283l840 ---|          SHN    -14
05301  M01S04678.283l840 ---|          RAD    CN+3
05302  M01S04679.283l840 ---|          LDD    HN          ADVANCE CM ADDRESS
05303  M01S04680.283l840 ---|          RAD    CN+2
05304  M01S04681.283l840 ---|          SHN    -14
05305  M01S04682.283l840 ---|          RAD    CN+1
05306  M01S04683.283l840 ---| LDT2     LDD    MA          MOVE REQUEST
05307  M01S04684.283l840 ---|          CWD    CN
05308  M01S04685.283l840 ---|          CRD    CM
05309  M01S04686.283l840 ---|          MONITOR  ECSM      ISSUE REQUEST
05310  M01S04687.283l840 ---|          SOD    T5          DECREMENT BLOCK COUNT
05311  M01S04688.283l840 ---|          PJN    LDT1        IF NOT END OF DAT
05312  M01S04689.283l840 ---|
05313  M01S04690.283l840 ---| LDT      SUBR               ENTRY/EXIT
05314  M01S04691.283l840 ---|
05315  M01S04692.283l840 ---|*         RETRIEVE DAT POINTER WORD *DAET*.
05316  M01S04693.283l840 ---|
05317  M01S04694.283l840 ---|          LDM    ECLT        SET LABEL TRACK
05318  M01S04695.283l840 ---|          STD    T6
05319  M01S04696.283l840 ---|          LDN    ETLT        SET ENVIRONMENT TABLE SECTOR
05320  M01S04697.283l840 ---|          STD    T7
05321  M01S04698.283l840 ---|          RJM    CEA
05322  M01S04699.283l840 ---|          LDN    DAET        ADJUST ADDRESS TO DAT POINTER
05323  M01S04700.283l840 ---|          RAD    CM+4
05324  M01S04701.283l840 ---|          SHN    -14
05325  M01S04702.283l840 ---|          LMC    RECS*1000   SET SUBFUNCTION
05326  M01S04703.283l840 ---|          RAD    CM+3
05327  M01S04704.283l840 ---|          LDD    MA          SET CM ADDRESS
05328  M01S04705.283l840 ---|          STD    CM+2
05329  M01S04706.283l840 ---|          LDN    0
05330  M01S04707.283l840 ---|          STD    CM+1
05331  M01S04708.283l840 ---|          MONITOR  ECSM      ISSUE REQUEST
05332  M01S04709.283l840 ---|*         LDN    0
05333  M01S04710.283l840 ---|          STD    T7
05334  M01S04711.283l840 ---|          LDD    MA          READ *DAET*
05335  M01S04712.283l840 ---|          CRD    CM
05336  M01S04713.283l840 ---|          LDD    CM          SET CURRENT DAT TRACK
05337  M01S04714.283l840 ---|          STD    QT
05338  M01S04715.283l840 ---|          LDM    LDMP        GET DEVICE ALLOCATION WORD FROM MST
05339  M01S04716.283l840 ---|          SHN    3
05340  M01S04717.283l840 ---|          ADN    ALGL        DAT TRACK TO (T6)
05341  M01S04718.283l840 ---|          CRD    T6-4
05342  M01S04719.283l840 ---|          LDD    CM+4        SET DAT INDEX
05343  M01S04720.283l840 ---|          STD    QI
05344  M01S04721.283l840 ---|          SHN    -6          SET BLOCK COUNT
05345  M01S04722.283l840 ---|          STD    T5
05346  M01S04723.283l840 ---|          RJM    CEA
05347  M01S04724.283l840 ---|          LDD    CM+4        MOVE ADDRESS TO REQUEST IMAGE
05348  M01S04725.283l840 ---|          STD    CN+4
05349  M01S04726.283l840 ---|          LDD    CM+3
05350  M01S04727.283l840 ---|          LMC    RECS*1000
05351  M01S04728.283l840 ---|          STD    CN+3
05352  M01S04729.283l840 ---|          LDD    CA+1        SET CM ADDRESS
05353  M01S04730.283l840 ---|          STD    CN+2
05354  M01S04731.283l840 ---|          ADD    TH
05355  M01S04732.283l840 ---|          STD    CA+1        ADVANCE ADDRESS FOR TRT RECOVERY
05356  M01S04733.283l840 ---|          LDC    77S6+40     SET WORD COUNT FOR TRANSFER
05357  M01S04734.283l840 ---|          STD    CN+1
05358  M01S04735.283l840 ---|          LJM    LDT2        ENTER LOOP
05359  M01S04736.283l840 ---| RDE      SPACE  4,15
05360  M01S04737.283l840 ---|**        RDE - READ DAT ENTRY.
05361  M01S04738.283l840 ---|*
05362  M01S04739.283l840 ---|*         ENTRY  (EQ) = EST ORDINAL.
05363  M01S04740.283l840 ---|*                (FN - FN+4) = EST ENTRY FOR DEVICE.
05364  M01S04741.283l840 ---|*
05365  M01S04742.283l840 ---|*         EXIT   (QS) = DAT INDEX.
05366  M01S04743.283l840 ---|*                (T6) = DAT TRACK.
05367  M01S04744.283l840 ---|*                (DATB) = DAT ENTRY.
05368  M01S04745.283l840 ---|*
05369  M01S04746.283l840 ---|*         USES   RE, TS, T7, CM - CM+4.
05370  M01S04747.283l840 ---|*
05371  M01S04748.283l840 ---|*         CALLS  CEA.
05372  M01S04749.283l840 ---|*
05373  M01S04750.283l840 ---|*         MACROS MONITOR.
05374  M01S04751.283l840 ---|
05375  M01S04752.283l840 ---|
05376  M01S04753.283l840 ---| RDE      SUBR               ENTRY/EXIT
05377  M01S04754.283l840 ---|          LDD    FN+4        READ DRIVER WORD
05378  M01S04755.283l840 ---|          SHN    3
05379  M01S04756.283l840 ---|          ADN    MDGL        DAT INDEX TO (CM)
05380  M01S04757.283l840 ---|          CRD    CM
05381  M01S04758.283l840 ---|          LDC    0           SET DAT TRACK
05382  M01S04759.283l840 ---| RDEA     EQU    *-1
05383  M01S04760.283l840 ---|          STD    T6
05384  M01S04761.283l840 ---|          LDN    0
05385  M01S04762.283l840 ---|          STD    T7
05386  M01S04763.283l840 ---|          RJM    CEA
05387  M01S04764.283l840 ---|          LDD    CM          SET DAT ORDINAL FROM INDEX
05388  M01S04765.283l840 ---|          LPC    377
05389  M01S04766.283l840 ---|          SHN    1
05390  M01S04767.283l840 ---|          STD    QS
05391  M01S04768.283l840 ---|          RAD    CM+4
05392  M01S04769.283l840 ---|          SHN    -14
05393  M01S04770.283l840 ---|          LMC    RECS*1000   SET SUBFUNCTION
05394  M01S04771.283l840 ---|          RAD    CM+3
05395  M01S04772.283l840 ---|          LDD    HN          SET WORD COUNT
05396  M01S04773.283l840 ---|          STD    CM+1
05397  M01S04774.283l840 ---|          LDD    MA          CM ADDRESS = PP MESSAGE BUFFER
05398  M01S04775.283l840 ---|          STD    CM+2
05399  M01S04776.283l840 ---|          MONITOR  ECSM
05400  M01S04777.283l840 ---|          LDD    MA          READ DAT ENTRY TO PP BUFFER
05401  M01S04778.283l840 ---|          CRM    DATB,TW
05402  M01S04779.283l840 ---|          LDM    DATB+4      SET MST/TRT TRACK IN TABLE
05403  M01S04780.283l840 ---|          STD    TS
05404  M01S04781.283l840 ---|          SHN    1-13        ADD DAP STATUS IF SHARED DEVICE
05405  M01S04782.283l840 ---|          LPN    2
05406  M01S04783.283l840 ---|          RAD    RE
05407  M01S04784.283l840 ---|          LJM    RDEX        RETURN
05408  M01S04785.283l840 ---| SDT      SPACE  4,10
05409  M01S04786.283l840 ---|**        SDT - SEARCH DEVICE ACCESS TABLE.
05410  M01S04787.283l840 ---|*
05411  M01S04788.283l840 ---|*         ENTRY  (FN - FN+4) = EST ENTRY.
05412  M01S04789.283l840 ---|*                (CA+1) = CM ADDRESS (+1000) OF DAT.
05413  M01S04790.283l840 ---|*                (CN - CN+3) = DEVICE DESCRIPTION.
05414  M01S04791.283l840 ---|*                (QI) = CURRENT DAT INDEX.
05415  M01S04792.283l840 ---|*
05416  M01S04793.283l840 ---|*         EXIT   (A) = 0 IF ENTRY NOT FOUND.
05417  M01S04794.283l840 ---|*                (A) = ADDRESS OF DATB+11 IF ENTRY FOUND.
05418  M01S04795.283l840 ---|*                (QS) = INDEX INTO DEVICE ACCESS TABLE.
05419  M01S04796.283l840 ---|*                (DI) = DAT INDEX.
05420  M01S04797.283l840 ---|*
05421  M01S04798.283l840 ---|*         USES   T1, T2, DI, QS, CM - CM+4, CN+4.
05422  M01S04799.283l840 ---|
05423  M01S04800.283l840 ---|
05424  M01S04801.283l840 ---| SDT1     LDM    DATB+4
05425  M01S04802.283l840 ---|          NJN    SDT2        IF SHARED DEVICE SLOT
05426  M01S04803.283l840 ---|          LDD    T2          SAVE INDEX OF HOLE
05427  M01S04804.283l840 ---|          STD    QS
05428  M01S04805.283l840 ---| SDT2     LDD    DI
05429  M01S04806.283l840 ---|          ZJN    SDT3        IF DNAP BY THIS MACHINE
05430  M01S04807.283l840 ---|          LMD    T2
05431  M01S04808.283l840 ---|          NJN    SDT3        IF NOT AT DAT SLOT FOR DEVICE
05432  M01S04809.283l840 ---|          LDM    DATB+4      SET MST POINTER
05433  M01S04810.283l840 ---|          STD    CN+4
05434  M01S04811.283l840 ---| SDT3     LDN    2           ADVANCE INDEX
05435  M01S04812.283l840 ---|          RAD    T2
05436  M01S04813.283l840 ---|          LMD    QI
05437  M01S04814.283l840 ---|          ZJN    SDTX        IF END OF DAT ENTRIES
05438  M01S04815.283l840 ---| SDT4     LDD    RA          READ NEXT ENTRY
05439  M01S04816.283l840 ---|          SBN    10
05440  M01S04817.283l840 ---|          SHN    6
05441  M01S04818.283l840 ---|          ADD    CA+1
05442  M01S04819.283l840 ---|          ADD    T2
05443  M01S04820.283l840 ---|          CRM    DATB,TW
05444  M01S04821.283l840 ---|          LDM    DATB
05445  M01S04822.283l840 ---|          ZJN    SDT1        IF POSSIBLE HOLE
05446  M01S04823.283l840 ---|          LDN    CN
05447  M01S04824.283l840 ---|          STD    T1
05448  M01S04825.283l840 ---|
05449  M01S04826.283l840 ---|*         COMPARE ENTRY FOR MATCHING FAMILY/PACK NAME + DEVICE NUMBER.
05450  M01S04827.283l840 ---|
05451  M01S04828.283l840 ---| SDT5     LDM    DATB-CN,T1
05452  M01S04829.283l840 ---|          LMI    T1
05453  M01S04830.283l840 ---|          NJN    SDT2        IF NO MATCH
05454  M01S04831.283l840 ---|          AOD    T1
05455  M01S04832.283l840 ---|          LMN    CN+4
05456  M01S04833.283l840 ---|          NJN    SDT5        IF NOT 4 BYTES
05457  M01S04834.283l840 ---|          LDD    T2          SET INDEX TO MATCHING ENTRY
05458  M01S04835.283l840 ---|          STD    QS
05459  M01S04836.283l840 ---|          LDC    DATB+11
05460  M01S04837.283l840 ---|
05461  M01S04838.283l840 ---| SDT      SUBR               ENTRY/EXIT
05462  M01S04839.283l840 ---|          LDD    FN+4        READ MST FOR DAT INDEX
05463  M01S04840.283l840 ---|          SHN    3
05464  M01S04841.283l840 ---|          ADN    MDGL
05465  M01S04842.283l840 ---|          CRD    CM
05466  M01S04843.283l840 ---|          LDD    CM
05467  M01S04844.283l840 ---|          LPC    377         EXPAND DAT INDEX
05468  M01S04845.283l840 ---|          SHN    1
05469  M01S04846.283l840 ---|          STD    DI
05470  M01S04847.283l840 ---|          LDN    0           CLEAR SEARCH INDEX
05471  M01S04848.283l840 ---|          STD    T2
05472  M01S04849.283l840 ---|          STD    CN+4
05473  M01S04850.283l840 ---|          STD    QS
05474  M01S04851.283l840 ---|          LJM    SDT4        ENTER LOOP
05475  M01S04852.283l840 ---| SNT      SPACE  4,10
05476  M01S04853.283l840 ---|**        SNT - SET NEXT TRACK IN DAT CHAIN.
05477  M01S04854.283l840 ---|*
05478  M01S04855.283l840 ---|*         ENTRY  (A) = CURRENT TRACK.
05479  M01S04856.283l840 ---|*                (LDMP) = EXTENDED MEMORY MST POINTER.
05480  M01S04857.283l840 ---|*
05481  M01S04858.283l840 ---|*         EXIT   (A) = NEXT TRACK.
05482  M01S04859.283l840 ---|*
05483  M01S04860.283l840 ---|*         USES   T0, T1, CM - CM+4.
05484  M01S04861.283l840 ---|
05485  M01S04862.283l840 ---|
05486  M01S04863.283l840 ---| SNT      SUBR               ENTRY/EXIT
05487  M01S04864.283l840 ---|          SHN    21-1        REMOVE TRACK BIT
05488  M01S04865.283l840 ---|          LMD    TH
05489  M01S04866.283l840 ---|          STD    T0          SET WORD INDEX
05490  M01S04867.283l840 ---|          SHN    1-21
05491  M01S04868.283l840 ---|          STD    T1          SET BYTE INDEX
05492  M01S04869.283l840 ---|          LDM    LDMP        GET FWA OF TRT
05493  M01S04870.283l840 ---|          SHN    3
05494  M01S04871.283l840 ---|          ADN    TRLL
05495  M01S04872.283l840 ---|          CRD    CM
05496  M01S04873.283l840 ---|          LDD    CM+3        READ TRT WORD
05497  M01S04874.283l840 ---|          LPN    77
05498  M01S04875.283l840 ---|          SHN    14
05499  M01S04876.283l840 ---|          LMD    CM+4
05500  M01S04877.283l840 ---|          ADD    T0
05501  M01S04878.283l840 ---|          CRD    CM
05502  M01S04879.283l840 ---|          LDM    CM,T1       EXTRACT NEXT TRACK
05503  M01S04880.283l840 ---|          UJN    SNTX        RETURN
05504  M01S04881.283l840 ---| UDT      SPACE  4,10
05505  M01S04882.283l840 ---|**        UDT - UPDATE DEVICE ACCESS TABLE.
05506  M01S04883.283l840 ---|*
05507  M01S04884.283l840 ---|*         ENTRY  (RS) = RECOVERY STATUS.
05508  M01S04885.283l840 ---|*                (EQ) = EST ORDINAL.
05509  M01S04886.283l840 ---|*                (FN - FN+4) = EST ENTRY.
05510  M01S04887.283l840 ---|*                DAT ENTRY IN (DATB).
05511  M01S04888.283l840 ---|*
05512  M01S04889.283l840 ---|*         EXIT   (A) = 0 IF MST/TRT TRACK AVAILABLE.
05513  M01S04890.283l840 ---|*
05514  M01S04891.283l840 ---|*         USES   QI, QS, QT, TS, T6, T7, CM+3 - CM+7, CN - CN+4.
05515  M01S04892.283l840 ---|*
05516  M01S04893.283l840 ---|*         CALLS  SNT, WDE, CEA.
05517  M01S04894.283l840 ---|
05518  M01S04895.283l840 ---|
05519  M01S04896.283l840 ---| UDT5     LDC    UDTA        EXIT WITH (A) = MESSAGE ADDRESS
05520  M01S04897.283l840 ---|
05521  M01S04898.283l840 ---| UDT      SUBR               ENTRY/EXIT
05522  M01S04899.283l840 ---|          LDD    RS
05523  M01S04900.283l840 ---|          ZJN    UDT1        IF LEVEL 0 DS/ON LINE RECOVERY
05524  M01S04901.283l840 ---|          LDM    DATB+11     SET MACHINE ACCESS
05525  M01S04902.283l840 ---|          LPC    -0
05526  M01S04903.283l840 ---|          MMTE   *-1
05527  M01S04904.283l840 ---|          LMC    0
05528  M01S04905.283l840 ---|          MMTE   *-1
05529  M01S04906.283l840 ---|          STM    DATB+11
05530  M01S04907.283l840 ---| UDT1     LDD    RE
05531  M01S04908.283l840 ---|          LPN    2
05532  M01S04909.283l840 ---|          NJN    UDT3        IF DEVICE ACCESSED PREVIOUSLY
05533  M01S04910.283l840 ---|          LDD    QS
05534  M01S04911.283l840 ---|          NJN    UDT2        IF EMPTY SLOT IN *DAT*
05535  M01S04912.283l840 ---|          LDD    QI          SET INDEX OF ENTRY
05536  M01S04913.283l840 ---|          STD    QS
05537  M01S04914.283l840 ---|          ADN    2           ADVANCE INDEX
05538  M01S04915.283l840 ---|          STD    QI
05539  M01S04916.283l840 ---| UDT2     LDD    RE          CHECK MST/TRT TRACK REQUIRED
05540  M01S04917.283l840 ---|          LPN    4
05541  M01S04918.283l840 ---|          ZJN    UDT3        IF NOT REQUIRED
05542  M01S04919.283l840 ---|          LDD    QT          ASSIGN MST/TRT TRACK
05543  M01S04920.283l840 ---|          RJM    SNT         ADVANCE CURRENT TRACK
05544  M01S04921.283l840 ---|          ZJN    UDT5        IF END OF TRACK CHAIN
05545  M01S04922.283l840 ---|          STM    DATB+4      SET TRACK IN *DAT* ENTRY
05546  M01S04923.283l840 ---|          STD    QT
05547  M01S04924.283l840 ---| UDT3     RJM    WDE         WRITE DAT ENTRY TO ECS
05548  M01S04925.283l840 ---|          LDC    4000        FLAG RECOVERY IN PROGRESS
05549  M01S04926.283l840 ---|          RAM    DATB+11
05550  M01S04927.283l840 ---|          LDD    RA          UPDATE CM COPY OF DAT
05551  M01S04928.283l840 ---|          SBN    10
05552  M01S04929.283l840 ---|          SHN    6
05553  M01S04930.283l840 ---|          ADD    CA+1
05554  M01S04931.283l840 ---|          ADD    QS
05555  M01S04932.283l840 ---|          CWM    DATB,TW
05556  M01S04933.283l840 ---|
05557  M01S04934.283l840 ---|*         UPDATE MST.
05558  M01S04935.283l840 ---|
05559  M01S04936.283l840 ---|          LDD    FN+4        READ DRIVER WORD
05560  M01S04937.283l840 ---|          SHN    3
05561  M01S04938.283l840 ---|          ADN    MDGL
05562  M01S04939.283l840 ---|          CRD    CN
05563  M01S04940.283l840 ---|          LDN    ZERL
05564  M01S04941.283l840 ---|          CRD    CM+3
05565  M01S04942.283l840 ---|          LDM    DATB+4
05566  M01S04943.283l840 ---|          STD    TS
05567  M01S04944.283l840 ---|          STD    T6
05568  M01S04945.283l840 ---|          LDD    RE
05569  M01S04946.283l840 ---|          LPN    2
05570  M01S04947.283l840 ---|          ZJN    UDT4        IF DEVICE NOT ACCESSED PREVIOUSLY
05571  M01S04948.283l840 ---|          LDN    0
05572  M01S04949.283l840 ---|          STD    T7
05573  M01S04950.283l840 ---|          RJM    CEA         CONVERT EXTENDED MEMORY ADDRESS
05574  M01S04951.283l840 ---| UDT4     LDD    CN          SET *DAT* INDEX IN DRIVER WORD
05575  M01S04952.283l840 ---|          LPC    6000
05576  M01S04953.283l840 ---|          SHN    1
05577  M01S04954.283l840 ---|          LMD    QS
05578  M01S04955.283l840 ---|          SHN    -1
05579  M01S04956.283l840 ---|          STD    CN
05580  M01S04957.283l840 ---|          LDD    FN+4        STORE MST INFORMATION
05581  M01S04958.283l840 ---|          SHN    3
05582  M01S04959.283l840 ---|          ADN    MDGL
05583  M01S04960.283l840 ---|          CWD    CN
05584  M01S04961.283l840 ---|          SBN    MDGL-SDGL
05585  M01S04962.283l840 ---|          CWD    CM+3
05586  M01S04963.283l840 ---|          LDN    0
05587  M01S04964.283l840 ---|          LJM    UDTX        RETURN
05588  M01S04965.283l840 ---|
05589  M01S04966.283l840 ---| UDTA     DATA   C* END OF DAT TRACK CHAIN.*
05590  M01S04967.283l840 ---| WDE      SPACE  4,15
05591  M01S04968.283l840 ---|**        WDE - WRITE DAT ENTRY TO EXTENDED MEMORY.
05592  M01S04969.283l840 ---|*
05593  M01S04970.283l840 ---|*         ENTRY  (QS) = DAT INDEX.
05594  M01S04971.283l840 ---|*                DAT ENTRY IN (DATB).
05595  M01S04972.283l840 ---|*
05596  M01S04973.283l840 ---|*         EXIT   (A) = 0.
05597  M01S04974.283l840 ---|*                (T6) = DAT TRACK.
05598  M01S04975.283l840 ---|*
05599  M01S04976.283l840 ---|*         USES   T6, T7, CM - CM+4.
05600  M01S04977.283l840 ---|*
05601  M01S04978.283l840 ---|*         CALLS  CEA.
05602  M01S04979.283l840 ---|
05603  M01S04980.283l840 ---|
05604  M01S04981.283l840 ---| WDE      SUBR               ENTRY/EXIT
05605  M01S04982.283l840 ---|          LDC    0           SET DAT TRACK
05606  M01S04983.283l840 ---| WDEA     EQU    *-1
05607  M01S04984.283l840 ---|          STD    T6
05608  M01S04985.283l840 ---|          LDN    0
05609  M01S04986.283l840 ---|          STD    T7
05610  M01S04987.283l840 ---|          RJM    CEA         CONVERT EXTENDED MEMORY ADDRESS
05611  M01S04988.283l840 ---|          LDD    QS
05612  M01S04989.283l840 ---|          RAD    CM+4
05613  M01S04990.283l840 ---|          SHN    -14
05614  M01S04991.283l840 ---|          LMC    WECS*1000   SET SUBFUNCTION
05615  M01S04992.283l840 ---|          RAD    CM+3
05616  M01S04993.283l840 ---|          LDD    HN          WORD COUNT - 1 FOR TRANSFER
05617  M01S04994.283l840 ---|          STD    CM+1
05618  M01S04995.283l840 ---|          LDD    MA          SET CM ADDRESS OF ENTRY
05619  M01S04996.283l840 ---|          STD    CM+2
05620  M01S04997.283l840 ---|          CWM    DATB,TW     MOVE DAT ENTRY TO MESSAGE BUFFER
05621  M01S04998.283l840 ---|          MONITOR ECSM       WRITE DAT ENTRY TO ECS
05622  M01S04999.283l840 ---|          UJN    WDEX        RETURN
05623  M01S05000.283l840 ---|          SPACE  4,10
05624  M01S05001.283l840 ---|          QUAL   *
05625  M01S05002.283l840 ---|
05626  M01S05003.283l840 ---| LAEM     DATA   C*LOCAL AREA SECTOR ERROR.*
05627  M01S05004.283l840 ---|          SPACE  4,10
05628  M01S05005.283l840 ---| CSD      EQU    /MMF/CSD
05629  M01S05006.283l840 ---| CSDB     EQU    /MMF/CSDB
05630  M01S05007.283l840 ---| CSDC     EQU    /MMF/CSDC
05631  M01S05008.283l840 ---| LDT      EQU    /MMF/LDT
05632  M01S05009.283l840 ---| RDE      EQU    /MMF/RDE
05633  M01S05010.283l840 ---| UDT      EQU    /MMF/UDT
05634  M01S05011.283l840 ---| WDE      EQU    /MMF/WDE
05635  M01S05012.283l840 ---|
05636  M01S05013.283l840 ---| OSOV     EQU    *+5         SECONDARY OVERLAY ORIGIN
Line S00155 Modification History
M01 (Added by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
05637  M01S00155.283l840 +++| ORDC     EQU    OVLA        LOAD ADDRESS FOR *4DC*
05638  M01S00156.283l840 +++| ORDD     EQU    OVLA        LOAD ADDRESS FOR *4DD*
05639  M01S00157.283l840 +++| ORDF     EQU    OVLA        LOAD ADDRESS FOR *4DF*
05640  M00S05014.msm     +++|          SPACE  4,10
05641  M00S05015.msm     +++|*         THE FOLLOWING CODE IS OVERLAID AFTER READING THE DEVICE
05642  M00S05016.msm     +++|*         LABELS.
05643  M00S05017.msm     +++|          TITLE  LABEL PROCESSING ROUTINES.
05644  M00S05018.msm     +++| CAM      SPACE  4,15
05645  M00S05019.msm     +++|**        CAM - CHANGE ACCESS MODE.
05646  M00S05020.msm     +++|*
05647  M00S05021.msm     +++|*         ENTRY  (A) = BIAS FOR ALGORITHM INDEX.
05648  M00S05022.msm     +++|*                (AM) = 0 IF CHANGING TO HALF TRACK MODE.
05649  M00S05023.msm     +++|*                     = *AIHT* IF CHANGING TO FULL TRACK MODE.
05650  M00S05024.msm     +++|*                (EQ) = EST ORDINAL.
05651  M00S05025.msm     +++|*                (CM+2) = CHANNEL FOR ACCESS PATH CHANGE.
05652  M00S05026.msm     +++|*                (CN - CN+4) = DILL WORD OF MST.
05653  M00S05027.msm     +++|*                (FN - FN+4) = EST ENTRY.
05654  M00S05028.msm     +++|*
05655  M00S05029.msm     +++|*         USES   T0, T2, CM - CM+4.
05656  M00S05030.msm     +++|*
05657  M00S05031.msm     +++|*         CALLS  SSL.
05658  M00S05032.msm     +++|*
05659  M00S05033.msm     +++|*         MACROS MONITOR.
05660  M00S05034.msm     +++|
05661  M00S05035.msm     +++|
05662  M00S05036.msm     +++| CAM      SUBR               ENTRY/EXIT
05663  M00S05037.msm     +++|          RAD    CN+4        ADJUST ALGORITHM INDEX
05664  M00S05038.msm     +++|          LPN    77
05665  M00S05039.msm     +++|          STD    T2          EXTRACT ALGORITHM INDEX
05666  M00S05040.msm     +++|          LDD    CM+2
05667  M00S05041.msm     +++|          ZJN    CAM2        IF NO ACCESS CHANGE
05668  M00S05042.msm     +++|          LDD    AM
05669  M00S05043.msm     +++|          ZJN    CAM1        IF SWITCHING TO HALF TRACK MODE
05670  M00S05044.msm     +++|          LDN    EAPS&DAPS
05671  M00S05045.msm     +++| CAM1     LMN    DAPS        SET *SCSM* SUBFUNCTION
05672  M00S05046.msm     +++|          STD    CM+3
05673  M00S05047.msm     +++|          LDD    EQ          SET EST ORDINAL
05674  M00S05048.msm     +++|          STD    CM+1
05675  M00S05049.msm     +++|          MONITOR  SCSM      ENABLE / DISABLE HALF TRACK ACCESS
05676  M00S05050.msm     +++| CAM2     LDM    TEQM-1,T2
05677  M00S05051.msm     +++|          STD    CM+3        SET NEW MNEMONIC
05678  M00S05052.msm     +++|          STD    FN+3
05679  M00S05053.msm     +++|          LDN    SMNS        SET MNEMONIC SUBFUNCTION
05680  M00S05054.msm     +++|          STD    CM+2
05681  M00S05055.msm     +++|          LDD    EQ          CHANGE EQUIPMENT MNEMONIC
05682  M00S05056.msm     +++|          STD    CM+1
05683  M00S05057.msm     +++|          MONITOR SEQM
05684  M00S05058.msm     +++|          LDD    FN+4        READ MDGL WORD OF MST
05685  M00S05059.msm     +++|          SHN    3
05686  M00S05060.msm     +++|          ADN    MDGL
05687  M00S05061.msm     +++|          CRD    CM
05688  M00S05062.msm     +++|          LDM    TSLM-1,T2   SET SINGLE UNIT SECTOR LIMIT
05689  M00S05063.msm     +++|          STD    CM+1
05690  M00S05064.msm     +++|          LDD    FN+4        UPDATE MST
05691  M00S05065.msm     +++|          SHN    3
05692  M00S05066.msm     +++|          ADN    MDGL
05693  M00S05067.msm     +++|          CWD    CM
05694  M00S05068.msm     +++|          ADN    DILL-MDGL
05695  M00S05069.msm     +++|          CWD    CN
05696  M00S05070.msm     +++|          RJM    SSL         SET SECTOR LIMITS
05697  M00S05071.msm     +++| CAM5     LJM    CAMX        RETURN
05698  M00S05072.msm     +++|
05699  M00S05073.msm     +++|
05700  M00S05074.msm     +++| TEQM     BSS    0           TABLE OF EQUIPMENT MNEMONICS
05701  M00S05075.msm     +++|          CON    2RDI        HALF TRACK SINGLE DENSITY
05702  M00S05076.msm     +++|          CON    2RDJ        HALF TRACK DOUBLE DENSITY
05703  M00S05077.msm     +++|          CON    2RDM        HALF TRACK DOUBLE DENSITY (885)
05704  M00S05078.msm     +++|          CON    2RDK        FULL TRACK SINGLE DENSITY
05705  M00S05079.msm     +++|          CON    2RDL        FULL TRACK DOUBLE DENSITY
05706  M00S05080.msm     +++|          CON    2RDQ        FULL TRACK DOUBLE DENSITY (885)
05707  M00S05081.msm     +++|
05708  M00S05082.msm     +++|
05709  M00S05083.msm     +++| TSLM     BSS    0           TABLE OF SECTOR LIMITS
05710  M00S05084.msm     +++|          CON    SLDI+4000   HALF TRACK SINGLE DENSITY
05711  M00S05085.msm     +++|          CON    SLDJ+4000   HALF TRACK DOUBLE DENSITY
05712  M00S05086.msm     +++|          CON    SLDM+4000   HALF TRACK DOUBLE DENSITY (885)
05713  M00S05087.msm     +++|          CON    SLDK        FULL TRACK SINGLE DENSITY
05714  M00S05088.msm     +++|          CON    SLDL        FULL TRACK DOUBLE DENSITY
05715  M00S05089.msm     +++|          CON    SLDQ        FULL TRACK DOUBLE DENSITY (885)
05716  M00S05090.msm     +++| CCS      SPACE  4,10
05717  M00S05091.msm     +++|**        CCS - CHECK CHANNEL STATUS.
05718  M00S05092.msm     +++|*
05719  M00S05093.msm     +++|*         ENTRY  (A) = REQUESTED STATUS.
05720  M00S05094.msm     +++|*                (FN - FN+4) = EST ENTRY.
05721  M00S05095.msm     +++|*
05722  M00S05096.msm     +++|*         EXIT   (A) = (CM+2).
05723  M00S05097.msm     +++|*                    = 0 IF REQUESTED STATUS NOT PRESENT.
05724  M00S05098.msm     +++|*                    = CHANNEL DESCRIPTOR IF STATUS FOUND.
05725  M00S05099.msm     +++|*
05726  M00S05100.msm     +++|*         USES   T2.
05727  M00S05101.msm     +++|
05728  M00S05102.msm     +++|
05729  M00S05103.msm     +++| CCS2     LDI    CM+3        SET CHANNEL DESCRIPTOR
05730  M00S05104.msm     +++| CCS3     STD    CM+2
05731  M00S05105.msm     +++|
05732  M00S05106.msm     +++| CCS      SUBR               ENTRY/EXIT
05733  M00S05107.msm     +++|          STD    T2
05734  M00S05108.msm     +++|          LDN    FN+1        INITIALIZE FOR SCAN
05735  M00S05109.msm     +++|          STD    CM+3
05736  M00S05110.msm     +++| CCS1     LDI    CM+3        CHECK CHANNEL
05737  M00S05111.msm     +++|          SHN    0-10
05738  M00S05112.msm     +++|          SCN    6           REMOVE STATE FIELD
05739  M00S05113.msm     +++|          LMD    T2
05740  M00S05114.msm     +++|          ZJN    CCS2        IF REQUESTED STATUS PRESENT
05741  M00S05115.msm     +++|          AOD    CM+3
05742  M00S05116.msm     +++|          LMN    FN+3
05743  M00S05117.msm     +++|          NJN    CCS1        IF ANOTHER CHANNEL TO CHECK
05744  M00S05118.msm     +++|*         LDN    0
05745  M00S05119.msm     +++|          UJN    CCS3        RETURN
05746  M00S05120.msm     +++| CLE      SPACE  4,10
05747  M00S05121.msm     +++|**        CLE - CHECK LABEL ERROR.
05748  M00S05122.msm     +++|*
05749  M00S05123.msm     +++|*         ENTRY  (A) .LT. 0 IF MASS STORAGE ERROR.
05750  M00S05124.msm     +++|*                    = 1 IF ERROR IN *DIT*.
Line S05125 Modification History
M01 (Removed by) ns2547
Seq #  *Modification Id* Act 
----------------------------+
05751  M01S05125.ns2547  ---|*                (T3) = *STNV* IF NON-STANDARD LABEL READ.
05752  M00S05126.msm     +++|*
05753  M00S05127.msm     +++|*         EXIT   (A) = ERROR CODE FOR MST.
05754  M00S05128.msm     +++|*                    .LT. 0 IF FULL TRACK RETRY IN ORDER.
05755  M00S05129.msm     +++|*
05756  M00S05130.msm     +++|*         CALLS  CME.
05757  M00S05131.msm     +++|
05758  M00S05132.msm     +++|
05759  M00S05133.msm     +++| CLE1     SBN    1
05760  M00S05134.msm     +++|          ZJN    CLE2        IF ERROR IN *DIT*
Line S05135 Modification History
M01 (Removed by) ns2547
Seq #  *Modification Id* Act 
----------------------------+
05761  M01S05135.ns2547  ---|          LDD    T3
05762  M01S05136.ns2547  ---|          NJN    CLEX        IF NON-STANDARD LABEL
05763  M00S05137.msm     +++|          LCN    0
05764  M00S05138.msm     +++| CLE2     LMN    STCE        RETURN *CONFIGURATION ERROR*
05765  M00S05139.msm     +++|
05766  M00S05140.msm     +++| CLE      SUBR               ENTRY/EXIT
05767  M00S05141.msm     +++|          PJN    CLE1        IF NOT MASS STORAGE ERROR
05768  M00S05142.msm     +++|          RJM    CME
05769  M00S05143.msm     +++|          UJN    CLEX        RETURN
05770  M00S05144.msm     +++| CME      SPACE  4,15
05771  M00S05145.msm     +++|**        CME - CHECK MASS STORAGE ERROR.
05772  M00S05146.msm     +++|*
05773  M00S05147.msm     +++|*         ENTRY  (T3) = (RDCT).
05774  M00S05148.msm     +++|*                (SN) = LABEL SECTOR NUMBER.
05775  M00S05149.msm     +++|*                (FN - FN+4) = EST ENTRY.
05776  M00S05150.msm     +++|*
05777  M00S05151.msm     +++|*         EXIT   (A) = 0 IF RETRY IN ORDER.
05778  M00S05152.msm     +++|*                    = ERROR CODE FOR MST.
Line S00001 Modification History
M01 (Added by) msm36
Seq #  *Modification Id* Act 
----------------------------+
05779  M01S00001.msm36   +++|*                     .LT. 0, IF PARITY ERROR ENCOUNTERED.
05780  M00S05153.msm     +++|*                TO *CUD2* IF DRIVER DETECTED *DOWN* CONDITION.
05781  M00S05154.msm     +++|*                TO *RDL1* IF NON-REMOVABLE DEVICE NOT READY.
05782  M00S05155.msm     +++|*
05783  M00S05156.msm     +++|*         USES   CM - CM+4.
05784  M00S05157.msm     +++|*
Line S00010 Modification History
M01 (Added by) ns2547
Seq #  *Modification Id* Act 
----------------------------+
05785  M01S00010.ns2547  +++|*         CALLS  SDU.
05786  M01S00011.ns2547  +++|*
05787  M00S05158.msm     +++|*         MACROS SMSTF.
05788  M00S05159.msm     +++|
05789  M00S05160.msm     +++|
05790  M00S05161.msm     +++| CME5     LDD    FN          CHECK EQUIPMENT STATUS
Line S00001 Modification History
M01 (Added by) msm45
Seq #  *Modification Id* Act 
----------------------------+
05791  M01S00001.msm45   +++| CMEB     EQU    *-1
05792  M01S00002.msm45   +++|*         UJN    CME8        (*CMS* CALL)
05793  M00S05162.msm     +++|          SHN    21-10
05794  M00S05163.msm     +++|          PJP    RDL1        IF NON-REMOVABLE DEVICE
05795  M00S05164.msm     +++|          LDD    SN
05796  M00S05165.msm     +++|          NJN    CME7        IF NOT FIRST UNIT OF EQUIPMENT
05797  M00S05166.msm     +++|          STD    RE
Line S05167 Modification History
M01 (Removed by) ns2547
Seq #  *Modification Id* Act 
----------------------------+
05798  M01S05167.ns2547  ---| CME7     SMSTF  LUNL        SET UNLOAD REQUESTED
Line S00012 Modification History
M01 (Added by) ns2547
Seq #  *Modification Id* Act 
----------------------------+
05799  M01S00012.ns2547  +++| CME7     RJM    SDU         SET DEVICE UNLOADED
05800  M00S05168.msm     +++| CMEA     EQU    CME7
05801  M00S05169.msm     +++|*         UJN    CME8        (*CMS* CALL)
Line S05170 Modification History
M01 (Removed by) ns2547
Seq #  *Modification Id* Act 
----------------------------+
05802  M01S05170.ns2547  ---|          SMSTF  LDUL
05803  M01S05171.ns2547  ---|          LDD    FN          CHECK EQUIPMENT STATUS
05804  M01S05172.ns2547  ---|          LPN    20
05805  M01S05173.ns2547  ---|          ZJN    CME8        IF NOT INDEPENDENT SHARED DEVICE
05806  M01S05174.ns2547  ---|          SMSTF  LPTU
05807  M01S05175.ns2547  ---|          CMSTF  GPRS
05808  M00S05176.msm     +++| CME8     LDN    STNR        RETURN *NOT READY*
05809  M00S05177.msm     +++|
05810  M00S05178.msm     +++| CME      SUBR               ENTRY/EXIT
05811  M00S05179.msm     +++|          LDD    T3
05812  M00S05180.msm     +++|          ZJN    CMEX        IF FLAWED TRACK
05813  M00S05181.msm     +++|          LPN    77
05814  M00S05182.msm     +++|          LMN    NRDE
05815  M00S05183.msm     +++|          ZJN    CME5        IF NOT READY
05816  M00S05184.msm     +++|          LMN    LNRE&NRDE
05817  M00S05185.msm     +++|          ZJP    CUD2        IF DEVICE DOWN
Line S05186 Modification History
M01 (Removed by) msm36
Seq #  *Modification Id* Act 
----------------------------+
05818  M01S05186.msm36   ---|          LDN    STDE
Line S00002 Modification History
M01 (Added by) msm36
Seq #  *Modification Id* Act 
----------------------------+
05819  M01S00002.msm36   +++|          LMN    PARE&LNRE
05820  M01S00003.msm36   +++|          NJN    CME2        IF NOT A PARITY ERROR
05821  M01S00004.msm36   +++|          LCN    PARE
05822  M01S00005.msm36   +++|          UJN    CMEX        EXIT WITH ERROR STATUS
05823  M01S00006.msm36   +++|
05824  M01S00007.msm36   +++| CME2     LDN    STDE
05825  M00S05187.msm     +++|          UJN    CMEX        RETURN *DEVICE ERROR*
05826  M00S05188.msm     +++| CUC      SPACE  4,10
05827  M00S05189.msm     +++|**        CUC - COMPARE UPDATE COUNTS.
05828  M00S05190.msm     +++|*
Line S05191 Modification History
M01 (Removed by) ns2547
Seq #  *Modification Id* Act 
----------------------------+
05829  M01S05191.ns2547  ---|*         ENTRY  (T7) = SECTOR NUMBER OF LABEL READ.
Line S00013 Modification History
M01 (Added by) ns2547
Seq #  *Modification Id* Act 
----------------------------+
05830  M01S00013.ns2547  +++|*         ENTRY  (T5) = EST ORDINAL.
05831  M01S00014.ns2547  +++|*                (T7) = SECTOR NUMBER OF LABEL READ.
05832  M00S05192.msm     +++|*                (FN - FN+4) = *EQDE* WORD OF EST ENTRY.
05833  M00S05193.msm     +++|*                (BFMS) = LABEL SECTOR.
05834  M00S05194.msm     +++|*                (RUCA) = UPDATE COUNT FROM LAST TRT SECTOR.
05835  M00S05195.msm     +++|*
05836  M00S05196.msm     +++|*         EXIT   (A) = 0 IF COUNTS MATCH.
Line S00015 Modification History
M01 (Added by) ns2547
Seq #  *Modification Id* Act 
----------------------------+
05837  M01S00015.ns2547  +++|*                (RG) = 0 IF OPERATOR ENTERED *GO*.
05838  M00S05197.msm     +++|*
Line S05198 Modification History
M01 (Removed by) ns2547
Seq #  *Modification Id* Act 
----------------------------+
05839  M01S05198.ns2547  ---|*         CALLS  CLC, GAS.
Line S00016 Modification History
M01 (Added by) ns2547
Seq #  *Modification Id* Act 
----------------------------+
05840  M01S00016.ns2547  +++|*         CALLS  CLC, GAS, SOM, WOC.
05841  M00S05199.msm     +++|
05842  M00S05200.msm     +++|
05843  M00S05201.msm     +++|*         COMPARE UPDATE COUNT FROM MST WITH THAT AT END OF TRT.
05844  M00S05202.msm     +++|
05845  M00S05203.msm     +++| CUC3     LDM    N4SS+5*SDGL+2  COMPARE UPDATE COUNTS
05846  M00S05204.msm     +++|          LMM    RUCA+2
05847  M00S05205.msm     +++|          NJN    CUC2        IF NO MATCH
05848  M00S05206.msm     +++|          LDM    N4SS+5*SDGL+3
05849  M00S05207.msm     +++|          LMM    RUCA+3
05850  M00S05208.msm     +++|          NJN    CUC2        IF NON-MATCHING COUNTS
05851  M00S05209.msm     +++|          LDM    N4SS+5*SDGL+4
05852  M00S05210.msm     +++|          LMM    RUCA+4
05853  M00S05211.msm     +++|          SCN    77
05854  M00S05212.msm     +++|          NJN    CUC2        IF NON-MATCHING COUNTS
05855  M00S05213.msm     +++|          RJM    CLC
05856  M00S05214.msm     +++|          LMM    CKSS
05857  M00S05215.msm     +++|          NJN    CUC2        IF INCORRECT LABEL CHECKSUM
05858  M00S05216.msm     +++|
05859  M00S05217.msm     +++| CUC      SUBR               ENTRY/EXIT
05860  M00S05218.msm     +++|          LDD    FN
05861  M00S05219.msm     +++|          SHN    21-6
05862  M00S05220.msm     +++|          PJN    CUC1        IF DEVICE AVAILABLE
05863  M00S05221.msm     +++|          LDM    LLSS
05864  M00S05222.msm     +++|          SBN    2
05865  M00S05223.msm     +++|          PJN    CUC3        IF NEW LABEL
05866  M00S05224.msm     +++| CUC1     LDN    0
05867  M00S05225.msm     +++|          UJN    CUCX        RETURN
05868  M00S05226.msm     +++|
05869  M00S05227.msm     +++| CUC2     LDD    T7
05870  M00S05228.msm     +++|          NJN    CUCX        IF ALTERNATE LABEL
Line S00017 Modification History
M01 (Added by) ns2547
Seq #  *Modification Id* Act 
----------------------------+
05871  M01S00017.ns2547  +++|          LDC    CUCA        SET EST ORDINAL IN MESSAGE
05872  M01S00018.ns2547  +++|          RJM    SOM
05873  M01S00019.ns2547  +++|*         LDC    CUCA        WAIT ON OPERATOR INPUT
05874  M01S00020.ns2547  +++|          RJM    WOC
05875  M01S00021.ns2547  +++|          NJN    CUCX        IF OPERATOR ENTERED *PAUSE*
05876  M01S00022.ns2547  +++|          STD    RG
05877  M00S05229.msm     +++|          RJM    GAS         GET ALTERNATE LABEL SECTOR
05878  M00S05230.msm     +++|          STD    T7
05879  M00S05231.msm     +++|          LJM    RLS2        READ ALTERNATE LABEL
Line S00023 Modification History
M01 (Added by) ns2547
Seq #  *Modification Id* Act 
----------------------------+
05880  M01S00023.ns2547  +++|
05881  M01S00024.ns2547  +++|
05882  M01S00025.ns2547  +++| CUCA     DATA   C*EQXXX, TABLES INCONSISTENT.*
05883  M00S05232.msm     +++| CUD      SPACE  4,15
05884  M00S05233.msm     +++|**        CUD - CHECK UNAVAILABLE DEVICE.
05885  M00S05234.msm     +++|*
05886  M00S05235.msm     +++|*         ENTRY  (T5) = EST ORDINAL.
05887  M00S05236.msm     +++|*                (FN - FN+4) = EST ENTRY.
05888  M00S05237.msm     +++|*                (FS - FS+4) = *STLL* WORD OF MST.
05889  M00S05238.msm     +++|*
05890  M00S05239.msm     +++|*         EXIT   TO *RDLX* IF UNLOAD REQUESTED.
05891  M00S05240.msm     +++|*                          IF DEVICE OFF.
05892  M00S05241.msm     +++|*                          IF DEADSTART INITIALIZE.
05893  M00S05242.msm     +++|*
05894  M00S05243.msm     +++|*         CALLS  WMT.
05895  M00S05244.msm     +++|
05896  M00S05245.msm     +++|
05897  M00S05246.msm     +++| CUD4     LDD    FS          CHECK DEVICE STATUS
05898  M00S05247.msm     +++|          LPN    MLUNL
05899  M00S05248.msm     +++|          ZJN    CUDX        IF NO UNLOAD REQUEST
05900  M00S05249.msm     +++|          LDD    FN
05901  M00S05250.msm     +++|          SHN    21-3
05902  M00S05251.msm     +++|          MJN    CUDX        IF DEVICE ACTIVE
05903  M00S05252.msm     +++|          SHN    4+21-6
05904  M00S05253.msm     +++|          MJN    CUD3        IF DEVICE UNAVAILABLE
05905  M00S05254.msm     +++|
05906  M00S05255.msm     +++| CUD      SUBR               ENTRY/EXIT
05907  M00S05256.msm     +++|          LDD    FS
05908  M00S05257.msm     +++|          SHN    21-LIAL+LIAL/12D*12D
05909  M00S05258.msm     +++|          MJN    CUD2        IF DEADSTART INITIALIZE
05910  M00S05259.msm     +++|          LDD    FN
05911  M00S05260.msm     +++|          LPN    2
05912  M00S05261.msm     +++|          ZJN    CUD4        IF DEVICE ON
05913  M00S05262.msm     +++| CUD2     LDN    0
05914  M00S05263.msm     +++|          STD    RE          INHIBIT FURTHER PROCESSING OF DEVICE
05915  M00S05264.msm     +++| CUD3     LDC    1S12
05916  M00S05265.msm     +++|          RJM    WMT         SET LABEL NOT READ INDICATOR
Line S05266 Modification History
M01 (Removed by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
05917  M01S05266.283l840 ---|*         LDN    0
Line S00158 Modification History
M01 (Added by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
05918  M01S00158.283l840 +++|          LDN    0
05919  M00S05267.msm     +++|          LJM    RDLX        EXIT
05920  M00S05268.msm     +++| GAS      SPACE  4,10
05921  M00S05269.msm     +++|**        GAS - GET ALTERNATE LABEL SECTOR.
05922  M00S05270.msm     +++|*
05923  M00S05271.msm     +++|*         ENTRY  (FN - FN+4) = *EQDE* WORD OF EST ENTRY.
05924  M00S05272.msm     +++|*
05925  M00S05273.msm     +++|*         EXIT   (A) = ALTERNATE LABEL SECTOR.
05926  M00S05274.msm     +++|*
05927  M00S05275.msm     +++|*         USES   T1.
05928  M00S05276.msm     +++|
05929  M00S05277.msm     +++|
05930  M00S05278.msm     +++| GAS1     LDN    2           ADVANCE TABLE ADDRESS
05931  M00S05279.msm     +++|          RAD    T1
05932  M00S05280.msm     +++| GAS2     LDI    T1
05933  M00S05281.msm     +++|          ZJN    GASX        IF END OF TABLE
05934  M00S05282.msm     +++|          LMD    FN+3
05935  M00S05283.msm     +++|          NJN    GAS1        IF NOT MATCHING DEVICE MNEMONIC
05936  M00S05284.msm     +++|          LDM    1,T1
05937  M00S05285.msm     +++|
05938  M00S05286.msm     +++| GAS      SUBR               ENTRY/EXIT
05939  M00S05287.msm     +++|          LDC    TALS
05940  M00S05288.msm     +++|          STD    T1
05941  M00S05289.msm     +++|          UJN    GAS2        ENTER SEARCH LOOP
05942  M00S05290.msm     +++|
05943  M00S05291.msm     +++|
05944  M00S05292.msm     +++| TALS     BSS    0
05945  M00S05293.msm     +++|          LIST   G
05946  M00S05294.msm     +++|          TBL    "MSEQ"
05947  M00S05295.msm     +++|          LIST   *
05948  M00S05296.msm     +++|          PURGMAC  TBLM
05949  M00S05297.msm     +++|          CON    0           END OF TABLE
05950  M00S05298.msm     +++| PUE      SPACE  4,10
05951  M00S05299.msm     +++|**        PUE - PROCESS UNSECURED SYSTEM SECURITY ERROR.
05952  M00S05300.msm     +++|*
Line S05301 Modification History
M01 (Removed by) ns2547
Seq #  *Modification Id* Act 
----------------------------+
05953  M01S05301.ns2547  ---|*         ENTRY  (EQ) = EST ORDINAL.
Line S00026 Modification History
M01 (Added by) ns2547
Seq #  *Modification Id* Act 
----------------------------+
05954  M01S00026.ns2547  +++|*         ENTRY  (T5) = EST ORDINAL.
05955  M00S05302.msm     +++|*
05956  M00S05303.msm     +++|*         EXIT   (A) = 0 IF OPERATOR ENTERED *GO*.
05957  M00S05304.msm     +++|*                    .NE. 0 IF OPERATOR ENTERED *PAUSE*.
05958  M00S05305.msm     +++|*
Line S05306 Modification History
M01 (Removed by) ns2547
Seq #  *Modification Id* Act 
----------------------------+
05959  M01S05306.ns2547  ---|*         USES   T3, CM - CM+4.
05960  M01S05307.ns2547  ---|*
05961  M01S05308.ns2547  ---|*         CALLS  DFM, C2D.
Line S00027 Modification History
M01 (Added by) ns2547
Seq #  *Modification Id* Act 
----------------------------+
05962  M01S00027.ns2547  +++|*         CALLS  DFM, SOM, WOC.
Line S05309 Modification History
M01 (Removed by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
05963  M01S05309.283l840 ---|*
05964  M01S05310.283l840 ---|*         MACROS PAUSE.
05965  M00S05311.msm     +++|
05966  M00S05312.msm     +++|
05967  M00S05313.msm     +++| PUE      SUBR               ENTRY/EXIT
Line S05314 Modification History
M01 (Removed by) ns2547
Seq #  *Modification Id* Act 
----------------------------+
05968  M01S05314.ns2547  ---|          LDD    EQ          SET EST ORDINAL IN MESSAGE
05969  M01S05315.ns2547  ---|          SHN    -3
05970  M01S05316.ns2547  ---|          RJM    C2D
05971  M01S05317.ns2547  ---|          STM    PUEA+1
05972  M00S05318.msm     +++|          LDC    2RE.
05973  M00S05319.msm     +++|          STM    PUEB
05974  M00S05320.msm     +++|          LDN    0
05975  M00S05321.msm     +++|          STM    PUEB+1
Line S05322 Modification History
M01 (Removed by) ns2547
Seq #  *Modification Id* Act 
----------------------------+
05976  M01S05322.ns2547  ---|          LDD    EQ
05977  M01S05323.ns2547  ---|          LPN    7
05978  M01S05324.ns2547  ---|          SHN    6
05979  M01S05325.ns2547  ---|          ADC    2R0,
05980  M01S05326.ns2547  ---|          STM    PUEA+2
Line S00028 Modification History
M01 (Added by) ns2547
Seq #  *Modification Id* Act 
----------------------------+
05981  M01S00028.ns2547  +++|          LDC    PUEA        SET EST ORDINAL IN MESSAGE
05982  M01S00029.ns2547  +++|          RJM    SOM
05983  M00S05327.msm     +++|          LDC    PUEA+ERLN   ISSUE MESSAGE TO ERRLOG
05984  M00S05328.msm     +++|          RJM    DFM
Line S05329 Modification History
M01 (Removed by) ns2547
Seq #  *Modification Id* Act 
----------------------------+
05985  M01S05329.ns2547  ---| PUEC     LDN    0           READ SENSE SWITCH WORD
05986  M01S05330.ns2547  ---|*         LDN    NC+1        (*RMS* CALL - USE SYSTEM CP)
05987  M01S05331.ns2547  ---| PUED     LDD    CP          READ SENSE SWITCH WORD
05988  M01S05332.ns2547  ---|*         SHN    7           (*RMS* CALL - USE SYSTEM CP)
05989  M01S05333.ns2547  ---|          ADN    SNSW
05990  M01S05334.ns2547  ---|          CRD    CM
05991  M01S05335.ns2547  ---|          STD    T3
05992  M01S05336.ns2547  ---|          LDN    3           SET PAUSE FLAGS
05993  M01S05337.ns2547  ---|          STD    CM+3
05994  M01S05338.ns2547  ---|          LDD    T3
05995  M01S05339.ns2547  ---|          CWD    CM
05996  M01S05340.ns2547  ---|          ADN    MS2W-SNSW   STORE CONTROL POINT MESSAGE
05997  M01S05341.ns2547  ---|          CWM    PUEA,TR
05998  M01S05342.ns2547  ---| PUE1     LCN    0           PAUSE FOR OPERATOR ACTION
05999  M01S05343.ns2547  ---|          SBN    1
06000  M01S05344.ns2547  ---|          NJN    *-1         IF DELAY NOT COMPLETE
06001  M01S05345.ns2547  ---|          PAUSE  NE
06002  M01S05346.ns2547  ---|          LDD    T3          READ SENSE SWITCH WORD
06003  M01S05347.ns2547  ---|          CRD    CM
06004  M01S05348.ns2547  ---|          LDD    CM+3        CHECK FOR OPERATOR INPUT
06005  M01S05349.ns2547  ---|          SHN    21-1
06006  M01S05350.ns2547  ---|          MJN    PUE1        IF OPERATOR HAS NOT RESPONDED
Line S00030 Modification History
M01 (Added by) ns2547
Seq #  *Modification Id* Act 
----------------------------+
06007  M01S00030.ns2547  +++|          LDD    T8          WAIT ON OPERATOR INPUT
06008  M01S00031.ns2547  +++|          RJM    WOC
06009  M00S05351.msm     +++|          NJN    PUE2        IF OPERATOR ENTERED *PAUSE*
06010  M00S05352.msm     +++|          LCN    1R.-1R
06011  M00S05353.msm     +++|          RAM    PUEB
06012  M00S05354.msm     +++|          LDC    2RRE
06013  M00S05355.msm     +++|          STM    PUEB+1
06014  M00S05356.msm     +++|          LDC    PUEA+ERLN   ISSUE MESSAGE TO ERRLOG
06015  M00S05357.msm     +++|          RJM    DFM
06016  M00S05358.msm     +++|*         LDN    0
Line S05359 Modification History
M01 (Removed by) ns2547
Seq #  *Modification Id* Act 
----------------------------+
06017  M01S05359.ns2547  ---| PUE2     LJM    PUEX        RETURN
Line S00032 Modification History
M01 (Added by) ns2547
Seq #  *Modification Id* Act 
----------------------------+
06018  M01S00032.ns2547  +++| PUE2     UJP    PUEX        RETURN
06019  M01S00033.ns2547  +++|
06020  M00S05360.msm     +++|
06021  M00S05361.msm     +++| PUEA     DATA   20HEQXXX, SECURED DEVIC
06022  M00S05362.msm     +++| PUEB     DATA   C*E RECOVERED.*
06023  M00S05363.msm     +++| RUC      SPACE  4,15
06024  M00S05364.msm     +++|**        RUC - RETRIEVE UPDATE COUNT FROM TRT.
06025  M00S05365.msm     +++|*
06026  M00S05366.msm     +++|*         ENTRY  (T5) = EST ORDINAL.
06027  M00S05367.msm     +++|*                (T6) = LABEL TRACK.
06028  M00S05368.msm     +++|*                (T7) = LABEL SECTOR.
06029  M00S05369.msm     +++|*                (SN) = FIRST UNIT OF EQUIPMENT INDICATOR.
06030  M00S05370.msm     +++|*                (FN - FN+4) = *EQDE* WORD OF EST ENTRY.
06031  M00S05371.msm     +++|*
06032  M00S05372.msm     +++|*         EXIT   (QS) = (T7) ON ENTRY IF TRT UPDATE COUNT READ.
06033  M00S05373.msm     +++|*
06034  M00S05374.msm     +++|*         USES   CM - CM+4.
06035  M00S05375.msm     +++|*
06036  M00S05376.msm     +++|*         CALLS  RLP.
06037  M00S05377.msm     +++|
06038  M00S05378.msm     +++|
06039  M00S05379.msm     +++| RUC      SUBR               ENTRY/EXIT
06040  M00S05380.msm     +++|          LDD    FN
06041  M00S05381.msm     +++|          SHN    21-6
06042  M00S05382.msm     +++|          PJN    RUCX        IF DEVICE AVAILABLE
06043  M00S05383.msm     +++|          LDD    SN
06044  M00S05384.msm     +++|          NJN    RUCX        IF NOT FIRST UNIT OF EQUIPMENT
06045  M00S05385.msm     +++|          LDD    FN+4
06046  M00S05386.msm     +++|          SHN    3
06047  M00S05387.msm     +++|          ADK    TDGL        FETCH TRT LENGTH FROM MST
06048  M00S05388.msm     +++|          CRD    CM
06049  M00S05389.msm     +++|          LDD    T7          SAVE LABEL SECTOR
06050  M00S05390.msm     +++|          STD    QS
06051  M00S05391.msm     +++|          LDD    CM+2        CALCULATE LAST SECTOR OF TRT
06052  M00S05392.msm     +++|          SHN    -6
06053  M00S05393.msm     +++|          ADN    1           ADVANCE OVER LABEL SECTOR
06054  M00S05394.msm     +++|          RAD    T7
06055  M00S05395.msm     +++|          RJM    RLP         READ END OF TRT SECTOR
06056  M00S05396.msm     +++|          LDD    MA
06057  M00S05397.msm     +++|          CWM    BFMS+2+5*77,ON
06058  M00S05398.msm     +++|          SBN    1           SAVE MST/TRT UPDATE COUNTER
06059  M00S05399.msm     +++|          CRM    RUCA,ON
06060  M00S05400.msm     +++|          LDD    QS          RESTORE LABEL SECTOR
06061  M00S05401.msm     +++|          STD    T7
06062  M00S05402.msm     +++|          UJP    RUCX        RETURN
06063  M00S05403.msm     +++|
06064  M00S05404.msm     +++|
06065  M00S05405.msm     +++| RUCA     BSSZ   5           MST/TRT UPDATE COUNT
Line S00034 Modification History
M01 (Added by) ns2547
Seq #  *Modification Id* Act 
----------------------------+
06066  M01S00034.ns2547  +++| SDU      SPACE  4,10
06067  M01S00035.ns2547  +++|**        SDU - SET DEVICE UNLOADED.
06068  M01S00036.ns2547  +++|*
06069  M01S00037.ns2547  +++|*         ENTRY  (T5) = EST ORDINAL.
06070  M01S00038.ns2547  +++|*                (FN - FN+4) = *EQDE* WORD OF EST ENTRY.
06071  M01S00039.ns2547  +++|*
06072  M01S00040.ns2547  +++|*         MACROS CMSTF, SMSTF.
06073  M01S00041.ns2547  +++|
06074  M01S00042.ns2547  +++|
06075  M01S00043.ns2547  +++| SDU      SUBR               ENTRY/EXIT
06076  M01S00044.ns2547  +++|          LDD    FN
06077  M01S00045.ns2547  +++|          SHN    21-10
06078  M01S00046.ns2547  +++|          PJN    SDUX        IF NON-REMOVABLE DEVICE
06079  M01S00047.ns2547  +++|          SMSTF  LUNL
06080  M01S00048.ns2547  +++|          SMSTF  LDUL        SET DEVICE UNLOADED
06081  M01S00049.ns2547  +++|          LDD    FN
06082  M01S00050.ns2547  +++|          LPN    20
06083  M01S00051.ns2547  +++|          ZJN    SDUX        IF NOT INDEPENDENT SHARED DEVICE
06084  M01S00052.ns2547  +++|          SMSTF  LPTU
06085  M01S00053.ns2547  +++|          CMSTF  GPRS        CLEAR PRESET STATUS
06086  M01S00054.ns2547  +++|*         LDN    0
06087  M01S00055.ns2547  +++|          UJN    SDUX        RETURN
06088  M00S05406.msm     +++| SFT      SPACE  4,15
06089  M00S05407.msm     +++|**        SFT - SET FULL TRACK MODE.
06090  M00S05408.msm     +++|*
06091  M00S05409.msm     +++|*         ENTRY  (AM) = 0 IF UNAVAILABLE *LDAM* DEVICE.
06092  M00S05410.msm     +++|*                (T4 - T7) = MASS STORAGE PARAMETERS.
06093  M00S05411.msm     +++|*                (FN - FN+4) = EST ENTRY.
06094  M00S05412.msm     +++|*
06095  M00S05413.msm     +++|*         EXIT   TO *RDL3* IF MODE CHANGED TO FULL TRACK.
06096  M00S05414.msm     +++|*                (AM) .NE. 0 TO DISABLE REENTRY TO SUBROUTINE.
06097  M00S05415.msm     +++|*
06098  M00S05416.msm     +++|*         USES   RE, CN - CN+4.
06099  M00S05417.msm     +++|*
06100  M00S05418.msm     +++|*         CALLS  CAM, CCS.
06101  M00S05419.msm     +++|
06102  M00S05420.msm     +++|
06103  M00S05421.msm     +++| SFT      SUBR               ENTRY/EXIT
06104  M00S05422.msm     +++|          LDD    AM
Line S05423 Modification History
M01 (Removed by) msm36
Seq #  *Modification Id* Act 
----------------------------+
06105  M01S05423.msm36   ---|          ADD    T7
Line S00008 Modification History
M01 (Added by) msm36
Seq #  *Modification Id* Act 
----------------------------+
06106  M01S00008.msm36   +++|          ADD    SN
06107  M00S05424.msm     +++|          NJN    SFTX        IF CHANGE ALREADY MADE
06108  M00S05425.msm     +++|          LDD    FN+4
06109  M00S05426.msm     +++|          SHN    3
06110  M00S05427.msm     +++|          ADN    DILL        FETCH ALGORITHM INDEX WORD FROM MST
06111  M00S05428.msm     +++|          CRD    CN
06112  M00S05429.msm     +++| SFTA     LDN    0
06113  M00S05430.msm     +++|*         LDN    10          (2X PP STATUS)
06114  M00S05431.msm     +++|*         LDN    4           (4X PP STATUS)
06115  M00S05432.msm     +++|          ZJN    SFT1        IF 1X PP SPEED
06116  M00S05433.msm     +++|
06117  M00S05434.msm     +++|*         CHECK CONTROLLER CONFIGURATION.
06118  M00S05435.msm     +++|
06119  M00S05436.msm     +++|          LDN    10          LOOK FOR FULL TRACK ACCESS
06120  M00S05437.msm     +++|          RJM    CCS
06121  M00S05438.msm     +++|          NJN    SFT2        IF FULL TRACK PATH PRESENT
06122  M00S05439.msm     +++| SFT1     STD    CM+2
06123  M00S05440.msm     +++|          LDN    40          FLAG INVALID FULL TRACK ACCESS SET
06124  M00S05441.msm     +++|          RAD    RE
06125  M00S05442.msm     +++|          UJN    SFT3        CHANGE ACCESS MODE
06126  M00S05443.msm     +++|
06127  M00S05444.msm     +++| SFT2     LDN    11          CHECK FOR HALF TRACK ACCESS
06128  M00S05445.msm     +++|          RJM    CCS
06129  M00S05446.msm     +++| SFT3     LDN    AIHT        DISABLE REENTRY TO *SFT*
06130  M00S05447.msm     +++|          STD    AM
06131  M00S05448.msm     +++|          RJM    CAM         CHANGE ACCESS MODE
Line S00009 Modification History
M01 (Added by) msm36
Seq #  *Modification Id* Act 
----------------------------+
06132  M01S00009.msm36   +++|          LDN    0
06133  M01S00010.msm36   +++|          STD    T7
06134  M00S05449.msm     +++|          LJM    RDL3        SEARCH FOR LABEL IN FULL TRACK MODE
06135  M00S05450.msm     +++| SHT      SPACE  4,10
06136  M00S05451.msm     +++|**        SHT - SET HALF TRACK MODE.
06137  M00S05452.msm     +++|*
06138  M00S05453.msm     +++|*         ENTRY  (FN - FN+4) = EST ENTRY.
06139  M00S05454.msm     +++|*
06140  M00S05455.msm     +++|*         EXIT   (AM) = 0 IF UNAVAILABLE *LDAM* DEVICE.
06141  M00S05456.msm     +++|*
06142  M00S05457.msm     +++|*         USES   CM - CM+4, CN - CN+4.
06143  M00S05458.msm     +++|*
06144  M00S05459.msm     +++|*         CALLS  CAM, CCS.
06145  M00S05460.msm     +++|
06146  M00S05461.msm     +++|
06147  M00S05462.msm     +++| SHT1     AOD    AM          SET FULL TRACK STATUS
06148  M00S05463.msm     +++|
06149  M00S05464.msm     +++| SHT      SUBR               ENTRY/EXIT
06150  M00S05465.msm     +++|          LDD    FN+4        GET MST PARAMETERS
06151  M00S05466.msm     +++|          SHN    3
06152  M00S05467.msm     +++|          ADN    MDGL
06153  M00S05468.msm     +++|          CRD    CM
06154  M00S05469.msm     +++|          ADN    DILL-MDGL
06155  M00S05470.msm     +++|          CRD    CN
06156  M00S05471.msm     +++|          LDD    CM+3        SET ACCESS MODE FLAG
06157  M00S05472.msm     +++|          LMN    LA6DI
06158  M00S05473.msm     +++|          LPN    77
06159  M00S05474.msm     +++|          STD    AM
06160  M00S05475.msm     +++|          LDD    FN          ADD AVAILABLE STATUS
06161  M00S05476.msm     +++|          LPC    100
06162  M00S05477.msm     +++|          LMD    HN
06163  M00S05478.msm     +++|          RAD    AM
06164  M00S05479.msm     +++|          NJN    SHTX        IF AVAILABLE OR NOT *6DI* DRIVER
06165  M00S05480.msm     +++|          LDD    CM+1
06166  M00S05481.msm     +++|          SHN    21-13
06167  M00S05482.msm     +++|          MJN    SHTX        IF DEVICE IN HALF TRACK MODE
06168  M00S05483.msm     +++|          LDD    CN+4
06169  M00S05484.msm     +++|          LPN    77          CHECK ALGORITHM INDEX
06170  M00S05485.msm     +++|          SBN    2*AIHT+1
06171  M00S05486.msm     +++|          PJN    SHT1        IF FULL TRACK ONLY DEVICE
06172  M00S05487.msm     +++|          LDN    1           CHECK INACTIVE HALF TRACK PATH
06173  M00S05488.msm     +++|          RJM    CCS
06174  M00S05489.msm     +++|          LCN    AIHT        CHANGE ACCESS MODE
06175  M00S05490.msm     +++|          RJM    CAM
06176  M00S05491.msm     +++|          UJN    SHTX        RETURN
Line S00056 Modification History
M01 (Added by) ns2547
Seq #  *Modification Id* Act 
----------------------------+
06177  M01S00056.ns2547  +++| SOM      SPACE  4,10
06178  M01S00057.ns2547  +++|**        SOM - SET EST ORDINAL IN MESSAGE.
06179  M01S00058.ns2547  +++|*
06180  M01S00059.ns2547  +++|*         ENTRY  (A) = MESSAGE ADDRESS.
06181  M01S00060.ns2547  +++|*                (T5) = EST ORDINAL.
06182  M01S00061.ns2547  +++|*
06183  M01S00062.ns2547  +++|*         EXIT   (A) = (T8) = MESSAGE ADDRESS.
06184  M01S00063.ns2547  +++|*
06185  M01S00064.ns2547  +++|*         CALLS  C2D.
06186  M01S00065.ns2547  +++|
06187  M01S00066.ns2547  +++|
06188  M01S00067.ns2547  +++| SOM1     LDD    T8          RETURN WITH (A) = MESSAGE ADDRESS
06189  M01S00068.ns2547  +++|
06190  M01S00069.ns2547  +++| SOM      SUBR               ENTRY/EXIT
06191  M01S00070.ns2547  +++|          STD    T8
06192  M01S00071.ns2547  +++|          LDI    T8          CHECK MESSAGE FORMAT
06193  M01S00072.ns2547  +++|          LMC    2REQ
06194  M01S00073.ns2547  +++|          NJN    SOM1        IF NOT *EQXXX* MESSAGE
06195  M01S00074.ns2547  +++|          LDD    T5
06196  M01S00075.ns2547  +++|          SHN    -3          CONVERT UPPER TWO DIGITS
06197  M01S00076.ns2547  +++|          RJM    C2D
06198  M01S00077.ns2547  +++|          STM    1,T8        STORE IN MESSAGE
06199  M01S00078.ns2547  +++|          LDD    T5
06200  M01S00079.ns2547  +++|          LPN    7           EXTRACT LOW ORDER DIGIT
06201  M01S00080.ns2547  +++|          SHN    6
06202  M01S00081.ns2547  +++|          ADC    2R0,        COMPLETE ORDINAL CONVERSION
06203  M01S00082.ns2547  +++|          STM    2,T8
06204  M01S00083.ns2547  +++|          UJN    SOM1        RETURN
Line S05492 Modification History
M01 (Removed by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
06205  M01S05492.272l774 ---| RDL      SPACE  4
Line S00029 Modification History
M01 (Added by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
06206  M01S00029.272l774 +++| RDL      SPACE  4,15
06207  M00S05493.msm     +++|**        RDL - READ DEVICE LABEL.
06208  M00S05494.msm     +++|*
06209  M00S05495.msm     +++|*         ENTRY  (EQ) = (T5) = EST ORDINAL.
06210  M00S05496.msm     +++|*                (RS) = RECOVERY STATUS.
06211  M00S05497.msm     +++|*                (FN - FN+4) = EST ENTRY.
06212  M00S05498.msm     +++|*                (AL) = CM ADDRESSES FOR MSTS OF EACH UNIT.
06213  M00S05499.msm     +++|*
06214  M00S05500.msm     +++|*         EXIT   LABEL READ AND MST PLACED IN CM.
06215  M00S05501.msm     +++|*
Line S05502 Modification History
M01 (Removed by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
06216  M01S05502.272l774 ---|*         USES   T6, T7, CA, UC, SL, CM - CM+4, CN - CN+4, FS - FS+4.
Line S00030 Modification History
M01 (Added by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
06217  M01S00030.272l774 +++|*         USES   T6, T7, CA, RE, SL, UC, CM - CM+4, CN - CN+4,
06218  M01S00031.272l774 +++|*                FS - FS+4.
06219  M00S05503.msm     +++|*
Line S05504 Modification History
M01 (Removed by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
06220  M01S05504.283l840 ---|*         CALLS  CLE, CUD, PTA, RLM, RLS, SFT, SHT, SLT, SSL, WMT.
Line S00159 Modification History
M01 (Added by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
06221  M01S00159.283l840 +++|*         CALLS  CLE, CUD, PTA, RLM, RLS, SFT, SHT, SLT, SSL, WMT.
Line S05505 Modification History
M01 (Removed by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
06222  M01S05505.272l774 ---|*
06223  M01S05506.272l774 ---|*         MACROS SMSTF.
06224  M00S05507.msm     +++|
06225  M00S05508.msm     +++|
06226  M00S05509.msm     +++| RDL16    AOD    RC          ADVANCE REDEFINITION REQUESTED COUNT
06227  M00S05510.msm     +++| RDL17    LDN    0           INHIBIT FURTHER PROCESSING OF DEVICE
06228  M00S05511.msm     +++|          STD    RE
06229  M00S05512.msm     +++|
06230  M00S05513.msm     +++| RDL      SUBR               ENTRY/EXIT
06231  M00S05514.msm     +++| RDLA     RJM    SSL         SET SECTOR LIMITS
06232  M00S05515.msm     +++|*         UJN    *+2         IF CM RECOVERY OR *CMS* CALL
06233  M00S05516.msm     +++|          LDD    RE
06234  M00S05517.msm     +++|          SHN    21-4
06235  M00S05518.msm     +++|          MJN    RDLX        IF DEADSTART INITIALIZE SPECIFIED
06236  M00S05519.msm     +++|          RJM    PTA         PRESET FWA OF TRT
06237  M00S05520.msm     +++| RDL1     LDD    FN+4
06238  M00S05521.msm     +++|          SHN    3
06239  M00S05522.msm     +++|          ADN    STLL
06240  M00S05523.msm     +++|          CRD    FS
06241  M00S05524.msm     +++|          ADN    DDLL-STLL
06242  M00S05525.msm     +++|          CRD    CN
06243  M00S05526.msm     +++|          SBN    DDLL-ACGL
06244  M00S05527.msm     +++|          CRD    CM
06245  M00S05528.msm     +++|          LDD    CM+4        CHECK REDEFINITION REQUESTED
06246  M00S05529.msm     +++|          SHN    21-13
06247  M00S05530.msm     +++|          MJN    RDL16       IF REDEFINITION REQUESTED
06248  M00S05531.msm     +++|          LDD    CN          SET CURRENT UNIT COUNT
06249  M00S05532.msm     +++|          LPN    7
06250  M00S05533.msm     +++|          STD    UC
Line S05534 Modification History
M01 (Removed by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
06251  M01S05534.272l774 ---|          LMD    CN
06252  M01S05535.272l774 ---|          SCN    70          IGNORE ORIGINAL UNIT COUNT
Line S00032 Modification History
M01 (Added by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
06253  M01S00032.272l774 +++|          LDD    CN
06254  M01S00033.272l774 +++|          SHN    -11
06255  M00S05536.msm     +++|          NJN    RDL17       IF NO UNITS OR REDEFINITION IN PROGRESS
06256  M00S05537.msm     +++|          STD    T7          SET LABEL SECTOR
06257  M00S05538.msm     +++|          LDD    CN
06258  M00S05539.msm     +++|          SHN    -3
Line S00034 Modification History
M01 (Added by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
06259  M01S00034.272l774 +++|          LPN    7
06260  M00S05540.msm     +++|          SBD    UC
06261  M00S05541.msm     +++|          PJN    RDL2        IF CURRENT .LE. ORIGINAL UNIT COUNT
06262  M00S05542.msm     +++|          RAD    UC
06263  M00S05543.msm     +++| RDL2     LDD    AL          SET ADDRESS FOR LABEL MST
06264  M00S05544.msm     +++|          STD    CA
06265  M00S05545.msm     +++|          RJM    CUD         CHECK UNAVAILABLE DEVICE
Line S05546 Modification History
M01 (Removed by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
06266  M01S05546.272l774 ---|
06267  M00S05547.msm     +++|          RJM    SHT         SET HALF TRACK MODE
06268  M00S05548.msm     +++|
06269  M00S05549.msm     +++|*         READ LABEL FOR UNITS ON THIS EQUIPMENT.
06270  M00S05550.msm     +++|
06271  M00S05551.msm     +++| RDL3     LDD    FN+4        FETCH LABEL TRACK FROM MST
06272  M00S05552.msm     +++|          SHN    3
06273  M00S05553.msm     +++|          ADN    ALGL
06274  M00S05554.msm     +++|          CRD    CM
06275  M00S05555.msm     +++|          ADN    MDGL-ALGL
06276  M00S05556.msm     +++|          CRD    CN
06277  M00S05557.msm     +++|          LDD    CN+1        SET SINGLE UNIT SECTOR LIMIT
06278  M00S05558.msm     +++|          LPC    3777
06279  M00S05559.msm     +++|          STD    SL
06280  M00S05560.msm     +++|          LDD    CM+1        SET LABEL TRACK
06281  M00S05561.msm     +++|          STD    T6
06282  M00S05562.msm     +++|          ZJN    RDL8        IF LABEL TRACK UNKNOWN
06283  M00S05563.msm     +++|          ADN    1
06284  M00S05564.msm     +++|          STM    SLTA
06285  M00S05565.msm     +++| RDL7     RJM    RLS         READ LABEL SECTOR
06286  M00S05566.msm     +++|          ZJN    RDL14       IF VALID LABEL
06287  M00S05567.msm     +++|          RJM    CLE         CHECK LABEL ERROR
06288  M00S05568.msm     +++|          MJN    RDL9        IF POSSIBLE WRONG MODE
06289  M00S05569.msm     +++|          NJN    RDL14       IF ERROR STATUS FOR MST
06290  M00S05570.msm     +++|
06291  M00S05571.msm     +++|*         ERROR IN LABEL READ - TRY ANOTHER TRACK.
06292  M00S05572.msm     +++|
06293  M00S05573.msm     +++|          AOD    T6          ADVANCE TO NEXT TRACK
06294  M00S05574.msm     +++| RDL8     RJM    SLT
06295  M00S05575.msm     +++|          NJN    RDL7        IF NOT AT BAD TRACK LIMIT
06296  M00S05576.msm     +++| RDL9     RJM    SFT
06297  M00S05577.msm     +++|          LDD    RE          CHECK INCORRECT MODE CHANGE
06298  M00S05578.msm     +++|          LPN    40
06299  M00S05579.msm     +++|          ZJN    RDL10       IF MODE CHANGE LEGAL OR NONE
06300  M00S05580.msm     +++|          RJM    SHT         RESTORE HALF TRACK ACCESS
06301  M00S05581.msm     +++| RDL10    LDN    STLE        SET LABEL ERROR STATUS
06302  M00S05582.msm     +++|
06303  M00S05583.msm     +++|*         ENTER MST FROM LABEL INTO CM TABLE FOR FURTHER PROCESSING.
06304  M00S05584.msm     +++|
06305  M00S05585.msm     +++| RDL14    RJM    WMT         COPY MST TO CM TABLE
Line S00160 Modification History
M01 (Added by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
06306  M01S00160.283l840 +++|          LDD    SN
06307  M00S05586.msm     +++|          NJN    RDL15       IF NOT FIRST UNIT OF EQUIPMENT
06308  M00S05587.msm     +++| RDLC     RJM    RLM         GET LOCAL MST DATA
Line S00035 Modification History
M01 (Added by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
06309  M01S00035.272l774 +++|*         UJN    RDL15       (LEVEL 3 D/S OR *CMS* W/O D/S SEQUENCING)
06310  M00S05588.msm     +++| RDL15    LDD    SL          ADVANCE TO LABEL ON NEXT UNIT
06311  M00S05589.msm     +++|          ADD    SN
06312  M00S05590.msm     +++|          STD    T7
06313  M00S05591.msm     +++|          SOD    UC
Line S05592 Modification History
M01 (Removed by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
06314  M01S05592.283l840 ---|          PJN    RDL7        IF MORE UNITS TO CHECK
Line S00161 Modification History
M01 (Added by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
06315  M01S00161.283l840 +++|          PJP    RDL7        IF MORE UNITS TO CHECK
06316  M00S05593.msm     +++|          LDN    0
06317  M00S05594.msm     +++|          LJM    RDLX        RETURN
06318  M00S05595.msm     +++| RLM      SPACE  4
06319  M00S05596.msm     +++|**        RLM - READ LOCAL MST BLOCK.
06320  M00S05597.msm     +++|*
06321  M00S05598.msm     +++|*         ENTRY  (T6) = LABEL TRACK.
06322  M00S05599.msm     +++|*                (T7) = 0.
06323  M00S05600.msm     +++|*                (FN - FN+4) = EST ENTRY.
06324  M00S05601.msm     +++|*                (FS - FS+4) = MST STATUS WORD (STLL).
06325  M00S05602.msm     +++|*                BFMS LOADED WITH LABEL MST.
06326  M00S05603.msm     +++|*
06327  M00S05604.msm     +++|*         EREXIT TO */RMS/HNG* IF ERROR READING SECTOR OF LOCAL AREAS.
06328  M00S05605.msm     +++|*
06329  M00S05606.msm     +++|*         USES   P1, CN - CN+4.
06330  M00S05607.msm     +++|*
06331  M00S05608.msm     +++|*         CALLS  GAS, LRA, RLA, SES.
06332  M00S05609.msm     +++|
06333  M00S05610.msm     +++|
06334  M00S05611.msm     +++| RLM6     LDM    BFMS
06335  M00S05612.msm     +++|          ZJN    RLM7        IF SECTOR NOT REFORMATTED
06336  M00S05613.msm     +++|          LDN    STDE&STLE
06337  M00S05614.msm     +++| RLM7     LMN    STLE        SET ERROR STATUS IN MST
06338  M00S05615.msm     +++|          RJM    SES
06339  M00S05616.msm     +++|          AOD    RE          FLAG BAD LABEL
06340  M00S05617.msm     +++|
06341  M00S05618.msm     +++| RLM      SUBR               ENTRY/EXIT
06342  M00S05619.msm     +++|          LDD    RE
06343  M00S05620.msm     +++|          SHN    21-6
06344  M00S05621.msm     +++|          PJN    RLMX        IF EQUIPMENT AVAILABLE
06345  M00S05622.msm     +++|          SHN    6-0
06346  M00S05623.msm     +++|          MJN    RLMX        IF LABEL NOT READ
06347  M00S05624.msm     +++|          LDM    N4SS+5*ACGL+4
06348  M00S05625.msm     +++|          LPC    MGLAP
06349  M00S05626.msm     +++|          ZJN    RLMX        IF NO SECTOR OF LOCAL AREAS
06350  M00S05627.msm     +++|          LDM    N4SS+5*DULL+2  SAVE MACHINE INDEX
06351  M00S05628.msm     +++|          STD    P1
06352  M00S05629.msm     +++|          RJM    RLA         READ LOCAL AREA SECTOR
06353  M00S05630.msm     +++|          PJN    RLM3        IF NO ERROR
06354  M00S05631.msm     +++|          ADN    1
06355  M00S05632.msm     +++|          NJN    RLM1        IF SECTOR REFORMATTED
06356  M00S05633.msm     +++|          LDD    FN
06357  M00S05634.msm     +++|          SHN    21-10
06358  M00S05635.msm     +++|          MJN    RLM2        IF REMOVABLE DEVICE
Line S05636 Modification History
M01 (Removed by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
06359  M01S05636.283l840 ---| RLM1     LDC    LAEM        *LOCAL AREA SECTOR ERROR.*
Line S00162 Modification History
M01 (Added by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
06360  M01S00162.283l840 +++| RLM1     LDC    RLMC        *LOCAL AREA SECTOR ERROR.*
06361  M00S05637.msm     +++|          LJM    /RMS/HNG    DISPLAY MESSAGE AND HANG
06362  M00S05638.msm     +++| RLMA     EQU    *-1
06363  M00S05639.msm     +++|*         LJM    RLM6        (*CMS* CALL)
06364  M00S05640.msm     +++|
06365  M00S05641.msm     +++| RLM2     LDN    0
06366  M00S05642.msm     +++| RLM3     STD    T2          SET ADDRESS OF *SLA* DAYFILE DATA
06367  M00S05643.msm     +++|          LDN    ZERL
06368  M00S05644.msm     +++|          CRD    CN
06369  M00S05645.msm     +++|          CRD    CM
06370  M00S05646.msm     +++|          LDD    T2
06371  M00S05647.msm     +++|          ZJN    RLM4        IF NO ENTRY OR REMOVABLE DEVICE
06372  M00S05648.msm     +++|          LDM    4,T3        EXTRACT ACTIVE USER COUNT
06373  M00S05649.msm     +++|          STD    FS+3
06374  M00S05650.msm     +++|          LDM    1,T3        MOVE SYSTEM TABLE TRACK
06375  M00S05651.msm     +++|          STD    CM+3
06376  M00S05652.msm     +++|          LDM    3,T3        MOVE FAMILY COUNT
06377  M00S05653.msm     +++|          STD    CM+4
06378  M00S05654.msm     +++|          LDD    T3          SET ADDRESS OF ENTRY
06379  M00S05655.msm     +++|          SBN    CN-5
06380  M00S05656.msm     +++| RLM4     ADN    CN
06381  M00S05657.msm     +++|          STM    RLMB
06382  M00S05658.msm     +++|          LDD    FS+1        CLEAR ERROR STATUS
06383  M00S05659.msm     +++|          SCN    77
06384  M00S05660.msm     +++|          STD    FS+1
06385  M00S05661.msm     +++|          LDD    P1
06386  M00S05662.msm     +++|          STD    CM+2
06387  M00S05663.msm     +++|          RJM    GAS         SET ALTERNATE LABEL SECTOR
06388  M00S05664.msm     +++|          STD    CM
06389  M00S05665.msm     +++|          RJM    LRA         LOAD REFERENCE ADDRESS
06390  M00S05666.msm     +++|          ADD    AL
06391  M00S05667.msm     +++|          ADN    DALL
06392  M00S05668.msm     +++|          CWM    *,ON
06393  M00S05669.msm     +++| RLMB     EQU    *-1
06394  M00S05670.msm     +++|          ADN    DULL-DALL-1
06395  M00S05671.msm     +++|          CWD    CM
06396  M00S05672.msm     +++|          ADN    STLL-DULL
06397  M00S05673.msm     +++|          CWD    FS
06398  M00S05674.msm     +++|          LJM    RLMX        RETURN
Line S00163 Modification History
M01 (Added by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
06399  M01S00163.283l840 +++|
06400  M01S00164.283l840 +++|
06401  M01S00165.283l840 +++| RLMC     DATA   C*LOCAL AREA SECTOR ERROR.*
06402  M00S05675.msm     +++| RLS      SPACE  4
06403  M00S05676.msm     +++|**        RLS - READ LABEL SECTOR.
06404  M00S05677.msm     +++|*
06405  M00S05678.msm     +++|*         ENTRY  (T6) = TRACK.
06406  M00S05679.msm     +++|*                (T7) = SECTOR.
06407  M00S05680.msm     +++|*                (FN - FN+4) = EST ENTRY.
06408  M00S05681.msm     +++|*                (FS - FS+4) = *STLL* WORD OF MST.
06409  M00S05682.msm     +++|*
06410  M00S05683.msm     +++|*         EXIT   (A) = 0 IF VALID LABEL.
06411  M00S05684.msm     +++|*                (A) .LT. 0 IF MS ERROR.
06412  M00S05685.msm     +++|*                (A) .GT. 0 IF INCORRECT LABEL.
06413  M00S05686.msm     +++|*                (A) = 1 IF ERROR IN *DIT*.
06414  M00S05687.msm     +++|*                (T3) = ERROR CODE IF (A) .LT. 0.
06415  M00S05688.msm     +++|*                (SN) = LABEL SECTOR NUMBER.
06416  M00S05689.msm     +++|*                TO *CUD2* IF DEVICE INACCESSIBLE.
06417  M00S05690.msm     +++|*
Line S05691 Modification History
M01 (Removed by) ns2547
Seq #  *Modification Id* Act 
----------------------------+
06418  M01S05691.ns2547  ---|*         USES   EC, P1, T1, T2, T3, CM - CM+4, CN - CN+4.
Line S00084 Modification History
M01 (Added by) ns2547
Seq #  *Modification Id* Act 
----------------------------+
06419  M01S00084.ns2547  +++|*         USES   EC, P1, P2, RG, T1, T2, T3, CM - CM+4, CN - CN+4.
06420  M00S05692.msm     +++|*
Line S05693 Modification History
M01 (Removed by) ns2547
Seq #  *Modification Id* Act 
----------------------------+
06421  M01S05693.ns2547  ---|*         CALLS  CDA, CLC, CMI, RDS, SDT, WDS.
Line S00085 Modification History
M01 (Added by) ns2547
Seq #  *Modification Id* Act 
----------------------------+
06422  M01S00085.ns2547  +++|*         CALLS  CDA, CDC, CMI, RDS, SDT, SDU, SOM, WDS.
06423  M00S05694.msm     +++|*
Line S05695 Modification History
M01 (Removed by) msm43
Seq #  *Modification Id* Act 
----------------------------+
06424  M01S05695.msm43   ---|*         MACROS DELAY, ENDMS, SETMS.
Line S00001 Modification History
M01 (Added by) msm43
Seq #  *Modification Id* Act 
----------------------------+
06425  M01S00001.msm43   +++|*         MACROS DELAY, ENDMS, MONITOR, SETMS.
06426  M00S05696.msm     +++|
06427  M00S05697.msm     +++|
Line S05698 Modification History
M01 (Removed by) ns2547
Seq #  *Modification Id* Act 
----------------------------+
06428  M01S05698.ns2547  ---| RLP2     LDM    FNSS        CHECK FILE NAME FIELD
Line S00086 Modification History
M01 (Added by) ns2547
Seq #  *Modification Id* Act 
----------------------------+
06429  M01S00086.ns2547  +++| RLP2     LDD    T7          CHECK SECTOR NUMBER
06430  M01S00087.ns2547  +++|          LMK    LSLT
06431  M01S00088.ns2547  +++|          NJN    RLP3        IF NOT PRIMARY LABEL SECTOR
06432  M01S00089.ns2547  +++|          LDM    N4SS+5*SDGL+4
06433  M01S00090.ns2547  +++|          LPN    77
06434  M01S00091.ns2547  +++|          SHN    -1          EXTRACT SOFTWARE RESERVE
06435  M01S00092.ns2547  +++|          STD    P2
06436  M01S00093.ns2547  +++| RLP3     LDM    FNSS        CHECK FILE NAME FIELD
06437  M00S05699.msm     +++|          LMC    3777
06438  M00S05700.msm     +++|
06439  M00S05701.msm     +++| RLP      SUBR               ENTRY/EXIT
06440  M00S05702.msm     +++|          LDC    BFMS
06441  M00S05703.msm     +++|          RJM    RDS         READ LABEL SECTOR
06442  M00S05704.msm     +++|          STD    T3
06443  M00S05705.msm     +++|          PJN    RLP2        IF NO MASS STORAGE ERROR
06444  M00S05706.msm     +++| RLP1     ENDMS
06445  M00S05707.msm     +++|          LDC    1S17        SET ERROR FLAG
06446  M00S05708.msm     +++|          LMD    T3
06447  M00S05709.msm     +++|*         UJN    RLSX        EXIT
06448  M00S05710.msm     +++|
06449  M00S05711.msm     +++| RLS      SUBR               ENTRY/EXIT
06450  M00S05712.msm     +++|          LDD    T7
06451  M00S05713.msm     +++|          STD    SN          SAVE LABEL SECTOR NUMBER
06452  M00S05714.msm     +++|
06453  M00S05715.msm     +++|*         READ SECTOR.
06454  M00S05716.msm     +++|
Line S05717 Modification History
M01 (Removed by) ns2632
Seq #  *Modification Id* Act 
----------------------------+
06455  M01S05717.ns2632  ---| RLS1     SETMS  IO,(DF,ND,NR)
Line S00001 Modification History
M01 (Added by) ns2632
Seq #  *Modification Id* Act 
----------------------------+
06456  M01S00001.ns2632  +++| RLS1     SETMS  IO,(DF,ND,NR,RR)
Line S05718 Modification History
M01 (Removed by) ns2776
Seq #  *Modification Id* Act 
----------------------------+
06457  M01S05718.ns2776  ---|          NJP    CUD2        IF DEVICE INACCESSIBLE
Line S00004 Modification History
M01 (Added by) ns2776
Seq #  *Modification Id* Act 
----------------------------+
06458  M01S00004.ns2776  +++|          LDM    MSD         RETURN STATUS TO CALLER
06459  M01S00005.ns2776  +++|          SHN    21-6
06460  M01S00006.ns2776  +++|          MJP    CUD2        IF DEVICE INACCESSIBLE
Line S00094 Modification History
M01 (Added by) ns2547
Seq #  *Modification Id* Act 
----------------------------+
06461  M01S00094.ns2547  +++|          LDN    1
06462  M01S00095.ns2547  +++|          STD    RG
06463  M00S05719.msm     +++| RLS2     RJM    RUC         RETRIEVE UPDATE COUNT
06464  M00S05720.msm     +++|          RJM    RLP         READ LABEL
06465  M00S05721.msm     +++|          ZJN    RLP1        IF FLAWED TRACK
06466  M00S05722.msm     +++|
06467  M00S05723.msm     +++|*         CHECK CONTENTS OF LABEL.
06468  M00S05724.msm     +++|
06469  M00S05725.msm     +++|          LDM    BFMS        CHECK CONTROL BYTES
06470  M00S05726.msm     +++|          LMC    3777
06471  M00S05727.msm     +++|          NJN    RLS5        IF INCORRECT SYSTEM SECTOR LINKAGE
06472  M00S05728.msm     +++|          LDM    BFMS+1
06473  M00S05729.msm     +++|          LMN    77
Line S05730 Modification History
M01 (Removed by) ns2547
Seq #  *Modification Id* Act 
----------------------------+
06474  M01S05730.ns2547  ---|          NJN    RLS5        IF NOT PROPER WORD COUNT
06475  M01S05731.ns2547  ---|          LDM    FTSS
06476  M01S05732.ns2547  ---|          LMD    T6
06477  M01S05733.ns2547  ---|          ZJN    RLS7        IF PROPER TRACK
Line S00096 Modification History
M01 (Added by) ns2547
Seq #  *Modification Id* Act 
----------------------------+
06478  M01S00096.ns2547  +++|          ZJN    RLS7        IF PROPER WORD COUNT
06479  M00S05734.msm     +++| RLS5     ENDMS
06480  M00S05735.msm     +++|          LDN    2           INDICATE INCORRECT LABEL
06481  M00S05736.msm     +++|          UJP    RLSX        RETURN
06482  M00S05737.msm     +++|
Line S05738 Modification History
M01 (Removed by) ns2547
Seq #  *Modification Id* Act 
----------------------------+
06483  M01S05738.ns2547  ---| RLS7     LDD    FN+3
Line S00097 Modification History
M01 (Added by) ns2547
Seq #  *Modification Id* Act 
----------------------------+
06484  M01S00097.ns2547  +++| RLS7     LDM    FTSS        CHECK LABEL TRACK
06485  M01S00098.ns2547  +++|          LMD    T6
06486  M01S00099.ns2547  +++|          NJN    RLS5        IF INCORRECT TRACK
06487  M01S00100.ns2547  +++|          LDD    FN+3
06488  M00S05739.msm     +++|          LMC    2RDE
06489  M00S05740.msm     +++|          ZJN    RLS10       IF ECS
06490  M00S05741.msm     +++|          LMN    1RP&1RE
06491  M00S05742.msm     +++|          ZJN    RLS10       IF DDP
06492  M00S05743.msm     +++|          LDM    E4SS
06493  M00S05744.msm     +++|          LMD    FN+3
06494  M00S05745.msm     +++|          NJN    RLS5        IF NO MATCH ON DEVICE MNEMONIC
06495  M00S05746.msm     +++|          LDD    SN
06496  M00S05747.msm     +++|          NJN    RLS10       IF NOT FIRST UNIT OF EQUIPMENT
06497  M00S05748.msm     +++|          RJM    CUC
06498  M00S05749.msm     +++|          NJN    RLS5        IF MST AND TRT OUT OF SYNC
06499  M00S05750.msm     +++|          LDD    FN
06500  M00S05751.msm     +++|          SHN    21-4
06501  M00S05752.msm     +++|          PJN    RLS10       IF NOT INDEPENDENT SHARED DEVICE
06502  M00S05753.msm     +++| RLSA     SHN    5+21-6
06503  M00S05754.msm     +++|          PJN    RLS10       IF EQUIPMENT AVAILABLE
06504  M00S05755.msm     +++|          SHN    6-3
06505  M00S05756.msm     +++|          PJN    RLS11       IF NOT PREVIOUSLY RECOVERED
06506  M00S05757.msm     +++|          SHN    4+21-10
06507  M00S05758.msm     +++|          MJN    RLS11       IF REMOVABLE DEVICE
06508  M00S05759.msm     +++| RLS10    ENDMS
06509  M00S05760.msm     +++|*         LDN    0           INDICATE VALID LABEL
06510  M00S05761.msm     +++|          LJM    RLSX        RETURN
06511  M00S05762.msm     +++|
06512  M00S05763.msm     +++|*         PROCESS *DIT* ON INDEPENDENT SHARED DEVICE.
06513  M00S05764.msm     +++|
06514  M00S05765.msm     +++| RLS11    BSS    0
06515  M00S05766.msm     +++|          QUAL   ISD
06516  M00S05767.msm     +++|
06517  M00S05768.msm     +++|          LDD    RS          CHECK RECOVERY STATUS
06518  M00S05769.msm     +++|          LPN    FLMK
06519  M00S05770.msm     +++|          LMN    FLCM
06520  M00S05771.msm     +++|          STD    P1
06521  M00S05772.msm     +++|          ZJN    RLS12       IF FILES RECOVERED FROM CM
06522  M00S05773.msm     +++|          RJM    CDA
06523  M00S05774.msm     +++|          NJN    RLS10       IF RECOVERY INHIBITED
06524  M00S05775.msm     +++| RLS12    LDD    RE
06525  M00S05776.msm     +++|          LPN    40
06526  M00S05777.msm     +++|          NJN    RLS10       IF INCORRECT ACCESS MODE
06527  M00S05778.msm     +++|          LDK    EPDE
06528  M00S05779.msm     +++|          RAM    UERR        REREAD LABEL WITH *ENDMS* DISABLED
06529  M00S05780.msm     +++|          RJM    RLP
06530  M00S05781.msm     +++|          LDD    FN+4        FETCH MST PARAMETERS
06531  M00S05782.msm     +++|          SHN    3
06532  M00S05783.msm     +++|          ADN    ACGL
06533  M00S05784.msm     +++|          CRD    CM
06534  M00S05785.msm     +++|          ADN    DULL-ACGL
06535  M00S05786.msm     +++|          CRD    CN
06536  M00S05787.msm     +++|          LDD    CM+4
06537  M00S05788.msm     +++|          LPC    MGPRS
06538  M00S05789.msm     +++|          ZJN    RLS14       IF *PRESET* OPTION NOT SET
06539  M00S05790.msm     +++|          LMD    CM+4
06540  M00S05791.msm     +++|          STD    CM+4
06541  M00S05792.msm     +++|          LDD    FN+4        INDICATE PRESET NOTED
06542  M00S05793.msm     +++|          SHN    3
06543  M00S05794.msm     +++|          ADN    ACGL
06544  M00S05795.msm     +++|          CWD    CM
06545  M00S05796.msm     +++|          LDC    5*MISD      CLEAR DIT
06546  M00S05797.msm     +++|          STD    T1
06547  M00S05798.msm     +++| RLS13    LDN    0
06548  M00S05799.msm     +++|          STM    DISS-1,T1
06549  M00S05800.msm     +++|          SOD    T1
06550  M00S05801.msm     +++|          NJN    RLS13       IF MORE WORDS TO CLEAR
06551  M00S05802.msm     +++|          STM    N4SS+5*STLL
Line S05803 Modification History
M01 (Removed by) ns2547
Seq #  *Modification Id* Act 
----------------------------+
06552  M01S05803.ns2547  ---|          LDM    N4SS+5*SDGL+4  CLEAR MST/TRT INTERLOCK
06553  M01S05804.ns2547  ---|          SCN    77
Line S00101 Modification History
M01 (Added by) ns2547
Seq #  *Modification Id* Act 
----------------------------+
06554  M01S00101.ns2547  +++|          STD    P2          CLEAR POSSIBLE SOFTWARE RESERVE
06555  M01S00102.ns2547  +++| RLS14    RJM    SDT
06556  M01S00103.ns2547  +++|          MJN    RLS16       IF ANY DIT ENTRY INTERLOCKED
06557  M01S00104.ns2547  +++| RLSB     ZJN    RLS18       IF THIS MACHINE NOT IN DIT
06558  M01S00105.ns2547  +++|*         NJN    RLS17       (RECOVERY DEADSTART)
06559  M01S00106.ns2547  +++|          LDN    RLSF-RLSE
06560  M01S00107.ns2547  +++| RLS15    ADC    RLSE
06561  M01S00108.ns2547  +++|          LJM    RLS22       DISPLAY ERROR MESSAGE
06562  M01S00109.ns2547  +++|
06563  M01S00110.ns2547  +++| RLS16    ENDMS              RELEASE CHANNEL
06564  M01S00111.ns2547  +++|          LDC    DSCP*CPAS+MS2W
06565  M01S00112.ns2547  +++| RLSC     EQU    *-1
06566  M01S00113.ns2547  +++|*         LDC    CP+MS2W     (*CMS* CALL)
06567  M01S00114.ns2547  +++|          CWM    RLSG,TR
06568  M01S00115.ns2547  +++|          DELAY
06569  M01S00116.ns2547  +++|          LJM    RLS1        LOOP
06570  M01S00117.ns2547  +++|
06571  M01S00118.ns2547  +++| RLS17    STD    T1          SET DIT ORDINAL
06572  M01S00119.ns2547  +++| RLS18    LDD    T1
06573  M01S00120.ns2547  +++|          ZJN    RLS15       IF DIT FULL
06574  M01S00121.ns2547  +++|          STD    T3
06575  M01S00122.ns2547  +++|          SHN    2           SET INDEX OF DIT ENTRY
06576  M01S00123.ns2547  +++|          RAD    T3
06577  M01S00124.ns2547  +++|          RJM    CMI
06578  M01S00125.ns2547  +++|          NJN    RLS16       IF MST INTERLOCKED / INITIALIZE PENDING
06579  M01S00126.ns2547  +++|*         LDN    0
06580  M01S00127.ns2547  +++|          STD    T7          ENSURE PRIMARY LABEL SECTOR
06581  M01S00128.ns2547  +++|          LDD    P1
Line S00129 Modification History
M01 (Added by) ns2547
M02 (Removed by) msm43
Seq #  *Modification Id* Act 
----------------------------+
06582  M02S00129.msm43   ---|          NJN    RLS20       IF FILES NOT RECOVERED FROM CM
06583  M02S00130.msm43   ---|          LDM    N4SS+TDGL*5+1
Line S00131 Modification History
M01 (Added by) ns2547
M02 (Removed by) msm35
M03 (Removed by) msm43
Seq #  *Modification Id* Act 
----------------------------+
06584  M03S00131.msm43   ---|          SBD    CN+1        CLEAR PF ACTIVITY
Line S00001 Modification History
M01 (Added by) msm35
M02 (Removed by) msm43
Seq #  *Modification Id* Act 
----------------------------+
06585  M02S00001.msm43   ---|          SBM    DISS-5,T3   CLEAR PF ACTIVITY
Line S00002 Modification History
M01 (Added by) msm43
Seq #  *Modification Id* Act 
----------------------------+
06586  M01S00002.msm43   +++|          NJP    RLS20       IF FILES NOT RECOVERED FROM CM
06587  M01S00003.msm43   +++|
06588  M01S00004.msm43   +++|*         CLEAR LOCAL DEVICE INTERLOCKS AND PF ACTIVITY.
06589  M01S00005.msm43   +++|
06590  M01S00006.msm43   +++|          LDM    DISS-5,T3   GET LOCAL PF ACTIVITY COUNT
06591  M01S00007.msm43   +++|          LPN    77
06592  M01S00008.msm43   +++|          STD    T0
06593  M01S00009.msm43   +++|          LCN    77
06594  M01S00010.msm43   +++|          LMM    N4SS+TDGL*5+1
06595  M01S00011.msm43   +++|          STM    RLSH
06596  M01S00012.msm43   +++|          LPN    77
06597  M01S00013.msm43   +++|          SBD    T0
06598  M01S00014.msm43   +++|          PJN    RLS19.1     IF LOCAL PF ACTIVITY .LE. GLOBAL ACTIVITY
06599  M01S00015.msm43   +++| RLS19    MONITOR  HNGM      HANG PP
06600  M01S00016.msm43   +++|          UJN    RLS19       HANG PP
06601  M01S00017.msm43   +++|
06602  M01S00018.msm43   +++| RLS19.1  LDM    DISS-5,T3
06603  M01S00019.msm43   +++|          LPC    0
06604  M01S00020.msm43   +++| RLSH     EQU    *-1         (COMPLEMENT OF GLOBAL INTERLOCKS)
06605  M01S00021.msm43   +++|          SHN    -6
06606  M01S00022.msm43   +++|          NJN    RLS19       IF LOCAL INTERLOCK SET WITHOUT GLOBAL
06607  M01S00023.msm43   +++|          LDM    N4SS+TDGL*5+1  CLEAR LOCAL INTERLOCKS AND PF ACTIVITY
06608  M01S00024.msm43   +++|          SBM    DISS-5,T3
Line S00132 Modification History
M01 (Added by) ns2547
Seq #  *Modification Id* Act 
----------------------------+
06609  M01S00132.ns2547  +++|          STM    N4SS+TDGL*5+1
06610  M01S00133.ns2547  +++|          LDN    0
06611  M01S00134.ns2547  +++|          STM    N4SS+DULL*5+1
06612  M01S00135.ns2547  +++|          STD    CN+1
06613  M01S00136.ns2547  +++|          STM    DISS-5,T3
06614  M01S00137.ns2547  +++|          LDD    P2
06615  M01S00138.ns2547  +++|          LMD    T1
06616  M01S00139.ns2547  +++|          NJN    RLS21       IF MST NOT INTERLOCKED BY THIS MACHINE
06617  M01S00140.ns2547  +++|          LDN    10
06618  M01S00141.ns2547  +++|          RAD    RE
Line S00025 Modification History
M01 (Added by) msm43
Seq #  *Modification Id* Act 
----------------------------+
06619  M01S00025.msm43   +++|
06620  M01S00026.msm43   +++|*         SET MACHINE ACTIVE ON DEVICE.
06621  M01S00027.msm43   +++|
Line S00142 Modification History
M01 (Added by) ns2547
Seq #  *Modification Id* Act 
----------------------------+
06622  M01S00142.ns2547  +++| RLS20    LDD    FS+2        SET MACHINE ID IN DIT ENTRY
06623  M01S00143.ns2547  +++|          STM    DISS-5+4,T3
06624  M01S00144.ns2547  +++|          AOM    DISS-5+3,T3 SET DIT ENTRY INTERLOCK
06625  M01S00145.ns2547  +++|          LDM    N4SS+5*SDGL+4
06626  M01S00146.ns2547  +++|          SHN    -1
06627  M01S00147.ns2547  +++|          SCN    37
06628  M01S00148.ns2547  +++|          LMD    T1          SET SOFTWARE RESERVE
06629  M01S00149.ns2547  +++|          SHN    1
06630  M00S05805.msm     +++|          STM    N4SS+5*SDGL+4
Line S05806 Modification History
M01 (Removed by) ns2547
Seq #  *Modification Id* Act 
----------------------------+
06631  M01S05806.ns2547  ---| RLS14    RJM    SDT
06632  M01S05807.ns2547  ---|          MJN    RLS19       IF ANY DIT ENTRY INTERLOCKED
06633  M01S05808.ns2547  ---|          ZJN    RLS15       IF THIS MACHINE NOT IN DIT
06634  M01S05809.ns2547  ---|          STD    T1
06635  M01S05810.ns2547  ---|          LDD    RS
06636  M01S05811.ns2547  ---|          ZJN    RLS16       IF INITIAL RECOVERY
06637  M01S05812.ns2547  ---| RLS15    LDD    T1
06638  M01S05813.ns2547  ---|          NJP    RLS20       IF FREE ENTRY FOUND
06639  M01S05814.ns2547  ---|          LDN    RLSF-RLSE
06640  M01S05815.ns2547  ---| RLS16    ADC    RLSE
06641  M01S05816.ns2547  ---| RLS17    STD    T3          SAVE THE MESSAGE ADDRESS
Line S00150 Modification History
M01 (Added by) ns2547
Seq #  *Modification Id* Act 
----------------------------+
06642  M01S00150.ns2547  +++|          SOD    T1          SET MACHINE INDEX IN LOCAL AREA
06643  M01S00151.ns2547  +++|          STM    N4SS+5*DULL+2
06644  M01S00152.ns2547  +++|          STD    CN+2
06645  M01S00153.ns2547  +++|          AOM    SDIF        ADVANCE INTERLOCK COUNT
06646  M01S00154.ns2547  +++| RLS21    LDD    EC
06647  M01S00155.ns2547  +++|          ADD    RS
06648  M01S00156.ns2547  +++|          ZJN    RLS25       IF INITIAL RECOVERY
06649  M01S00157.ns2547  +++|          LDD    FN
06650  M01S00158.ns2547  +++|          SHN    13-10
06651  M01S00159.ns2547  +++|          LMM    N4SS+5*MDGL CHECK MATCHING REMOVABLE STATUS
06652  M01S00160.ns2547  +++|          SHN    21-13
06653  M01S00161.ns2547  +++|          PJN    RLS24       IF MODES MATCH
Line S00162 Modification History
M01 (Added by) ns2547
M02 (Removed by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
06654  M02S00162.283l840 ---|          LDC    /MMF/CSDD
Line S00166 Modification History
M01 (Added by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
06655  M01S00166.283l840 +++|          LDC    RLSI        *REMOVABLE DEVICE CONFLICT*
Line S00163 Modification History
M01 (Added by) ns2547
Seq #  *Modification Id* Act 
----------------------------+
06656  M01S00163.ns2547  +++| RLS22    STD    T3          SAVE MESSAGE ADDRESS
06657  M01S00164.ns2547  +++|          RJM    SOM
06658  M00S05817.msm     +++|          ENDMS
Line S05818 Modification History
M01 (Removed by) ns2547
Seq #  *Modification Id* Act 
----------------------------+
06659  M01S05818.ns2547  ---|          LDD    FN
Line S00165 Modification History
M01 (Added by) ns2547
Seq #  *Modification Id* Act 
----------------------------+
06660  M01S00165.ns2547  +++|          LDD    FN          CHECK DEVICE TYPE
06661  M00S05819.msm     +++|          SHN    21-10
Line S05820 Modification History
M01 (Removed by) ns2547
Seq #  *Modification Id* Act 
----------------------------+
06662  M01S05820.ns2547  ---|          MJN    RLS18       IF REMOVABLE DEVICE
Line S00166 Modification History
M01 (Added by) ns2547
Seq #  *Modification Id* Act 
----------------------------+
06663  M01S00166.ns2547  +++|          MJN    RLS23       IF REMOVABLE DEVICE
06664  M00S05821.msm     +++|          LDD    T3
Line S05822 Modification History
M01 (Removed by) ns2547
Seq #  *Modification Id* Act 
----------------------------+
06665  M01S05822.ns2547  ---| RLSB     LJM    /RMS/HNG    DISPLAY THE ERROR MESSAGE
Line S00167 Modification History
M01 (Added by) ns2547
Seq #  *Modification Id* Act 
----------------------------+
06666  M01S00167.ns2547  +++| RLSD     LJM    /RMS/HNG    DISPLAY THE ERROR MESSAGE
06667  M00S05823.msm     +++|*         UJN    *+2         (*CMS* CALL)
06668  M00S05824.msm     +++|
Line S05825 Modification History
M01 (Removed by) ns2547
Seq #  *Modification Id* Act 
----------------------------+
06669  M01S05825.ns2547  ---| RLS18    LDD    T3          ISSUE MESSAGE
Line S00168 Modification History
M01 (Added by) ns2547
Seq #  *Modification Id* Act 
----------------------------+
06670  M01S00168.ns2547  +++| RLS23    LDD    T3          ISSUE MESSAGE
06671  M00S05826.msm     +++|          RJM    DFM
Line S00169 Modification History
M01 (Added by) ns2547
Seq #  *Modification Id* Act 
----------------------------+
06672  M01S00169.ns2547  +++|          RJM    SDU         SET DEVICE UNLOADED
06673  M00S05827.msm     +++|          LDN    1
06674  M00S05828.msm     +++|          LJM    RLSX        RETURN
06675  M00S05829.msm     +++|
Line S05830 Modification History
M01 (Removed by) ns2547
Seq #  *Modification Id* Act 
----------------------------+
06676  M01S05830.ns2547  ---| RLS19    ENDMS
06677  M01S05831.ns2547  ---|          LDC    DSCP*CPAS+MS2W
06678  M01S05832.ns2547  ---| RLSC     EQU    *-1
06679  M01S05833.ns2547  ---|*         LDC    CP+MS2W     (*CMS* CALL)
06680  M01S05834.ns2547  ---|          CWM    RLSG,TR
06681  M01S05835.ns2547  ---|          DELAY
06682  M01S05836.ns2547  ---|          LJM    RLS1        LOOP
06683  M01S05837.ns2547  ---|
06684  M01S05838.ns2547  ---| RLS20    STD    T3          SET INDEX OF DIT ENTRY
06685  M01S05839.ns2547  ---|          SHN    2
06686  M01S05840.ns2547  ---|          RAD    T3
06687  M01S05841.ns2547  ---|          RJM    CMI
06688  M01S05842.ns2547  ---|          NJN    RLS19       IF MST INTERLOCKED / INITIALIZE PENDING
06689  M01S05843.ns2547  ---|*         LDN    0
06690  M01S05844.ns2547  ---|          STD    T7          ENSURE PRIMARY LABEL SECTOR
06691  M01S05845.ns2547  ---|          LDD    P1
06692  M01S05846.ns2547  ---|          NJN    RLS21       IF FILES NOT RECOVERED FROM CM
06693  M01S05847.ns2547  ---|          LDM    N4SS+TDGL*5+1  CLEAR PF ACTIVITY
06694  M01S05848.ns2547  ---|          SBD    CN+1
06695  M01S05849.ns2547  ---|          STM    N4SS+TDGL*5+1
06696  M01S05850.ns2547  ---|          LDN    0
06697  M01S05851.ns2547  ---|          STM    N4SS+DULL*5+1
06698  M01S05852.ns2547  ---|          STD    CN+1
06699  M01S05853.ns2547  ---|          STM    DISS-5,T3
06700  M01S05854.ns2547  ---|          LDD    P2
06701  M01S05855.ns2547  ---|          ZJN    RLS23       IF MST NOT INTERLOCKED
06702  M01S05856.ns2547  ---|          LDN    10
06703  M01S05857.ns2547  ---|          STD    EC
06704  M01S05858.ns2547  ---|          RAD    RE
06705  M01S05859.ns2547  ---| RLS21    LDD    FS+2        SET MACHINE ID IN DIT ENTRY
06706  M01S05860.ns2547  ---|          STM    DISS-5+4,T3
06707  M01S05861.ns2547  ---|          LDN    1           SET DIT ENTRY INTERLOCK
06708  M01S05862.ns2547  ---|          STM    DISS-5+3,T3
06709  M01S05863.ns2547  ---|          LDM    N4SS+5*SDGL+4  SET MST/TRT INTERLOCK
06710  M01S05864.ns2547  ---|          SHN    -1
06711  M01S05865.ns2547  ---|          SCN    37
06712  M01S05866.ns2547  ---|          LMD    T1
06713  M01S05867.ns2547  ---|          SHN    1
06714  M01S05868.ns2547  ---|          STM    N4SS+5*SDGL+4
06715  M01S05869.ns2547  ---|          SOD    T1          SET MACHINE INDEX IN LOCAL AREA
06716  M01S05870.ns2547  ---|          STM    N4SS+5*DULL+2
06717  M01S05871.ns2547  ---|          STD    CN+2
06718  M01S05872.ns2547  ---|          AOM    SDIF        ADVANCE INTERLOCK COUNT
06719  M01S05873.ns2547  ---| RLS23    LDD    EC
06720  M01S05874.ns2547  ---|          ZJN    RLS25       IF INITIAL RECOVERY
06721  M01S05875.ns2547  ---|          LDD    FN
06722  M01S05876.ns2547  ---|          SHN    13-10
06723  M01S05877.ns2547  ---|          LMM    N4SS+5*MDGL CHECK MATCHING REMOVABLE STATUS
06724  M01S05878.ns2547  ---|          SHN    21-13
06725  M01S05879.ns2547  ---|          PJN    RLS24       IF MODES MATCH
06726  M01S05880.ns2547  ---|          LDC    /MMF/CSDD
06727  M01S05881.ns2547  ---|          LJM    RLS17       DISPLAY ERROR MESSAGE
06728  M01S05882.ns2547  ---|
06729  M00S05883.msm     +++| RLS24    LDN    2           SET DEVICE ACCESSED
06730  M00S05884.msm     +++|          RAD    RE
06731  M00S05885.msm     +++| RLS25    LDD    FN+4        STORE DEVICE USAGE INFORMATION
06732  M00S05886.msm     +++|          SHN    3
06733  M00S05887.msm     +++|          ADN    DULL
06734  M00S05888.msm     +++|          CWD    CN
Line S05889 Modification History
M01 (Removed by) ns2547
Seq #  *Modification Id* Act 
----------------------------+
06735  M01S05889.ns2547  ---|          RJM    CLC         COMPUTE LABEL CHECKSUM
Line S00170 Modification History
M01 (Added by) ns2547
Seq #  *Modification Id* Act 
----------------------------+
06736  M01S00170.ns2547  +++|          RJM    CDC         COMPUTE LABEL CHECKSUM
06737  M00S05890.msm     +++|          STM    CKSS
06738  M00S05891.msm     +++|          LDC    BFMS+WLSF
06739  M00S05892.msm     +++|          RJM    WDS
06740  M00S05893.msm     +++|          LDD    QS          RESTORE ACTUAL LABEL SECTOR
06741  M00S05894.msm     +++|          STD    T7
06742  M00S05895.msm     +++|          LJM    RLS10       RETURN
06743  M00S05896.msm     +++|
06744  M00S05897.msm     +++|
Line S05898 Modification History
M01 (Removed by) ns2547
Seq #  *Modification Id* Act 
----------------------------+
06745  M01S05898.ns2547  ---| RLSE     DATA   C*MACHINE ALREADY IN DIT.*
06746  M01S05899.ns2547  ---| RLSF     DATA   C*NO SPACE IN DIT.*
Line S00171 Modification History
M01 (Added by) ns2547
Seq #  *Modification Id* Act 
----------------------------+
06747  M01S00171.ns2547  +++| RLSE     DATA   C*NO SPACE IN DIT.*
06748  M01S00172.ns2547  +++| RLSF     DATA   C*EQXXX, ID NN NOW IN DIT.*
06749  M00S05900.msm     +++| RLSG     DATA   C*WAITING FOR INTERLOCK.*
Line S00167 Modification History
M01 (Added by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
06750  M01S00167.283l840 +++| RLSI     DATA   C*REMOVABLE DEVICE CONFLICT.*
06751  M00S05901.msm     +++| CMI      SPACE  4,10
06752  M00S05902.msm     +++|**        CMI - CHECK MST INTERLOCKS.
06753  M00S05903.msm     +++|*
06754  M00S05904.msm     +++|*         ENTRY  (T1) = MACHINE INDEX.
Line S00173 Modification History
M01 (Added by) ns2547
Seq #  *Modification Id* Act 
----------------------------+
06755  M01S00173.ns2547  +++|*                (P2) = SOFTWARE RESERVE FROM *SDGL*.
06756  M01S00174.ns2547  +++|*                (RG) = OPERATOR OVERRIDE STATUS.
06757  M00S05905.msm     +++|*                (BFMS) = LABEL SECTOR.
06758  M00S05906.msm     +++|*
06759  M00S05907.msm     +++|*         EXIT   (A) = 0 IF NO INTERLOCKS PROHIBITING RECOVERY.
Line S05908 Modification History
M01 (Removed by) ns2547
Seq #  *Modification Id* Act 
----------------------------+
06760  M01S05908.ns2547  ---|*                (P2) = MACHINE INDEX FIELD FROM *SDGL*.
Line S00175 Modification History
M01 (Added by) ns2547
Seq #  *Modification Id* Act 
----------------------------+
06761  M01S00175.ns2547  +++|*
06762  M01S00176.ns2547  +++|*         USES   T2.
06763  M00S05909.msm     +++|
06764  M00S05910.msm     +++|
06765  M00S05911.msm     +++| CMI      SUBR               ENTRY/EXIT
Line S05912 Modification History
M01 (Removed by) ns2547
Seq #  *Modification Id* Act 
----------------------------+
06766  M01S05912.ns2547  ---|          LDM    N4SS+5*SDGL+4
06767  M01S05913.ns2547  ---|          LPN    77
06768  M01S05914.ns2547  ---|          SHN    -1          SAVE INTERLOCK STATUS
06769  M01S05915.ns2547  ---|          STD    P2
Line S00177 Modification History
M01 (Added by) ns2547
Seq #  *Modification Id* Act 
----------------------------+
06770  M01S00177.ns2547  +++|          LDD    RG
06771  M01S00178.ns2547  +++|          ZJN    CMIX        IF OPERATOR OVERRIDE
06772  M01S00179.ns2547  +++|          LDD    P2
06773  M00S05916.msm     +++|          NJN    CMI1        IF DEVICE INTERLOCK SET
06774  M00S05917.msm     +++|          LDM    N4SS+5*STLL
06775  M00S05918.msm     +++|          LPC    MLIAL+MLIHD+MLIFD+MLIPF
06776  M00S05919.msm     +++|          ZJN    CMIX        IF NO FULL / PF INITIALIZE PENDING
06777  M00S05920.msm     +++|          LDM    N4SS+5*DULL+2
06778  M00S05921.msm     +++|          LPN    17
06779  M00S05922.msm     +++|          ADN    1           CHECK OWNER OF INITIALIZE REQUEST
Line S05923 Modification History
M01 (Removed by) ns2547
Seq #  *Modification Id* Act 
----------------------------+
06780  M01S05923.ns2547  ---| CMI1     LMD    T1
06781  M01S05924.ns2547  ---|          UJN    CMIX        RETURN
Line S00180 Modification History
M01 (Added by) ns2547
Seq #  *Modification Id* Act 
----------------------------+
06782  M01S00180.ns2547  +++| CMI1     STD    T2
Proceed to Part 4
cdc/nos2.source/opl.opl871/deck/msm.003.txt ยท Last modified: by 127.0.0.1