User Tools

Site Tools


Action unknown: copypageplugin__copy
cdc:nos2.source:opl.opl871:deck:msm.005

Deck MSM Part 005

30 Modifications

Listing Sections

Source

Seq #  *Modification Id* Act 
----------------------------+
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  M00S06874.msm     +++| CCE      SPACE  4,15
Line S06875 Modification History
M01 (Removed by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
08584  M01S06875.283l840 ---| CCE      TITLE  VERIFY LABEL PARAMETERS.
08585  M00S06876.msm     +++|**        CCE - CHECK CHAINED EQUIPMENT.
08586  M00S06877.msm     +++|*
08587  M00S06878.msm     +++|*         ENTRY  (T5) = EST ORDINAL.
08588  M00S06879.msm     +++|*                (FN - FN+4) = EST ENTRY.
08589  M00S06880.msm     +++|*
08590  M00S06881.msm     +++|*         EXIT   (A) .LT. 0 IF FIRST EQUIPMENT IN CHAIN FOUND.
08591  M00S06882.msm     +++|*                (EC) = *STCE* IF FIRST EQUIPMENT NOT FOUND.
08592  M00S06883.msm     +++|*
08593  M00S06884.msm     +++|*         USES   T3, T6, CM - CM+6, CN - CN+4.
08594  M00S06885.msm     +++|*
08595  M00S06886.msm     +++|*         CALLS  CEP, CLP, LRA.
08596  M00S06887.msm     +++|*
08597  M00S06888.msm     +++|*         MACROS SFA.
08598  M00S06889.msm     +++|
08599  M00S06890.msm     +++|
08600  M00S06891.msm     +++| CCE1     RJM    LRA         LOAD REFERENCE ADDRESS
08601  M00S06892.msm     +++|          ADD    T6
08602  M00S06893.msm     +++|          CRD    RD
08603  M00S06894.msm     +++|          LDD    RE          CHECK EQUIPMENT STATUS
08604  M00S06895.msm     +++|          SHN    21-10
08605  M00S06896.msm     +++|          PJN    CCE2        IF NOT REMOVABLE DEVICE
08606  M00S06897.msm     +++|          LDD    T6
08607  M00S06898.msm     +++|          LMD    EQ
08608  M00S06899.msm     +++|          ZJN    CCE2        IF INITIAL EQUIPMENT
08609  M00S06900.msm     +++|          SFA    EST,T6      READ EST ENTRY
08610  M00S06901.msm     +++|          ADK    EQDE
08611  M00S06902.msm     +++|          CRD    CM
08612  M00S06903.msm     +++|          RJM    CEP         COMPARE EQUIPMENT PARAMETERS
08613  M00S06904.msm     +++|          NJN    CCE2        IF NO MATCH
08614  M00S06905.msm     +++|          RJM    LRA         LOAD REFERENCE ADDRESS
08615  M00S06906.msm     +++|          ADD    AL
08616  M00S06907.msm     +++|          ADN    PFGL
08617  M00S06908.msm     +++|          CRD    CM+2
08618  M00S06909.msm     +++|          ADN    PUGL-PFGL   GET USER NAME
08619  M00S06910.msm     +++|          CRD    CN
08620  M00S06911.msm     +++|          RJM    CLP         CHECK LABEL PARAMETERS
08621  M00S06912.msm     +++|          ZJN    CCE3        IF CORRECT UNIT FOUND
08622  M00S06913.msm     +++| CCE2     AOD    T6          READ EST ENTRY
08623  M00S06914.msm     +++|          LMD    LO
08624  M00S06915.msm     +++|          NJN    CCE1        IF NOT END OF MASS STORAGE EST
08625  M00S06916.msm     +++|          LDN    STCE        SET CONFIGURATION ERROR
08626  M00S06917.msm     +++| CCE3     STD    EC
08627  M00S06918.msm     +++|          SBN    1
08628  M00S06919.msm     +++|
08629  M00S06920.msm     +++| CCE      SUBR               ENTRY/EXIT
08630  M00S06921.msm     +++|          LDN    NOPE-1      INITIALIZE EST ORDINAL FOR SEARCH
08631  M00S06922.msm     +++|          STD    T6          SET START OF EST SCAN
08632  M00S06923.msm     +++|          LDD    FN+3
08633  M00S06924.msm     +++|          STM    CEFA
08634  M00S06925.msm     +++|          UJN    CCE2        ENTER LOOP
08635  M00S06926.msm     +++| CEP      SPACE  4,10
08636  M00S06927.msm     +++|**        CEP - COMPARE EQUIPMENT PARAMETERS.
08637  M00S06928.msm     +++|*
08638  M00S06929.msm     +++|*         ENTRY  (FN - FN+4) = EST ENTRY OF PRIMARY EQUIPMENT.
08639  M00S06930.msm     +++|*                (CM - CM+4) = EST ENTRY OF DEVICE BEING CHECKED.
08640  M00S06931.msm     +++|*
08641  M00S06932.msm     +++|*         EXIT   (A) = 0 IF MATCHING EQUIPMENTS.
08642  M00S06933.msm     +++|
08643  M00S06934.msm     +++|
08644  M00S06935.msm     +++| CEP1     LDD    CM+2        TEST FOR SECONDARY CHANNEL
08645  M00S06936.msm     +++| CEP2     LMD    FN+2
08646  M00S06937.msm     +++|          LPC    4677        CHECK CHANNEL ACTIVE, MODE AND PORT
08647  M00S06938.msm     +++|
08648  M00S06939.msm     +++| CEP      SUBR               ENTRY/EXIT
08649  M00S06940.msm     +++|          LDC    **
08650  M00S06941.msm     +++| CEFA     EQU    *-1         (DEVICE MNEMONIC)
08651  M00S06942.msm     +++|          LMD    CM+3
08652  M00S06943.msm     +++|          NJN    CEPX        IF NOT SAME TYPE
08653  M00S06944.msm     +++|          LDD    FN+1
08654  M00S06945.msm     +++|          LMD    CM+1        TEST CHANNELS
08655  M00S06946.msm     +++|          LPC    4677
08656  M00S06947.msm     +++|          ZJN    CEP1        IF MATCH ON PRIMARY CHANNEL
08657  M00S06948.msm     +++|          LDD    FN+1
08658  M00S06949.msm     +++|          LMD    CM+2        REORDER CHANNEL TEST
08659  M00S06950.msm     +++|          LPC    4677
08660  M00S06951.msm     +++|          NJN    CEPX        IF NO CHANNEL MATCH
08661  M00S06952.msm     +++|          LDD    CM+1
08662  M00S06953.msm     +++|          UJN    CEP2        TEST FOR SECONDARY CHANNEL
08663  M00S06954.msm     +++| CLP      SPACE  4,15
08664  M00S06955.msm     +++|**        CLP - CHECK LABEL PARAMETERS.
08665  M00S06956.msm     +++|*
08666  M00S06957.msm     +++|*         ENTRY  (UC) = N/M OF DESIRED UNIT.
08667  M00S06958.msm     +++|*                (CM+2 - CM+6) = FAMILY/PACK NAME.
08668  M00S06959.msm     +++|*                (CN - CN+4) = USER NAME.
08669  M00S06960.msm     +++|*                (DLPB) = UNIT LABEL PARAMETERS.
08670  M00S06961.msm     +++|*
08671  M00S06962.msm     +++|*         EXIT   (A) = 0 IF VALID LABEL.
08672  M00S06963.msm     +++|*                (A) = *STIL* IF REQUESTED UNIT NOT FOUND.
08673  M00S06964.msm     +++|*
08674  M00S06965.msm     +++|*         USES   T1.
08675  M00S06966.msm     +++|
08676  M00S06967.msm     +++|
08677  M00S06968.msm     +++| CLP      SUBR               ENTRY/EXIT
08678  M00S06969.msm     +++|          LDN    0
08679  M00S06970.msm     +++|          STD    T1
08680  M00S06971.msm     +++| CLP1     LDM    DLPB,T1     VERIFY FAMILY/PACK NAME
08681  M00S06972.msm     +++|          LMM    CM+2,T1
08682  M00S06973.msm     +++|          NJN    CLP3        IF NO MATCH
08683  M00S06974.msm     +++|          AOD    T1          INCREMENT INDEX
08684  M00S06975.msm     +++|          LMN    4
08685  M00S06976.msm     +++|          NJN    CLP1        LOOP FOR FOUR BYTES
08686  M00S06977.msm     +++|          LDD    UC          CHECK NUMBER OF UNITS
08687  M00S06978.msm     +++|          LMD    CM+6
08688  M00S06979.msm     +++|          LPN    77
08689  M00S06980.msm     +++|          NJN    CLP3        IF INCORRECT UNIT COUNT
08690  M00S06981.msm     +++| CLP2     LDM    DLPB+1,T1   VERIFY OWNER
08691  M00S06982.msm     +++|          LMM    CN-4,T1
08692  M00S06983.msm     +++|          NJN    CLP3        IF NO MATCH
08693  M00S06984.msm     +++|          AOD    T1          ADVANCE INDEX
08694  M00S06985.msm     +++|          LMN    7
08695  M00S06986.msm     +++|          NJN    CLP2        LOOP FOR THREE BYTES
08696  M00S06987.msm     +++|          LDM    DLPB+10     CHECK SEVENTH CHARACTER
08697  M00S06988.msm     +++|          LMD    CN+3
08698  M00S06989.msm     +++|          SCN    77
08699  M00S06990.msm     +++|          ZJN    CLPX        IF VALID LABEL
08700  M00S06991.msm     +++| CLP3     LDN    STIL        SET ERROR STATUS
08701  M00S06992.msm     +++|          UJN    CLPX        RETURN
08702  M00S06993.msm     +++| VDP      SPACE  4,15
08703  M00S06994.msm     +++|**        VDP - VERIFY DEVICE PARAMETERS.
08704  M00S06995.msm     +++|*
08705  M00S06996.msm     +++|*         ENTRY  (CA) = CM ADDRESS OF MST.
08706  M00S06997.msm     +++|*                (FN - FN+4) = EST ENTRY.
08707  M00S06998.msm     +++|*
08708  M00S06999.msm     +++|*         EXIT   (A) = 0 IF MST PARAMETERS MATCH LABEL.
08709  M00S07000.msm     +++|*                    = *STLE* IF ERROR IN FAMILY NAME.
08710  M00S07001.msm     +++|*
08711  M00S07002.msm     +++|*         USES   CM+2 - CM+6, CN - CN+4.
08712  M00S07003.msm     +++|*
08713  M00S07004.msm     +++|*         CALLS  CLP, LRA, VFN.
08714  M00S07005.msm     +++|
08715  M00S07006.msm     +++|
08716  M00S07007.msm     +++| VDP2     LDN    STLE        SET LABEL ERROR STATUS
08717  M00S07008.msm     +++|
08718  M00S07009.msm     +++| VDP      SUBR               ENTRY/EXIT
08719  M00S07010.msm     +++|          LDD    FN+4        GET FAMILY NAME FROM MST
08720  M00S07011.msm     +++|          SHN    3
08721  M00S07012.msm     +++|          ADN    PFGL
08722  M00S07013.msm     +++|          CRD    CM+2
08723  M00S07014.msm     +++|          RJM    VFN
08724  M00S07015.msm     +++|          NJN    VDP1        IF VALID NAME
08725  M00S07016.msm     +++|          LDD    CM+5        CHECK FOR NULL FAMILY
08726  M00S07017.msm     +++|          SCN    77
08727  M00S07018.msm     +++|          ADD    CM+4
08728  M00S07019.msm     +++|          ADD    CM+3
08729  M00S07020.msm     +++|          ADD    CM+2
08730  M00S07021.msm     +++|          NJN    VDP2        IF NOT NULL FAMILY
08731  M00S07022.msm     +++| VDP1     RJM    LRA         LOAD REFERENCE ADDRESS
08732  M00S07023.msm     +++|          ADD    CA
08733  M00S07024.msm     +++|          ADN    PFGL
08734  M00S07025.msm     +++|          CRD    CM+2
08735  M00S07026.msm     +++|          ADN    PUGL-PFGL   READ USER NAME
08736  M00S07027.msm     +++|          CRD    CN
08737  M00S07028.msm     +++|          RJM    CLP         CHECK LABEL PARAMETERS
08738  M00S07029.msm     +++|          UJN    VDPX        RETURN
08739  M00S07030.msm     +++| VLP      SPACE  4,15
08740  M00S07031.msm     +++|**        VLP - VERIFY LABEL PARAMETERS.
08741  M00S07032.msm     +++|*
08742  M00S07033.msm     +++|*         ENTRY  (DLPB) LOADED WITH LABEL PARAMETERS.
08743  M00S07034.msm     +++|*                (T5) = EST ORDINAL.
08744  M00S07035.msm     +++|*                (EQ) = PRIMARY EST ORDINAL.
08745  M00S07036.msm     +++|*                (FN - FN+4) = EST ENTRY.
08746  M00S07037.msm     +++|*                (FS - FS+4) = STLL WORD OF EQUIPMENT.
08747  M00S07038.msm     +++|*
08748  M00S07039.msm     +++|*         EXIT   (A) = (EC) = 0 IF VALID LABEL.
08749  M00S07040.msm     +++|*                    .LT. 0 IF EQUIPMENT NOT FIRST IN CHAIN.
08750  M00S07041.msm     +++|*                (EC) = *STIL* IF ANY UNIT HAS INCORRECT LABEL.
08751  M00S07042.msm     +++|*                (EC) = *STCE* IF ANY UNIT CAUSES CONFIGURATION ERROR.
08752  M00S07043.msm     +++|*                (EC) = *STNR* IF ANY UNIT NOT READY.
08753  M00S07044.msm     +++|*                (EC) = *STLE* IF ANY UNIT HAS INCORRECT LABEL.
08754  M00S07045.msm     +++|*                (FN - FN+4) = EST ENTRY OF PRIMARY EQUIPMENT.
08755  M00S07046.msm     +++|*                (FS - FS+4) = STLL WORD OF PRIMARY EQUIPMENT.
08756  M00S07047.msm     +++|*                (T5) = PRIMARY EST ORDINAL.
08757  M00S07048.msm     +++|*
08758  M00S07049.msm     +++|*         USES   T0 - T7, EC, UC, CA, CA+1, FN - FN+4, FS - FS+4.
08759  M00S07050.msm     +++|*
08760  M00S07051.msm     +++|*         CALLS  CCE, LRA, VDP.
08761  M00S07052.msm     +++|*
08762  M00S07053.msm     +++|*         MACROS SFA, SMSTF.
08763  M00S07054.msm     +++|
08764  M00S07055.msm     +++|
08765  M00S07056.msm     +++| VLP12    RJM    CCE         CHECK CHAINED EQUIPMENT
08766  M00S07057.msm     +++|          MJN    VLPX        IF FIRST EQUIPMENT FOUND
08767  M00S07058.msm     +++| VLP13    LDD    EQ          RESTORE PRIMARY EQUIPMENT PARAMETERS
08768  M00S07059.msm     +++|          STD    T5
08769  M00S07060.msm     +++|          RJM    LRA         LOAD REFERENCE ADDRESS
08770  M00S07061.msm     +++|          ADD    T5
08771  M00S07062.msm     +++|          CRD    RD
08772  M00S07063.msm     +++|          SFA    EST,T5
08773  M00S07064.msm     +++|          ADK    EQDE
08774  M00S07065.msm     +++|          CRD    FN
08775  M00S07066.msm     +++|          LDD    FN+4        RESTORE STATUS WORD
08776  M00S07067.msm     +++|          SHN    3
08777  M00S07068.msm     +++|          ADN    STLL
08778  M00S07069.msm     +++|          CRD    FS
08779  M00S07070.msm     +++|          LDD    EC          EXIT WITH (A) = ERROR CODE
08780  M00S07071.msm     +++|
08781  M00S07072.msm     +++| VLP      SUBR               ENTRY/EXIT
08782  M00S07073.msm     +++|          RJM    LRA         LOAD REFERENCE ADDRESS
08783  M00S07074.msm     +++|          ADD    EQ
08784  M00S07075.msm     +++|          CWD    RD          REWRITE RECOVERY TABLE
08785  M00S07076.msm     +++|          LDN    0           CLEAR CURRENT UNIT COUNT
08786  M00S07077.msm     +++|          STD    T7
08787  M00S07078.msm     +++|          STD    EC
08788  M00S07079.msm     +++|          LDM    DLPB+4      SET TOTAL UNIT COUNT
08789  M00S07080.msm     +++|          LPN    77
08790  M00S07081.msm     +++|          STD    T3
08791  M00S07082.msm     +++|          LPN    7
08792  M00S07083.msm     +++|          STD    T2
08793  M00S07084.msm     +++|          STD    UC          SET CURRENT UNIT POSITION
08794  M00S07085.msm     +++|          LMD    T3
08795  M00S07086.msm     +++|          ZJN    VLP1        IF FIRST EQUIPMENT IN CHAIN
08796  M00S07087.msm     +++|          LJM    VLP12       CHECK CHAINED EQUIPMENT
08797  M00S07088.msm     +++|
08798  M00S07089.msm     +++|*         SET PARAMETERS FOR THIS EQUIPMENT.
08799  M00S07090.msm     +++|
08800  M00S07091.msm     +++| VLP1     LDD    AL          SET ADDRESS OF CURRENT UNITS MST
08801  M00S07092.msm     +++|          STD    CA
08802  M00S07093.msm     +++|          LDN    0           CLEAR CURRENT UNIT COUNT FOR THIS EQUIP.
08803  M00S07094.msm     +++|          STD    T6
08804  M00S07095.msm     +++|          LDD    FN+4
08805  M00S07096.msm     +++|          SHN    3
08806  M00S07097.msm     +++|          ADN    DDLL
08807  M00S07098.msm     +++|          CRD    CM
08808  M00S07099.msm     +++|          LDD    CM          SET UNIT COUNT FOR THIS EQUIPMENT
08809  M00S07100.msm     +++|          SHN    -3
08810  M00S07101.msm     +++|          LPN    7
08811  M00S07102.msm     +++|          STD    T3
08812  M00S07103.msm     +++| VLP2     RJM    LRA         LOAD REFERENCE ADDRESS
08813  M00S07104.msm     +++|          ADD    CA
08814  M00S07105.msm     +++|          ADN    STLL        READ STATUS WORD
08815  M00S07106.msm     +++|          CRD    CM
08816  M00S07107.msm     +++|
08817  M00S07108.msm     +++|*         VERIFY ALL UNITS FOR THIS EQUIPMENT.
08818  M00S07109.msm     +++|
08819  M00S07110.msm     +++|          LDD    CM+1
08820  M00S07111.msm     +++|          LPN    77
08821  M00S07112.msm     +++|          ZJN    VLP5        IF NO ERROR THIS UNIT
08822  M00S07113.msm     +++|          STD    EC          SET ERROR CODE
08823  M00S07114.msm     +++|          LDD    T7
08824  M00S07115.msm     +++|          ZJN    VLP4        IF FIRST UNIT OF EQUIPMENT
08825  M00S07116.msm     +++|          LDN    STCE        *CONFIGURATION ERROR*
08826  M00S07117.msm     +++| VLP3     STD    EC
08827  M00S07118.msm     +++| VLP4     LJM    VLP13
08828  M00S07119.msm     +++|
08829  M00S07120.msm     +++| VLP5     RJM    VDP         VERIFY DEVICE PARAMETERS
08830  M00S07121.msm     +++|          NJN    VLP3        IF LABEL CONFLICT
08831  M00S07122.msm     +++|
08832  M00S07123.msm     +++|*         LABEL FOR THIS UNIT VALID - PROCEED TO NEXT UNIT.
08833  M00S07124.msm     +++|
08834  M00S07125.msm     +++|          LDD    EQ
08835  M00S07126.msm     +++|          LMD    T5
08836  M00S07127.msm     +++|          ZJN    VLP6        IF FIRST EQUIPMENT IN CHAIN
08837  M00S07128.msm     +++|          SMSTF  LDIU        SET DEVICE IN USE
08838  M00S07129.msm     +++|*         LDN    0           INHIBIT FURTHER PROCESSING OF DEVICE
08839  M00S07130.msm     +++|          STD    RE
08840  M00S07131.msm     +++|          RJM    LRA         LOAD REFERENCE ADDRESS
08841  M00S07132.msm     +++|          ADD    T5
08842  M00S07133.msm     +++|          CWD    RD
08843  M00S07134.msm     +++| VLP6     LDD    T7
08844  M00S07135.msm     +++|          LMD    T2
08845  M00S07136.msm     +++|          ZJN    VLP7        IF NO MORE UNITS
08846  M00S07137.msm     +++|          AOD    T7          SET N/M FOR NEXT UNIT
08847  M00S07138.msm     +++|          SHN    3
08848  M00S07139.msm     +++|          ADD    T2
08849  M00S07140.msm     +++|          STD    UC
08850  M00S07141.msm     +++|          LDD    T6
08851  M00S07142.msm     +++|          LMD    T3
08852  M00S07143.msm     +++|          ZJN    VLP10       IF NO MORE UNITS THIS EQUIPMENT
08853  M00S07144.msm     +++|          AOD    T6          ADVANCE UNIT NUMBER
08854  M00S07145.msm     +++|          LDN    MSTL        ADVANCE TABLE ADDRESS
08855  M00S07146.msm     +++|          RAD    CA
08856  M00S07147.msm     +++|          LJM    VLP2
08857  M00S07148.msm     +++|
08858  M00S07149.msm     +++|*         ALL UNITS CHECKED.
08859  M00S07150.msm     +++|
08860  M00S07151.msm     +++| VLP7     LDD    FN
08861  M00S07152.msm     +++|          SHN    0-10
08862  M00S07153.msm     +++|          LPN    1
08863  M00S07154.msm     +++|          LMN    1
08864  M00S07155.msm     +++|          ZJN    VLP9        IF DEVICE REMOVABLE
08865  M00S07156.msm     +++|          LDD    FN+4        GET UNIT COUNT FROM MST
08866  M00S07157.msm     +++|          SHN    3
08867  M00S07158.msm     +++|          ADN    DDLL
08868  M00S07159.msm     +++|          CRD    CN
08869  M00S07160.msm     +++|          LDD    CN
08870  M00S07161.msm     +++|          LPN    7
08871  M00S07162.msm     +++|          LMD    T7
08872  M00S07163.msm     +++|          ZJN    VLP9        IF CORRECT NUMBER OF UNITS
08873  M00S07164.msm     +++| VLP8     LDN    STCE        SET CONFIGURATION ERROR
08874  M00S07165.msm     +++| VLP9     STD    EC
08875  M00S07166.msm     +++|          LJM    VLP13
08876  M00S07167.msm     +++|
08877  M00S07168.msm     +++|*         PROCEED TO NEXT EQUIPMENT IN CHAIN.
08878  M00S07169.msm     +++|
08879  M00S07170.msm     +++| VLP10    LDD    FS+4
08880  M00S07171.msm     +++|          SHN    -3
08881  M00S07172.msm     +++|          NJN    VLP11       IF EQUIPMENT LINKED
08882  M00S07173.msm     +++|          RJM    CCE         CHECK CHAINED EQUIPMENT
08883  M00S07174.msm     +++|          PJN    VLP8        IF NO EQUIPMENT TO CHAIN
08884  M00S07175.msm     +++|          LDD    T6          SET EQUIPMENT LINK
08885  M00S07176.msm     +++|          SHN    3
08886  M00S07177.msm     +++|          RAD    FS+4
08887  M00S07178.msm     +++|
08888  M00S07179.msm     +++|*         REREAD EST ENTRY, SINCE (FN+4) WAS DESTROYED BY *CCE*.
08889  M00S07180.msm     +++|
08890  M00S07181.msm     +++|          SFA    EST,T5      REREAD EST ENTRY
08891  M00S07182.msm     +++|          ADK    EQDE
08892  M00S07183.msm     +++|          CRD    FN
08893  M00S07184.msm     +++|          LDD    FN+4        UPDATE MST
08894  M00S07185.msm     +++|          SHN    3
08895  M00S07186.msm     +++|          ADN    STLL
08896  M00S07187.msm     +++|          CWD    FS
08897  M00S07188.msm     +++|          LDD    T6          SET NEXT EQUIPMENT
08898  M00S07189.msm     +++| VLP11    STD    T5
08899  M00S07190.msm     +++|          RJM    LRA         LOAD REFERENCE ADDRESS
08900  M00S07191.msm     +++|          ADD    T5
08901  M00S07192.msm     +++|          CRD    RD
08902  M00S07193.msm     +++|          SFA    EST,T5      READ EST ENTRY
08903  M00S07194.msm     +++|          ADK    EQDE
08904  M00S07195.msm     +++|          CRD    FN
08905  M00S07196.msm     +++|          LDD    FN+4        READ MST STATUS WORD
08906  M00S07197.msm     +++|          SHN    3
08907  M00S07198.msm     +++|          ADN    STLL
08908  M00S07199.msm     +++|          CRD    FS
08909  M00S07200.msm     +++|          LJM    VLP1        LOOP FOR NEXT EQUIPMENT IN CHAIN
08910  M00S07201.msm     +++|          SPACE  4,10
08911  M00S07202.msm     +++|**        COMMON DECKS.
08912  M00S07203.msm     +++|
08913  M00S07204.msm     +++|
08914  M00S07205.msm     +++|          QUAL   VFN
08915  M00S07206.msm     +++| FN       EQU    CM+2
08916  M00S07207.msm     +++|*CALL     COMPVFN
08917  M00S07208.msm     +++|          QUAL   *
08918  M00S07209.msm     +++| VFN      EQU    /VFN/VFN
Line S00791 Modification History
M01 (Added by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
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 (Removed by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
08922  M01S07210.283l840 ---|          TITLE  CMS DEVICE VERIFICATION ROUTINES.
08923  M01S07211.283l840 ---|*         THE FOLLOWING SUBROUTINES ARE ONLY USED BY *CMS*.
Line S00794 Modification History
M01 (Added by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
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  M00S07212.msm     +++| CAD      SPACE  4,15
08999  M00S07213.msm     +++|**        CAD - CHECK ACTIVE DEVICES.
09000  M00S07214.msm     +++|*
09001  M00S07215.msm     +++|*         ENTRY  (EQ) = (T5) = EST ORDINAL.
09002  M00S07216.msm     +++|*                (FN - FN+4) = EST ENTRY.
09003  M00S07217.msm     +++|*
09004  M00S07218.msm     +++|*         EXIT   (CMSD) ADVANCED IF ERROR SET ON DEVICE.
09005  M00S07219.msm     +++|*                (A) .LT. 0 IF RECOVERY INFORMATION NOT TO
09006  M00S07220.msm     +++|*                BE REWRITTEN TO CM UPON RETURN TO *MRL*.
09007  M00S07221.msm     +++|*
09008  M00S07222.msm     +++|*         USES   IR+2, CM - CM+4, CN - CN+4, FS - FS+4.
09009  M00S07223.msm     +++|*
09010  M00S07224.msm     +++|*         CALLS  SES, UMS, VLP, *5ME*.
09011  M00S07225.msm     +++|*
09012  M00S07226.msm     +++|*         MACROS EXECUTE, MONITOR.
09013  M00S07227.msm     +++|
09014  M00S07228.msm     +++|
09015  M00S07229.msm     +++| CAD8     AOM    /CMS/CMSD   ADVANCE DEVICE IN ERROR COUNT
09016  M00S07230.msm     +++|
09017  M00S07231.msm     +++| CAD      SUBR               ENTRY/EXIT
09018  M00S07232.msm     +++|          SHN    21-6
09019  M00S07233.msm     +++|          MJN    CADX        IF DEVICE UNAVAILABLE
09020  M00S07234.msm     +++|          RJM    UMS         UPDATE MST
09021  M00S07235.msm     +++|          NJN    CADX        IF DEVICE INTERLOCKED
09022  M00S07236.msm     +++|          LDD    FN+4        READ MST WORDS
09023  M00S07237.msm     +++|          SHN    3
09024  M00S07238.msm     +++|          ADN    DULL
09025  M00S07239.msm     +++|          CRD    CM
09026  M00S07240.msm     +++|          ADN    STLL-DULL
09027  M00S07241.msm     +++|          CRD    FS
09028  M00S07242.msm     +++|          SBN    STLL-PFGL   READ PF DESCRIPTION
09029  M00S07243.msm     +++|          CRM    DLPB,TW
09030  M00S07244.msm     +++|          LDD    FS+1
09031  M00S07245.msm     +++|          LPN    77
09032  M00S07246.msm     +++|          NJN    CAD8        IF ERROR STATUS PRESENT
09033  M00S07247.msm     +++| CAD1     LDD    CN+4        CHECK ERROR IDLE FLAG
09034  M00S07248.msm     +++|          LPN    MGDEI
09035  M00S07249.msm     +++|          ZJN    CAD2        IF NOT SET
09036  M00S07250.msm     +++|          LDN    STEI        SET ERROR STATUS IN MST
09037  M00S07251.msm     +++|          RJM    SES
09038  M00S07252.msm     +++| CAD2     LDD    FN
09039  M00S07253.msm     +++|          SHN    21-10
09040  M00S07254.msm     +++|          PJN    CAD3        IF NOT REMOVABLE DEVICE
09041  M00S07255.msm     +++|          LDD    CM+4        CHECK ACTIVITY
09042  M00S07256.msm     +++|          LPC    3777
09043  M00S07257.msm     +++|          ADD    FS+3
09044  M00S07258.msm     +++|          NJN    CAD3        IF ACTIVE FILES
09045  M00S07259.msm     +++|          LDD    FS
09046  M00S07260.msm     +++|          SHN    21-2
09047  M00S07261.msm     +++|          MJN    CAD3        IF CHECKPOINT PENDING
09048  M00S07262.msm     +++|          SHN    3+21-3
09049  M00S07263.msm     +++|          MJN    CAD4        IF LOCAL UNLOAD SET
09050  M00S07264.msm     +++| CAD3     RJM    VLP         VERIFY LABEL PARAMETERS
09051  M00S07265.msm     +++|          MJN    CAD4        IF NOT FIRST EQUIPMENT IN CHAIN
09052  M00S07266.msm     +++|          NJN    CAD5        IF VERIFICATION ERRORS
09053  M00S07267.msm     +++|          LDM    SDIF
09054  M00S07268.msm     +++|          NJN    CAD6        IF INTERLOCKS ON ISD
09055  M00S07269.msm     +++|          LDN    SSTL        CHECK SYSTEM STATUS
09056  M00S07270.msm     +++|          CRD    CM
09057  M00S07271.msm     +++|          LDD    CM
09058  M00S07272.msm     +++|          LPN    14
09059  M00S07273.msm     +++| CAD4     NJN    CAD6        IF MS VALIDATION DISABLED / NOT PRESENT
09060  M00S07274.msm     +++|          LDD    EQ
09061  M00S07275.msm     +++|          STD    CM+1
09062  M00S07276.msm     +++|          LDN    VEIS        REQUEST MS VALIDATION
09063  M00S07277.msm     +++|          STD    CM+3
09064  M00S07278.msm     +++|          MONITOR  VMSM
09065  M00S07279.msm     +++|          LDD    CM+1
09066  M00S07280.msm     +++|          ZJN    CAD6        IF NO ERRORS
09067  M00S07281.msm     +++|          STD    IR+2
09068  M00S07282.msm     +++|          EXECUTE  5ME        PROCESS ERRLOG MESSAGES
09069  M00S07283.msm     +++|          LDN    STVE        SET ERROR STATUS IN MST
09070  M00S07284.msm     +++| CAD5     RJM    SES
09071  M00S07285.msm     +++|*         LDN    0           INHIBIT FURTHER PROCESSING OF DEVICE
09072  M00S07286.msm     +++|          STD    RE
09073  M00S07287.msm     +++|          AOM    /CMS/CMSD   ADVANCE DEVICE IN ERROR COUNT
09074  M00S07288.msm     +++| CAD6     LJM    CADX        RETURN
Line S00001 Modification History
M01 (Added by) msm40
M02 (Removed by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
09075  M02S00001.283l840 ---| CDB      SPACE  4,15
09076  M02S00002.283l840 ---|**        CDB - CHECK IF DEVICE IS BUFFERED.
09077  M02S00003.283l840 ---|*
09078  M02S00004.283l840 ---|*         ENTRY  (T5) = EST ORDINAL.
09079  M02S00005.283l840 ---|*                (FN+4) = MST ADDRESS.
09080  M02S00006.283l840 ---|*
09081  M02S00007.283l840 ---|*         EXIT   (A) = 0.
09082  M02S00008.283l840 ---|*                DATA BUFFERS FLUSHED IF DEVICE BUFFERED.
09083  M02S00009.283l840 ---|*
09084  M02S00010.283l840 ---|*         USES   CM - CM+4.
09085  M02S00011.283l840 ---|*
09086  M02S00012.283l840 ---|*         MACROS MONITOR.
09087  M02S00013.283l840 ---|
09088  M02S00014.283l840 ---|
09089  M02S00015.283l840 ---| CDB      SUBR               ENTRY/EXIT
09090  M02S00016.283l840 ---|          LDD    FN+4        CHECK IF BUFFERED DEVICE
09091  M02S00017.283l840 ---|          SHN    3
09092  M02S00018.283l840 ---|          ADN    DILL
09093  M02S00019.283l840 ---|          CRD    CM
09094  M02S00020.283l840 ---|          LDD    CM+3
09095  M02S00021.283l840 ---|          LPC    2000
09096  M02S00022.283l840 ---|          ZJN    CDBX        IF NOT A BUFFERED DEVICE
09097  M02S00023.283l840 ---|          LDN    ZERL
09098  M02S00024.283l840 ---|          CRD    CM
09099  M02S00025.283l840 ---|          LDC    BMFW*100    FLUSH ALL WRITE BUFFERS
09100  M02S00026.283l840 ---|          STD    CM+4
09101  M02S00027.283l840 ---|          LDD    T5          SET EQUIPMENT
09102  M02S00028.283l840 ---|          STD    CM+3
09103  M02S00029.283l840 ---|          MONITOR  BFMM
09104  M02S00030.283l840 ---|*         LDN    0
09105  M02S00031.283l840 ---|          UJN    CDBX        RETURN
09106  M00S07289.msm     +++| CID      SPACE  4,15
09107  M00S07290.msm     +++|**        CID - CHECK INACTIVE DEVICES.
09108  M00S07291.msm     +++|*
09109  M00S07292.msm     +++|*         ENTRY  (EQ) = (T5) = EST ORDINAL.
09110  M00S07293.msm     +++|*                (FN - FN+4) = EST ENTRY.
09111  M00S07294.msm     +++|*
09112  M00S07295.msm     +++|*         EXIT   INACTIVE EQUIPMENTS WITH UNLOAD REQUESTED
09113  M00S07296.msm     +++|*                RESTORED TO ORIGINAL AND UNAVAILABLE STATE.
09114  M00S07297.msm     +++|*                TO *GDT2* IF RECOVERY INTERLOCK UNAVAILABLE.
09115  M00S07298.msm     +++|*                (A) .LT. 0 IF RECOVERY INFORMATION NOT TO
09116  M00S07299.msm     +++|*                BE REWRITTEN TO CM UPON RETURN TO *MRL*.
09117  M00S07300.msm     +++|*
09118  M00S07301.msm     +++|*         USES   CM - CM+4, FN - FN+4, FS - FS+4.
09119  M00S07302.msm     +++|*
Line S07303 Modification History
M01 (Removed by) msm40
Seq #  *Modification Id* Act 
----------------------------+
09120  M01S07303.msm40   ---|*         CALLS  CDD, CDS, CUS, IAM, IES, IFR, ILK, RDE, RGM, UIS, WDE.
Line S00032 Modification History
M01 (Added by) msm40
Seq #  *Modification Id* Act 
----------------------------+
09121  M01S00032.msm40   +++|*         CALLS  CDB, CDD, CDS, CUS, IAM, IES, IFR, ILK, RDE, RGM, UIS,
09122  M01S00033.msm40   +++|*                WDE.
09123  M00S07304.msm     +++|*
09124  M00S07305.msm     +++|*         MACROS MMTE, SFA, SMSTF.
09125  M00S07306.msm     +++|
09126  M00S07307.msm     +++|
09127  M00S07308.msm     +++| CID9     RJM    UIS         SET UNLOAD STATUS IN DIT ENTRY
09128  M00S07309.msm     +++|          LDD    FN
09129  M00S07310.msm     +++|          LPC    -100
09130  M00S07311.msm     +++|          LMD    HN          SET DEVICE UNAVAILABLE
09131  M00S07312.msm     +++|          STD    FN
09132  M00S07313.msm     +++|          SFA    EST,EQ
09133  M00S07314.msm     +++|          ADK    EQDE
09134  M00S07315.msm     +++|          CWD    FN
09135  M00S07316.msm     +++|          SMSTF  LDUL
09136  M00S07317.msm     +++|
09137  M00S07318.msm     +++| CID      SUBR               ENTRY/EXIT
09138  M00S07319.msm     +++|          RJM    CDS         CHECK DEVICE STATUS
09139  M00S07320.msm     +++|          NJN    CIDX        IF DEVICE ACTIVITY
09140  M00S07321.msm     +++|          RJM    ILK         ENSURE PFM-S NOT ACTIVE ON DEVICE
09141  M00S07322.msm     +++|          RJM    CDS         RECHECK DEVICE
09142  M00S07323.msm     +++|          NJN    CIDX        IF NEW DEVICE ACTIVITY
09143  M00S07324.msm     +++|          LDD    FN
09144  M00S07325.msm     +++|          SHN    21-10
09145  M00S07326.msm     +++|          PJN    CID9        IF NON-REMOVABLE DEVICE
09146  M00S07327.msm     +++|          RJM    RGM         READ GLOBAL MST WORDS
09147  M00S07328.msm     +++|          NJN    CIDX        IF INTERLOCK SET
09148  M00S07329.msm     +++|          LDD    CN+4        CHECK GLOBAL UNLOAD
09149  M00S07330.msm     +++|          LPN    MGUNL
09150  M00S07331.msm     +++|          NJN    CIDX        IF GLOBAL UNLOAD SET
09151  M00S07332.msm     +++|          STM    DATB
Line S00034 Modification History
M01 (Added by) msm40
M02 (Removed by) ns2780
Seq #  *Modification Id* Act 
----------------------------+
09152  M02S00034.ns2780  ---|          RJM    CDB         CHECK FOR BUFFERED DEVICE
Line S00001 Modification History
M01 (Added by) ns2780
Seq #  *Modification Id* Act 
----------------------------+
09153  M01S00001.ns2780  +++|          RJM    CBF         CHECK FOR BUFFERS TO FLUSH
09154  M01S00002.ns2780  +++|          NJN    CIDX        IF UNABLE TO FLUSH ALL BUFFERS
09155  M00S07333.msm     +++|          UJMF   CID5
09156  M00S07334.msm     +++|          LDN    DATI        GET DAT INTERLOCK
09157  M00S07335.msm     +++|          RJM    IFR
09158  M00S07336.msm     +++|          ZJN    CID2        IF FLAG REGISTER INTERLOCKED
09159  M00S07337.msm     +++|          LJM    /CMS/GDT1   RECALL *CMS*
09160  M00S07338.msm     +++|
09161  M00S07339.msm     +++| CID2     RJM    RDE         READ DAT ENTRY
09162  M00S07340.msm     +++|          LDD    QS
09163  M00S07341.msm     +++|          ZJN    CID4        IF NO DAT ENTRY
09164  M00S07342.msm     +++|          LDM    DATB+11     CLEAR ACCESS BY THIS MACHINE
09165  M00S07343.msm     +++|          LPC    -0
09166  M00S07344.msm     +++|          MMTE   *-1
09167  M00S07345.msm     +++|          STM    DATB+11
09168  M00S07346.msm     +++|          NJN    CID3        IF ALL ACCESSES NOT CLEARED
09169  M00S07347.msm     +++|          STM    DATB        CLEAR DAT ENTRY
09170  M00S07348.msm     +++| CID3     RJM    WDE         STORE DAT ENTRY
09171  M00S07349.msm     +++| CID4     LCN    DATI        DROP FLAG REGISTER INTERLOCK
09172  M00S07350.msm     +++|          RJM    IFR
09173  M00S07351.msm     +++| CID5     LDD    FN
09174  M00S07352.msm     +++|          LPN    20
09175  M00S07353.msm     +++|          ZJN    CID6        IF NOT ISD
09176  M00S07354.msm     +++|          STM    DATB
09177  M00S07355.msm     +++|          LDD    FS+2        CHECK UNLOAD STATUS
09178  M00S07356.msm     +++|          RJM    CUS
09179  M00S07357.msm     +++| CID6     LDM    DATB
09180  M00S07358.msm     +++|          NJN    CID7        IF DEVICE NOT UNLOADED IN ALL MACHINES
09181  M00S07359.msm     +++|          LDN    MGUNL       SET GLOBAL UNLOAD
09182  M00S07360.msm     +++|          RAD    CN+4
09183  M00S07361.msm     +++|          LDD    FN+4        STORE DEVICE ACTIVITY WORD
09184  M00S07362.msm     +++|          SHN    3
09185  M00S07363.msm     +++|          ADN    ACGL
09186  M00S07364.msm     +++|          CWD    CN
09187  M00S07365.msm     +++| CID7     RJM    /CMS/IAM    ISSUE ACCOUNTING MESSAGE
09188  M00S07366.msm     +++|          RJM    IES         INITIALIZE EQUIPMENT STATUS
09189  M00S07367.msm     +++|          SMSTF  LDUL        SET DEVICE UNLOADED
09190  M00S07368.msm     +++|          LDM    DATB
09191  M00S07369.msm     +++|          NJN    CID8        IF DEVICE NOT UNLOADED ON ALL MACHINES
09192  M00S07370.msm     +++|          RJM    CDD         CLEAR DEVICE DESCRIPTION
09193  M00S07371.msm     +++| CID8     LCN    0           DISABLE *MRL* REWRITE OF RECOVERY TABLES
09194  M00S07372.msm     +++|          LJM    CIDX        RETURN
Line S07373 Modification History
M01 (Removed by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
09195  M01S07373.283l840 ---| CUD      SPACE  4,15
09196  M01S07374.283l840 ---|**        CUD - CHECK UNAVAILABLE DEVICES.
09197  M01S07375.283l840 ---|*
09198  M01S07376.283l840 ---|*         ENTRY  (EQ) = (T5) = EST ORDINAL.
09199  M01S07377.283l840 ---|*                (FN - FN+4) = EST ENTRY.
09200  M01S07378.283l840 ---|*
09201  M01S07379.283l840 ---|*         EXIT   (RC) = NUMBER OF EQUIPMENTS TO RECOVER.
09202  M01S07380.283l840 ---|*                (RE) SET WITH EQUIPMENTS TO RECOVER.
09203  M01S07381.283l840 ---|*                (A) .LT. 0 IF RECOVERY INFORMATION NOT TO
09204  M01S07382.283l840 ---|*                BE REWRITTEN TO CM UPON RETURN TO *MRL*.
09205  M01S07383.283l840 ---|*
09206  M01S07384.283l840 ---|*         USES   FN, RC, CM+1 - CM+7, FS - FS+4.
09207  M01S07385.283l840 ---|*
09208  M01S07386.283l840 ---|*         CALLS  CDA, CDI, CGU, SES, VLP.
09209  M01S07387.283l840 ---|*
09210  M01S07388.283l840 ---|*         MACROS MONITOR, SFA.
09211  M01S07389.283l840 ---|
09212  M01S07390.283l840 ---|
09213  M01S07391.283l840 ---| CUD6     RJM    CGU         CHECK GLOBAL UNLOAD
09214  M01S07392.283l840 ---|
09215  M01S07393.283l840 ---| CUD      SUBR               ENTRY/EXIT
09216  M01S07394.283l840 ---|          RJM    CDA
09217  M01S07395.283l840 ---|          MJN    CUDX        IF RECOVERY INHIBITED
09218  M01S07396.283l840 ---|          NJN    CUD6        IF DEVICE UNLOADED
09219  M01S07397.283l840 ---|          LDD    FN
09220  M01S07398.283l840 ---|          SHN    21-10
09221  M01S07399.283l840 ---|          MJN    CUD1        IF REMOVABLE DEVICE
09222  M01S07400.283l840 ---|          SHN    11+21-11
09223  M01S07401.283l840 ---|          PJN    CUD1        IF NON-SHARED DEVICE
09224  M01S07402.283l840 ---|          LDD    FN+4        GET EXTENDED MEMORY ADDRESS OF MST/TRT
09225  M01S07403.283l840 ---|          SHN    3
09226  M01S07404.283l840 ---|          ADN    SDGL
09227  M01S07405.283l840 ---|          CRD    CM+3
09228  M01S07406.283l840 ---|          ADN    ALGL-SDGL   SET CM ADDRESS FOR MST UPDATE
09229  M01S07407.283l840 ---|          STD    CM+2
09230  M01S07408.283l840 ---|          SHN    -14
09231  M01S07409.283l840 ---|          LMC    GLGL*100-ALGL*100
09232  M01S07410.283l840 ---|          STD    CM+1
09233  M01S07411.283l840 ---|          LDD    CM+3
09234  M01S07412.283l840 ---|          ADD    CM+4
09235  M01S07413.283l840 ---|          ZJN    CUD1        IF DEVICE NOT PREVIOUSLY RECOVERED
09236  M01S07414.283l840 ---|          LDD    CM+7
09237  M01S07415.283l840 ---|          ADD    CM+6
09238  M01S07416.283l840 ---|          ADD    CM+5
09239  M01S07417.283l840 ---|          NJN    CUD4        IF DEVICE ACCESSED PREVIOUSLY
09240  M01S07418.283l840 ---| CUD1     RJM    VLP         VERIFY LABEL PARAMETERS
09241  M01S07419.283l840 ---|          MJN    CUD2        IF NOT FIRST EQUIPMENT IN CHAIN
09242  M01S07420.283l840 ---|          NJN    CUD3        IF VERIFY ERRORS
09243  M01S07421.283l840 ---|          LDC    200         SET EQUIPMENT RECOVERY
09244  M01S07422.283l840 ---|          RAD    RE
09245  M01S07423.283l840 ---|          AOD    RC          ADVANCE RECOVERY COUNT
09246  M01S07424.283l840 ---| CUD2     LJM    CUDX        RETURN
09247  M01S07425.283l840 ---|
09248  M01S07426.283l840 ---| CUD3     RJM    SES         SET ERROR STATUS
09249  M01S07427.283l840 ---|          RJM    CDI         CLEAR ISD INTERLOCKS
09250  M01S07428.283l840 ---|          LCN    0
09251  M01S07429.283l840 ---|          UJN    CUD2        RETURN
09252  M01S07430.283l840 ---|
09253  M01S07431.283l840 ---| CUD4     LDD    FN
09254  M01S07432.283l840 ---|          SHN    21-4
09255  M01S07433.283l840 ---|          MJN    CUD5        IF INDEPENDENT SHARED DEVICE
09256  M01S07434.283l840 ---|          LDN    ALGL
09257  M01S07435.283l840 ---|          RAD    CM+4
09258  M01S07436.283l840 ---|          LDC    RECS*1000   SET MONITOR SUBFUNCTION
09259  M01S07437.283l840 ---|          RAD    CM+3
09260  M01S07438.283l840 ---|          MONITOR  ECSM      UPDATE GLOBAL MST FROM ECS
09261  M01S07439.283l840 ---| CUD5     LDN    0           CLEAR UNAVAILABLE STATUS
09262  M01S07440.283l840 ---|          SBD    HN
09263  M01S07441.283l840 ---|          RAD    FN
09264  M01S07442.283l840 ---|          SFA    EST,EQ      REWRITE EST ENTRY
09265  M01S07443.283l840 ---|          ADK    EQDE
09266  M01S07444.283l840 ---|          CWD    FN
09267  M01S07445.283l840 ---|          UJN    CUD2        RETURN
Line S00868 Modification History
M01 (Added by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
09268  M01S00868.283l840 +++|          TITLE  *CMS* ACTIVE/INACTIVE DEVICE SUBROUTINES.
Line S00869 Modification History
M01 (Added by) 283l840
M02 (Removed by) ns2780
Seq #  *Modification Id* Act 
----------------------------+
09269  M02S00869.ns2780  ---| CDB      SPACE  4,15
09270  M02S00870.ns2780  ---|**        CDB - CHECK IF DEVICE IS BUFFERED.
Line S00003 Modification History
M01 (Added by) ns2780
Seq #  *Modification Id* Act 
----------------------------+
09271  M01S00003.ns2780  +++| CBF      SPACE  4,15
09272  M01S00004.ns2780  +++|**        CBF - CHECK FOR BUFFERS TO FLUSH.
Line S00871 Modification History
M01 (Added by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
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 (Removed by) ns2780
Seq #  *Modification Id* Act 
----------------------------+
09277  M02S00875.ns2780  ---|*         EXIT   IF BUFFERED DEVICE, I/O BUFFERS FLUSHED AND RELEASED.
09278  M02S00876.ns2780  ---|*                IF SHARED BUFFERED DEVICE, *BAT* PERMISSIONS RELEASED
09279  M02S00877.ns2780  ---|*                  AND *BST* PROCESSING DISABLED.
Line S00005 Modification History
M01 (Added by) ns2780
Seq #  *Modification Id* Act 
----------------------------+
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.
Line S00878 Modification History
M01 (Added by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
09284  M01S00878.283l840 +++|*
Line S00879 Modification History
M01 (Added by) 283l840
M02 (Removed by) ns2780
Seq #  *Modification Id* Act 
----------------------------+
09285  M02S00879.ns2780  ---|*         USES   T6, T7, CM - CM+4.
Line S00009 Modification History
M01 (Added by) ns2780
Seq #  *Modification Id* Act 
----------------------------+
09286  M01S00009.ns2780  +++|*         USES   T6, CM - CM+4.
Line S00880 Modification History
M01 (Added by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
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 (Removed by) ns2780
Seq #  *Modification Id* Act 
----------------------------+
09291  M02S00884.ns2780  ---| CDB      SUBR               ENTRY/EXIT
Line S00010 Modification History
M01 (Added by) ns2780
Seq #  *Modification Id* Act 
----------------------------+
09292  M01S00010.ns2780  +++| CBF      SUBR               ENTRY/EXIT
Line S00885 Modification History
M01 (Added by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
09293  M01S00885.283l840 +++|          LDD    FN          CHECK IF BUFFERED DEVICE
09294  M01S00886.283l840 +++|          LPN    40
Line S00887 Modification History
M01 (Added by) 283l840
M02 (Removed by) ns2780
Seq #  *Modification Id* Act 
----------------------------+
09295  M02S00887.ns2780  ---|          ZJN    CDBX        IF NOT A BUFFERED DEVICE
Line S00011 Modification History
M01 (Added by) ns2780
Seq #  *Modification Id* Act 
----------------------------+
09296  M01S00011.ns2780  +++|          ZJN    CBFX        IF NOT A BUFFERED DEVICE
09297  M01S00012.ns2780  +++|          LDD    TH          SET MAXIMUM RETRY COUNT
09298  M01S00013.ns2780  +++|          STD    T6
Line S00888 Modification History
M01 (Added by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
09299  M01S00888.283l840 +++|
Line S00889 Modification History
M01 (Added by) 283l840
M02 (Removed by) ns2780
Seq #  *Modification Id* Act 
----------------------------+
09300  M02S00889.ns2780  ---|*         FLUSH WRITE BUFFERS / DROP ALL BUFFERS.
Line S00014 Modification History
M01 (Added by) ns2780
Seq #  *Modification Id* Act 
----------------------------+
09301  M01S00014.ns2780  +++|*         FLUSH AND RELEASE BUFFERS - RELEASE *BAT*/*BST* PERMISSIONS.
Line S00890 Modification History
M01 (Added by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
09302  M01S00890.283l840 +++|
Line S00891 Modification History
M01 (Added by) 283l840
M02 (Removed by) ns2780
Seq #  *Modification Id* Act 
----------------------------+
09303  M02S00891.ns2780  ---| CDB1     LDN    ZERL        CLEAR ASSEMBLY AREA
Line S00015 Modification History
M01 (Added by) ns2780
Seq #  *Modification Id* Act 
----------------------------+
09304  M01S00015.ns2780  +++| CBF1     LDN    ZERL        CLEAR ASSEMBLY AREA
Line S00892 Modification History
M01 (Added by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
09305  M01S00892.283l840 +++|          CRD    CM
Line S00016 Modification History
M01 (Added by) ns2780
Seq #  *Modification Id* Act 
----------------------------+
09306  M01S00016.ns2780  +++|          LDD    FN
09307  M01S00017.ns2780  +++|          SHN    21-11
09308  M01S00018.ns2780  +++|          MJN    CBF2        IF SHARED BUFFERED DEVICE
Line S00893 Modification History
M01 (Added by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
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 (Removed by) ns2780
Seq #  *Modification Id* Act 
----------------------------+
09321  M02S00905.ns2780  ---|          LDD    CM+4
09322  M02S00906.ns2780  ---|          ZJN    CDB2        IF COMPLETE
09323  M02S00907.ns2780  ---|          DELAY  20B         DELAY TWO MILLISECONDS
Line S00019 Modification History
M01 (Added by) ns2780
Seq #  *Modification Id* Act 
----------------------------+
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
Line S00908 Modification History
M01 (Added by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
09334  M01S00908.283l840 +++|          PAUSE
Line S00909 Modification History
M01 (Added by) 283l840
M02 (Removed by) ns2780
Seq #  *Modification Id* Act 
----------------------------+
09335  M02S00909.ns2780  ---|          UJP    CDB1        REISSUE REQUEST
Line S00029 Modification History
M01 (Added by) ns2780
Seq #  *Modification Id* Act 
----------------------------+
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
Line S00910 Modification History
M01 (Added by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
09340  M01S00910.283l840 +++|
09341  M01S00911.283l840 +++|*         DISABLE *BST* PROCESSING.
09342  M01S00912.283l840 +++|
Line S00913 Modification History
M01 (Added by) 283l840
M02 (Removed by) ns2780
Seq #  *Modification Id* Act 
----------------------------+
09343  M02S00913.ns2780  ---| CDB2     LDD    FN
Line S00033 Modification History
M01 (Added by) ns2780
Seq #  *Modification Id* Act 
----------------------------+
09344  M01S00033.ns2780  +++| CBF4     LDD    FN
Line S00914 Modification History
M01 (Added by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
09345  M01S00914.283l840 +++|          SHN    21-11
Line S00915 Modification History
M01 (Added by) 283l840
M02 (Removed 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 (Removed by) ns2780a
Seq #  *Modification Id* Act 
----------------------------+
09347  M02S00034.ns2780a ---|          PJP    CBFX        IF NOT SHARED BUFFERED DEVICE
Line S00001 Modification History
M01 (Added by) ns2780a
Seq #  *Modification Id* Act 
----------------------------+
09348  M01S00001.ns2780a +++|          PJN    CBF5        IF NOT SHARED BUFFERED DEVICE
Line S00916 Modification History
M01 (Added by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
09349  M01S00916.283l840 +++|          LDD    MA          WRITE REQUEST
Line S00917 Modification History
M01 (Added by) 283l840
M02 (Removed by) ns2780
Seq #  *Modification Id* Act 
----------------------------+
09350  M02S00917.ns2780  ---|          CWM    CDBB,ON
Line S00035 Modification History
M01 (Added by) ns2780
Seq #  *Modification Id* Act 
----------------------------+
09351  M01S00035.ns2780  +++|          CWM    CBFB,ON
Line S00918 Modification History
M01 (Added by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
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
Line S00002 Modification History
M01 (Added by) ns2780a
Seq #  *Modification Id* Act 
----------------------------+
09360  M01S00002.ns2780a +++| CBF5     LDN    0           RETURN SUCCESSFUL RESPONSE
Line S00036 Modification History
M01 (Added by) ns2780
Seq #  *Modification Id* Act 
----------------------------+
09361  M01S00036.ns2780  +++|          UJP    CBFX        RETURN
Line S00926 Modification History
M01 (Added by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
09362  M01S00926.283l840 +++|
Line S00927 Modification History
M01 (Added by) 283l840
M02 (Removed by) ns2780
Seq #  *Modification Id* Act 
----------------------------+
09363  M02S00927.ns2780  ---|*         RELEASE *BAT* ACCESS PERMISSIONS.
Line S00928 Modification History
M01 (Added by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
09364  M01S00928.283l840 +++|
Line S00929 Modification History
M01 (Added by) 283l840
M02 (Removed by) ns2780
Seq #  *Modification Id* Act 
----------------------------+
09365  M02S00929.ns2780  ---|          LDN    ZERL
09366  M02S00930.ns2780  ---|          CRD    CM
09367  M02S00931.ns2780  ---| CDBA     LDN    **          SET MACHINE INDEX
09368  M02S00932.ns2780  ---|          STD    CM+2
09369  M02S00933.ns2780  ---|          LDD    T5          SET EST ORDINAL
09370  M02S00934.ns2780  ---|          STD    CM+4
09371  M02S00935.ns2780  ---|          LDN    CBWS        RELEASE ALL READ AND WRITE ACCESS BITS
09372  M02S00936.ns2780  ---|          STD    CM+1
09373  M02S00937.ns2780  ---|          MONITOR  MTEM
09374  M02S00938.ns2780  ---|*         LDN    0
09375  M02S00939.ns2780  ---|          UJP    CDBX        RETURN
09376  M02S00940.ns2780  ---|
09377  M02S00941.ns2780  ---|
09378  M02S00942.ns2780  ---| CDBB     VFD    6/BDLL,6/1,6/27,42/1
Line S00037 Modification History
M01 (Added by) ns2780
Seq #  *Modification Id* Act 
----------------------------+
09379  M01S00037.ns2780  +++| CBFB     VFD    6/BDLL,6/1,6/27,42/1
09380  M00S07446.msm     +++| CDD      SPACE  4,10
09381  M00S07447.msm     +++|**        CDD - CLEAR DEVICE DESCRIPTION.
09382  M00S07448.msm     +++|*
09383  M00S07449.msm     +++|*         ENTRY  (EQ) = EST ORDINAL.
09384  M00S07450.msm     +++|*
09385  M00S07451.msm     +++|*         EXIT   DEVICE DESCRIPTION CLEARED.
09386  M00S07452.msm     +++|*                EXTENDED MEMORY COPY OF MST/TRT CLEARED.
09387  M00S07453.msm     +++|*
09388  M00S07454.msm     +++|*         USES   CM - CM+7, CN - CN+4, FN - FN+4.
09389  M00S07455.msm     +++|*
09390  M00S07456.msm     +++|*         MACROS MONITOR, SFA, UJMF.
09391  M00S07457.msm     +++|
09392  M00S07458.msm     +++|
09393  M00S07459.msm     +++| CDD      SUBR               ENTRY/EXIT
09394  M00S07460.msm     +++|          SFA    EST,EQ      READ EST ENTRY
09395  M00S07461.msm     +++|          ADK    EQDE
09396  M00S07462.msm     +++|          CRD    FN
09397  M00S07463.msm     +++|          LDN    ZERL
09398  M00S07464.msm     +++|          CRD    CN
09399  M00S07465.msm     +++|          LDD    FN+4
09400  M00S07466.msm     +++|          SHN    3
09401  M00S07467.msm     +++|          ADN    SDGL
09402  M00S07468.msm     +++|          CRD    CM+3
09403  M00S07469.msm     +++|          ADN    PUGL-SDGL   CLEAR USER DESCRIPTION
09404  M00S07470.msm     +++|          CWD    CN
09405  M00S07471.msm     +++|          SBN    PUGL-PFGL   CLEAR DEVICE DESCRIPTION
09406  M00S07472.msm     +++|          CWD    CN
09407  M00S07473.msm     +++|          UJMF   CDDX
09408  M00S07474.msm     +++|          SBN    PFGL
09409  M00S07475.msm     +++|          STD    CM+2
09410  M00S07476.msm     +++|          SHN    -14
09411  M00S07477.msm     +++|          LMC    GLGL*100-100  SET WORD COUNT FOR ECS TRANSFER
09412  M00S07478.msm     +++|          STD    CM+1
09413  M00S07479.msm     +++|          LDD    CM+3
09414  M00S07480.msm     +++|          ADD    CM+4
09415  M00S07481.msm     +++|          ZJN    CDDX        IF NOT SHARED DEVICE
09416  M00S07482.msm     +++| CDDA     LDN    1           MACHINE INDEX*2 + 1
09417  M00S07483.msm     +++|          RAD    CM+7
09418  M00S07484.msm     +++|          LDD    FN+4        STORE DEVICE INTERLOCK STATUS
09419  M00S07485.msm     +++|          SHN    3
09420  M00S07486.msm     +++|          ADN    SDGL
09421  M00S07487.msm     +++|          CWD    CM+3
09422  M00S07488.msm     +++|          LDC    WECS*1000   UPDATE GLOBAL MST IN ECS
09423  M00S07489.msm     +++|          RAD    CM+3
09424  M00S07490.msm     +++|          MONITOR ECSM
09425  M00S07491.msm     +++|          LDD    EQ          SET EST ORDINAL
09426  M00S07492.msm     +++|          STD    CM+1
09427  M00S07493.msm     +++|          LDN    CDIS        INSERT MONITOR SUBFUNCTION
09428  M00S07494.msm     +++|          STD    CM+3
09429  M00S07495.msm     +++|          MONITOR STBM       CLEAR TRT IN ECS
09430  M00S07496.msm     +++|          LJM    CDDX        RETURN
09431  M00S07497.msm     +++| CDS      SPACE  4,10
09432  M00S07498.msm     +++|**        CDS - CHECK DEVICE STATUS.
09433  M00S07499.msm     +++|*
09434  M00S07500.msm     +++|*         ENTRY  (FN - FN+4) = EST ENTRY.
09435  M00S07501.msm     +++|*
09436  M00S07502.msm     +++|*         EXIT   (A) = 0 IF NO ACTIVITY AND UNLOAD SET.
09437  M00S07503.msm     +++|*                (FS - FS+4) = *STLL* WORD OF MST.
09438  M00S07504.msm     +++|*
09439  M00S07505.msm     +++|*         USES   CM - CM+4.
09440  M00S07506.msm     +++|
09441  M00S07507.msm     +++|
09442  M00S07508.msm     +++| CDS      SUBR
09443  M00S07509.msm     +++|          LDD    FN+4
09444  M00S07510.msm     +++|          SHN    3
09445  M00S07511.msm     +++|          ADN    DULL
09446  M00S07512.msm     +++|          CRD    CM
09447  M00S07513.msm     +++|          ADN    STLL-DULL
09448  M00S07514.msm     +++|          CRD    FS
09449  M00S07515.msm     +++|          LDD    FS
09450  M00S07516.msm     +++|          LPN    MLUNL+MLCKP+MLDUL
09451  M00S07517.msm     +++|          LMN    MLUNL
09452  M00S07518.msm     +++|          NJN    CDSX        IF CHECKPOINT SET / NO LOCAL UNLOAD
09453  M00S07519.msm     +++|          LDD    CM+4        CHECK ACTIVITY
09454  M00S07520.msm     +++|          LPC    3777
09455  M00S07521.msm     +++|          ADD    FS+3
09456  M00S07522.msm     +++|          NJN    CDSX        IF ACTIVE FILES ON DEVICE
09457  M00S07523.msm     +++|          LDK    INWL        PROHIBIT UNLOAD IF *MREC* ACTIVE
09458  M00S07524.msm     +++|          CRD    CM
09459  M00S07525.msm     +++|          LDD    CM+3
09460  M00S07526.msm     +++|          SHN    -6
09461  M00S07527.msm     +++|          NJN    CDSX        IF *MREC* ACTIVE
09462  M00S07528.msm     +++|          LDD    FS+4
09463  M00S07529.msm     +++|          LPN    MLUAI
09464  M00S07530.msm     +++|          UJN    CDSX        RETURN
Line S07531 Modification History
M01 (Removed by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
09465  M01S07531.283l840 ---| CGU      SPACE  4,10
09466  M01S07532.283l840 ---|**        CGU - CHECK GLOBAL UNLOAD.
09467  M01S07533.283l840 ---|*
09468  M01S07534.283l840 ---|*         ENTRY  (FN - FN+4) = EST ENTRY.
09469  M01S07535.283l840 ---|*
09470  M01S07536.283l840 ---|*         EXIT   (CN - CN+4) = *ACGL* WORD OF MST.
09471  M01S07537.283l840 ---|*
09472  M01S07538.283l840 ---|*         USES   CM - CM+7.
09473  M01S07539.283l840 ---|*
09474  M01S07540.283l840 ---|*         CALLS  CIU.
09475  M01S07541.283l840 ---|*
09476  M01S07542.283l840 ---|*         MACROS MONITOR.
09477  M01S07543.283l840 ---|
09478  M01S07544.283l840 ---|
09479  M01S07545.283l840 ---| CGU1     RJM    CIU         CHECK ISD GLOBALLY UNLOADED
09480  M01S07546.283l840 ---|
09481  M01S07547.283l840 ---| CGU      SUBR               ENTRY/EXIT
09482  M01S07548.283l840 ---|          LDD    FN+4
09483  M01S07549.283l840 ---|          SHN    3
09484  M01S07550.283l840 ---|          ADN    MDGL        READ DRIVER WORD FOR DAT INDEX
09485  M01S07551.283l840 ---|          CRD    CM
09486  M01S07552.283l840 ---|          SBN    MDGL-SDGL   GET EXTENDED MEMORY POINTER
09487  M01S07553.283l840 ---|          CRD    CM+3
09488  M01S07554.283l840 ---|          SBN    SDGL-ACGL
09489  M01S07555.283l840 ---|          CRD    CN
09490  M01S07556.283l840 ---|          LDD    FN
09491  M01S07557.283l840 ---|          LPN    20
09492  M01S07558.283l840 ---|          NJN    CGU1        IF ISD
09493  M01S07559.283l840 ---|          LDD    CM
09494  M01S07560.283l840 ---|          LPC    377
09495  M01S07561.283l840 ---|          ZJN    CGUX        IF LINK TO DAT SLOT CLEARED
09496  M01S07562.283l840 ---|          LDD    CM+3
09497  M01S07563.283l840 ---|          ADD    CM+4
09498  M01S07564.283l840 ---|          ZJN    CGUX        IF NON-SHARED DEVICE
09499  M01S07565.283l840 ---|          LDN    ACGL
09500  M01S07566.283l840 ---|          RAD    CM+4
09501  M01S07567.283l840 ---|          SHN    -14
09502  M01S07568.283l840 ---|          LMC    RECS*1000   UPDATE ACTIVITY WORD FROM ECS
09503  M01S07569.283l840 ---|          RAD    CM+3
09504  M01S07570.283l840 ---|          LDN    PFGL-ACGL   SET WORD COUNT FOR ECS TRANSFER
09505  M01S07571.283l840 ---|          SHN    6
09506  M01S07572.283l840 ---|          STD    CM+1
09507  M01S07573.283l840 ---|          LDD    MA          READ MST DATA TO MESSAGE BUFFER
09508  M01S07574.283l840 ---|          STD    CM+2
09509  M01S07575.283l840 ---|          MONITOR ECSM
09510  M01S07576.283l840 ---|          LDD    MA
09511  M01S07577.283l840 ---|          CRD    CM+3
09512  M01S07578.283l840 ---|          LDD    CM+3        SAVE DEVICE UP/DOWN STATUS
09513  M01S07579.283l840 ---|          STD    CN
09514  M01S07580.283l840 ---|          LDD    CM+7        SET GLOBAL UNLOAD STATUS
09515  M01S07581.283l840 ---|          LPN    MGUNL
09516  M01S07582.283l840 ---|          STD    CN+4
09517  M01S07583.283l840 ---|          LDD    MA
09518  M01S07584.283l840 ---|          ADN    PFGL-ACGL
09519  M01S07585.283l840 ---|          CRD    CM
09520  M01S07586.283l840 ---|          LDD    FN+4
09521  M01S07587.283l840 ---|          SHN    3
09522  M01S07588.283l840 ---|          ADN    ACGL        STORE UNLOAD STATUS IN CMR
09523  M01S07589.283l840 ---|          CWD    CN
09524  M01S07590.283l840 ---|          ADN    PFGL-ACGL   STORE DEVICE DESCRIPTION
09525  M01S07591.283l840 ---|          CWD    CM
09526  M01S07592.283l840 ---|          LJM    CGUX        RETURN
09527  M01S07593.283l840 ---| CIU      SPACE  4,15
09528  M01S07594.283l840 ---|**        CIU - CHECK INDEPENDENT SHARED DEVICE UNLOADED.
09529  M01S07595.283l840 ---|*
09530  M01S07596.283l840 ---|*         ENTRY  (FN - FN+4) = EST ENTRY.
09531  M01S07597.283l840 ---|*                (CN - CN+4) = *ACGL* WORD OF MST.
09532  M01S07598.283l840 ---|*
09533  M01S07599.283l840 ---|*         USES   CM - CM+6.
09534  M01S07600.283l840 ---|*
09535  M01S07601.283l840 ---|*         CALLS  CUS, VFN.
09536  M01S07602.283l840 ---|
09537  M01S07603.283l840 ---|
09538  M01S07604.283l840 ---| CIU      SUBR               ENTRY/EXIT
09539  M01S07605.283l840 ---|          LDD    FN
09540  M01S07606.283l840 ---|          SHN    21-10
09541  M01S07607.283l840 ---|          PJN    CIUX        IF NOT REMOVABLE
09542  M01S07608.283l840 ---|          LDD    FN+1
09543  M01S07609.283l840 ---|          SHN    0-11        CHECK CHANNEL STATUS
09544  M01S07610.283l840 ---|          LMN    4
09545  M01S07611.283l840 ---|          ZJN    CIU1        IF PRIMARY CHANNEL ALIVE AND WELL
09546  M01S07612.283l840 ---|          LDD    FN+2
09547  M01S07613.283l840 ---|          SHN    0-11        TEST SECONDARY CHANNEL
09548  M01S07614.283l840 ---|          LMN    4
09549  M01S07615.283l840 ---|          NJN    CIUX        IF CHANNEL UNAVAILABLE
09550  M01S07616.283l840 ---|*CIU1     LDN    0
09551  M01S07617.283l840 ---| CIU1     RJM    CUS
09552  M01S07618.283l840 ---|          MJN    CIU4        IF DEVICE INACCESSIBLE
09553  M01S07619.283l840 ---|          ZJN    CIU2        IF NO ONE ACCESSING DEVICE
09554  M01S07620.283l840 ---|          LDN    MGUNL
09555  M01S07621.283l840 ---| CIU2     LMN    MGUNL       SET/CLEAR GLOBAL UNLOAD
09556  M01S07622.283l840 ---|          STD    CN+4
09557  M01S07623.283l840 ---|          NJN    CIU4        IF SETTING UNLOAD
09558  M01S07624.283l840 ---| CIU3     LDD    MA
09559  M01S07625.283l840 ---|          CWM    N4SS+5*PFGL,ON
09560  M01S07626.283l840 ---|          SBN    1           VERIFY FAMILY/PACK NAME
09561  M01S07627.283l840 ---|          CRD    CM+2
09562  M01S07628.283l840 ---|          RJM    VFN
09563  M01S07629.283l840 ---|          NJN    CIU5        IF VALID NAME IN LABEL
09564  M01S07630.283l840 ---| CIU4     LDN    ZERL
09565  M01S07631.283l840 ---|          CRD    CM+2
09566  M01S07632.283l840 ---| CIU5     LDD    FN+4        STORE/CLEAR DEVICE NAME
09567  M01S07633.283l840 ---|          SHN    3
09568  M01S07634.283l840 ---|          ADN    PFGL
09569  M01S07635.283l840 ---|          CWD    CM+2
09570  M01S07636.283l840 ---|          SBN    PFGL-ACGL   STORE GLOBAL UNLOAD STATUS
09571  M01S07637.283l840 ---|          CWD    CN
09572  M01S07638.283l840 ---|          LJM    CIUX        RETURN
09573  M01S07639.283l840 ---| CUS      SPACE  4,15
09574  M01S07640.283l840 ---|**        CUS - CHECK UNLOAD STATUS.
09575  M01S07641.283l840 ---|*
09576  M01S07642.283l840 ---|*         ENTRY  (A) = 0 IF CHECKING DEVICE ACTIVITY.
09577  M01S07643.283l840 ---|*                    = MID IF PROCESSING UNLOAD.
09578  M01S07644.283l840 ---|*
09579  M01S07645.283l840 ---|*         EXIT   (A) .LT. 0 IF DEVICE INACCESSIBLE.
09580  M01S07646.283l840 ---|*                    = (DATB) = 0 IF DEVICE INACTIVE.
09581  M01S07647.283l840 ---|*                             .GT. 0 IF DEVICE ACTIVE.
09582  M01S07648.283l840 ---|*
09583  M01S07649.283l840 ---|*         USES   T3, T7.
09584  M01S07650.283l840 ---|*
09585  M01S07651.283l840 ---|*         CALLS  RIL.
09586  M01S07652.283l840 ---|*
09587  M01S07653.283l840 ---|*         MACROS ENDMS.
09588  M01S07654.283l840 ---|
09589  M01S07655.283l840 ---|
09590  M01S07656.283l840 ---| CUS      SUBR               ENTRY/EXIT
09591  M01S07657.283l840 ---|          STD    T3
09592  M01S07658.283l840 ---|          RJM    RIL
09593  M01S07659.283l840 ---|          MJN    CUSX        IF DEVICE NOT ACCESSIBLE
09594  M01S07660.283l840 ---|          ENDMS
09595  M01S07661.283l840 ---|*         LDN    0
09596  M01S07662.283l840 ---|*         STD    T7
09597  M01S07663.283l840 ---| CUS1     LDN    5           ADVANCE DIT INDEX
09598  M01S07664.283l840 ---|          RAD    T7
09599  M01S07665.283l840 ---|          LMC    5*MISD+5
09600  M01S07666.283l840 ---|          ZJN    CUS2        IF END OF DIT
09601  M01S07667.283l840 ---|          LDM    DISS-5+4,T7
09602  M01S07668.283l840 ---|          ZJN    CUS1        IF DIT SLOT EMPTY
09603  M01S07669.283l840 ---|          LMD    T3
09604  M01S07670.283l840 ---|          ZJN    CUS1        IF ASSIGNED TO THIS MACHINE
09605  M01S07671.283l840 ---| CUS2     STM    DATB
09606  M01S07672.283l840 ---|          UJN    CUSX        RETURN
09607  M00S07673.msm     +++| ILK      SPACE  4,10
09608  M00S07674.msm     +++|**        ILK - INTERLOCK *PFM* FROM ACCESSING DEVICE DURING UNLOAD.
09609  M00S07675.msm     +++|*
09610  M00S07676.msm     +++|*         ENTRY  (EQ) = EQUIPMENT TO UNLOAD.
09611  M00S07677.msm     +++|*                (FN - FN+4) = EST OF EQUIPMENT TO UNLOAD.
09612  M00S07678.msm     +++|*
09613  M00S07679.msm     +++|*         EXIT   TO *RCL* IF UNABLE TO INTERLOCK.
09614  M00S07680.msm     +++|*
09615  M00S07681.msm     +++|*         USES   T5, T7, CM - CM+4, FN - FN+4.
09616  M00S07682.msm     +++|*
09617  M00S07683.msm     +++|*         CALLS  CUT, SUT.
09618  M00S07684.msm     +++|*
09619  M00S07685.msm     +++|*         MACROS SFA.
09620  M00S07686.msm     +++|
09621  M00S07687.msm     +++|
09622  M00S07688.msm     +++| ILK6     LDD    EQ          RESET DIRECT CELLS
09623  M00S07689.msm     +++|          STD    T5
09624  M00S07690.msm     +++|          SFA    EST
09625  M00S07691.msm     +++|          ADK    EQDE
09626  M00S07692.msm     +++|          CRD    FN
09627  M00S07693.msm     +++|          LDN    0           CLEAR EST ORDINAL OF PROCESSED ENTRY
09628  M00S07694.msm     +++|          STM    ILKA
09629  M00S07695.msm     +++|
09630  M00S07696.msm     +++| ILK      SUBR               ENTRY/EXIT
09631  M00S07697.msm     +++|          LDD    FN+4        READ PF DESCRIPTION
09632  M00S07698.msm     +++|          SHN    3
09633  M00S07699.msm     +++|          ADN    PFGL
09634  M00S07700.msm     +++|          CRD    FN
09635  M00S07701.msm     +++|          ADN    PUGL-PFGL
09636  M00S07702.msm     +++|          CRD    CM
09637  M00S07703.msm     +++|          LDD    CM+3        SET DEVICE MASK
09638  M00S07704.msm     +++|          LPN    17
09639  M00S07705.msm     +++|          SHN    14
09640  M00S07706.msm     +++|          LMD    CM+4
09641  M00S07707.msm     +++|          SHN    -10
09642  M00S07708.msm     +++|          STM    ILKB
09643  M00S07709.msm     +++|          LDC    **          SET EQUIPMENT FROM PREVIOUS CALL
09644  M00S07710.msm     +++| ILKA     EQU    *-1
09645  M00S07711.msm     +++|          NJN    ILK1        IF PREVIOUS EQUIPMENT
09646  M00S07712.msm     +++|          LDD    LO
09647  M00S07713.msm     +++|          SBN    1
09648  M00S07714.msm     +++| ILK1     STD    T5
09649  M00S07715.msm     +++|          AOD    T5
09650  M00S07716.msm     +++|
09651  M00S07717.msm     +++|*         SEARCH FOR MASTER DEVICES TO INTERLOCK AGAINST *PFM*.
09652  M00S07718.msm     +++|
09653  M00S07719.msm     +++| ILK2     SOD    T5
09654  M00S07720.msm     +++|          ZJN    ILK6        IF END OF EQUIPMENTS
09655  M00S07721.msm     +++|          SFA    EST
09656  M00S07722.msm     +++|          ADK    EQDE
09657  M00S07723.msm     +++|          CRD    CM
Line S00270 Modification History
M01 (Added by) ns2547
Seq #  *Modification Id* Act 
----------------------------+
09658  M01S00270.ns2547  +++|          LDD    CM          CHECK DEVICE CHARACTERISTICS
09659  M01S00271.ns2547  +++|          SHN    21-13
09660  M01S00272.ns2547  +++|          PJN    ILK2        IF NOT MASS STORAGE
09661  M01S00273.ns2547  +++|          SHN    13-6
09662  M01S00274.ns2547  +++|          MJN    ILK2        IF DEVICE UNAVAILABLE
09663  M00S07724.msm     +++|          LDD    T5
09664  M00S07725.msm     +++|          SBD    EQ
09665  M00S07726.msm     +++|          ZJN    ILK4        IF EQUIPMENT TO UNLOAD
Line S07727 Modification History
M01 (Removed by) ns2547
Seq #  *Modification Id* Act 
----------------------------+
09666  M01S07727.ns2547  ---|          LDD    CM
09667  M01S07728.ns2547  ---|          SHN    21-13
09668  M01S07729.ns2547  ---|          PJN    ILK2        IF NOT MASS STORAGE DEVICE
09669  M00S07730.msm     +++|          LDD    CM+4
09670  M00S07731.msm     +++|          SHN    3
09671  M00S07732.msm     +++|          ADN    PUGL
09672  M00S07733.msm     +++|          CRD    CM
09673  M00S07734.msm     +++|          SBN    PUGL-PFGL
09674  M00S07735.msm     +++|          CRD    T7
09675  M00S07736.msm     +++|          LDD    CM+4
09676  M00S07737.msm     +++|          LPC    **
09677  M00S07738.msm     +++| ILKB     EQU    *-1
09678  M00S07739.msm     +++|          ZJN    ILK2        IF NOT A MASTER FOR DEVICE TO UNLOAD
09679  M00S07740.msm     +++|          LDD    FN          CHECK FOR PROPER FAMILY
09680  M00S07741.msm     +++|          LMD    T7
09681  M00S07742.msm     +++| ILK3     NJN    ILK2        IF NO MATCH ON FAMILY
09682  M00S07743.msm     +++|          LDD    FN+1
09683  M00S07744.msm     +++|          LMD    T7+1
09684  M00S07745.msm     +++|          NJN    ILK2        IF NO MATCH ON FAMILY
09685  M00S07746.msm     +++|          LDD    FN+2
09686  M00S07747.msm     +++|          LMD    T7+2
09687  M00S07748.msm     +++|          NJN    ILK2        IF NO MATCH ON FAMILY
09688  M00S07749.msm     +++|          LDD    FN+3
09689  M00S07750.msm     +++|          LMD    T7+3
09690  M00S07751.msm     +++|          SCN    77
09691  M00S07752.msm     +++|          NJN    ILK3        IF NO MATCH ON FAMILY
09692  M00S07753.msm     +++| ILK4     RJM    SUT         SET UTILITY INTERLOCK FOR DEVICE
09693  M00S07754.msm     +++|          NJN    ILK5        IF INTERLOCK NOT SET
09694  M00S07755.msm     +++|
09695  M00S07756.msm     +++|*         INTERLOCK MAY BE IMMEDIATELY CLEARED SINCE IT IS ONLY
09696  M00S07757.msm     +++|*         SET TO INSURE *PFM* HAS NOTICED THE UNLOAD REQUEST FOR THE
09697  M00S07758.msm     +++|*         DEVICE.
09698  M00S07759.msm     +++|
09699  M00S07760.msm     +++|          RJM    CUT
09700  M00S07761.msm     +++|          LJM    ILK2        PROCESS NEXT EQUIPMENT
09701  M00S07762.msm     +++|
09702  M00S07763.msm     +++| ILK5     LDD    T5          SAVE EQUIPMENT FOR NEXT INTERLOCK TRY
09703  M00S07764.msm     +++|          STM    /CMS/RCLA+2
09704  M00S07765.msm     +++|          LDN    PIRR        SET WAITING FOR PF INTERLOCK CONDITION
09705  M00S07766.msm     +++|          LJM    /CMS/RCL    RECALL
09706  M00S07767.msm     +++| RGM      SPACE  4,15
09707  M00S07768.msm     +++|**        RGM - READ GLOBAL MST WORDS.
09708  M00S07769.msm     +++|*
09709  M00S07770.msm     +++|*         ENTRY (T5) = EST ORDINAL.
09710  M00S07771.msm     +++|*               (FN - FN+4) = EST ENTRY.
09711  M00S07772.msm     +++|*
09712  M00S07773.msm     +++|*         EXIT   (A) = DEVICE INTERLOCK STATUS.
09713  M00S07774.msm     +++|*                (CN - CN+4) = ACGL WORD OF MST.
09714  M00S07775.msm     +++|*                (CM - CM+4) = SDGL WORD OF MST.
09715  M00S07776.msm     +++|*
09716  M00S07777.msm     +++|*         USES   CM - CM+7, CN - CN+4.
09717  M00S07778.msm     +++|*
09718  M00S07779.msm     +++|*         CALLS  RIL.
09719  M00S07780.msm     +++|*
09720  M00S07781.msm     +++|*         MACROS ENDMS, MONITOR, UJMF.
09721  M00S07782.msm     +++|
09722  M00S07783.msm     +++|
09723  M00S07784.msm     +++| RGM0     LDN    0           READ INDEPENDENT SHARED DEVICE LABEL
09724  M00S07785.msm     +++|          RJM    RIL
09725  M00S07786.msm     +++|          MJN    RGM1        IF DEVICE NOT READY
09726  M00S07787.msm     +++|          ENDMS
09727  M00S07788.msm     +++|          LDM    N4SS+SDGL*5+4  CHECK FOR SOFTWARE RESERVE/INTERLOCK
09728  M00S07789.msm     +++|          LPN    77
09729  M00S07790.msm     +++|          NJN    RGMX        IF SOFTWARE RESERVE OR INTERLOCK
09730  M00S07791.msm     +++|          LDD    MA
09731  M00S07792.msm     +++|          CWM    N4SS,TR
09732  M00S07793.msm     +++|          LDD    MA
09733  M00S07794.msm     +++|          UJN    RGM4        READ MST WORDS
09734  M00S07795.msm     +++|
09735  M00S07796.msm     +++| RGM1     LDD    T6
09736  M00S07797.msm     +++|          ZJN    RGM3        IF NO LABEL TRACK FOUND
09737  M00S07798.msm     +++|          UJN    RGMX        RETURN
09738  M00S07799.msm     +++|
09739  M00S07800.msm     +++| RGM2     LDD    FN
09740  M00S07801.msm     +++|          SHN    21-4
09741  M00S07802.msm     +++|          MJN    RGM0        IF ISHARED DEVICE
09742  M00S07803.msm     +++| RGM3     LDD    FN+4        READ DEVICE ACTIVITY WORD
09743  M00S07804.msm     +++|          SHN    3
09744  M00S07805.msm     +++| RGM4     ADN    ACGL
09745  M00S07806.msm     +++|          CRD    CN
09746  M00S07807.msm     +++|          ADN    SDGL-ACGL   READ DEVICE INTERLOCK WORD
09747  M00S07808.msm     +++|          CRD    CM
09748  M00S07809.msm     +++|          LDD    CM+4        EXTRACT INTERLOCK STATUS
09749  M00S07810.msm     +++|          LPN    1
09750  M00S07811.msm     +++|
09751  M00S07812.msm     +++| RGM      SUBR               ENTRY/EXIT
09752  M00S07813.msm     +++|          UJMF   RGM2        NON MMF SYSTEM
09753  M00S07814.msm     +++|          LDD    FN+4        READ DEVICE INTERLOCK WORD
09754  M00S07815.msm     +++|          SHN    3
09755  M00S07816.msm     +++|          ADN    SDGL
09756  M00S07817.msm     +++|          CRD    CM+3
09757  M00S07818.msm     +++|          LDD    CM+3        CHECK EXTENDED MEMORY POINTER
09758  M00S07819.msm     +++|          ADD    CM+4
09759  M00S07820.msm     +++|          ZJN    RGM3        IF NOT SHARED DEVICE
09760  M00S07821.msm     +++|          LDD    MA          SET CM ADDRESS FOR TRANSFER
09761  M00S07822.msm     +++|          STD    CM+2
09762  M00S07823.msm     +++|          LDC    RECS*1000   SELECT READ SUBFUNCTION
09763  M00S07824.msm     +++|          RAD    CM+3
09764  M00S07825.msm     +++|          LDC    SDGL*100    SET WORD COUNT
09765  M00S07826.msm     +++|          STD    CM+1
09766  M00S07827.msm     +++|          MONITOR  ECSM      GET MST WORDS FROM ECS
09767  M00S07828.msm     +++|          LDD    MA
09768  M00S07829.msm     +++|          UJN    RGM4        READ MST WORDS
Line S07830 Modification History
M01 (Removed by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
09769  M01S07830.283l840 ---| RIL      SPACE  4,15
09770  M01S07831.283l840 ---|**        RIL - READ INDEPENDENT SHARED DEVICE LABEL.
09771  M01S07832.283l840 ---|*
09772  M01S07833.283l840 ---|*         ENTRY  (A) .LT. 0, IF WAIT ON NOT READY DESIRED.
09773  M01S07834.283l840 ---|*                (T5) = EST ORDINAL.
09774  M01S07835.283l840 ---|*                (FN - FN+4) = EST ENTRY.
09775  M01S07836.283l840 ---|*
09776  M01S07837.283l840 ---|*         EXIT   (A) = READ STATUS.
09777  M01S07838.283l840 ---|*                (T7) = 0 IF LABEL READ.
09778  M01S07839.283l840 ---|*                (BFMS) = LABEL SECTOR.
09779  M01S07840.283l840 ---|*
09780  M01S07841.283l840 ---|*         CALLS  CLT, RDS.
09781  M01S07842.283l840 ---|*
09782  M01S07843.283l840 ---|*         MACROS ENDMS, SETMS.
09783  M01S07844.283l840 ---|
09784  M01S07845.283l840 ---|
09785  M01S07846.283l840 ---| RIL2     SETMS  IO,(DE,DF,NR)
09786  M01S07847.283l840 ---|          RJM    CLT
09787  M01S07848.283l840 ---|          NJN    RIL3        IF LABEL TRACK KNOWN
09788  M01S07849.283l840 ---|          LDD    CM+7
09789  M01S07850.283l840 ---|          ZJN    RIL1        IF NO PREVIOUS LABEL TRACK
09790  M01S07851.283l840 ---|          STD    T6
09791  M01S07852.283l840 ---| RIL3     LDN    0           SET LABEL SECTOR
09792  M01S07853.283l840 ---|          STD    T7
09793  M01S07854.283l840 ---|          LDC    BFMS        READ LABEL SECTOR
09794  M01S07855.283l840 ---|          RJM    RDS
09795  M01S07856.283l840 ---|          MJN    RIL1        IF READ ERROR
09796  M01S07857.283l840 ---|
09797  M01S07858.283l840 ---| RIL      SUBR               ENTRY/EXIT
09798  M01S07859.283l840 ---|          PJN    RIL2        IF RETURN ON NOT READY
09799  M01S07860.283l840 ---|          SETMS  IO,(DE,DF)
09800  M01S07861.283l840 ---|          RJM    CLT
09801  M01S07862.283l840 ---|          NJN    RIL3        IF LABEL TRACK FOUND
09802  M01S07863.283l840 ---| RIL1     ENDMS
09803  M01S07864.283l840 ---|          LCN    1
09804  M01S07865.283l840 ---|          UJN    RILX        RETURN
09805  M00S07866.msm     +++| UIS      SPACE  4,10
09806  M00S07867.msm     +++|**        UIS - UPDATE INDEPENDENT SHARED DEVICE TABLES.
09807  M00S07868.msm     +++|*
Line S07869 Modification History
M01 (Removed by) ns2552
Seq #  *Modification Id* Act 
----------------------------+
09808  M01S07869.ns2552  ---|*         ENTRY  (FN - FN+4) = EST ENTRY.
09809  M01S07870.ns2552  ---|*                (T5) = EST ORDINAL.
Line S00087 Modification History
M01 (Added by) ns2552
Seq #  *Modification Id* Act 
----------------------------+
09810  M01S00087.ns2552  +++|*         ENTRY  (T5) = EST ORDINAL.
09811  M01S00088.ns2552  +++|*                (FN - FN+4) = *EQDE* WORD OF EST ENTRY.
09812  M00S07871.msm     +++|*
09813  M00S07872.msm     +++|*         USES   T1.
09814  M00S07873.msm     +++|*
Line S07874 Modification History
M01 (Removed by) ns2552
Seq #  *Modification Id* Act 
----------------------------+
09815  M01S07874.ns2552  ---|*         CALLS  RIL, SMI, WDS.
Line S00089 Modification History
M01 (Added by) ns2552
Seq #  *Modification Id* Act 
----------------------------+
09816  M01S00089.ns2552  +++|*         CALLS  CDC, RIL, SMI, WDS.
09817  M00S07875.msm     +++|*
09818  M00S07876.msm     +++|*         MACROS ENDMS.
09819  M00S07877.msm     +++|
09820  M00S07878.msm     +++|
09821  M00S07879.msm     +++| UIS      SUBR
09822  M00S07880.msm     +++|          LDD    FN
09823  M00S07881.msm     +++|          SHN    21-4
09824  M00S07882.msm     +++|          PJN    UISX        IF NOT INDEPENDENT SHARED DEVICE
09825  M00S07883.msm     +++|          RJM    RIL         READ LABEL
09826  M00S07884.msm     +++|          MJN    UISX        IF LABEL NOT READ
09827  M00S07885.msm     +++|          RJM    SMI
09828  M00S07886.msm     +++|          STD    T1          SET DIT INDEX
09829  M00S07887.msm     +++|          SHN    2
09830  M00S07888.msm     +++|          RAD    T1
09831  M00S07889.msm     +++|          LDM    DISS-5+3,T1
09832  M00S07890.msm     +++|          SCN    2
09833  M00S07891.msm     +++|          LMN    2           SET UNLOAD STATUS
09834  M00S07892.msm     +++|          STM    DISS-5+3,T1
Line S00090 Modification History
M01 (Added by) ns2552
Seq #  *Modification Id* Act 
----------------------------+
09835  M01S00090.ns2552  +++|          RJM    CDC         COMPUTE LABEL CHECKSUM
09836  M01S00091.ns2552  +++|          STM    CKSS
09837  M00S07893.msm     +++|          LDC    BFMS+WLSF   REWRITE LABEL
09838  M00S07894.msm     +++|          RJM    WDS
09839  M00S07895.msm     +++|          ENDMS
09840  M00S07896.msm     +++|          UJN    UISX        RETURN
09841  M00S07897.msm     +++| UMS      SPACE  4,15
09842  M00S07898.msm     +++|**        UMS - UPDATE MASS STORAGE TABLES.
09843  M00S07899.msm     +++|*
09844  M00S07900.msm     +++|*         ENTRY  (T5) = EST ORDINAL.
09845  M00S07901.msm     +++|*                (FN - FN+4) = EST ENTRY.
09846  M00S07902.msm     +++|*
09847  M00S07903.msm     +++|*         EXIT   (A) = 0 IF UPDATE COMPLETE / UNNECESSARY.
09848  M00S07904.msm     +++|*
09849  M00S07905.msm     +++|*         USES   CM - CM+4.
09850  M00S07906.msm     +++|*
09851  M00S07907.msm     +++|*         CALLS  RGM.
09852  M00S07908.msm     +++|*
09853  M00S07909.msm     +++|*         MACROS MONITOR, UJMF.
09854  M00S07910.msm     +++|
09855  M00S07911.msm     +++|
09856  M00S07912.msm     +++| UMS      SUBR               ENTRY/EXIT
09857  M00S07913.msm     +++|          RJM    RGM         READ GLOBAL MST WORDS
09858  M00S07914.msm     +++|          NJN    UMSX        IF DEVICE INTERLOCKED
09859  M00S07915.msm     +++|          LDD    FN
09860  M00S07916.msm     +++|          LPC    1S9
09861  M00S07917.msm     +++|          ZJN    UMSX        IF NOT SHARED EQUIPMENT
09862  M00S07918.msm     +++|          LDD    T5          REQUEST MST/TRT UPDATE
09863  M00S07919.msm     +++|          STD    CM+1
09864  M00S07920.msm     +++|          LDN    UTRS
09865  M00S07921.msm     +++|          STD    CM+3
09866  M00S07922.msm     +++|          MONITOR  STBM      ISSUE REQUEST
09867  M00S07923.msm     +++|*         LDN    0
09868  M00S07924.msm     +++|          UJN    UMSX        RETURN
09869  M00S07925.msm     +++|          SPACE  4,10
09870  M00S07926.msm     +++|**        COMMON DECKS.
09871  M00S07927.msm     +++|
09872  M00S07928.msm     +++|
09873  M00S07929.msm     +++|*CALL     COMPCUT
09874  M00S07930.msm     +++|*CALL     COMPSUT
09875  M00S07931.msm     +++|          SPACE  4,10
09876  M00S07932.msm     +++|          QUAL   CMS
09877  M00S07933.msm     +++| CAD      EQU    /RDD/CAD
09878  M00S07934.msm     +++| CID      EQU    /RDD/CID
Line S07935 Modification History
M01 (Removed by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
09879  M01S07935.283l840 ---| CUD      EQU    /RDD/CUD
09880  M00S07936.msm     +++|          QUAL   *
09881  M00S07937.msm     +++|          USE    LITERALS
09882  M00S07938.msm     +++|
09883  M00S07939.msm     +++|
Line S07940 Modification History
M01 (Removed by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
09884  M01S07940.272l774 ---|          ERRPL  *-BFMS      OVERLAY OVERFLOW INTO BUFFER
Line S00069 Modification History
M01 (Added by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
09885  M01S00069.272l774 +++|          ERRNG  BFMS-*      OVERLAY OVERFLOW INTO BUFFER
09886  M00S07941.msm     +++| POV      SPACE  4,10
09887  M00S07942.msm     +++|**        POV - MODIFY INSTRUCTIONS AS REQUIRED FOR CM/MMF RECOVERY.
09888  M00S07943.msm     +++|
09889  M00S07944.msm     +++|
09890  M00S07945.msm     +++| POV      LDD    IR+2        SET PREVIOUS EQUIPMENT OF INTERLOCK
09891  M00S07946.msm     +++|          STM    ILKA
09892  M00S07947.msm     +++|          LDM    MMFP
Line S07948 Modification History
M01 (Removed by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
09893  M01S07948.283l840 ---|          ZJN    POV5        IF DO NOT PRESET FOR MMF
Line S00943 Modification History
M01 (Added by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
09894  M01S00943.283l840 +++|          ZJP    POV5        IF DO NOT PRESET FOR MMF
09895  M00S07949.msm     +++|          LDC    MMFL
09896  M00S07950.msm     +++|          CRD    CM
09897  M00S07951.msm     +++|          LDD    CM+4        SET MACHINE INDEX
Line S00944 Modification History
M01 (Added by) 283l840
M02 (Removed by) ns2780
Seq #  *Modification Id* Act 
----------------------------+
09898  M02S00944.ns2780  ---|          RAM    CDBA
09899  M02S00945.ns2780  ---|          STM    EBPC
Line S00038 Modification History
M01 (Added by) ns2780
Seq #  *Modification Id* Act 
----------------------------+
09900  M01S00038.ns2780  +++|          RAM    EBPC
Line S00946 Modification History
M01 (Added by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
09901  M01S00946.283l840 +++|          LPN    77
09902  M00S07952.msm     +++|          SHN    1
09903  M00S07953.msm     +++|          RAM    CDDA
Line S07954 Modification History
M01 (Removed by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
09904  M01S07954.283l840 ---|          LDC    L"QUAL"     SET LIST ADDRESS
Line S00947 Modification History
M01 (Added by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
09905  M01S00947.283l840 +++|          LDD    CM+1
09906  M01S00948.283l840 +++|          SHN    21-11
09907  M01S00949.283l840 +++|          MJN    POV0        IF SHARED BUFFERED DEVICES ARE CONFIGURED
09908  M01S00950.283l840 +++|          ISTORE LDTA,(UJN LDT0)  DISABLE *BAET* READ
09909  M01S00951.283l840 +++| POV0     LDC    L"QUAL"     SET LIST ADDRESS
09910  M00S07955.msm     +++|          STD    T1
09911  M00S07956.msm     +++|          UJN    POV2        MODIFY INSTRUCTIONS
09912  M00S07957.msm     +++|
09913  M00S07958.msm     +++| POV1     STD    T0
09914  M00S07959.msm     +++|          LDN    PSNI        REPLACE INSTRUCTION WITH *PSN*
09915  M00S07960.msm     +++|          STI    T0
09916  M00S07961.msm     +++|          AOD    T1          ADVANCE LIST ADDRESS
09917  M00S07962.msm     +++| POV2     LDI    T1
09918  M00S07963.msm     +++|          NJN    POV1        LOOP TO END OF TABLE
09919  M00S07964.msm     +++|          LDC    T"QUAL"     SET LIST ADDRESS
09920  M00S07965.msm     +++|          STD    T1
09921  M00S07966.msm     +++|          UJN    POV4        ENTER LOOP
09922  M00S07967.msm     +++|
09923  M00S07968.msm     +++| POV3     STD    T0
09924  M00S07969.msm     +++|          LDD    CM+3        ADD MACHINE MASK TO INSTRUCTION
09925  M00S07970.msm     +++|          LMI    T0
09926  M00S07971.msm     +++|          STI    T0
09927  M00S07972.msm     +++|          AOD    T1
09928  M00S07973.msm     +++| POV4     LDI    T1
09929  M00S07974.msm     +++|          NJN    POV3        IF MORE INSTRUCTIONS
Line S07975 Modification History
M01 (Removed by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
09930  M01S07975.283l840 ---| POV5     LJM    RDDX        RETURN
Line S00952 Modification History
M01 (Added by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
09931  M01S00952.283l840 +++| POV5     LDD    IR
09932  M01S00953.283l840 +++|          LMC    2RCM
09933  M01S00954.283l840 +++|          ZJN    POV6        IF *CMS* CALL
09934  M01S00955.283l840 +++|          LDD    RS          CHECK RECOVERY STATUS
09935  M01S00956.283l840 +++|          LPN    FLMK
09936  M01S00957.283l840 +++|          LMN    FLCM
09937  M01S00958.283l840 +++|          NJN    POV7        IF NOT LEVEL 3 RECOVERY
09938  M01S00959.283l840 +++|          ISTORE EBPB,(LDN CBRS)  CLEAR ONLY READ PERMISSIONS IN *BAT*
09939  M01S00960.283l840 +++|          UJN    POV7
09940  M01S00961.283l840 +++|
09941  M01S00962.283l840 +++| POV6     ISTORE EBPA,(UJN EBP3)
09942  M01S00963.283l840 +++| POV7     LJM    RDDX        RETURN
09943  M00S07976.msm     +++|
09944  M00S07977.msm     +++|*         LIST OF INSTRUCTIONS TO BE PRESET.
09945  M00S07978.msm     +++|
09946  M00S07979.msm     +++| L"QUAL"  BSS    0
09947  M00S07980.msm     +++| L"QUAL"  HERE
Line S00964 Modification History
M01 (Added by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
09948  M01S00964.283l840 +++|          ERRZR  L"QUAL"-*   TABLE EMPTY - REMOVE PRESET CODE
09949  M00S07981.msm     +++|          CON    0           TERMINATE TABLE
09950  M00S07982.msm     +++|
09951  M00S07983.msm     +++| T"QUAL"  BSS    0
09952  M00S07984.msm     +++| T"QUAL"  HERE
Line S00965 Modification History
M01 (Added by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
09953  M01S00965.283l840 +++|          ERRZR  T"QUAL"-*   TABLE EMPTY - REMOVE PRESET CODE
09954  M00S07985.msm     +++|          CON    0           TERMINATE LIST
09955  M00S07986.msm     +++|
09956  M00S07987.msm     +++|          QUAL
09957  M00S07988.msm     +++|
Line S07989 Modification History
M01 (Removed by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
09958  M01S07989.283l840 ---| CTD      EQU    /RDD/CTD
09959  M01S07990.283l840 ---| RMR      EQU    /RDD/RMR
Line S00966 Modification History
M01 (Added by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
09960  M01S00966.283l840 +++| CSD      EQU    /RDD/CSD
09961  M01S00967.283l840 +++| CSDB     EQU    /RDD/CSDB
09962  M01S00968.283l840 +++| CSDC     EQU    /RDD/CSDC
09963  M01S00969.283l840 +++| CUS      EQU    /RDD/CUS
09964  M01S00970.283l840 +++| EBP      EQU    /RDD/EBP
09965  M01S00971.283l840 +++| LDT      EQU    /RDD/LDT
09966  M01S00972.283l840 +++| RDE      EQU    /RDD/RDE
09967  M01S00973.283l840 +++| UDT      EQU    /RDD/UDT
09968  M01S00974.283l840 +++| VFN      EQU    /RDD/VFN
09969  M00S07991.msm     +++| VLP      EQU    /RDD/VLP
Line S00975 Modification History
M01 (Added by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
09970  M01S00975.283l840 +++| WDE      EQU    /RDD/WDE
09971  M01S00976.283l840 +++|
09972  M01S00977.283l840 +++| ORDE     EQU    /RDD/ORDE
09973  M00S07992.msm     +++| ORDG     EQU    /RDD/ORDG
Line S00978 Modification History
M01 (Added by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
09974  M01S00978.283l840 +++| ORDH     EQU    /RDD/ORDH
09975  M01S00979.283l840 +++| ORDJ     EQU    /RDD/ORDJ
09976  M00S07993.msm     +++|          SPACE  4,10
Line S07994 Modification History
M01 (Removed by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
09977  M01S07994.272l774 ---|          OVERFLOW  OSOV     CHECK FOR OVERFLOW
Line S00070 Modification History
M01 (Added by) 272l774
M02 (Removed by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
09978  M02S00070.283l840 ---|          OVERFLOW  OSOV,EPFW  CHECK FOR OVERFLOW
Line S00980 Modification History
M01 (Added by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
09979  M01S00980.283l840 +++|          OVERFLOW  ORDD,EPFW  CHECK FOR OVERFLOW
09980  M01S00981.283l840 +++|          TTL    MSM/4DE - *CMS* UNAVAILABLE DEVICE ROUTINES.
09981  M01S00982.283l840 +++|          TITLE
09982  M01S00983.283l840 +++|          IDENT  4DE,/RDE/RDEX
09983  M01S00984.283l840 +++|*COMMENT  MSM - *CMS* UNAVAILABLE DEVICE ROUTINES.
09984  M01S00985.283l840 +++|          COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1994.
09985  M01S00986.283l840 +++|
09986  M01S00987.283l840 +++|
09987  M01S00988.283l840 +++|***       *4DE* CONTAINS CODE FOR *CMS* UNAVAILABLE DEVICE PROCESSING.
09988  M01S00989.283l840 +++|
09989  M01S00990.283l840 +++|
09990  M01S00991.283l840 +++|          QUAL   RDE
09991  M01S00992.283l840 +++|          ORG    ORDE
09992  M01S00993.283l840 +++|
09993  M01S00994.283l840 +++| RDE      SUBR               ENTRY/EXIT
09994  M01S00995.283l840 +++|          UJN    RDEX        RETURN
09995  M01S00996.283l840 +++|          TITLE  CHECK UNAVAILABLE DEVICE.
09996  M01S00997.283l840 +++| CUD      SPACE  4,15
09997  M01S00998.283l840 +++|**        CUD - CHECK UNAVAILABLE DEVICES.
09998  M01S00999.283l840 +++|*
09999  M01S01000.283l840 +++|*         ENTRY  (EQ) = (T5) = EST ORDINAL.
10000  M01S01001.283l840 +++|*                (FN - FN+4) = EST ENTRY.
10001  M01S01002.283l840 +++|*
10002  M01S01003.283l840 +++|*         EXIT   (RC) = NUMBER OF EQUIPMENTS TO RECOVER.
10003  M01S01004.283l840 +++|*                (RE) SET WITH EQUIPMENTS TO RECOVER.
10004  M01S01005.283l840 +++|*                (A) .LT. 0 IF RECOVERY INFORMATION NOT TO
10005  M01S01006.283l840 +++|*                BE REWRITTEN TO CM UPON RETURN TO *MRL*.
10006  M01S01007.283l840 +++|*
10007  M01S01008.283l840 +++|*         USES   FN, RC, CM+1 - CM+7, FS - FS+4.
10008  M01S01009.283l840 +++|*
10009  M01S01010.283l840 +++|*         CALLS  CDA, CDI, CGU, SES, VLP.
10010  M01S01011.283l840 +++|*
10011  M01S01012.283l840 +++|*         MACROS MONITOR, SFA.
10012  M01S01013.283l840 +++|
10013  M01S01014.283l840 +++|
10014  M01S01015.283l840 +++| CUD6     RJM    CGU         CHECK GLOBAL UNLOAD
10015  M01S01016.283l840 +++|
10016  M01S01017.283l840 +++| CUD      SUBR               ENTRY/EXIT
10017  M01S01018.283l840 +++|          RJM    CDA
10018  M01S01019.283l840 +++|          MJN    CUDX        IF RECOVERY INHIBITED
10019  M01S01020.283l840 +++|          NJN    CUD6        IF DEVICE UNLOADED
10020  M01S01021.283l840 +++|          LDD    FN
10021  M01S01022.283l840 +++|          SHN    21-10
10022  M01S01023.283l840 +++|          MJN    CUD1        IF REMOVABLE DEVICE
10023  M01S01024.283l840 +++|          SHN    11+21-11
10024  M01S01025.283l840 +++|          PJN    CUD1        IF NON-SHARED DEVICE
10025  M01S01026.283l840 +++|          LDD    FN+4        GET EXTENDED MEMORY ADDRESS OF MST/TRT
10026  M01S01027.283l840 +++|          SHN    3
10027  M01S01028.283l840 +++|          ADN    SDGL
10028  M01S01029.283l840 +++|          CRD    CM+3
10029  M01S01030.283l840 +++|          ADN    ALGL-SDGL   SET CM ADDRESS FOR MST UPDATE
10030  M01S01031.283l840 +++|          STD    CM+2
10031  M01S01032.283l840 +++|          SHN    -14
10032  M01S01033.283l840 +++|          LMC    GLGL*100-ALGL*100
10033  M01S01034.283l840 +++|          STD    CM+1
10034  M01S01035.283l840 +++|          LDD    CM+3
10035  M01S01036.283l840 +++|          ADD    CM+4
10036  M01S01037.283l840 +++|          ZJN    CUD1        IF DEVICE NOT PREVIOUSLY RECOVERED
10037  M01S01038.283l840 +++|          LDD    CM+7
10038  M01S01039.283l840 +++|          ADD    CM+6
10039  M01S01040.283l840 +++|          ADD    CM+5
10040  M01S01041.283l840 +++|          NJN    CUD4        IF DEVICE ACCESSED PREVIOUSLY
10041  M01S01042.283l840 +++| CUD1     RJM    VLP         VERIFY LABEL PARAMETERS
10042  M01S01043.283l840 +++|          MJN    CUD2        IF NOT FIRST EQUIPMENT IN CHAIN
10043  M01S01044.283l840 +++|          NJN    CUD3        IF VERIFY ERRORS
10044  M01S01045.283l840 +++|          LDC    200         SET EQUIPMENT RECOVERY
10045  M01S01046.283l840 +++|          RAD    RE
10046  M01S01047.283l840 +++|          AOD    RC          ADVANCE RECOVERY COUNT
10047  M01S01048.283l840 +++| CUD2     LJM    CUDX        RETURN
10048  M01S01049.283l840 +++|
10049  M01S01050.283l840 +++| CUD3     RJM    SES         SET ERROR STATUS
10050  M01S01051.283l840 +++|          RJM    CDI         CLEAR ISD INTERLOCKS
10051  M01S01052.283l840 +++|          LCN    0
10052  M01S01053.283l840 +++|          UJN    CUD2        RETURN
10053  M01S01054.283l840 +++|
10054  M01S01055.283l840 +++| CUD4     LDD    FN
10055  M01S01056.283l840 +++|          SHN    21-4
10056  M01S01057.283l840 +++|          MJN    CUD5        IF INDEPENDENT SHARED DEVICE
10057  M01S01058.283l840 +++|          LDN    ALGL
10058  M01S01059.283l840 +++|          RAD    CM+4
10059  M01S01060.283l840 +++|          LDC    RECS*1000   SET MONITOR SUBFUNCTION
10060  M01S01061.283l840 +++|          RAD    CM+3
10061  M01S01062.283l840 +++|          MONITOR  ECSM      UPDATE GLOBAL MST FROM ECS
10062  M01S01063.283l840 +++| CUD5     LDN    0           CLEAR UNAVAILABLE STATUS
10063  M01S01064.283l840 +++|          SBD    HN
10064  M01S01065.283l840 +++|          RAD    FN
10065  M01S01066.283l840 +++|          SFA    EST,EQ      REWRITE EST ENTRY
10066  M01S01067.283l840 +++|          ADK    EQDE
10067  M01S01068.283l840 +++|          CWD    FN
10068  M01S01069.283l840 +++|          UJN    CUD2        RETURN
10069  M01S01070.283l840 +++|          TITLE  SUBROUTINES.
10070  M01S01071.283l840 +++| CGU      SPACE  4,10
10071  M01S01072.283l840 +++|**        CGU - CHECK GLOBAL UNLOAD.
10072  M01S01073.283l840 +++|*
10073  M01S01074.283l840 +++|*         ENTRY  (FN - FN+4) = EST ENTRY.
10074  M01S01075.283l840 +++|*
10075  M01S01076.283l840 +++|*         EXIT   (CN - CN+4) = *ACGL* WORD OF MST.
10076  M01S01077.283l840 +++|*
10077  M01S01078.283l840 +++|*         USES   CM - CM+7.
10078  M01S01079.283l840 +++|*
10079  M01S01080.283l840 +++|*         CALLS  CIU.
10080  M01S01081.283l840 +++|*
10081  M01S01082.283l840 +++|*         MACROS MONITOR.
10082  M01S01083.283l840 +++|
10083  M01S01084.283l840 +++|
10084  M01S01085.283l840 +++| CGU1     RJM    CIU         CHECK ISD GLOBALLY UNLOADED
10085  M01S01086.283l840 +++|
10086  M01S01087.283l840 +++| CGU      SUBR               ENTRY/EXIT
10087  M01S01088.283l840 +++|          LDD    FN+4
10088  M01S01089.283l840 +++|          SHN    3
10089  M01S01090.283l840 +++|          ADN    MDGL        READ DRIVER WORD FOR DAT INDEX
10090  M01S01091.283l840 +++|          CRD    CM
10091  M01S01092.283l840 +++|          SBN    MDGL-SDGL   GET EXTENDED MEMORY POINTER
10092  M01S01093.283l840 +++|          CRD    CM+3
10093  M01S01094.283l840 +++|          SBN    SDGL-ACGL
10094  M01S01095.283l840 +++|          CRD    CN
10095  M01S01096.283l840 +++|          LDD    FN
10096  M01S01097.283l840 +++|          LPN    20
10097  M01S01098.283l840 +++|          NJN    CGU1        IF ISD
10098  M01S01099.283l840 +++|          LDD    CM
10099  M01S01100.283l840 +++|          LPC    377
10100  M01S01101.283l840 +++|          ZJN    CGUX        IF LINK TO DAT SLOT CLEARED
10101  M01S01102.283l840 +++|          LDD    CM+3
10102  M01S01103.283l840 +++|          ADD    CM+4
10103  M01S01104.283l840 +++|          ZJN    CGUX        IF NON-SHARED DEVICE
10104  M01S01105.283l840 +++|          LDN    ACGL
10105  M01S01106.283l840 +++|          RAD    CM+4
10106  M01S01107.283l840 +++|          SHN    -14
10107  M01S01108.283l840 +++|          LMC    RECS*1000   UPDATE ACTIVITY WORD FROM ECS
10108  M01S01109.283l840 +++|          RAD    CM+3
10109  M01S01110.283l840 +++|          LDN    PFGL-ACGL   SET WORD COUNT FOR ECS TRANSFER
10110  M01S01111.283l840 +++|          SHN    6
10111  M01S01112.283l840 +++|          STD    CM+1
10112  M01S01113.283l840 +++|          LDD    MA          READ MST DATA TO MESSAGE BUFFER
10113  M01S01114.283l840 +++|          STD    CM+2
10114  M01S01115.283l840 +++|          MONITOR ECSM
10115  M01S01116.283l840 +++|          LDD    MA
10116  M01S01117.283l840 +++|          CRD    CM+3
10117  M01S01118.283l840 +++|          LDD    CM+3        SAVE DEVICE UP/DOWN STATUS
10118  M01S01119.283l840 +++|          STD    CN
10119  M01S01120.283l840 +++|          LDD    CM+7        SET GLOBAL UNLOAD STATUS
10120  M01S01121.283l840 +++|          LPN    MGUNL
10121  M01S01122.283l840 +++|          STD    CN+4
10122  M01S01123.283l840 +++|          LDD    MA
10123  M01S01124.283l840 +++|          ADN    PFGL-ACGL
10124  M01S01125.283l840 +++|          CRD    CM
10125  M01S01126.283l840 +++|          LDD    FN+4
10126  M01S01127.283l840 +++|          SHN    3
10127  M01S01128.283l840 +++|          ADN    ACGL        STORE UNLOAD STATUS IN CMR
10128  M01S01129.283l840 +++|          CWD    CN
10129  M01S01130.283l840 +++|          ADN    PFGL-ACGL   STORE DEVICE DESCRIPTION
10130  M01S01131.283l840 +++|          CWD    CM
10131  M01S01132.283l840 +++|          LJM    CGUX        RETURN
10132  M01S01133.283l840 +++| CIU      SPACE  4,15
10133  M01S01134.283l840 +++|**        CIU - CHECK INDEPENDENT SHARED DEVICE UNLOADED.
10134  M01S01135.283l840 +++|*
10135  M01S01136.283l840 +++|*         ENTRY  (FN - FN+4) = EST ENTRY.
10136  M01S01137.283l840 +++|*                (CN - CN+4) = *ACGL* WORD OF MST.
10137  M01S01138.283l840 +++|*
10138  M01S01139.283l840 +++|*         USES   CM - CM+6.
10139  M01S01140.283l840 +++|*
10140  M01S01141.283l840 +++|*         CALLS  CUS, VFN.
10141  M01S01142.283l840 +++|
10142  M01S01143.283l840 +++|
10143  M01S01144.283l840 +++| CIU      SUBR               ENTRY/EXIT
10144  M01S01145.283l840 +++|          LDD    FN
10145  M01S01146.283l840 +++|          SHN    21-10
10146  M01S01147.283l840 +++|          PJN    CIUX        IF NOT REMOVABLE
10147  M01S01148.283l840 +++|          LDD    FN+1
10148  M01S01149.283l840 +++|          SHN    0-11        CHECK CHANNEL STATUS
10149  M01S01150.283l840 +++|          LMN    4
10150  M01S01151.283l840 +++|          ZJN    CIU1        IF PRIMARY CHANNEL ALIVE AND WELL
10151  M01S01152.283l840 +++|          LDD    FN+2
10152  M01S01153.283l840 +++|          SHN    0-11        TEST SECONDARY CHANNEL
10153  M01S01154.283l840 +++|          LMN    4
10154  M01S01155.283l840 +++|          NJN    CIUX        IF CHANNEL UNAVAILABLE
10155  M01S01156.283l840 +++|*CIU1     LDN    0
10156  M01S01157.283l840 +++| CIU1     RJM    CUS
10157  M01S01158.283l840 +++|          MJN    CIU4        IF DEVICE INACCESSIBLE
10158  M01S01159.283l840 +++|          ZJN    CIU2        IF NO ONE ACCESSING DEVICE
10159  M01S01160.283l840 +++|          LDN    MGUNL
10160  M01S01161.283l840 +++| CIU2     LMN    MGUNL       SET/CLEAR GLOBAL UNLOAD
10161  M01S01162.283l840 +++|          STD    CN+4
10162  M01S01163.283l840 +++|          NJN    CIU4        IF SETTING UNLOAD
10163  M01S01164.283l840 +++| CIU3     LDD    MA
10164  M01S01165.283l840 +++|          CWM    N4SS+5*PFGL,ON
10165  M01S01166.283l840 +++|          SBN    1           VERIFY FAMILY/PACK NAME
10166  M01S01167.283l840 +++|          CRD    CM+2
10167  M01S01168.283l840 +++|          RJM    VFN
10168  M01S01169.283l840 +++|          NJN    CIU5        IF VALID NAME IN LABEL
10169  M01S01170.283l840 +++| CIU4     LDN    ZERL
10170  M01S01171.283l840 +++|          CRD    CM+2
10171  M01S01172.283l840 +++| CIU5     LDD    FN+4        STORE/CLEAR DEVICE NAME
10172  M01S01173.283l840 +++|          SHN    3
10173  M01S01174.283l840 +++|          ADN    PFGL
10174  M01S01175.283l840 +++|          CWD    CM+2
10175  M01S01176.283l840 +++|          SBN    PFGL-ACGL   STORE GLOBAL UNLOAD STATUS
10176  M01S01177.283l840 +++|          CWD    CN
10177  M01S01178.283l840 +++|          LJM    CIUX        RETURN
10178  M01S01179.283l840 +++|          SPACE  4,10
10179  M01S01180.283l840 +++|          USE    LITERALS
10180  M01S01181.283l840 +++|          SPACE  4,10
10181  M01S01182.283l840 +++|          ERRNG  BFMS-*      OVERLAY OVERFLOW INTO BUFFER
10182  M01S01183.283l840 +++|          SPACE  4,10
10183  M01S01184.283l840 +++|          QUAL   CMS
10184  M01S01185.283l840 +++| CUD      EQU    /RDE/CUD
10185  M01S01186.283l840 +++|          QUAL
10186  M01S01187.283l840 +++|          SPACE  4,10
10187  M01S01188.283l840 +++|          OVERFLOW  ORDE,EPFW  CHECK FOR OVERFLOW
10188  M00S07995.msm     +++|          TTL    MSM/4DF - UPDATE MMF TABLES IN EXTENDED MEMORY.
10189  M00S07996.msm     +++|          TITLE
10190  M00S07997.msm     +++|          IDENT  4DF,EDTX
10191  M00S07998.msm     +++|*COMMENT  MSM - UPDATE MMF TABLES IN EXTENDED MEMORY.
Line S07999 Modification History
M01 (Removed by) 281l803
Seq #  *Modification Id* Act 
----------------------------+
10192  M01S07999.281l803 ---|          COMMENT COPYRIGHT CONTROL DATA CORP. 1975.
Line S00008 Modification History
M01 (Added by) 281l803
Seq #  *Modification Id* Act 
----------------------------+
10193  M01S00008.281l803 +++|          COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
10194  M00S08000.msm     +++|          SPACE  4
10195  M00S08001.msm     +++|***              *4DF* UPDATES THE DAT POINTER WORD IN ECS
10196  M00S08002.msm     +++|*         AND CONTAINS ROUTINES FOR PROCESSING OF MACHINE
10197  M00S08003.msm     +++|*         RECOVERY TABLES (MRTS).
10198  M00S08004.msm     +++|          SPACE  4
10199  M00S08005.msm     +++|***       ENTRY CONDITIONS.
10200  M00S08006.msm     +++|*
10201  M00S08007.msm     +++|*         DEVICE ACCESS TABLE IMAGE IN CM.
10202  M00S08008.msm     +++|*         DATI INTERLOCK SET.
10203  M00S08009.msm     +++|          TITLE  UPDATE DAT POINTER WORD.
10204  M00S08010.msm     +++| EDT      SPACE  4,10
10205  M00S08011.msm     +++|**        EDT - EDIT DAT POINTER WORD.
10206  M00S08012.msm     +++|*
10207  M00S08013.msm     +++|*         CALLS  CEA.
10208  M00S08014.msm     +++|
10209  M00S08015.msm     +++|
Line S08016 Modification History
M01 (Removed by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
10210  M01S08016.283l840 ---|          ORG    OSOV
Line S01189 Modification History
M01 (Added by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
10211  M01S01189.283l840 +++|          ORG    ORDF
10212  M00S08017.msm     +++|
10213  M00S08018.msm     +++| EDT      SUBR               ENTRY/EXIT
10214  M00S08019.msm     +++|          LDK    MMFL
10215  M00S08020.msm     +++|          CRD    CM
10216  M00S08021.msm     +++|          LDD    RS          CHECK RECOVERY LEVEL
10217  M00S08022.msm     +++|          LPN    FLMK
10218  M00S08023.msm     +++|          LMN    FLCM
10219  M00S08024.msm     +++|          ZJN    EDTX        IF CM RECOVERY
10220  M00S08025.msm     +++|          LDD    CM+4
10221  M00S08026.msm     +++|          ZJN    EDTX        IF NOT MMF ENVIRONMENT
Line S08027 Modification History
M01 (Removed by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
10222  M01S08027.283l840 ---|          LDN    ZERL        CLEAR *DAET* ASSEMBLY
Line S01190 Modification History
M01 (Added by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
10223  M01S01190.283l840 +++|          LDM    ECLT        SET LABEL TRACK FOR ECS
10224  M01S01191.283l840 +++|          STD    T6
10225  M01S01192.283l840 +++|          LDN    ETLT        SET ENVIRONMENT TABLE SECTOR
10226  M01S01193.283l840 +++|          STD    T7
10227  M01S01194.283l840 +++|
10228  M01S01195.283l840 +++|*         UPDATE *BAET* IN ENVIRONMENT TABLE SECTOR, IF REQUIRED.
10229  M01S01196.283l840 +++|
10230  M01S01197.283l840 +++|          LDD    CM+1
10231  M01S01198.283l840 +++|          SHN    21-11
10232  M01S01199.283l840 +++|          PJN    EDT1        IF NO SHARED BUFFERED DEVICES CONFIGURED
10233  M01S01200.283l840 +++|          RJM    CEA         GET ADDRESS OF ENVIRONMENT TABLE SECTOR
10234  M01S01201.283l840 +++|          LDN    BAET        ADJUST ADDRESS TO BAT POINTER
10235  M01S01202.283l840 +++|          RAD    CM+4
10236  M01S01203.283l840 +++|          SHN    -14
10237  M01S01204.283l840 +++|          LMC    WECS*1000   SUBFUNCTION = WRITE XM
10238  M01S01205.283l840 +++|          RAD    CM+3
10239  M01S01206.283l840 +++|          LDN    0
10240  M01S01207.283l840 +++|          STD    CM+1        SET WORD COUNT - 1 FOR TRANSFER
10241  M01S01208.283l840 +++|          LDD    MA          SET BUFFER ADDRESS IN MONITOR REQUEST
10242  M01S01209.283l840 +++|          STD    CM+2
10243  M01S01210.283l840 +++|          CWM    BAEI,ON     STORE *BAET* IMAGE IN CM BUFFER
10244  M01S01211.283l840 +++|          MONITOR ECSM
10245  M01S01212.283l840 +++|
10246  M01S01213.283l840 +++|*         UPDATE *DAET* IN ENVIRONMENT TABLE SECTOR.
10247  M01S01214.283l840 +++|
10248  M01S01215.283l840 +++| EDT1     LDN    ZERL        CLEAR *DAET* ASSEMBLY
10249  M00S08028.msm     +++|          CRD    CN
10250  M00S08029.msm     +++|          CRD    CM
Line S01216 Modification History
M01 (Added by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
10251  M01S01216.283l840 +++|*         LDN    0
10252  M01S01217.283l840 +++|*         STD    CM+1        SET WORD COUNT - 1 FOR TRANSFER
10253  M01S01218.283l840 +++|          RJM    CEA         GET ADDRESS OF ENVIRONMENT TABLE SECTOR
10254  M01S01219.283l840 +++|          LDN    DAET        ADJUST ADDRESS TO DAT POINTER
10255  M01S01220.283l840 +++|          RAD    CM+4
10256  M01S01221.283l840 +++|          SHN    -14
10257  M01S01222.283l840 +++|          LMC    WECS*1000   SUBFUNCTION = WRITE XM
10258  M01S01223.283l840 +++|          RAD    CM+3
10259  M00S08030.msm     +++|          LDD    QT          SET CURRENT DAT TRACK
10260  M00S08031.msm     +++|          STD    CN
10261  M00S08032.msm     +++|          LDD    QI          SET DAT INDEX
10262  M00S08033.msm     +++|          STD    CN+4
Line S08034 Modification History
M01 (Removed by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
10263  M01S08034.283l840 ---|          LDM    ECLT        SET LABEL TRACK FOR ECS
10264  M01S08035.283l840 ---|          STD    T6
10265  M01S08036.283l840 ---|          LDN    ETLT        SET ENVIRONMENT TABLE SECTOR
10266  M01S08037.283l840 ---|          STD    T7
10267  M01S08038.283l840 ---|          RJM    CEA
10268  M01S08039.283l840 ---|          LDN    DAET        ADJUST ADDRESS TO DAT POINTER
10269  M01S08040.283l840 ---|          RAD    CM+4
10270  M01S08041.283l840 ---|          SHN    -14
10271  M01S08042.283l840 ---|          LMC    WECS*1000   SUBFUNCTION = WRITE XM
10272  M01S08043.283l840 ---|*         LDN    0
10273  M01S08044.283l840 ---|*         STD    CM+1        SET WORD COUNT - 1 FOR TRANSFER
10274  M01S08045.283l840 ---|          RAD    CM+3
10275  M00S08046.msm     +++|          LDD    MA          STORE *DAET* IMAGE IN CM BUFFER
10276  M00S08047.msm     +++|          CWD    CN
10277  M00S08048.msm     +++|          STD    CM+2        SET BUFFER ADDRESS IN MONITOR REQUEST
10278  M00S08049.msm     +++|          MONITOR ECSM
10279  M00S08050.msm     +++|          LJM    EDTX        RETURN
10280  M00S08051.msm     +++| UER      SPACE  4
10281  M00S08052.msm     +++|**        UER - UPDATE EXTENDED MEMORY RESIDENT.
10282  M00S08053.msm     +++|*
10283  M00S08054.msm     +++|*         ENTRY  (EQ) = EST ORDINAL.
10284  M00S08055.msm     +++|*                (FN - FN+4) = EST ENTRY.
Proceed to Part 6
cdc/nos2.source/opl.opl871/deck/msm.005.txt ยท Last modified: by 127.0.0.1