Deck MSM Part 008

30 Modifications

Listing Sections

Source

Seq #  *Modification Id* Act 
----------------------------+
Line S07555 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
09489  M02S07555.283l840 ---|          CRD    CN
Line S07556 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
09490  M02S07556.283l840 ---|          LDD    FN
Line S07557 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
09491  M02S07557.283l840 ---|          LPN    20
Line S07558 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
09492  M02S07558.283l840 ---|          NJN    CGU1        IF ISD
Line S07559 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
09493  M02S07559.283l840 ---|          LDD    CM
Line S07560 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
09494  M02S07560.283l840 ---|          LPC    377
Line S07561 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
09495  M02S07561.283l840 ---|          ZJN    CGUX        IF LINK TO DAT SLOT CLEARED
Line S07562 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
09496  M02S07562.283l840 ---|          LDD    CM+3
Line S07563 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
09497  M02S07563.283l840 ---|          ADD    CM+4
Line S07564 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
09498  M02S07564.283l840 ---|          ZJN    CGUX        IF NON-SHARED DEVICE
Line S07565 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
09499  M02S07565.283l840 ---|          LDN    ACGL
Line S07566 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
09500  M02S07566.283l840 ---|          RAD    CM+4
Line S07567 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
09501  M02S07567.283l840 ---|          SHN    -14
Line S07568 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
09502  M02S07568.283l840 ---|          LMC    RECS*1000   UPDATE ACTIVITY WORD FROM ECS
Line S07569 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
09503  M02S07569.283l840 ---|          RAD    CM+3
Line S07570 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
09504  M02S07570.283l840 ---|          LDN    PFGL-ACGL   SET WORD COUNT FOR ECS TRANSFER
Line S07571 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
09505  M02S07571.283l840 ---|          SHN    6
Line S07572 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
09506  M02S07572.283l840 ---|          STD    CM+1
Line S07573 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
09507  M02S07573.283l840 ---|          LDD    MA          READ MST DATA TO MESSAGE BUFFER
Line S07574 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
09508  M02S07574.283l840 ---|          STD    CM+2
Line S07575 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
09509  M02S07575.283l840 ---|          MONITOR ECSM
Line S07576 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
09510  M02S07576.283l840 ---|          LDD    MA
Line S07577 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
09511  M02S07577.283l840 ---|          CRD    CM+3
Line S07578 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
09512  M02S07578.283l840 ---|          LDD    CM+3        SAVE DEVICE UP/DOWN STATUS
Line S07579 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
09513  M02S07579.283l840 ---|          STD    CN
Line S07580 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
09514  M02S07580.283l840 ---|          LDD    CM+7        SET GLOBAL UNLOAD STATUS
Line S07581 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
09515  M02S07581.283l840 ---|          LPN    MGUNL
Line S07582 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
09516  M02S07582.283l840 ---|          STD    CN+4
Line S07583 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
09517  M02S07583.283l840 ---|          LDD    MA
Line S07584 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
09518  M02S07584.283l840 ---|          ADN    PFGL-ACGL
Line S07585 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
09519  M02S07585.283l840 ---|          CRD    CM
Line S07586 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
09520  M02S07586.283l840 ---|          LDD    FN+4
Line S07587 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
09521  M02S07587.283l840 ---|          SHN    3
Line S07588 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
09522  M02S07588.283l840 ---|          ADN    ACGL        STORE UNLOAD STATUS IN CMR
Line S07589 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
09523  M02S07589.283l840 ---|          CWD    CN
Line S07590 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
09524  M02S07590.283l840 ---|          ADN    PFGL-ACGL   STORE DEVICE DESCRIPTION
Line S07591 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
09525  M02S07591.283l840 ---|          CWD    CM
Line S07592 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
09526  M02S07592.283l840 ---|          LJM    CGUX        RETURN
Line S07593 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
09527  M02S07593.283l840 ---| CIU      SPACE  4,15
Line S07594 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
09528  M02S07594.283l840 ---|**        CIU - CHECK INDEPENDENT SHARED DEVICE UNLOADED.
Line S07595 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
09529  M02S07595.283l840 ---|*
Line S07596 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
09530  M02S07596.283l840 ---|*         ENTRY  (FN - FN+4) = EST ENTRY.
Line S07597 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
09531  M02S07597.283l840 ---|*                (CN - CN+4) = *ACGL* WORD OF MST.
Line S07598 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
09532  M02S07598.283l840 ---|*
Line S07599 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
09533  M02S07599.283l840 ---|*         USES   CM - CM+6.
Line S07600 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
09534  M02S07600.283l840 ---|*
Line S07601 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
09535  M02S07601.283l840 ---|*         CALLS  CUS, VFN.
Line S07602 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
09536  M02S07602.283l840 ---|
Line S07603 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
09537  M02S07603.283l840 ---|
Line S07604 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
09538  M02S07604.283l840 ---| CIU      SUBR               ENTRY/EXIT
Line S07605 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
09539  M02S07605.283l840 ---|          LDD    FN
Line S07606 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
09540  M02S07606.283l840 ---|          SHN    21-10
Line S07607 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
09541  M02S07607.283l840 ---|          PJN    CIUX        IF NOT REMOVABLE
Line S07608 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
09542  M02S07608.283l840 ---|          LDD    FN+1
Line S07609 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
09543  M02S07609.283l840 ---|          SHN    0-11        CHECK CHANNEL STATUS
Line S07610 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
09544  M02S07610.283l840 ---|          LMN    4
Line S07611 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
09545  M02S07611.283l840 ---|          ZJN    CIU1        IF PRIMARY CHANNEL ALIVE AND WELL
Line S07612 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
09546  M02S07612.283l840 ---|          LDD    FN+2
Line S07613 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
09547  M02S07613.283l840 ---|          SHN    0-11        TEST SECONDARY CHANNEL
Line S07614 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
09548  M02S07614.283l840 ---|          LMN    4
Line S07615 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
09549  M02S07615.283l840 ---|          NJN    CIUX        IF CHANNEL UNAVAILABLE
Line S07616 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
09550  M02S07616.283l840 ---|*CIU1     LDN    0
Line S07617 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
09551  M02S07617.283l840 ---| CIU1     RJM    CUS
Line S07618 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
09552  M02S07618.283l840 ---|          MJN    CIU4        IF DEVICE INACCESSIBLE
Line S07619 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
09553  M02S07619.283l840 ---|          ZJN    CIU2        IF NO ONE ACCESSING DEVICE
Line S07620 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
09554  M02S07620.283l840 ---|          LDN    MGUNL
Line S07621 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
09555  M02S07621.283l840 ---| CIU2     LMN    MGUNL       SET/CLEAR GLOBAL UNLOAD
Line S07622 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
09556  M02S07622.283l840 ---|          STD    CN+4
Line S07623 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
09557  M02S07623.283l840 ---|          NJN    CIU4        IF SETTING UNLOAD
Line S07624 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
09558  M02S07624.283l840 ---| CIU3     LDD    MA
Line S07625 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
09559  M02S07625.283l840 ---|          CWM    N4SS+5*PFGL,ON
Line S07626 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
09560  M02S07626.283l840 ---|          SBN    1           VERIFY FAMILY/PACK NAME
Line S07627 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
09561  M02S07627.283l840 ---|          CRD    CM+2
Line S07628 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
09562  M02S07628.283l840 ---|          RJM    VFN
Line S07629 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
09563  M02S07629.283l840 ---|          NJN    CIU5        IF VALID NAME IN LABEL
Line S07630 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
09564  M02S07630.283l840 ---| CIU4     LDN    ZERL
Line S07631 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
09565  M02S07631.283l840 ---|          CRD    CM+2
Line S07632 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
09566  M02S07632.283l840 ---| CIU5     LDD    FN+4        STORE/CLEAR DEVICE NAME
Line S07633 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
09567  M02S07633.283l840 ---|          SHN    3
Line S07634 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
09568  M02S07634.283l840 ---|          ADN    PFGL
Line S07635 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
09569  M02S07635.283l840 ---|          CWD    CM+2
Line S07636 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
09570  M02S07636.283l840 ---|          SBN    PFGL-ACGL   STORE GLOBAL UNLOAD STATUS
Line S07637 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
09571  M02S07637.283l840 ---|          CWD    CN
Line S07638 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
09572  M02S07638.283l840 ---|          LJM    CIUX        RETURN
Line S07639 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
09573  M02S07639.283l840 ---| CUS      SPACE  4,15
Line S07640 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
09574  M02S07640.283l840 ---|**        CUS - CHECK UNLOAD STATUS.
Line S07641 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
09575  M02S07641.283l840 ---|*
Line S07642 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
09576  M02S07642.283l840 ---|*         ENTRY  (A) = 0 IF CHECKING DEVICE ACTIVITY.
Line S07643 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
09577  M02S07643.283l840 ---|*                    = MID IF PROCESSING UNLOAD.
Line S07644 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
09578  M02S07644.283l840 ---|*
Line S07645 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
09579  M02S07645.283l840 ---|*         EXIT   (A) .LT. 0 IF DEVICE INACCESSIBLE.
Line S07646 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
09580  M02S07646.283l840 ---|*                    = (DATB) = 0 IF DEVICE INACTIVE.
Line S07647 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
09581  M02S07647.283l840 ---|*                             .GT. 0 IF DEVICE ACTIVE.
Line S07648 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
09582  M02S07648.283l840 ---|*
Line S07649 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
09583  M02S07649.283l840 ---|*         USES   T3, T7.
Line S07650 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
09584  M02S07650.283l840 ---|*
Line S07651 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
09585  M02S07651.283l840 ---|*         CALLS  RIL.
Line S07652 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
09586  M02S07652.283l840 ---|*
Line S07653 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
09587  M02S07653.283l840 ---|*         MACROS ENDMS.
Line S07654 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
09588  M02S07654.283l840 ---|
Line S07655 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
09589  M02S07655.283l840 ---|
Line S07656 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
09590  M02S07656.283l840 ---| CUS      SUBR               ENTRY/EXIT
Line S07657 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
09591  M02S07657.283l840 ---|          STD    T3
Line S07658 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
09592  M02S07658.283l840 ---|          RJM    RIL
Line S07659 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
09593  M02S07659.283l840 ---|          MJN    CUSX        IF DEVICE NOT ACCESSIBLE
Line S07660 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
09594  M02S07660.283l840 ---|          ENDMS
Line S07661 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
09595  M02S07661.283l840 ---|*         LDN    0
Line S07662 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
09596  M02S07662.283l840 ---|*         STD    T7
Line S07663 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
09597  M02S07663.283l840 ---| CUS1     LDN    5           ADVANCE DIT INDEX
Line S07664 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
09598  M02S07664.283l840 ---|          RAD    T7
Line S07665 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
09599  M02S07665.283l840 ---|          LMC    5*MISD+5
Line S07666 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
09600  M02S07666.283l840 ---|          ZJN    CUS2        IF END OF DIT
Line S07667 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
09601  M02S07667.283l840 ---|          LDM    DISS-5+4,T7
Line S07668 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
09602  M02S07668.283l840 ---|          ZJN    CUS1        IF DIT SLOT EMPTY
Line S07669 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
09603  M02S07669.283l840 ---|          LMD    T3
Line S07670 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
09604  M02S07670.283l840 ---|          ZJN    CUS1        IF ASSIGNED TO THIS MACHINE
Line S07671 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
09605  M02S07671.283l840 ---| CUS2     STM    DATB
Line S07672 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
09606  M02S07672.283l840 ---|          UJN    CUSX        RETURN
09607  M01S07673.msm     +++| ILK      SPACE  4,10
09608  M01S07674.msm     +++|**        ILK - INTERLOCK *PFM* FROM ACCESSING DEVICE DURING UNLOAD.
09609  M01S07675.msm     +++|*
09610  M01S07676.msm     +++|*         ENTRY  (EQ) = EQUIPMENT TO UNLOAD.
09611  M01S07677.msm     +++|*                (FN - FN+4) = EST OF EQUIPMENT TO UNLOAD.
09612  M01S07678.msm     +++|*
09613  M01S07679.msm     +++|*         EXIT   TO *RCL* IF UNABLE TO INTERLOCK.
09614  M01S07680.msm     +++|*
09615  M01S07681.msm     +++|*         USES   T5, T7, CM - CM+4, FN - FN+4.
09616  M01S07682.msm     +++|*
09617  M01S07683.msm     +++|*         CALLS  CUT, SUT.
09618  M01S07684.msm     +++|*
09619  M01S07685.msm     +++|*         MACROS SFA.
09620  M01S07686.msm     +++|
09621  M01S07687.msm     +++|
09622  M01S07688.msm     +++| ILK6     LDD    EQ          RESET DIRECT CELLS
09623  M01S07689.msm     +++|          STD    T5
09624  M01S07690.msm     +++|          SFA    EST
09625  M01S07691.msm     +++|          ADK    EQDE
09626  M01S07692.msm     +++|          CRD    FN
09627  M01S07693.msm     +++|          LDN    0           CLEAR EST ORDINAL OF PROCESSED ENTRY
09628  M01S07694.msm     +++|          STM    ILKA
09629  M01S07695.msm     +++|
09630  M01S07696.msm     +++| ILK      SUBR               ENTRY/EXIT
09631  M01S07697.msm     +++|          LDD    FN+4        READ PF DESCRIPTION
09632  M01S07698.msm     +++|          SHN    3
09633  M01S07699.msm     +++|          ADN    PFGL
09634  M01S07700.msm     +++|          CRD    FN
09635  M01S07701.msm     +++|          ADN    PUGL-PFGL
09636  M01S07702.msm     +++|          CRD    CM
09637  M01S07703.msm     +++|          LDD    CM+3        SET DEVICE MASK
09638  M01S07704.msm     +++|          LPN    17
09639  M01S07705.msm     +++|          SHN    14
09640  M01S07706.msm     +++|          LMD    CM+4
09641  M01S07707.msm     +++|          SHN    -10
09642  M01S07708.msm     +++|          STM    ILKB
09643  M01S07709.msm     +++|          LDC    **          SET EQUIPMENT FROM PREVIOUS CALL
09644  M01S07710.msm     +++| ILKA     EQU    *-1
09645  M01S07711.msm     +++|          NJN    ILK1        IF PREVIOUS EQUIPMENT
09646  M01S07712.msm     +++|          LDD    LO
09647  M01S07713.msm     +++|          SBN    1
09648  M01S07714.msm     +++| ILK1     STD    T5
09649  M01S07715.msm     +++|          AOD    T5
09650  M01S07716.msm     +++|
09651  M01S07717.msm     +++|*         SEARCH FOR MASTER DEVICES TO INTERLOCK AGAINST *PFM*.
09652  M01S07718.msm     +++|
09653  M01S07719.msm     +++| ILK2     SOD    T5
09654  M01S07720.msm     +++|          ZJN    ILK6        IF END OF EQUIPMENTS
09655  M01S07721.msm     +++|          SFA    EST
09656  M01S07722.msm     +++|          ADK    EQDE
09657  M01S07723.msm     +++|          CRD    CM
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  M01S07724.msm     +++|          LDD    T5
09664  M01S07725.msm     +++|          SBD    EQ
09665  M01S07726.msm     +++|          ZJN    ILK4        IF EQUIPMENT TO UNLOAD
Line S07727 Modification History
M01 (Added by) msm
M02 (Updated by) ns2547
Seq #  *Modification Id* Act 
----------------------------+
09666  M02S07727.ns2547  ---|          LDD    CM
Line S07728 Modification History
M01 (Added by) msm
M02 (Updated by) ns2547
Seq #  *Modification Id* Act 
----------------------------+
09667  M02S07728.ns2547  ---|          SHN    21-13
Line S07729 Modification History
M01 (Added by) msm
M02 (Updated by) ns2547
Seq #  *Modification Id* Act 
----------------------------+
09668  M02S07729.ns2547  ---|          PJN    ILK2        IF NOT MASS STORAGE DEVICE
09669  M01S07730.msm     +++|          LDD    CM+4
09670  M01S07731.msm     +++|          SHN    3
09671  M01S07732.msm     +++|          ADN    PUGL
09672  M01S07733.msm     +++|          CRD    CM
09673  M01S07734.msm     +++|          SBN    PUGL-PFGL
09674  M01S07735.msm     +++|          CRD    T7
09675  M01S07736.msm     +++|          LDD    CM+4
09676  M01S07737.msm     +++|          LPC    **
09677  M01S07738.msm     +++| ILKB     EQU    *-1
09678  M01S07739.msm     +++|          ZJN    ILK2        IF NOT A MASTER FOR DEVICE TO UNLOAD
09679  M01S07740.msm     +++|          LDD    FN          CHECK FOR PROPER FAMILY
09680  M01S07741.msm     +++|          LMD    T7
09681  M01S07742.msm     +++| ILK3     NJN    ILK2        IF NO MATCH ON FAMILY
09682  M01S07743.msm     +++|          LDD    FN+1
09683  M01S07744.msm     +++|          LMD    T7+1
09684  M01S07745.msm     +++|          NJN    ILK2        IF NO MATCH ON FAMILY
09685  M01S07746.msm     +++|          LDD    FN+2
09686  M01S07747.msm     +++|          LMD    T7+2
09687  M01S07748.msm     +++|          NJN    ILK2        IF NO MATCH ON FAMILY
09688  M01S07749.msm     +++|          LDD    FN+3
09689  M01S07750.msm     +++|          LMD    T7+3
09690  M01S07751.msm     +++|          SCN    77
09691  M01S07752.msm     +++|          NJN    ILK3        IF NO MATCH ON FAMILY
09692  M01S07753.msm     +++| ILK4     RJM    SUT         SET UTILITY INTERLOCK FOR DEVICE
09693  M01S07754.msm     +++|          NJN    ILK5        IF INTERLOCK NOT SET
09694  M01S07755.msm     +++|
09695  M01S07756.msm     +++|*         INTERLOCK MAY BE IMMEDIATELY CLEARED SINCE IT IS ONLY
09696  M01S07757.msm     +++|*         SET TO INSURE *PFM* HAS NOTICED THE UNLOAD REQUEST FOR THE
09697  M01S07758.msm     +++|*         DEVICE.
09698  M01S07759.msm     +++|
09699  M01S07760.msm     +++|          RJM    CUT
09700  M01S07761.msm     +++|          LJM    ILK2        PROCESS NEXT EQUIPMENT
09701  M01S07762.msm     +++|
09702  M01S07763.msm     +++| ILK5     LDD    T5          SAVE EQUIPMENT FOR NEXT INTERLOCK TRY
09703  M01S07764.msm     +++|          STM    /CMS/RCLA+2
09704  M01S07765.msm     +++|          LDN    PIRR        SET WAITING FOR PF INTERLOCK CONDITION
09705  M01S07766.msm     +++|          LJM    /CMS/RCL    RECALL
09706  M01S07767.msm     +++| RGM      SPACE  4,15
09707  M01S07768.msm     +++|**        RGM - READ GLOBAL MST WORDS.
09708  M01S07769.msm     +++|*
09709  M01S07770.msm     +++|*         ENTRY (T5) = EST ORDINAL.
09710  M01S07771.msm     +++|*               (FN - FN+4) = EST ENTRY.
09711  M01S07772.msm     +++|*
09712  M01S07773.msm     +++|*         EXIT   (A) = DEVICE INTERLOCK STATUS.
09713  M01S07774.msm     +++|*                (CN - CN+4) = ACGL WORD OF MST.
09714  M01S07775.msm     +++|*                (CM - CM+4) = SDGL WORD OF MST.
09715  M01S07776.msm     +++|*
09716  M01S07777.msm     +++|*         USES   CM - CM+7, CN - CN+4.
09717  M01S07778.msm     +++|*
09718  M01S07779.msm     +++|*         CALLS  RIL.
09719  M01S07780.msm     +++|*
09720  M01S07781.msm     +++|*         MACROS ENDMS, MONITOR, UJMF.
09721  M01S07782.msm     +++|
09722  M01S07783.msm     +++|
09723  M01S07784.msm     +++| RGM0     LDN    0           READ INDEPENDENT SHARED DEVICE LABEL
09724  M01S07785.msm     +++|          RJM    RIL
09725  M01S07786.msm     +++|          MJN    RGM1        IF DEVICE NOT READY
09726  M01S07787.msm     +++|          ENDMS
09727  M01S07788.msm     +++|          LDM    N4SS+SDGL*5+4  CHECK FOR SOFTWARE RESERVE/INTERLOCK
09728  M01S07789.msm     +++|          LPN    77
09729  M01S07790.msm     +++|          NJN    RGMX        IF SOFTWARE RESERVE OR INTERLOCK
09730  M01S07791.msm     +++|          LDD    MA
09731  M01S07792.msm     +++|          CWM    N4SS,TR
09732  M01S07793.msm     +++|          LDD    MA
09733  M01S07794.msm     +++|          UJN    RGM4        READ MST WORDS
09734  M01S07795.msm     +++|
09735  M01S07796.msm     +++| RGM1     LDD    T6
09736  M01S07797.msm     +++|          ZJN    RGM3        IF NO LABEL TRACK FOUND
09737  M01S07798.msm     +++|          UJN    RGMX        RETURN
09738  M01S07799.msm     +++|
09739  M01S07800.msm     +++| RGM2     LDD    FN
09740  M01S07801.msm     +++|          SHN    21-4
09741  M01S07802.msm     +++|          MJN    RGM0        IF ISHARED DEVICE
09742  M01S07803.msm     +++| RGM3     LDD    FN+4        READ DEVICE ACTIVITY WORD
09743  M01S07804.msm     +++|          SHN    3
09744  M01S07805.msm     +++| RGM4     ADN    ACGL
09745  M01S07806.msm     +++|          CRD    CN
09746  M01S07807.msm     +++|          ADN    SDGL-ACGL   READ DEVICE INTERLOCK WORD
09747  M01S07808.msm     +++|          CRD    CM
09748  M01S07809.msm     +++|          LDD    CM+4        EXTRACT INTERLOCK STATUS
09749  M01S07810.msm     +++|          LPN    1
09750  M01S07811.msm     +++|
09751  M01S07812.msm     +++| RGM      SUBR               ENTRY/EXIT
09752  M01S07813.msm     +++|          UJMF   RGM2        NON MMF SYSTEM
09753  M01S07814.msm     +++|          LDD    FN+4        READ DEVICE INTERLOCK WORD
09754  M01S07815.msm     +++|          SHN    3
09755  M01S07816.msm     +++|          ADN    SDGL
09756  M01S07817.msm     +++|          CRD    CM+3
09757  M01S07818.msm     +++|          LDD    CM+3        CHECK EXTENDED MEMORY POINTER
09758  M01S07819.msm     +++|          ADD    CM+4
09759  M01S07820.msm     +++|          ZJN    RGM3        IF NOT SHARED DEVICE
09760  M01S07821.msm     +++|          LDD    MA          SET CM ADDRESS FOR TRANSFER
09761  M01S07822.msm     +++|          STD    CM+2
09762  M01S07823.msm     +++|          LDC    RECS*1000   SELECT READ SUBFUNCTION
09763  M01S07824.msm     +++|          RAD    CM+3
09764  M01S07825.msm     +++|          LDC    SDGL*100    SET WORD COUNT
09765  M01S07826.msm     +++|          STD    CM+1
09766  M01S07827.msm     +++|          MONITOR  ECSM      GET MST WORDS FROM ECS
09767  M01S07828.msm     +++|          LDD    MA
09768  M01S07829.msm     +++|          UJN    RGM4        READ MST WORDS
Line S07830 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
09769  M02S07830.283l840 ---| RIL      SPACE  4,15
Line S07831 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
09770  M02S07831.283l840 ---|**        RIL - READ INDEPENDENT SHARED DEVICE LABEL.
Line S07832 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
09771  M02S07832.283l840 ---|*
Line S07833 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
09772  M02S07833.283l840 ---|*         ENTRY  (A) .LT. 0, IF WAIT ON NOT READY DESIRED.
Line S07834 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
09773  M02S07834.283l840 ---|*                (T5) = EST ORDINAL.
Line S07835 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
09774  M02S07835.283l840 ---|*                (FN - FN+4) = EST ENTRY.
Line S07836 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
09775  M02S07836.283l840 ---|*
Line S07837 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
09776  M02S07837.283l840 ---|*         EXIT   (A) = READ STATUS.
Line S07838 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
09777  M02S07838.283l840 ---|*                (T7) = 0 IF LABEL READ.
Line S07839 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
09778  M02S07839.283l840 ---|*                (BFMS) = LABEL SECTOR.
Line S07840 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
09779  M02S07840.283l840 ---|*
Line S07841 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
09780  M02S07841.283l840 ---|*         CALLS  CLT, RDS.
Line S07842 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
09781  M02S07842.283l840 ---|*
Line S07843 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
09782  M02S07843.283l840 ---|*         MACROS ENDMS, SETMS.
Line S07844 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
09783  M02S07844.283l840 ---|
Line S07845 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
09784  M02S07845.283l840 ---|
Line S07846 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
09785  M02S07846.283l840 ---| RIL2     SETMS  IO,(DE,DF,NR)
Line S07847 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
09786  M02S07847.283l840 ---|          RJM    CLT
Line S07848 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
09787  M02S07848.283l840 ---|          NJN    RIL3        IF LABEL TRACK KNOWN
Line S07849 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
09788  M02S07849.283l840 ---|          LDD    CM+7
Line S07850 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
09789  M02S07850.283l840 ---|          ZJN    RIL1        IF NO PREVIOUS LABEL TRACK
Line S07851 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
09790  M02S07851.283l840 ---|          STD    T6
Line S07852 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
09791  M02S07852.283l840 ---| RIL3     LDN    0           SET LABEL SECTOR
Line S07853 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
09792  M02S07853.283l840 ---|          STD    T7
Line S07854 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
09793  M02S07854.283l840 ---|          LDC    BFMS        READ LABEL SECTOR
Line S07855 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
09794  M02S07855.283l840 ---|          RJM    RDS
Line S07856 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
09795  M02S07856.283l840 ---|          MJN    RIL1        IF READ ERROR
Line S07857 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
09796  M02S07857.283l840 ---|
Line S07858 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
09797  M02S07858.283l840 ---| RIL      SUBR               ENTRY/EXIT
Line S07859 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
09798  M02S07859.283l840 ---|          PJN    RIL2        IF RETURN ON NOT READY
Line S07860 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
09799  M02S07860.283l840 ---|          SETMS  IO,(DE,DF)
Line S07861 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
09800  M02S07861.283l840 ---|          RJM    CLT
Line S07862 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
09801  M02S07862.283l840 ---|          NJN    RIL3        IF LABEL TRACK FOUND
Line S07863 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
09802  M02S07863.283l840 ---| RIL1     ENDMS
Line S07864 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
09803  M02S07864.283l840 ---|          LCN    1
Line S07865 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
09804  M02S07865.283l840 ---|          UJN    RILX        RETURN
09805  M01S07866.msm     +++| UIS      SPACE  4,10
09806  M01S07867.msm     +++|**        UIS - UPDATE INDEPENDENT SHARED DEVICE TABLES.
09807  M01S07868.msm     +++|*
Line S07869 Modification History
M01 (Added by) msm
M02 (Updated by) ns2552
Seq #  *Modification Id* Act 
----------------------------+
09808  M02S07869.ns2552  ---|*         ENTRY  (FN - FN+4) = EST ENTRY.
Line S07870 Modification History
M01 (Added by) msm
M02 (Updated by) ns2552
Seq #  *Modification Id* Act 
----------------------------+
09809  M02S07870.ns2552  ---|*                (T5) = EST ORDINAL.
09810  M01S00087.ns2552  +++|*         ENTRY  (T5) = EST ORDINAL.
09811  M01S00088.ns2552  +++|*                (FN - FN+4) = *EQDE* WORD OF EST ENTRY.
09812  M01S07871.msm     +++|*
09813  M01S07872.msm     +++|*         USES   T1.
09814  M01S07873.msm     +++|*
Line S07874 Modification History
M01 (Added by) msm
M02 (Updated by) ns2552
Seq #  *Modification Id* Act 
----------------------------+
09815  M02S07874.ns2552  ---|*         CALLS  RIL, SMI, WDS.
09816  M01S00089.ns2552  +++|*         CALLS  CDC, RIL, SMI, WDS.
09817  M01S07875.msm     +++|*
09818  M01S07876.msm     +++|*         MACROS ENDMS.
09819  M01S07877.msm     +++|
09820  M01S07878.msm     +++|
09821  M01S07879.msm     +++| UIS      SUBR
09822  M01S07880.msm     +++|          LDD    FN
09823  M01S07881.msm     +++|          SHN    21-4
09824  M01S07882.msm     +++|          PJN    UISX        IF NOT INDEPENDENT SHARED DEVICE
09825  M01S07883.msm     +++|          RJM    RIL         READ LABEL
09826  M01S07884.msm     +++|          MJN    UISX        IF LABEL NOT READ
09827  M01S07885.msm     +++|          RJM    SMI
09828  M01S07886.msm     +++|          STD    T1          SET DIT INDEX
09829  M01S07887.msm     +++|          SHN    2
09830  M01S07888.msm     +++|          RAD    T1
09831  M01S07889.msm     +++|          LDM    DISS-5+3,T1
09832  M01S07890.msm     +++|          SCN    2
09833  M01S07891.msm     +++|          LMN    2           SET UNLOAD STATUS
09834  M01S07892.msm     +++|          STM    DISS-5+3,T1
09835  M01S00090.ns2552  +++|          RJM    CDC         COMPUTE LABEL CHECKSUM
09836  M01S00091.ns2552  +++|          STM    CKSS
09837  M01S07893.msm     +++|          LDC    BFMS+WLSF   REWRITE LABEL
09838  M01S07894.msm     +++|          RJM    WDS
09839  M01S07895.msm     +++|          ENDMS
09840  M01S07896.msm     +++|          UJN    UISX        RETURN
09841  M01S07897.msm     +++| UMS      SPACE  4,15
09842  M01S07898.msm     +++|**        UMS - UPDATE MASS STORAGE TABLES.
09843  M01S07899.msm     +++|*
09844  M01S07900.msm     +++|*         ENTRY  (T5) = EST ORDINAL.
09845  M01S07901.msm     +++|*                (FN - FN+4) = EST ENTRY.
09846  M01S07902.msm     +++|*
09847  M01S07903.msm     +++|*         EXIT   (A) = 0 IF UPDATE COMPLETE / UNNECESSARY.
09848  M01S07904.msm     +++|*
09849  M01S07905.msm     +++|*         USES   CM - CM+4.
09850  M01S07906.msm     +++|*
09851  M01S07907.msm     +++|*         CALLS  RGM.
09852  M01S07908.msm     +++|*
09853  M01S07909.msm     +++|*         MACROS MONITOR, UJMF.
09854  M01S07910.msm     +++|
09855  M01S07911.msm     +++|
09856  M01S07912.msm     +++| UMS      SUBR               ENTRY/EXIT
09857  M01S07913.msm     +++|          RJM    RGM         READ GLOBAL MST WORDS
09858  M01S07914.msm     +++|          NJN    UMSX        IF DEVICE INTERLOCKED
09859  M01S07915.msm     +++|          LDD    FN
09860  M01S07916.msm     +++|          LPC    1S9
09861  M01S07917.msm     +++|          ZJN    UMSX        IF NOT SHARED EQUIPMENT
09862  M01S07918.msm     +++|          LDD    T5          REQUEST MST/TRT UPDATE
09863  M01S07919.msm     +++|          STD    CM+1
09864  M01S07920.msm     +++|          LDN    UTRS
09865  M01S07921.msm     +++|          STD    CM+3
09866  M01S07922.msm     +++|          MONITOR  STBM      ISSUE REQUEST
09867  M01S07923.msm     +++|*         LDN    0
09868  M01S07924.msm     +++|          UJN    UMSX        RETURN
09869  M01S07925.msm     +++|          SPACE  4,10
09870  M01S07926.msm     +++|**        COMMON DECKS.
09871  M01S07927.msm     +++|
09872  M01S07928.msm     +++|
09873  M01S07929.msm     +++|*CALL     COMPCUT
09874  M01S07930.msm     +++|*CALL     COMPSUT
09875  M01S07931.msm     +++|          SPACE  4,10
09876  M01S07932.msm     +++|          QUAL   CMS
09877  M01S07933.msm     +++| CAD      EQU    /RDD/CAD
09878  M01S07934.msm     +++| CID      EQU    /RDD/CID
Line S07935 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
09879  M02S07935.283l840 ---| CUD      EQU    /RDD/CUD
09880  M01S07936.msm     +++|          QUAL   *
09881  M01S07937.msm     +++|          USE    LITERALS
09882  M01S07938.msm     +++|
09883  M01S07939.msm     +++|
Line S07940 Modification History
M01 (Added by) msm
M02 (Updated by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
09884  M02S07940.272l774 ---|          ERRPL  *-BFMS      OVERLAY OVERFLOW INTO BUFFER
09885  M01S00069.272l774 +++|          ERRNG  BFMS-*      OVERLAY OVERFLOW INTO BUFFER
09886  M01S07941.msm     +++| POV      SPACE  4,10
09887  M01S07942.msm     +++|**        POV - MODIFY INSTRUCTIONS AS REQUIRED FOR CM/MMF RECOVERY.
09888  M01S07943.msm     +++|
09889  M01S07944.msm     +++|
09890  M01S07945.msm     +++| POV      LDD    IR+2        SET PREVIOUS EQUIPMENT OF INTERLOCK
09891  M01S07946.msm     +++|          STM    ILKA
09892  M01S07947.msm     +++|          LDM    MMFP
Line S07948 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
09893  M02S07948.283l840 ---|          ZJN    POV5        IF DO NOT PRESET FOR MMF
09894  M01S00943.283l840 +++|          ZJP    POV5        IF DO NOT PRESET FOR MMF
09895  M01S07949.msm     +++|          LDC    MMFL
09896  M01S07950.msm     +++|          CRD    CM
09897  M01S07951.msm     +++|          LDD    CM+4        SET MACHINE INDEX
Line S00944 Modification History
M01 (Added by) 283l840
M02 (Updated by) ns2780
Seq #  *Modification Id* Act 
----------------------------+
09898  M02S00944.ns2780  ---|          RAM    CDBA
Line S00945 Modification History
M01 (Added by) 283l840
M02 (Updated by) ns2780
Seq #  *Modification Id* Act 
----------------------------+
09899  M02S00945.ns2780  ---|          STM    EBPC
09900  M01S00038.ns2780  +++|          RAM    EBPC
09901  M01S00946.283l840 +++|          LPN    77
09902  M01S07952.msm     +++|          SHN    1
09903  M01S07953.msm     +++|          RAM    CDDA
Line S07954 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
09904  M02S07954.283l840 ---|          LDC    L"QUAL"     SET LIST ADDRESS
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  M01S07955.msm     +++|          STD    T1
09911  M01S07956.msm     +++|          UJN    POV2        MODIFY INSTRUCTIONS
09912  M01S07957.msm     +++|
09913  M01S07958.msm     +++| POV1     STD    T0
09914  M01S07959.msm     +++|          LDN    PSNI        REPLACE INSTRUCTION WITH *PSN*
09915  M01S07960.msm     +++|          STI    T0
09916  M01S07961.msm     +++|          AOD    T1          ADVANCE LIST ADDRESS
09917  M01S07962.msm     +++| POV2     LDI    T1
09918  M01S07963.msm     +++|          NJN    POV1        LOOP TO END OF TABLE
09919  M01S07964.msm     +++|          LDC    T"QUAL"     SET LIST ADDRESS
09920  M01S07965.msm     +++|          STD    T1
09921  M01S07966.msm     +++|          UJN    POV4        ENTER LOOP
09922  M01S07967.msm     +++|
09923  M01S07968.msm     +++| POV3     STD    T0
09924  M01S07969.msm     +++|          LDD    CM+3        ADD MACHINE MASK TO INSTRUCTION
09925  M01S07970.msm     +++|          LMI    T0
09926  M01S07971.msm     +++|          STI    T0
09927  M01S07972.msm     +++|          AOD    T1
09928  M01S07973.msm     +++| POV4     LDI    T1
09929  M01S07974.msm     +++|          NJN    POV3        IF MORE INSTRUCTIONS
Line S07975 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
09930  M02S07975.283l840 ---| POV5     LJM    RDDX        RETURN
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  M01S07976.msm     +++|
09944  M01S07977.msm     +++|*         LIST OF INSTRUCTIONS TO BE PRESET.
09945  M01S07978.msm     +++|
09946  M01S07979.msm     +++| L"QUAL"  BSS    0
09947  M01S07980.msm     +++| L"QUAL"  HERE
09948  M01S00964.283l840 +++|          ERRZR  L"QUAL"-*   TABLE EMPTY - REMOVE PRESET CODE
09949  M01S07981.msm     +++|          CON    0           TERMINATE TABLE
09950  M01S07982.msm     +++|
09951  M01S07983.msm     +++| T"QUAL"  BSS    0
09952  M01S07984.msm     +++| T"QUAL"  HERE
09953  M01S00965.283l840 +++|          ERRZR  T"QUAL"-*   TABLE EMPTY - REMOVE PRESET CODE
09954  M01S07985.msm     +++|          CON    0           TERMINATE LIST
09955  M01S07986.msm     +++|
09956  M01S07987.msm     +++|          QUAL
09957  M01S07988.msm     +++|
Line S07989 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
09958  M02S07989.283l840 ---| CTD      EQU    /RDD/CTD
Line S07990 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
09959  M02S07990.283l840 ---| RMR      EQU    /RDD/RMR
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  M01S07991.msm     +++| VLP      EQU    /RDD/VLP
09970  M01S00975.283l840 +++| WDE      EQU    /RDD/WDE
09971  M01S00976.283l840 +++|
09972  M01S00977.283l840 +++| ORDE     EQU    /RDD/ORDE
09973  M01S07992.msm     +++| ORDG     EQU    /RDD/ORDG
09974  M01S00978.283l840 +++| ORDH     EQU    /RDD/ORDH
09975  M01S00979.283l840 +++| ORDJ     EQU    /RDD/ORDJ
09976  M01S07993.msm     +++|          SPACE  4,10
Line S07994 Modification History
M01 (Added by) msm
M02 (Updated by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
09977  M02S07994.272l774 ---|          OVERFLOW  OSOV     CHECK FOR OVERFLOW
Line S00070 Modification History
M01 (Added by) 272l774
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
09978  M02S00070.283l840 ---|          OVERFLOW  OSOV,EPFW  CHECK FOR OVERFLOW
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  M01S07995.msm     +++|          TTL    MSM/4DF - UPDATE MMF TABLES IN EXTENDED MEMORY.
10189  M01S07996.msm     +++|          TITLE
10190  M01S07997.msm     +++|          IDENT  4DF,EDTX
10191  M01S07998.msm     +++|*COMMENT  MSM - UPDATE MMF TABLES IN EXTENDED MEMORY.
Line S07999 Modification History
M01 (Added by) msm
M02 (Updated by) 281l803
Seq #  *Modification Id* Act 
----------------------------+
10192  M02S07999.281l803 ---|          COMMENT COPYRIGHT CONTROL DATA CORP. 1975.
10193  M01S00008.281l803 +++|          COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
10194  M01S08000.msm     +++|          SPACE  4
10195  M01S08001.msm     +++|***              *4DF* UPDATES THE DAT POINTER WORD IN ECS
10196  M01S08002.msm     +++|*         AND CONTAINS ROUTINES FOR PROCESSING OF MACHINE
10197  M01S08003.msm     +++|*         RECOVERY TABLES (MRTS).
10198  M01S08004.msm     +++|          SPACE  4
10199  M01S08005.msm     +++|***       ENTRY CONDITIONS.
10200  M01S08006.msm     +++|*
10201  M01S08007.msm     +++|*         DEVICE ACCESS TABLE IMAGE IN CM.
10202  M01S08008.msm     +++|*         DATI INTERLOCK SET.
10203  M01S08009.msm     +++|          TITLE  UPDATE DAT POINTER WORD.
10204  M01S08010.msm     +++| EDT      SPACE  4,10
10205  M01S08011.msm     +++|**        EDT - EDIT DAT POINTER WORD.
10206  M01S08012.msm     +++|*
10207  M01S08013.msm     +++|*         CALLS  CEA.
10208  M01S08014.msm     +++|
10209  M01S08015.msm     +++|
Line S08016 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
10210  M02S08016.283l840 ---|          ORG    OSOV
10211  M01S01189.283l840 +++|          ORG    ORDF
10212  M01S08017.msm     +++|
10213  M01S08018.msm     +++| EDT      SUBR               ENTRY/EXIT
10214  M01S08019.msm     +++|          LDK    MMFL
10215  M01S08020.msm     +++|          CRD    CM
10216  M01S08021.msm     +++|          LDD    RS          CHECK RECOVERY LEVEL
10217  M01S08022.msm     +++|          LPN    FLMK
10218  M01S08023.msm     +++|          LMN    FLCM
10219  M01S08024.msm     +++|          ZJN    EDTX        IF CM RECOVERY
10220  M01S08025.msm     +++|          LDD    CM+4
10221  M01S08026.msm     +++|          ZJN    EDTX        IF NOT MMF ENVIRONMENT
Line S08027 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
10222  M02S08027.283l840 ---|          LDN    ZERL        CLEAR *DAET* ASSEMBLY
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  M01S08028.msm     +++|          CRD    CN
10250  M01S08029.msm     +++|          CRD    CM
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  M01S08030.msm     +++|          LDD    QT          SET CURRENT DAT TRACK
10260  M01S08031.msm     +++|          STD    CN
10261  M01S08032.msm     +++|          LDD    QI          SET DAT INDEX
10262  M01S08033.msm     +++|          STD    CN+4
Line S08034 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
10263  M02S08034.283l840 ---|          LDM    ECLT        SET LABEL TRACK FOR ECS
Line S08035 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
10264  M02S08035.283l840 ---|          STD    T6
Line S08036 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
10265  M02S08036.283l840 ---|          LDN    ETLT        SET ENVIRONMENT TABLE SECTOR
Line S08037 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
10266  M02S08037.283l840 ---|          STD    T7
Line S08038 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
10267  M02S08038.283l840 ---|          RJM    CEA
Line S08039 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
10268  M02S08039.283l840 ---|          LDN    DAET        ADJUST ADDRESS TO DAT POINTER
Line S08040 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
10269  M02S08040.283l840 ---|          RAD    CM+4
Line S08041 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
10270  M02S08041.283l840 ---|          SHN    -14
Line S08042 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
10271  M02S08042.283l840 ---|          LMC    WECS*1000   SUBFUNCTION = WRITE XM
Line S08043 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
10272  M02S08043.283l840 ---|*         LDN    0
Line S08044 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
10273  M02S08044.283l840 ---|*         STD    CM+1        SET WORD COUNT - 1 FOR TRANSFER
Line S08045 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
10274  M02S08045.283l840 ---|          RAD    CM+3
10275  M01S08046.msm     +++|          LDD    MA          STORE *DAET* IMAGE IN CM BUFFER
10276  M01S08047.msm     +++|          CWD    CN
10277  M01S08048.msm     +++|          STD    CM+2        SET BUFFER ADDRESS IN MONITOR REQUEST
10278  M01S08049.msm     +++|          MONITOR ECSM
10279  M01S08050.msm     +++|          LJM    EDTX        RETURN
10280  M01S08051.msm     +++| UER      SPACE  4
10281  M01S08052.msm     +++|**        UER - UPDATE EXTENDED MEMORY RESIDENT.
10282  M01S08053.msm     +++|*
10283  M01S08054.msm     +++|*         ENTRY  (EQ) = EST ORDINAL.
10284  M01S08055.msm     +++|*                (FN - FN+4) = EST ENTRY.
10285  M01S08056.msm     +++|*         EXIT   (A) .LT. 0 IF RECOVERY INFORMATION NOT TO
10286  M01S08057.msm     +++|*                BE REWRITTEN TO CM UPON RETURN TO *MRL*.
10287  M01S08058.msm     +++|*
10288  M01S08059.msm     +++|*         CALLS  ERT, SMT, SRT, CRT.
10289  M01S08060.msm     +++|
10290  M01S08061.msm     +++|
10291  M01S08062.msm     +++| UER1     SHN    21-3+22-21+1
10292  M01S08063.msm     +++|          PJN    UER2        IF DNAP BY THIS MACHINE
10293  M01S08064.msm     +++|          LDN    STBM        CLEAN UP TRACK INTERLOCKS
10294  M01S08065.msm     +++|          RJM    ERT
10295  M01S08066.msm     +++|          LDD    RS
10296  M01S08067.msm     +++|          NJN    UER2        IF RECOVERY SELECTED
10297  M01S08068.msm     +++|          LDD    FN
10298  M01S08069.msm     +++|          SHN    21-10
10299  M01S08070.msm     +++|          MJN    UER2        IF REMOVABLE DEVICE
10300  M01S08071.msm     +++|          LDN    DTKM        CLEAN UP LOCAL FILE SPACE
10301  M01S08072.msm     +++|          RJM    ERT
10302  M01S08073.msm     +++| UER2     LDD    EQ          RESET EST ORDINAL
10303  M01S08074.msm     +++|          STD    T5
10304  M01S08075.msm     +++|          CMSTF  LUNL        FORCE EXTENDED MEMORY UPDATE OF LOCAL MST
10305  M01S08076.msm     +++|
10306  M01S08077.msm     +++| UER      SUBR               ENTRY/EXIT
10307  M01S08078.msm     +++|          SHN    21-11
10308  M01S08079.msm     +++|          PJN    UERX        IF NOT SHARED DEVICE
10309  M01S08080.msm     +++|          SHN    11-6
10310  M01S08081.msm     +++|          MJN    UERX        IF DEVICE UNAVAILABLE
10311  M01S08082.msm     +++|          SHN    6-1
10312  M01S08083.msm     +++|          MJN    UER1        IF DEVICE ACCESSED PREVIOUSLY (DAP)
10313  M01S08084.msm     +++|          RJM    SMT         STORE MST/TRT IN ECS
10314  M01S08085.msm     +++|          RJM    CRT         CLEAR MRTS IN ECS
10315  M01S08086.msm     +++|          UJN    UER2
10316  M01S08087.msm     +++| UIS      SPACE  4,10
10317  M01S08088.msm     +++|**        UIS - UPDATE ISD MRT TABLES.
10318  M01S08089.msm     +++|*
10319  M01S08090.msm     +++|*         ENTRY  (A) = MS FLAG (RE) SHIFTED TO SIGN POSITION.
10320  M01S08091.msm     +++|*                (EQ) = EST ORDINAL.
10321  M01S08092.msm     +++|*                (FN - FN+4) = EST ENTRY.
10322  M01S08093.msm     +++|*                (RS) = RECOVERY STATUS.
10323  M01S08094.msm     +++|*
10324  M01S08095.msm     +++|*         EXIT   (A) .LT. 0 IF RECOVERY INFORMATION NOT TO
10325  M01S08096.msm     +++|*                BE REWRITTEN TO CM UPON RETURN TO *MRL*.
10326  M01S08097.msm     +++|*
10327  M01S08098.msm     +++|*         CALLS  ERT.
10328  M01S08099.msm     +++|
10329  M01S08100.msm     +++|
10330  M01S08101.msm     +++| UIS      SUBR               ENTRY/EXIT
10331  M01S08102.msm     +++|          SHN    21-6
10332  M01S08103.msm     +++|          MJN    UISX        IF DEVICE NOT AVAILABLE
10333  M01S08104.msm     +++|          LDD    RS
10334  M01S08105.msm     +++|          ZJN    UISX        IF LEVEL ZERO DEADSTART
10335  M01S08106.msm     +++|          LDD    FN
10336  M01S08107.msm     +++|          SHN    21-4
10337  M01S08108.msm     +++|          PJN    UISX        IF NOT AN ISD DEVICE
10338  M01S08109.msm     +++|          LDN    STBM        CLEAN UP TRACK INTERLOCKS
10339  M01S08110.msm     +++|          RJM    ERT
10340  M01S08111.msm     +++|          UJN    UISX        RETURN
10341  M01S08112.msm     +++| CRT      TITLE  CLEAR MACHINE RECOVERY TABLES.
10342  M01S08113.msm     +++|**        CRT - CLEAR MRTS.
10343  M01S08114.msm     +++|*
10344  M01S08115.msm     +++|*         CALLS  STA, WDS.
10345  M01S08116.msm     +++|*
10346  M01S08117.msm     +++|*         MACROS ENDMS, SETMS.
10347  M01S08118.msm     +++|
10348  M01S08119.msm     +++|
10349  M01S08120.msm     +++| CRT      SUBR               ENTRY/EXIT
10350  M01S08121.msm     +++|          LDC    MMFL        READ MMF STATUS WORD
10351  M01S08122.msm     +++|          CRD    CM
10352  M01S08123.msm     +++|          LDD    CM+1        SET LINK DEVICE EST ORDINAL
10353  M01S08124.msm     +++|          LPC    777
10354  M01S08125.msm     +++|          STD    T5
10355  M01S08126.msm     +++|          SETMS  IO,DF
10356  M01S08127.msm     +++|          LDD    FN+4        GET TRT LENGTH FROM MST
10357  M01S08128.msm     +++|          SHN    3
10358  M01S08129.msm     +++|          ADK    TDGL
10359  M01S08130.msm     +++|          CRD    CN
10360  M01S08131.msm     +++|          LDD    TS          SET MST/TRT TRACK
10361  M01S08132.msm     +++|          STD    T6
10362  M01S08133.msm     +++|          LDN    MRST-1      INITIALIZE MRT SECTOR
10363  M01S08134.msm     +++|          STD    T7
10364  M01S08135.msm     +++|          LDD    CN+2        SET MRT LENGTH
10365  M01S08136.msm     +++|          ADN    7
10366  M01S08137.msm     +++|          SHN    -3
10367  M01S08138.msm     +++|          STD    CN+1        SAVE MRT LENGTH
10368  M01S08139.msm     +++|          STM    BFMS+1
10369  M01S08140.msm     +++|          STD    T1          SET BUFFER LENGTH
10370  M01S08141.msm     +++|          SHN    2
10371  M01S08142.msm     +++|          RAD    T1
10372  M01S08143.msm     +++| CRT1     LDN    0           CLEAR BUFFER
10373  M01S08144.msm     +++|          STM    BFMS+1,T1
10374  M01S08145.msm     +++|          SOD    T1
10375  M01S08146.msm     +++|          NJN    CRT1
10376  M01S08147.msm     +++|          LDN    MXMF        SET LOOP COUNT
10377  M01S08148.msm     +++|          STD    CN
10378  M01S08149.msm     +++|
10379  M01S08150.msm     +++|*         CLEAR MRT SECTORS FOR *MXMF* MAINFRAMES.
10380  M01S08151.msm     +++|
10381  M01S08152.msm     +++| CRT2     AOD    T7          ADVANCE MRT SECTOR
10382  M01S08153.msm     +++|          ADN    1           SET NEXT SECTOR IN LINKAGE
10383  M01S08154.msm     +++|          STM    BFMS
10384  M01S08155.msm     +++|          LDC    BFMS        CLEAR MRT
10385  M01S08156.msm     +++|          RJM    WDS
10386  M01S08157.msm     +++|          SOD    CN
10387  M01S08158.msm     +++|          NJN    CRT2        IF MORE MRT-S TO CLEAR
10388  M01S08159.msm     +++|          ENDMS              RELEASE CHANNEL
10389  M01S08160.msm     +++|          RJM    STA         SET FWA OF TRT
10390  M01S08161.msm     +++|          ADD    CN+2        SET FWA OF MRT
10391  M01S08162.msm     +++|          CWM    BFMS+2,CN+1
10392  M01S08163.msm     +++|          LJM    CRTX        RETURN
10393  M01S08164.msm     +++| ERT      TITLE  EDIT MACHINE RECOVERY TABLE.
10394  M01S08165.msm     +++|**        ERT - EDIT MRT.
10395  M01S08166.msm     +++|*
10396  M01S08167.msm     +++|*         ENTRY  (A) = *STBM* TO CLEAN UP TRACK INTERLOCKS.
10397  M01S08168.msm     +++|*                    = *DTKM* TO CLEAN UP LOCAL FILE SPACE.
10398  M01S08169.msm     +++|*                (EQ) = EST ORDINAL.
10399  M01S08170.msm     +++|*                (FN - FN+4) = EST ENTRY.
10400  M01S08171.msm     +++|*
10401  M01S08172.msm     +++|*         EXIT   ALL LOCAL TRACK CHAINS DROPPED.
10402  M01S08173.msm     +++|*
10403  M01S08174.msm     +++|*         USES   T0 - T7, CM - CM+4.
10404  M01S08175.msm     +++|*
10405  M01S08176.msm     +++|*         CALLS  PTA, RDS, STA.
10406  M01S08177.msm     +++|*
10407  M01S08178.msm     +++|*         MACROS MONITOR.
10408  M01S08179.msm     +++|
10409  M01S08180.msm     +++|
10410  M01S08181.msm     +++| ERT2     SHN    21-0        CHECK NEXT BIT
10411  M01S08182.msm     +++|          STI    T1
10412  M01S08183.msm     +++|          PJN    ERT3        IF NO RESERVATION
10413  M01S08184.msm     +++|          LDD    T2          SET TRT WORD INDEX
10414  M01S08185.msm     +++|          SHN    21-1
10415  M01S08186.msm     +++|          STD    T0
10416  M01S08187.msm     +++|          SHN    1-21        FORM *SHN* WITH BYTE INDEX
10417  M01S08188.msm     +++|          ADC    SHNI+21-7
10418  M01S08189.msm     +++|          STM    ERTA
10419  M01S08190.msm     +++|          RJM    STA         SET FWA OF TRT
10420  M01S08191.msm     +++|          ADD    T0
10421  M01S08192.msm     +++|          CRD    CM
10422  M01S08193.msm     +++|          LDD    CM+4        CHECK WRITE INTERLOCK
10423  M01S08194.msm     +++| ERTA     SHN    **
10424  M01S08195.msm     +++| ERTB     PJN    ERT3        IF TRACK NOT INTERLOCKED
10425  M01S08196.msm     +++|*         MJN    ERT3        IF NOT LOCAL FILE
10426  M01S08197.msm     +++|          LDD    MA          LOAD MONITOR REQUEST
10427  M01S08198.msm     +++|          CRD    CM
10428  M01S08199.msm     +++|          LDD    T2          SET TRACK IN REQUEST
10429  M01S08200.msm     +++|          RAD    CM+2
10430  M01S08201.msm     +++| ERTC     MONITOR STBM
10431  M01S08202.msm     +++|*         MONITOR DTKM
10432  M01S08203.msm     +++| ERT3     AOD    T2          ADVANCE TRACK NUMBER
10433  M01S08204.msm     +++| ERT4     LDI    T1
10434  M01S08205.msm     +++|          NJN    ERT2        IF NOT END OF RESERVATIONS IN MRT BYTE
10435  M01S08206.msm     +++|          LDN    4*3         ALIGN TRACK NUMBER FOR NEXT MRT BYTE
10436  M01S08207.msm     +++|          RAD    T6
10437  M01S08208.msm     +++|          STD    T2
10438  M01S08209.msm     +++|          SOD    T1          MOVE TO NEXT BYTE IN MRT WORD
10439  M01S08210.msm     +++|          LMD    T5
10440  M01S08211.msm     +++|          NJN    ERT4        IF NOT END OF DATA IN WORD
10441  M01S08212.msm     +++|          LCN    4           ALIGN TRACK FOR NEXT MRT WORD
10442  M01S08213.msm     +++|          RAD    T6
10443  M01S08214.msm     +++|          STD    T2
10444  M01S08215.msm     +++| ERT5     LDN    3+5         ADVANCE TO NEXT MRT WORD
10445  M01S08216.msm     +++|          RAD    T1
10446  M01S08217.msm     +++|          SBN    3           SET END OF DATA CHECK
10447  M01S08218.msm     +++|          STD    T5
10448  M01S08219.msm     +++|          LMD    T7
10449  M01S08220.msm     +++|          NJN    ERT4        IF NOT END OF TRT EDIT
10450  M01S08221.msm     +++|
10451  M01S08222.msm     +++| ERT      SUBR               ENTRY/EXIT
10452  M01S08223.msm     +++|          LMC    LDNI        SET MONITOR FUNCTION
10453  M01S08224.msm     +++|          STM    ERTC
10454  M01S08225.msm     +++|          LPN    77
10455  M01S08226.msm     +++|          LMN    STBM
10456  M01S08227.msm     +++|          ZJN    ERT1        IF CLEARING TRACK INTERLOCKS
10457  M01S08228.msm     +++|          LDD    HN          MJNI - PJNI
10458  M01S08229.msm     +++| ERT1     ADC    PJNI+ERT3-ERTB
10459  M01S08230.msm     +++|          STM    ERTB
10460  M01S08231.msm     +++|          RJM    PTA         PRESET FWA OF TRT
10461  M01S08232.msm     +++|          LDD    FN+4        GET TRT LENGTH
10462  M01S08233.msm     +++|          SHN    3
10463  M01S08234.msm     +++|          ADK    TDGL
10464  M01S08235.msm     +++|          CRD    T3
10465  M01S08236.msm     +++|          LDC    BFMS+1
10466  M01S08237.msm     +++|          STD    T7
10467  M01S08238.msm     +++|          SBN    3           INITIALIZE MRT ADDRESS
10468  M01S08239.msm     +++|          STD    T1
10469  M01S08240.msm     +++|          LDD    T3+2        SET END OF MRT
10470  M01S08241.msm     +++|          STD    T0          SAVE TRT LENGTH
10471  M01S08242.msm     +++|          ADN    7
10472  M01S08243.msm     +++|          SHN    -3
10473  M01S08244.msm     +++|          STD    T5
10474  M01S08245.msm     +++|          SHN    2
10475  M01S08246.msm     +++|          ADD    T5
10476  M01S08247.msm     +++|          ADN    5-3
10477  M01S08248.msm     +++|          RAD    T7
10478  M01S08249.msm     +++|          RJM    STA         SET FWA OF TRT
10479  M01S08250.msm     +++|          ADD    T0
10480  M01S08251.msm     +++|          CRM    BFMS+2,T5   READ MRT
10481  M01S08252.msm     +++|          LDN    ZERL        CLEAR TRACK POINTERS
10482  M01S08253.msm     +++|          CRD    T6-4
10483  M01S08254.msm     +++|          LDD    EQ          SET UP BASIC MONITOR REQUEST
10484  M01S08255.msm     +++|          STD    CM+1
10485  M01S08256.msm     +++|          LDC    4000
10486  M01S08257.msm     +++|          STD    CM+2
10487  M01S08258.msm     +++|          LDN    CTIS
10488  M01S08259.msm     +++|          STD    CM+3
10489  M01S08260.msm     +++|          LDD    MA          STORE REQUEST IMAGE IN MESSAGE BUFFER
10490  M01S08261.msm     +++|          CWD    CM
10491  M01S08262.msm     +++|          LJM    ERT5        ENTER LOOP
10492  M01S08263.msm     +++| SMT      TITLE  STORE MST/TRT IN EXTENDED MEMORY.
10493  M01S08264.msm     +++|**        SMT - STORE MST + TRT IN EXTENDED MEMORY.
10494  M01S08265.msm     +++|*
10495  M01S08266.msm     +++|*         ENTRY  (EQ) = EST ORDINAL.
10496  M01S08267.msm     +++|*                (FN - FN+4) = EST ENTRY.
10497  M01S08268.msm     +++|*
10498  M01S08269.msm     +++|*         USES   P1, T1, CM+3 - CM+7, CN - CN+4, T5 - T7.
10499  M01S08270.msm     +++|*
10500  M01S08271.msm     +++|*         CALLS  CEA, PTA, STA, WDS.
10501  M01S08272.msm     +++|*
10502  M01S08273.msm     +++|*         MACROS ENDMS, SETMS.
10503  M01S08274.msm     +++|
10504  M01S08275.msm     +++|
10505  M01S08276.msm     +++|
10506  M01S08277.msm     +++| SMT      SUBR               ENTRY/EXIT
10507  M01S08278.msm     +++|          RJM    PTA         PRESET FWA OF TRT
10508  M01S08279.msm     +++|          LDC    500-5*GLGL
10509  M01S08280.msm     +++|          STD    T7
10510  M01S08281.msm     +++| SMT1     LDN    0           CLEAR BUFFER
10511  M01S08282.msm     +++|          STM    BFMS+1+5*GLGL,T7
10512  M01S08283.msm     +++|          SOD    T7
10513  M01S08284.msm     +++|          NJN    SMT1
10514  M01S08285.msm     +++|          STD    P1
10515  M01S08286.msm     +++|          LDC    MMFL        READ MMF STATUS WORD
10516  M01S08287.msm     +++|          CRD    CN
10517  M01S08288.msm     +++|          LDD    CN+1        SET LINK DEVICE EST ORDINAL
10518  M01S08289.msm     +++|          LPC    777
10519  M01S08290.msm     +++|          STD    T5
10520  M01S08291.msm     +++|          SETMS  IO,DF
10521  M01S08292.msm     +++|
10522  M01S08293.msm     +++|*         SET UNLOAD STATUS IN EACH LOCAL MST BLOCK.
10523  M01S08294.msm     +++|
10524  M01S08295.msm     +++| SMT2     LDN    MLUNL+MLDUL
10525  M01S08296.msm     +++|          STM    BFMS+2+5*STLL,P1
10526  M01S08297.msm     +++|          LDN    5*LLLL      ADVANCE INDEX
10527  M01S08298.msm     +++|          RAD    P1
10528  M01S08299.msm     +++|          LMC    MXMF*5*LLLL
10529  M01S08300.msm     +++|          NJN    SMT2        LOOP FOR *MXMF* MSTS
10530  M01S08301.msm     +++|          LDD    TS          SET MST/TRT TRACK
10531  M01S08302.msm     +++|          STD    T6
10532  M01S08303.msm     +++|          LDD    HN          SET FULL SECTOR WORD COUNT
10533  M01S08304.msm     +++|          STM    BFMS+1
10534  M01S08305.msm     +++|          LDN    ZERL
10535  M01S08306.msm     +++|          CRD    CM+3
10536  M01S08307.msm     +++|          RJM    CEA
10537  M01S08308.msm     +++|          LDN    GLGL        SET LENGTH OF GLOBAL MST
10538  M01S08309.msm     +++|          STD    T1
10539  M01S08310.msm     +++|          LDN    1           SET INITIAL TRT ACCESS COUNT
10540  M01S08311.msm     +++|          STD    CM+6
10541  M01S08312.msm     +++|          LDD    FN+4
10542  M01S08313.msm     +++|          SHN    3
10543  M01S08314.msm     +++|          ADN    SDGL
10544  M01S08315.msm     +++|          CWD    CM+3
10545  M01S08316.msm     +++|          SBN    SDGL-TDGL
10546  M01S08317.msm     +++|          CRD    CN
10547  M01S08318.msm     +++|          CRM    BFMS+2,T1
10548  M01S08319.msm     +++|          LCN    100-1       INITIALIZE TRT INDEX
10549  M01S08320.msm     +++|          STD    CN+4
10550  M01S08321.msm     +++|          LDN    0
10551  M01S08322.msm     +++|          UJN    SMT5        ENTER LOOP WITH (A) = 0
10552  M01S08323.msm     +++|
10553  M01S08324.msm     +++| SMT3     SBD    HN          DECREMENT BLOCK COUNT
10554  M01S08325.msm     +++|          PJN    SMT4        IF ANOTHER FULL SECTOR
10555  M01S08326.msm     +++|          ADD    HN
10556  M01S08327.msm     +++|          STM    BFMS+1      SET SHORT SECTOR
10557  M01S08328.msm     +++|          LDN    0
10558  M01S08329.msm     +++| SMT4     STD    CN+2
10559  M01S08330.msm     +++|          LDD    HN          ADVANCE TRT ADDRESS
10560  M01S08331.msm     +++|          RAD    CN+4
10561  M01S08332.msm     +++|          RJM    STA         SET FWA OF TRT
10562  M01S08333.msm     +++|          ADD    CN+4
10563  M01S08334.msm     +++|          CRM    BFMS+2,HN
10564  M01S08335.msm     +++|          AOD    T7          ADVANCE SECTOR
10565  M01S08336.msm     +++| SMT5     ADN    1
10566  M01S08337.msm     +++|          STM    BFMS
10567  M01S08338.msm     +++|          LDC    BFMS        WRITE NEXT SECTOR
10568  M01S08339.msm     +++|          RJM    WDS
10569  M01S08340.msm     +++|          LDD    CN+2
10570  M01S08341.msm     +++|          NJN    SMT3        LOOP TO END OF TRT
10571  M01S08342.msm     +++|          ENDMS
10572  M01S08343.msm     +++|          LJM    SMTX        EXIT
Line S08344 Modification History
M01 (Added by) msm
M02 (Updated by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
10573  M02S08344.272l774 ---|
Line S08345 Modification History
M01 (Added by) msm
M02 (Updated by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
10574  M02S08345.272l774 ---|          ERRPL  *-BFMS      OVERFLOW INTO BUFFER
10575  M01S00071.272l774 +++|          SPACE  4,10
10576  M01S00072.272l774 +++|          ERRNG  BFMS-*      OVERFLOW INTO BUFFER
10577  M01S00073.272l774 +++|          SPACE  4,10
Line S00074 Modification History
M01 (Added by) 272l774
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
10578  M02S00074.283l840 ---|          OVERFLOW  OSOV,EPFW  CHECK FOR OVERFLOW
10579  M01S01224.283l840 +++|          OVERFLOW  ORDF,EPFW  CHECK FOR OVERFLOW
10580  M01S08346.msm     +++|          TTL    MSM/4DG - DEVICE RECOVERY ROUTINES.
10581  M01S08347.msm     +++|          TITLE
10582  M01S08348.msm     +++|          IDENT  4DG,/RDG/RDGX
10583  M01S08349.msm     +++|*COMMENT  MSM - DEVICE RECOVERY ROUTINES.
Line S08350 Modification History
M01 (Added by) msm
M02 (Updated by) 281l803
Seq #  *Modification Id* Act 
----------------------------+
10584  M02S08350.281l803 ---|          COMMENT COPYRIGHT CONTROL DATA CORP. 1973.
10585  M01S00009.281l803 +++|          COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
10586  M01S08351.msm     +++|          SPACE  4
Line S08352 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
10587  M02S08352.283l840 ---|***              *4DG* CONTAINS ROUTINES FOR RECOVERING TRT-S.
10588  M01S01225.283l840 +++|***       *4DG* CONTAINS ADDITIONAL DEVICE RECOVERY ROUTINES.
10589  M01S08353.msm     +++|          SPACE  4
10590  M01S08354.msm     +++|          QUAL   RDG
10591  M01S08355.msm     +++|          ORG    ORDG
10592  M01S08356.msm     +++|
10593  M01S08357.msm     +++| RDG      SUBR               ENTRY/EXIT
Line S08358 Modification History
M01 (Added by) msm
M02 (Updated by) ns2552
Seq #  *Modification Id* Act 
----------------------------+
10594  M02S08358.ns2552  ---|          LJM    POV
Line S08359 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
10595  M02S08359.283l840 ---|          EJECT
10596  M01S01226.283l840 +++|          RJM    PRS         PRESET OVERLAY
10597  M01S01227.283l840 +++|          UJN    RDGX        RETURN
10598  M01S01228.283l840 +++|          TITLE  COPY MST/TRT TO DISK.
10599  M01S01229.283l840 +++| CTD      SPACE  4,15
10600  M01S01230.283l840 +++|**        CTD - COPY TABLES TO DISK.
10601  M01S01231.283l840 +++|*
10602  M01S01232.283l840 +++|*         ENTRY  (FN - FN+4) = EST ENTRY.
10603  M01S01233.283l840 +++|*
10604  M01S01234.283l840 +++|*         EXIT   (A) .GE. 0.
10605  M01S01235.283l840 +++|*
10606  M01S01236.283l840 +++|*         USES   P1, T3, T6, T7, CM - CM+4, CN - CN+4.
10607  M01S01237.283l840 +++|*
10608  M01S01238.283l840 +++|*         CALLS  CLC, PTA, RDS, STA, WDS.
10609  M01S01239.283l840 +++|*
10610  M01S01240.283l840 +++|*         MACROS CMSTF, ENDMS, MONITOR, SETMS.
10611  M01S01241.283l840 +++|
10612  M01S01242.283l840 +++|
10613  M01S01243.283l840 +++| CTD5     LDD    RE          CHECK ACCESS STATUS
10614  M01S01244.283l840 +++|          LPC    1002
10615  M01S01245.283l840 +++|          LMC    1002
10616  M01S01246.283l840 +++| CTD6     NJN    CTDX        IF NOT SHARED DEVICE ACCESSED PREVIOUSLY
10617  M01S01247.283l840 +++|          LDD    T5
10618  M01S01248.283l840 +++|          STD    CM+1
10619  M01S01249.283l840 +++|          LDN    UITS        GET CURRENT COPY OF TRT / UPDATE MRT
10620  M01S01250.283l840 +++|          STD    CM+3
10621  M01S01251.283l840 +++|          MONITOR STBM
10622  M01S01252.283l840 +++|
10623  M01S01253.283l840 +++| CTD      SUBR               ENTRY/EXIT
10624  M01S01254.283l840 +++|          RJM    PTA         PRESET FWA OF TRT
10625  M01S01255.283l840 +++|          CMSTF  LPTU        ENABLE TRT UPDATE BY *1RU*
10626  M01S01256.283l840 +++|*         LDN    0
10627  M01S01257.283l840 +++|          STD    T7
10628  M01S01258.283l840 +++|          LDD    FN
10629  M01S01259.283l840 +++|          SHN    21-4
10630  M01S01260.283l840 +++|          PJN    CTD5        IF NOT INDEPENDENT SHARED DEVICE
10631  M01S01261.283l840 +++|          LDD    FN+4
10632  M01S01262.283l840 +++|          SHN    3
10633  M01S01263.283l840 +++|          ADN    ALGL        FETCH ALLOCATION WORD FROM MST
10634  M01S01264.283l840 +++|          CRD    CM
10635  M01S01265.283l840 +++|          LDD    CM+1        SET LABEL TRACK
10636  M01S01266.283l840 +++|          STD    T6
10637  M01S01267.283l840 +++|          SETMS  IO,(DE,DF)
10638  M01S01268.283l840 +++|          LDC    BFMS        REREAD LABEL SECTOR
10639  M01S01269.283l840 +++|          RJM    RDS
10640  M01S01270.283l840 +++|          LDD    RE
10641  M01S01271.283l840 +++|          SHN    21-1
10642  M01S01272.283l840 +++|          MJN    CTD1        IF ACCESSED PREVIOUSLY BY OTHER MF
10643  M01S01273.283l840 +++|          LDM    N4SS+5*SDGL+4
10644  M01S01274.283l840 +++|          LPN    77          SAVE DIT INDEX
10645  M01S01275.283l840 +++|          STD    P1
10646  M01S01276.283l840 +++|          LDN    MSTL        SET CHECKPOINTED MST LENGTH
10647  M01S01277.283l840 +++|          STD    T3
10648  M01S01278.283l840 +++|          LDD    FN+4        SET MST ADDRESS
10649  M01S01279.283l840 +++|          SHN    3
10650  M01S01280.283l840 +++|          ADK    TDGL        GET TRT LENGTH
10651  M01S01281.283l840 +++|          CRD    CN
10652  M01S01282.283l840 +++|          SBK    TDGL        UPDATE MST IN LABEL SECTOR
10653  M01S01283.283l840 +++|          CRM    N4SS,T3
10654  M01S01284.283l840 +++|          LDD    P1          SET SOFTWARE RESERVE IN LABEL
10655  M01S01285.283l840 +++|          LMD    HN
10656  M01S01286.283l840 +++|          STM    N4SS+5*SDGL+4
10657  M01S01287.283l840 +++|          LDD    CN+2        SET MRT LENGTH
10658  M01S01288.283l840 +++|          ADN    7
10659  M01S01289.283l840 +++|          SHN    -3          CALCULATE DIT OFFSET
10660  M01S01290.283l840 +++|          RAD    CN+2
10661  M01S01291.283l840 +++|          UJN    CTD2        GENERATE CHECKSUM
10662  M01S01292.283l840 +++|
10663  M01S01293.283l840 +++| CTD1     LDN    0           CLEAR MACHINE ID TO FORCE TRT UPDATE IN CM
10664  M01S01294.283l840 +++|          STM    N4SS+5*STLL+2
10665  M01S01295.283l840 +++|          LDM    N4SS+5*SDGL+4  CLEAR MST INTERLOCK
10666  M01S01296.283l840 +++|          SCN    77
10667  M01S01297.283l840 +++|          STM    N4SS+5*SDGL+4
10668  M01S01298.283l840 +++| CTD2     RJM    CLC         COMPUTE LABEL CHECKSUM
10669  M01S01299.283l840 +++|          STM    CKSS
10670  M01S01300.283l840 +++|          LDC    BFMS+WLSF
10671  M01S01301.283l840 +++|          RJM    WDS
10672  M01S01302.283l840 +++|          ENDMS              RELEASE HARDWARE RESERVE
10673  M01S01303.283l840 +++|          LDD    RE
10674  M01S01304.283l840 +++|          LPN    2
10675  M01S01305.283l840 +++|          NJN    CTD3        IF DEVICE ACCESSED PREVIOUSLY
10676  M01S01306.283l840 +++|          AOM    N4SS+5*SDGL+4
10677  M01S01307.283l840 +++|          LDD    FN+4        SET MST ADDRESS
10678  M01S01308.283l840 +++|          SHN    3
10679  M01S01309.283l840 +++|          ADN    SDGL        STORE DEVICE INTERLOCK IN CM
10680  M01S01310.283l840 +++|          CWM    N4SS+5*SDGL,ON
10681  M01S01311.283l840 +++|          RJM    STA         STORE DIT IN CM
10682  M01S01312.283l840 +++|          ADD    CN+2
10683  M01S01313.283l840 +++|          ERRNZ  MISD-MSTL   CODE DEPENDS ON VALUE
10684  M01S01314.283l840 +++|          CWM    DISS,T3
10685  M01S01315.283l840 +++|          LDD    T5
10686  M01S01316.283l840 +++|          STD    CM+1        SET EST ORDINAL
10687  M01S01317.283l840 +++|          LDN    CDIS
10688  M01S01318.283l840 +++|          STD    CM+3        UPDATE TABLES ON DISK
10689  M01S01319.283l840 +++|          MONITOR  STBM
10690  M01S01320.283l840 +++|*         LDN    0           SET IMMEDIATE RETURN
10691  M01S01321.283l840 +++| CTD3     LMN    2
10692  M01S01322.283l840 +++|          LJM    CTD6        RETURN
10693  M01S01323.283l840 +++| RMR      SPACE  4,15
10694  M01S01324.283l840 +++|**        RMR - READ MRT.
10695  M01S01325.283l840 +++|*
10696  M01S01326.283l840 +++|*         ENTRY  (T5) = (EQ) = EST ORDINAL.
10697  M01S01327.283l840 +++|*                (FN - FN+4) = EST ENTRY.
10698  M01S01328.283l840 +++|*
10699  M01S01329.283l840 +++|*         USES   T5 - T7, CM - CM+4, CN - CN+4.
10700  M01S01330.283l840 +++|*
10701  M01S01331.283l840 +++|*         CALLS  PTA, RDS, STA.
10702  M01S01332.283l840 +++|*
10703  M01S01333.283l840 +++|*         MACROS ENDMS, SETMS.
10704  M01S01334.283l840 +++|
10705  M01S01335.283l840 +++|
10706  M01S01336.283l840 +++| RMR      SUBR               ENTRY/EXIT
10707  M01S01337.283l840 +++|          LDD    FN
10708  M01S01338.283l840 +++|          SHN    21-11
10709  M01S01339.283l840 +++|          PJN    RMRX        IF DEVICE NOT SHARED
10710  M01S01340.283l840 +++|          SHN    21-4-21+11
10711  M01S01341.283l840 +++|          PJN    RMR1        IF NOT ISD
10712  M01S01342.283l840 +++|          LDD    RS
10713  M01S01343.283l840 +++|          LPN    FLMK
10714  M01S01344.283l840 +++|          LMN    FLTB
10715  M01S01345.283l840 +++|          NJN    RMRX        IF FILES NOT RECOVERED FROM MS TABLES
10716  M01S01346.283l840 +++|          LDD    RA
10717  M01S01347.283l840 +++|          SHN    6
10718  M01S01348.283l840 +++|          ADD    AL          FETCH LABEL SECTOR
10719  M01S01349.283l840 +++|          ADN    DILL
10720  M01S01350.283l840 +++|          CRD    T7
10721  M01S01351.283l840 +++|          LDD    FN+4        GET LABEL TRACK
10722  M01S01352.283l840 +++|          SHN    3
10723  M01S01353.283l840 +++|          ADN    ALGL
10724  M01S01354.283l840 +++|          CRD    CM
10725  M01S01355.283l840 +++|          ADN    DULL-ALGL   GET MACHINE INDEX
10726  M01S01356.283l840 +++|          CRD    CN
10727  M01S01357.283l840 +++|          LDD    CM+1        SET LABEL TRACK
10728  M01S01358.283l840 +++|          STD    T6
10729  M01S01359.283l840 +++|          LDD    CN+2        SET MRT SECTOR
10730  M01S01360.283l840 +++|          LPN    17
10731  M01S01361.283l840 +++|          ADN    MRTL
10732  M01S01362.283l840 +++|          RAD    T7
10733  M01S01363.283l840 +++|          UJN    RMR2        READ MRT
10734  M01S01364.283l840 +++|
10735  M01S01365.283l840 +++| RMR1     LDK    MMFL        GET LINK DEVICE EST ORDINAL
10736  M01S01366.283l840 +++|          CRD    CN
10737  M01S01367.283l840 +++|          LDD    CN+1
10738  M01S01368.283l840 +++|          LPC    777
10739  M01S01369.283l840 +++|          STD    T5
10740  M01S01370.283l840 +++|          LDD    TS          SET MST/TRT TRACK FOR DEVICE
10741  M01S01371.283l840 +++|          STD    T6
10742  M01S01372.283l840 +++|          LDD    CN+4        SET MRT SECTOR FOR THIS MACHINE
10743  M01S01373.283l840 +++|          ADN    MRST-1
10744  M01S01374.283l840 +++|          STD    T7
10745  M01S01375.283l840 +++| RMR2     SETMS  IO,DF
10746  M01S01376.283l840 +++|          LDC    BFMS
10747  M01S01377.283l840 +++|          RJM    RDS
10748  M01S01378.283l840 +++|          ENDMS
10749  M01S01379.283l840 +++|          LDD    EQ          RESTORE (T5)
10750  M01S01380.283l840 +++|          STD    T5
10751  M01S01381.283l840 +++|
10752  M01S01382.283l840 +++|*         COPY MRT TO CM AT THE END OF THE TRT.
10753  M01S01383.283l840 +++|
10754  M01S01384.283l840 +++|          RJM    PTA         PRESET TRT ADDRESS
10755  M01S01385.283l840 +++|          LDD    FN+4        GET TRT LENGTH
10756  M01S01386.283l840 +++|          SHN    3
10757  M01S01387.283l840 +++|          ADK    TDGL
10758  M01S01388.283l840 +++|          CRD    CM
10759  M01S01389.283l840 +++|          LDD    CM+2        SET MRT LENGTH
10760  M01S01390.283l840 +++|          STD    T0          SAVE TRT LENGTH
10761  M01S01391.283l840 +++|          ADN    7
10762  M01S01392.283l840 +++|          SHN    -3
10763  M01S01393.283l840 +++|          STD    CM+2
10764  M01S01394.283l840 +++|          RJM    STA         SET TRT FWA
10765  M01S01395.283l840 +++|          ADD    T0
10766  M01S01396.283l840 +++|          CWM    BFMS+2,CM+2 COPY MRT TO CM
10767  M01S01397.283l840 +++|          LJM    RMRX        RETURN
10768  M01S08360.msm     +++|          TITLE  COPY TRT.
10769  M01S08361.msm     +++| CTT      SPACE  4,10
10770  M01S08362.msm     +++|**        CTT - COPY TRT.
10771  M01S08363.msm     +++|*
10772  M01S08364.msm     +++|*         ENTRY  (CA) = CM ADDRESS OF TRT.
10773  M01S08365.msm     +++|*                (FN - FN+4) = EST ENTRY.
10774  M01S00092.ns2552  +++|*
10775  M01S00093.ns2552  +++|*         EXIT   (A) = 0.
10776  M01S08366.msm     +++|*
10777  M01S08367.msm     +++|*         USES   T6, CM - CM+4, CN - CN+4.
10778  M01S08368.msm     +++|*
Line S08369 Modification History
M01 (Added by) msm
M02 (Updated by) ns2552
Seq #  *Modification Id* Act 
----------------------------+
10779  M02S08369.ns2552  ---|*         CALLS  PTA, RMR, STA.
10780  M01S00094.ns2552  +++|*         CALLS  PTA, STA.
10781  M01S08370.msm     +++|
10782  M01S08371.msm     +++|
10783  M01S08372.msm     +++|
Line S08373 Modification History
M01 (Added by) msm
M02 (Updated by) ns2552
Seq #  *Modification Id* Act 
----------------------------+
10784  M02S08373.ns2552  ---| CTT      SUBR               ENTRY/EXIT
Line S08374 Modification History
M01 (Added by) msm
M02 (Updated by) ns2552
Seq #  *Modification Id* Act 
----------------------------+
10785  M02S08374.ns2552  ---|          RJM    PTA         PRESET FWA OF TRT
Line S08375 Modification History
M01 (Added by) msm
M02 (Updated by) ns2552
Seq #  *Modification Id* Act 
----------------------------+
10786  M02S08375.ns2552  ---|          LDD    RE          CHECK SHARED DEVICE STATUS
Line S08376 Modification History
M01 (Added by) msm
M02 (Updated by) ns2552
Seq #  *Modification Id* Act 
----------------------------+
10787  M02S08376.ns2552  ---|          LPC    1002
Proceed to Part 9