User Tools

Site Tools


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

Deck MSM Part 003

30 Modifications

Listing Sections

Source

Seq #  *Modification Id* Act 
----------------------------+
Line S00053 Modification History
M01 (Added by) msm48
M02 (Updated by) ns2788
Seq #  *Modification Id* Act 
----------------------------+
04090  M02S00053.ns2788  ---|*         LDN    1           (*1RF* CALL)
Line S03590 Modification History
M01 (Added by) msm
M02 (Updated by) ns2788
Seq #  *Modification Id* Act 
----------------------------+
04091  M02S03590.ns2788  ---|          NJN    PFE6        IF *REC/1RF* CALL
Line S03591 Modification History
M01 (Added by) msm
M02 (Updated by) ns2788
Seq #  *Modification Id* Act 
----------------------------+
04092  M02S03591.ns2788  ---|          LDD    CP          READ SENSE SWITCH WORD
Line S03592 Modification History
M01 (Added by) msm
M02 (Updated by) ns2788
Seq #  *Modification Id* Act 
----------------------------+
04093  M02S03592.ns2788  ---|          ADN    SNSW
Line S03593 Modification History
M01 (Added by) msm
M02 (Updated by) ns2788
Seq #  *Modification Id* Act 
----------------------------+
04094  M02S03593.ns2788  ---|          CRD    CM
Line S03594 Modification History
M01 (Added by) msm
M02 (Updated by) ns2788
Seq #  *Modification Id* Act 
----------------------------+
04095  M02S03594.ns2788  ---|          STD    T3
Line S03595 Modification History
M01 (Added by) msm
M02 (Updated by) ns2788
Seq #  *Modification Id* Act 
----------------------------+
04096  M02S03595.ns2788  ---|          LDN    3           SET PAUSE + NOGO FLAGS
Line S03596 Modification History
M01 (Added by) msm
M02 (Updated by) ns2788
Seq #  *Modification Id* Act 
----------------------------+
04097  M02S03596.ns2788  ---|          STD    CM+3
Line S03597 Modification History
M01 (Added by) msm
M02 (Updated by) ns2788
Seq #  *Modification Id* Act 
----------------------------+
04098  M02S03597.ns2788  ---|          LDD    T3          STORE SENSE SWITCH WORD
Line S03598 Modification History
M01 (Added by) msm
M02 (Updated by) ns2788
Seq #  *Modification Id* Act 
----------------------------+
04099  M02S03598.ns2788  ---|          CWD    CM
Line S03599 Modification History
M01 (Added by) msm
M02 (Updated by) ns2788
Seq #  *Modification Id* Act 
----------------------------+
04100  M02S03599.ns2788  ---| PFE4     LDD    T3
Line S03600 Modification History
M01 (Added by) msm
M02 (Updated by) ns2788
Seq #  *Modification Id* Act 
----------------------------+
04101  M02S03600.ns2788  ---|          ADN    MS2W-SNSW   STORE CONTROL POINT MESSAGE
Line S03601 Modification History
M01 (Added by) msm
M02 (Updated by) ns2788
Seq #  *Modification Id* Act 
----------------------------+
04102  M02S03601.ns2788  ---|          CWM    IDMC,TR
Line S03602 Modification History
M01 (Added by) msm
M02 (Updated by) ns2788
Seq #  *Modification Id* Act 
----------------------------+
04103  M02S03602.ns2788  ---|          LCN    0           WAIT AWHILE
Line S03603 Modification History
M01 (Added by) msm
M02 (Updated by) ns2788
Seq #  *Modification Id* Act 
----------------------------+
04104  M02S03603.ns2788  ---|          SBN    1
Line S03604 Modification History
M01 (Added by) msm
M02 (Updated by) ns2788
Seq #  *Modification Id* Act 
----------------------------+
04105  M02S03604.ns2788  ---|          NJN    *-1
Line S03605 Modification History
M01 (Added by) msm
M02 (Updated by) ns2788
Seq #  *Modification Id* Act 
----------------------------+
04106  M02S03605.ns2788  ---|          PAUSE  NE
Line S03606 Modification History
M01 (Added by) msm
M02 (Updated by) ns2788
Seq #  *Modification Id* Act 
----------------------------+
04107  M02S03606.ns2788  ---|          LDD    T3          READ SENSE SWITCH WORD
Line S03607 Modification History
M01 (Added by) msm
M02 (Updated by) ns2788
Seq #  *Modification Id* Act 
----------------------------+
04108  M02S03607.ns2788  ---|          CRD    CM
Line S03608 Modification History
M01 (Added by) msm
M02 (Updated by) ns2788
Seq #  *Modification Id* Act 
----------------------------+
04109  M02S03608.ns2788  ---|          LDD    CM+3        CHECK ON OPERATOR INPUT
Line S03609 Modification History
M01 (Added by) msm
M02 (Updated by) ns2788
Seq #  *Modification Id* Act 
----------------------------+
04110  M02S03609.ns2788  ---|          LPN    2
Line S03610 Modification History
M01 (Added by) msm
M02 (Updated by) ns2788
Seq #  *Modification Id* Act 
----------------------------+
04111  M02S03610.ns2788  ---|          NJN    PFE4        LOOP UNTIL OPERATOR RESPONDS
Line S03611 Modification History
M01 (Added by) msm
M02 (Updated by) ns2788
Seq #  *Modification Id* Act 
----------------------------+
04112  M02S03611.ns2788  ---|          LMD    CM+3        (A) = OPERATOR RESPONSE
Line S03612 Modification History
M01 (Added by) msm
M02 (Updated by) ns2788
Seq #  *Modification Id* Act 
----------------------------+
04113  M02S03612.ns2788  ---| PFE5     UJN    PFE8        RETURN
04114  M01S00126.ns2788  +++|          LJM    PFEX        RETURN
04115  M01S03613.msm     +++|
Line S03614 Modification History
M01 (Added by) msm
M02 (Updated by) ns2788
Seq #  *Modification Id* Act 
----------------------------+
04116  M02S03614.ns2788  ---|*         TELL *REC* TO ISSUE THE MESSAGE.
Line S03615 Modification History
M01 (Added by) msm
M02 (Updated by) ns2788
Seq #  *Modification Id* Act 
----------------------------+
04117  M02S03615.ns2788  ---|
Line S03616 Modification History
M01 (Added by) msm
M02 (Updated by) ns2788
Seq #  *Modification Id* Act 
----------------------------+
04118  M02S03616.ns2788  ---| PFE6     LDD    MA          WRITE OPERATOR MESSAGE
Line S03617 Modification History
M01 (Added by) msm
M02 (Updated by) ns2788
Seq #  *Modification Id* Act 
----------------------------+
04119  M02S03617.ns2788  ---|          CWM    IDMC,TR
Line S03618 Modification History
M01 (Added by) msm
M02 (Updated by) ns2788
Seq #  *Modification Id* Act 
----------------------------+
04120  M02S03618.ns2788  ---|          LDC    4000        INDICATE WAITING FOR OPERATOR REPLY
Line S03619 Modification History
M01 (Added by) msm
M02 (Updated by) ns2788
Seq #  *Modification Id* Act 
----------------------------+
04121  M02S03619.ns2788  ---|          STD    IR+3
Line S03620 Modification History
M01 (Added by) msm
M02 (Updated by) ns2788
Seq #  *Modification Id* Act 
----------------------------+
04122  M02S03620.ns2788  ---|          LDD    IA          STORE INPUT REGISTER
Line S03621 Modification History
M01 (Added by) msm
M02 (Updated by) ns2788
Seq #  *Modification Id* Act 
----------------------------+
04123  M02S03621.ns2788  ---|          CWD    IR
Line S03622 Modification History
M01 (Added by) msm
M02 (Updated by) ns2788
Seq #  *Modification Id* Act 
----------------------------+
04124  M02S03622.ns2788  ---| PFE7     DELAY              WAIT 125 USECS
Line S03623 Modification History
M01 (Added by) msm
M02 (Updated by) ns2788
Seq #  *Modification Id* Act 
----------------------------+
04125  M02S03623.ns2788  ---|          LDD    IA
Line S03624 Modification History
M01 (Added by) msm
M02 (Updated by) ns2788
Seq #  *Modification Id* Act 
----------------------------+
04126  M02S03624.ns2788  ---|          CRD    IR
Line S03625 Modification History
M01 (Added by) msm
M02 (Updated by) ns2788
Seq #  *Modification Id* Act 
----------------------------+
04127  M02S03625.ns2788  ---|          LDD    IR+3        CHECK RESPONSE FROM *REC*
Line S03626 Modification History
M01 (Added by) msm
M02 (Updated by) ns2788
Seq #  *Modification Id* Act 
----------------------------+
04128  M02S03626.ns2788  ---|          SHN    21-13
Line S03627 Modification History
M01 (Added by) msm
M02 (Updated by) ns2788
Seq #  *Modification Id* Act 
----------------------------+
04129  M02S03627.ns2788  ---|          MJN    PFE7        IF NO REPLY YET
Line S03628 Modification History
M01 (Added by) msm
M02 (Updated by) ns2788
Seq #  *Modification Id* Act 
----------------------------+
04130  M02S03628.ns2788  ---|*         SHN    13-21
Line S03629 Modification History
M01 (Added by) msm
M02 (Updated by) ns2788
Seq #  *Modification Id* Act 
----------------------------+
04131  M02S03629.ns2788  ---| PFE8     LJM    PFEX        RETURN
Line S03630 Modification History
M01 (Added by) msm
M02 (Updated by) ns2788
Seq #  *Modification Id* Act 
----------------------------+
04132  M02S03630.ns2788  ---|
04133  M01S00127.ns2788  +++| PFEE     DATA   H*EQXXX *
04134  M01S03631.msm     +++| PFEA     DATA   H*PF LENGTH ERROR *
04135  M01S03632.msm     +++| PFEB     DATA   H*UINDEX  *
04136  M01S03633.msm     +++| PFEC     DATA   H*FILENAME  *
Line S03634 Modification History
M01 (Added by) msm
M02 (Updated by) ns2788
Seq #  *Modification Id* Act 
----------------------------+
04137  M02S03634.ns2788  ---|
04138  M01S03635.msm     +++| PFED     DATA   C* TTTTT SSSSS LINKAGE ERROR.*
Line S03636 Modification History
M01 (Added by) msm
M02 (Updated by) ns2669
Seq #  *Modification Id* Act 
----------------------------+
04139  M02S03636.ns2669  ---| CTU      SPACE  4
04140  M01S00005.ns2669  +++| CTU      SPACE  4,10
04141  M01S03637.msm     +++|**        CTU - CLEAR TOTAL USER COUNTS.
04142  M01S03638.msm     +++|*
04143  M01S03639.msm     +++|*         ENTRY  (CN) = FILE TYPE.
04144  M01S03640.msm     +++|*                (FS+1) = FIRST TRACK OF FILE.
04145  M01S03641.msm     +++|*                (CN+1) = SYSTEM SECTOR REWRITE FLAG.
04146  M01S03642.msm     +++|*
Line S03643 Modification History
M01 (Added by) msm
M02 (Updated by) ns2669
Seq #  *Modification Id* Act 
----------------------------+
04147  M02S03643.ns2669  ---|*         USES   T1, T6.
04148  M01S00006.ns2669  +++|*         USES   T1.
04149  M01S03644.msm     +++|*
Line S03645 Modification History
M01 (Added by) msm
M02 (Updated by) ns2669
Seq #  *Modification Id* Act 
----------------------------+
04150  M02S03645.ns2669  ---|*         CALLS  WSS.
Line S03646 Modification History
M01 (Added by) msm
M02 (Updated by) ns2669
Seq #  *Modification Id* Act 
----------------------------+
04151  M02S03646.ns2669  ---|*
Line S03647 Modification History
M01 (Added by) msm
M02 (Updated by) ns2669
Seq #  *Modification Id* Act 
----------------------------+
04152  M02S03647.ns2669  ---|*         MACROS SETMS.
04153  M01S00007.ns2669  +++|*         CALLS  WSR.
04154  M01S03648.msm     +++|
04155  M01S03649.msm     +++|
04156  M01S03650.msm     +++| CTU2     AOM    PMFC        ADVANCE DAF RECOVERY COUNT
04157  M01S03651.msm     +++|
04158  M01S03652.msm     +++| CTU      SUBR               ENTRY/EXIT
04159  M01S03653.msm     +++|          LDD    CN+1
04160  M01S03654.msm     +++|          ZJN    CTU2        IF NO SYSTEM SECTOR REWRITE
04161  M01S03655.msm     +++|          LDD    CN
04162  M01S03656.msm     +++|          LMN    LIFT
04163  M01S03657.msm     +++|          ZJN    CTU2        IF LIBRARY FILE
04164  M01S03658.msm     +++|          LDC    5*MMPF+5
04165  M01S03659.msm     +++|          STD    T1
04166  M01S03660.msm     +++| CTU1     LDN    0           CLEAR USER COUNT FIELDS
04167  M01S03661.msm     +++|          STM    UCSS-1,T1
04168  M01S03662.msm     +++|          SOD    T1
04169  M01S03663.msm     +++|          NJN    CTU1
04170  M01S03664.msm     +++|          STM    CASS        CLEAR CURRENT ACCESS MODE
04171  M01S03665.msm     +++|          STM    FISS        CLEAR FAST ATTACH FLAGS
04172  M01S03666.msm     +++|          LDD    FS+1        RESET FIRST TRACK
Line S03667 Modification History
M01 (Added by) msm
M02 (Updated by) ns2669
Seq #  *Modification Id* Act 
----------------------------+
04173  M02S03667.ns2669  ---|          STD    T6
Line S03668 Modification History
M01 (Added by) msm
M02 (Updated by) ns2669
Seq #  *Modification Id* Act 
----------------------------+
04174  M02S03668.ns2669  ---|          SETMS  IO,RW
Line S03669 Modification History
M01 (Added by) msm
M02 (Updated by) ns2669
Seq #  *Modification Id* Act 
----------------------------+
04175  M02S03669.ns2669  ---|          RJM    WSS         WRITE SYSTEM SECTOR
04176  M01S00008.ns2669  +++|          RJM    WSR         WRITE SYSTEM SECTOR WITH REWRITE
04177  M01S03670.msm     +++|          UJN    CTU2        ADVANCE DAF RECOVERY COUNT
Line S03671 Modification History
M01 (Added by) msm
M02 (Updated by) ns2788
Seq #  *Modification Id* Act 
----------------------------+
04178  M02S03671.ns2788  ---| GDE      SPACE  4
04179  M01S00128.ns2788  +++| GDE      SPACE  4,15
04180  M01S03672.msm     +++|**        GDE - GET DAT ENTRY.
04181  M01S03673.msm     +++|*
04182  M01S03674.msm     +++|*         ENTRY  (FN - FN+4) = EST ENTRY FOR DEVICE.
04183  M01S03675.msm     +++|*                (T3) = 0 IF DEVICE NOT BEING INITIALIZED.
04184  M01S03676.msm     +++|*                (T7) = BYTE 0 OF MDGL WORD.
04185  M01S03677.msm     +++|*                (CN - CN+4) = TDGL WORD OF MST.
04186  M01S03678.msm     +++|*
04187  M01S03679.msm     +++|*         EXIT   (DATB) = SECOND WORD OF DAT ENTRY.
04188  M01S03680.msm     +++|*
04189  M01S03681.msm     +++|*         USES   T1, T2, CM - CM+4.
04190  M01S03682.msm     +++|*
04191  M01S03683.msm     +++|*         CALLS  CPS, CUS, IRM, WDE.
04192  M01S03684.msm     +++|*
04193  M01S03685.msm     +++|*         MACROS MMTE, MONITOR, UJMF.
04194  M01S03686.msm     +++|
04195  M01S03687.msm     +++|
04196  M01S03688.msm     +++| GDE3     LDD    CN+2        SET *DIT* OFFSET
04197  M01S03689.msm     +++|          SBN    10-7
04198  M01S03690.msm     +++|          SHN    -3
04199  M01S03691.msm     +++|          ADD    CN+2
04200  M01S03692.msm     +++|          STD    T2
04201  M01S03693.msm     +++|          LDN    0
04202  M01S03694.msm     +++|          STD    T1
04203  M01S03695.msm     +++| GDE4     AOD    T1
04204  M01S03696.msm     +++|          LMN    MISD
04205  M01S03697.msm     +++|          ZJN    GDEX        IF ALL ENTRIES CHECKED
04206  M01S03698.msm     +++|          LDD    T1
04207  M01S03699.msm     +++|          ADC    0           READ *DIT* ENTRY
04208  M01S03700.msm     +++| GDEC     EQU    *-1
04209  M01S03701.msm     +++|          ADD    T2
04210  M01S03702.msm     +++|          CRD    CM
04211  M01S03703.msm     +++|          LDD    CM+4
04212  M01S03704.msm     +++|          ZJN    GDE4        IF ENTRY NOT USED
04213  M01S03705.msm     +++|          LMC    *
04214  M01S03706.msm     +++| GDED     EQU    *-1
04215  M01S03707.msm     +++|          ZJN    GDE4        IF THIS MACHINE
04216  M01S03708.msm     +++|          LJM    GDE1        ISSUE RECOVERY MESSAGES
04217  M01S03709.msm     +++|
04218  M01S03710.msm     +++| GDE      SUBR               ENTRY/EXIT
04219  M01S03711.msm     +++|          LDD    FN
04220  M01S03712.msm     +++|          SHN    21-4
04221  M01S03713.msm     +++|          MJN    GDE3        IF INDEPENDENT SHARED DEVICE
04222  M01S03714.msm     +++|          UJMF   GDEX
04223  M01S03715.msm     +++|          LDN    1-1         WORD COUNT FOR *ECSM* REQUEST
04224  M01S03716.msm     +++|          STD    CM+1
04225  M01S03717.msm     +++|          LDD    T7          SET *DAT* ORDINAL FROM INDEX
04226  M01S03718.msm     +++|          LPC    377
04227  M01S03719.msm     +++|          SHN    1
04228  M01S03720.msm     +++|          ADC    1           ADD DAT TRACK ADDRESS
04229  M01S03721.msm     +++| GDEA     EQU    *-1
04230  M01S03722.msm     +++|          STD    CM+4
04231  M01S03723.msm     +++|          STM    WDEA
04232  M01S03724.msm     +++|          SHN    -14
04233  M01S03725.msm     +++|          ADC    RECS*1000
04234  M01S03726.msm     +++| GDEB     EQU    *-1
04235  M01S03727.msm     +++|          STD    CM+3
04236  M01S03728.msm     +++|          STM    WDEB
04237  M01S03729.msm     +++|          LDD    MA          CM ADDRESS = PP MESSAGE BUFFER
04238  M01S03730.msm     +++|          STD    CM+2
04239  M01S03731.msm     +++|          MONITOR ECSM
04240  M01S03732.msm     +++|          LDD    MA          READ *DAT* ENTRY TO PP BUFFER
04241  M01S03733.msm     +++|          CRM    DATB,ON
04242  M01S03734.msm     +++|          LDD    T3
04243  M01S03735.msm     +++|          NJN    GDE2        IF DEVICE BEING INITIALIZED
04244  M01S03736.msm     +++|          LDM    DATB+4      CHECK DEVICE STATUS
04245  M01S03737.msm     +++|          LPC    -0
04246  M01S03738.msm     +++|          MMTE   *-1
04247  M01S03739.msm     +++|          NJN    GDE1        IF RECOVERY COMPLETE
04248  M01S03740.msm     +++|          LJM    GDEX        RETURN
04249  M01S03741.msm     +++|
04250  M01S03742.msm     +++| GDE1     RJM    IRM         ISSUE RECOVERY MESSAGES
04251  M01S03743.msm     +++|          RJM    CPS         CHECK PFC SIZE
04252  M01S03744.msm     +++|          RJM    CUS
04253  M01S03745.msm     +++| GDE2     RJM    WDE         UPDATE DAT ENTRY
04254  M01S03746.msm     +++|          LJM    RDAX        EXIT OVERLAY
Line S03747 Modification History
M01 (Added by) msm
M02 (Updated by) ns2788
Seq #  *Modification Id* Act 
----------------------------+
04255  M02S03747.ns2788  ---| WDE      SPACE  4
04256  M01S00129.ns2788  +++| WDE      SPACE  4,10
04257  M01S03748.msm     +++|**        WDE - WRITE DAT ENTRY TO EXTENDED MEMORY.
04258  M01S03749.msm     +++|*
04259  M01S03750.msm     +++|*         ENTRY  *DATI* INTERLOCK SET.
04260  M01S03751.msm     +++|*                DAT ENTRY IN DATB.
04261  M01S03752.msm     +++|
04262  M01S03753.msm     +++|
04263  M01S03754.msm     +++| WDE      SUBR               ENTRY/EXIT
04264  M01S03755.msm     +++|          UJMF   WDEX
04265  M01S03756.msm     +++|          LDM    DATB+4      SET MACHINE ACCESS
04266  M01S03757.msm     +++|          LPC    -0
04267  M01S03758.msm     +++|          MMTE   *-1
04268  M01S03759.msm     +++|          LMC    0
04269  M01S03760.msm     +++|          MMTE   *-1
04270  M01S03761.msm     +++|          STM    DATB+4
04271  M01S03762.msm     +++|          LDC    **          SET DAT ADDRESS
04272  M01S03763.msm     +++| WDEA     EQU    *-1
04273  M01S03764.msm     +++|          STD    CM+4
04274  M01S03765.msm     +++|          LDC    **
04275  M01S03766.msm     +++| WDEB     EQU    *-1
04276  M01S03767.msm     +++|          ADD    TH
04277  M01S03768.msm     +++|          ERRNZ  RECS+1-WECS ADJUST IF *RECS/WECS* VALUES CHANGE
04278  M01S03769.msm     +++|          STD    CM+3
04279  M01S03770.msm     +++|          LDD    MA          SET CM ADDRESS OF ENTRY
04280  M01S03771.msm     +++|          STD    CM+2
04281  M01S03772.msm     +++|          CWM    DATB,ON
04282  M01S03773.msm     +++|          LDN    1-1         WORD COUNT FOR TRANSFER
04283  M01S03774.msm     +++|*         SHN    6
04284  M01S03775.msm     +++|          STD    CM+1
04285  M01S03776.msm     +++|          MONITOR ECSM
04286  M01S03777.msm     +++|          UJN    WDEX        RETURN
Line S03778 Modification History
M01 (Added by) msm
M02 (Updated by) ns2669
Seq #  *Modification Id* Act 
----------------------------+
04287  M02S03778.ns2669  ---|          SPACE  4
04288  M01S00009.ns2669  +++| WSR      SPACE  4,15
04289  M01S00010.ns2669  +++|**        WSR - WRITE SYSTEM SECTOR WITH REWRITE.
04290  M01S00011.ns2669  +++|*
04291  M01S00012.ns2669  +++|*         ENTRY  (A) = FIRST TRACK OF FILE.
04292  M01S00013.ns2669  +++|*                (T5) = EST ORDINAL.
04293  M01S00014.ns2669  +++|*                *SETMS IO* PERFORMED.
04294  M01S00015.ns2669  +++|*
04295  M01S00016.ns2669  +++|*         EXIT   (T6) = FIRST TRACK OF FILE.
04296  M01S00017.ns2669  +++|*
04297  M01S00018.ns2669  +++|*         USES   T6.
04298  M01S00019.ns2669  +++|*
04299  M01S00020.ns2669  +++|*         CALLS  WSS.
04300  M01S00021.ns2669  +++|*
04301  M01S00022.ns2669  +++|*         MACROS SETMS.
04302  M01S00023.ns2669  +++|
04303  M01S00024.ns2669  +++| WSR      SUBR               ENTRY/EXIT
04304  M01S00025.ns2669  +++|          STD    T6
04305  M01S00026.ns2669  +++|          SETMS  POSITION
04306  M01S00027.ns2669  +++|          LDM    UERR        SAVE ERROR PROCESSING OPTIONS
04307  M01S00028.ns2669  +++|          STM    WSRA+1
04308  M01S00029.ns2669  +++|          LMD    HN          SET REWRITE MODE
04309  M01S00030.ns2669  +++|          ERRNZ  EPRW-100    CODE DEPENDS ON VALUE
04310  M01S00031.ns2669  +++|          STM    UERR
04311  M01S00032.ns2669  +++|          SETMS  =,IO,RW
04312  M01S00033.ns2669  +++|          RJM    WSS         REWRITE SYSTEM SECTOR
04313  M01S00034.ns2669  +++| WSRA     LDC    0           RESET ERROR PROCESSING OPTIONS
04314  M01S00035.ns2669  +++|          STM    UERR
04315  M01S00036.ns2669  +++|          SETMS  =,IO
04316  M01S00037.ns2669  +++|          UJN    WSRX        RETURN
04317  M01S00038.ns2669  +++|          SPACE  4,10
04318  M01S03779.msm     +++|**        COMMON DECKS.
04319  M01S03780.msm     +++|
04320  M01S03781.msm     +++|
04321  M01S03782.msm     +++|*CALL     COMPACS
04322  M01S00005.ns2547  +++|*CALL     COMPCLC
Line S03783 Modification History
M01 (Added by) msm
M02 (Updated by) ns2788
Seq #  *Modification Id* Act 
----------------------------+
04323  M02S03783.ns2788  ---|*CALL     COMPSEI
Line S03784 Modification History
M01 (Added by) msm
M02 (Updated by) ns2788
Seq #  *Modification Id* Act 
----------------------------+
04324  M02S03784.ns2788  ---|*CALL     COMPSMI
Line S03785 Modification History
M01 (Added by) msm
M02 (Updated by) ns2788
Seq #  *Modification Id* Act 
----------------------------+
04325  M02S03785.ns2788  ---|*CALL     COMPSNT
Line S03786 Modification History
M01 (Added by) msm
M02 (Updated by) ns2788
Seq #  *Modification Id* Act 
----------------------------+
04326  M02S03786.ns2788  ---|*CALL     COMPWEI
Line S03787 Modification History
M01 (Added by) msm
M02 (Updated by) ns2788
Seq #  *Modification Id* Act 
----------------------------+
04327  M02S03787.ns2788  ---|*CALL     COMPWSS
04328  M01S03788.msm     +++|*CALL     COMPC2D
04329  M01S03789.msm     +++|*CALL     COMPSDA
04330  M01S03790.msm     +++|*CALL     COMPSDR
04331  M01S03791.msm     +++|*CALL     COMPRSS
04332  M01S00130.ns2788  +++|*CALL     COMPSEI
04333  M01S03792.msm     +++|*CALL     COMPSES
04334  M01S00131.ns2788  +++|*CALL     COMPSMI
04335  M01S00132.ns2788  +++|*CALL     COMPSNT
04336  M01S03793.msm     +++|*CALL     COMPTLB
04337  M01S03794.msm     +++|*CALL     COMPTGB
04338  M01S00133.ns2788  +++| VAL$     SET    1
04339  M01S00134.ns2788  +++|*CALL     COMPVLC
04340  M01S00135.ns2788  +++| WEIA     EQU    SBUF        USE *SBUF* FOR EOI BUFFER
04341  M01S00136.ns2788  +++|*CALL     COMPWEI
04342  M01S00137.ns2788  +++|*CALL     COMPWSS
04343  M01S00138.ns2788  +++|          LIST   X
04344  M01S03795.msm     +++|*CALL     COMPVEI
Line S03796 Modification History
M01 (Added by) msm
M02 (Updated by) ns2788
Seq #  *Modification Id* Act 
----------------------------+
04345  M02S03796.ns2788  ---| VAL$     SET    1
Line S03797 Modification History
M01 (Added by) msm
M02 (Updated by) ns2788
Seq #  *Modification Id* Act 
----------------------------+
04346  M02S03797.ns2788  ---|*CALL     COMPVLC
04347  M01S00139.ns2788  +++|          LIST   *
04348  M01S03798.msm     +++|
04349  M01S03799.msm     +++|
04350  M01S03800.msm     +++|          USE    LITERALS
04351  M01S03801.msm     +++|
04352  M01S03802.msm     +++|          ERRNG  SBUF-*      CODE OVERFLOWS INTO BUFFER
Line S03803 Modification History
M01 (Added by) msm
M02 (Updated by) ns2788
Seq #  *Modification Id* Act 
----------------------------+
04353  M02S03803.ns2788  ---| PRS      SPACE  4
04354  M01S00140.ns2788  +++|          TITLE  PRESET.
04355  M01S00141.ns2788  +++| PRS      SPACE  4,10
04356  M01S03804.msm     +++|**        PRS - PRESET.
04357  M01S03805.msm     +++|
04358  M01S03806.msm     +++|
04359  M01S03807.msm     +++| PRS2     STD    T2          SET INSTRUCTION ADDRESS
04360  M01S03808.msm     +++|          LDN    PSNI        REPLACE INSTRUCTION WITH *PSN*
04361  M01S03809.msm     +++|          STI    T2
04362  M01S03810.msm     +++|          AOD    T1          ADVANCE LIST ADDRESS
04363  M01S03811.msm     +++| PRS3     LDI    T1
04364  M01S03812.msm     +++|          NJN    PRS2        LOOP TO END OF LIST
04365  M01S03813.msm     +++| PRSX     LJM    RDEX        EXIT OVERLAY
04366  M01S03814.msm     +++|
04367  M01S03815.msm     +++| PRS      BSS    0           ENTRY
04368  M01S03816.msm     +++|          LDN    SSTL        READ SYSTEM STATUS
04369  M01S03817.msm     +++|          CRD    CM
04370  M01S03818.msm     +++|          LDD    CM          ENABLE/DISABLE TRACK CHAIN VALIDATION
04371  M01S03819.msm     +++|          LPN    4
04372  M01S03820.msm     +++|          LMN    4
04373  M01S03821.msm     +++|          RAM    VTCA
04374  M01S03822.msm     +++|          LDD    RS
04375  M01S03823.msm     +++|          NJN    PRS0        IF RECOVERY DEADSTART
Line S03824 Modification History
M01 (Added by) msm
M02 (Updated by) ns2788
Seq #  *Modification Id* Act 
----------------------------+
04376  M02S03824.ns2788  ---|          LDC    CQF         ENABLE QUEUE FILE CHECKING
Line S03825 Modification History
M01 (Added by) msm
M02 (Updated by) ns2788
Seq #  *Modification Id* Act 
----------------------------+
04377  M02S03825.ns2788  ---|          STM    RDAB
04378  M01S03826.msm     +++|          LDN    PSNI        SET LEVEL-0 RECOVERY
04379  M01S03827.msm     +++|          STM    RDAA
04380  M01S03828.msm     +++| PRS0     LDC    MMFL        READ MMF STATUS WORD
04381  M01S03829.msm     +++|          CRD    CM
04382  M01S03830.msm     +++|          LDD    CM          SET MACHINE ID
04383  M01S03831.msm     +++|          STM    GDED
04384  M01S03832.msm     +++|          LDD    CM+1
04385  M01S03833.msm     +++|          LPC    777
04386  M01S03834.msm     +++|          ZJN    PRSX        IF NOT MMF SYSTEM
04387  M01S03835.msm     +++|          SFA    EST         READ EST ENTRY FOR LINK DEVICE
04388  M01S03836.msm     +++|          ADK    EQDE
04389  M01S03837.msm     +++|          CRD    CN
04390  M01S03838.msm     +++|          LDD    CN+4        SET EXTENDED MEMORY MST POINTER
04391  M01S03839.msm     +++|          STM    LDMP
04392  M01S03840.msm     +++|          SHN    3           READ DEVICE ALLOCATION WORD
04393  M01S03841.msm     +++|          ADN    ALGL
04394  M01S03842.msm     +++|          CRD    CN
04395  M01S03843.msm     +++|          LDD    CN+4        SET DAT TRACK
04396  M01S03844.msm     +++|          STD    T6
04397  M01S03845.msm     +++|          LDN    0
04398  M01S03846.msm     +++|          STD    T7
04399  M01S03847.msm     +++|          LDC    T"QUAL"     SET LIST ADDRESS
04400  M01S03848.msm     +++|          STD    T1
04401  M01S03849.msm     +++|          LDI    T1          SET INSTRUCTION ADDRESS
04402  M01S03850.msm     +++| PRS1     STD    T0
04403  M01S03851.msm     +++|          LDD    CM+3        SET MACHINE MASK
04404  M01S03852.msm     +++|          LMI    T0
04405  M01S03853.msm     +++|          STI    T0
04406  M01S03854.msm     +++|          AOD    T1          ADVANCE LIST ADDRESS
04407  M01S03855.msm     +++|          LDI    T1
04408  M01S03856.msm     +++|          NJN    PRS1        LOOP TO END OF TABLE
04409  M01S03857.msm     +++|          RJM    CEA
04410  M01S03858.msm     +++|          LDD    CM+4        SET ADDRESS IN CODE
04411  M01S03859.msm     +++|          RAM    GDEA
04412  M01S03860.msm     +++|          LDD    CM+3
04413  M01S03861.msm     +++|          RAM    GDEB
04414  M01S03862.msm     +++|          LDC    LRDA        ENABLE MMF RECOVERY
04415  M01S03863.msm     +++|          STD    T1
04416  M01S03864.msm     +++|          LJM    PRS3
04417  M01S03865.msm     +++|          SPACE  4,10
04418  M01S03866.msm     +++|**        COMMON DECKS USED BY PRESET.
04419  M01S03867.msm     +++|
04420  M01S03868.msm     +++|
04421  M01S03869.msm     +++|*CALL     COMPCEA
04422  M01S03870.msm     +++|
04423  M01S03871.msm     +++|*         LIST OF *4DA* INSTRUCTIONS MODIFIED FOR MMF RECOVERY.
04424  M01S03872.msm     +++|
04425  M01S03873.msm     +++| LRDA     BSS    0
04426  M01S03874.msm     +++| LRDA     HERE
04427  M01S00106.283l840 +++|          ERRZR  LRDA-*      TABLE EMPTY - REMOVE PRESET CODE
04428  M01S03875.msm     +++|          CON    0           TERMINATE LIST
04429  M01S03876.msm     +++|
04430  M01S03877.msm     +++|*         LIST OF INSTRUCTIONS TO BE PRESET WITH MACHINE MASK.
04431  M01S03878.msm     +++|
04432  M01S03879.msm     +++| T"QUAL"  BSS    0
04433  M01S03880.msm     +++| T"QUAL"  HERE
04434  M01S00107.283l840 +++|          ERRZR  T"QUAL"-*   TABLE EMPTY - REMOVE PRESET CODE
04435  M01S03881.msm     +++|          CON    0           TERMINATE LIST
04436  M01S03882.msm     +++|
04437  M01S03883.msm     +++|          QUAL
04438  M01S03884.msm     +++|          SPACE  4,10
Line S03885 Modification History
M01 (Added by) msm
M02 (Updated by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
04439  M02S03885.272l774 ---|          OVERFLOW  O4DA     CHECK FOR OVERFLOW
04440  M01S00024.272l774 +++|          OVERFLOW  O4DA,EPFW  CHECK FOR OVERFLOW
04441  M01S03886.msm     +++|          TTL    MSM/4DB - DEVICE RECOVERY ROUTINES.
04442  M01S03887.msm     +++|          TITLE
04443  M01S03888.msm     +++|          IDENT  4DB,RDBX
04444  M01S03889.msm     +++|*COMMENT  MSM - DEVICE RECOVERY ROUTINES.
Line S03890 Modification History
M01 (Added by) msm
M02 (Updated by) 281l803
Seq #  *Modification Id* Act 
----------------------------+
04445  M02S03890.281l803 ---|          COMMENT COPYRIGHT CONTROL DATA CORP. 1973.
04446  M01S00005.281l803 +++|          COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
04447  M01S03891.msm     +++|          SPACE  4
04448  M01S03892.msm     +++|***              *4DB* CONTAINS ROUTINES FOR READING LABELS
04449  M01S03893.msm     +++|*         AND COMMON SUBROUTINES REQUIRED FOR TRT RECOVERY.
04450  M01S03894.msm     +++|          SPACE  4,10
04451  M01S03895.msm     +++|***       OPERATOR MESSAGES.
04452  M01S03896.msm     +++|*
04453  M01S03897.msm     +++|*         *EQXXX, DEVICE ACCESS ERROR.* = DEADSTART MESSAGE
04454  M01S03898.msm     +++|*         INDICATING THAT THE DEVICE ACCESS LEVEL LIMITS IN THE
04455  M01S03899.msm     +++|*         DEVICE LABEL OF A NON-REMOVABLE DEVICE ARE NOT WITHIN
04456  M01S03900.msm     +++|*         THE EQUIPMENT ACCESS LEVEL LIMITS FROM THE DEVICE EST
04457  M01S03901.msm     +++|*         ORDINAL FOR EQUIPMENT XXX.
04458  M01S03902.msm     +++|*
04459  M01S03903.msm     +++|*         *EQXXX, SECURED DEVICE.* = DEVICE ACCESS LEVEL LIMITS
04460  M01S03904.msm     +++|*         IN THE DEVICE LABEL ON AN UNSECURED SYSTEM ARE NOT
04461  M01S03905.msm     +++|*         WITHIN THE EQUIPMENT ACCESS LEVEL LIMITS FROM THE
04462  M01S03906.msm     +++|*         EST FOR EST ORDINAL XXX.
04463  M01S03907.msm     +++|          SPACE  4,10
04464  M01S03908.msm     +++|***       ERRLOG MESSAGES.
04465  M01S03909.msm     +++|*
04466  M01S03910.msm     +++|*         *EQXXX, SECURED DEVICE.* = DEVICE ACCESS LEVEL LIMITS
04467  M01S03911.msm     +++|*         IN THE DEVICE LABEL ON AN UNSECURED SYSTEM ARE NOT
04468  M01S03912.msm     +++|*         WITHIN THE EQUIPMENT ACCESS LEVEL LIMITS FROM THE
04469  M01S03913.msm     +++|*         EST FOR EST ORDINAL XXX.
04470  M01S03914.msm     +++|*
04471  M01S03915.msm     +++|*         EQXXX, SECURED DEVICE RECOVERED.* = DEVICE ACCESS LEVEL
04472  M01S03916.msm     +++|*         LIMITS IN THE DEVICE LABEL ON AN UNSECURED SYSTEM WERE
04473  M01S03917.msm     +++|*         NOT WITHIN THE EQUIPMENT ACCESS LEVEL LIMITS FROM THE
04474  M01S03918.msm     +++|*         EST FOR EST ORDINAL XXX, BUT THE OPERATOR ENTERED
04475  M01S03919.msm     +++|*         *GO,CMS.* TO RECOVER THE DEVICE.
04476  M01S03920.msm     +++|          SPACE  4,10
04477  M01S03921.msm     +++|**        MACRO DEFINITIONS.
04478  M01S03922.msm     +++|          SPACE  4,10
04479  M01S03923.msm     +++|**        TBLM = GENERATE TABLE OF ALTERNATE LABEL SECTORS.
04480  M01S03924.msm     +++|*
04481  M01S03925.msm     +++|*         TBLM   EQ
04482  M01S03926.msm     +++|*                EQ = MASS STORAGE EQUIPMENT MNEMONIC.
04483  M01S03927.msm     +++|
04484  M01S03928.msm     +++|
04485  M01S03929.msm     +++|          PURGMAC  TBLM
04486  M01S03930.msm     +++|
04487  M01S03931.msm     +++| TBLM     MACRO  EQ
04488  M01S03932.msm     +++|          CON    2R_EQ,LC_EQ
04489  M01S03933.msm     +++|          ENDM
04490  M01S03934.msm     +++|          SPACE  4
04491  M01S03935.msm     +++|**        INTERNAL TABLES AND BUFFERS.
04492  M01S03936.msm     +++|
04493  M01S03937.msm     +++|
04494  M01S03938.msm     +++| .1       MAX    /CMS/PRS,/RMS/PRS  BUFFER FOR *DAT* ENTRY
04495  M01S03939.msm     +++| DATB     EQU    .1
04496  M01S03940.msm     +++|
Line S03941 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
04497  M02S03941.283l840 ---| O4DB     EQU    DATB+12-4   OVERLAY ORIGIN
04498  M01S00108.283l840 +++| ORDB     EQU    DATB+12-4   *4DB* OVERLAY ORIGIN
04499  M01S00109.283l840 +++| ORDK     EQU    ORDB        *4DK* OVERLAY ORIGIN
04500  M01S03942.msm     +++|          SPACE  4
Line S03943 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
04501  M02S03943.283l840 ---|          ORG    O4DB
04502  M01S00110.283l840 +++|          ORG    ORDB
04503  M01S03944.msm     +++|
04504  M01S03945.msm     +++| RDB      SUBR               ENTRY/EXIT
04505  M01S03946.msm     +++|          LJM    PRS
04506  M01S03947.msm     +++|
04507  M01S03948.msm     +++| MMFP     CON    0           MMF PRESENT FLAG
04508  M01S03949.msm     +++| SDIF     CON    0           SHARED DEVICE INTERLOCK FLAG
04509  M01S03950.msm     +++| MRL      TITLE  MAIN RECOVERY LOOP.
04510  M01S03951.msm     +++|**        MRL - MAIN RECOVERY LOOP.
04511  M01S03952.msm     +++|*
04512  M01S03953.msm     +++|*         ENTRY  (A) = PROCESSOR ADDRESS.
04513  M01S03954.msm     +++|*
04514  M01S03955.msm     +++|*         EXIT   TO SELECTED PROCESSOR.
04515  M01S03956.msm     +++|*                (EQ) = (T5) = EST ORDINAL.
04516  M01S03957.msm     +++|*                (FN - FN+4) = EST ENTRY.
04517  M01S03958.msm     +++|*
04518  M01S03959.msm     +++|*         USES   T5, EQ, FN - FN+4.
04519  M01S03960.msm     +++|*
04520  M01S03961.msm     +++|*         CALLS  LRA, /RMS/SEM.
04521  M01S03962.msm     +++|*
04522  M01S03963.msm     +++|*         MACROS SFA.
04523  M01S03964.msm     +++|
04524  M01S03965.msm     +++|
04525  M01S03966.msm     +++| MRL1     LDC    0           EQUIPMENT FOR SPECIAL PROCESSING
04526  M01S03967.msm     +++| MRLC     EQU    *-1
04527  M01S03968.msm     +++|          ZJN    MRL2        IF NO SPECIAL EQUIPMENT CHECK
04528  M01S03969.msm     +++|          LMD    EQ
04529  M01S03970.msm     +++| MRLD     ZJN    MRL3        IF NOT TO PROCESS THIS EQUIPMENT
04530  M01S03971.msm     +++|*         NJN    MRL3        IF ONLY PROCESSING THIS EQUIPMENT
04531  M01S03972.msm     +++| MRL2     RJM    LRA         LOAD REFERENCE ADDRESS
04532  M01S03973.msm     +++|          ADD    EQ
04533  M01S03974.msm     +++|          CRD    RD
04534  M01S03975.msm     +++|          LDD    RE
04535  M01S03976.msm     +++|          SHN    0-13
04536  M01S03977.msm     +++|          ZJN    MRL3        IF NOT MASS STORAGE OR BEING RECOVERED
04537  M01S03978.msm     +++| MRLB     RJM    /RMS/SEM    SET EQUIPMENT MESSAGE
04538  M01S03979.msm     +++|*         UJN    *+2         (*CMS* CALL)
04539  M01S03980.msm     +++|          SFA    EST,EQ      READ EST ENTRY
04540  M01S03981.msm     +++|          ADK    EQDE
04541  M01S03982.msm     +++|          CRD    FN
04542  M01S03983.msm     +++|          LDD    RE          CHECK EST ENTRY
04543  M01S03984.msm     +++|          RJM    *
04544  M01S03985.msm     +++| MRLA     EQU    *-1
04545  M01S03986.msm     +++|          MJN    MRL3        IF REWRITE NOT REQUIRED
04546  M01S03987.msm     +++|          RJM    LRA         LOAD REFERENCE ADDRESS
04547  M01S03988.msm     +++|          ADD    EQ          REWRITE RECOVERY TABLES
04548  M01S03989.msm     +++|          CWD    RD
04549  M01S03990.msm     +++| MRL3     AOD    EQ          ADVANCE EQUIPMENT INDEX
04550  M01S03991.msm     +++| MRL4     STD    T5
04551  M01S03992.msm     +++|          LMD    LO
04552  M01S03993.msm     +++|          NJN    MRL1        IF NOT END OF MASS STORAGE DEVICES
04553  M01S03994.msm     +++|
04554  M01S03995.msm     +++| MRL      SUBR               ENTRY/EXIT
04555  M01S03996.msm     +++|          STM    MRLA        SET PROCESSOR ADDRESS
04556  M01S03997.msm     +++|          LDN    NOPE        INITIALIZE EST ORDINAL FOR SEARCH
04557  M01S03998.msm     +++|          STD    EQ
04558  M01S03999.msm     +++|          UJN    MRL4        ENTER LOOP
Line S04000 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
04559  M02S04000.283l840 ---|          SPACE  4
04560  M01S00111.283l840 +++|          TITLE  COMMON DECKS.
04561  M01S04001.msm     +++|**        COMMON DECKS.
04562  M01S04002.msm     +++|
04563  M01S04003.msm     +++|
04564  M01S04004.msm     +++| CEA$     EQU    0           ASSEMBLE *CEI* IN PRESET
04565  M01S04005.msm     +++|*CALL     COMPCEA
04566  M01S04006.msm     +++|          QUAL   CLC
04567  M01S04007.msm     +++|*CALL     COMPCLC
04568  M01S04008.msm     +++|          QUAL
04569  M01S00006.ns2547  +++| CDC      EQU    /CLC/CDC
04570  M01S04009.msm     +++| CLC      EQU    /CLC/CLC
04571  M01S04010.msm     +++| RLA$     EQU    1           DEFINE ENTRY CONDITIONS FOR *COMPRLA*
04572  M01S04011.msm     +++|*CALL     COMPRLA
04573  M01S04012.msm     +++|*CALL     COMPSES
04574  M01S04013.msm     +++|*CALL     COMPSMI
04575  M01S04014.msm     +++|*CALL     COMPTLB
04576  M01S04015.msm     +++|          TITLE  COMMON SUBROUTINES.
Line S04016 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
04577  M02S04016.283l840 ---| ATC      SPACE  4,10
04578  M01S00112.283l840 +++| ADE      SPACE  4,15
04579  M01S00113.283l840 +++|**        ADE - ACCESS DAT ENTRY.
04580  M01S00114.283l840 +++|*
04581  M01S00115.283l840 +++|*         ENTRY  (A) = *ECSM* FUNCTION CODE.
04582  M01S00116.283l840 +++|*                (QS) = DAT INDEX.
04583  M01S00117.283l840 +++|*                (ADEA) = DAT TRACK.
04584  M01S00118.283l840 +++|*
04585  M01S00119.283l840 +++|*         EXIT   (T6) = DAT TRACK.
04586  M01S00120.283l840 +++|*
04587  M01S00121.283l840 +++|*         USES   T6, T7, CM - CM+4.
04588  M01S00122.283l840 +++|*
04589  M01S00123.283l840 +++|*         CALLS  CEA.
04590  M01S00124.283l840 +++|*
04591  M01S00125.283l840 +++|*         MACROS MONITOR.
04592  M01S00126.283l840 +++|
04593  M01S00127.283l840 +++|
04594  M01S00128.283l840 +++| ADE      SUBR               ENTRY/EXIT
04595  M01S00129.283l840 +++|          SHN    11          SAVE FUNCTION CODE
04596  M01S00130.283l840 +++|          STM    ADEB
04597  M01S00131.283l840 +++|          LDC    **          SET DAT TRACK
04598  M01S00132.283l840 +++| ADEA     EQU    *-1
04599  M01S00133.283l840 +++|          STD    T6
04600  M01S00134.283l840 +++|          LDN    0
04601  M01S00135.283l840 +++|          STD    T7
04602  M01S00136.283l840 +++|          RJM    CEA         CONVERT EXTENDED MEMORY ADDRESS
04603  M01S00137.283l840 +++|          LDD    QS
04604  M01S00138.283l840 +++|          RAD    CM+4
04605  M01S00139.283l840 +++|          SHN    -14
04606  M01S00140.283l840 +++|          LMC    **          SET SUBFUNCTION
04607  M01S00141.283l840 +++|*         LMC    RECS*1000   (READ SUBFUNCTION)
04608  M01S00142.283l840 +++|*         LMC    WECS*1000   (WRITE SUBFUNCTION)
04609  M01S00143.283l840 +++| ADEB     EQU    *-1
04610  M01S00144.283l840 +++|          RAD    CM+3
04611  M01S00145.283l840 +++|          LDD    HN          SET WORD COUNT (2 WORDS)
04612  M01S00146.283l840 +++|          STD    CM+1
04613  M01S00147.283l840 +++|          LDD    MA          CM ADDRESS = PP MESSAGE BUFFER
04614  M01S00148.283l840 +++|          STD    CM+2
04615  M01S00149.283l840 +++|          MONITOR  ECSM
04616  M01S00150.283l840 +++|          LJM    ADEX        RETURN
04617  M01S00151.283l840 +++| ATC      SPACE  4,10
04618  M01S04017.msm     +++|**        ATC - ADJUST TRACK COUNT.
04619  M01S04018.msm     +++|*
04620  M01S04019.msm     +++|*         ENTRY  (FN - FN+4) = EST ENTRY.
04621  M01S04020.msm     +++|*                (T5) = EQUIPMENT.
04622  M01S04021.msm     +++|*
04623  M01S04022.msm     +++|*         EXIT  REMAINING TRACK AND SECTOR COUNTS SET.
04624  M01S04023.msm     +++|*
04625  M01S04024.msm     +++|*         USES   T0 - T3, CM - CM+4, CN - CN+4.
04626  M01S04025.msm     +++|*
04627  M01S04026.msm     +++|*         CALLS  PTA, STA.
04628  M01S04027.msm     +++|
04629  M01S04028.msm     +++|
04630  M01S04029.msm     +++| ATC      SUBR               ENTRY/EXIT
04631  M01S04030.msm     +++|          LDD    RE          CHECK SHARED DEVICE STATUS
04632  M01S04031.msm     +++|          LPC    1002
04633  M01S04032.msm     +++|          LMC    1002
04634  M01S04033.msm     +++|          ZJN    ATCX        IF PREVIOUSLY DEFINED AS SHARED
04635  M01S04034.msm     +++|          RJM    PTA         PRESET FWA OF TRT
04636  M01S04035.msm     +++|          LDD    FN+4        READ TDGL WORD OF MST
04637  M01S04036.msm     +++|          SHN    3
04638  M01S04037.msm     +++|          ADK    TDGL
04639  M01S04038.msm     +++|          CRD    CN
04640  M01S04039.msm     +++|          LDD    CN+2        SET LENGTH OF TRT
04641  M01S04040.msm     +++|          STD    T2
04642  M01S04041.msm     +++|          SHN    2
04643  M01S04042.msm     +++|          STD    CN+4
04644  M01S04043.msm     +++|          RJM    STA         SET FWA OF TRT
04645  M01S04044.msm     +++|          ADD    T2
04646  M01S04045.msm     +++|          UJN    ATC4        READ TRT
04647  M01S04046.msm     +++|
04648  M01S04047.msm     +++|*         CLEAR TRACK INTERLOCKS.
04649  M01S04048.msm     +++|
04650  M01S04049.msm     +++| ATC1     LDD    CM+4
04651  M01S04050.msm     +++|          LPC    7417
04652  M01S04051.msm     +++|          STD    CM+4
04653  M01S04052.msm     +++|          LPN    17          SET RESERVATION BITS
04654  M01S04053.msm     +++|          ZJN    ATC3        IF NONE
04655  M01S04054.msm     +++| ATC2     SHN    21-0
04656  M01S04055.msm     +++|          PJN    ATC2        IF BIT NOT RESERVED
04657  M01S04056.msm     +++|          STD    T0
04658  M01S04057.msm     +++|          SOD    CN+4
04659  M01S04058.msm     +++|          LDD    T0
04660  M01S04059.msm     +++|          NJN    ATC2        IF MORE RESERVATIONS
04661  M01S04060.msm     +++| ATC3     RJM    STA         SET FWA OF TRT
04662  M01S04061.msm     +++|          ADD    T2
04663  M01S04062.msm     +++|          CWD    CM
04664  M01S04063.msm     +++| ATC4     SBN    1
04665  M01S04064.msm     +++|          CRD    CM
04666  M01S04065.msm     +++|          SOD    T2
04667  M01S04066.msm     +++|          PJN    ATC1        IF NOT END OF TRT
04668  M01S04067.msm     +++|          LDC    4000        SET NOS MST FLAG
04669  M01S04068.msm     +++|          STD    CN+3
04670  M01S04069.msm     +++|          LDD    FN+4        STORE *TDGL*
04671  M01S04070.msm     +++|          SHN    3
04672  M01S04071.msm     +++|          ADK    TDGL
04673  M01S04072.msm     +++|          CWD    CN
04674  M01S04073.msm     +++|          LJM    ATCX        RETURN
04675  M01S04074.msm     +++| CDA      SPACE  4,10
04676  M01S04075.msm     +++|**        CDA - CHECK DEVICE AVAILABILITY.
04677  M01S04076.msm     +++|*
04678  M01S04077.msm     +++|*         ENTRY  (EQ) = EST ORDINAL.
04679  M01S04078.msm     +++|*                (FN - FN+4) = EST ENTRY.
04680  M01S04079.msm     +++|*
04681  M01S04080.msm     +++|*         EXIT   (A) = 0, IF AVAILABLE FOR RECOVERY.
04682  M01S04081.msm     +++|*                    .NE. 0, IF UNLOADED.
04683  M01S04082.msm     +++|*                    .LT. 0, IF NOT AVAILABLE FOR RECOVERY.
04684  M01S04083.msm     +++|*
04685  M01S04084.msm     +++|*         USES   FS - FS+4.
04686  M01S04085.msm     +++|
04687  M01S04086.msm     +++|
04688  M01S04087.msm     +++| CDA1     LCN    0
04689  M01S04088.msm     +++|
04690  M01S04089.msm     +++| CDA      SUBR               ENTRY/EXIT
04691  M01S04090.msm     +++|          LDD    RE
04692  M01S04091.msm     +++|          SHN    21-6
04693  M01S04092.msm     +++|          PJN    CDA1        IF DEVICE AVAILABLE
04694  M01S04093.msm     +++|          SHN    6-21
04695  M01S04094.msm     +++|          LPN    1
04696  M01S04095.msm     +++|          NJN    CDAX        IF LABEL NOT READ
04697  M01S04096.msm     +++|          LDD    FN+4        READ *STLL*
04698  M01S04097.msm     +++|          SHN    3
04699  M01S04098.msm     +++|          ADN    STLL
04700  M01S04099.msm     +++|          CRD    FS
04701  M01S04100.msm     +++|          SBN    STLL-PFGL   READ DEVICE DESCRIPTION
04702  M01S04101.msm     +++|          CRM    DLPB,TW
04703  M01S04102.msm     +++|          LDD    FS+4
04704  M01S04103.msm     +++|          LPN    MLDIU
04705  M01S04104.msm     +++|          NJN    CDA1        IF EQUIPMENT IN USE
04706  M01S04105.msm     +++|          LDD    FS
04707  M01S04106.msm     +++|          LPN    MLUNL
04708  M01S04107.msm     +++|          UJN    CDAX        RETURN
04709  M01S04108.msm     +++| CDI      SPACE  4,15
04710  M01S04109.msm     +++|**        CDI - CLEAR ISD INTERLOCKS.
04711  M01S04110.msm     +++|*
04712  M01S04111.msm     +++|*         ENTRY  (T5) = EST ORDINAL.
04713  M01S04112.msm     +++|*                (FN - FN+4) = EST ENTRY.
04714  M01S04113.msm     +++|*
04715  M01S04114.msm     +++|*         EXIT   INTERLOCKS CLEARED IN LABEL.
04716  M01S04115.msm     +++|*
04717  M01S04116.msm     +++|*         USES   T0, T1, T6, T7, CM - CM+4.
04718  M01S04117.msm     +++|*
Line S04118 Modification History
M01 (Added by) msm
M02 (Updated by) ns2547
Seq #  *Modification Id* Act 
----------------------------+
04719  M02S04118.ns2547  ---|*         CALLS  CLT, RDS, SMI, WDS.
04720  M01S00007.ns2547  +++|*         CALLS  CDC, CLT, RDS, SMI, WDS.
04721  M01S04119.msm     +++|*
04722  M01S04120.msm     +++|*         MACROS ENDMS, SETMS.
04723  M01S04121.msm     +++|
04724  M01S04122.msm     +++|
04725  M01S04123.msm     +++| CDI3     ENDMS
04726  M01S04124.msm     +++|
04727  M01S04125.msm     +++| CDI      SUBR               ENTRY/EXIT
04728  M01S04126.msm     +++|          LDD    FN
04729  M01S04127.msm     +++|          SHN    21-4
04730  M01S04128.msm     +++|          PJN    CDIX        IF NOT INDEPENDENT SHARED DEVICE
04731  M01S04129.msm     +++|          RJM    CLT
04732  M01S04130.msm     +++|          ZJN    CDIX        IF NO LABEL TRACK
04733  M01S04131.msm     +++|          LDN    0
04734  M01S04132.msm     +++|          STD    T7
04735  M01S04133.msm     +++|          SETMS  IO,(DE,DF)
04736  M01S04134.msm     +++|          LDC    BFMS
04737  M01S04135.msm     +++|          RJM    RDS
04738  M01S04136.msm     +++|          MJN    CDIX        IF READ ERROR
04739  M01S04137.msm     +++|          RJM    SMI
04740  M01S04138.msm     +++|          STD    T1          SET MACHINE INDEX
04741  M01S04139.msm     +++|          SHN    1
04742  M01S04140.msm     +++|          LMM    N4SS+5*SDGL+4
04743  M01S04141.msm     +++|          SCN    1
04744  M01S04142.msm     +++|          STD    T0          CHECK MST INTERLOCK
04745  M01S04143.msm     +++|          LPN    76
04746  M01S04144.msm     +++|          NJN    CDI1        IF NOT INTERLOCKED BY THIS MACHINE
04747  M01S04145.msm     +++|          LDD    T0
04748  M01S04146.msm     +++|          STM    N4SS+5*SDGL+4
04749  M01S04147.msm     +++| CDI1     LDD    T1          CALCULATE ADDRESS OF DIT ENTRY
04750  M01S04148.msm     +++|          SHN    2
04751  M01S04149.msm     +++|          ADC    DISS-5+4
04752  M01S04150.msm     +++|          RAD    T1
04753  M01S04151.msm     +++|          SBN    4
04754  M01S04152.msm     +++|          STM    CDIB
04755  M01S04153.msm     +++|          LDI    T1          CHECK MACHINE ID
04756  M01S04154.msm     +++|          LMC    0
04757  M01S04155.msm     +++| CDIA     EQU    *-1
04758  M01S04156.msm     +++|          NJN    CDI2        IF DIT ENTRY NOT ASSIGNED HERE
04759  M01S04157.msm     +++|          LDN    ZERL
04760  M01S04158.msm     +++|          CRM    *,ON
04761  M01S04159.msm     +++| CDIB     EQU    *-1
04762  M01S00008.ns2547  +++|          RJM    CDC         COMPUTE LABEL CHECKSUM
04763  M01S00009.ns2547  +++|          STM    CKSS
04764  M01S04160.msm     +++|          LDC    BFMS+WLSF
04765  M01S04161.msm     +++|          RJM    WDS
04766  M01S04162.msm     +++| CDI2     LJM    CDI3        RETURN
04767  M01S04163.msm     +++| CLR      SPACE  4
04768  M01S04164.msm     +++|**        CLR - CLEAR RESIDENT TRT.
04769  M01S04165.msm     +++|*
04770  M01S04166.msm     +++|*         ENTRY  (FN - FN+4) = EST ENTRY.
04771  M01S04167.msm     +++|*
04772  M01S04168.msm     +++|*         EXIT   (A) = MST ADDRESS OF TDGL WORD.
04773  M01S04169.msm     +++|*                CMR AREA FOR TRT CLEARED.
04774  M01S04170.msm     +++|*                FLAWS RETAINED FOR NON-REMOVABLE DEVICE.
04775  M01S04171.msm     +++|*                MRT FOR SHARED DEVICE CLEARED.
04776  M01S04172.msm     +++|*
04777  M01S04173.msm     +++|*         USES   T0 - T3, CM - CM+7, CN - CN+4.
04778  M01S04174.msm     +++|*
04779  M01S04175.msm     +++|*         CALLS  PTA, STA.
04780  M01S04176.msm     +++|
04781  M01S04177.msm     +++|
04782  M01S04178.msm     +++| CLR3     RJM    STA         SET FWA OF TRT
04783  M01S04179.msm     +++|          ADD    T1
04784  M01S04180.msm     +++|          CRD    CM
04785  M01S04181.msm     +++|          LDD    CM+4
04786  M01S04182.msm     +++|          ZJN    CLR7        IF NO TRACKS RESERVED
04787  M01S04183.msm     +++|          LDN    CM
04788  M01S04184.msm     +++|          STD    T3
04789  M01S04185.msm     +++|          LDN    ZERL        CLEAR ASSEMBLY
04790  M01S04186.msm     +++|          CRD    CN
04791  M01S04187.msm     +++| CLR4     LDI    T3          CHECK TRACK BYTE
04792  M01S04188.msm     +++|          LMC    3777
04793  M01S04189.msm     +++|          NJN    CLR5        IF TRACK NOT FLAWED
04794  M01S04190.msm     +++|          AOD    T0          ADVANCE FLAWED TRACK COUNT
04795  M01S04191.msm     +++|          LDI    T3          SET FLAW IN ASSEMBLY
04796  M01S04192.msm     +++|          STM    CN-CM,T3
04797  M01S04193.msm     +++|          LDM    CLRB-CM,T3  SET TRACK RESERVATION
04798  M01S04194.msm     +++|          RAD    CN+4
04799  M01S04195.msm     +++| CLR5     AOD    T3          ADVANCE BYTE INDEX
04800  M01S04196.msm     +++|          LMN    CM+4
04801  M01S04197.msm     +++|          NJN    CLR4        LOOP TO END OF TRT WORD
04802  M01S04198.msm     +++| CLR6     RJM    STA         SET FWA OF TRT
04803  M01S04199.msm     +++|          ADD    T1
04804  M01S04200.msm     +++|          CWD    CN
04805  M01S04201.msm     +++| CLR7     AOD    T1          ADVANCE WORD INDEX
04806  M01S04202.msm     +++|          LMD    T2
04807  M01S04203.msm     +++| CLR8     NJN    CLR3        LOOP TO END OF TRT
04808  M01S04204.msm     +++|*         NJN    CLR6        REMOVABLE DEVICE
04809  M01S04205.msm     +++|          STD    CM+4        CLEAR UNUSED BYTE
04810  M01S04206.msm     +++|          LDD    CM+6        SET TRACK COUNTS
04811  M01S04207.msm     +++|          STD    CM+3
04812  M01S04208.msm     +++|          SBD    T0
04813  M01S04209.msm     +++|          STD    CM+7
04814  M01S04210.msm     +++|          LDC    4000        SET NOS MST FLAG
04815  M01S04211.msm     +++|          STD    CM+6
04816  M01S04212.msm     +++|          LDD    FN+4        UPDATE MST
04817  M01S04213.msm     +++|          SHN    3
04818  M01S04214.msm     +++|          ADK    TDGL
04819  M01S04215.msm     +++|          CWD    CM+3
04820  M01S04216.msm     +++|
04821  M01S04217.msm     +++| CLR      SUBR               ENTRY/EXIT
04822  M01S04218.msm     +++|          RJM    PTA         PRESET FWA OF TRT
04823  M01S04219.msm     +++|          LDD    FN+4        READ *TDGL*
04824  M01S04220.msm     +++|          SHN    3
04825  M01S04221.msm     +++|          ADK    TDGL
04826  M01S04222.msm     +++|          CRD    CM+3
04827  M01S04223.msm     +++|          LDD    CM+3        SAVE TRACK COUNT FOR DEVICE
04828  M01S04224.msm     +++|          STD    CM+6
04829  M01S04225.msm     +++|          LDN    0           SET INDEX
04830  M01S04226.msm     +++|          STD    T1
04831  M01S04227.msm     +++|          LDD    CM+5        SET LENGTH OF TRT
04832  M01S04228.msm     +++|          STD    T2
04833  M01S04229.msm     +++|          STD    CM
04834  M01S04230.msm     +++|          ADN    7           SET END OF MRT
04835  M01S04231.msm     +++|          SHN    -3
04836  M01S04232.msm     +++|          ADD    CM
04837  M01S04233.msm     +++|          STD    T3
04838  M01S04234.msm     +++|          LDN    0
04839  M01S04235.msm     +++|          STD    T0
04840  M01S04236.msm     +++|          LDN    ZERL
04841  M01S04237.msm     +++|          CRD    CN
04842  M01S04238.msm     +++|          LDD    FN
04843  M01S04239.msm     +++|          SHN    21-11
04844  M01S04240.msm     +++|          PJN    CLR2        IF NOT SHARED DEVICE
04845  M01S04241.msm     +++|          SHN    21-4-21+11
04846  M01S04242.msm     +++|          PJN    CLR1        IF NOT AN ISHARED DEVICE
04847  M01S04243.msm     +++|          LDN    MISD        ADD IN *DIT* LENGTH
04848  M01S04244.msm     +++|          RAD    T3
04849  M01S04245.msm     +++| CLR1     RJM    STA         SET FWA OF TRT
04850  M01S04246.msm     +++|          ADD    CM          SET FWA OF MRT
04851  M01S04247.msm     +++|          CWD    CN          CLEAR MRT WORD
04852  M01S04248.msm     +++|          AOD    CM
04853  M01S04249.msm     +++|          LMD    T3
04854  M01S04250.msm     +++|          NJN    CLR1        LOOP TO END OF MRT
04855  M01S04251.msm     +++| CLR2     LDD    FN          EXTRACT REMOVABLE STATUS
04856  M01S04252.msm     +++|          SHN    -10
04857  M01S04253.msm     +++|          LPN    1
04858  M01S04254.msm     +++|          STD    T3
04859  M01S04255.msm     +++|          LDM    CLRA,T3     SET LOOP CONDITION
04860  M01S04256.msm     +++|          STM    CLR8
04861  M01S04257.msm     +++|          LJM    CLR8        CLEAR TRT
04862  M01S04258.msm     +++|
04863  M01S04259.msm     +++| CLRA     BSS    0
04864  M01S04260.msm     +++|          LOC    CLR8
04865  M01S04261.msm     +++|          NJN    CLR3
04866  M01S04262.msm     +++|          LOC    CLR8
04867  M01S04263.msm     +++|          NJN    CLR6
04868  M01S04264.msm     +++|
04869  M01S04265.msm     +++|          LOC    *O
04870  M01S04266.msm     +++|
04871  M01S04267.msm     +++|
04872  M01S04268.msm     +++| CLRB     CON    10          TRACK RESERVATION BITS
04873  M01S04269.msm     +++|          CON    4
04874  M01S04270.msm     +++|          CON    2
04875  M01S04271.msm     +++|          CON    1
04876  M01S04272.msm     +++| CLT      SPACE  4,10
04877  M01S04273.msm     +++|**        CLT - CHECK LABEL TRACK.
04878  M01S04274.msm     +++|*
04879  M01S04275.msm     +++|*         ENTRY  (T5) = EST ORDINAL.
04880  M01S04276.msm     +++|*                (FN - FN+4) = EST ENTRY.
04881  M01S04277.msm     +++|*
04882  M01S04278.msm     +++|*         EXIT   (A) = (T6) = LABEL TRACK.
04883  M01S04279.msm     +++|*                (CM+7) = BYTE 4 OF *ALGL* WORD.
04884  M01S04280.msm     +++|*
04885  M01S04281.msm     +++|*         USES   CM - CM+7.
04886  M01S04282.msm     +++|*
04887  M01S04283.msm     +++|*         CALLS  LRA.
04888  M01S04284.msm     +++|
04889  M01S04285.msm     +++|
04890  M01S04286.msm     +++| CLT      SUBR               ENTRY/EXIT
04891  M01S04287.msm     +++|          LDD    FN+4
04892  M01S04288.msm     +++|          SHN    3
04893  M01S04289.msm     +++|          ADN    ALGL        CHECK LABEL TRACK IN MST
04894  M01S04290.msm     +++|          CRD    CM+3
04895  M01S04291.msm     +++|          LDD    CM+4
04896  M01S04292.msm     +++|          NJN    CLT1        IF LABEL TRACK FOUND
04897  M01S04293.msm     +++|          RJM    LRA         LOAD REFERENCE ADDRESS
04898  M01S04294.msm     +++|          ADD    AL
04899  M01S04295.msm     +++|          ADN    ALGL        CHECK MST IMAGE FROM LABEL TRACK
04900  M01S04296.msm     +++|          CRD    CM
04901  M01S04297.msm     +++|          LDD    CM+1        SET LABEL TRACK
04902  M01S04298.msm     +++| CLT1     STD    T6
04903  M01S04299.msm     +++|          UJN    CLTX        RETURN
04904  M01S04300.msm     +++| CMT      SPACE  4
04905  M01S04301.msm     +++|**        CMT - CLEAR MST.
04906  M01S04302.msm     +++|*
04907  M01S04303.msm     +++|*         ENTRY  (FN - FN+4) = EST ENTRY.
04908  M01S04304.msm     +++|*                (FS - FS+4) = STLL WORD.
04909  M01S04305.msm     +++|*                (EC) = ERROR CODE.
04910  M01S04306.msm     +++|*                (EQ) = PRIMARY EST ORDINAL.
04911  M01S04307.msm     +++|*
04912  M01S04308.msm     +++|*         EXIT   (T6) = GLOBAL UNLOAD STATUS.
04913  M01S04309.msm     +++|*                EST - MST RESTORED TO ORIGINAL STATUS.
04914  M01S04310.msm     +++|*                DEVICE SET UNAVAILABLE.
04915  M01S04311.msm     +++|*
04916  M01S04312.msm     +++|*         USES   CN - CN+4, CM - CM+4, FS - FS+4, FN.
04917  M01S04313.msm     +++|*
04918  M01S04314.msm     +++|*         CALLS  CLR, CLT.
04919  M01S04315.msm     +++|*
04920  M01S04316.msm     +++|*         MACROS CMSTF, SFA.
04921  M01S04317.msm     +++|
04922  M01S04318.msm     +++|
04923  M01S04319.msm     +++| CMT      SUBR               ENTRY/EXIT
04924  M01S04320.msm     +++|          LDN    ZERL
04925  M01S04321.msm     +++|          CRD    CN
04926  M01S04322.msm     +++|          LDD    FN
04927  M01S04323.msm     +++|          LPC    7667
04928  M01S04324.msm     +++|          LMD    HN          SET DEVICE UNAVAILABLE
04929  M01S04325.msm     +++|          STD    FN
04930  M01S04326.msm     +++|          SFA    EST,T5      UPDATE EST
04931  M01S04327.msm     +++|          ADK    EQDE
04932  M01S04328.msm     +++|          CWD    FN
04933  M01S04329.msm     +++|          RJM    CLT
04934  M01S04330.msm     +++|          NJN    CMT1        IF LABEL TRACK KNOWN
04935  M01S04331.msm     +++|          LDD    CM+7
04936  M01S04332.msm     +++| CMT1     STD    CN+4
04937  M01S04333.msm     +++|          LDN    ZERL
04938  M01S04334.msm     +++|          CRD    CM
04939  M01S04335.msm     +++|          LDD    FN+4        CLEAR DEVICE ALLOCATION WORD
04940  M01S04336.msm     +++|          SHN    3
04941  M01S04337.msm     +++|          ADN    ALGL
04942  M01S04338.msm     +++|          CWD    CN
04943  M01S04339.msm     +++|          ADN    DULL-ALGL   CLEAR DAYFILE POINTERS
04944  M01S04340.msm     +++|          CWD    CM
04945  M01S04341.msm     +++|          SBN    DULL-MDGL   READ DRIVER WORD
04946  M01S04342.msm     +++|          CRD    CN
04947  M01S04343.msm     +++|          SBN    MDGL-SDGL
04948  M01S04344.msm     +++|          CRD    CM
04949  M01S04345.msm     +++|          SBN    SDGL-ACGL   GET DEVICE ACTIVITY WORD
04950  M01S04346.msm     +++|          CRD    CM+3
04951  M01S04347.msm     +++|          LDD    CM+7        RETAIN GLOBAL UNLOAD FLAG
04952  M01S04348.msm     +++|          LPN    MGUNL
04953  M01S04349.msm     +++|          STD    CM+7
04954  M01S04350.msm     +++|          STD    T6
04955  M01S04351.msm     +++|          LDN    ZERL        CLEAR TRT UPDATE STATUS
04956  M01S04352.msm     +++|          CRD    CM+2
04957  M01S04353.msm     +++|
04958  M01S04354.msm     +++|*         SET DEVICE STATUS.
04959  M01S04355.msm     +++|
04960  M01S04356.msm     +++|          LDD    FS          RETAIN INTIALIZE AND EQUIPMENT STATUS
04961  M01S04357.msm     +++|          SCN    MLCKP
04962  M01S04358.msm     +++|          STD    FS
04963  M01S04359.msm     +++|          LDN    MLDIU+MLMTI SET DEVICE IN USE
04964  M01S04360.msm     +++|          STD    FS+4
04965  M01S04361.msm     +++|          LDD    CN          CLEAR AUXILIARY STATUS
04966  M01S04362.msm     +++|          LPC    5777
04967  M01S04363.msm     +++|          STD    CN
04968  M01S04364.msm     +++|          LDD    T5
04969  M01S04365.msm     +++|          LMD    EQ
04970  M01S04366.msm     +++|          NJN    CMT2        IF NOT PRIMARY EQUIPMENT
04971  M01S04367.msm     +++|          LDD    FS+1        SET ERROR CODE
04972  M01S04368.msm     +++|          SCN    77
04973  M01S04369.msm     +++|          LMD    EC
04974  M01S04370.msm     +++|          STD    FS+1
04975  M01S04371.msm     +++|          LDD    FN
04976  M01S04372.msm     +++|          SHN    21-11
Line S04373 Modification History
M01 (Added by) msm
M02 (Updated by) msm37
Seq #  *Modification Id* Act 
----------------------------+
04977  M02S04373.msm37   ---|          MJN    CMT2        IF SHARED DEVICE
04978  M01S00001.msm37   +++|          MJN    CMT3        IF SHARED DEVICE
04979  M01S04374.msm     +++|          LDD    CN          CLEAR *DAT* INDEX
04980  M01S04375.msm     +++|          LPC    7400
04981  M01S04376.msm     +++|          STD    CN
Line S04377 Modification History
M01 (Added by) msm
M02 (Updated by) msm37
Seq #  *Modification Id* Act 
----------------------------+
04982  M02S04377.msm37   ---| CMT2     LDD    FN+4        STORE MST PARAMETERS
04983  M01S00002.msm37   +++|          UJN    CMT3        STORE MST PARAMETERS
04984  M01S00003.msm37   +++|
04985  M01S00004.msm37   +++| CMT2     LDD    FN+4        CLEAR DEVICE AND USER DESCRIPTION
04986  M01S00005.msm37   +++|          SHN    3
04987  M01S00006.msm37   +++|          ADK    PFGL
04988  M01S00007.msm37   +++|          CWD    CM+2
04989  M01S00008.msm37   +++|          ADK    PUGL-PFGL
04990  M01S00009.msm37   +++|          CWD    CM+2
04991  M01S00010.msm37   +++| CMT3     LDD    FN+4        STORE MST PARAMETERS
04992  M01S04378.msm     +++|          SHN    3
04993  M01S04379.msm     +++|          ADN    MDGL        RESET DRIVER CHARACTERISTICS
04994  M01S04380.msm     +++|          CWD    CN
04995  M01S04381.msm     +++|          ADN    STLL-MDGL   STORE *STLL*
04996  M01S04382.msm     +++|          CWD    FS
04997  M01S04383.msm     +++|          SBN    STLL-SDGL
04998  M01S04384.msm     +++|          CWD    CM
04999  M01S04385.msm     +++|          SBN    SDGL-ACGL   STORE DEVICE ACTIVITY WORD
05000  M01S04386.msm     +++|          CWD    CM+3
05001  M01S04387.msm     +++|          ADN    ISGL-ACGL   CLEAR INSTALLATION AREA
05002  M01S04388.msm     +++|          CWD    CM+2
05003  M01S04389.msm     +++|          ADN    I2GL-ISGL
05004  M01S04390.msm     +++|          CWD    CM+2
05005  M01S04391.msm     +++|          ADN    CTLL-I2GL   CLEAR ERROR COUNTS
05006  M01S04392.msm     +++|          CWD    CM+2
05007  M01S04393.msm     +++|          RJM    CLR         CLEAR TRT
05008  M01S04394.msm     +++|          RJM    LRA         LOAD REFERENCE ADDRESS
05009  M01S04395.msm     +++|          ADD    T5
05010  M01S04396.msm     +++|          CRD    RD
05011  M01S04397.msm     +++|          CMSTF  LDIU        CLEAR DEVICE IN USE
05012  M01S04398.msm     +++|*         LDN    0           INHIBIT FURTHER PROCESSING OF DEVICE
05013  M01S04399.msm     +++|          STD    RE
05014  M01S04400.msm     +++|          RJM    LRA         LOAD REFERENCE ADDRESS
05015  M01S04401.msm     +++|          ADD    T5
05016  M01S04402.msm     +++|          CWD    RD          RESTORE RECOVERY TABLE VALUES
05017  M01S04403.msm     +++|          LJM    CMTX
05018  M01S04404.msm     +++| IES      SPACE  4
05019  M01S04405.msm     +++|**        IES - INITIALIZE EQUIPMENT STATUS.
05020  M01S04406.msm     +++|*
05021  M01S04407.msm     +++|*         ENTRY  (T5) = EQUIPMENT.
05022  M01S04408.msm     +++|*                (EC) = ERROR CODE FOR PRIMARY EQUIPMENT.
05023  M01S04409.msm     +++|*                (EQ) = PRIMARY EST ORDINAL.
05024  M01S04410.msm     +++|*
05025  M01S04411.msm     +++|*         EXIT   ALL EQUIPMENT IN CHAIN RESTORED TO ORIGINAL CONFIGUR-
05026  M01S04412.msm     +++|*                ATION AND SET AS UNAVAILABLE.
05027  M01S04413.msm     +++|*                (A) .LT. 0 IF RECOVERY INFORMATION NOT TO
05028  M01S04414.msm     +++|*                BE REWRITTEN TO CM RETURN TO *MRL*.
05029  M01S04415.msm     +++|*
Line S04416 Modification History
M01 (Added by) msm
M02 (Updated by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
05030  M02S04416.272l774 ---|*         USES   UC, CN - CN+4, FN - FN+4, FS - FS+4, T4 - T7.
05031  M01S00025.272l774 +++|*         USES   T4, T5, T7, UC, CN - CN+4, FN - FN+4, FS - FS+4.
05032  M01S04417.msm     +++|*
Line S04418 Modification History
M01 (Added by) msm
M02 (Updated by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
05033  M02S04418.272l774 ---|*         CALLS  CDI, CMT, LRA, SSL.
05034  M01S00026.272l774 +++|*         CALLS  CDI, CMT, SSL.
05035  M01S04419.msm     +++|*
05036  M01S04420.msm     +++|*         MACROS SFA, SMSTF.
05037  M01S04421.msm     +++|
05038  M01S04422.msm     +++|
05039  M01S04423.msm     +++| IES      SUBR               ENTRY/EXIT
05040  M01S00001.ns2576  +++|          SMSTF  LPTU        PROHIBIT TRT UPDATE BY *1RU*
05041  M01S04424.msm     +++|          SFA    EST,T5      READ EST ENTRY
05042  M01S04425.msm     +++|          ADK    EQDE
05043  M01S04426.msm     +++|          CRD    FN
05044  M01S04427.msm     +++|          LDD    FN+4
05045  M01S04428.msm     +++|          SHN    3
05046  M01S04429.msm     +++|          ADN    DDLL        READ DEVICE DESCRIPTION
05047  M01S04430.msm     +++|          CRD    CN
05048  M01S04431.msm     +++|          LDD    CN          SET TOTAL UNIT COUNT
05049  M01S04432.msm     +++|          LPN    7
05050  M01S04433.msm     +++|          STD    UC
Line S04434 Modification History
M01 (Added by) msm
M02 (Updated by) ns2768
Seq #  *Modification Id* Act 
----------------------------+
05051  M02S04434.ns2768  ---|          LDD    CN          SET UNIT COUNT = ORIGINAL UNIT COUNT
Line S04435 Modification History
M01 (Added by) msm
M02 (Updated by) 272l774
M03 (Updated by) ns2768
Seq #  *Modification Id* Act 
----------------------------+
05052  M03S04435.ns2768  ---|          LPN    70
Line S00027 Modification History
M01 (Added by) 272l774
M02 (Updated by) ns2768
Seq #  *Modification Id* Act 
----------------------------+
05053  M02S00027.ns2768  ---|          SCN    7
05054  M01S00013.ns2768  +++|          LMD    CN          SET UNIT COUNT = ORIGINAL UNIT COUNT
05055  M01S04436.msm     +++|          STD    CN
05056  M01S04437.msm     +++|          SHN    -3
05057  M01S00028.272l774 +++|          LPN    7
05058  M01S04438.msm     +++|          RAD    CN
05059  M01S04439.msm     +++|          LPN    7           CHECK UNIT COUNTS
05060  M01S04440.msm     +++|          LMD    UC
05061  M01S04441.msm     +++|          ZJN    IES1        IF NO CHANGE IN UNIT COUNT
05062  M01S04442.msm     +++|
05063  M01S04443.msm     +++|*         RESTORE EQUIPMENT TO ORIGINAL STATUS.
05064  M01S04444.msm     +++|
05065  M01S04445.msm     +++|          LDD    FN+4        RESET ORIGINAL UNIT COUNT
05066  M01S04446.msm     +++|          SHN    3
05067  M01S04447.msm     +++|          ADN    DDLL
05068  M01S04448.msm     +++|          CWD    CN
05069  M01S04449.msm     +++|          RJM    SSL         SET SECTOR LIMITS
05070  M01S04450.msm     +++| IES1     RJM    CDI         CLEAR ISD INTERLOCKS
05071  M01S04451.msm     +++|          LDD    FN+4        GET *DDLL* WORD FROM MST
05072  M01S04452.msm     +++|          SHN    3
05073  M01S04453.msm     +++|          ADN    DDLL
05074  M01S04454.msm     +++|          CRD    CN
05075  M01S04455.msm     +++|          SBN    DDLL-STLL
05076  M01S04456.msm     +++|          CRD    FS
05077  M01S04457.msm     +++|          LDD    FS+4        SAVE CHAINED EST ORDINAL
05078  M01S04458.msm     +++|          SHN    -3
05079  M01S04459.msm     +++|          STD    T7
05080  M01S04460.msm     +++|          LDD    CN          SET ORIGINAL UNIT COUNT
05081  M01S04461.msm     +++|          SHN    -3
05082  M01S04462.msm     +++|          LPN    7
05083  M01S04463.msm     +++|          STD    T4
05084  M01S04464.msm     +++| IES2     RJM    CMT         CLEAR MST PARAMETERS
05085  M01S04465.msm     +++|          LDD    T7
05086  M01S04466.msm     +++|          NJN    IES4        IF NOT END OF CHAIN
05087  M01S04467.msm     +++|          LCN    0           DISABLE *MRL* REWRITE OF RECOVERY TABLE
05088  M01S04468.msm     +++| IES3     LJM    IESX        RETURN
05089  M01S04469.msm     +++|
05090  M01S04470.msm     +++|*         CHECK NEXT EQUIPMENT IN CHAIN.
05091  M01S04471.msm     +++|
05092  M01S04472.msm     +++| IES4     STD    T5
05093  M01S04473.msm     +++|          LDD    UC
05094  M01S04474.msm     +++|          SBD    T4
05095  M01S04475.msm     +++|          SBN    1
05096  M01S04476.msm     +++|          MJN    IES3        IF NO MORE UNITS IN CHAIN
05097  M01S04477.msm     +++|          STD    UC
05098  M01S04478.msm     +++|          SFA    EST,T5      READ NEXT EST ENTRY
05099  M01S04479.msm     +++|          ADK    EQDE
05100  M01S04480.msm     +++|          CRD    FN
05101  M01S04481.msm     +++|          SMSTF  LUNL        SET LOCAL UNLOAD
05102  M01S04482.msm     +++|          LDD    T6
05103  M01S04483.msm     +++|          ZJN    IES5        IF LAST EQUIPMENT NOT GLOBALLY UNLOADED
05104  M01S04484.msm     +++|          SMSTF  GUNL        SET GLOBAL UNLOAD
05105  M01S04485.msm     +++| IES5     LJM    IES1        CHECK NEXT EQUIPMENT
05106  M01S04486.msm     +++| SSL      SPACE  4
05107  M01S04487.msm     +++|**        SSL - SET SECTOR LIMITS.
05108  M01S04488.msm     +++|*
05109  M01S04489.msm     +++|*         ENTRY  (FN - FN+4) = EST ENTRY.
05110  M01S04490.msm     +++|*
05111  M01S04491.msm     +++|*         EXIT   SECTOR LIMITS SET IN MST WORD (MDGL).
05112  M01S04492.msm     +++|*
05113  M01S04493.msm     +++|*         USES   T2, T3, CN - CN+4, CM - CM+4.
05114  M01S04494.msm     +++|
05115  M01S04495.msm     +++|
05116  M01S04496.msm     +++| SSL2     LDD    FN+4        STORE DRIVER WORD
05117  M01S04497.msm     +++|          SHN    3
05118  M01S04498.msm     +++|          ADN    MDGL
05119  M01S04499.msm     +++|          CWD    CN
05120  M01S04500.msm     +++|
05121  M01S04501.msm     +++| SSL      SUBR               ENTRY/EXIT
05122  M01S04502.msm     +++|          LDD    FN+4        READ DRIVER WORD FROM MST
05123  M01S04503.msm     +++|          SHN    3
05124  M01S04504.msm     +++|          ADN    MDGL
05125  M01S04505.msm     +++|          CRD    CN
05126  M01S04506.msm     +++|          ADN    DDLL-MDGL
05127  M01S04507.msm     +++|          CRD    CM
05128  M01S04508.msm     +++|          LDD    CM
05129  M01S04509.msm     +++|          LPN    7
05130  M01S04510.msm     +++|          STD    T2
05131  M01S04511.msm     +++|          LDD    CN+1        SET SINGLE UNIT SECTOR LIMIT
05132  M01S04512.msm     +++|          LPC    3777
05133  M01S04513.msm     +++|          STD    T3
05134  M01S04514.msm     +++|          STD    CN+4
05135  M01S04515.msm     +++|
05136  M01S04516.msm     +++|*         SET SECTOR LIMITS FOR MULTI UNIT DEVICE.
05137  M01S04517.msm     +++|
05138  M01S04518.msm     +++| SSL1     SOD    T2          DECREMENT UNIT COUNT
05139  M01S04519.msm     +++|          MJN    SSL2        IF NO MORE UNITS
05140  M01S04520.msm     +++|          LDD    T3
05141  M01S04521.msm     +++|          RAD    CN+4
05142  M01S04522.msm     +++|          UJN    SSL1
Line S04523 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
05143  M02S04523.283l840 ---|          TITLE  MMF ROUTINES.
Line S04524 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
05144  M02S04524.283l840 ---| CDE      SPACE  4,15
Line S04525 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
05145  M02S04525.283l840 ---|          QUAL   MMF
Line S04526 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
05146  M02S04526.283l840 ---|**        CDE - CHECK DAT ENTRY.
Line S04527 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
05147  M02S04527.283l840 ---|*
Line S04528 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
05148  M02S04528.283l840 ---|*         ENTRY  (DI) = DAT INDEX FROM MST.
Line S04529 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
05149  M02S04529.283l840 ---|*                (QS) = INDEX INTO DEVICE ACCESS TABLE.
Line S04530 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
05150  M02S04530.283l840 ---|*                (T2) = ADDRESS OF DATB+11.
Line S04531 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
05151  M02S04531.283l840 ---|*                (FN - FN+4) = EST ENTRY.
Line S04532 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
05152  M02S04532.283l840 ---|*                (DATB) = DAT ENTRY.
Line S04533 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
05153  M02S04533.283l840 ---|*
Line S04534 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
05154  M02S04534.283l840 ---|*         EXIT   (A) = 0 IF NO DAT CONFLICTS.
Line S04535 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
05155  M02S04535.283l840 ---|*                (T6) = 0 IF DAT ENTRY FOR NON-SHARED DEVICE.
Line S04536 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
05156  M02S04536.283l840 ---|*                     = EXTENDED MEMORY TRACK IF SHARED DEVICE ENTRY.
Line S04537 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
05157  M02S04537.283l840 ---|*
Line S04538 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
05158  M02S04538.283l840 ---|*         EREXIT (A) = ADDRESS OF ERROR MESSAGE.
05159  M01S00152.283l840 +++|          SPACE  4,10
05160  M01S00153.283l840 +++| MBUF     EQU    *           MST BUFFER
05161  M01S04539.msm     +++|
05162  M01S00154.283l840 +++| OVLA     EQU    MBUF+5*MSTL+5  OVERLAY LOAD ADDRESS
05163  M01S04540.msm     +++|
Line S04541 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
05164  M02S04541.283l840 ---| CDE2     LDI    T2          CHECK MACHINE ACCESS BYTE
Line S04542 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
05165  M02S04542.283l840 ---|          SHN    21-13
Line S04543 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
05166  M02S04543.283l840 ---|          MJN    CDE3        IF RECOVERY IN PROGRESS
Line S04544 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
05167  M02S04544.283l840 ---|          LDD    DI          CHECK DAT INDEX
Line S04545 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
05168  M02S04545.283l840 ---|          LMD    QS
Line S04546 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
05169  M02S04546.283l840 ---|          ZJN    CDEX        IF VALID INDEX
Line S04547 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
05170  M02S04547.283l840 ---|          LMD    QS
Line S04548 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
05171  M02S04548.283l840 ---|          ZJN    CDEX        IF NO DAT INDEX IN MST
Line S04549 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
05172  M02S04549.283l840 ---| CDE3     LDC    CSDC+3
Line S04550 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
05173  M02S04550.283l840 ---|
Line S04551 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
05174  M02S04551.283l840 ---| CDE      SUBR               ENTRY/EXIT
Line S04552 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
05175  M02S04552.283l840 ---|          LDM    DATB+4      SET ECS POINTER FOR SHARED DEVICE
Line S04553 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
05176  M02S04553.283l840 ---|          STD    T6
Line S04554 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
05177  M02S04554.283l840 ---|          SHN    11-13
Line S04555 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
05178  M02S04555.283l840 ---|          LMD    FN          MAP TRACK BIT WITH SHARE FLAG
Line S04556 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
05179  M02S04556.283l840 ---|          SHN    21-11
Line S04557 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
05180  M02S04557.283l840 ---|          PJN    CDE2        IF COMPARE
Line S04558 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
05181  M02S04558.283l840 ---|          LDD    T6
Line S04559 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
05182  M02S04559.283l840 ---|          ZJN    CDE1        IF DAT ENTRY FOR NON-SHARED DEVICE
Line S04560 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
05183  M02S04560.283l840 ---|          LDN    CSDC-CSDB
Line S04561 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
05184  M02S04561.283l840 ---| CDE1     ADC    CSDB        SET ADDRESS OF ERROR MESSAGE
Line S04562 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
05185  M02S04562.283l840 ---|          UJN    CDEX        RETURN
Line S04563 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
05186  M02S04563.283l840 ---| CSD      SPACE  4,15
Line S04564 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
05187  M02S04564.283l840 ---|**        CSD - CHECK SHARED DEVICE STATUS.
Line S04565 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
05188  M02S04565.283l840 ---|*
Line S04566 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
05189  M02S04566.283l840 ---|*         ENTRY  (EQ) = DEVICE EST ORDINAL.
Line S04567 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
05190  M02S04567.283l840 ---|*                (RS) = RECOVERY STATUS.
Line S04568 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
05191  M02S04568.283l840 ---|*                (CN - CN+4) = PF DESCRIPTOR WORD (PFGL).
Line S04569 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
05192  M02S04569.283l840 ---|*                (FN - FN+4) = EST ENTRY.
Line S04570 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
05193  M02S04570.283l840 ---|*
Line S04571 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
05194  M02S04571.283l840 ---|*         EXIT   (A) = 0 IF NO DAT CONFLICT.
Line S04572 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
05195  M02S04572.283l840 ---|*                (T2) = 0 IF DEVICE NOT DESCRIBED IN DAT.
Line S04573 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
05196  M02S04573.283l840 ---|*
Line S04574 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
05197  M02S04574.283l840 ---|*         EREXIT (A) = ADDRESS OF ERROR MESSAGE.
Line S04575 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
05198  M02S04575.283l840 ---|*
Line S04576 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
05199  M02S04576.283l840 ---|*         USES   QS, RE, T7, CM - CM+4.
Line S04577 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
05200  M02S04577.283l840 ---|*
Line S04578 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
05201  M02S04578.283l840 ---|*         CALLS  SDT, CDE, CEA.
Line S04579 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
05202  M02S04579.283l840 ---|*
Line S04580 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
05203  M02S04580.283l840 ---|*         MACROS MONITOR.
Line S04581 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
05204  M02S04581.283l840 ---|
Line S04582 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
05205  M02S04582.283l840 ---|
Line S04583 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
05206  M02S04583.283l840 ---| CSD6     LDD    MA          MOVE ENTRY TO DAT BUFFER
Line S04584 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
05207  M02S04584.283l840 ---|          CWD    CN
Line S04585 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
05208  M02S04585.283l840 ---|          CRM    DATB,ON
Line S04586 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
05209  M02S04586.283l840 ---|          LDD    DI          CHECK DAT INDEX
Line S04587 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
05210  M02S04587.283l840 ---|          ZJN    CSD7        IF NO DAT ENTRY FOR DEVICE
Line S04588 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
05211  M02S04588.283l840 ---|          STD    QS
Line S04589 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
05212  M02S04589.283l840 ---|          UJN    CSD8        DAT SLOT ASSIGNED
Line S04590 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
05213  M02S04590.283l840 ---|
Line S04591 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
05214  M02S04591.283l840 ---| CSD7     LDD    FN
Line S04592 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
05215  M02S04592.283l840 ---|          SHN    2-11
Line S04593 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
05216  M02S04593.283l840 ---|          LPN    4           MAP SHARE FLAG AS ECS TRACK REQUIRED
Line S04594 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
05217  M02S04594.283l840 ---|          RAD    RE
Line S04595 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
05218  M02S04595.283l840 ---| CSD8     LDN    0           CLEAR MACHINE ACCESS BYTE
Line S04596 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
05219  M02S04596.283l840 ---| CSD9     STM    DATB+11
Line S04597 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
05220  M02S04597.283l840 ---|
Line S04598 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
05221  M02S04598.283l840 ---| CSD      SUBR               ENTRY/EXIT
Line S04599 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
05222  M02S04599.283l840 ---|          RJM    SDT         SEARCH DEVICE ACCESS TABLE
Line S04600 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
05223  M02S04600.283l840 ---|          STD    T2
Line S04601 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
05224  M02S04601.283l840 ---|          ZJN    CSD6        IF NO ENTRY FOR NAMED DEVICE
Line S04602 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
05225  M02S04602.283l840 ---|          RJM    CDE         CHECK DAT ENTRY
Line S04603 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
05226  M02S04603.283l840 ---|          NJN    CSDX        IF DAT CONFLICT/ERROR
Line S04604 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
05227  M02S04604.283l840 ---|          STD    T7
Line S04605 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
05228  M02S04605.283l840 ---|          LDD    T6
Line S04606 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
05229  M02S04606.283l840 ---|          NJN    CSD1        IF SHARED DEVICE
Line S04607 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
05230  M02S04607.283l840 ---|          LDI    T2
Line S04608 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
05231  M02S04608.283l840 ---|          LPC    -0
Line S04609 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
05232  M02S04609.283l840 ---|          MMTE   *-1
Line S04610 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
05233  M02S04610.283l840 ---|          ZJN    CSDX        IF ACCESS BY THIS MACHINE ONLY
Line S04611 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
05234  M02S04611.283l840 ---|          LDC    CSDB
Line S04612 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
05235  M02S04612.283l840 ---|          UJN    CSDX        RETURN
Line S04613 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
05236  M02S04613.283l840 ---|
Line S04614 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
05237  M02S04614.283l840 ---| CSD1     LDI    T2          CHECK MACHINES ACCESSING DEVICE
Line S04615 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
05238  M02S04615.283l840 ---|          ZJN    CSD9        IF NO MACHINE ACCESS
Line S04616 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
05239  M02S04616.283l840 ---|          LPC    -0
Line S04617 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
05240  M02S04617.283l840 ---|          MMTE   *-1
Line S04618 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
05241  M02S04618.283l840 ---|          ADD    RS
Line S04619 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
05242  M02S04619.283l840 ---|          ZJN    CSD9        IF ACCESS BY THIS MACHINE ONLY
Line S04620 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
05243  M02S04620.283l840 ---|          SBD    RS
Line S04621 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
05244  M02S04621.283l840 ---|          LMI    T2
Line S04622 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
05245  M02S04622.283l840 ---|          ZJN    CSD2        IF NOT ACCESSED BY THIS MACHINE
Line S04623 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
05246  M02S04623.283l840 ---|          LDN    10
Line S04624 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
05247  M02S04624.283l840 ---| CSD2     ADN    2           FLAG TRT RECOVERY FROM EXTENDED MEMORY
Line S04625 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
05248  M02S04625.283l840 ---|          RAD    RE
Line S04626 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
05249  M02S04626.283l840 ---|          RJM    CEA         CONVERT EXTENDED MEMORY ADDRESS
Line S04627 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
05250  M02S04627.283l840 ---|          LDD    AL          SET CM TABLE ADDRESS
Line S04628 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
05251  M02S04628.283l840 ---|          ADK    TDGL
Line S04629 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
05252  M02S04629.283l840 ---|          STD    CM+2
Line S04630 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
05253  M02S04630.283l840 ---|          LDC    GLGL*100-100+40  SET WORD COUNT
Line S04631 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
05254  M02S04631.283l840 ---|          STD    CM+1
Line S04632 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
05255  M02S04632.283l840 ---|          LDC    RECS*1000   SUBFUNCTION = READ ECS
Line S04633 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
05256  M02S04633.283l840 ---|          RAD    CM+3
Line S04634 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
05257  M02S04634.283l840 ---|          MONITOR  ECSM      ISSUE MONITOR REQUEST
Line S04635 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
05258  M02S04635.283l840 ---|          LDD    RA          READ DRIVER WORD FROM GLOBAL MST
Line S04636 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
05259  M02S04636.283l840 ---|          SHN    6
Line S04637 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
05260  M02S04637.283l840 ---|          ADD    AL
Line S04638 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
05261  M02S04638.283l840 ---|          ADN    MDGL
Line S04639 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
05262  M02S04639.283l840 ---|          CRD    CM
Line S04640 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
05263  M02S04640.283l840 ---|          LDD    DI
Line S04641 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
05264  M02S04641.283l840 ---|          ZJN    CSD3        IF DNAP BY THIS MACHINE
Line S04642 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
05265  M02S04642.283l840 ---|          LMD    QS
Line S04643 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
05266  M02S04643.283l840 ---|          NJN    CSD4        IF DAT CONFLICT
Line S04644 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
05267  M02S04644.283l840 ---| CSD3     LDD    FN
Line S04645 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
05268  M02S04645.283l840 ---|          SCN    77
Line S04646 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
05269  M02S04646.283l840 ---|          SHN    14-10
Line S04647 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
05270  M02S04647.283l840 ---|          LMD    QS
Line S04648 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
05271  M02S04648.283l840 ---|          SHN    -1          COMPARE REMOVABLE STATUS + DAT INDEX
Line S04649 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
05272  M02S04649.283l840 ---|          LMD    CM
Line S04650 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
05273  M02S04650.283l840 ---|          LPC    4377
Line S04651 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
05274  M02S04651.283l840 ---|          ZJN    CSD5        IF NO CONFLICT
Line S04652 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
05275  M02S04652.283l840 ---| CSD4     LDC    CSDD
Line S04653 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
05276  M02S04653.283l840 ---| CSD5     LJM    CSDX        RETURN
Line S04654 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
05277  M02S04654.283l840 ---|
Line S04655 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
05278  M02S04655.283l840 ---| CSDB     DATA   4HNON-
Line S04656 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
05279  M02S04656.283l840 ---| CSDC     DATA   C*SHARED DEVICE ACTIVE IN DAT.*
Line S04657 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
05280  M02S04657.283l840 ---|
Line S04658 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
05281  M02S04658.283l840 ---| CSDD     DATA   C*REMOVABLE DEVICE CONFLICT.*
Line S04659 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
05282  M02S04659.283l840 ---| LDT      SPACE  4,15
Line S04660 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
05283  M02S04660.283l840 ---|**        LDT - LOAD DEVICE ACCESS TABLE.
Line S04661 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
05284  M02S04661.283l840 ---|*
Line S04662 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
05285  M02S04662.283l840 ---|*         ENTRY  (EL) = EXTENDED MEMORY LABEL TRACK.
Line S04663 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
05286  M02S04663.283l840 ---|*
Line S04664 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
05287  M02S04664.283l840 ---|*         EXIT   (QI) = CURRENT DAT INDEX.
Line S04665 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
05288  M02S04665.283l840 ---|*                (QT) = LAST MST/TRT TRACK ASSIGNED.
Line S04666 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
05289  M02S04666.283l840 ---|*                DEVICE ACCESS TABLE LOADED TO CM.
Line S04667 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
05290  M02S04667.283l840 ---|*
Line S04668 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
05291  M02S04668.283l840 ---|*         USES   CA+1, CM - CM+4, CN - CN+4, T2 - T7.
Line S04669 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
05292  M02S04669.283l840 ---|*
Line S04670 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
05293  M02S04670.283l840 ---|*         CALLS  CEA.
Proceed to Part 4
cdc/nos2.source/opl.opl871/deck/msm.003.txt ยท Last modified: by 127.0.0.1