User Tools

Site Tools


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

Deck MSM Part 007

30 Modifications

Listing Sections

Source

Seq #  *Modification Id* Act 
----------------------------+
08069  M01S00277.283l840 +++|          UJN    CDEX        RETURN
08070  M01S00278.283l840 +++| CSD      SPACE  4,20
08071  M01S00279.283l840 +++|**        CSD - CHECK SHARED DEVICE STATUS.
08072  M01S00280.283l840 +++|*
08073  M01S00281.283l840 +++|*         ENTRY  (EQ) = DEVICE EST ORDINAL.
08074  M01S00282.283l840 +++|*                (RS) = RECOVERY STATUS.
08075  M01S00283.283l840 +++|*                (CN - CN+4) = PF DESCRIPTOR WORD (PFGL).
08076  M01S00284.283l840 +++|*                (FN - FN+4) = EST ENTRY.
08077  M01S00285.283l840 +++|*
08078  M01S00286.283l840 +++|*         EXIT   (A) = 0 IF NO DAT CONFLICT.
08079  M01S00287.283l840 +++|*                (A) = ADDRESS OF ERROR MESSAGE, IF DAT CONFLICT.
08080  M01S00288.283l840 +++|*                (T2) = 0 IF DEVICE NOT DESCRIBED IN DAT.
08081  M01S00289.283l840 +++|*
08082  M01S00290.283l840 +++|*         USES   QS, RE, T7, CM - CM+4.
08083  M01S00291.283l840 +++|*
08084  M01S00292.283l840 +++|*         CALLS  SDT, CDE, CEA.
08085  M01S00293.283l840 +++|*
08086  M01S00294.283l840 +++|*         MACROS MONITOR.
08087  M01S00295.283l840 +++|
08088  M01S00296.283l840 +++|
08089  M01S00297.283l840 +++| CSD6     LDD    MA          MOVE ENTRY TO DAT BUFFER
08090  M01S00298.283l840 +++|          CWD    CN
08091  M01S00299.283l840 +++|          CRM    DATB,ON
08092  M01S00300.283l840 +++|          LDD    DI          CHECK DAT INDEX
08093  M01S00301.283l840 +++|          ZJN    CSD7        IF NO DAT ENTRY FOR DEVICE
08094  M01S00302.283l840 +++|          STD    QS
08095  M01S00303.283l840 +++|          UJN    CSD8        DAT SLOT ASSIGNED
08096  M01S00304.283l840 +++|
08097  M01S00305.283l840 +++| CSD7     LDD    FN
08098  M01S00306.283l840 +++|          SHN    2-11
08099  M01S00307.283l840 +++|          LPN    4           MAP SHARE FLAG AS ECS TRACK REQUIRED
08100  M01S00308.283l840 +++|          RAD    RE
08101  M01S00309.283l840 +++| CSD8     LDN    0           CLEAR MACHINE ACCESS BYTE
08102  M01S00310.283l840 +++| CSD9     STM    DATB+11
08103  M01S00311.283l840 +++|
08104  M01S00312.283l840 +++| CSD      SUBR               ENTRY/EXIT
08105  M01S00313.283l840 +++|          RJM    SDT         SEARCH DEVICE ACCESS TABLE
08106  M01S00314.283l840 +++|          STD    T2
08107  M01S00315.283l840 +++|          ZJN    CSD6        IF NO ENTRY FOR NAMED DEVICE
08108  M01S00316.283l840 +++|          RJM    CDE         CHECK DAT ENTRY
08109  M01S00317.283l840 +++|          NJN    CSDX        IF DAT CONFLICT/ERROR
08110  M01S00318.283l840 +++|          STD    T7
08111  M01S00319.283l840 +++|          LDD    T6
08112  M01S00320.283l840 +++|          NJN    CSD1        IF SHARED DEVICE
08113  M01S00321.283l840 +++|          LDI    T2
08114  M01S00322.283l840 +++|          LPC    -0
08115  M01S00323.283l840 +++|          MMTE   *-1
08116  M01S00324.283l840 +++|          ZJN    CSDX        IF ACCESS BY THIS MACHINE ONLY
08117  M01S00325.283l840 +++|          LDC    CSDB
08118  M01S00326.283l840 +++|          UJN    CSDX        RETURN
08119  M01S00327.283l840 +++|
08120  M01S00328.283l840 +++| CSD1     LDI    T2          CHECK MACHINES ACCESSING DEVICE
08121  M01S00329.283l840 +++|          ZJN    CSD9        IF NO MACHINE ACCESS
08122  M01S00330.283l840 +++|          LPC    -0
08123  M01S00331.283l840 +++|          MMTE   *-1
08124  M01S00332.283l840 +++|          ADD    RS
08125  M01S00333.283l840 +++|          ZJN    CSD9        IF ACCESS BY THIS MACHINE ONLY
08126  M01S00334.283l840 +++|          SBD    RS
08127  M01S00335.283l840 +++|          LMI    T2
08128  M01S00336.283l840 +++|          ZJN    CSD2        IF NOT ACCESSED BY THIS MACHINE
08129  M01S00337.283l840 +++|          LDN    10
08130  M01S00338.283l840 +++| CSD2     ADN    2           FLAG TRT RECOVERY FROM EXTENDED MEMORY
08131  M01S00339.283l840 +++|          RAD    RE
08132  M01S00340.283l840 +++|          RJM    CEA         CONVERT EXTENDED MEMORY ADDRESS
08133  M01S00341.283l840 +++|          LDD    AL          SET CM TABLE ADDRESS
08134  M01S00342.283l840 +++|          ADK    TDGL
08135  M01S00343.283l840 +++|          STD    CM+2
08136  M01S00344.283l840 +++|          LDC    GLGL*100-100+40  SET WORD COUNT
08137  M01S00345.283l840 +++|          STD    CM+1
08138  M01S00346.283l840 +++|          LDC    RECS*1000   SUBFUNCTION = READ ECS
08139  M01S00347.283l840 +++|          RAD    CM+3
08140  M01S00348.283l840 +++|          MONITOR  ECSM      ISSUE MONITOR REQUEST
08141  M01S00349.283l840 +++|          LDD    RA          READ DRIVER WORD FROM GLOBAL MST
08142  M01S00350.283l840 +++|          SHN    6
08143  M01S00351.283l840 +++|          ADD    AL
08144  M01S00352.283l840 +++|          ADN    MDGL
08145  M01S00353.283l840 +++|          CRD    CM
08146  M01S00354.283l840 +++|          LDD    DI
08147  M01S00355.283l840 +++|          ZJN    CSD3        IF DNAP BY THIS MACHINE
08148  M01S00356.283l840 +++|          LMD    QS
08149  M01S00357.283l840 +++|          NJN    CSD4        IF DAT CONFLICT
08150  M01S00358.283l840 +++| CSD3     LDD    FN
08151  M01S00359.283l840 +++|          SCN    77
08152  M01S00360.283l840 +++|          SHN    14-10
08153  M01S00361.283l840 +++|          LMD    QS
08154  M01S00362.283l840 +++|          SHN    -1          COMPARE REMOVABLE STATUS + DAT INDEX
08155  M01S00363.283l840 +++|          LMD    CM
08156  M01S00364.283l840 +++|          LPC    4377
08157  M01S00365.283l840 +++|          ZJN    CSD5        IF NO CONFLICT
08158  M01S00366.283l840 +++| CSD4     LDC    CSDD
08159  M01S00367.283l840 +++| CSD5     LJM    CSDX        RETURN
08160  M01S00368.283l840 +++|
08161  M01S00369.283l840 +++| CSDB     DATA   4HNON-
08162  M01S00370.283l840 +++| CSDC     DATA   C*SHARED DEVICE ACTIVE IN DAT.*
08163  M01S00371.283l840 +++|
08164  M01S00372.283l840 +++| CSDD     DATA   C*REMOVABLE DEVICE CONFLICT.*
08165  M01S00373.283l840 +++| EBP      SPACE  4,10
08166  M01S00374.283l840 +++|**        EBP - ENABLE BST/BAT PROCESSING FOR SHARED BUFFERED DEVICE.
08167  M01S00375.283l840 +++|*
08168  M01S00376.283l840 +++|*         ENTRY  (EQ) = EST ORDINAL.
08169  M01S00377.283l840 +++|*                (FN - FN+4) = EST ENTRY.
08170  M01S00378.283l840 +++|*
08171  M01S00379.283l840 +++|*         USES   T5, T6, T7, CM - CM+4.
08172  M01S00380.283l840 +++|*
08173  M01S00381.283l840 +++|*         MACROS MONITOR.
08174  M01S00382.283l840 +++|
08175  M01S00383.283l840 +++|
08176  M01S00384.283l840 +++| EBP      SUBR               ENTRY/EXIT
08177  M01S00385.283l840 +++|          LDD    FN
08178  M01S00386.283l840 +++|          SHN    21-11
08179  M01S00387.283l840 +++|          PJN    EBPX        IF NOT SHARED DEVICE
08180  M01S00388.283l840 +++|          SHN    21-5-21+11
08181  M01S00389.283l840 +++|          PJN    EBPX        IF NOT BUFFERED DEVICE
08182  M01S00390.283l840 +++|
08183  M01S00391.283l840 +++|*         FLUSH WRITE BUFFERS / DROP ALL BUFFERS.
08184  M01S00392.283l840 +++|
08185  M01S00393.283l840 +++| EBP1     LDN    ZERL        CLEAR ASSEMBLY AREA
08186  M01S00394.283l840 +++|          CRD    CM
08187  M01S00395.283l840 +++|          LDD    EQ          SET EST ORDINAL
08188  M01S00396.283l840 +++|          STD    CM+3
08189  M01S00397.283l840 +++|          LDC    BMFW*100    FLUSH ALL WRITE BUFFERS
08190  M01S00398.283l840 +++|          STD    CM+4
08191  M01S00399.283l840 +++|          MONITOR  BFMM
08192  M01S00400.283l840 +++|          LDN    ZERL        CLEAR ASSEMBLY AREA
08193  M01S00401.283l840 +++|          CRD    CM
08194  M01S00402.283l840 +++|          LDD    EQ          SET EST ORDINAL
08195  M01S00403.283l840 +++|          STD    CM+3
08196  M01S00404.283l840 +++|          LDC    BMDD*100    DROP ALL BUFFERS ON DEVICE
08197  M01S00405.283l840 +++|          STD    CM+4
08198  M01S00406.283l840 +++|          MONITOR  BFMM
08199  M01S00407.283l840 +++|          LDD    CM+4
08200  M01S00408.283l840 +++|          ZJN    EBP2        IF COMPLETE
08201  M01S00409.283l840 +++|          DELAY  20B         DELAY TWO MILLISECONDS
08202  M01S00410.283l840 +++|          PAUSE
08203  M01S00411.283l840 +++|          UJP    EBP1        REISSUE REQUEST
08204  M01S00412.283l840 +++|
08205  M01S00413.283l840 +++|*         CLEAR ACCESS PERMISSIONS IN *BAT*.
08206  M01S00414.283l840 +++|
08207  M01S00415.283l840 +++| EBP2     LDN    ZERL
08208  M01S00416.283l840 +++|*         UJN    EBP3        (*CMS* CALL)
08209  M01S00417.283l840 +++| EBPA     EQU    *-1
08210  M01S00418.283l840 +++|          CRD    CM
08211  M01S00419.283l840 +++| EBPB     LDN    CBWS        CLEAR READ/WRITE PERMISSIONS IN *BAT*
08212  M01S00420.283l840 +++|*         LDN    CBRS        (LVL3 - CLEAR READ PERMISSIONS IN *BAT*)
08213  M01S00421.283l840 +++|          STD    CM+1
08214  M01S00422.283l840 +++| EBPC     LDN    **          SET MACHINE INDEX
08215  M01S00423.283l840 +++|          STD    CM+2
08216  M01S00424.283l840 +++|          LDD    EQ
08217  M01S00425.283l840 +++|          STD    CM+4
08218  M01S00426.283l840 +++|          MONITOR  MTEM
08219  M01S00427.283l840 +++|
08220  M01S00428.283l840 +++|*         ENABLE BST/BAT PROCESSING.
08221  M01S00429.283l840 +++|
08222  M01S00430.283l840 +++| EBP3     LDD    MA          WRITE REQUEST
08223  M01S00431.283l840 +++|          CWM    EBPD,ON
08224  M01S00432.283l840 +++|          LDD    FN+4
08225  M01S00433.283l840 +++|          SHN    3
08226  M01S00434.283l840 +++|          STD    CM+4        SET MST ADDRESS
08227  M01S00435.283l840 +++|          SHN    -14
08228  M01S00436.283l840 +++|          STD    CM+3
08229  M01S00437.283l840 +++|          LDN    1           SET WORD COUNT
08230  M01S00438.283l840 +++|          STD    CM+1
08231  M01S00439.283l840 +++|          MONITOR  UTEM
08232  M01S00440.283l840 +++|          UJP    EBPX        RETURN
08233  M01S00441.283l840 +++|
08234  M01S00442.283l840 +++|
08235  M01S00443.283l840 +++| EBPD     VFD    6/BDLL,6/1,6/27,42/0
08236  M01S00444.283l840 +++| LDT      SPACE  4,15
08237  M01S00445.283l840 +++|**        LDT - LOAD DEVICE ACCESS TABLE.
08238  M01S00446.283l840 +++|*
08239  M01S00447.283l840 +++|*         ENTRY  (EL) = EXTENDED MEMORY LABEL TRACK.
08240  M01S00448.283l840 +++|*
08241  M01S00449.283l840 +++|*         EXIT   (QI) = CURRENT DAT INDEX.
08242  M01S00450.283l840 +++|*                (QT) = LAST MST/TRT TRACK ASSIGNED.
08243  M01S00451.283l840 +++|*                DEVICE ACCESS TABLE LOADED TO CM.
08244  M01S00452.283l840 +++|*
08245  M01S00453.283l840 +++|*         USES   CA+1, CM - CM+4, CN - CN+4, T2 - T7.
08246  M01S00454.283l840 +++|*
08247  M01S00455.283l840 +++|*         CALLS  CEA.
08248  M01S00456.283l840 +++|*
08249  M01S00457.283l840 +++|*         MACROS MONITOR.
08250  M01S00458.283l840 +++|
08251  M01S00459.283l840 +++|
08252  M01S00460.283l840 +++| LDT1     LDD    HN          ADVANCE EXTENDED MEMORY ADDRESS
08253  M01S00461.283l840 +++|          RAD    CN+4
08254  M01S00462.283l840 +++|          SHN    -14
08255  M01S00463.283l840 +++|          RAD    CN+3
08256  M01S00464.283l840 +++|          LDD    HN          ADVANCE CM ADDRESS
08257  M01S00465.283l840 +++|          RAD    CN+2
08258  M01S00466.283l840 +++|          SHN    -14
08259  M01S00467.283l840 +++|          RAD    CN+1
08260  M01S00468.283l840 +++| LDT2     LDD    MA          MOVE REQUEST
08261  M01S00469.283l840 +++|          CWD    CN
08262  M01S00470.283l840 +++|          CRD    CM
08263  M01S00471.283l840 +++|          MONITOR  ECSM      ISSUE REQUEST
08264  M01S00472.283l840 +++|          SOD    T5          DECREMENT BLOCK COUNT
08265  M01S00473.283l840 +++|          PJN    LDT1        IF NOT END OF DAT
08266  M01S00474.283l840 +++|
08267  M01S00475.283l840 +++| LDT      SUBR               ENTRY/EXIT
08268  M01S00476.283l840 +++|
08269  M01S00477.283l840 +++|*         RETRIEVE BAT POINTER WORD *BAET*, IF REQUIRED.
08270  M01S00478.283l840 +++|
08271  M01S00479.283l840 +++|          LDM    ECLT        SET LABEL TRACK
08272  M01S00480.283l840 +++|          STD    T6
08273  M01S00481.283l840 +++|          LDN    ETLT        SET ENVIRONMENT TABLE SECTOR
08274  M01S00482.283l840 +++|          STD    T7
08275  M01S00483.283l840 +++| LDTA     RJM    CEA         GET ADDRESS OF ENVIRONMENT TABLE SECTOR
08276  M01S00484.283l840 +++|*         UJN    LDT0        (NO SHARED BUFFERED DEVICES CONFIGURED)
08277  M01S00485.283l840 +++|          LDN    BAET        ADJUST ADDRESS TO BAT POINTER
08278  M01S00486.283l840 +++|          RAD    CM+4
08279  M01S00487.283l840 +++|          SHN    -14
08280  M01S00488.283l840 +++|          LMC    RECS*1000   SET SUBFUNCTION
08281  M01S00489.283l840 +++|          RAD    CM+3
08282  M01S00490.283l840 +++|          LDD    MA          SET CM ADDRESS
08283  M01S00491.283l840 +++|          STD    CM+2
08284  M01S00492.283l840 +++|          LDN    0
08285  M01S00493.283l840 +++|          STD    CM+1
08286  M01S00494.283l840 +++|          MONITOR  ECSM      ISSUE REQUEST
08287  M01S00495.283l840 +++|          LDD    MA          READ *BAET*
08288  M01S00496.283l840 +++|          CRM    BAEI,ON
08289  M01S00497.283l840 +++|
08290  M01S00498.283l840 +++|*         RETRIEVE DAT POINTER WORD *DAET*.
08291  M01S00499.283l840 +++|
08292  M01S00500.283l840 +++| LDT0     RJM    CEA         GET ADDRESS OF ENVIRONMENT TABLE SECTOR
08293  M01S00501.283l840 +++|          LDN    DAET        ADJUST ADDRESS TO DAT POINTER
08294  M01S00502.283l840 +++|          RAD    CM+4
08295  M01S00503.283l840 +++|          SHN    -14
08296  M01S00504.283l840 +++|          LMC    RECS*1000   SET SUBFUNCTION
08297  M01S00505.283l840 +++|          RAD    CM+3
08298  M01S00506.283l840 +++|          LDD    MA          SET CM ADDRESS
08299  M01S00507.283l840 +++|          STD    CM+2
08300  M01S00508.283l840 +++|          LDN    0
08301  M01S00509.283l840 +++|          STD    CM+1
08302  M01S00510.283l840 +++|          MONITOR  ECSM      ISSUE REQUEST
08303  M01S00511.283l840 +++|*         LDN    0
08304  M01S00512.283l840 +++|          STD    T7
08305  M01S00513.283l840 +++|          LDD    MA          READ *DAET*
08306  M01S00514.283l840 +++|          CRD    CM
08307  M01S00515.283l840 +++|          LDD    CM          SET CURRENT DAT TRACK
08308  M01S00516.283l840 +++|          STD    QT
08309  M01S00517.283l840 +++|          LDM    LDMP        GET DEVICE ALLOCATION WORD FROM MST
08310  M01S00518.283l840 +++|          SHN    3
08311  M01S00519.283l840 +++|          ADN    ALGL        DAT TRACK TO (T6)
08312  M01S00520.283l840 +++|          CRD    T6-4
08313  M01S00521.283l840 +++|          LDD    CM+4        SET DAT INDEX
08314  M01S00522.283l840 +++|          STD    QI
08315  M01S00523.283l840 +++|          SHN    -6          SET BLOCK COUNT
08316  M01S00524.283l840 +++|          STD    T5
08317  M01S00525.283l840 +++|          RJM    CEA
08318  M01S00526.283l840 +++|          LDD    CM+4        MOVE ADDRESS TO REQUEST IMAGE
08319  M01S00527.283l840 +++|          STD    CN+4
08320  M01S00528.283l840 +++|          LDD    CM+3
08321  M01S00529.283l840 +++|          LMC    RECS*1000
08322  M01S00530.283l840 +++|          STD    CN+3
08323  M01S00531.283l840 +++|          LDD    CA+1        SET CM ADDRESS
08324  M01S00532.283l840 +++|          STD    CN+2
08325  M01S00533.283l840 +++|          ADD    TH
08326  M01S00534.283l840 +++|          STD    CA+1        ADVANCE ADDRESS FOR TRT RECOVERY
08327  M01S00535.283l840 +++|          LDC    77S6+40     SET WORD COUNT FOR TRANSFER
08328  M01S00536.283l840 +++|          STD    CN+1
08329  M01S00537.283l840 +++|          LJM    LDT2        ENTER LOOP
08330  M01S00538.283l840 +++| RDE      SPACE  4,15
08331  M01S00539.283l840 +++|**        RDE - READ DAT ENTRY.
08332  M01S00540.283l840 +++|*
08333  M01S00541.283l840 +++|*         ENTRY  (EQ) = EST ORDINAL.
08334  M01S00542.283l840 +++|*                (FN - FN+4) = EST ENTRY FOR DEVICE.
08335  M01S00543.283l840 +++|*
08336  M01S00544.283l840 +++|*         EXIT   (QS) = DAT INDEX.
08337  M01S00545.283l840 +++|*                (T6) = DAT TRACK.
08338  M01S00546.283l840 +++|*                (DATB) = DAT ENTRY.
08339  M01S00547.283l840 +++|*
08340  M01S00548.283l840 +++|*         USES   QS, RE, TS, CM - CM+4.
08341  M01S00549.283l840 +++|*
08342  M01S00550.283l840 +++|*         CALLS  ADE.
08343  M01S00551.283l840 +++|
08344  M01S00552.283l840 +++|
08345  M01S00553.283l840 +++| RDE      SUBR               ENTRY/EXIT
08346  M01S00554.283l840 +++|          LDD    FN+4        READ DRIVER WORD
08347  M01S00555.283l840 +++|          SHN    3
08348  M01S00556.283l840 +++|          ADN    MDGL        DAT INDEX TO (CM)
08349  M01S00557.283l840 +++|          CRD    CM
08350  M01S00558.283l840 +++|          LDD    CM          SET DAT ORDINAL FROM INDEX
08351  M01S00559.283l840 +++|          LPC    377
08352  M01S00560.283l840 +++|          SHN    1
08353  M01S00561.283l840 +++|          STD    QS
08354  M01S00562.283l840 +++|          LDN    RECS        SET READ SUBFUNCTION
08355  M01S00563.283l840 +++|          RJM    ADE         ACCESS *DAT* ENTRY
08356  M01S00564.283l840 +++|          LDD    MA          READ DAT ENTRY TO PP BUFFER
08357  M01S00565.283l840 +++|          CRM    DATB,TW
08358  M01S00566.283l840 +++|          LDM    DATB+4      SET MST/TRT TRACK IN TABLE
08359  M01S00567.283l840 +++|          STD    TS
08360  M01S00568.283l840 +++|          SHN    1-13        ADD DAP STATUS IF SHARED DEVICE
08361  M01S00569.283l840 +++|          LPN    2
08362  M01S00570.283l840 +++|          RAD    RE
08363  M01S00571.283l840 +++|          LJM    RDEX        RETURN
08364  M01S00572.283l840 +++| SDT      SPACE  4,15
08365  M01S00573.283l840 +++|**        SDT - SEARCH DEVICE ACCESS TABLE.
08366  M01S00574.283l840 +++|*
08367  M01S00575.283l840 +++|*         ENTRY  (FN - FN+4) = EST ENTRY.
08368  M01S00576.283l840 +++|*                (CA+1) = CM ADDRESS (+1000) OF DAT.
08369  M01S00577.283l840 +++|*                (CN - CN+3) = DEVICE DESCRIPTION.
08370  M01S00578.283l840 +++|*                (QI) = CURRENT DAT INDEX.
08371  M01S00579.283l840 +++|*
08372  M01S00580.283l840 +++|*         EXIT   (A) = 0 IF ENTRY NOT FOUND.
08373  M01S00581.283l840 +++|*                (A) = ADDRESS OF DATB+11 IF ENTRY FOUND.
08374  M01S00582.283l840 +++|*                (QS) = INDEX INTO DEVICE ACCESS TABLE.
08375  M01S00583.283l840 +++|*                (DI) = DAT INDEX.
08376  M01S00584.283l840 +++|*
08377  M01S00585.283l840 +++|*         USES   T1, T2, DI, QS, CM - CM+4, CN+4.
08378  M01S00586.283l840 +++|
08379  M01S00587.283l840 +++|
08380  M01S00588.283l840 +++| SDT1     LDM    DATB+4
08381  M01S00589.283l840 +++|          NJN    SDT2        IF SHARED DEVICE SLOT
08382  M01S00590.283l840 +++|          LDD    T2          SAVE INDEX OF HOLE
08383  M01S00591.283l840 +++|          STD    QS
08384  M01S00592.283l840 +++| SDT2     LDD    DI
08385  M01S00593.283l840 +++|          ZJN    SDT3        IF DNAP BY THIS MACHINE
08386  M01S00594.283l840 +++|          LMD    T2
08387  M01S00595.283l840 +++|          NJN    SDT3        IF NOT AT DAT SLOT FOR DEVICE
08388  M01S00596.283l840 +++|          LDM    DATB+4      SET MST POINTER
08389  M01S00597.283l840 +++|          STD    CN+4
08390  M01S00598.283l840 +++| SDT3     LDN    2           ADVANCE INDEX
08391  M01S00599.283l840 +++|          RAD    T2
08392  M01S00600.283l840 +++|          LMD    QI
08393  M01S00601.283l840 +++|          ZJN    SDTX        IF END OF DAT ENTRIES
08394  M01S00602.283l840 +++| SDT4     LDD    RA          READ NEXT ENTRY
08395  M01S00603.283l840 +++|          SBN    10
08396  M01S00604.283l840 +++|          SHN    6
08397  M01S00605.283l840 +++|          ADD    CA+1
08398  M01S00606.283l840 +++|          ADD    T2
08399  M01S00607.283l840 +++|          CRM    DATB,TW
08400  M01S00608.283l840 +++|          LDM    DATB
08401  M01S00609.283l840 +++|          ZJN    SDT1        IF POSSIBLE HOLE
08402  M01S00610.283l840 +++|          LDN    CN
08403  M01S00611.283l840 +++|          STD    T1
08404  M01S00612.283l840 +++|
08405  M01S00613.283l840 +++|*         COMPARE ENTRY FOR MATCHING FAMILY/PACK NAME + DEVICE NUMBER.
08406  M01S00614.283l840 +++|
08407  M01S00615.283l840 +++| SDT5     LDM    DATB-CN,T1
08408  M01S00616.283l840 +++|          LMI    T1
08409  M01S00617.283l840 +++|          NJN    SDT2        IF NO MATCH
08410  M01S00618.283l840 +++|          AOD    T1
08411  M01S00619.283l840 +++|          LMN    CN+4
08412  M01S00620.283l840 +++|          NJN    SDT5        IF NOT 4 BYTES
08413  M01S00621.283l840 +++|          LDD    T2          SET INDEX TO MATCHING ENTRY
08414  M01S00622.283l840 +++|          STD    QS
08415  M01S00623.283l840 +++|          LDC    DATB+11
08416  M01S00624.283l840 +++|
08417  M01S00625.283l840 +++| SDT      SUBR               ENTRY/EXIT
08418  M01S00626.283l840 +++|          LDD    FN+4        READ MST FOR DAT INDEX
08419  M01S00627.283l840 +++|          SHN    3
08420  M01S00628.283l840 +++|          ADN    MDGL
08421  M01S00629.283l840 +++|          CRD    CM
08422  M01S00630.283l840 +++|          LDD    CM
08423  M01S00631.283l840 +++|          LPC    377         EXPAND DAT INDEX
08424  M01S00632.283l840 +++|          SHN    1
08425  M01S00633.283l840 +++|          STD    DI
08426  M01S00634.283l840 +++|          LDN    0           CLEAR SEARCH INDEX
08427  M01S00635.283l840 +++|          STD    T2
08428  M01S00636.283l840 +++|          STD    CN+4
08429  M01S00637.283l840 +++|          STD    QS
08430  M01S00638.283l840 +++|          LJM    SDT4        ENTER LOOP
08431  M01S00639.283l840 +++| SNT      SPACE  4,10
08432  M01S00640.283l840 +++|**        SNT - SET NEXT TRACK IN EXTENDED MEMORY TRACK CHAIN.
08433  M01S00641.283l840 +++|*
08434  M01S00642.283l840 +++|*         ENTRY  (A) = CURRENT TRACK.
08435  M01S00643.283l840 +++|*                (LDMP) = EXTENDED MEMORY MST POINTER.
08436  M01S00644.283l840 +++|*
08437  M01S00645.283l840 +++|*         EXIT   (A) = NEXT TRACK.
08438  M01S00646.283l840 +++|*
08439  M01S00647.283l840 +++|*         USES   T0, T1, CM - CM+4.
08440  M01S00648.283l840 +++|
08441  M01S00649.283l840 +++|
08442  M01S00650.283l840 +++| SNT      SUBR               ENTRY/EXIT
08443  M01S00651.283l840 +++|          SHN    21-1        REMOVE TRACK BIT
08444  M01S00652.283l840 +++|          LMD    TH
08445  M01S00653.283l840 +++|          STD    T0          SET WORD INDEX
08446  M01S00654.283l840 +++|          SHN    1-21
08447  M01S00655.283l840 +++|          STD    T1          SET BYTE INDEX
08448  M01S00656.283l840 +++|          LDM    LDMP        GET FWA OF TRT
08449  M01S00657.283l840 +++|          SHN    3
08450  M01S00658.283l840 +++|          ADN    TRLL
08451  M01S00659.283l840 +++|          CRD    CM
08452  M01S00660.283l840 +++|          LDD    CM+3        READ TRT WORD
08453  M01S00661.283l840 +++|          LPN    77
08454  M01S00662.283l840 +++|          SHN    14
08455  M01S00663.283l840 +++|          LMD    CM+4
08456  M01S00664.283l840 +++|          ADD    T0
08457  M01S00665.283l840 +++|          CRD    CM
08458  M01S00666.283l840 +++|          LDM    CM,T1       EXTRACT NEXT TRACK
08459  M01S00667.283l840 +++|          UJN    SNTX        RETURN
08460  M01S00668.283l840 +++| UDT      SPACE  4,15
08461  M01S00669.283l840 +++|**        UDT - UPDATE DEVICE ACCESS TABLE.
08462  M01S00670.283l840 +++|*
08463  M01S00671.283l840 +++|*         ENTRY  (RS) = RECOVERY STATUS.
08464  M01S00672.283l840 +++|*                (EQ) = EST ORDINAL.
08465  M01S00673.283l840 +++|*                (FN - FN+4) = EST ENTRY.
08466  M01S00674.283l840 +++|*                DAT ENTRY IN (DATB).
08467  M01S00675.283l840 +++|*
08468  M01S00676.283l840 +++|*         EXIT   (A) = 0 IF MST/TRT TRACK AVAILABLE.
08469  M01S00677.283l840 +++|*                (A) = MESSAGE ADDRESS, IF ERROR.
08470  M01S00678.283l840 +++|*
08471  M01S00679.283l840 +++|*         USES   QI, QS, QT, TS, T6, T7, CM+3 - CM+7, CN - CN+4.
08472  M01S00680.283l840 +++|*
08473  M01S00681.283l840 +++|*         CALLS  ABD, CEA, EBP, SNT, WDE.
08474  M01S00682.283l840 +++|
08475  M01S00683.283l840 +++|
08476  M01S00684.283l840 +++| UDT5     LDC    UDTA        EXIT WITH (A) = MESSAGE ADDRESS
08477  M01S00685.283l840 +++|
08478  M01S00686.283l840 +++| UDT      SUBR               ENTRY/EXIT
08479  M01S00687.283l840 +++|          LDD    RS
08480  M01S00688.283l840 +++|          ZJN    UDT1        IF LEVEL 0 DS/ON LINE RECOVERY
08481  M01S00689.283l840 +++|          LDM    DATB+11     SET MACHINE ACCESS
08482  M01S00690.283l840 +++|          LPC    -0
08483  M01S00691.283l840 +++|          MMTE   *-1
08484  M01S00692.283l840 +++|          LMC    0
08485  M01S00693.283l840 +++|          MMTE   *-1
08486  M01S00694.283l840 +++|          STM    DATB+11
08487  M01S00695.283l840 +++| UDT1     LDD    RE
08488  M01S00696.283l840 +++|          LPN    2
08489  M01S00697.283l840 +++|          NJN    UDT3        IF DEVICE ACCESSED PREVIOUSLY
08490  M01S00698.283l840 +++|          LDD    QS
08491  M01S00699.283l840 +++|          NJN    UDT2        IF EMPTY SLOT IN *DAT*
08492  M01S00700.283l840 +++|          LDD    QI          SET INDEX OF ENTRY
08493  M01S00701.283l840 +++|          STD    QS
08494  M01S00702.283l840 +++|          ADN    2           ADVANCE INDEX
08495  M01S00703.283l840 +++|          STD    QI
08496  M01S00704.283l840 +++| UDT2     LDD    RE          CHECK MST/TRT TRACK REQUIRED
08497  M01S00705.283l840 +++|          LPN    4
08498  M01S00706.283l840 +++|          ZJN    UDT3        IF NOT REQUIRED
08499  M01S00707.283l840 +++|          LDD    QT          ASSIGN MST/TRT TRACK
08500  M01S00708.283l840 +++|          RJM    SNT         ADVANCE CURRENT TRACK
08501  M01S00709.283l840 +++|          ZJN    UDT5        IF END OF TRACK CHAIN
08502  M01S00710.283l840 +++|          STM    DATB+4      SET TRACK IN *DAT* ENTRY
08503  M01S00711.283l840 +++|          STD    QT
08504  M01S00712.283l840 +++|          RJM    ABD         ALLOCATE BAT FOR DEVICE, IF REQUIRED
08505  M01S00713.283l840 +++|          NJP    UDTX        IF BAT TRACK NOT AVAILABLE
08506  M01S00714.283l840 +++| UDT3     RJM    WDE         WRITE DAT ENTRY TO ECS
08507  M01S00715.283l840 +++|          LDC    4000        FLAG RECOVERY IN PROGRESS
08508  M01S00716.283l840 +++|          RAM    DATB+11
08509  M01S00717.283l840 +++|          LDD    RA          UPDATE CM COPY OF DAT
08510  M01S00718.283l840 +++|          SBN    10
08511  M01S00719.283l840 +++|          SHN    6
08512  M01S00720.283l840 +++|          ADD    CA+1
08513  M01S00721.283l840 +++|          ADD    QS
08514  M01S00722.283l840 +++|          CWM    DATB,TW
08515  M01S00723.283l840 +++|
08516  M01S00724.283l840 +++|*         UPDATE MST.
08517  M01S00725.283l840 +++|
08518  M01S00726.283l840 +++|          LDD    FN+4        READ DRIVER WORD
08519  M01S00727.283l840 +++|          SHN    3
08520  M01S00728.283l840 +++|          ADN    MDGL
08521  M01S00729.283l840 +++|          CRD    CN
08522  M01S00730.283l840 +++|          LDN    ZERL
08523  M01S00731.283l840 +++|          CRD    CM+3
08524  M01S00732.283l840 +++|          LDM    DATB+4
08525  M01S00733.283l840 +++|          STD    TS
08526  M01S00734.283l840 +++|          STD    T6
08527  M01S00735.283l840 +++|          LDD    RE
08528  M01S00736.283l840 +++|          LPN    2
08529  M01S00737.283l840 +++|          ZJN    UDT4        IF DEVICE NOT ACCESSED PREVIOUSLY
08530  M01S00738.283l840 +++|          LDN    0
08531  M01S00739.283l840 +++|          STD    T7
08532  M01S00740.283l840 +++|          RJM    CEA         CONVERT EXTENDED MEMORY ADDRESS
08533  M01S00741.283l840 +++| UDT4     LDD    CN          SET *DAT* INDEX IN DRIVER WORD
08534  M01S00742.283l840 +++|          LPC    6000
08535  M01S00743.283l840 +++|          SHN    1
08536  M01S00744.283l840 +++|          LMD    QS
08537  M01S00745.283l840 +++|          SHN    -1
08538  M01S00746.283l840 +++|          STD    CN
08539  M01S00747.283l840 +++|          LDD    FN+4        STORE MST INFORMATION
08540  M01S00748.283l840 +++|          SHN    3
08541  M01S00749.283l840 +++|          ADN    MDGL
08542  M01S00750.283l840 +++|          CWD    CN
08543  M01S00751.283l840 +++|          SBN    MDGL-SDGL
08544  M01S00752.283l840 +++|          CWD    CM+3
08545  M01S00753.283l840 +++|          ADN    NVGL-SDGL   READ *NVGL*
08546  M01S00754.283l840 +++|          CRD    CN
08547  M01S00755.283l840 +++|          LDM    DATB+5      SET BAT EM ADDRESS
08548  M01S00756.283l840 +++|          STD    CN+1
08549  M01S00757.283l840 +++|          LDM    DATB+6
08550  M01S00758.283l840 +++|          STD    CN+2
08551  M01S00759.283l840 +++|          LDD    FN+4        REWRITE *NVGL*
08552  M01S00760.283l840 +++|          SHN    3
08553  M01S00761.283l840 +++|          ADN    NVGL
08554  M01S00762.283l840 +++|          CWD    CN
08555  M01S00763.283l840 +++|          RJM    EBP         ENABLE BST/BAT PROCESSING IF REQUIRED
08556  M01S00764.283l840 +++|          LDN    0
08557  M01S00765.283l840 +++|          LJM    UDTX        RETURN
08558  M01S00766.283l840 +++|
08559  M01S00767.283l840 +++| UDTA     DATA   C* END OF DAT TRACK CHAIN.*
08560  M01S00768.283l840 +++| WDE      SPACE  4,15
08561  M01S00769.283l840 +++|**        WDE - WRITE DAT ENTRY TO EXTENDED MEMORY.
08562  M01S00770.283l840 +++|*
08563  M01S00771.283l840 +++|*         ENTRY  (QS) = DAT INDEX.
08564  M01S00772.283l840 +++|*                DAT ENTRY IN (DATB).
08565  M01S00773.283l840 +++|*
08566  M01S00774.283l840 +++|*         EXIT   (A) = 0.
08567  M01S00775.283l840 +++|*                (T6) = DAT TRACK.
08568  M01S00776.283l840 +++|*
08569  M01S00777.283l840 +++|*         USES   T6, T7, CM - CM+4.
08570  M01S00778.283l840 +++|*
08571  M01S00779.283l840 +++|*         CALLS  ADE.
08572  M01S00780.283l840 +++|
08573  M01S00781.283l840 +++|
08574  M01S00782.283l840 +++| WDE      SUBR               ENTRY/EXIT
08575  M01S00783.283l840 +++|          LDD    MA          MOVE DAT ENTRY TO MESSAGE BUFFER
08576  M01S00784.283l840 +++|          CWM    DATB,TW
08577  M01S00785.283l840 +++|          LDN    WECS        SET WRITE SUBFUNCTION
08578  M01S00786.283l840 +++|          RJM    ADE         ACCESS *DAT* ENTRY
08579  M01S00787.283l840 +++|          UJN    WDEX        RETURN
08580  M01S00788.283l840 +++|          SPACE  4,10
08581  M01S00789.283l840 +++| ORDH     EQU    *+5         LOAD ADDRESS FOR *4DH*
08582  M01S00790.283l840 +++|          TITLE  VERIFY LABEL PARAMETERS.
08583  M01S06874.msm     +++| CCE      SPACE  4,15
Line S06875 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
08584  M02S06875.283l840 ---| CCE      TITLE  VERIFY LABEL PARAMETERS.
08585  M01S06876.msm     +++|**        CCE - CHECK CHAINED EQUIPMENT.
08586  M01S06877.msm     +++|*
08587  M01S06878.msm     +++|*         ENTRY  (T5) = EST ORDINAL.
08588  M01S06879.msm     +++|*                (FN - FN+4) = EST ENTRY.
08589  M01S06880.msm     +++|*
08590  M01S06881.msm     +++|*         EXIT   (A) .LT. 0 IF FIRST EQUIPMENT IN CHAIN FOUND.
08591  M01S06882.msm     +++|*                (EC) = *STCE* IF FIRST EQUIPMENT NOT FOUND.
08592  M01S06883.msm     +++|*
08593  M01S06884.msm     +++|*         USES   T3, T6, CM - CM+6, CN - CN+4.
08594  M01S06885.msm     +++|*
08595  M01S06886.msm     +++|*         CALLS  CEP, CLP, LRA.
08596  M01S06887.msm     +++|*
08597  M01S06888.msm     +++|*         MACROS SFA.
08598  M01S06889.msm     +++|
08599  M01S06890.msm     +++|
08600  M01S06891.msm     +++| CCE1     RJM    LRA         LOAD REFERENCE ADDRESS
08601  M01S06892.msm     +++|          ADD    T6
08602  M01S06893.msm     +++|          CRD    RD
08603  M01S06894.msm     +++|          LDD    RE          CHECK EQUIPMENT STATUS
08604  M01S06895.msm     +++|          SHN    21-10
08605  M01S06896.msm     +++|          PJN    CCE2        IF NOT REMOVABLE DEVICE
08606  M01S06897.msm     +++|          LDD    T6
08607  M01S06898.msm     +++|          LMD    EQ
08608  M01S06899.msm     +++|          ZJN    CCE2        IF INITIAL EQUIPMENT
08609  M01S06900.msm     +++|          SFA    EST,T6      READ EST ENTRY
08610  M01S06901.msm     +++|          ADK    EQDE
08611  M01S06902.msm     +++|          CRD    CM
08612  M01S06903.msm     +++|          RJM    CEP         COMPARE EQUIPMENT PARAMETERS
08613  M01S06904.msm     +++|          NJN    CCE2        IF NO MATCH
08614  M01S06905.msm     +++|          RJM    LRA         LOAD REFERENCE ADDRESS
08615  M01S06906.msm     +++|          ADD    AL
08616  M01S06907.msm     +++|          ADN    PFGL
08617  M01S06908.msm     +++|          CRD    CM+2
08618  M01S06909.msm     +++|          ADN    PUGL-PFGL   GET USER NAME
08619  M01S06910.msm     +++|          CRD    CN
08620  M01S06911.msm     +++|          RJM    CLP         CHECK LABEL PARAMETERS
08621  M01S06912.msm     +++|          ZJN    CCE3        IF CORRECT UNIT FOUND
08622  M01S06913.msm     +++| CCE2     AOD    T6          READ EST ENTRY
08623  M01S06914.msm     +++|          LMD    LO
08624  M01S06915.msm     +++|          NJN    CCE1        IF NOT END OF MASS STORAGE EST
08625  M01S06916.msm     +++|          LDN    STCE        SET CONFIGURATION ERROR
08626  M01S06917.msm     +++| CCE3     STD    EC
08627  M01S06918.msm     +++|          SBN    1
08628  M01S06919.msm     +++|
08629  M01S06920.msm     +++| CCE      SUBR               ENTRY/EXIT
08630  M01S06921.msm     +++|          LDN    NOPE-1      INITIALIZE EST ORDINAL FOR SEARCH
08631  M01S06922.msm     +++|          STD    T6          SET START OF EST SCAN
08632  M01S06923.msm     +++|          LDD    FN+3
08633  M01S06924.msm     +++|          STM    CEFA
08634  M01S06925.msm     +++|          UJN    CCE2        ENTER LOOP
08635  M01S06926.msm     +++| CEP      SPACE  4,10
08636  M01S06927.msm     +++|**        CEP - COMPARE EQUIPMENT PARAMETERS.
08637  M01S06928.msm     +++|*
08638  M01S06929.msm     +++|*         ENTRY  (FN - FN+4) = EST ENTRY OF PRIMARY EQUIPMENT.
08639  M01S06930.msm     +++|*                (CM - CM+4) = EST ENTRY OF DEVICE BEING CHECKED.
08640  M01S06931.msm     +++|*
08641  M01S06932.msm     +++|*         EXIT   (A) = 0 IF MATCHING EQUIPMENTS.
08642  M01S06933.msm     +++|
08643  M01S06934.msm     +++|
08644  M01S06935.msm     +++| CEP1     LDD    CM+2        TEST FOR SECONDARY CHANNEL
08645  M01S06936.msm     +++| CEP2     LMD    FN+2
08646  M01S06937.msm     +++|          LPC    4677        CHECK CHANNEL ACTIVE, MODE AND PORT
08647  M01S06938.msm     +++|
08648  M01S06939.msm     +++| CEP      SUBR               ENTRY/EXIT
08649  M01S06940.msm     +++|          LDC    **
08650  M01S06941.msm     +++| CEFA     EQU    *-1         (DEVICE MNEMONIC)
08651  M01S06942.msm     +++|          LMD    CM+3
08652  M01S06943.msm     +++|          NJN    CEPX        IF NOT SAME TYPE
08653  M01S06944.msm     +++|          LDD    FN+1
08654  M01S06945.msm     +++|          LMD    CM+1        TEST CHANNELS
08655  M01S06946.msm     +++|          LPC    4677
08656  M01S06947.msm     +++|          ZJN    CEP1        IF MATCH ON PRIMARY CHANNEL
08657  M01S06948.msm     +++|          LDD    FN+1
08658  M01S06949.msm     +++|          LMD    CM+2        REORDER CHANNEL TEST
08659  M01S06950.msm     +++|          LPC    4677
08660  M01S06951.msm     +++|          NJN    CEPX        IF NO CHANNEL MATCH
08661  M01S06952.msm     +++|          LDD    CM+1
08662  M01S06953.msm     +++|          UJN    CEP2        TEST FOR SECONDARY CHANNEL
08663  M01S06954.msm     +++| CLP      SPACE  4,15
08664  M01S06955.msm     +++|**        CLP - CHECK LABEL PARAMETERS.
08665  M01S06956.msm     +++|*
08666  M01S06957.msm     +++|*         ENTRY  (UC) = N/M OF DESIRED UNIT.
08667  M01S06958.msm     +++|*                (CM+2 - CM+6) = FAMILY/PACK NAME.
08668  M01S06959.msm     +++|*                (CN - CN+4) = USER NAME.
08669  M01S06960.msm     +++|*                (DLPB) = UNIT LABEL PARAMETERS.
08670  M01S06961.msm     +++|*
08671  M01S06962.msm     +++|*         EXIT   (A) = 0 IF VALID LABEL.
08672  M01S06963.msm     +++|*                (A) = *STIL* IF REQUESTED UNIT NOT FOUND.
08673  M01S06964.msm     +++|*
08674  M01S06965.msm     +++|*         USES   T1.
08675  M01S06966.msm     +++|
08676  M01S06967.msm     +++|
08677  M01S06968.msm     +++| CLP      SUBR               ENTRY/EXIT
08678  M01S06969.msm     +++|          LDN    0
08679  M01S06970.msm     +++|          STD    T1
08680  M01S06971.msm     +++| CLP1     LDM    DLPB,T1     VERIFY FAMILY/PACK NAME
08681  M01S06972.msm     +++|          LMM    CM+2,T1
08682  M01S06973.msm     +++|          NJN    CLP3        IF NO MATCH
08683  M01S06974.msm     +++|          AOD    T1          INCREMENT INDEX
08684  M01S06975.msm     +++|          LMN    4
08685  M01S06976.msm     +++|          NJN    CLP1        LOOP FOR FOUR BYTES
08686  M01S06977.msm     +++|          LDD    UC          CHECK NUMBER OF UNITS
08687  M01S06978.msm     +++|          LMD    CM+6
08688  M01S06979.msm     +++|          LPN    77
08689  M01S06980.msm     +++|          NJN    CLP3        IF INCORRECT UNIT COUNT
08690  M01S06981.msm     +++| CLP2     LDM    DLPB+1,T1   VERIFY OWNER
08691  M01S06982.msm     +++|          LMM    CN-4,T1
08692  M01S06983.msm     +++|          NJN    CLP3        IF NO MATCH
08693  M01S06984.msm     +++|          AOD    T1          ADVANCE INDEX
08694  M01S06985.msm     +++|          LMN    7
08695  M01S06986.msm     +++|          NJN    CLP2        LOOP FOR THREE BYTES
08696  M01S06987.msm     +++|          LDM    DLPB+10     CHECK SEVENTH CHARACTER
08697  M01S06988.msm     +++|          LMD    CN+3
08698  M01S06989.msm     +++|          SCN    77
08699  M01S06990.msm     +++|          ZJN    CLPX        IF VALID LABEL
08700  M01S06991.msm     +++| CLP3     LDN    STIL        SET ERROR STATUS
08701  M01S06992.msm     +++|          UJN    CLPX        RETURN
08702  M01S06993.msm     +++| VDP      SPACE  4,15
08703  M01S06994.msm     +++|**        VDP - VERIFY DEVICE PARAMETERS.
08704  M01S06995.msm     +++|*
08705  M01S06996.msm     +++|*         ENTRY  (CA) = CM ADDRESS OF MST.
08706  M01S06997.msm     +++|*                (FN - FN+4) = EST ENTRY.
08707  M01S06998.msm     +++|*
08708  M01S06999.msm     +++|*         EXIT   (A) = 0 IF MST PARAMETERS MATCH LABEL.
08709  M01S07000.msm     +++|*                    = *STLE* IF ERROR IN FAMILY NAME.
08710  M01S07001.msm     +++|*
08711  M01S07002.msm     +++|*         USES   CM+2 - CM+6, CN - CN+4.
08712  M01S07003.msm     +++|*
08713  M01S07004.msm     +++|*         CALLS  CLP, LRA, VFN.
08714  M01S07005.msm     +++|
08715  M01S07006.msm     +++|
08716  M01S07007.msm     +++| VDP2     LDN    STLE        SET LABEL ERROR STATUS
08717  M01S07008.msm     +++|
08718  M01S07009.msm     +++| VDP      SUBR               ENTRY/EXIT
08719  M01S07010.msm     +++|          LDD    FN+4        GET FAMILY NAME FROM MST
08720  M01S07011.msm     +++|          SHN    3
08721  M01S07012.msm     +++|          ADN    PFGL
08722  M01S07013.msm     +++|          CRD    CM+2
08723  M01S07014.msm     +++|          RJM    VFN
08724  M01S07015.msm     +++|          NJN    VDP1        IF VALID NAME
08725  M01S07016.msm     +++|          LDD    CM+5        CHECK FOR NULL FAMILY
08726  M01S07017.msm     +++|          SCN    77
08727  M01S07018.msm     +++|          ADD    CM+4
08728  M01S07019.msm     +++|          ADD    CM+3
08729  M01S07020.msm     +++|          ADD    CM+2
08730  M01S07021.msm     +++|          NJN    VDP2        IF NOT NULL FAMILY
08731  M01S07022.msm     +++| VDP1     RJM    LRA         LOAD REFERENCE ADDRESS
08732  M01S07023.msm     +++|          ADD    CA
08733  M01S07024.msm     +++|          ADN    PFGL
08734  M01S07025.msm     +++|          CRD    CM+2
08735  M01S07026.msm     +++|          ADN    PUGL-PFGL   READ USER NAME
08736  M01S07027.msm     +++|          CRD    CN
08737  M01S07028.msm     +++|          RJM    CLP         CHECK LABEL PARAMETERS
08738  M01S07029.msm     +++|          UJN    VDPX        RETURN
08739  M01S07030.msm     +++| VLP      SPACE  4,15
08740  M01S07031.msm     +++|**        VLP - VERIFY LABEL PARAMETERS.
08741  M01S07032.msm     +++|*
08742  M01S07033.msm     +++|*         ENTRY  (DLPB) LOADED WITH LABEL PARAMETERS.
08743  M01S07034.msm     +++|*                (T5) = EST ORDINAL.
08744  M01S07035.msm     +++|*                (EQ) = PRIMARY EST ORDINAL.
08745  M01S07036.msm     +++|*                (FN - FN+4) = EST ENTRY.
08746  M01S07037.msm     +++|*                (FS - FS+4) = STLL WORD OF EQUIPMENT.
08747  M01S07038.msm     +++|*
08748  M01S07039.msm     +++|*         EXIT   (A) = (EC) = 0 IF VALID LABEL.
08749  M01S07040.msm     +++|*                    .LT. 0 IF EQUIPMENT NOT FIRST IN CHAIN.
08750  M01S07041.msm     +++|*                (EC) = *STIL* IF ANY UNIT HAS INCORRECT LABEL.
08751  M01S07042.msm     +++|*                (EC) = *STCE* IF ANY UNIT CAUSES CONFIGURATION ERROR.
08752  M01S07043.msm     +++|*                (EC) = *STNR* IF ANY UNIT NOT READY.
08753  M01S07044.msm     +++|*                (EC) = *STLE* IF ANY UNIT HAS INCORRECT LABEL.
08754  M01S07045.msm     +++|*                (FN - FN+4) = EST ENTRY OF PRIMARY EQUIPMENT.
08755  M01S07046.msm     +++|*                (FS - FS+4) = STLL WORD OF PRIMARY EQUIPMENT.
08756  M01S07047.msm     +++|*                (T5) = PRIMARY EST ORDINAL.
08757  M01S07048.msm     +++|*
08758  M01S07049.msm     +++|*         USES   T0 - T7, EC, UC, CA, CA+1, FN - FN+4, FS - FS+4.
08759  M01S07050.msm     +++|*
08760  M01S07051.msm     +++|*         CALLS  CCE, LRA, VDP.
08761  M01S07052.msm     +++|*
08762  M01S07053.msm     +++|*         MACROS SFA, SMSTF.
08763  M01S07054.msm     +++|
08764  M01S07055.msm     +++|
08765  M01S07056.msm     +++| VLP12    RJM    CCE         CHECK CHAINED EQUIPMENT
08766  M01S07057.msm     +++|          MJN    VLPX        IF FIRST EQUIPMENT FOUND
08767  M01S07058.msm     +++| VLP13    LDD    EQ          RESTORE PRIMARY EQUIPMENT PARAMETERS
08768  M01S07059.msm     +++|          STD    T5
08769  M01S07060.msm     +++|          RJM    LRA         LOAD REFERENCE ADDRESS
08770  M01S07061.msm     +++|          ADD    T5
08771  M01S07062.msm     +++|          CRD    RD
08772  M01S07063.msm     +++|          SFA    EST,T5
08773  M01S07064.msm     +++|          ADK    EQDE
08774  M01S07065.msm     +++|          CRD    FN
08775  M01S07066.msm     +++|          LDD    FN+4        RESTORE STATUS WORD
08776  M01S07067.msm     +++|          SHN    3
08777  M01S07068.msm     +++|          ADN    STLL
08778  M01S07069.msm     +++|          CRD    FS
08779  M01S07070.msm     +++|          LDD    EC          EXIT WITH (A) = ERROR CODE
08780  M01S07071.msm     +++|
08781  M01S07072.msm     +++| VLP      SUBR               ENTRY/EXIT
08782  M01S07073.msm     +++|          RJM    LRA         LOAD REFERENCE ADDRESS
08783  M01S07074.msm     +++|          ADD    EQ
08784  M01S07075.msm     +++|          CWD    RD          REWRITE RECOVERY TABLE
08785  M01S07076.msm     +++|          LDN    0           CLEAR CURRENT UNIT COUNT
08786  M01S07077.msm     +++|          STD    T7
08787  M01S07078.msm     +++|          STD    EC
08788  M01S07079.msm     +++|          LDM    DLPB+4      SET TOTAL UNIT COUNT
08789  M01S07080.msm     +++|          LPN    77
08790  M01S07081.msm     +++|          STD    T3
08791  M01S07082.msm     +++|          LPN    7
08792  M01S07083.msm     +++|          STD    T2
08793  M01S07084.msm     +++|          STD    UC          SET CURRENT UNIT POSITION
08794  M01S07085.msm     +++|          LMD    T3
08795  M01S07086.msm     +++|          ZJN    VLP1        IF FIRST EQUIPMENT IN CHAIN
08796  M01S07087.msm     +++|          LJM    VLP12       CHECK CHAINED EQUIPMENT
08797  M01S07088.msm     +++|
08798  M01S07089.msm     +++|*         SET PARAMETERS FOR THIS EQUIPMENT.
08799  M01S07090.msm     +++|
08800  M01S07091.msm     +++| VLP1     LDD    AL          SET ADDRESS OF CURRENT UNITS MST
08801  M01S07092.msm     +++|          STD    CA
08802  M01S07093.msm     +++|          LDN    0           CLEAR CURRENT UNIT COUNT FOR THIS EQUIP.
08803  M01S07094.msm     +++|          STD    T6
08804  M01S07095.msm     +++|          LDD    FN+4
08805  M01S07096.msm     +++|          SHN    3
08806  M01S07097.msm     +++|          ADN    DDLL
08807  M01S07098.msm     +++|          CRD    CM
08808  M01S07099.msm     +++|          LDD    CM          SET UNIT COUNT FOR THIS EQUIPMENT
08809  M01S07100.msm     +++|          SHN    -3
08810  M01S07101.msm     +++|          LPN    7
08811  M01S07102.msm     +++|          STD    T3
08812  M01S07103.msm     +++| VLP2     RJM    LRA         LOAD REFERENCE ADDRESS
08813  M01S07104.msm     +++|          ADD    CA
08814  M01S07105.msm     +++|          ADN    STLL        READ STATUS WORD
08815  M01S07106.msm     +++|          CRD    CM
08816  M01S07107.msm     +++|
08817  M01S07108.msm     +++|*         VERIFY ALL UNITS FOR THIS EQUIPMENT.
08818  M01S07109.msm     +++|
08819  M01S07110.msm     +++|          LDD    CM+1
08820  M01S07111.msm     +++|          LPN    77
08821  M01S07112.msm     +++|          ZJN    VLP5        IF NO ERROR THIS UNIT
08822  M01S07113.msm     +++|          STD    EC          SET ERROR CODE
08823  M01S07114.msm     +++|          LDD    T7
08824  M01S07115.msm     +++|          ZJN    VLP4        IF FIRST UNIT OF EQUIPMENT
08825  M01S07116.msm     +++|          LDN    STCE        *CONFIGURATION ERROR*
08826  M01S07117.msm     +++| VLP3     STD    EC
08827  M01S07118.msm     +++| VLP4     LJM    VLP13
08828  M01S07119.msm     +++|
08829  M01S07120.msm     +++| VLP5     RJM    VDP         VERIFY DEVICE PARAMETERS
08830  M01S07121.msm     +++|          NJN    VLP3        IF LABEL CONFLICT
08831  M01S07122.msm     +++|
08832  M01S07123.msm     +++|*         LABEL FOR THIS UNIT VALID - PROCEED TO NEXT UNIT.
08833  M01S07124.msm     +++|
08834  M01S07125.msm     +++|          LDD    EQ
08835  M01S07126.msm     +++|          LMD    T5
08836  M01S07127.msm     +++|          ZJN    VLP6        IF FIRST EQUIPMENT IN CHAIN
08837  M01S07128.msm     +++|          SMSTF  LDIU        SET DEVICE IN USE
08838  M01S07129.msm     +++|*         LDN    0           INHIBIT FURTHER PROCESSING OF DEVICE
08839  M01S07130.msm     +++|          STD    RE
08840  M01S07131.msm     +++|          RJM    LRA         LOAD REFERENCE ADDRESS
08841  M01S07132.msm     +++|          ADD    T5
08842  M01S07133.msm     +++|          CWD    RD
08843  M01S07134.msm     +++| VLP6     LDD    T7
08844  M01S07135.msm     +++|          LMD    T2
08845  M01S07136.msm     +++|          ZJN    VLP7        IF NO MORE UNITS
08846  M01S07137.msm     +++|          AOD    T7          SET N/M FOR NEXT UNIT
08847  M01S07138.msm     +++|          SHN    3
08848  M01S07139.msm     +++|          ADD    T2
08849  M01S07140.msm     +++|          STD    UC
08850  M01S07141.msm     +++|          LDD    T6
08851  M01S07142.msm     +++|          LMD    T3
08852  M01S07143.msm     +++|          ZJN    VLP10       IF NO MORE UNITS THIS EQUIPMENT
08853  M01S07144.msm     +++|          AOD    T6          ADVANCE UNIT NUMBER
08854  M01S07145.msm     +++|          LDN    MSTL        ADVANCE TABLE ADDRESS
08855  M01S07146.msm     +++|          RAD    CA
08856  M01S07147.msm     +++|          LJM    VLP2
08857  M01S07148.msm     +++|
08858  M01S07149.msm     +++|*         ALL UNITS CHECKED.
08859  M01S07150.msm     +++|
08860  M01S07151.msm     +++| VLP7     LDD    FN
08861  M01S07152.msm     +++|          SHN    0-10
08862  M01S07153.msm     +++|          LPN    1
08863  M01S07154.msm     +++|          LMN    1
08864  M01S07155.msm     +++|          ZJN    VLP9        IF DEVICE REMOVABLE
08865  M01S07156.msm     +++|          LDD    FN+4        GET UNIT COUNT FROM MST
08866  M01S07157.msm     +++|          SHN    3
08867  M01S07158.msm     +++|          ADN    DDLL
08868  M01S07159.msm     +++|          CRD    CN
08869  M01S07160.msm     +++|          LDD    CN
08870  M01S07161.msm     +++|          LPN    7
08871  M01S07162.msm     +++|          LMD    T7
08872  M01S07163.msm     +++|          ZJN    VLP9        IF CORRECT NUMBER OF UNITS
08873  M01S07164.msm     +++| VLP8     LDN    STCE        SET CONFIGURATION ERROR
08874  M01S07165.msm     +++| VLP9     STD    EC
08875  M01S07166.msm     +++|          LJM    VLP13
08876  M01S07167.msm     +++|
08877  M01S07168.msm     +++|*         PROCEED TO NEXT EQUIPMENT IN CHAIN.
08878  M01S07169.msm     +++|
08879  M01S07170.msm     +++| VLP10    LDD    FS+4
08880  M01S07171.msm     +++|          SHN    -3
08881  M01S07172.msm     +++|          NJN    VLP11       IF EQUIPMENT LINKED
08882  M01S07173.msm     +++|          RJM    CCE         CHECK CHAINED EQUIPMENT
08883  M01S07174.msm     +++|          PJN    VLP8        IF NO EQUIPMENT TO CHAIN
08884  M01S07175.msm     +++|          LDD    T6          SET EQUIPMENT LINK
08885  M01S07176.msm     +++|          SHN    3
08886  M01S07177.msm     +++|          RAD    FS+4
08887  M01S07178.msm     +++|
08888  M01S07179.msm     +++|*         REREAD EST ENTRY, SINCE (FN+4) WAS DESTROYED BY *CCE*.
08889  M01S07180.msm     +++|
08890  M01S07181.msm     +++|          SFA    EST,T5      REREAD EST ENTRY
08891  M01S07182.msm     +++|          ADK    EQDE
08892  M01S07183.msm     +++|          CRD    FN
08893  M01S07184.msm     +++|          LDD    FN+4        UPDATE MST
08894  M01S07185.msm     +++|          SHN    3
08895  M01S07186.msm     +++|          ADN    STLL
08896  M01S07187.msm     +++|          CWD    FS
08897  M01S07188.msm     +++|          LDD    T6          SET NEXT EQUIPMENT
08898  M01S07189.msm     +++| VLP11    STD    T5
08899  M01S07190.msm     +++|          RJM    LRA         LOAD REFERENCE ADDRESS
08900  M01S07191.msm     +++|          ADD    T5
08901  M01S07192.msm     +++|          CRD    RD
08902  M01S07193.msm     +++|          SFA    EST,T5      READ EST ENTRY
08903  M01S07194.msm     +++|          ADK    EQDE
08904  M01S07195.msm     +++|          CRD    FN
08905  M01S07196.msm     +++|          LDD    FN+4        READ MST STATUS WORD
08906  M01S07197.msm     +++|          SHN    3
08907  M01S07198.msm     +++|          ADN    STLL
08908  M01S07199.msm     +++|          CRD    FS
08909  M01S07200.msm     +++|          LJM    VLP1        LOOP FOR NEXT EQUIPMENT IN CHAIN
08910  M01S07201.msm     +++|          SPACE  4,10
08911  M01S07202.msm     +++|**        COMMON DECKS.
08912  M01S07203.msm     +++|
08913  M01S07204.msm     +++|
08914  M01S07205.msm     +++|          QUAL   VFN
08915  M01S07206.msm     +++| FN       EQU    CM+2
08916  M01S07207.msm     +++|*CALL     COMPVFN
08917  M01S07208.msm     +++|          QUAL   *
08918  M01S07209.msm     +++| VFN      EQU    /VFN/VFN
08919  M01S00791.283l840 +++|          SPACE  4,10
08920  M01S00792.283l840 +++| ORDG     EQU    *+5         LOAD ADDRESS FOR *4DG*
08921  M01S00793.283l840 +++| ORDJ     EQU    *+5         LOAD ADDRESS FOR *4DJ*
Line S07210 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
08922  M02S07210.283l840 ---|          TITLE  CMS DEVICE VERIFICATION ROUTINES.
Line S07211 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
08923  M02S07211.283l840 ---|*         THE FOLLOWING SUBROUTINES ARE ONLY USED BY *CMS*.
08924  M01S00794.283l840 +++|          TITLE  *CMS* DEVICE VERIFICATION - COMMON ROUTINES.
08925  M01S00795.283l840 +++| CUS      SPACE  4,15
08926  M01S00796.283l840 +++|**        CUS - CHECK UNLOAD STATUS.
08927  M01S00797.283l840 +++|*
08928  M01S00798.283l840 +++|*         ENTRY  (A) = 0 IF CHECKING DEVICE ACTIVITY.
08929  M01S00799.283l840 +++|*                    = MID IF PROCESSING UNLOAD.
08930  M01S00800.283l840 +++|*
08931  M01S00801.283l840 +++|*         EXIT   (A) .LT. 0 IF DEVICE INACCESSIBLE.
08932  M01S00802.283l840 +++|*                    = (DATB) = 0 IF DEVICE INACTIVE.
08933  M01S00803.283l840 +++|*                             .GT. 0 IF DEVICE ACTIVE.
08934  M01S00804.283l840 +++|*
08935  M01S00805.283l840 +++|*         USES   T3, T7.
08936  M01S00806.283l840 +++|*
08937  M01S00807.283l840 +++|*         CALLS  RIL.
08938  M01S00808.283l840 +++|*
08939  M01S00809.283l840 +++|*         MACROS ENDMS.
08940  M01S00810.283l840 +++|
08941  M01S00811.283l840 +++|
08942  M01S00812.283l840 +++| CUS      SUBR               ENTRY/EXIT
08943  M01S00813.283l840 +++|          STD    T3
08944  M01S00814.283l840 +++|          RJM    RIL
08945  M01S00815.283l840 +++|          MJN    CUSX        IF DEVICE NOT ACCESSIBLE
08946  M01S00816.283l840 +++|          ENDMS
08947  M01S00817.283l840 +++|*         LDN    0
08948  M01S00818.283l840 +++|*         STD    T7
08949  M01S00819.283l840 +++| CUS1     LDN    5           ADVANCE DIT INDEX
08950  M01S00820.283l840 +++|          RAD    T7
08951  M01S00821.283l840 +++|          LMC    5*MISD+5
08952  M01S00822.283l840 +++|          ZJN    CUS2        IF END OF DIT
08953  M01S00823.283l840 +++|          LDM    DISS-5+4,T7
08954  M01S00824.283l840 +++|          ZJN    CUS1        IF DIT SLOT EMPTY
08955  M01S00825.283l840 +++|          LMD    T3
08956  M01S00826.283l840 +++|          ZJN    CUS1        IF ASSIGNED TO THIS MACHINE
08957  M01S00827.283l840 +++| CUS2     STM    DATB
08958  M01S00828.283l840 +++|          UJN    CUSX        RETURN
08959  M01S00829.283l840 +++| RIL      SPACE  4,15
08960  M01S00830.283l840 +++|**        RIL - READ INDEPENDENT SHARED DEVICE LABEL.
08961  M01S00831.283l840 +++|*
08962  M01S00832.283l840 +++|*         ENTRY  (A) .LT. 0, IF WAIT ON NOT READY DESIRED.
08963  M01S00833.283l840 +++|*                (T5) = EST ORDINAL.
08964  M01S00834.283l840 +++|*                (FN - FN+4) = EST ENTRY.
08965  M01S00835.283l840 +++|*
08966  M01S00836.283l840 +++|*         EXIT   (A) = READ STATUS.
08967  M01S00837.283l840 +++|*                (T7) = 0 IF LABEL READ.
08968  M01S00838.283l840 +++|*                (BFMS) = LABEL SECTOR.
08969  M01S00839.283l840 +++|*
08970  M01S00840.283l840 +++|*         CALLS  CLT, RDS.
08971  M01S00841.283l840 +++|*
08972  M01S00842.283l840 +++|*         MACROS ENDMS, SETMS.
08973  M01S00843.283l840 +++|
08974  M01S00844.283l840 +++|
08975  M01S00845.283l840 +++| RIL2     SETMS  IO,(DE,DF,NR)
08976  M01S00846.283l840 +++|          RJM    CLT
08977  M01S00847.283l840 +++|          NJN    RIL3        IF LABEL TRACK KNOWN
08978  M01S00848.283l840 +++|          LDD    CM+7
08979  M01S00849.283l840 +++|          ZJN    RIL1        IF NO PREVIOUS LABEL TRACK
08980  M01S00850.283l840 +++|          STD    T6
08981  M01S00851.283l840 +++| RIL3     LDN    0           SET LABEL SECTOR
08982  M01S00852.283l840 +++|          STD    T7
08983  M01S00853.283l840 +++|          LDC    BFMS        READ LABEL SECTOR
08984  M01S00854.283l840 +++|          RJM    RDS
08985  M01S00855.283l840 +++|          MJN    RIL1        IF READ ERROR
08986  M01S00856.283l840 +++|
08987  M01S00857.283l840 +++| RIL      SUBR               ENTRY/EXIT
08988  M01S00858.283l840 +++|          PJN    RIL2        IF RETURN ON NOT READY
08989  M01S00859.283l840 +++|          SETMS  IO,(DE,DF)
08990  M01S00860.283l840 +++|          RJM    CLT
08991  M01S00861.283l840 +++|          NJN    RIL3        IF LABEL TRACK FOUND
08992  M01S00862.283l840 +++| RIL1     ENDMS
08993  M01S00863.283l840 +++|          LCN    1
08994  M01S00864.283l840 +++|          UJN    RILX        RETURN
08995  M01S00865.283l840 +++|          SPACE  4,10
08996  M01S00866.283l840 +++| ORDE     EQU    *+5         LOAD ADDRESS FOR *4DE*
08997  M01S00867.283l840 +++|          TITLE  *CMS* ACTIVE/INACTIVE DEVICE ROUTINES.
08998  M01S07212.msm     +++| CAD      SPACE  4,15
08999  M01S07213.msm     +++|**        CAD - CHECK ACTIVE DEVICES.
09000  M01S07214.msm     +++|*
09001  M01S07215.msm     +++|*         ENTRY  (EQ) = (T5) = EST ORDINAL.
09002  M01S07216.msm     +++|*                (FN - FN+4) = EST ENTRY.
09003  M01S07217.msm     +++|*
09004  M01S07218.msm     +++|*         EXIT   (CMSD) ADVANCED IF ERROR SET ON DEVICE.
09005  M01S07219.msm     +++|*                (A) .LT. 0 IF RECOVERY INFORMATION NOT TO
09006  M01S07220.msm     +++|*                BE REWRITTEN TO CM UPON RETURN TO *MRL*.
09007  M01S07221.msm     +++|*
09008  M01S07222.msm     +++|*         USES   IR+2, CM - CM+4, CN - CN+4, FS - FS+4.
09009  M01S07223.msm     +++|*
09010  M01S07224.msm     +++|*         CALLS  SES, UMS, VLP, *5ME*.
09011  M01S07225.msm     +++|*
09012  M01S07226.msm     +++|*         MACROS EXECUTE, MONITOR.
09013  M01S07227.msm     +++|
09014  M01S07228.msm     +++|
09015  M01S07229.msm     +++| CAD8     AOM    /CMS/CMSD   ADVANCE DEVICE IN ERROR COUNT
09016  M01S07230.msm     +++|
09017  M01S07231.msm     +++| CAD      SUBR               ENTRY/EXIT
09018  M01S07232.msm     +++|          SHN    21-6
09019  M01S07233.msm     +++|          MJN    CADX        IF DEVICE UNAVAILABLE
09020  M01S07234.msm     +++|          RJM    UMS         UPDATE MST
09021  M01S07235.msm     +++|          NJN    CADX        IF DEVICE INTERLOCKED
09022  M01S07236.msm     +++|          LDD    FN+4        READ MST WORDS
09023  M01S07237.msm     +++|          SHN    3
09024  M01S07238.msm     +++|          ADN    DULL
09025  M01S07239.msm     +++|          CRD    CM
09026  M01S07240.msm     +++|          ADN    STLL-DULL
09027  M01S07241.msm     +++|          CRD    FS
09028  M01S07242.msm     +++|          SBN    STLL-PFGL   READ PF DESCRIPTION
09029  M01S07243.msm     +++|          CRM    DLPB,TW
09030  M01S07244.msm     +++|          LDD    FS+1
09031  M01S07245.msm     +++|          LPN    77
09032  M01S07246.msm     +++|          NJN    CAD8        IF ERROR STATUS PRESENT
09033  M01S07247.msm     +++| CAD1     LDD    CN+4        CHECK ERROR IDLE FLAG
09034  M01S07248.msm     +++|          LPN    MGDEI
09035  M01S07249.msm     +++|          ZJN    CAD2        IF NOT SET
09036  M01S07250.msm     +++|          LDN    STEI        SET ERROR STATUS IN MST
09037  M01S07251.msm     +++|          RJM    SES
09038  M01S07252.msm     +++| CAD2     LDD    FN
09039  M01S07253.msm     +++|          SHN    21-10
09040  M01S07254.msm     +++|          PJN    CAD3        IF NOT REMOVABLE DEVICE
09041  M01S07255.msm     +++|          LDD    CM+4        CHECK ACTIVITY
09042  M01S07256.msm     +++|          LPC    3777
09043  M01S07257.msm     +++|          ADD    FS+3
09044  M01S07258.msm     +++|          NJN    CAD3        IF ACTIVE FILES
09045  M01S07259.msm     +++|          LDD    FS
09046  M01S07260.msm     +++|          SHN    21-2
09047  M01S07261.msm     +++|          MJN    CAD3        IF CHECKPOINT PENDING
09048  M01S07262.msm     +++|          SHN    3+21-3
09049  M01S07263.msm     +++|          MJN    CAD4        IF LOCAL UNLOAD SET
09050  M01S07264.msm     +++| CAD3     RJM    VLP         VERIFY LABEL PARAMETERS
09051  M01S07265.msm     +++|          MJN    CAD4        IF NOT FIRST EQUIPMENT IN CHAIN
09052  M01S07266.msm     +++|          NJN    CAD5        IF VERIFICATION ERRORS
09053  M01S07267.msm     +++|          LDM    SDIF
09054  M01S07268.msm     +++|          NJN    CAD6        IF INTERLOCKS ON ISD
09055  M01S07269.msm     +++|          LDN    SSTL        CHECK SYSTEM STATUS
09056  M01S07270.msm     +++|          CRD    CM
09057  M01S07271.msm     +++|          LDD    CM
09058  M01S07272.msm     +++|          LPN    14
09059  M01S07273.msm     +++| CAD4     NJN    CAD6        IF MS VALIDATION DISABLED / NOT PRESENT
09060  M01S07274.msm     +++|          LDD    EQ
09061  M01S07275.msm     +++|          STD    CM+1
09062  M01S07276.msm     +++|          LDN    VEIS        REQUEST MS VALIDATION
09063  M01S07277.msm     +++|          STD    CM+3
09064  M01S07278.msm     +++|          MONITOR  VMSM
09065  M01S07279.msm     +++|          LDD    CM+1
09066  M01S07280.msm     +++|          ZJN    CAD6        IF NO ERRORS
09067  M01S07281.msm     +++|          STD    IR+2
09068  M01S07282.msm     +++|          EXECUTE  5ME        PROCESS ERRLOG MESSAGES
09069  M01S07283.msm     +++|          LDN    STVE        SET ERROR STATUS IN MST
09070  M01S07284.msm     +++| CAD5     RJM    SES
09071  M01S07285.msm     +++|*         LDN    0           INHIBIT FURTHER PROCESSING OF DEVICE
09072  M01S07286.msm     +++|          STD    RE
09073  M01S07287.msm     +++|          AOM    /CMS/CMSD   ADVANCE DEVICE IN ERROR COUNT
09074  M01S07288.msm     +++| CAD6     LJM    CADX        RETURN
Line S00001 Modification History
M01 (Added by) msm40
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
09075  M02S00001.283l840 ---| CDB      SPACE  4,15
Line S00002 Modification History
M01 (Added by) msm40
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
09076  M02S00002.283l840 ---|**        CDB - CHECK IF DEVICE IS BUFFERED.
Line S00003 Modification History
M01 (Added by) msm40
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
09077  M02S00003.283l840 ---|*
Line S00004 Modification History
M01 (Added by) msm40
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
09078  M02S00004.283l840 ---|*         ENTRY  (T5) = EST ORDINAL.
Line S00005 Modification History
M01 (Added by) msm40
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
09079  M02S00005.283l840 ---|*                (FN+4) = MST ADDRESS.
Line S00006 Modification History
M01 (Added by) msm40
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
09080  M02S00006.283l840 ---|*
Line S00007 Modification History
M01 (Added by) msm40
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
09081  M02S00007.283l840 ---|*         EXIT   (A) = 0.
Line S00008 Modification History
M01 (Added by) msm40
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
09082  M02S00008.283l840 ---|*                DATA BUFFERS FLUSHED IF DEVICE BUFFERED.
Line S00009 Modification History
M01 (Added by) msm40
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
09083  M02S00009.283l840 ---|*
Line S00010 Modification History
M01 (Added by) msm40
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
09084  M02S00010.283l840 ---|*         USES   CM - CM+4.
Line S00011 Modification History
M01 (Added by) msm40
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
09085  M02S00011.283l840 ---|*
Line S00012 Modification History
M01 (Added by) msm40
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
09086  M02S00012.283l840 ---|*         MACROS MONITOR.
Line S00013 Modification History
M01 (Added by) msm40
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
09087  M02S00013.283l840 ---|
Line S00014 Modification History
M01 (Added by) msm40
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
09088  M02S00014.283l840 ---|
Line S00015 Modification History
M01 (Added by) msm40
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
09089  M02S00015.283l840 ---| CDB      SUBR               ENTRY/EXIT
Line S00016 Modification History
M01 (Added by) msm40
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
09090  M02S00016.283l840 ---|          LDD    FN+4        CHECK IF BUFFERED DEVICE
Line S00017 Modification History
M01 (Added by) msm40
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
09091  M02S00017.283l840 ---|          SHN    3
Line S00018 Modification History
M01 (Added by) msm40
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
09092  M02S00018.283l840 ---|          ADN    DILL
Line S00019 Modification History
M01 (Added by) msm40
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
09093  M02S00019.283l840 ---|          CRD    CM
Line S00020 Modification History
M01 (Added by) msm40
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
09094  M02S00020.283l840 ---|          LDD    CM+3
Line S00021 Modification History
M01 (Added by) msm40
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
09095  M02S00021.283l840 ---|          LPC    2000
Line S00022 Modification History
M01 (Added by) msm40
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
09096  M02S00022.283l840 ---|          ZJN    CDBX        IF NOT A BUFFERED DEVICE
Line S00023 Modification History
M01 (Added by) msm40
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
09097  M02S00023.283l840 ---|          LDN    ZERL
Line S00024 Modification History
M01 (Added by) msm40
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
09098  M02S00024.283l840 ---|          CRD    CM
Line S00025 Modification History
M01 (Added by) msm40
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
09099  M02S00025.283l840 ---|          LDC    BMFW*100    FLUSH ALL WRITE BUFFERS
Line S00026 Modification History
M01 (Added by) msm40
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
09100  M02S00026.283l840 ---|          STD    CM+4
Line S00027 Modification History
M01 (Added by) msm40
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
09101  M02S00027.283l840 ---|          LDD    T5          SET EQUIPMENT
Line S00028 Modification History
M01 (Added by) msm40
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
09102  M02S00028.283l840 ---|          STD    CM+3
Line S00029 Modification History
M01 (Added by) msm40
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
09103  M02S00029.283l840 ---|          MONITOR  BFMM
Line S00030 Modification History
M01 (Added by) msm40
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
09104  M02S00030.283l840 ---|*         LDN    0
Line S00031 Modification History
M01 (Added by) msm40
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
09105  M02S00031.283l840 ---|          UJN    CDBX        RETURN
09106  M01S07289.msm     +++| CID      SPACE  4,15
09107  M01S07290.msm     +++|**        CID - CHECK INACTIVE DEVICES.
09108  M01S07291.msm     +++|*
09109  M01S07292.msm     +++|*         ENTRY  (EQ) = (T5) = EST ORDINAL.
09110  M01S07293.msm     +++|*                (FN - FN+4) = EST ENTRY.
09111  M01S07294.msm     +++|*
09112  M01S07295.msm     +++|*         EXIT   INACTIVE EQUIPMENTS WITH UNLOAD REQUESTED
09113  M01S07296.msm     +++|*                RESTORED TO ORIGINAL AND UNAVAILABLE STATE.
09114  M01S07297.msm     +++|*                TO *GDT2* IF RECOVERY INTERLOCK UNAVAILABLE.
09115  M01S07298.msm     +++|*                (A) .LT. 0 IF RECOVERY INFORMATION NOT TO
09116  M01S07299.msm     +++|*                BE REWRITTEN TO CM UPON RETURN TO *MRL*.
09117  M01S07300.msm     +++|*
09118  M01S07301.msm     +++|*         USES   CM - CM+4, FN - FN+4, FS - FS+4.
09119  M01S07302.msm     +++|*
Line S07303 Modification History
M01 (Added by) msm
M02 (Updated by) msm40
Seq #  *Modification Id* Act 
----------------------------+
09120  M02S07303.msm40   ---|*         CALLS  CDD, CDS, CUS, IAM, IES, IFR, ILK, RDE, RGM, UIS, WDE.
09121  M01S00032.msm40   +++|*         CALLS  CDB, CDD, CDS, CUS, IAM, IES, IFR, ILK, RDE, RGM, UIS,
09122  M01S00033.msm40   +++|*                WDE.
09123  M01S07304.msm     +++|*
09124  M01S07305.msm     +++|*         MACROS MMTE, SFA, SMSTF.
09125  M01S07306.msm     +++|
09126  M01S07307.msm     +++|
09127  M01S07308.msm     +++| CID9     RJM    UIS         SET UNLOAD STATUS IN DIT ENTRY
09128  M01S07309.msm     +++|          LDD    FN
09129  M01S07310.msm     +++|          LPC    -100
09130  M01S07311.msm     +++|          LMD    HN          SET DEVICE UNAVAILABLE
09131  M01S07312.msm     +++|          STD    FN
09132  M01S07313.msm     +++|          SFA    EST,EQ
09133  M01S07314.msm     +++|          ADK    EQDE
09134  M01S07315.msm     +++|          CWD    FN
09135  M01S07316.msm     +++|          SMSTF  LDUL
09136  M01S07317.msm     +++|
09137  M01S07318.msm     +++| CID      SUBR               ENTRY/EXIT
09138  M01S07319.msm     +++|          RJM    CDS         CHECK DEVICE STATUS
09139  M01S07320.msm     +++|          NJN    CIDX        IF DEVICE ACTIVITY
09140  M01S07321.msm     +++|          RJM    ILK         ENSURE PFM-S NOT ACTIVE ON DEVICE
09141  M01S07322.msm     +++|          RJM    CDS         RECHECK DEVICE
09142  M01S07323.msm     +++|          NJN    CIDX        IF NEW DEVICE ACTIVITY
09143  M01S07324.msm     +++|          LDD    FN
09144  M01S07325.msm     +++|          SHN    21-10
09145  M01S07326.msm     +++|          PJN    CID9        IF NON-REMOVABLE DEVICE
09146  M01S07327.msm     +++|          RJM    RGM         READ GLOBAL MST WORDS
09147  M01S07328.msm     +++|          NJN    CIDX        IF INTERLOCK SET
09148  M01S07329.msm     +++|          LDD    CN+4        CHECK GLOBAL UNLOAD
09149  M01S07330.msm     +++|          LPN    MGUNL
09150  M01S07331.msm     +++|          NJN    CIDX        IF GLOBAL UNLOAD SET
09151  M01S07332.msm     +++|          STM    DATB
Line S00034 Modification History
M01 (Added by) msm40
M02 (Updated by) ns2780
Seq #  *Modification Id* Act 
----------------------------+
09152  M02S00034.ns2780  ---|          RJM    CDB         CHECK FOR BUFFERED DEVICE
09153  M01S00001.ns2780  +++|          RJM    CBF         CHECK FOR BUFFERS TO FLUSH
09154  M01S00002.ns2780  +++|          NJN    CIDX        IF UNABLE TO FLUSH ALL BUFFERS
09155  M01S07333.msm     +++|          UJMF   CID5
09156  M01S07334.msm     +++|          LDN    DATI        GET DAT INTERLOCK
09157  M01S07335.msm     +++|          RJM    IFR
09158  M01S07336.msm     +++|          ZJN    CID2        IF FLAG REGISTER INTERLOCKED
09159  M01S07337.msm     +++|          LJM    /CMS/GDT1   RECALL *CMS*
09160  M01S07338.msm     +++|
09161  M01S07339.msm     +++| CID2     RJM    RDE         READ DAT ENTRY
09162  M01S07340.msm     +++|          LDD    QS
09163  M01S07341.msm     +++|          ZJN    CID4        IF NO DAT ENTRY
09164  M01S07342.msm     +++|          LDM    DATB+11     CLEAR ACCESS BY THIS MACHINE
09165  M01S07343.msm     +++|          LPC    -0
09166  M01S07344.msm     +++|          MMTE   *-1
09167  M01S07345.msm     +++|          STM    DATB+11
09168  M01S07346.msm     +++|          NJN    CID3        IF ALL ACCESSES NOT CLEARED
09169  M01S07347.msm     +++|          STM    DATB        CLEAR DAT ENTRY
09170  M01S07348.msm     +++| CID3     RJM    WDE         STORE DAT ENTRY
09171  M01S07349.msm     +++| CID4     LCN    DATI        DROP FLAG REGISTER INTERLOCK
09172  M01S07350.msm     +++|          RJM    IFR
09173  M01S07351.msm     +++| CID5     LDD    FN
09174  M01S07352.msm     +++|          LPN    20
09175  M01S07353.msm     +++|          ZJN    CID6        IF NOT ISD
09176  M01S07354.msm     +++|          STM    DATB
09177  M01S07355.msm     +++|          LDD    FS+2        CHECK UNLOAD STATUS
09178  M01S07356.msm     +++|          RJM    CUS
09179  M01S07357.msm     +++| CID6     LDM    DATB
09180  M01S07358.msm     +++|          NJN    CID7        IF DEVICE NOT UNLOADED IN ALL MACHINES
09181  M01S07359.msm     +++|          LDN    MGUNL       SET GLOBAL UNLOAD
09182  M01S07360.msm     +++|          RAD    CN+4
09183  M01S07361.msm     +++|          LDD    FN+4        STORE DEVICE ACTIVITY WORD
09184  M01S07362.msm     +++|          SHN    3
09185  M01S07363.msm     +++|          ADN    ACGL
09186  M01S07364.msm     +++|          CWD    CN
09187  M01S07365.msm     +++| CID7     RJM    /CMS/IAM    ISSUE ACCOUNTING MESSAGE
09188  M01S07366.msm     +++|          RJM    IES         INITIALIZE EQUIPMENT STATUS
09189  M01S07367.msm     +++|          SMSTF  LDUL        SET DEVICE UNLOADED
09190  M01S07368.msm     +++|          LDM    DATB
09191  M01S07369.msm     +++|          NJN    CID8        IF DEVICE NOT UNLOADED ON ALL MACHINES
09192  M01S07370.msm     +++|          RJM    CDD         CLEAR DEVICE DESCRIPTION
09193  M01S07371.msm     +++| CID8     LCN    0           DISABLE *MRL* REWRITE OF RECOVERY TABLES
09194  M01S07372.msm     +++|          LJM    CIDX        RETURN
Line S07373 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
09195  M02S07373.283l840 ---| CUD      SPACE  4,15
Line S07374 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
09196  M02S07374.283l840 ---|**        CUD - CHECK UNAVAILABLE DEVICES.
Line S07375 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
09197  M02S07375.283l840 ---|*
Line S07376 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
09198  M02S07376.283l840 ---|*         ENTRY  (EQ) = (T5) = EST ORDINAL.
Line S07377 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
09199  M02S07377.283l840 ---|*                (FN - FN+4) = EST ENTRY.
Line S07378 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
09200  M02S07378.283l840 ---|*
Line S07379 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
09201  M02S07379.283l840 ---|*         EXIT   (RC) = NUMBER OF EQUIPMENTS TO RECOVER.
Line S07380 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
09202  M02S07380.283l840 ---|*                (RE) SET WITH EQUIPMENTS TO RECOVER.
Line S07381 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
09203  M02S07381.283l840 ---|*                (A) .LT. 0 IF RECOVERY INFORMATION NOT TO
Line S07382 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
09204  M02S07382.283l840 ---|*                BE REWRITTEN TO CM UPON RETURN TO *MRL*.
Line S07383 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
09205  M02S07383.283l840 ---|*
Line S07384 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
09206  M02S07384.283l840 ---|*         USES   FN, RC, CM+1 - CM+7, FS - FS+4.
Line S07385 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
09207  M02S07385.283l840 ---|*
Line S07386 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
09208  M02S07386.283l840 ---|*         CALLS  CDA, CDI, CGU, SES, VLP.
Line S07387 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
09209  M02S07387.283l840 ---|*
Line S07388 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
09210  M02S07388.283l840 ---|*         MACROS MONITOR, SFA.
Line S07389 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
09211  M02S07389.283l840 ---|
Line S07390 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
09212  M02S07390.283l840 ---|
Line S07391 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
09213  M02S07391.283l840 ---| CUD6     RJM    CGU         CHECK GLOBAL UNLOAD
Line S07392 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
09214  M02S07392.283l840 ---|
Line S07393 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
09215  M02S07393.283l840 ---| CUD      SUBR               ENTRY/EXIT
Line S07394 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
09216  M02S07394.283l840 ---|          RJM    CDA
Line S07395 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
09217  M02S07395.283l840 ---|          MJN    CUDX        IF RECOVERY INHIBITED
Line S07396 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
09218  M02S07396.283l840 ---|          NJN    CUD6        IF DEVICE UNLOADED
Line S07397 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
09219  M02S07397.283l840 ---|          LDD    FN
Line S07398 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
09220  M02S07398.283l840 ---|          SHN    21-10
Line S07399 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
09221  M02S07399.283l840 ---|          MJN    CUD1        IF REMOVABLE DEVICE
Line S07400 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
09222  M02S07400.283l840 ---|          SHN    11+21-11
Line S07401 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
09223  M02S07401.283l840 ---|          PJN    CUD1        IF NON-SHARED DEVICE
Line S07402 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
09224  M02S07402.283l840 ---|          LDD    FN+4        GET EXTENDED MEMORY ADDRESS OF MST/TRT
Line S07403 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
09225  M02S07403.283l840 ---|          SHN    3
Line S07404 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
09226  M02S07404.283l840 ---|          ADN    SDGL
Line S07405 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
09227  M02S07405.283l840 ---|          CRD    CM+3
Line S07406 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
09228  M02S07406.283l840 ---|          ADN    ALGL-SDGL   SET CM ADDRESS FOR MST UPDATE
Line S07407 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
09229  M02S07407.283l840 ---|          STD    CM+2
Line S07408 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
09230  M02S07408.283l840 ---|          SHN    -14
Line S07409 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
09231  M02S07409.283l840 ---|          LMC    GLGL*100-ALGL*100
Line S07410 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
09232  M02S07410.283l840 ---|          STD    CM+1
Line S07411 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
09233  M02S07411.283l840 ---|          LDD    CM+3
Line S07412 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
09234  M02S07412.283l840 ---|          ADD    CM+4
Line S07413 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
09235  M02S07413.283l840 ---|          ZJN    CUD1        IF DEVICE NOT PREVIOUSLY RECOVERED
Line S07414 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
09236  M02S07414.283l840 ---|          LDD    CM+7
Line S07415 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
09237  M02S07415.283l840 ---|          ADD    CM+6
Line S07416 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
09238  M02S07416.283l840 ---|          ADD    CM+5
Line S07417 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
09239  M02S07417.283l840 ---|          NJN    CUD4        IF DEVICE ACCESSED PREVIOUSLY
Line S07418 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
09240  M02S07418.283l840 ---| CUD1     RJM    VLP         VERIFY LABEL PARAMETERS
Line S07419 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
09241  M02S07419.283l840 ---|          MJN    CUD2        IF NOT FIRST EQUIPMENT IN CHAIN
Line S07420 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
09242  M02S07420.283l840 ---|          NJN    CUD3        IF VERIFY ERRORS
Line S07421 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
09243  M02S07421.283l840 ---|          LDC    200         SET EQUIPMENT RECOVERY
Line S07422 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
09244  M02S07422.283l840 ---|          RAD    RE
Line S07423 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
09245  M02S07423.283l840 ---|          AOD    RC          ADVANCE RECOVERY COUNT
Line S07424 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
09246  M02S07424.283l840 ---| CUD2     LJM    CUDX        RETURN
Line S07425 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
09247  M02S07425.283l840 ---|
Line S07426 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
09248  M02S07426.283l840 ---| CUD3     RJM    SES         SET ERROR STATUS
Line S07427 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
09249  M02S07427.283l840 ---|          RJM    CDI         CLEAR ISD INTERLOCKS
Line S07428 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
09250  M02S07428.283l840 ---|          LCN    0
Line S07429 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
09251  M02S07429.283l840 ---|          UJN    CUD2        RETURN
Line S07430 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
09252  M02S07430.283l840 ---|
Line S07431 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
09253  M02S07431.283l840 ---| CUD4     LDD    FN
Line S07432 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
09254  M02S07432.283l840 ---|          SHN    21-4
Line S07433 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
09255  M02S07433.283l840 ---|          MJN    CUD5        IF INDEPENDENT SHARED DEVICE
Line S07434 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
09256  M02S07434.283l840 ---|          LDN    ALGL
Line S07435 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
09257  M02S07435.283l840 ---|          RAD    CM+4
Line S07436 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
09258  M02S07436.283l840 ---|          LDC    RECS*1000   SET MONITOR SUBFUNCTION
Line S07437 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
09259  M02S07437.283l840 ---|          RAD    CM+3
Line S07438 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
09260  M02S07438.283l840 ---|          MONITOR  ECSM      UPDATE GLOBAL MST FROM ECS
Line S07439 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
09261  M02S07439.283l840 ---| CUD5     LDN    0           CLEAR UNAVAILABLE STATUS
Line S07440 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
09262  M02S07440.283l840 ---|          SBD    HN
Line S07441 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
09263  M02S07441.283l840 ---|          RAD    FN
Line S07442 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
09264  M02S07442.283l840 ---|          SFA    EST,EQ      REWRITE EST ENTRY
Line S07443 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
09265  M02S07443.283l840 ---|          ADK    EQDE
Line S07444 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
09266  M02S07444.283l840 ---|          CWD    FN
Line S07445 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
09267  M02S07445.283l840 ---|          UJN    CUD2        RETURN
09268  M01S00868.283l840 +++|          TITLE  *CMS* ACTIVE/INACTIVE DEVICE SUBROUTINES.
Line S00869 Modification History
M01 (Added by) 283l840
M02 (Updated by) ns2780
Seq #  *Modification Id* Act 
----------------------------+
09269  M02S00869.ns2780  ---| CDB      SPACE  4,15
Line S00870 Modification History
M01 (Added by) 283l840
M02 (Updated by) ns2780
Seq #  *Modification Id* Act 
----------------------------+
09270  M02S00870.ns2780  ---|**        CDB - CHECK IF DEVICE IS BUFFERED.
09271  M01S00003.ns2780  +++| CBF      SPACE  4,15
09272  M01S00004.ns2780  +++|**        CBF - CHECK FOR BUFFERS TO FLUSH.
09273  M01S00871.283l840 +++|*
09274  M01S00872.283l840 +++|*         ENTRY  (T5) = EST ORDINAL.
09275  M01S00873.283l840 +++|*                (FN - FN+4) = EST ENTRY.
09276  M01S00874.283l840 +++|*
Line S00875 Modification History
M01 (Added by) 283l840
M02 (Updated by) ns2780
Seq #  *Modification Id* Act 
----------------------------+
09277  M02S00875.ns2780  ---|*         EXIT   IF BUFFERED DEVICE, I/O BUFFERS FLUSHED AND RELEASED.
Line S00876 Modification History
M01 (Added by) 283l840
M02 (Updated by) ns2780
Seq #  *Modification Id* Act 
----------------------------+
09278  M02S00876.ns2780  ---|*                IF SHARED BUFFERED DEVICE, *BAT* PERMISSIONS RELEASED
Line S00877 Modification History
M01 (Added by) 283l840
M02 (Updated by) ns2780
Seq #  *Modification Id* Act 
----------------------------+
09279  M02S00877.ns2780  ---|*                  AND *BST* PROCESSING DISABLED.
09280  M01S00005.ns2780  +++|*         EXIT   (A) .NE. 0, IF UNFLUSHED BUFFERS ARE STILL PRESENT.
09281  M01S00006.ns2780  +++|*                IF BUFFERED DEVICE, I/O BUFFERS FLUSHED AND RELEASED.
09282  M01S00007.ns2780  +++|*                IF SHARED BUFFERED DEVICE, *BAT* AND *BST* PERMISSIONS
09283  M01S00008.ns2780  +++|*                  ARE RELEASED AND *BST* PROCESSING IS DISABLED.
09284  M01S00878.283l840 +++|*
Line S00879 Modification History
M01 (Added by) 283l840
M02 (Updated by) ns2780
Seq #  *Modification Id* Act 
----------------------------+
09285  M02S00879.ns2780  ---|*         USES   T6, T7, CM - CM+4.
09286  M01S00009.ns2780  +++|*         USES   T6, CM - CM+4.
09287  M01S00880.283l840 +++|*
09288  M01S00881.283l840 +++|*         MACROS DELAY, PAUSE, MONITOR.
09289  M01S00882.283l840 +++|
09290  M01S00883.283l840 +++|
Line S00884 Modification History
M01 (Added by) 283l840
M02 (Updated by) ns2780
Seq #  *Modification Id* Act 
----------------------------+
09291  M02S00884.ns2780  ---| CDB      SUBR               ENTRY/EXIT
09292  M01S00010.ns2780  +++| CBF      SUBR               ENTRY/EXIT
09293  M01S00885.283l840 +++|          LDD    FN          CHECK IF BUFFERED DEVICE
09294  M01S00886.283l840 +++|          LPN    40
Line S00887 Modification History
M01 (Added by) 283l840
M02 (Updated by) ns2780
Seq #  *Modification Id* Act 
----------------------------+
09295  M02S00887.ns2780  ---|          ZJN    CDBX        IF NOT A BUFFERED DEVICE
09296  M01S00011.ns2780  +++|          ZJN    CBFX        IF NOT A BUFFERED DEVICE
09297  M01S00012.ns2780  +++|          LDD    TH          SET MAXIMUM RETRY COUNT
09298  M01S00013.ns2780  +++|          STD    T6
09299  M01S00888.283l840 +++|
Line S00889 Modification History
M01 (Added by) 283l840
M02 (Updated by) ns2780
Seq #  *Modification Id* Act 
----------------------------+
09300  M02S00889.ns2780  ---|*         FLUSH WRITE BUFFERS / DROP ALL BUFFERS.
09301  M01S00014.ns2780  +++|*         FLUSH AND RELEASE BUFFERS - RELEASE *BAT*/*BST* PERMISSIONS.
09302  M01S00890.283l840 +++|
Line S00891 Modification History
M01 (Added by) 283l840
M02 (Updated by) ns2780
Seq #  *Modification Id* Act 
----------------------------+
09303  M02S00891.ns2780  ---| CDB1     LDN    ZERL        CLEAR ASSEMBLY AREA
09304  M01S00015.ns2780  +++| CBF1     LDN    ZERL        CLEAR ASSEMBLY AREA
09305  M01S00892.283l840 +++|          CRD    CM
09306  M01S00016.ns2780  +++|          LDD    FN
09307  M01S00017.ns2780  +++|          SHN    21-11
09308  M01S00018.ns2780  +++|          MJN    CBF2        IF SHARED BUFFERED DEVICE
09309  M01S00893.283l840 +++|          LDD    T5          SET EST ORDINAL
09310  M01S00894.283l840 +++|          STD    CM+3
09311  M01S00895.283l840 +++|          LDC    BMFW*100    FLUSH ALL WRITE BUFFERS
09312  M01S00896.283l840 +++|          STD    CM+4
09313  M01S00897.283l840 +++|          MONITOR  BFMM
09314  M01S00898.283l840 +++|          LDN    ZERL        CLEAR ASSEMBLY AREA
09315  M01S00899.283l840 +++|          CRD    CM
09316  M01S00900.283l840 +++|          LDD    T5          SET EST ORDINAL
09317  M01S00901.283l840 +++|          STD    CM+3
09318  M01S00902.283l840 +++|          LDC    BMDD*100    DROP ALL BUFFERS ON DEVICE
09319  M01S00903.283l840 +++|          STD    CM+4
09320  M01S00904.283l840 +++|          MONITOR  BFMM
Line S00905 Modification History
M01 (Added by) 283l840
M02 (Updated by) ns2780
Seq #  *Modification Id* Act 
----------------------------+
09321  M02S00905.ns2780  ---|          LDD    CM+4
Line S00906 Modification History
M01 (Added by) 283l840
M02 (Updated by) ns2780
Seq #  *Modification Id* Act 
----------------------------+
09322  M02S00906.ns2780  ---|          ZJN    CDB2        IF COMPLETE
Line S00907 Modification History
M01 (Added by) 283l840
M02 (Updated by) ns2780
Seq #  *Modification Id* Act 
----------------------------+
09323  M02S00907.ns2780  ---|          DELAY  20B         DELAY TWO MILLISECONDS
09324  M01S00019.ns2780  +++|          UJN    CBF3        CHECK STATUS
09325  M01S00020.ns2780  +++|
09326  M01S00021.ns2780  +++| CBF2     LDD    T5          SET EST ORDINAL
09327  M01S00022.ns2780  +++|          STD    CM+4
09328  M01S00023.ns2780  +++|          LDN    RBPS        RELEASE *BAT*/*BST* ACCESS PERMISSIONS
09329  M01S00024.ns2780  +++|          STD    CM+1
09330  M01S00025.ns2780  +++|          MONITOR  MTEM
09331  M01S00026.ns2780  +++| CBF3     LDD    CM+4        CHECK STATUS
09332  M01S00027.ns2780  +++|          ZJN    CBF4        IF SUCCESSFUL
09333  M01S00028.ns2780  +++|          DELAY  200B        DELAY 16 MILLISECONDS
09334  M01S00908.283l840 +++|          PAUSE
Line S00909 Modification History
M01 (Added by) 283l840
M02 (Updated by) ns2780
Seq #  *Modification Id* Act 
----------------------------+
09335  M02S00909.ns2780  ---|          UJP    CDB1        REISSUE REQUEST
09336  M01S00029.ns2780  +++|          SOD    T6
09337  M01S00030.ns2780  +++|          NJP    CBF1        IF RETRY COUNT NOT EXHAUSTED
09338  M01S00031.ns2780  +++|          LDN    1           RETURN ERROR RESPONSE
09339  M01S00032.ns2780  +++|          LJM    CBFX        EXIT
09340  M01S00910.283l840 +++|
09341  M01S00911.283l840 +++|*         DISABLE *BST* PROCESSING.
09342  M01S00912.283l840 +++|
Line S00913 Modification History
M01 (Added by) 283l840
M02 (Updated by) ns2780
Seq #  *Modification Id* Act 
----------------------------+
09343  M02S00913.ns2780  ---| CDB2     LDD    FN
09344  M01S00033.ns2780  +++| CBF4     LDD    FN
09345  M01S00914.283l840 +++|          SHN    21-11
Line S00915 Modification History
M01 (Added by) 283l840
M02 (Updated by) ns2780
Seq #  *Modification Id* Act 
----------------------------+
09346  M02S00915.ns2780  ---|          PJP    CDBX        IF NOT SHARED BUFFERED DEVICE
Line S00034 Modification History
M01 (Added by) ns2780
M02 (Updated by) ns2780a
Seq #  *Modification Id* Act 
----------------------------+
09347  M02S00034.ns2780a ---|          PJP    CBFX        IF NOT SHARED BUFFERED DEVICE
09348  M01S00001.ns2780a +++|          PJN    CBF5        IF NOT SHARED BUFFERED DEVICE
09349  M01S00916.283l840 +++|          LDD    MA          WRITE REQUEST
Line S00917 Modification History
M01 (Added by) 283l840
M02 (Updated by) ns2780
Seq #  *Modification Id* Act 
----------------------------+
09350  M02S00917.ns2780  ---|          CWM    CDBB,ON
09351  M01S00035.ns2780  +++|          CWM    CBFB,ON
09352  M01S00918.283l840 +++|          LDD    FN+4
09353  M01S00919.283l840 +++|          SHN    3
09354  M01S00920.283l840 +++|          STD    CM+4        SET MST ADDRESS
09355  M01S00921.283l840 +++|          SHN    -14
09356  M01S00922.283l840 +++|          STD    CM+3
09357  M01S00923.283l840 +++|          LDN    1           SET WORD COUNT
09358  M01S00924.283l840 +++|          STD    CM+1
09359  M01S00925.283l840 +++|          MONITOR  UTEM
09360  M01S00002.ns2780a +++| CBF5     LDN    0           RETURN SUCCESSFUL RESPONSE
09361  M01S00036.ns2780  +++|          UJP    CBFX        RETURN
09362  M01S00926.283l840 +++|
Line S00927 Modification History
M01 (Added by) 283l840
M02 (Updated by) ns2780
Seq #  *Modification Id* Act 
----------------------------+
09363  M02S00927.ns2780  ---|*         RELEASE *BAT* ACCESS PERMISSIONS.
09364  M01S00928.283l840 +++|
Line S00929 Modification History
M01 (Added by) 283l840
M02 (Updated by) ns2780
Seq #  *Modification Id* Act 
----------------------------+
09365  M02S00929.ns2780  ---|          LDN    ZERL
Line S00930 Modification History
M01 (Added by) 283l840
M02 (Updated by) ns2780
Seq #  *Modification Id* Act 
----------------------------+
09366  M02S00930.ns2780  ---|          CRD    CM
Line S00931 Modification History
M01 (Added by) 283l840
M02 (Updated by) ns2780
Seq #  *Modification Id* Act 
----------------------------+
09367  M02S00931.ns2780  ---| CDBA     LDN    **          SET MACHINE INDEX
Line S00932 Modification History
M01 (Added by) 283l840
M02 (Updated by) ns2780
Seq #  *Modification Id* Act 
----------------------------+
09368  M02S00932.ns2780  ---|          STD    CM+2
Line S00933 Modification History
M01 (Added by) 283l840
M02 (Updated by) ns2780
Seq #  *Modification Id* Act 
----------------------------+
09369  M02S00933.ns2780  ---|          LDD    T5          SET EST ORDINAL
Line S00934 Modification History
M01 (Added by) 283l840
M02 (Updated by) ns2780
Seq #  *Modification Id* Act 
----------------------------+
09370  M02S00934.ns2780  ---|          STD    CM+4
Line S00935 Modification History
M01 (Added by) 283l840
M02 (Updated by) ns2780
Seq #  *Modification Id* Act 
----------------------------+
09371  M02S00935.ns2780  ---|          LDN    CBWS        RELEASE ALL READ AND WRITE ACCESS BITS
Line S00936 Modification History
M01 (Added by) 283l840
M02 (Updated by) ns2780
Seq #  *Modification Id* Act 
----------------------------+
09372  M02S00936.ns2780  ---|          STD    CM+1
Line S00937 Modification History
M01 (Added by) 283l840
M02 (Updated by) ns2780
Seq #  *Modification Id* Act 
----------------------------+
09373  M02S00937.ns2780  ---|          MONITOR  MTEM
Line S00938 Modification History
M01 (Added by) 283l840
M02 (Updated by) ns2780
Seq #  *Modification Id* Act 
----------------------------+
09374  M02S00938.ns2780  ---|*         LDN    0
Line S00939 Modification History
M01 (Added by) 283l840
M02 (Updated by) ns2780
Seq #  *Modification Id* Act 
----------------------------+
09375  M02S00939.ns2780  ---|          UJP    CDBX        RETURN
Line S00940 Modification History
M01 (Added by) 283l840
M02 (Updated by) ns2780
Seq #  *Modification Id* Act 
----------------------------+
09376  M02S00940.ns2780  ---|
Line S00941 Modification History
M01 (Added by) 283l840
M02 (Updated by) ns2780
Seq #  *Modification Id* Act 
----------------------------+
09377  M02S00941.ns2780  ---|
Line S00942 Modification History
M01 (Added by) 283l840
M02 (Updated by) ns2780
Seq #  *Modification Id* Act 
----------------------------+
09378  M02S00942.ns2780  ---| CDBB     VFD    6/BDLL,6/1,6/27,42/1
09379  M01S00037.ns2780  +++| CBFB     VFD    6/BDLL,6/1,6/27,42/1
09380  M01S07446.msm     +++| CDD      SPACE  4,10
09381  M01S07447.msm     +++|**        CDD - CLEAR DEVICE DESCRIPTION.
09382  M01S07448.msm     +++|*
09383  M01S07449.msm     +++|*         ENTRY  (EQ) = EST ORDINAL.
09384  M01S07450.msm     +++|*
09385  M01S07451.msm     +++|*         EXIT   DEVICE DESCRIPTION CLEARED.
09386  M01S07452.msm     +++|*                EXTENDED MEMORY COPY OF MST/TRT CLEARED.
09387  M01S07453.msm     +++|*
09388  M01S07454.msm     +++|*         USES   CM - CM+7, CN - CN+4, FN - FN+4.
09389  M01S07455.msm     +++|*
09390  M01S07456.msm     +++|*         MACROS MONITOR, SFA, UJMF.
09391  M01S07457.msm     +++|
09392  M01S07458.msm     +++|
09393  M01S07459.msm     +++| CDD      SUBR               ENTRY/EXIT
09394  M01S07460.msm     +++|          SFA    EST,EQ      READ EST ENTRY
09395  M01S07461.msm     +++|          ADK    EQDE
09396  M01S07462.msm     +++|          CRD    FN
09397  M01S07463.msm     +++|          LDN    ZERL
09398  M01S07464.msm     +++|          CRD    CN
09399  M01S07465.msm     +++|          LDD    FN+4
09400  M01S07466.msm     +++|          SHN    3
09401  M01S07467.msm     +++|          ADN    SDGL
09402  M01S07468.msm     +++|          CRD    CM+3
09403  M01S07469.msm     +++|          ADN    PUGL-SDGL   CLEAR USER DESCRIPTION
09404  M01S07470.msm     +++|          CWD    CN
09405  M01S07471.msm     +++|          SBN    PUGL-PFGL   CLEAR DEVICE DESCRIPTION
09406  M01S07472.msm     +++|          CWD    CN
09407  M01S07473.msm     +++|          UJMF   CDDX
09408  M01S07474.msm     +++|          SBN    PFGL
09409  M01S07475.msm     +++|          STD    CM+2
09410  M01S07476.msm     +++|          SHN    -14
09411  M01S07477.msm     +++|          LMC    GLGL*100-100  SET WORD COUNT FOR ECS TRANSFER
09412  M01S07478.msm     +++|          STD    CM+1
09413  M01S07479.msm     +++|          LDD    CM+3
09414  M01S07480.msm     +++|          ADD    CM+4
09415  M01S07481.msm     +++|          ZJN    CDDX        IF NOT SHARED DEVICE
09416  M01S07482.msm     +++| CDDA     LDN    1           MACHINE INDEX*2 + 1
09417  M01S07483.msm     +++|          RAD    CM+7
09418  M01S07484.msm     +++|          LDD    FN+4        STORE DEVICE INTERLOCK STATUS
09419  M01S07485.msm     +++|          SHN    3
09420  M01S07486.msm     +++|          ADN    SDGL
09421  M01S07487.msm     +++|          CWD    CM+3
09422  M01S07488.msm     +++|          LDC    WECS*1000   UPDATE GLOBAL MST IN ECS
09423  M01S07489.msm     +++|          RAD    CM+3
09424  M01S07490.msm     +++|          MONITOR ECSM
09425  M01S07491.msm     +++|          LDD    EQ          SET EST ORDINAL
09426  M01S07492.msm     +++|          STD    CM+1
09427  M01S07493.msm     +++|          LDN    CDIS        INSERT MONITOR SUBFUNCTION
09428  M01S07494.msm     +++|          STD    CM+3
09429  M01S07495.msm     +++|          MONITOR STBM       CLEAR TRT IN ECS
09430  M01S07496.msm     +++|          LJM    CDDX        RETURN
09431  M01S07497.msm     +++| CDS      SPACE  4,10
09432  M01S07498.msm     +++|**        CDS - CHECK DEVICE STATUS.
09433  M01S07499.msm     +++|*
09434  M01S07500.msm     +++|*         ENTRY  (FN - FN+4) = EST ENTRY.
09435  M01S07501.msm     +++|*
09436  M01S07502.msm     +++|*         EXIT   (A) = 0 IF NO ACTIVITY AND UNLOAD SET.
09437  M01S07503.msm     +++|*                (FS - FS+4) = *STLL* WORD OF MST.
09438  M01S07504.msm     +++|*
09439  M01S07505.msm     +++|*         USES   CM - CM+4.
09440  M01S07506.msm     +++|
09441  M01S07507.msm     +++|
09442  M01S07508.msm     +++| CDS      SUBR
09443  M01S07509.msm     +++|          LDD    FN+4
09444  M01S07510.msm     +++|          SHN    3
09445  M01S07511.msm     +++|          ADN    DULL
09446  M01S07512.msm     +++|          CRD    CM
09447  M01S07513.msm     +++|          ADN    STLL-DULL
09448  M01S07514.msm     +++|          CRD    FS
09449  M01S07515.msm     +++|          LDD    FS
09450  M01S07516.msm     +++|          LPN    MLUNL+MLCKP+MLDUL
09451  M01S07517.msm     +++|          LMN    MLUNL
09452  M01S07518.msm     +++|          NJN    CDSX        IF CHECKPOINT SET / NO LOCAL UNLOAD
09453  M01S07519.msm     +++|          LDD    CM+4        CHECK ACTIVITY
09454  M01S07520.msm     +++|          LPC    3777
09455  M01S07521.msm     +++|          ADD    FS+3
09456  M01S07522.msm     +++|          NJN    CDSX        IF ACTIVE FILES ON DEVICE
09457  M01S07523.msm     +++|          LDK    INWL        PROHIBIT UNLOAD IF *MREC* ACTIVE
09458  M01S07524.msm     +++|          CRD    CM
09459  M01S07525.msm     +++|          LDD    CM+3
09460  M01S07526.msm     +++|          SHN    -6
09461  M01S07527.msm     +++|          NJN    CDSX        IF *MREC* ACTIVE
09462  M01S07528.msm     +++|          LDD    FS+4
09463  M01S07529.msm     +++|          LPN    MLUAI
09464  M01S07530.msm     +++|          UJN    CDSX        RETURN
Line S07531 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
09465  M02S07531.283l840 ---| CGU      SPACE  4,10
Line S07532 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
09466  M02S07532.283l840 ---|**        CGU - CHECK GLOBAL UNLOAD.
Line S07533 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
09467  M02S07533.283l840 ---|*
Line S07534 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
09468  M02S07534.283l840 ---|*         ENTRY  (FN - FN+4) = EST ENTRY.
Line S07535 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
09469  M02S07535.283l840 ---|*
Line S07536 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
09470  M02S07536.283l840 ---|*         EXIT   (CN - CN+4) = *ACGL* WORD OF MST.
Line S07537 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
09471  M02S07537.283l840 ---|*
Line S07538 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
09472  M02S07538.283l840 ---|*         USES   CM - CM+7.
Line S07539 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
09473  M02S07539.283l840 ---|*
Line S07540 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
09474  M02S07540.283l840 ---|*         CALLS  CIU.
Line S07541 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
09475  M02S07541.283l840 ---|*
Line S07542 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
09476  M02S07542.283l840 ---|*         MACROS MONITOR.
Line S07543 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
09477  M02S07543.283l840 ---|
Line S07544 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
09478  M02S07544.283l840 ---|
Line S07545 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
09479  M02S07545.283l840 ---| CGU1     RJM    CIU         CHECK ISD GLOBALLY UNLOADED
Line S07546 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
09480  M02S07546.283l840 ---|
Line S07547 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
09481  M02S07547.283l840 ---| CGU      SUBR               ENTRY/EXIT
Line S07548 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
09482  M02S07548.283l840 ---|          LDD    FN+4
Line S07549 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
09483  M02S07549.283l840 ---|          SHN    3
Line S07550 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
09484  M02S07550.283l840 ---|          ADN    MDGL        READ DRIVER WORD FOR DAT INDEX
Line S07551 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
09485  M02S07551.283l840 ---|          CRD    CM
Line S07552 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
09486  M02S07552.283l840 ---|          SBN    MDGL-SDGL   GET EXTENDED MEMORY POINTER
Line S07553 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
09487  M02S07553.283l840 ---|          CRD    CM+3
Line S07554 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
09488  M02S07554.283l840 ---|          SBN    SDGL-ACGL
Proceed to Part 8
cdc/nos2.source/opl.opl871/deck/msm.007.txt ยท Last modified: by 127.0.0.1