User Tools

Site Tools


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

Deck MSM Part 007

30 Modifications

Listing Sections

Source

Seq #  *Modification Id* Act 
----------------------------+
12094  M00S09494.msm     +++|          LJM    RCSX        RETURN
12095  M00S09495.msm     +++| SNC      SPACE  4,10
12096  M00S09496.msm     +++|**        SNC - SELECT AVAILABLE NIO CHANNEL.
12097  M00S09497.msm     +++|*
12098  M00S09498.msm     +++|*         ENTRY  (FN - FN+4) = EST ENTRY.
12099  M00S09499.msm     +++|*
12100  M00S09500.msm     +++|*         EXIT   (A) = 0, IF NO NIO CHANNEL AVAILABLE
12101  M00S09501.msm     +++|*                    = NON-CONCURRENT CHANNEL BYTE.
12102  M00S09502.msm     +++|
12103  M00S09503.msm     +++|
12104  M00S09504.msm     +++| SNC2     AOD    T0          ADVANCE ADDRESS
12105  M00S09505.msm     +++|          LMN    FN+3
12106  M00S09506.msm     +++|          NJN    SNC1        IF POSSIBLE SECOND CHANNEL
12107  M00S09507.msm     +++|
12108  M00S09508.msm     +++| SNC      SUBR               ENTRY/EXIT
12109  M00S09509.msm     +++|          LDN    FN+1
12110  M00S09510.msm     +++|          STD    T0          INITIALIZE CHANNEL BYTE ADDRESS
12111  M00S09511.msm     +++| SNC1     LDI    T0
12112  M00S09512.msm     +++|          LPC    7040        CHECK CHANNEL STATUS
12113  M00S09513.msm     +++|          LMC    4000
12114  M00S09514.msm     +++|          NJN    SNC2        IF NOT AN AVAILABLE CHANNEL
12115  M00S09515.msm     +++|          LDI    T0
12116  M00S09516.msm     +++|          UJN    SNCX        RETURN
Line S09517 Modification History
M01 (Removed by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
12117  M01S09517.283l840 ---| WNB      SPACE  4,10
12118  M01S09518.283l840 ---|**        WNB - WAIT NOT BUSY.
12119  M01S09519.283l840 ---|*
12120  M01S09520.283l840 ---|*         ERROR  TO */RMS/HNG* IF CONTROLLER HUNG BUSY.
12121  M01S09521.283l840 ---|*
12122  M01S09522.283l840 ---|*         USES   T1, T2.
12123  M01S09523.283l840 ---|*
12124  M01S09524.283l840 ---|*         CALLS  C2D.
12125  M01S09525.283l840 ---|
12126  M01S09526.283l840 ---|
12127  M01S09527.283l840 ---| WNB      SUBR               ENTRY/EXIT
12128  M01S09528.283l840 ---|          LDC    400D
12129  M01S09529.283l840 ---|          STD    T2          SET 400 MILLISECOND DELAY
12130  M01S09530.283l840 ---| WNB1     DELAY  10
12131  M01S09531.283l840 ---|          FNC    FCGS,DC     REQUEST GENERAL STATUS
12132  M01S09532.283l840 ---|          ACN    DC
12133  M01S09533.283l840 ---|          IAN    DC          INPUT STATUS
12134  M01S09534.283l840 ---|          DCN    DC
12135  M01S09535.283l840 ---|          STD    T1          SAVE GENERAL STATUS
12136  M01S09536.283l840 ---|          LPN    2
12137  M01S09537.283l840 ---|          ZJN    WNBX        IF NOT BUSY
12138  M01S09538.283l840 ---|          SOD    T2
12139  M01S09539.283l840 ---|          NJN    WNB1        IF NOT TIMEOUT
12140  M01S09540.283l840 ---|          LDD    T1
12141  M01S09541.283l840 ---|          SHN    -6
12142  M01S09542.283l840 ---|          RJM    C2D         CONVERT GENERAL STATUS
12143  M01S09543.283l840 ---|          STM    WNBA+11
12144  M01S09544.283l840 ---|          LDD    T1
12145  M01S09545.283l840 ---|          RJM    C2D
12146  M01S09546.283l840 ---|          STM    WNBA+12     STORE IN MESSAGE
12147  M01S09547.283l840 ---|          LDC    WNBA
12148  M01S09548.283l840 ---|          LJM    /RMS/HNG    DISPLAY MESSAGE AND HANG PP
12149  M01S09549.283l840 ---|
12150  M01S09550.283l840 ---|
12151  M01S09551.283l840 ---| WNBA     DATA   C* HUNG BUSY - GS = XXXX.*
12152  M01S09552.283l840 ---|
12153  M01S09553.283l840 ---|
Line S01473 Modification History
M01 (Added by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
12154  M01S01473.283l840 +++|          SPACE  4,10
12155  M00S09554.msm     +++|**        COMMON DECKS.
12156  M00S09555.msm     +++|
12157  M00S09556.msm     +++|
12158  M00S09557.msm     +++|*CALL     COMPSDR
12159  M00S09558.msm     +++|          SPACE  4,10
Line S09559 Modification History
M01 (Removed by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
12160  M01S09559.283l840 ---|**        CHANNEL TABLE.
Line S01474 Modification History
M01 (Added by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
12161  M01S01474.283l840 +++| ORDI     EQU    *+5         LOAD ADDRESS FOR *4DI*
12162  M00S09560.msm     +++|
Line S09561 Modification History
M01 (Removed by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
12163  M01S09561.283l840 ---|
12164  M01S09562.283l840 ---|          CHTB   DC
12165  M01S09563.283l840 ---|          SPACE  4,10
12166  M00S09564.msm     +++| MIPA     EQU    *           *0TI* PARAMETER ADDRESS
12167  M00S09565.msm     +++| MILA     EQU    MIPA+1      *0TI* LOAD ADDRESS
Line S09566 Modification History
M01 (Removed by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
12168  M01S09566.272l774 ---|
Line S00076 Modification History
M01 (Added by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
12169  M01S00076.272l774 +++|          SPACE  4,10
12170  M00S09567.msm     +++|          ERRNG  BFMS-MILA-ZPXL  OVERFLOW INTO BUFFER
12171  M00S09568.msm     +++|          ERRNG  BFMS-MILA-ZTXL  OVERFLOW INTO BUFFER
12172  M00S09569.msm     +++| POV      SPACE  4,10
12173  M00S09570.msm     +++|**        POV - PRESET OVERLAY.
12174  M00S09571.msm     +++|
12175  M00S09572.msm     +++|
12176  M00S09573.msm     +++| POV      LDM    MMFP
12177  M00S09574.msm     +++|          ZJN    POV3        IF DO NOT PRESET FOR MMF
12178  M00S09575.msm     +++|          LDC    MMFL
12179  M00S09576.msm     +++|          CRD    CM
12180  M00S09577.msm     +++|          LDD    CM+3        SET MACHINE MASK
12181  M00S09578.msm     +++|          LMM    IMSA
12182  M00S09579.msm     +++|          STM    IMSA
12183  M00S09580.msm     +++|          LDC    L"QUAL"     SET LIST ADDRESS
12184  M00S09581.msm     +++|          STD    T1
12185  M00S09582.msm     +++|          UJN    POV2        ENTER LOOP
12186  M00S09583.msm     +++|
12187  M00S09584.msm     +++| POV1     STD    T0
12188  M00S09585.msm     +++|          LDN    PSNI        REPLACE INSTRUCTION WITH *PSN*
12189  M00S09586.msm     +++|          STI    T0
12190  M00S09587.msm     +++|          AOD    T1          ADVANCE ADDRESS
12191  M00S09588.msm     +++| POV2     LDI    T1
12192  M00S09589.msm     +++|          NJN    POV1        IF MORE TO PRESET
Line S09590 Modification History
M01 (Removed by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
12193  M01S09590.283l840 ---| POV3     LJM    RDIX        RETURN
Line S01475 Modification History
M01 (Added by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
12194  M01S01475.283l840 +++| POV3     LJM    RDHX        RETURN
12195  M00S09591.msm     +++|
12196  M00S09592.msm     +++|*         LIST OF INSTRUCTIONS TO BE PRESET.
12197  M00S09593.msm     +++|
12198  M00S09594.msm     +++| L"QUAL"  BSS    0
12199  M00S09595.msm     +++| L"QUAL"  HERE
Line S01476 Modification History
M01 (Added by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
12200  M01S01476.283l840 +++|          ERRZR  L"QUAL"-*   TABLE EMPTY - REMOVE PRESET CODE
12201  M00S09596.msm     +++|          CON    0           TERMINATE LIST
12202  M00S09597.msm     +++|
12203  M00S09598.msm     +++|          QUAL
12204  M00S09599.msm     +++|
Line S09600 Modification History
M01 (Removed by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
12205  M01S09600.283l840 ---| IMS      EQU    /RDI/IMS
Line S01477 Modification History
M01 (Added by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
12206  M01S01477.283l840 +++| IMS      EQU    /RDH/IMS
12207  M01S01478.283l840 +++| ORDI     EQU    /RDH/ORDI
12208  M00S09601.msm     +++|          SPACE  4,10
Line S09602 Modification History
M01 (Removed by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
12209  M01S09602.272l774 ---|          OVERFLOW OSOV      CHECK FOR OVERFLOW
Line S00077 Modification History
M01 (Added by) 272l774
M02 (Removed by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
12210  M02S00077.283l840 ---|          OVERFLOW  OSOV,EPFW  CHECK FOR OVERFLOW
Line S01479 Modification History
M01 (Added by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
12211  M01S01479.283l840 +++|          OVERFLOW  ORDH,EPFW  CHECK FOR OVERFLOW
12212  M01S01480.283l840 +++|          TTL    MSM/4DI - PROCESS FORMAT REQUEST.
12213  M01S01481.283l840 +++|          TITLE
12214  M01S01482.283l840 +++|          QUAL   RDI
12215  M01S01483.283l840 +++|          IDENT  4DI,/RDI/PFRX
12216  M01S01484.283l840 +++|*COMMENT  MSM - PROCESS FORMAT REQUEST.
12217  M01S01485.283l840 +++|          COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1994.
12218  M01S01486.283l840 +++| RDI      SPACE  4,10
12219  M01S01487.283l840 +++|***              *4DI* CONTAINS ROUTINES UTILIZED BY *RMS* IN
12220  M01S01488.283l840 +++|*         FORMATTING 895 DEVICES.
12221  M01S01489.283l840 +++|          SPACE  4,10
12222  M01S01490.283l840 +++|*CALL     COMPCHM
12223  M01S01491.283l840 +++|          SPACE  4,10
12224  M01S01492.283l840 +++|****      DIRECT LOCATION ASSIGNMENTS.
12225  M01S01493.283l840 +++|
12226  M01S01494.283l840 +++|
12227  M01S01495.283l840 +++| PB       EQU    RG - RI+1   FORMAT PARAMETER BLOCK (3 LOCATIONS)
12228  M01S01496.283l840 +++| CS       EQU    ET          CHANNEL STATUS
12229  M01S01497.283l840 +++| FR       EQU    P1          FORMAT REQUIRED FLAG
12230  M01S01498.283l840 +++| LC       EQU    P2          LAST CYLINDER + 1
12231  M01S01499.283l840 +++|
12232  M01S01500.283l840 +++|****
12233  M01S01501.283l840 +++|          SPACE  4,10
12234  M01S01502.283l840 +++|**        ASSEMBLY CONSTANTS.
12235  M01S01503.283l840 +++|
12236  M01S01504.283l840 +++|
12237  M01S01505.283l840 +++| DC       EQU    11          DISK CHANNEL
12238  M01S01506.283l840 +++|
12239  M01S01507.283l840 +++| FCGS     EQU    12          GENERAL STATUS FUNCTION CODE
12240  M01S01508.283l840 +++| FCFP     EQU    16          FORMAT PACK FUNCTION CODE
12241  M01S01509.283l840 +++|
12242  M01S01510.283l840 +++| FPBL     EQU    22          FORMAT PACK PARAMETER BLOCK LENGTH
12243  M01S01511.283l840 +++| RDH      SPACE  4,10
12244  M01S01512.283l840 +++|          ORG    ORDH
12245  M01S01513.283l840 +++|          TITLE  PROCESS FORMAT REQUEST.
12246  M01S01514.283l840 +++| PFR      SPACE  4,20
12247  M01S01515.283l840 +++|**        PFR - PROCESS FORMAT REQUEST.
12248  M01S01516.283l840 +++|*
12249  M01S01517.283l840 +++|*         ENTRY  (T3) = 0 IF DEADSTART SECTOR READ BY *RCS*.
12250  M01S01518.283l840 +++|*                (AM) = ALGORITHM INDEX.
12251  M01S01519.283l840 +++|*                (CS) = CHANNEL STATUS.
12252  M01S01520.283l840 +++|*                (FR) = FORMAT REQUIRED FLAG.
12253  M01S01521.283l840 +++|*                (LC) = FIRST CYLINDER OF *CTI* SPACE.
12254  M01S01522.283l840 +++|*                (T5) = EST ORDINAL.
12255  M01S01523.283l840 +++|*                (T6) = TRACK CONTAINING DEADSTART SECTOR.
12256  M01S01524.283l840 +++|*                (T7) = DEADSTART SECTOR.
12257  M01S01525.283l840 +++|*                (FN - FN+4) = EST ENTRY.
12258  M01S01526.283l840 +++|*                (FS - FS+4) = *STLL* WORD OF MST.
12259  M01S01527.283l840 +++|*
12260  M01S01528.283l840 +++|*         USES   T1, T2, T3, T4, CM - CM+4, CN - CN+4.
12261  M01S01529.283l840 +++|*
12262  M01S01530.283l840 +++|*         CALLS  F8D.
12263  M01S01531.283l840 +++|*
12264  M01S01532.283l840 +++|*         MACROS CMSTF, ENDMS, RCHAN.
12265  M01S01533.283l840 +++|
12266  M01S01534.283l840 +++|
12267  M01S01535.283l840 +++| PFR      SUBR               ENTRY/EXIT
12268  M01S01536.283l840 +++|          LDN    0
12269  M01S01537.283l840 +++|          STD    CM+2
12270  M01S01538.283l840 +++|          LDD    CS
12271  M01S01539.283l840 +++|          LPN    77          CLEAR IMMEDIATE RETURN AND RESERVE CHANNEL
12272  M01S01540.283l840 +++|          RCHAN
12273  M01S01541.283l840 +++|          LDD    CM+1        SAVE CHANNEL FOR *ENDMS*
12274  M01S01542.283l840 +++|          STD    T4
12275  M01S01543.283l840 +++|          AOM    CHRV
12276  M01S01544.283l840 +++|          LDC    CTDC        SET ADDRESS OF INSTRUCTION LIST
12277  M01S01545.283l840 +++|          STD    T1
12278  M01S01546.283l840 +++|          UJN    PFR3        MODIFY CHANNEL INSTRUCTIONS
12279  M01S01547.283l840 +++|
12280  M01S01548.283l840 +++| PFR2     STD    T2          SET INSTRUCTION ADDRESS
12281  M01S01549.283l840 +++|          LDI    T2
12282  M01S01550.283l840 +++|          SCN    37
12283  M01S01551.283l840 +++|          LMD    T4          MODIFY INSTRUCTION
12284  M01S01552.283l840 +++|          STI    T2
12285  M01S01553.283l840 +++|          AOD    T1          ADVANCE LIST ADDRESS
12286  M01S01554.283l840 +++| PFR3     LDI    T1
12287  M01S01555.283l840 +++|          NJN    PFR2        IF NOT END OF LIST
12288  M01S01556.283l840 +++|          LDD    FN+4
12289  M01S01557.283l840 +++|          SHN    3
12290  M01S01558.283l840 +++|          ADN    DDLL        FETCH UNIT LIST FROM MST
12291  M01S01559.283l840 +++|          CRD    CN
12292  M01S01560.283l840 +++|          LDC    DSCP*200+MS1W  STORE FORMATTING MESSAGE
12293  M01S01561.283l840 +++|          CWM    PFRA,ON
12294  M01S01562.283l840 +++|
12295  M01S01563.283l840 +++|*         GENERATE PARAMETER BLOCK TO FORMAT DEVICE.
12296  M01S01564.283l840 +++|
12297  M01S01565.283l840 +++| PFR4     LDN    0           SET FIRST CYLINDER
12298  M01S01566.283l840 +++|          STD    PB
12299  M01S01567.283l840 +++|          LDD    TH          SET LARGE RECORD SIZE
12300  M01S01568.283l840 +++|          STD    PB+2
12301  M01S01569.283l840 +++|          LDD    CN+4        EXTRACT NEXT UNIT
12302  M01S01570.283l840 +++|          SHN    14
12303  M01S01571.283l840 +++|          STD    CN+4
12304  M01S01572.283l840 +++|          ERRPL  4000-3*SLDC CODE DEPENDS ON VALUE
12305  M01S01573.283l840 +++|          SHN    -14
12306  M01S01574.283l840 +++|          LMC    1S10+3S6    APPEND MODE / OPERATION DECODE
12307  M01S01575.283l840 +++|          STD    PB+1
12308  M01S01576.283l840 +++|          RJM    F8D         FORMAT DEVICE
12309  M01S01577.283l840 +++|          LDD    T3
12310  M01S01578.283l840 +++|          ZJN    PFR7        IF DEADSTART SECTOR READ WITHOUT ERROR
12311  M01S01579.283l840 +++|          LDC    885D
12312  M01S01580.283l840 +++|          STD    PB          SET CYLINDER FOR DEADSTART SECTOR
12313  M01S01581.283l840 +++|          ADN    1
12314  M01S01582.283l840 +++|          STD    LC
12315  M01S01583.283l840 +++|          LDC    502         SECTOR BUFFER INDEX
12316  M01S01584.283l840 +++|          STD    PB+2
12317  M01S01585.283l840 +++| PFR5     LDN    0           CLEAR SECTOR BUFFER
12318  M01S01586.283l840 +++|          STM    BFMS-1,PB+2
12319  M01S01587.283l840 +++|          SOD    PB+2
12320  M01S01588.283l840 +++|          NJN    PFR5        IF BUFFER NOT CLEARED
12321  M01S01589.283l840 +++|*         LDN    0
12322  M01S01590.283l840 +++|*         STD    PB+2
12323  M01S01591.283l840 +++|          RJM    F8D         FORMAT DEADSTART CYLINDER
12324  M01S01592.283l840 +++|          LDC    -1S10
12325  M01S01593.283l840 +++|          RAD    PB+1
12326  M01S01594.283l840 +++| PFR6     SOD    PB          FORMAT PROTECTED AREA
12327  M01S01595.283l840 +++|          RJM    F8D
12328  M01S01596.283l840 +++|          AOD    PB+2        ADVANCE TRACK NUMBER
12329  M01S01597.283l840 +++|          LMN    2
12330  M01S01598.283l840 +++|          NJN    PFR6        IF MORE TRACKS TO FORMAT
12331  M01S01599.283l840 +++|          LDC    BFMS+WLSF
12332  M01S01600.283l840 +++|          RJM    WDS         CLEAR DEADSTART SECTOR
12333  M01S01601.283l840 +++| PFR7     LDD    CN
12334  M01S01602.283l840 +++|          LPN    7
12335  M01S01603.283l840 +++|          SBN    1           DECREMENT UNIT COUNT
12336  M01S01604.283l840 +++|          STD    CN
12337  M01S01605.283l840 +++|          PJP    PFR4        IF MULTI-UNIT DEVICE
12338  M01S01606.283l840 +++|          ENDMS
12339  M01S01607.283l840 +++|          LDC    DSCP*200+MS1W  RESTORE RECOVERY MESSAGE
12340  M01S01608.283l840 +++|          CWM    PFRB,ON
12341  M01S01609.283l840 +++|          CMSTF  LFPR        CLEAR FORMAT REQUEST
12342  M01S01610.283l840 +++|          LJM    PFRX        RETURN
12343  M01S01611.283l840 +++|
12344  M01S01612.283l840 +++|
12345  M01S01613.283l840 +++| PFRA     DATA   10HFORMATTING
12346  M01S01614.283l840 +++| PFRB     DATA   10HRECOVERING
12347  M01S01615.283l840 +++|          TITLE  SUBROUTINES.
12348  M01S01616.283l840 +++| F8D      SPACE  4,10
12349  M01S01617.283l840 +++|**        F8D - FORMAT 895 DEVICE.
12350  M01S01618.283l840 +++|*
12351  M01S01619.283l840 +++|*         ENTRY  (LC) = LAST CYLINDER + 1 TO FORMAT.
12352  M01S01620.283l840 +++|*                (PB - PB+2) = FORMAT PARAMETER BLOCK.
12353  M01S01621.283l840 +++|*
12354  M01S01622.283l840 +++|*         USES   PB, CM - CM+4.
12355  M01S01623.283l840 +++|*
12356  M01S01624.283l840 +++|*         CALLS  C2D, /RMS/SEM, WNB.
12357  M01S01625.283l840 +++|
12358  M01S01626.283l840 +++|
12359  M01S01627.283l840 +++| F8D2     LDC    DSCP*200+MS1W+2  UPDATE CYLINDER NUMBER IN MESSAGE
12360  M01S01628.283l840 +++|          CWD    CM
12361  M01S01629.283l840 +++|          FNC    FCFP,DC     ISSUE FORMAT FUNCTION
12362  M01S01630.283l840 +++|          ACN    DC
12363  M01S01631.283l840 +++|          LDN    FPBL        OUTPUT PARAMETER BLOCK
12364  M01S01632.283l840 +++|          OAM    PB,DC
12365  M01S01633.283l840 +++|          FJM    *,DC        WAIT TRANSMISSION COMPLETE
12366  M01S01634.283l840 +++|          DCN    DC
12367  M01S01635.283l840 +++|          AOD    PB          ADVANCE CYLINDER NUMBER
12368  M01S01636.283l840 +++| F8D3     RJM    C2D
12369  M01S01637.283l840 +++|          STD    CM+3
12370  M01S01638.283l840 +++|          LDD    PB          CONVERT VALUE FOR MESSAGE
12371  M01S01639.283l840 +++|          SHN    -6
12372  M01S01640.283l840 +++|          RJM    C2D
12373  M01S01641.283l840 +++|          STD    CM+2
12374  M01S01642.283l840 +++|          RJM    WNB         WAIT NOT BUSY
12375  M01S01643.283l840 +++|          LDD    PB
12376  M01S01644.283l840 +++|          LMD    LC
12377  M01S01645.283l840 +++|          NJN    F8D2        IF MORE CYLINDERS TO FORMAT
12378  M01S01646.283l840 +++|
12379  M01S01647.283l840 +++| F8D      SUBR               ENTRY/EXIT
12380  M01S01648.283l840 +++|          LDD    PB+1
12381  M01S01649.283l840 +++|          RJM    C2D         CONVERT UNIT NUMBER
12382  M01S01650.283l840 +++|          STM    F8DA
12383  M01S01651.283l840 +++|          RJM    /RMS/SEM    SET EQUIPMENT MESSAGE
12384  M01S01652.283l840 +++|          LDN    1RU
12385  M01S01653.283l840 +++|          STD    CM+4        INSERT UNIT DESIGNATOR
12386  M01S01654.283l840 +++|          LDC    DSCP*200+MS1W+1
12387  M01S01655.283l840 +++|          CWD    CM
12388  M01S01656.283l840 +++|          ADN    1
12389  M01S01657.283l840 +++|          CWM    F8DA,TW     CHANGE MESSAGE
12390  M01S01658.283l840 +++|          SBN    2
12391  M01S01659.283l840 +++|          CRD    CM
12392  M01S01660.283l840 +++|          LDD    LC
12393  M01S01661.283l840 +++|          NJN    F8D1        IF *CTI* COMPONENT FOUND
12394  M01S01662.283l840 +++|          LDC    NTDC/2
12395  M01S01663.283l840 +++|          ERRNZ  TTDC        CODE DEPENDS ON VALUE
12396  M01S01664.283l840 +++|          STD    LC
12397  M01S01665.283l840 +++| F8D1     LDD    PB
12398  M01S01666.283l840 +++|          LJM    F8D3        FORMAT DEVICE
12399  M01S01667.283l840 +++|
12400  M01S01668.283l840 +++|
12401  M01S01669.283l840 +++| F8DA     DATA   C*XX C0000.*
12402  M01S01670.283l840 +++| WNB      SPACE  4,10
12403  M01S01671.283l840 +++|**        WNB - WAIT NOT BUSY.
12404  M01S01672.283l840 +++|*
12405  M01S01673.283l840 +++|*         ERROR  TO */RMS/HNG* IF CONTROLLER HUNG BUSY.
12406  M01S01674.283l840 +++|*
12407  M01S01675.283l840 +++|*         USES   T1, T2.
12408  M01S01676.283l840 +++|*
12409  M01S01677.283l840 +++|*         CALLS  C2D.
12410  M01S01678.283l840 +++|
12411  M01S01679.283l840 +++|
12412  M01S01680.283l840 +++| WNB      SUBR               ENTRY/EXIT
12413  M01S01681.283l840 +++|          LDC    400D
12414  M01S01682.283l840 +++|          STD    T2          SET 400 MILLISECOND DELAY
12415  M01S01683.283l840 +++| WNB1     DELAY  10
12416  M01S01684.283l840 +++|          FNC    FCGS,DC     REQUEST GENERAL STATUS
12417  M01S01685.283l840 +++|          ACN    DC
12418  M01S01686.283l840 +++|          IAN    DC          INPUT STATUS
12419  M01S01687.283l840 +++|          DCN    DC
12420  M01S01688.283l840 +++|          STD    T1          SAVE GENERAL STATUS
12421  M01S01689.283l840 +++|          LPN    2
12422  M01S01690.283l840 +++|          ZJN    WNBX        IF NOT BUSY
12423  M01S01691.283l840 +++|          SOD    T2
12424  M01S01692.283l840 +++|          NJN    WNB1        IF NOT TIMEOUT
12425  M01S01693.283l840 +++|          LDD    T1
12426  M01S01694.283l840 +++|          SHN    -6
12427  M01S01695.283l840 +++|          RJM    C2D         CONVERT GENERAL STATUS
12428  M01S01696.283l840 +++|          STM    WNBA+11
12429  M01S01697.283l840 +++|          LDD    T1
12430  M01S01698.283l840 +++|          RJM    C2D
12431  M01S01699.283l840 +++|          STM    WNBA+12     STORE IN MESSAGE
12432  M01S01700.283l840 +++|          LDC    WNBA
12433  M01S01701.283l840 +++|          LJM    /RMS/HNG    DISPLAY MESSAGE AND HANG PP
12434  M01S01702.283l840 +++|
12435  M01S01703.283l840 +++|
12436  M01S01704.283l840 +++| WNBA     DATA   C* HUNG BUSY - GS = XXXX.*
12437  M01S01705.283l840 +++|          SPACE  4,10
12438  M01S01706.283l840 +++|**        CHANNEL TABLE.
12439  M01S01707.283l840 +++|
12440  M01S01708.283l840 +++|
12441  M01S01709.283l840 +++|          CHTB   DC
12442  M01S01710.283l840 +++|          SPACE  4,10
12443  M01S01711.283l840 +++|          ERRNG  BFMS-*          OVERFLOW INTO BUFFER
12444  M01S01712.283l840 +++|          SPACE  4,10
12445  M01S01713.283l840 +++|          QUAL
12446  M01S01714.283l840 +++|          SPACE  4,10
12447  M01S01715.283l840 +++|          OVERFLOW  ORDI,EPFW    CHECK FOR OVERFLOW
12448  M00S09603.msm     +++|          TTL    MSM/4DJ - DAYFILE RECOVERY ROUTINES.
12449  M00S09604.msm     +++|          TITLE
12450  M00S09605.msm     +++|          IDENT  4DJ,/RMS/RDJX
12451  M00S09606.msm     +++|*COMMENT  MSM - DAYFILE RECOVERY ROUTINES.
Line S09607 Modification History
M01 (Removed by) 281l803
Seq #  *Modification Id* Act 
----------------------------+
12452  M01S09607.281l803 ---|          COMMENT COPYRIGHT CONTROL DATA CORPORATION. 1981.
Line S00011 Modification History
M01 (Added by) 281l803
Seq #  *Modification Id* Act 
----------------------------+
12453  M01S00011.281l803 +++|          COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
12454  M00S09608.msm     +++|          SPACE  4,10
12455  M00S09609.msm     +++|***              *4DJ* CONTAINS ROUTINES UTILIZED BY *RMS* IN
12456  M00S09610.msm     +++|*         RECOVERING DAYFILES.
12457  M00S09611.msm     +++|          SPACE  4,10
12458  M00S09612.msm     +++|          QUAL   RMS
Line S09613 Modification History
M01 (Removed by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
12459  M01S09613.283l840 ---|          ORG    /RDG/OVL
Line S01716 Modification History
M01 (Added by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
12460  M01S01716.283l840 +++|          ORG    ORDJ
12461  M00S09614.msm     +++|
12462  M00S09615.msm     +++| RDJ      SUBR               ENTRY/EXIT
12463  M00S09616.msm     +++|          UJN    RDJX        RETURN
12464  M00S09617.msm     +++| CDC      SPACE  4,25
12465  M00S09618.msm     +++|**        CDC - CHASE DAYFILE CHAIN.
12466  M00S09619.msm     +++|*
12467  M00S09620.msm     +++|*         CDC CHASES THE DAYFILE CHAIN ON DISK TO RECOVER THE
12468  M00S09621.msm     +++|*         DAYFILE RIGHT UP TO THE EOI.  THE CHAINING IS DONE OFF OF THE
12469  M00S09622.msm     +++|*         DISK RATHER THAN THE TRTS TO RECOVER THE EXACT DAYFILE AS IT
12470  M00S09623.msm     +++|*         EXISTS ON DISK.  THIS PERMITS DAYFILE RECOVERY TO BE
12471  M00S09624.msm     +++|*         INDEPENDENT OF TRT UPDATES AND SYSTEM DEVICE CHECKPOINTS.
12472  M00S09625.msm     +++|*         THE DAYFILE WILL BE TRUNCATED TO THE LAST SECTOR OF THE
12473  M00S09626.msm     +++|*         CURRENT TRACK IF DISK EOI EXTENDS BEYOND THE CURRENT
12474  M00S09627.msm     +++|*         TRACK IN THE TRT.
12475  M00S09628.msm     +++|*
12476  M00S09629.msm     +++|*         ENTRY  (T5) = EST ORDINAL.
12477  M00S09630.msm     +++|*                (FN - FN+4) = EST ENTRY.
12478  M00S09631.msm     +++|*                (FS - FS+4) = DEVICE STATUS WORD (STLL).
12479  M00S09632.msm     +++|*                (MBUF) = LABEL MST.
12480  M00S09633.msm     +++|*
12481  M00S09634.msm     +++|*         EXIT   TRT ALTERED IF TRT AND DISK DO NOT MATCH AND VALID
12482  M00S09635.msm     +++|*                EOI FOUND.
12483  M00S09636.msm     +++|*                (A) MUST EQUAL 0 TO ENSURE *MRL* UPDATE OF CM
12484  M00S09637.msm     +++|*                RECOVERY INFORMATION UPON RETURN FROM */RMS/RCD*.
12485  M00S09638.msm     +++|*
12486  M00S09639.msm     +++|*         USES   EE, FA, P1, T6, T7, CM+1 - CM+3.
12487  M00S09640.msm     +++|*
12488  M00S09641.msm     +++|*         CALLS  CDR, CFL, RSS, ULA, VEI, WDS.
12489  M00S09642.msm     +++|*
12490  M00S09643.msm     +++|*         MACROS ENDMS, MONITOR, SETMS.
12491  M00S09644.msm     +++|
12492  M00S09645.msm     +++|
12493  M00S09646.msm     +++| CDC5     ENDMS
Line S00039 Modification History
M01 (Added by) ns2669
Seq #  *Modification Id* Act 
----------------------------+
12494  M01S00039.ns2669  +++|          SETMS  IO,(DF,RW)
12495  M00S09647.msm     +++|          RJM    ULA         UPDATE SECTOR OF LOCAL AREAS
12496  M00S09648.msm     +++|
12497  M00S09649.msm     +++| CDC      SUBR               ENTRY/EXIT
12498  M00S09650.msm     +++|          LDM    MBUF+5*ACGL+4
12499  M00S09651.msm     +++|          LPC    MGLAP
12500  M00S09652.msm     +++|          ZJN    CDCX        IF NO SECTOR OF LOCAL AREAS
Line S09653 Modification History
M01 (Removed by) ns2669
Seq #  *Modification Id* Act 
----------------------------+
12501  M01S09653.ns2669  ---|          SETMS  IO,(DF,RW)
Line S00040 Modification History
M01 (Added by) ns2669
Seq #  *Modification Id* Act 
----------------------------+
12502  M01S00040.ns2669  +++|          SETMS  READSTR,(DF,RW)
12503  M00S09654.msm     +++|          LDN    EXDF        SET NUMBER OF EXCESS DAYFILES
12504  M00S09655.msm     +++|          STD    P1
12505  M00S09656.msm     +++| CDC1     SOD    P1
12506  M00S09657.msm     +++|          MJN    CDC5        IF END OF DAYFILES
12507  M00S09658.msm     +++|          LDM    MBUF+5*DALL,P1
12508  M00S09659.msm     +++|          ZJN    CDC1        IF NO TRACK ASSIGNED
12509  M00S09660.msm     +++|          STD    T6
12510  M00S09661.msm     +++|          RJM    CDR         CHECK DAYFILE RECOVERY SELECTION
12511  M00S09662.msm     +++|          NJN    CDC1        IF FILE INITIALIZED
12512  M00S09663.msm     +++|
12513  M00S09664.msm     +++|*         VERIFY DAYFILE RECOVERY.
12514  M00S09665.msm     +++|
12515  M00S09666.msm     +++|          RJM    CFL         CHECK FILE LENGTH
12516  M00S09667.msm     +++|          ZJN    CDC1        IF EMPTY DAYFILE
12517  M00S09668.msm     +++|          RJM    VEI         VERIFY EOI SECTOR
12518  M00S09669.msm     +++| CDC2     ZJN    CDC1        IF EOI ON DISK MATCHES TRT EOI
12519  M00S09670.msm     +++|          ENDMS
12520  M00S09671.msm     +++|          LDD    T6
12521  M00S09672.msm     +++|          LPC    3777        SET NEW EOI SECTOR
12522  M00S09673.msm     +++|          STD    CM+2
12523  M00S09674.msm     +++|          LDD    T7          SECTOR
12524  M00S09675.msm     +++|          STD    CM+3
12525  M00S09676.msm     +++|          LDD    T5          EQUIPMENT
12526  M00S09677.msm     +++|          STD    CM+1
12527  M00S09678.msm     +++|          MONITOR  DTKM      UPDATE EOI SECTOR
12528  M00S09679.msm     +++|*         LDN    0
12529  M00S09680.msm     +++|          UJP    CDC1        LOOP FOR NEXT DAYFILE
12530  M00S09681.msm     +++| CDR      SPACE  4,10
12531  M00S09682.msm     +++|**        CDR - CHECK DAYFILE RECOVERY.
12532  M00S09683.msm     +++|*
12533  M00S09684.msm     +++|*         ENTRY  (T6) = DAYFILE TRACK.
12534  M00S09685.msm     +++|*                (P1) = DAYFILE INDEX.
12535  M00S09686.msm     +++|*                (FS - FS+4) = STLL WORD OF THE MST.
12536  M00S09687.msm     +++|*
12537  M00S09688.msm     +++|*         EXIT   (A) = 0 IF DAYFILE NOT INITIALIZED.
12538  M00S09689.msm     +++|*                SPACE RELEASED IF FILE INITIALIZED.
12539  M00S09690.msm     +++|*
12540  M00S09691.msm     +++|*         USES   FS, FS+1, CM+1 - CM+3.
12541  M00S09692.msm     +++|*
12542  M00S09693.msm     +++|*         CALLS  TLB.
12543  M00S09694.msm     +++|*
12544  M00S09695.msm     +++|*         MACROS CMSTF, ENDMS, MONITOR.
12545  M00S09696.msm     +++|
12546  M00S09697.msm     +++|
12547  M00S09698.msm     +++| CDR      SUBR               ENTRY/EXIT
12548  M00S09699.msm     +++|
12549  M00S09700.msm     +++|*         CHECK FOR INITIALIZE REQUEST.
12550  M00S09701.msm     +++|
12551  M00S09702.msm     +++|          LDM    CDRB,P1
12552  M00S09703.msm     +++|          STM    CDRA
12553  M00S09704.msm     +++|          LDD    FS+1        CHECK INITIALIZE REQUEST
12554  M00S09705.msm     +++|          LPC    *
12555  M00S09706.msm     +++| CDRA     EQU    *-1
12556  M00S09707.msm     +++|          ZJN    CDRX        IF INITIALIZE NOT REQUESTED
12557  M00S09708.msm     +++|
12558  M00S09709.msm     +++|*         INITIALIZE DAYFILE.
12559  M00S09710.msm     +++|
12560  M00S09711.msm     +++|          LMD    FS+1        CLEAR INITIALIZE REQUEST
12561  M00S09712.msm     +++|          STD    FS+1
12562  M00S09713.msm     +++|          SHN    6
12563  M00S09714.msm     +++|          LMD    FS
12564  M00S09715.msm     +++|          SCN    MLIRP+MLPTU+MLCKP+MRASD
12565  M00S09716.msm     +++|          NJN    CDR1        IF MORE INITIALIZE FLAGS
12566  M00S09717.msm     +++|          CMSTF  LIRP        CLEAR INITIALIZE PENDING
12567  M00S09718.msm     +++| CDR1     ENDMS
12568  M00S09719.msm     +++|*         LDN    0
12569  M00S09720.msm     +++|          STD    CM+3
12570  M00S09721.msm     +++|          LDD    T6          SET FIRST TRACK
12571  M00S09722.msm     +++|          STD    CM+2
12572  M00S09723.msm     +++|          LDD    EQ
12573  M00S09724.msm     +++|          STD    CM+1
12574  M00S09725.msm     +++|          MONITOR  DTKM      RELEASE DAYFILE SPACE
12575  M00S09726.msm     +++|          STM    MBUF+5*DALL,P1  CLEAR DAYFILE POINTER
12576  M00S09727.msm     +++|          AOM    ULAA        SET LOCAL AREA SECTOR UPDATE
12577  M00S09728.msm     +++|          LCN    0           CLEAR INITIALIZE REQUEST IN THE MST
12578  M00S09729.msm     +++|          LMM    CDRC,P1
12579  M00S09730.msm     +++|          RJM    TLB
12580  M00S09731.msm     +++|          LJM    CDRX        RETURN
12581  M00S09732.msm     +++|
12582  M00S09733.msm     +++|*         INITIALIZE REQUEST MASKS FOR EXCESS DAYFILES.
12583  M00S09734.msm     +++|
12584  M00S09735.msm     +++| CDRB     CON    MLIDF       DAYFILE
12585  M00S09736.msm     +++|          CON    MLIAF       ACCOUNT FILE
12586  M00S09737.msm     +++|          CON    MLIEF       ERROR LOG
12587  M00S09738.msm     +++|          CON    MLIMF       MAINTENANCE LOG
12588  M00S09739.msm     +++|
12589  M00S09740.msm     +++|*         INITIALIZE REQUEST BIT MAPPING.
12590  M00S09741.msm     +++|
12591  M00S09742.msm     +++| CDRC     CON    LIDF        DAYFILE
12592  M00S09743.msm     +++|          CON    LIAF        ACCOUNT FILE
12593  M00S09744.msm     +++|          CON    LIEF        ERROR LOG
12594  M00S09745.msm     +++|          CON    LIMF        MAINTENANCE LOG
12595  M00S09746.msm     +++| CDT      SPACE  4,10
12596  M00S09747.msm     +++|**        CDT - CHECK LAST UPDATE DATE AND TIME.
12597  M00S09748.msm     +++|*
12598  M00S09749.msm     +++|*         ENTRY  (P1) = DAYFILE INDEX.
12599  M00S09750.msm     +++|*                (WEIA) = DAYFILE EOI SECTOR.
12600  M00S09751.msm     +++|*                (TPDT) = TIME AND DATE FOR LATEST RECOVERED DAYFILE.
12601  M00S09752.msm     +++|*
12602  M00S09753.msm     +++|*         EXIT   RECOVERY POINTERS UPDATED IF THIS IS A LATER DAYFILE.
12603  M00S09754.msm     +++|*                (TPDT) UPDATED TO LATEST DATE.
12604  M00S09755.msm     +++|*
12605  M00S09756.msm     +++|*         USES   P2, CM - CM+4.
12606  M00S09757.msm     +++|
12607  M00S09758.msm     +++|
12608  M00S09759.msm     +++| CDT      SUBR               ENTRY/EXIT
12609  M00S09760.msm     +++|          LDD    FN
12610  M00S09761.msm     +++|          SHN    21-10
12611  M00S09762.msm     +++|          MJN    CDTX        IF REMOVABLE DEVICE
12612  M00S09763.msm     +++|          LDD    P1
12613  M00S09764.msm     +++|          SHN    1
12614  M00S09765.msm     +++|          ADD    P1
12615  M00S09766.msm     +++|          STD    P2
12616  M00S09767.msm     +++|          LDD    MA          COPY LAST UPDATE DATE AND TIME OF NEW FILE
12617  M00S09768.msm     +++|          CWM    BFMS+DTEI,ON
12618  M00S09769.msm     +++|          SBN    1
12619  M00S09770.msm     +++|          CRD    CM
12620  M00S09771.msm     +++|          LDM    TPDT,P2     CHECK YEAR AND MONTH
12621  M00S09772.msm     +++|          SBD    CM+2
12622  M00S09773.msm     +++|          MJN    CDT1        IF LATER YEAR OR MONTH
12623  M00S09774.msm     +++|          NJN    CDTX        IF NOT LATER YEAR OR MONTH
12624  M00S09775.msm     +++|          LDM    TPDT+1,P2   CHECK DAY AND HOUR
12625  M00S09776.msm     +++|          SBD    CM+3
12626  M00S09777.msm     +++|          MJN    CDT1        IF A LATER DAY OR HOUR
12627  M00S09778.msm     +++|          NJN    CDTX        IF NOT A LATER DAY OR HOUR
12628  M00S09779.msm     +++|          LDM    TPDT+2,P2
12629  M00S09780.msm     +++|          SBD    CM+4
12630  M00S09781.msm     +++|          MJN    CDT1        IF A LATER MINUTE
12631  M00S09782.msm     +++|          NJN    CDTX        IF NOT A LATER MINUTE
12632  M00S09783.msm     +++|
12633  M00S09784.msm     +++|*         SET THIS DAYFILE AS THE NEW ONE TO RECOVER.
12634  M00S09785.msm     +++|
12635  M00S09786.msm     +++| CDT1     LDD    T5          SET LATEST DAYFILES EQUIPMENT
12636  M00S09787.msm     +++|          STM    RMSF,P1
12637  M00S09788.msm     +++|          LDD    CM+2        SET LATEST DAYFILES DATE
12638  M00S09789.msm     +++|          STM    TPDT,P2
12639  M00S09790.msm     +++|          LDD    CM+3
12640  M00S09791.msm     +++|          STM    TPDT+1,P2
12641  M00S09792.msm     +++|          LDD    CM+4
12642  M00S09793.msm     +++|          STM    TPDT+2,P2
12643  M00S09794.msm     +++|          LJM    CDTX        RETURN
12644  M00S09795.msm     +++|
12645  M00S09796.msm     +++| TPDT     BSS    3           LATEST DATE/TIME SYSTEM DAYFILE
12646  M00S09797.msm     +++|          BSS    3           LATEST DATE/TIME ACCOUNT DAYFILE
12647  M00S09798.msm     +++|          BSS    3           LATEST DATE/TIME ERRLOG DAYFILE
12648  M00S09799.msm     +++|          BSS    3           LATEST DATE/TIME MAINTENANCE LOG
12649  M00S09800.msm     +++| CFL      SPACE  4,10
12650  M00S09801.msm     +++|**        CFL - CHECK FILE LENGTH.
12651  M00S09802.msm     +++|*
12652  M00S09803.msm     +++|*         ENTRY  (T6) = DAYFILE TRACK FROM SECTOR OF LOCAL AREAS.
12653  M00S09804.msm     +++|*                (P1) = DAYFILE INDEX.
12654  M00S09805.msm     +++|*
12655  M00S09806.msm     +++|*         EXIT   (A) = 0 IF DAYFILE EMPTY.
12656  M00S09807.msm     +++|*                (ET) = DAYFILE EOI TRACK.
12657  M00S09808.msm     +++|*                (ES) = DAYFILE EOI SECTOR.
12658  M00S09809.msm     +++|*
12659  M00S09810.msm     +++|*         CALLS  SEI.
12660  M00S09811.msm     +++|
12661  M00S09812.msm     +++|
12662  M00S09813.msm     +++| CFL1     LDD    T6          SAVE EOI TRACK
12663  M00S09814.msm     +++|          STD    ET
12664  M00S09815.msm     +++|          LDD    T7          SAVE EOI SECTOR
12665  M00S09816.msm     +++|          STD    ES
12666  M00S09817.msm     +++|          LDM    MBUF+5*DALL,P1  RESTORE FIRST TRACK
12667  M00S09818.msm     +++|          STD    T6
12668  M00S09819.msm     +++|
12669  M00S09820.msm     +++| CFL      SUBR               ENTRY/EXIT
12670  M00S09821.msm     +++|          RJM    SEI         SEARCH FOR EOI
12671  M00S09822.msm     +++|          LDD    T3
12672  M00S09823.msm     +++|          ADD    T2
12673  M00S09824.msm     +++|          NJN    CFL1        IF NOT EMPTY FILE
12674  M00S09825.msm     +++|          AOM    ULAA
12675  M00S09826.msm     +++|          LDN    0           CLEAR DAYFILE POINTER
12676  M00S09827.msm     +++|          STM    MBUF+5*DALL,P1
12677  M00S09828.msm     +++|          UJN    CFLX        RETURN
12678  M00S09829.msm     +++| TDF      SPACE  4,15
12679  M00S09830.msm     +++|**        TDF - TRUNCATE DAYFILE.
12680  M00S09831.msm     +++|*
12681  M00S09832.msm     +++|*         ENTRY  (P1) = DAYFILE INDEX.
12682  M00S09833.msm     +++|*                (T6) = DAYFILE EOI TRACK.
12683  M00S09834.msm     +++|*                (T7) = SECTOR AT WHICH EOI TO BE WRITTEN.
12684  M00S09835.msm     +++|*
12685  M00S09836.msm     +++|*         EXIT   (EE) .NE. 0 TO INDICATE EOI WRITTEN.
12686  M00S09837.msm     +++|*
12687  M00S09838.msm     +++|*         CALLS  WDS.
12688  M00S09839.msm     +++|
12689  M00S09840.msm     +++|
12690  M00S09841.msm     +++| TDF      SUBR               ENTRY/EXIT
12691  M00S09842.msm     +++|          LDN    0           SET EOI LINKAGE
12692  M00S09843.msm     +++|          STM    BFMS
12693  M00S09844.msm     +++|          STM    BFMS+1
12694  M00S09845.msm     +++|          LDN    ZERL        CLEAR DATE AND TIME
12695  M00S09846.msm     +++|          CRM    BFMS+DTEI,ON
12696  M00S09847.msm     +++|          LDM    MBUF+5*DALL,P1  SET FIRST TRACK
12697  M00S09848.msm     +++|          STM    BFMS+FTEI
12698  M00S09849.msm     +++|          LDC    BFMS+WLSF   WRITE EOI SECTOR
12699  M00S09850.msm     +++|          RJM    WDS
12700  M00S09851.msm     +++|          LDM    RMSF,P1     CHECK FOR FILES RECOVERED
12701  M00S09852.msm     +++|          SHN    6
12702  M00S09853.msm     +++|          PJN    TDFX        IF A FILE HAS BEEN RECOVERED
12703  M00S09854.msm     +++|          LDD    T5          SET THIS FILE AS RECOVERED
12704  M00S09855.msm     +++|          STM    RMSF,P1
12705  M00S09856.msm     +++|          UJN    TDFX        RETURN
12706  M00S09857.msm     +++| ULA      SPACE  4,15
12707  M00S09858.msm     +++|**        ULA - UPDATE SECTOR OF LOCAL AREAS.
12708  M00S09859.msm     +++|*
12709  M00S09860.msm     +++|*         ENTRY  (T5) = EST ORDINAL.
12710  M00S09861.msm     +++|*
12711  M00S09862.msm     +++|*         ERROR  TO *HNG* IF ERROR READING SECTOR OF LOCAL AREAS.
12712  M00S09863.msm     +++|*
12713  M00S09864.msm     +++|*         USES   T6.
12714  M00S09865.msm     +++|*
12715  M00S09866.msm     +++|*         CALLS  CTI, RLA, STI, WDS.
12716  M00S09867.msm     +++|*
12717  M00S09868.msm     +++|*         MACROS ENDMS, SETMS.
12718  M00S09869.msm     +++|
12719  M00S09870.msm     +++|
12720  M00S09871.msm     +++| ULA      SUBR               ENTRY/EXIT
12721  M00S09872.msm     +++|          LDC    0
12722  M00S09873.msm     +++| ULAA     EQU    *-1
12723  M00S09874.msm     +++|          ZJN    ULAX        IF NO UPDATE REQUIRED
12724  M00S09875.msm     +++|          SETMS  POSITION
12725  M00S09876.msm     +++|*         LDN    0           CLEAR UPDATE FLAG
12726  M00S09877.msm     +++|          STM    ULAA
12727  M00S09878.msm     +++|          LDM    MBUF+5*ALGL+1  SET LABEL TRACK
12728  M00S09879.msm     +++|          STD    T6
12729  M00S09880.msm     +++|          RJM    STI         INTERLOCK LABEL TRACK
12730  M00S09881.msm     +++|          RJM    RLA         READ LOCAL AREA SECTOR
12731  M00S09882.msm     +++|          PJN    ULA2        IF NO ERROR
12732  M00S09883.msm     +++| ULA1     LDD    T6          CLEAR LABEL TRACK INTERLOCK
12733  M00S09884.msm     +++|          RJM    CTI
Line S09885 Modification History
M01 (Removed by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
12734  M01S09885.283l840 ---|          LDC    LAEM        *LOCAL AREA SECTOR ERROR.*
Line S01717 Modification History
M01 (Added by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
12735  M01S01717.283l840 +++|          LDC    ULAC        *LOCAL AREA SECTOR ERROR.*
12736  M00S09886.msm     +++|          LJM    HNG         DISPLAY MESSAGE AND HANG
12737  M00S09887.msm     +++|
12738  M00S09888.msm     +++| ULA2     STM    ULAB
12739  M00S09889.msm     +++|          ZJN    ULA1        IF LOCAL AREA ENTRY NOT FOUND
12740  M00S09890.msm     +++|          LDD    MA          TRANSFER DF STATUS TO LOCAL AREA ENTRY
12741  M00S09891.msm     +++|          CWM    MBUF+5*DALL,ON
12742  M00S09892.msm     +++|          SBN    1
12743  M00S09893.msm     +++|          CRM    *,ON
12744  M00S09894.msm     +++| ULAB     EQU    *-1
12745  M00S09895.msm     +++|          LDC    BFMS+WLSF   REWRITE SECTOR OF LOCAL AREAS
12746  M00S09896.msm     +++|          RJM    WDS
12747  M00S09897.msm     +++|          ENDMS
12748  M00S09898.msm     +++|          LDD    T6          CLEAR LABEL TRACK INTERLOCK
12749  M00S09899.msm     +++|          RJM    CTI
12750  M00S09900.msm     +++|          LJM    ULAX        RETURN
Line S01718 Modification History
M01 (Added by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
12751  M01S01718.283l840 +++|
12752  M01S01719.283l840 +++|
12753  M01S01720.283l840 +++| ULAC     DATA   C*LOCAL AREA SECTOR ERROR.*
12754  M00S09901.msm     +++| VEI      SPACE  4,15
12755  M00S09902.msm     +++|**        VEI - VERIFY END OF INFORMATION SECTOR.
12756  M00S09903.msm     +++|*
12757  M00S09904.msm     +++|*         ENTRY  (ET) = TRT EOI TRACK.
12758  M00S09905.msm     +++|*                (ES) = TRT EOI SECTOR.
12759  M00S09906.msm     +++|*                (P1) = DAYFILE INDEX.
12760  M00S09907.msm     +++|*
12761  M00S09908.msm     +++|*         EXIT   (A) = 0 IF EOI ON DISK MATCHES TRT EOI.
12762  M00S09909.msm     +++|*                (T7) = DISK EOI SECTOR.
12763  M00S09910.msm     +++|*
12764  M00S09911.msm     +++|*         USES   T6, T7.
12765  M00S09912.msm     +++|*
12766  M00S09913.msm     +++|*         CALLS  CDT, RDS, TDF.
12767  M00S09914.msm     +++|*
12768  M00S09915.msm     +++|*         MACROS SETMS.
12769  M00S09916.msm     +++|
12770  M00S09917.msm     +++|
12771  M00S09918.msm     +++| VEI4     RJM    TDF         TRUNCATE DAYFILE
12772  M00S09919.msm     +++| VEI5     LDD    T7          COMPARE EOI ON DISK WITH TRT EOI
12773  M00S09920.msm     +++|          LMD    ES
12774  M00S09921.msm     +++|
12775  M00S09922.msm     +++| VEI      SUBR               ENTRY/EXIT
12776  M00S09923.msm     +++|          LDD    ET          SET EOI TRACK
12777  M00S09924.msm     +++|          STD    T6
12778  M00S09925.msm     +++|          LDD    ES          SET EOI SECTOR
12779  M00S09926.msm     +++|          STD    T7
12780  M00S09927.msm     +++|          SETMS  POSITION
12781  M00S09928.msm     +++| VEI1     LDC    BFMS        SEARCH FOR EOI ON DISK
12782  M00S09929.msm     +++|          RJM    RDS
12783  M00S09930.msm     +++|          MJN    VEI4        IF READ ERROR
12784  M00S09931.msm     +++|          LDM    BFMS
12785  M00S09932.msm     +++|          ADM    BFMS+1
12786  M00S09933.msm     +++|          ZJN    VEI2        IF EOI FOUND
12787  M00S09934.msm     +++|          AOD    T7          ADVANCE SECTOR NUMBER
12788  M00S09935.msm     +++|          LDM    BFMS        CHECK LINKAGE
12789  M00S09936.msm     +++|          SHN    6
12790  M00S09937.msm     +++|          PJN    VEI1        IF NOT CROSSING TRACK BOUNDARY
12791  M00S09938.msm     +++|          SOD    T7          SET EOI SECTOR AT END OF TRACK
12792  M00S09939.msm     +++|          RJM    TDF         TRUNCATE DAYFILE
12793  M00S09940.msm     +++| VEI2     RJM    CDT         CHECK DATE AND TIME
12794  M00S09941.msm     +++|          UJP    VEI5        SET EXIT CONDITIONS AND RETURN
12795  M00S09942.msm     +++|          SPACE  4,10
12796  M00S09943.msm     +++|**        COMMON DECKS.
12797  M00S09944.msm     +++|
12798  M00S09945.msm     +++|
12799  M00S09946.msm     +++|*CALL     COMPCTI
12800  M00S09947.msm     +++|*CALL     COMPSEI
12801  M00S09948.msm     +++|*CALL     COMPSTI
12802  M00S09949.msm     +++|          SPACE  4,10
12803  M00S09950.msm     +++|          ERRNG  BFMS-*      CODE OVERFLOWS INTO BUFFER
Line S09951 Modification History
M01 (Removed by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
12804  M01S09951.272l774 ---|          OVERFLOW  /RDG/OVL  CHECK FOR OVERFLOW
12805  M01S09952.272l774 ---|          TTL    MSM - MASS STORAGE MANAGER.
Line S00078 Modification History
M01 (Added by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
12806  M01S00078.272l774 +++|          SPACE  4,10
Line S00079 Modification History
M01 (Added by) 272l774
M02 (Removed by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
12807  M02S00079.283l840 ---|          OVERFLOW  /RDG/OVL,EPFW  CHECK FOR OVERFLOW
Line S01721 Modification History
M01 (Added by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
12808  M01S01721.283l840 +++|          OVERFLOW  ORDJ,EPFW  CHECK FOR OVERFLOW
12809  M00S09953.msm     +++|          TTL    MSM/4DK - UEM RECOVERY ROUTINES.
12810  M00S09954.msm     +++|          TITLE
12811  M00S09955.msm     +++|          IDENT  4DK,/RMS/RUJX
12812  M00S09956.msm     +++|*COMMENT  MSM - UEM RECOVERY ROUTINES.
Line S09957 Modification History
M01 (Removed by) 281l803
Seq #  *Modification Id* Act 
----------------------------+
12813  M01S09957.281l803 ---|          COMMENT COPYRIGHT CONTROL DATA CORPORATION. 1983.
Line S00012 Modification History
M01 (Added by) 281l803
Seq #  *Modification Id* Act 
----------------------------+
12814  M01S00012.281l803 +++|          COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
12815  M00S09958.msm     +++| RUE      SPACE  4,10
12816  M00S09959.msm     +++|***              *4DK* RESTORES UEM FROM THE CHECKPOINT FILE.
12817  M00S09960.msm     +++| RUE      SPACE  4,10
12818  M00S09961.msm     +++|          QUAL   RMS
Line S09962 Modification History
M01 (Removed by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
12819  M01S09962.283l840 ---|          ORG    O4DB
Line S01722 Modification History
M01 (Added by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
12820  M01S01722.283l840 +++|          ORG    ORDK
12821  M01S01723.283l840 +++|          SPACE  4,10
12822  M00S09963.msm     +++| RUJ      SUBR               ENTRY
12823  M00S09964.msm     +++|          LDK    MEFL
12824  M00S09965.msm     +++|          CRD    CM
12825  M00S09966.msm     +++|          LDD    CM+2        SET TRACK SHIFT COUNTS
12826  M00S09967.msm     +++|          SHN    -5
12827  M00S09968.msm     +++|          LPN    3
12828  M00S09969.msm     +++|          STD    T1
12829  M00S09970.msm     +++|          RAM    CUAB
12830  M00S09971.msm     +++|          LDD    T1
12831  M00S09972.msm     +++|          RAM    CUAA
12832  M00S09973.msm     +++|          RJM    RUE         RESTORE UEM
Line S00001 Modification History
M01 (Added by) msm47
Seq #  *Modification Id* Act 
----------------------------+
12833  M01S00001.msm47   +++|          LDN    0
12834  M01S00002.msm47   +++|          STD    CM
12835  M01S00003.msm47   +++|          LDC    CPAS+MS2W   CLEAR MESSAGE
12836  M01S00004.msm47   +++|          CWD    CM
12837  M00S09974.msm     +++|          LJM    RMS1        RECOVER UEM
12838  M00S09975.msm     +++| CUA      SPACE  4,10
12839  M00S09976.msm     +++|**        CUA - CALCULATE UEM ADDRESS.
12840  M00S09977.msm     +++|*
12841  M00S09978.msm     +++|*         ENTRY  (T8) = TRACK.
12842  M00S09979.msm     +++|*                (FS - FS+1) = UEM BASE ADDRESS.
12843  M00S09980.msm     +++|*
12844  M00S09981.msm     +++|*         EXIT   (A) = BITS 5 - 0 OF ABSOLUTE UEM ADDRESS.
12845  M00S09982.msm     +++|*                (FS+2 - FS+3) = BITS 27 - 6 OF ABSOLUTE UEM ADDRESS
12846  M00S09983.msm     +++|*                                (TO BE USED IN *R* REGISTER).
12847  M00S09984.msm     +++|*                (FS+4) = BITS 5 - 0 OF ABSOLUTE UEM ADDRESS
12848  M00S09985.msm     +++|*                         (TO BE USED IN *A* REGISTER).
12849  M00S09986.msm     +++|*
12850  M00S09987.msm     +++|*         USES   FS+2 - FS+4.
12851  M00S09988.msm     +++|
12852  M00S09989.msm     +++|
12853  M00S09990.msm     +++| CUA      SUBR               ENTRY/EXIT
12854  M00S09991.msm     +++|          LDD    T8          CALCULATE TRACK * 2020
12855  M00S09992.msm     +++|          SHN    6           * 100
12856  M00S09993.msm     +++|          ADD    T8          * 101
12857  M00S09994.msm     +++|          STD    FS+3
12858  M00S09995.msm     +++| CUAA     SHN    -10
12859  M00S09996.msm     +++|*         SHN    -10+EMSC
12860  M00S09997.msm     +++|          STD    FS+2        * 2020 HIGH BITS
12861  M00S09998.msm     +++|          LDD    FS+3
12862  M00S09999.msm     +++| CUAB     SHN    4
12863  M00S10000.msm     +++|*         SHN    4+EMSC
12864  M00S10001.msm     +++|          LPC    7777
12865  M00S10002.msm     +++|          ADD    FS+1        ADD UEM BASE ADDRESS
12866  M00S10003.msm     +++|          STD    FS+4        LOW LOW BITS FOR *A* REGISTER
12867  M00S10004.msm     +++|          SHN    -14
12868  M00S10005.msm     +++|          ADD    FS
12869  M00S10006.msm     +++|          RAD    FS+2        HIGH BYTE ABSOLUTE UEM ADDRESS
12870  M00S10007.msm     +++|          SHN    6           SHIFT RESULT FOR *R* REGISTER
12871  M00S10008.msm     +++|          STD    FS+3
12872  M00S10009.msm     +++|          SHN    6
12873  M00S10010.msm     +++|          STD    FS+2
12874  M00S10011.msm     +++|          LDD    FS+4
12875  M00S10012.msm     +++|          SHN    14
12876  M00S10013.msm     +++|          RAD    FS+3
12877  M00S10014.msm     +++|          SHN    -14
12878  M00S10015.msm     +++|          STD    FS+4        SET LOW 6 BITS FOR *A* REGISTER
12879  M00S10016.msm     +++|          UJN    CUAX        RETURN
12880  M00S10017.msm     +++| GCD      SPACE  4,15
12881  M00S10018.msm     +++|**        GCD - GET CHECKPOINT DEVICE.
12882  M00S10019.msm     +++|*
12883  M00S10020.msm     +++|*         ENTRY  (CD) = CURRENT EST ORDINAL.
12884  M00S10021.msm     +++|*                (LO) = LAST MASS STORAGE ORDINAL + 1.
12885  M00S10022.msm     +++|*
12886  M00S10023.msm     +++|*         EXIT   (A) = 0 IF END OF MASS STORAGE DEVICES.
12887  M00S10024.msm     +++|*                (T5) = (CD) = CHECKPOINT DEVICE ORDINAL.
12888  M00S10025.msm     +++|*                (T6) = TRACK POINTER TO UEM PORTION OF CHECKPOINT
12889  M00S10026.msm     +++|*                       FILE.
12890  M00S10027.msm     +++|*                (FN - FN+4) = EST ENTRY.
12891  M00S10028.msm     +++|*
12892  M00S10029.msm     +++|*         USES   CD, RI, RI+1, T5, T6, FN - FN+4.
12893  M00S10030.msm     +++|*
12894  M00S10031.msm     +++|*         CALLS  CRA, GSP.
12895  M00S10032.msm     +++|*
12896  M00S10033.msm     +++|*         MACROS SETMS, SFA.
12897  M00S10034.msm     +++|
12898  M00S10035.msm     +++|
12899  M00S10036.msm     +++| GCD      SUBR               ENTRY/EXIT
12900  M00S10037.msm     +++| GCD1     AOD    CD          ADVANCE EST ORDINAL
12901  M00S10038.msm     +++|          STD    T5
12902  M00S10039.msm     +++|          LMD    LO
12903  M00S10040.msm     +++|          ZJN    GCDX        IF END OF DEVICES
12904  M00S10041.msm     +++|          SFA    EST,T5      READ EST ENTRY
12905  M00S10042.msm     +++|          ADK    EQDE
12906  M00S10043.msm     +++|          CRD    FN
12907  M00S10044.msm     +++|          LDD    FN
12908  M00S10045.msm     +++|          SHN    21-13
12909  M00S10046.msm     +++|          PJN    GCD1        IF NOT MASS STORAGE DEVICE
12910  M00S10047.msm     +++|          SHN    13-2
12911  M00S10048.msm     +++|          PJN    GCD1        IF NOT CHECKPOINT DEVICE
12912  M00S10049.msm     +++|          LDD    FN+4
12913  M00S10050.msm     +++|          SHN    3
12914  M00S10051.msm     +++|          ADN    DULL
12915  M00S10052.msm     +++|          CRD    CM
12916  M00S10053.msm     +++|          LDD    CM+3        CHECKPOINT FILE POINTER
12917  M00S10054.msm     +++|          STD    P1
12918  M00S10055.msm     +++|          SHN    21-13
12919  M00S10056.msm     +++|          PJN    GCD1        IF NOT A VALID FILE
12920  M00S10057.msm     +++|          RJM    GSP         GET SECTOR POINTER
12921  M00S10058.msm     +++|          ZJN    GCD1        IF ERROR
12922  M00S10059.msm     +++|          STD    RI+1        SET RANDOM ADDRESS
12923  M00S10060.msm     +++|          LDN    0
12924  M00S10061.msm     +++|          STD    RI
12925  M00S10062.msm     +++|          LDD    P1          SET CHECKPOINT FILE TRACK
12926  M00S10063.msm     +++|          STD    T6
12927  M00S10064.msm     +++|          RJM    CRA         CONVERT RANDOM ADDRESS
12928  M00S10065.msm     +++|          MJN    GCD1        IF ADDRESS NOT ON TRT CHAIN
Line S10066 Modification History
M01 (Removed by) msm47
Seq #  *Modification Id* Act 
----------------------------+
12929  M01S10066.msm47   ---|          SETMS  IO
Line S00005 Modification History
M01 (Added by) msm47
Seq #  *Modification Id* Act 
----------------------------+
12930  M01S00005.msm47   +++|          SETMS  READSTR
12931  M00S10067.msm     +++|          LDN    1           INDICATE CHECKPOINT DEVICE FOUND
12932  M00S10068.msm     +++|          LJM    GCDX        RETURN
12933  M00S10069.msm     +++| GSP      SPACE  4,15
12934  M00S10070.msm     +++|**        GSP - GET UEM SECTOR POINTER.
12935  M00S10071.msm     +++|*
12936  M00S10072.msm     +++|*         THIS ROUTINE RETURNS THE UEM SECTOR OFFSET.
12937  M00S10073.msm     +++|*
12938  M00S10074.msm     +++|*         ENTRY  (FN - FN+4) = DEVICE EST ENTRY.
12939  M00S10075.msm     +++|*                (T5) = DEVICE EST ORDINAL.
12940  M00S10076.msm     +++|*
12941  M00S10077.msm     +++|*         EXIT   (A) = 0, IF ERROR.
12942  M00S10078.msm     +++|*                    = SECTOR OFFSET IF NO ERROR.
12943  M00S10079.msm     +++|*
12944  M00S10080.msm     +++|*         USES   CM - CM+4.
12945  M00S10081.msm     +++|
12946  M00S10082.msm     +++|
12947  M00S10083.msm     +++| GSP      SUBR               ENTRY/EXIT
12948  M00S10084.msm     +++|          LDD    RA
12949  M00S10085.msm     +++|          SHN    6
12950  M00S10086.msm     +++|          ADD    T5
12951  M00S10087.msm     +++|          CRD    CM
12952  M00S10088.msm     +++|          SBD    T5
12953  M00S10089.msm     +++|          ADD    AL-RD+CM
12954  M00S10090.msm     +++|          ADN    DALL
12955  M00S10091.msm     +++|          CRD    CM
12956  M00S10092.msm     +++|          LDD    CM+4
12957  M00S10093.msm     +++|          UJN    GSPX        RETURN
12958  M00S10094.msm     +++| RUE      SPACE  4,15
12959  M00S10095.msm     +++|**        RUE - RECOVER UEM.
12960  M00S10096.msm     +++|*
12961  M00S10097.msm     +++|*         USES   T8, T9, FS+4, CM - CM+4.
12962  M00S10098.msm     +++|*
Line S10099 Modification History
M01 (Removed by) msm47
Seq #  *Modification Id* Act 
----------------------------+
12963  M01S10099.msm47   ---|*         CALLS  CUA, GCD, RNS.
Line S00006 Modification History
M01 (Added by) msm47
Seq #  *Modification Id* Act 
----------------------------+
12964  M01S00006.msm47   +++|*         CALLS  CUA, C2D, GCD, RNS.
12965  M00S10100.msm     +++|*
12966  M00S10101.msm     +++|*         MACROS ENDMS.
12967  M00S10102.msm     +++|
12968  M00S10103.msm     +++|
12969  M00S10104.msm     +++| RUE5     ENDMS
12970  M00S10105.msm     +++|          LDC    RUEA        *CHECKPOINT DEVICE NOT FOUND.*
12971  M00S10106.msm     +++|          LJM    /RMS/HNG    ISSUE ERROR MESSAGE AND HANG
12972  M00S10107.msm     +++|
12973  M00S10108.msm     +++| RUE6     ENDMS
12974  M00S10109.msm     +++|          LDK    NJNI-ZJNI   SET TO PROCESS ONLY UEM
12975  M00S10110.msm     +++|          STM    RMSH
12976  M00S10111.msm     +++|
12977  M00S10112.msm     +++| RUE      SUBR               ENTRY/EXIT
12978  M00S10113.msm     +++|          LDK    NOPE-1      SET EST ORDINAL
12979  M00S10114.msm     +++|          STD    CD
12980  M00S10115.msm     +++|          LDK    UEML        PRESET UEM BASE ADDRESS
12981  M00S10116.msm     +++|          CRD    CM
12982  M00S10117.msm     +++|          LDD    CM
12983  M00S10118.msm     +++|          SHN    21-2
12984  M00S10119.msm     +++|          STD    FS
12985  M00S10120.msm     +++|          SHN    -6
12986  M00S10121.msm     +++|          SCN    7
12987  M00S10122.msm     +++|          STD    FS+1
12988  M00S10123.msm     +++| MSR      CON    PSNI        *RNS* ERROR RETURN
12989  M00S10124.msm     +++| RUE1     RJM    GCD         GET CHECKPOINT DEVICE
12990  M00S10125.msm     +++|          ZJN    RUE5        IF END OF CHECKPOINT DEVICES
12991  M00S10126.msm     +++| RUE2     LDC    BFMS        READ LINKAGE SECTOR
12992  M00S10127.msm     +++|          RJM    /4DK/RNS
Line S00007 Modification History
M01 (Added by) msm47
Seq #  *Modification Id* Act 
----------------------------+
12993  M01S00007.msm47   +++|          ADI    T3
12994  M00S10128.msm     +++|          ZJN    RUE6        IF EOI REACHED
12995  M00S10129.msm     +++|          LDM    BFMS+2      SET TRACK NUMBER
12996  M00S10130.msm     +++|          STD    T8
12997  M00S10131.msm     +++|          LDM    BFMS+3      SET SECTOR COUNT
12998  M00S10132.msm     +++|          STD    T9
Line S00008 Modification History
M01 (Added by) msm47
Seq #  *Modification Id* Act 
----------------------------+
12999  M01S00008.msm47   +++|          LDD    T8
13000  M01S00009.msm47   +++|          SHN    -6
13001  M01S00010.msm47   +++|          RJM    C2D         CONVERT UPPER 2 DIGITS OF TRACK TO DISPLAY
13002  M01S00011.msm47   +++|          STM    RUEB+12
13003  M01S00012.msm47   +++|          LDD    T8
13004  M01S00013.msm47   +++|          RJM    C2D         CONVERT LOWER 2 DIGITS OF TRACK TO DISPLAY
13005  M01S00014.msm47   +++|          STM    RUEB+13
13006  M01S00015.msm47   +++|          LDC    CPAS+MS2W   ISSUE *RESTORING UEM TRACK XXXX* MESSAGE
13007  M01S00016.msm47   +++|          CWM    RUEB,TR
13008  M00S10133.msm     +++|          RJM    CUA         CALCULATE UEM ADDRESS
13009  M00S10134.msm     +++|          LDM    BFMS+1
13010  M00S10135.msm     +++|          ZJN    RUE3        IF LINKAGE WORDS NOT IN THIS SECTOR
13011  M00S10136.msm     +++|          STD    T3
13012  M00S10137.msm     +++|          RAD    FS+4        ADVANCE UEM ADDRESS FOR LATER
13013  M00S10138.msm     +++|          SBD    T3
13014  M00S10139.msm     +++|          ADC    400000
13015  M00S10140.msm     +++|          LRD    FS+2
13016  M00S10141.msm     +++|          CWM    BFMS+4,T3   WRITE LINKAGE WORDS TO UEM
13017  M00S10142.msm     +++| RUE3     LDC    BFMS
13018  M00S10143.msm     +++|          RJM    /4DK/RNS
13019  M00S10144.msm     +++|          LDD    FS+4
13020  M00S10145.msm     +++|          ADC    400000
13021  M00S10146.msm     +++|          LRD    FS+2        WRITE SECTOR TO UEM
13022  M00S10147.msm     +++|          CWM    BFMS+2,HN
13023  M00S10148.msm     +++|          AOD    FS+3        ADVANCE UEM ADDRESS
13024  M00S10149.msm     +++|          SHN    -14
13025  M00S10150.msm     +++|          RAD    FS+2
13026  M00S10151.msm     +++|          SOD    T9          DECREMENT SECTOR COUNT
13027  M00S10152.msm     +++|          NJN    RUE3        IF NOT FINISHED WITH TRACK
13028  M00S10153.msm     +++|          LJM    RUE2        IF FINISHED WITH TRACK
13029  M00S10154.msm     +++|
13030  M00S10155.msm     +++|
13031  M00S10156.msm     +++| RUEA     DATA   C*CHECKPOINT DEVICE NOT FOUND.*
Line S00017 Modification History
M01 (Added by) msm47
Seq #  *Modification Id* Act 
----------------------------+
13032  M01S00017.msm47   +++| RUEB     DATA   C*RESTORING UEM TRACK XXXX.*
13033  M00S10157.msm     +++|          SPACE  4,15
13034  M00S10158.msm     +++|**        COMMON DECKS.
13035  M00S10159.msm     +++|
13036  M00S10160.msm     +++|*CALL     COMPCRA
13037  M00S10161.msm     +++|
13038  M00S10162.msm     +++|          QUAL   4DK
13039  M00S10163.msm     +++|
13040  M00S10164.msm     +++| MSR      EQU    /RMS/MSR
13041  M00S10165.msm     +++| MSR$     SET    1           SELECT ERROR PROCESSING IN *COMPRNS*
13042  M00S10166.msm     +++|*CALL     COMPRNS
13043  M00S10167.msm     +++|
13044  M00S10168.msm     +++|          QUAL   *
13045  M00S10169.msm     +++|          SPACE  4,10
Line S10170 Modification History
M01 (Removed by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
13046  M01S10170.272l774 ---|          ERRPL  *-BFMS      DATA BUFFER OVERLAYS CODE
13047  M01S10171.272l774 ---|          OVERFLOW  O4DB     CHECK FOR OVERFLOW
13048  M01S10172.272l774 ---|          TTL
Line S00080 Modification History
M01 (Added by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
13049  M01S00080.272l774 +++|          ERRNG  BFMS-*      DATA BUFFER OVERLAYS CODE
13050  M01S00081.272l774 +++|          SPACE  4,10
Line S00082 Modification History
M01 (Added by) 272l774
M02 (Removed by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
13051  M02S00082.283l840 ---|          OVERFLOW  O4DB,EPFW  CHECK FOR OVERFLOW
Line S01724 Modification History
M01 (Added by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
13052  M01S01724.283l840 +++|          OVERFLOW  ORDK,EPFW  CHECK FOR OVERFLOW
Line S00083 Modification History
M01 (Added by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
13053  M01S00083.272l774 +++|          SPACE  4
13054  M01S00084.272l774 +++|          TTL    MSM - MASS STORAGE MANAGER.
13055  M00S10173.msm     +++|          END
cdc/nos2.source/opl.opl871/deck/msm.007.txt ยท Last modified: by 127.0.0.1