User Tools

Site Tools


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

Deck MSM Part 010

30 Modifications

Listing Sections

Source

Seq #  *Modification Id* Act 
----------------------------+
11989  M01S00040.ns2776  +++|*         MACROS ENDMS, EXECUTE, SMSTF.
11990  M01S09420.msm     +++|
11991  M01S09421.msm     +++|
Line S09422 Modification History
M01 (Added by) msm
M02 (Updated by) ns2776
Seq #  *Modification Id* Act 
----------------------------+
11992  M02S09422.ns2776  ---| RCS8     LDD    FR          FORMAT REQUIRED STATUS
11993  M01S00041.ns2776  +++| RCS8     LDC    **          CHECK DEADSTART SECTOR
11994  M01S00042.ns2776  +++| RCSA     EQU    *-1
11995  M01S00043.ns2776  +++|          NJN    RCSX        IF NO VALID DEADSTART SECTOR
11996  M01S00044.ns2776  +++|          LDD    FR          FORMAT REQUIRED STATUS
11997  M01S09423.msm     +++|
11998  M01S09424.msm     +++| RCS      SUBR               ENTRY/EXIT
11999  M01S09425.msm     +++|          LDN    0
12000  M01S09426.msm     +++|          STD    FR          CLEAR FORMAT REQUIRED
12001  M01S09427.msm     +++|          STD    LC
12002  M01S09428.msm     +++|          LDD    CS
12003  M01S09429.msm     +++|          ZJN    RCSX        IF ALL CONCURRENT CHANNELS
12004  M01S09430.msm     +++|          LDD    EQ          SET PARAMETER WORD
12005  M01S09431.msm     +++|          LMC    4000
12006  M01S09432.msm     +++|          STM    MIPA
12007  M01S09433.msm     +++|          EXECUTE  0PI,MILA  READ DEADSTART SECTOR
Line S09434 Modification History
M01 (Added by) msm
M02 (Updated by) ns2776
Seq #  *Modification Id* Act 
----------------------------+
12008  M02S09434.ns2776  ---|          NJN    RCSX        IF NOT A VALID DEADSTART SECTOR
12009  M01S00045.ns2776  +++|          STM    RCSA
12010  M01S00046.ns2776  +++|          NJN    RCS1.1      IF NOT A VALID DEADSTART SECTOR
12011  M01S09435.msm     +++|          ENDMS
12012  M01S09436.msm     +++|          LDM    BFMS+CFBP   EXTRACT FORMAT REQUIRED FLAG
12013  M01S09437.msm     +++|          LPN    40
12014  M01S09438.msm     +++|          STD    FR
12015  M01S09439.msm     +++|          LMM    BFMS+CFBP   CLEAR FORMAT REQUIRED FLAG
12016  M01S09440.msm     +++|          STM    BFMS+CFBP
12017  M01S09441.msm     +++|          LDM    BFMS+MSLP
12018  M01S09442.msm     +++|          NJN    RCS1        IF *MSL* INSTALLED
12019  M01S09443.msm     +++|          LDM    BFMS+CDAP
12020  M01S09444.msm     +++|          NJN    RCS1        IF COMMON DISK AREA INSTALLED
12021  M01S09445.msm     +++|          LDM    BFMS+CTIP
12022  M01S09446.msm     +++| RCS1     STD    LC
Line S09447 Modification History
M01 (Added by) msm
M02 (Updated by) ns2776
Seq #  *Modification Id* Act 
----------------------------+
12023  M02S09447.ns2776  ---|          ZJP    RCS8        IF *CTI* NOT INSTALLED
Line S09448 Modification History
M01 (Added by) msm
M02 (Updated by) ns2776
Seq #  *Modification Id* Act 
----------------------------+
12024  M02S09448.ns2776  ---|          SHN    1
12025  M01S00047.ns2776  +++|          NJN    RCS1.2      IF *CTI* INSTALLED
12026  M01S00048.ns2776  +++| RCS1.1   LDD    AM
12027  M01S00049.ns2776  +++|          LMN    AIDR
12028  M01S00050.ns2776  +++|          NJP    RCS8        IF NOT CDSS II
12029  M01S00051.ns2776  +++|          LDC    840D        FIRST CYLINDER OF AREA TO BE FLAWED
12030  M01S00052.ns2776  +++| RCS1.2   SHN    1
12031  M01S09449.msm     +++|          STD    T3
12032  M01S09450.msm     +++|          LDD    FN+4        GET DEVICE LENGTH FROM MST
12033  M01S09451.msm     +++|          SHN    3
12034  M01S09452.msm     +++|          ADK    TDGL
12035  M01S09453.msm     +++|          CRD    CN
12036  M01S09454.msm     +++|          LDD    AM
12037  M01S09455.msm     +++|          LMN    AIDA
12038  M01S09456.msm     +++|          NJN    RCS2        IF NOT 33502
12039  M01S09457.msm     +++|          LDD    T3
12040  M01S09458.msm     +++|          SHN    -1
12041  M01S09459.msm     +++|          ADC    NTDA/2      COMPLETE CYLINDER TO TRACK CONVERSION
12042  M01S09460.msm     +++|          STD    T3
12043  M01S09461.msm     +++|          UJN    RCS4        FLAW TRACKS
12044  M01S09462.msm     +++|
12045  M01S09463.msm     +++| RCS2     LMN    AIDI&AIDA
12046  M01S09464.msm     +++|          ZJN    RCS3        IF 7X54/844-21
12047  M01S09465.msm     +++|          LMN    AIDK&AIDI
12048  M01S09466.msm     +++|          ZJN    RCS3        IF 7154/844-21
12049  M01S09467.msm     +++|          LMN    AIDX&AIDK
Line S09468 Modification History
M01 (Added by) msm
M02 (Updated by) ns2776
Seq #  *Modification Id* Act 
----------------------------+
12050  M02S09468.ns2776  ---|          NJN    RCS4        IF NOT FSC 3330-1
12051  M01S00053.ns2776  +++|          ZJN    RCS3        IF FSC 3330-1
12052  M01S00054.ns2776  +++|          LMN    AIDR&AIDX
12053  M01S00055.ns2776  +++|          NJN    RCS4        IF NOT CDSS II
12054  M01S00056.ns2776  +++|          LDD    T3          INITIALIZE TRACK CALCULATION
12055  M01S00057.ns2776  +++|          STD    T9
12056  M01S00058.ns2776  +++|          LDN    0
12057  M01S00059.ns2776  +++|          STD    T3
12058  M01S00060.ns2776  +++|          LDC    1062        SET FLAW LIMIT FOR CDSS II
12059  M01S00061.ns2776  +++|          STD    CN
12060  M01S00062.ns2776  +++| RCS2.1   LCN    3           FOR THIS PURPOSE, TRACK = CYLINDER*2/3
12061  M01S00063.ns2776  +++|          RAD    T9
12062  M01S00064.ns2776  +++|          MJN    RCS5        IF CONVERSION COMPLETE
12063  M01S00065.ns2776  +++|          AOD    T3          INCREMENT TRACK NUMBER
12064  M01S00066.ns2776  +++|          UJN    RCS2.1      CONTINUE DIVISION
12065  M01S00067.ns2776  +++|
12066  M01S09469.msm     +++| RCS3     LDD    T3
12067  M01S09470.msm     +++|          RAD    T3          COMPLETE CYLINDER CONVERSION
12068  M01S09471.msm     +++| RCS4     LDD    T3
12069  M01S09472.msm     +++|          SBD    CN
12070  M01S09473.msm     +++|          PJN    RCS7        IF *CTI* BEYOND LOGICAL END OF DEVICE
Line S09474 Modification History
M01 (Added by) msm
M02 (Updated by) ns2776
Seq #  *Modification Id* Act 
----------------------------+
12071  M02S09474.ns2776  ---| RCS5     LDD    T3          CHECK TRACK FLAWED
Line S09475 Modification History
M01 (Added by) msm
M02 (Updated by) ns2776
Seq #  *Modification Id* Act 
----------------------------+
12072  M02S09475.ns2776  ---|          RJM    CTF
Line S09476 Modification History
M01 (Added by) msm
M02 (Updated by) ns2776
Seq #  *Modification Id* Act 
----------------------------+
12073  M02S09476.ns2776  ---|          ZJN    RCS6        IF TRACK FLAWED
Line S09477 Modification History
M01 (Added by) msm
M02 (Updated by) ns2776
Seq #  *Modification Id* Act 
----------------------------+
12074  M02S09477.ns2776  ---|          LDD    T5
Line S09478 Modification History
M01 (Added by) msm
M02 (Updated by) ns2776
Seq #  *Modification Id* Act 
----------------------------+
12075  M02S09478.ns2776  ---|          STD    CM+1
Line S09479 Modification History
M01 (Added by) msm
M02 (Updated by) ns2776
Seq #  *Modification Id* Act 
----------------------------+
12076  M02S09479.ns2776  ---|          LDD    T3
Line S09480 Modification History
M01 (Added by) msm
M02 (Updated by) ns2776
Seq #  *Modification Id* Act 
----------------------------+
12077  M02S09480.ns2776  ---|          STD    CM+2
Line S09481 Modification History
M01 (Added by) msm
M02 (Updated by) ns2776
Seq #  *Modification Id* Act 
----------------------------+
12078  M02S09481.ns2776  ---|          LDN    STFS        FLAW TRACK IN TRT
Line S09482 Modification History
M01 (Added by) msm
M02 (Updated by) ns2776
Seq #  *Modification Id* Act 
----------------------------+
12079  M02S09482.ns2776  ---|          STD    CM+3
Line S09483 Modification History
M01 (Added by) msm
M02 (Updated by) ns2776
Seq #  *Modification Id* Act 
----------------------------+
12080  M02S09483.ns2776  ---|          MONITOR  STBM
Line S09484 Modification History
M01 (Added by) msm
M02 (Updated by) ns2776
Seq #  *Modification Id* Act 
----------------------------+
12081  M02S09484.ns2776  ---| RCS6     AOD    T3          ADVANCE TRACK NUMBER
Line S09485 Modification History
M01 (Added by) msm
M02 (Updated by) ns2776
Seq #  *Modification Id* Act 
----------------------------+
12082  M02S09485.ns2776  ---|          LMD    CN
Line S09486 Modification History
M01 (Added by) msm
M02 (Updated by) ns2776
Seq #  *Modification Id* Act 
----------------------------+
12083  M02S09486.ns2776  ---|          NJN    RCS5        IF NOT END OF LOGICAL DEVICE
12084  M01S00068.ns2776  +++| RCS5     RJM    FBT         FLAW BLOCK OF TRACKS
12085  M01S00069.ns2776  +++|          LDD    LC
12086  M01S00070.ns2776  +++|          ZJP    RCS8        IF *CTI* NOT PRESENT (CDSS II ONLY)
12087  M01S09487.msm     +++| RCS7     SMSTF  GCTI        SET *CTI* PRESENT FLAG
12088  M01S09488.msm     +++|          LDN    ZERL        CLEAR DEADSTART FILE INDICATOR
12089  M01S09489.msm     +++|          CRM    BFMS+OSBP,ON
12090  M01S09490.msm     +++|          LDC    BFMS+WLSF   REWRITE DEADSTART SECTOR
12091  M01S09491.msm     +++|          RJM    WDS
12092  M01S09492.msm     +++|          ENDMS              RELEASE CHANNEL
12093  M01S09493.msm     +++|*         LDN    0
12094  M01S09494.msm     +++|          LJM    RCSX        RETURN
12095  M01S09495.msm     +++| SNC      SPACE  4,10
12096  M01S09496.msm     +++|**        SNC - SELECT AVAILABLE NIO CHANNEL.
12097  M01S09497.msm     +++|*
12098  M01S09498.msm     +++|*         ENTRY  (FN - FN+4) = EST ENTRY.
12099  M01S09499.msm     +++|*
12100  M01S09500.msm     +++|*         EXIT   (A) = 0, IF NO NIO CHANNEL AVAILABLE
12101  M01S09501.msm     +++|*                    = NON-CONCURRENT CHANNEL BYTE.
12102  M01S09502.msm     +++|
12103  M01S09503.msm     +++|
12104  M01S09504.msm     +++| SNC2     AOD    T0          ADVANCE ADDRESS
12105  M01S09505.msm     +++|          LMN    FN+3
12106  M01S09506.msm     +++|          NJN    SNC1        IF POSSIBLE SECOND CHANNEL
12107  M01S09507.msm     +++|
12108  M01S09508.msm     +++| SNC      SUBR               ENTRY/EXIT
12109  M01S09509.msm     +++|          LDN    FN+1
12110  M01S09510.msm     +++|          STD    T0          INITIALIZE CHANNEL BYTE ADDRESS
12111  M01S09511.msm     +++| SNC1     LDI    T0
12112  M01S09512.msm     +++|          LPC    7040        CHECK CHANNEL STATUS
12113  M01S09513.msm     +++|          LMC    4000
12114  M01S09514.msm     +++|          NJN    SNC2        IF NOT AN AVAILABLE CHANNEL
12115  M01S09515.msm     +++|          LDI    T0
12116  M01S09516.msm     +++|          UJN    SNCX        RETURN
Line S09517 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
12117  M02S09517.283l840 ---| WNB      SPACE  4,10
Line S09518 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
12118  M02S09518.283l840 ---|**        WNB - WAIT NOT BUSY.
Line S09519 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
12119  M02S09519.283l840 ---|*
Line S09520 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
12120  M02S09520.283l840 ---|*         ERROR  TO */RMS/HNG* IF CONTROLLER HUNG BUSY.
Line S09521 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
12121  M02S09521.283l840 ---|*
Line S09522 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
12122  M02S09522.283l840 ---|*         USES   T1, T2.
Line S09523 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
12123  M02S09523.283l840 ---|*
Line S09524 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
12124  M02S09524.283l840 ---|*         CALLS  C2D.
Line S09525 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
12125  M02S09525.283l840 ---|
Line S09526 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
12126  M02S09526.283l840 ---|
Line S09527 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
12127  M02S09527.283l840 ---| WNB      SUBR               ENTRY/EXIT
Line S09528 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
12128  M02S09528.283l840 ---|          LDC    400D
Line S09529 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
12129  M02S09529.283l840 ---|          STD    T2          SET 400 MILLISECOND DELAY
Line S09530 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
12130  M02S09530.283l840 ---| WNB1     DELAY  10
Line S09531 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
12131  M02S09531.283l840 ---|          FNC    FCGS,DC     REQUEST GENERAL STATUS
Line S09532 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
12132  M02S09532.283l840 ---|          ACN    DC
Line S09533 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
12133  M02S09533.283l840 ---|          IAN    DC          INPUT STATUS
Line S09534 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
12134  M02S09534.283l840 ---|          DCN    DC
Line S09535 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
12135  M02S09535.283l840 ---|          STD    T1          SAVE GENERAL STATUS
Line S09536 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
12136  M02S09536.283l840 ---|          LPN    2
Line S09537 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
12137  M02S09537.283l840 ---|          ZJN    WNBX        IF NOT BUSY
Line S09538 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
12138  M02S09538.283l840 ---|          SOD    T2
Line S09539 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
12139  M02S09539.283l840 ---|          NJN    WNB1        IF NOT TIMEOUT
Line S09540 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
12140  M02S09540.283l840 ---|          LDD    T1
Line S09541 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
12141  M02S09541.283l840 ---|          SHN    -6
Line S09542 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
12142  M02S09542.283l840 ---|          RJM    C2D         CONVERT GENERAL STATUS
Line S09543 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
12143  M02S09543.283l840 ---|          STM    WNBA+11
Line S09544 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
12144  M02S09544.283l840 ---|          LDD    T1
Line S09545 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
12145  M02S09545.283l840 ---|          RJM    C2D
Line S09546 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
12146  M02S09546.283l840 ---|          STM    WNBA+12     STORE IN MESSAGE
Line S09547 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
12147  M02S09547.283l840 ---|          LDC    WNBA
Line S09548 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
12148  M02S09548.283l840 ---|          LJM    /RMS/HNG    DISPLAY MESSAGE AND HANG PP
Line S09549 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
12149  M02S09549.283l840 ---|
Line S09550 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
12150  M02S09550.283l840 ---|
Line S09551 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
12151  M02S09551.283l840 ---| WNBA     DATA   C* HUNG BUSY - GS = XXXX.*
Line S09552 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
12152  M02S09552.283l840 ---|
Line S09553 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
12153  M02S09553.283l840 ---|
12154  M01S01473.283l840 +++|          SPACE  4,10
12155  M01S09554.msm     +++|**        COMMON DECKS.
12156  M01S09555.msm     +++|
12157  M01S09556.msm     +++|
12158  M01S09557.msm     +++|*CALL     COMPSDR
12159  M01S09558.msm     +++|          SPACE  4,10
Line S09559 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
12160  M02S09559.283l840 ---|**        CHANNEL TABLE.
12161  M01S01474.283l840 +++| ORDI     EQU    *+5         LOAD ADDRESS FOR *4DI*
12162  M01S09560.msm     +++|
Line S09561 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
12163  M02S09561.283l840 ---|
Line S09562 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
12164  M02S09562.283l840 ---|          CHTB   DC
Line S09563 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
12165  M02S09563.283l840 ---|          SPACE  4,10
12166  M01S09564.msm     +++| MIPA     EQU    *           *0TI* PARAMETER ADDRESS
12167  M01S09565.msm     +++| MILA     EQU    MIPA+1      *0TI* LOAD ADDRESS
Line S09566 Modification History
M01 (Added by) msm
M02 (Updated by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
12168  M02S09566.272l774 ---|
12169  M01S00076.272l774 +++|          SPACE  4,10
12170  M01S09567.msm     +++|          ERRNG  BFMS-MILA-ZPXL  OVERFLOW INTO BUFFER
12171  M01S09568.msm     +++|          ERRNG  BFMS-MILA-ZTXL  OVERFLOW INTO BUFFER
12172  M01S09569.msm     +++| POV      SPACE  4,10
12173  M01S09570.msm     +++|**        POV - PRESET OVERLAY.
12174  M01S09571.msm     +++|
12175  M01S09572.msm     +++|
12176  M01S09573.msm     +++| POV      LDM    MMFP
12177  M01S09574.msm     +++|          ZJN    POV3        IF DO NOT PRESET FOR MMF
12178  M01S09575.msm     +++|          LDC    MMFL
12179  M01S09576.msm     +++|          CRD    CM
12180  M01S09577.msm     +++|          LDD    CM+3        SET MACHINE MASK
12181  M01S09578.msm     +++|          LMM    IMSA
12182  M01S09579.msm     +++|          STM    IMSA
12183  M01S09580.msm     +++|          LDC    L"QUAL"     SET LIST ADDRESS
12184  M01S09581.msm     +++|          STD    T1
12185  M01S09582.msm     +++|          UJN    POV2        ENTER LOOP
12186  M01S09583.msm     +++|
12187  M01S09584.msm     +++| POV1     STD    T0
12188  M01S09585.msm     +++|          LDN    PSNI        REPLACE INSTRUCTION WITH *PSN*
12189  M01S09586.msm     +++|          STI    T0
12190  M01S09587.msm     +++|          AOD    T1          ADVANCE ADDRESS
12191  M01S09588.msm     +++| POV2     LDI    T1
12192  M01S09589.msm     +++|          NJN    POV1        IF MORE TO PRESET
Line S09590 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
12193  M02S09590.283l840 ---| POV3     LJM    RDIX        RETURN
12194  M01S01475.283l840 +++| POV3     LJM    RDHX        RETURN
12195  M01S09591.msm     +++|
12196  M01S09592.msm     +++|*         LIST OF INSTRUCTIONS TO BE PRESET.
12197  M01S09593.msm     +++|
12198  M01S09594.msm     +++| L"QUAL"  BSS    0
12199  M01S09595.msm     +++| L"QUAL"  HERE
12200  M01S01476.283l840 +++|          ERRZR  L"QUAL"-*   TABLE EMPTY - REMOVE PRESET CODE
12201  M01S09596.msm     +++|          CON    0           TERMINATE LIST
12202  M01S09597.msm     +++|
12203  M01S09598.msm     +++|          QUAL
12204  M01S09599.msm     +++|
Line S09600 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
12205  M02S09600.283l840 ---| IMS      EQU    /RDI/IMS
12206  M01S01477.283l840 +++| IMS      EQU    /RDH/IMS
12207  M01S01478.283l840 +++| ORDI     EQU    /RDH/ORDI
12208  M01S09601.msm     +++|          SPACE  4,10
Line S09602 Modification History
M01 (Added by) msm
M02 (Updated by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
12209  M02S09602.272l774 ---|          OVERFLOW OSOV      CHECK FOR OVERFLOW
Line S00077 Modification History
M01 (Added by) 272l774
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
12210  M02S00077.283l840 ---|          OVERFLOW  OSOV,EPFW  CHECK FOR OVERFLOW
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  M01S09603.msm     +++|          TTL    MSM/4DJ - DAYFILE RECOVERY ROUTINES.
12449  M01S09604.msm     +++|          TITLE
12450  M01S09605.msm     +++|          IDENT  4DJ,/RMS/RDJX
12451  M01S09606.msm     +++|*COMMENT  MSM - DAYFILE RECOVERY ROUTINES.
Line S09607 Modification History
M01 (Added by) msm
M02 (Updated by) 281l803
Seq #  *Modification Id* Act 
----------------------------+
12452  M02S09607.281l803 ---|          COMMENT COPYRIGHT CONTROL DATA CORPORATION. 1981.
12453  M01S00011.281l803 +++|          COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
12454  M01S09608.msm     +++|          SPACE  4,10
12455  M01S09609.msm     +++|***              *4DJ* CONTAINS ROUTINES UTILIZED BY *RMS* IN
12456  M01S09610.msm     +++|*         RECOVERING DAYFILES.
12457  M01S09611.msm     +++|          SPACE  4,10
12458  M01S09612.msm     +++|          QUAL   RMS
Line S09613 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
12459  M02S09613.283l840 ---|          ORG    /RDG/OVL
12460  M01S01716.283l840 +++|          ORG    ORDJ
12461  M01S09614.msm     +++|
12462  M01S09615.msm     +++| RDJ      SUBR               ENTRY/EXIT
12463  M01S09616.msm     +++|          UJN    RDJX        RETURN
12464  M01S09617.msm     +++| CDC      SPACE  4,25
12465  M01S09618.msm     +++|**        CDC - CHASE DAYFILE CHAIN.
12466  M01S09619.msm     +++|*
12467  M01S09620.msm     +++|*         CDC CHASES THE DAYFILE CHAIN ON DISK TO RECOVER THE
12468  M01S09621.msm     +++|*         DAYFILE RIGHT UP TO THE EOI.  THE CHAINING IS DONE OFF OF THE
12469  M01S09622.msm     +++|*         DISK RATHER THAN THE TRTS TO RECOVER THE EXACT DAYFILE AS IT
12470  M01S09623.msm     +++|*         EXISTS ON DISK.  THIS PERMITS DAYFILE RECOVERY TO BE
12471  M01S09624.msm     +++|*         INDEPENDENT OF TRT UPDATES AND SYSTEM DEVICE CHECKPOINTS.
12472  M01S09625.msm     +++|*         THE DAYFILE WILL BE TRUNCATED TO THE LAST SECTOR OF THE
12473  M01S09626.msm     +++|*         CURRENT TRACK IF DISK EOI EXTENDS BEYOND THE CURRENT
12474  M01S09627.msm     +++|*         TRACK IN THE TRT.
12475  M01S09628.msm     +++|*
12476  M01S09629.msm     +++|*         ENTRY  (T5) = EST ORDINAL.
12477  M01S09630.msm     +++|*                (FN - FN+4) = EST ENTRY.
12478  M01S09631.msm     +++|*                (FS - FS+4) = DEVICE STATUS WORD (STLL).
12479  M01S09632.msm     +++|*                (MBUF) = LABEL MST.
12480  M01S09633.msm     +++|*
12481  M01S09634.msm     +++|*         EXIT   TRT ALTERED IF TRT AND DISK DO NOT MATCH AND VALID
12482  M01S09635.msm     +++|*                EOI FOUND.
12483  M01S09636.msm     +++|*                (A) MUST EQUAL 0 TO ENSURE *MRL* UPDATE OF CM
12484  M01S09637.msm     +++|*                RECOVERY INFORMATION UPON RETURN FROM */RMS/RCD*.
12485  M01S09638.msm     +++|*
12486  M01S09639.msm     +++|*         USES   EE, FA, P1, T6, T7, CM+1 - CM+3.
12487  M01S09640.msm     +++|*
12488  M01S09641.msm     +++|*         CALLS  CDR, CFL, RSS, ULA, VEI, WDS.
12489  M01S09642.msm     +++|*
12490  M01S09643.msm     +++|*         MACROS ENDMS, MONITOR, SETMS.
12491  M01S09644.msm     +++|
12492  M01S09645.msm     +++|
12493  M01S09646.msm     +++| CDC5     ENDMS
12494  M01S00039.ns2669  +++|          SETMS  IO,(DF,RW)
12495  M01S09647.msm     +++|          RJM    ULA         UPDATE SECTOR OF LOCAL AREAS
12496  M01S09648.msm     +++|
12497  M01S09649.msm     +++| CDC      SUBR               ENTRY/EXIT
12498  M01S09650.msm     +++|          LDM    MBUF+5*ACGL+4
12499  M01S09651.msm     +++|          LPC    MGLAP
12500  M01S09652.msm     +++|          ZJN    CDCX        IF NO SECTOR OF LOCAL AREAS
Line S09653 Modification History
M01 (Added by) msm
M02 (Updated by) ns2669
Seq #  *Modification Id* Act 
----------------------------+
12501  M02S09653.ns2669  ---|          SETMS  IO,(DF,RW)
12502  M01S00040.ns2669  +++|          SETMS  READSTR,(DF,RW)
12503  M01S09654.msm     +++|          LDN    EXDF        SET NUMBER OF EXCESS DAYFILES
12504  M01S09655.msm     +++|          STD    P1
12505  M01S09656.msm     +++| CDC1     SOD    P1
12506  M01S09657.msm     +++|          MJN    CDC5        IF END OF DAYFILES
12507  M01S09658.msm     +++|          LDM    MBUF+5*DALL,P1
12508  M01S09659.msm     +++|          ZJN    CDC1        IF NO TRACK ASSIGNED
12509  M01S09660.msm     +++|          STD    T6
12510  M01S09661.msm     +++|          RJM    CDR         CHECK DAYFILE RECOVERY SELECTION
12511  M01S09662.msm     +++|          NJN    CDC1        IF FILE INITIALIZED
12512  M01S09663.msm     +++|
12513  M01S09664.msm     +++|*         VERIFY DAYFILE RECOVERY.
12514  M01S09665.msm     +++|
12515  M01S09666.msm     +++|          RJM    CFL         CHECK FILE LENGTH
12516  M01S09667.msm     +++|          ZJN    CDC1        IF EMPTY DAYFILE
12517  M01S09668.msm     +++|          RJM    VEI         VERIFY EOI SECTOR
12518  M01S09669.msm     +++| CDC2     ZJN    CDC1        IF EOI ON DISK MATCHES TRT EOI
12519  M01S09670.msm     +++|          ENDMS
12520  M01S09671.msm     +++|          LDD    T6
12521  M01S09672.msm     +++|          LPC    3777        SET NEW EOI SECTOR
12522  M01S09673.msm     +++|          STD    CM+2
12523  M01S09674.msm     +++|          LDD    T7          SECTOR
12524  M01S09675.msm     +++|          STD    CM+3
12525  M01S09676.msm     +++|          LDD    T5          EQUIPMENT
12526  M01S09677.msm     +++|          STD    CM+1
12527  M01S09678.msm     +++|          MONITOR  DTKM      UPDATE EOI SECTOR
12528  M01S09679.msm     +++|*         LDN    0
12529  M01S09680.msm     +++|          UJP    CDC1        LOOP FOR NEXT DAYFILE
12530  M01S09681.msm     +++| CDR      SPACE  4,10
12531  M01S09682.msm     +++|**        CDR - CHECK DAYFILE RECOVERY.
12532  M01S09683.msm     +++|*
12533  M01S09684.msm     +++|*         ENTRY  (T6) = DAYFILE TRACK.
12534  M01S09685.msm     +++|*                (P1) = DAYFILE INDEX.
12535  M01S09686.msm     +++|*                (FS - FS+4) = STLL WORD OF THE MST.
12536  M01S09687.msm     +++|*
12537  M01S09688.msm     +++|*         EXIT   (A) = 0 IF DAYFILE NOT INITIALIZED.
12538  M01S09689.msm     +++|*                SPACE RELEASED IF FILE INITIALIZED.
12539  M01S09690.msm     +++|*
12540  M01S09691.msm     +++|*         USES   FS, FS+1, CM+1 - CM+3.
12541  M01S09692.msm     +++|*
12542  M01S09693.msm     +++|*         CALLS  TLB.
12543  M01S09694.msm     +++|*
12544  M01S09695.msm     +++|*         MACROS CMSTF, ENDMS, MONITOR.
12545  M01S09696.msm     +++|
12546  M01S09697.msm     +++|
12547  M01S09698.msm     +++| CDR      SUBR               ENTRY/EXIT
12548  M01S09699.msm     +++|
12549  M01S09700.msm     +++|*         CHECK FOR INITIALIZE REQUEST.
12550  M01S09701.msm     +++|
12551  M01S09702.msm     +++|          LDM    CDRB,P1
12552  M01S09703.msm     +++|          STM    CDRA
12553  M01S09704.msm     +++|          LDD    FS+1        CHECK INITIALIZE REQUEST
12554  M01S09705.msm     +++|          LPC    *
12555  M01S09706.msm     +++| CDRA     EQU    *-1
12556  M01S09707.msm     +++|          ZJN    CDRX        IF INITIALIZE NOT REQUESTED
12557  M01S09708.msm     +++|
12558  M01S09709.msm     +++|*         INITIALIZE DAYFILE.
12559  M01S09710.msm     +++|
12560  M01S09711.msm     +++|          LMD    FS+1        CLEAR INITIALIZE REQUEST
12561  M01S09712.msm     +++|          STD    FS+1
12562  M01S09713.msm     +++|          SHN    6
12563  M01S09714.msm     +++|          LMD    FS
12564  M01S09715.msm     +++|          SCN    MLIRP+MLPTU+MLCKP+MRASD
12565  M01S09716.msm     +++|          NJN    CDR1        IF MORE INITIALIZE FLAGS
12566  M01S09717.msm     +++|          CMSTF  LIRP        CLEAR INITIALIZE PENDING
12567  M01S09718.msm     +++| CDR1     ENDMS
12568  M01S09719.msm     +++|*         LDN    0
12569  M01S09720.msm     +++|          STD    CM+3
12570  M01S09721.msm     +++|          LDD    T6          SET FIRST TRACK
12571  M01S09722.msm     +++|          STD    CM+2
12572  M01S09723.msm     +++|          LDD    EQ
12573  M01S09724.msm     +++|          STD    CM+1
12574  M01S09725.msm     +++|          MONITOR  DTKM      RELEASE DAYFILE SPACE
12575  M01S09726.msm     +++|          STM    MBUF+5*DALL,P1  CLEAR DAYFILE POINTER
12576  M01S09727.msm     +++|          AOM    ULAA        SET LOCAL AREA SECTOR UPDATE
12577  M01S09728.msm     +++|          LCN    0           CLEAR INITIALIZE REQUEST IN THE MST
12578  M01S09729.msm     +++|          LMM    CDRC,P1
12579  M01S09730.msm     +++|          RJM    TLB
12580  M01S09731.msm     +++|          LJM    CDRX        RETURN
12581  M01S09732.msm     +++|
12582  M01S09733.msm     +++|*         INITIALIZE REQUEST MASKS FOR EXCESS DAYFILES.
12583  M01S09734.msm     +++|
12584  M01S09735.msm     +++| CDRB     CON    MLIDF       DAYFILE
12585  M01S09736.msm     +++|          CON    MLIAF       ACCOUNT FILE
12586  M01S09737.msm     +++|          CON    MLIEF       ERROR LOG
12587  M01S09738.msm     +++|          CON    MLIMF       MAINTENANCE LOG
12588  M01S09739.msm     +++|
12589  M01S09740.msm     +++|*         INITIALIZE REQUEST BIT MAPPING.
12590  M01S09741.msm     +++|
12591  M01S09742.msm     +++| CDRC     CON    LIDF        DAYFILE
12592  M01S09743.msm     +++|          CON    LIAF        ACCOUNT FILE
12593  M01S09744.msm     +++|          CON    LIEF        ERROR LOG
12594  M01S09745.msm     +++|          CON    LIMF        MAINTENANCE LOG
12595  M01S09746.msm     +++| CDT      SPACE  4,10
12596  M01S09747.msm     +++|**        CDT - CHECK LAST UPDATE DATE AND TIME.
12597  M01S09748.msm     +++|*
12598  M01S09749.msm     +++|*         ENTRY  (P1) = DAYFILE INDEX.
12599  M01S09750.msm     +++|*                (WEIA) = DAYFILE EOI SECTOR.
12600  M01S09751.msm     +++|*                (TPDT) = TIME AND DATE FOR LATEST RECOVERED DAYFILE.
12601  M01S09752.msm     +++|*
12602  M01S09753.msm     +++|*         EXIT   RECOVERY POINTERS UPDATED IF THIS IS A LATER DAYFILE.
12603  M01S09754.msm     +++|*                (TPDT) UPDATED TO LATEST DATE.
12604  M01S09755.msm     +++|*
12605  M01S09756.msm     +++|*         USES   P2, CM - CM+4.
12606  M01S09757.msm     +++|
12607  M01S09758.msm     +++|
12608  M01S09759.msm     +++| CDT      SUBR               ENTRY/EXIT
12609  M01S09760.msm     +++|          LDD    FN
12610  M01S09761.msm     +++|          SHN    21-10
12611  M01S09762.msm     +++|          MJN    CDTX        IF REMOVABLE DEVICE
12612  M01S09763.msm     +++|          LDD    P1
12613  M01S09764.msm     +++|          SHN    1
12614  M01S09765.msm     +++|          ADD    P1
12615  M01S09766.msm     +++|          STD    P2
12616  M01S09767.msm     +++|          LDD    MA          COPY LAST UPDATE DATE AND TIME OF NEW FILE
12617  M01S09768.msm     +++|          CWM    BFMS+DTEI,ON
12618  M01S09769.msm     +++|          SBN    1
12619  M01S09770.msm     +++|          CRD    CM
12620  M01S09771.msm     +++|          LDM    TPDT,P2     CHECK YEAR AND MONTH
12621  M01S09772.msm     +++|          SBD    CM+2
12622  M01S09773.msm     +++|          MJN    CDT1        IF LATER YEAR OR MONTH
12623  M01S09774.msm     +++|          NJN    CDTX        IF NOT LATER YEAR OR MONTH
12624  M01S09775.msm     +++|          LDM    TPDT+1,P2   CHECK DAY AND HOUR
12625  M01S09776.msm     +++|          SBD    CM+3
12626  M01S09777.msm     +++|          MJN    CDT1        IF A LATER DAY OR HOUR
12627  M01S09778.msm     +++|          NJN    CDTX        IF NOT A LATER DAY OR HOUR
12628  M01S09779.msm     +++|          LDM    TPDT+2,P2
12629  M01S09780.msm     +++|          SBD    CM+4
12630  M01S09781.msm     +++|          MJN    CDT1        IF A LATER MINUTE
12631  M01S09782.msm     +++|          NJN    CDTX        IF NOT A LATER MINUTE
12632  M01S09783.msm     +++|
12633  M01S09784.msm     +++|*         SET THIS DAYFILE AS THE NEW ONE TO RECOVER.
12634  M01S09785.msm     +++|
12635  M01S09786.msm     +++| CDT1     LDD    T5          SET LATEST DAYFILES EQUIPMENT
12636  M01S09787.msm     +++|          STM    RMSF,P1
12637  M01S09788.msm     +++|          LDD    CM+2        SET LATEST DAYFILES DATE
12638  M01S09789.msm     +++|          STM    TPDT,P2
12639  M01S09790.msm     +++|          LDD    CM+3
12640  M01S09791.msm     +++|          STM    TPDT+1,P2
12641  M01S09792.msm     +++|          LDD    CM+4
12642  M01S09793.msm     +++|          STM    TPDT+2,P2
12643  M01S09794.msm     +++|          LJM    CDTX        RETURN
12644  M01S09795.msm     +++|
12645  M01S09796.msm     +++| TPDT     BSS    3           LATEST DATE/TIME SYSTEM DAYFILE
12646  M01S09797.msm     +++|          BSS    3           LATEST DATE/TIME ACCOUNT DAYFILE
12647  M01S09798.msm     +++|          BSS    3           LATEST DATE/TIME ERRLOG DAYFILE
12648  M01S09799.msm     +++|          BSS    3           LATEST DATE/TIME MAINTENANCE LOG
12649  M01S09800.msm     +++| CFL      SPACE  4,10
12650  M01S09801.msm     +++|**        CFL - CHECK FILE LENGTH.
12651  M01S09802.msm     +++|*
12652  M01S09803.msm     +++|*         ENTRY  (T6) = DAYFILE TRACK FROM SECTOR OF LOCAL AREAS.
12653  M01S09804.msm     +++|*                (P1) = DAYFILE INDEX.
12654  M01S09805.msm     +++|*
12655  M01S09806.msm     +++|*         EXIT   (A) = 0 IF DAYFILE EMPTY.
12656  M01S09807.msm     +++|*                (ET) = DAYFILE EOI TRACK.
12657  M01S09808.msm     +++|*                (ES) = DAYFILE EOI SECTOR.
12658  M01S09809.msm     +++|*
12659  M01S09810.msm     +++|*         CALLS  SEI.
12660  M01S09811.msm     +++|
12661  M01S09812.msm     +++|
12662  M01S09813.msm     +++| CFL1     LDD    T6          SAVE EOI TRACK
12663  M01S09814.msm     +++|          STD    ET
12664  M01S09815.msm     +++|          LDD    T7          SAVE EOI SECTOR
12665  M01S09816.msm     +++|          STD    ES
12666  M01S09817.msm     +++|          LDM    MBUF+5*DALL,P1  RESTORE FIRST TRACK
12667  M01S09818.msm     +++|          STD    T6
12668  M01S09819.msm     +++|
12669  M01S09820.msm     +++| CFL      SUBR               ENTRY/EXIT
12670  M01S09821.msm     +++|          RJM    SEI         SEARCH FOR EOI
12671  M01S09822.msm     +++|          LDD    T3
12672  M01S09823.msm     +++|          ADD    T2
12673  M01S09824.msm     +++|          NJN    CFL1        IF NOT EMPTY FILE
12674  M01S09825.msm     +++|          AOM    ULAA
12675  M01S09826.msm     +++|          LDN    0           CLEAR DAYFILE POINTER
12676  M01S09827.msm     +++|          STM    MBUF+5*DALL,P1
12677  M01S09828.msm     +++|          UJN    CFLX        RETURN
12678  M01S09829.msm     +++| TDF      SPACE  4,15
12679  M01S09830.msm     +++|**        TDF - TRUNCATE DAYFILE.
12680  M01S09831.msm     +++|*
12681  M01S09832.msm     +++|*         ENTRY  (P1) = DAYFILE INDEX.
12682  M01S09833.msm     +++|*                (T6) = DAYFILE EOI TRACK.
12683  M01S09834.msm     +++|*                (T7) = SECTOR AT WHICH EOI TO BE WRITTEN.
12684  M01S09835.msm     +++|*
12685  M01S09836.msm     +++|*         EXIT   (EE) .NE. 0 TO INDICATE EOI WRITTEN.
12686  M01S09837.msm     +++|*
12687  M01S09838.msm     +++|*         CALLS  WDS.
12688  M01S09839.msm     +++|
12689  M01S09840.msm     +++|
12690  M01S09841.msm     +++| TDF      SUBR               ENTRY/EXIT
12691  M01S09842.msm     +++|          LDN    0           SET EOI LINKAGE
12692  M01S09843.msm     +++|          STM    BFMS
12693  M01S09844.msm     +++|          STM    BFMS+1
12694  M01S09845.msm     +++|          LDN    ZERL        CLEAR DATE AND TIME
12695  M01S09846.msm     +++|          CRM    BFMS+DTEI,ON
12696  M01S09847.msm     +++|          LDM    MBUF+5*DALL,P1  SET FIRST TRACK
12697  M01S09848.msm     +++|          STM    BFMS+FTEI
12698  M01S09849.msm     +++|          LDC    BFMS+WLSF   WRITE EOI SECTOR
12699  M01S09850.msm     +++|          RJM    WDS
12700  M01S09851.msm     +++|          LDM    RMSF,P1     CHECK FOR FILES RECOVERED
12701  M01S09852.msm     +++|          SHN    6
12702  M01S09853.msm     +++|          PJN    TDFX        IF A FILE HAS BEEN RECOVERED
12703  M01S09854.msm     +++|          LDD    T5          SET THIS FILE AS RECOVERED
12704  M01S09855.msm     +++|          STM    RMSF,P1
12705  M01S09856.msm     +++|          UJN    TDFX        RETURN
12706  M01S09857.msm     +++| ULA      SPACE  4,15
12707  M01S09858.msm     +++|**        ULA - UPDATE SECTOR OF LOCAL AREAS.
12708  M01S09859.msm     +++|*
12709  M01S09860.msm     +++|*         ENTRY  (T5) = EST ORDINAL.
12710  M01S09861.msm     +++|*
12711  M01S09862.msm     +++|*         ERROR  TO *HNG* IF ERROR READING SECTOR OF LOCAL AREAS.
12712  M01S09863.msm     +++|*
12713  M01S09864.msm     +++|*         USES   T6.
12714  M01S09865.msm     +++|*
12715  M01S09866.msm     +++|*         CALLS  CTI, RLA, STI, WDS.
12716  M01S09867.msm     +++|*
12717  M01S09868.msm     +++|*         MACROS ENDMS, SETMS.
12718  M01S09869.msm     +++|
12719  M01S09870.msm     +++|
12720  M01S09871.msm     +++| ULA      SUBR               ENTRY/EXIT
12721  M01S09872.msm     +++|          LDC    0
12722  M01S09873.msm     +++| ULAA     EQU    *-1
12723  M01S09874.msm     +++|          ZJN    ULAX        IF NO UPDATE REQUIRED
12724  M01S09875.msm     +++|          SETMS  POSITION
12725  M01S09876.msm     +++|*         LDN    0           CLEAR UPDATE FLAG
12726  M01S09877.msm     +++|          STM    ULAA
12727  M01S09878.msm     +++|          LDM    MBUF+5*ALGL+1  SET LABEL TRACK
12728  M01S09879.msm     +++|          STD    T6
12729  M01S09880.msm     +++|          RJM    STI         INTERLOCK LABEL TRACK
12730  M01S09881.msm     +++|          RJM    RLA         READ LOCAL AREA SECTOR
12731  M01S09882.msm     +++|          PJN    ULA2        IF NO ERROR
12732  M01S09883.msm     +++| ULA1     LDD    T6          CLEAR LABEL TRACK INTERLOCK
12733  M01S09884.msm     +++|          RJM    CTI
Line S09885 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
12734  M02S09885.283l840 ---|          LDC    LAEM        *LOCAL AREA SECTOR ERROR.*
12735  M01S01717.283l840 +++|          LDC    ULAC        *LOCAL AREA SECTOR ERROR.*
12736  M01S09886.msm     +++|          LJM    HNG         DISPLAY MESSAGE AND HANG
12737  M01S09887.msm     +++|
12738  M01S09888.msm     +++| ULA2     STM    ULAB
12739  M01S09889.msm     +++|          ZJN    ULA1        IF LOCAL AREA ENTRY NOT FOUND
12740  M01S09890.msm     +++|          LDD    MA          TRANSFER DF STATUS TO LOCAL AREA ENTRY
12741  M01S09891.msm     +++|          CWM    MBUF+5*DALL,ON
12742  M01S09892.msm     +++|          SBN    1
12743  M01S09893.msm     +++|          CRM    *,ON
12744  M01S09894.msm     +++| ULAB     EQU    *-1
12745  M01S09895.msm     +++|          LDC    BFMS+WLSF   REWRITE SECTOR OF LOCAL AREAS
12746  M01S09896.msm     +++|          RJM    WDS
12747  M01S09897.msm     +++|          ENDMS
12748  M01S09898.msm     +++|          LDD    T6          CLEAR LABEL TRACK INTERLOCK
12749  M01S09899.msm     +++|          RJM    CTI
12750  M01S09900.msm     +++|          LJM    ULAX        RETURN
12751  M01S01718.283l840 +++|
12752  M01S01719.283l840 +++|
12753  M01S01720.283l840 +++| ULAC     DATA   C*LOCAL AREA SECTOR ERROR.*
12754  M01S09901.msm     +++| VEI      SPACE  4,15
12755  M01S09902.msm     +++|**        VEI - VERIFY END OF INFORMATION SECTOR.
12756  M01S09903.msm     +++|*
12757  M01S09904.msm     +++|*         ENTRY  (ET) = TRT EOI TRACK.
12758  M01S09905.msm     +++|*                (ES) = TRT EOI SECTOR.
12759  M01S09906.msm     +++|*                (P1) = DAYFILE INDEX.
12760  M01S09907.msm     +++|*
12761  M01S09908.msm     +++|*         EXIT   (A) = 0 IF EOI ON DISK MATCHES TRT EOI.
12762  M01S09909.msm     +++|*                (T7) = DISK EOI SECTOR.
12763  M01S09910.msm     +++|*
12764  M01S09911.msm     +++|*         USES   T6, T7.
12765  M01S09912.msm     +++|*
12766  M01S09913.msm     +++|*         CALLS  CDT, RDS, TDF.
12767  M01S09914.msm     +++|*
12768  M01S09915.msm     +++|*         MACROS SETMS.
12769  M01S09916.msm     +++|
12770  M01S09917.msm     +++|
12771  M01S09918.msm     +++| VEI4     RJM    TDF         TRUNCATE DAYFILE
12772  M01S09919.msm     +++| VEI5     LDD    T7          COMPARE EOI ON DISK WITH TRT EOI
12773  M01S09920.msm     +++|          LMD    ES
12774  M01S09921.msm     +++|
12775  M01S09922.msm     +++| VEI      SUBR               ENTRY/EXIT
12776  M01S09923.msm     +++|          LDD    ET          SET EOI TRACK
12777  M01S09924.msm     +++|          STD    T6
12778  M01S09925.msm     +++|          LDD    ES          SET EOI SECTOR
12779  M01S09926.msm     +++|          STD    T7
12780  M01S09927.msm     +++|          SETMS  POSITION
12781  M01S09928.msm     +++| VEI1     LDC    BFMS        SEARCH FOR EOI ON DISK
12782  M01S09929.msm     +++|          RJM    RDS
12783  M01S09930.msm     +++|          MJN    VEI4        IF READ ERROR
12784  M01S09931.msm     +++|          LDM    BFMS
12785  M01S09932.msm     +++|          ADM    BFMS+1
12786  M01S09933.msm     +++|          ZJN    VEI2        IF EOI FOUND
12787  M01S09934.msm     +++|          AOD    T7          ADVANCE SECTOR NUMBER
12788  M01S09935.msm     +++|          LDM    BFMS        CHECK LINKAGE
12789  M01S09936.msm     +++|          SHN    6
12790  M01S09937.msm     +++|          PJN    VEI1        IF NOT CROSSING TRACK BOUNDARY
12791  M01S09938.msm     +++|          SOD    T7          SET EOI SECTOR AT END OF TRACK
12792  M01S09939.msm     +++|          RJM    TDF         TRUNCATE DAYFILE
12793  M01S09940.msm     +++| VEI2     RJM    CDT         CHECK DATE AND TIME
12794  M01S09941.msm     +++|          UJP    VEI5        SET EXIT CONDITIONS AND RETURN
12795  M01S09942.msm     +++|          SPACE  4,10
12796  M01S09943.msm     +++|**        COMMON DECKS.
12797  M01S09944.msm     +++|
12798  M01S09945.msm     +++|
12799  M01S09946.msm     +++|*CALL     COMPCTI
12800  M01S09947.msm     +++|*CALL     COMPSEI
12801  M01S09948.msm     +++|*CALL     COMPSTI
12802  M01S09949.msm     +++|          SPACE  4,10
12803  M01S09950.msm     +++|          ERRNG  BFMS-*      CODE OVERFLOWS INTO BUFFER
Line S09951 Modification History
M01 (Added by) msm
M02 (Updated by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
12804  M02S09951.272l774 ---|          OVERFLOW  /RDG/OVL  CHECK FOR OVERFLOW
Line S09952 Modification History
M01 (Added by) msm
M02 (Updated by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
12805  M02S09952.272l774 ---|          TTL    MSM - MASS STORAGE MANAGER.
12806  M01S00078.272l774 +++|          SPACE  4,10
Line S00079 Modification History
M01 (Added by) 272l774
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
12807  M02S00079.283l840 ---|          OVERFLOW  /RDG/OVL,EPFW  CHECK FOR OVERFLOW
12808  M01S01721.283l840 +++|          OVERFLOW  ORDJ,EPFW  CHECK FOR OVERFLOW
12809  M01S09953.msm     +++|          TTL    MSM/4DK - UEM RECOVERY ROUTINES.
12810  M01S09954.msm     +++|          TITLE
12811  M01S09955.msm     +++|          IDENT  4DK,/RMS/RUJX
12812  M01S09956.msm     +++|*COMMENT  MSM - UEM RECOVERY ROUTINES.
Line S09957 Modification History
M01 (Added by) msm
M02 (Updated by) 281l803
Seq #  *Modification Id* Act 
----------------------------+
12813  M02S09957.281l803 ---|          COMMENT COPYRIGHT CONTROL DATA CORPORATION. 1983.
12814  M01S00012.281l803 +++|          COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
12815  M01S09958.msm     +++| RUE      SPACE  4,10
12816  M01S09959.msm     +++|***              *4DK* RESTORES UEM FROM THE CHECKPOINT FILE.
12817  M01S09960.msm     +++| RUE      SPACE  4,10
12818  M01S09961.msm     +++|          QUAL   RMS
Line S09962 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
12819  M02S09962.283l840 ---|          ORG    O4DB
12820  M01S01722.283l840 +++|          ORG    ORDK
12821  M01S01723.283l840 +++|          SPACE  4,10
12822  M01S09963.msm     +++| RUJ      SUBR               ENTRY
12823  M01S09964.msm     +++|          LDK    MEFL
12824  M01S09965.msm     +++|          CRD    CM
12825  M01S09966.msm     +++|          LDD    CM+2        SET TRACK SHIFT COUNTS
12826  M01S09967.msm     +++|          SHN    -5
12827  M01S09968.msm     +++|          LPN    3
12828  M01S09969.msm     +++|          STD    T1
12829  M01S09970.msm     +++|          RAM    CUAB
12830  M01S09971.msm     +++|          LDD    T1
12831  M01S09972.msm     +++|          RAM    CUAA
12832  M01S09973.msm     +++|          RJM    RUE         RESTORE UEM
12833  M01S00001.msm47   +++|          LDN    0
12834  M01S00002.msm47   +++|          STD    CM
12835  M01S00003.msm47   +++|          LDC    CPAS+MS2W   CLEAR MESSAGE
12836  M01S00004.msm47   +++|          CWD    CM
12837  M01S09974.msm     +++|          LJM    RMS1        RECOVER UEM
12838  M01S09975.msm     +++| CUA      SPACE  4,10
12839  M01S09976.msm     +++|**        CUA - CALCULATE UEM ADDRESS.
12840  M01S09977.msm     +++|*
12841  M01S09978.msm     +++|*         ENTRY  (T8) = TRACK.
12842  M01S09979.msm     +++|*                (FS - FS+1) = UEM BASE ADDRESS.
12843  M01S09980.msm     +++|*
12844  M01S09981.msm     +++|*         EXIT   (A) = BITS 5 - 0 OF ABSOLUTE UEM ADDRESS.
12845  M01S09982.msm     +++|*                (FS+2 - FS+3) = BITS 27 - 6 OF ABSOLUTE UEM ADDRESS
12846  M01S09983.msm     +++|*                                (TO BE USED IN *R* REGISTER).
12847  M01S09984.msm     +++|*                (FS+4) = BITS 5 - 0 OF ABSOLUTE UEM ADDRESS
12848  M01S09985.msm     +++|*                         (TO BE USED IN *A* REGISTER).
12849  M01S09986.msm     +++|*
12850  M01S09987.msm     +++|*         USES   FS+2 - FS+4.
12851  M01S09988.msm     +++|
12852  M01S09989.msm     +++|
12853  M01S09990.msm     +++| CUA      SUBR               ENTRY/EXIT
12854  M01S09991.msm     +++|          LDD    T8          CALCULATE TRACK * 2020
12855  M01S09992.msm     +++|          SHN    6           * 100
12856  M01S09993.msm     +++|          ADD    T8          * 101
12857  M01S09994.msm     +++|          STD    FS+3
12858  M01S09995.msm     +++| CUAA     SHN    -10
12859  M01S09996.msm     +++|*         SHN    -10+EMSC
12860  M01S09997.msm     +++|          STD    FS+2        * 2020 HIGH BITS
12861  M01S09998.msm     +++|          LDD    FS+3
12862  M01S09999.msm     +++| CUAB     SHN    4
12863  M01S10000.msm     +++|*         SHN    4+EMSC
12864  M01S10001.msm     +++|          LPC    7777
12865  M01S10002.msm     +++|          ADD    FS+1        ADD UEM BASE ADDRESS
12866  M01S10003.msm     +++|          STD    FS+4        LOW LOW BITS FOR *A* REGISTER
12867  M01S10004.msm     +++|          SHN    -14
12868  M01S10005.msm     +++|          ADD    FS
12869  M01S10006.msm     +++|          RAD    FS+2        HIGH BYTE ABSOLUTE UEM ADDRESS
12870  M01S10007.msm     +++|          SHN    6           SHIFT RESULT FOR *R* REGISTER
12871  M01S10008.msm     +++|          STD    FS+3
12872  M01S10009.msm     +++|          SHN    6
12873  M01S10010.msm     +++|          STD    FS+2
12874  M01S10011.msm     +++|          LDD    FS+4
12875  M01S10012.msm     +++|          SHN    14
12876  M01S10013.msm     +++|          RAD    FS+3
12877  M01S10014.msm     +++|          SHN    -14
12878  M01S10015.msm     +++|          STD    FS+4        SET LOW 6 BITS FOR *A* REGISTER
12879  M01S10016.msm     +++|          UJN    CUAX        RETURN
12880  M01S10017.msm     +++| GCD      SPACE  4,15
12881  M01S10018.msm     +++|**        GCD - GET CHECKPOINT DEVICE.
12882  M01S10019.msm     +++|*
12883  M01S10020.msm     +++|*         ENTRY  (CD) = CURRENT EST ORDINAL.
12884  M01S10021.msm     +++|*                (LO) = LAST MASS STORAGE ORDINAL + 1.
12885  M01S10022.msm     +++|*
12886  M01S10023.msm     +++|*         EXIT   (A) = 0 IF END OF MASS STORAGE DEVICES.
12887  M01S10024.msm     +++|*                (T5) = (CD) = CHECKPOINT DEVICE ORDINAL.
12888  M01S10025.msm     +++|*                (T6) = TRACK POINTER TO UEM PORTION OF CHECKPOINT
12889  M01S10026.msm     +++|*                       FILE.
12890  M01S10027.msm     +++|*                (FN - FN+4) = EST ENTRY.
12891  M01S10028.msm     +++|*
12892  M01S10029.msm     +++|*         USES   CD, RI, RI+1, T5, T6, FN - FN+4.
12893  M01S10030.msm     +++|*
12894  M01S10031.msm     +++|*         CALLS  CRA, GSP.
12895  M01S10032.msm     +++|*
12896  M01S10033.msm     +++|*         MACROS SETMS, SFA.
12897  M01S10034.msm     +++|
12898  M01S10035.msm     +++|
12899  M01S10036.msm     +++| GCD      SUBR               ENTRY/EXIT
12900  M01S10037.msm     +++| GCD1     AOD    CD          ADVANCE EST ORDINAL
12901  M01S10038.msm     +++|          STD    T5
12902  M01S10039.msm     +++|          LMD    LO
12903  M01S10040.msm     +++|          ZJN    GCDX        IF END OF DEVICES
12904  M01S10041.msm     +++|          SFA    EST,T5      READ EST ENTRY
12905  M01S10042.msm     +++|          ADK    EQDE
12906  M01S10043.msm     +++|          CRD    FN
12907  M01S10044.msm     +++|          LDD    FN
12908  M01S10045.msm     +++|          SHN    21-13
12909  M01S10046.msm     +++|          PJN    GCD1        IF NOT MASS STORAGE DEVICE
12910  M01S10047.msm     +++|          SHN    13-2
12911  M01S10048.msm     +++|          PJN    GCD1        IF NOT CHECKPOINT DEVICE
12912  M01S10049.msm     +++|          LDD    FN+4
12913  M01S10050.msm     +++|          SHN    3
12914  M01S10051.msm     +++|          ADN    DULL
12915  M01S10052.msm     +++|          CRD    CM
12916  M01S10053.msm     +++|          LDD    CM+3        CHECKPOINT FILE POINTER
12917  M01S10054.msm     +++|          STD    P1
12918  M01S10055.msm     +++|          SHN    21-13
12919  M01S10056.msm     +++|          PJN    GCD1        IF NOT A VALID FILE
12920  M01S10057.msm     +++|          RJM    GSP         GET SECTOR POINTER
12921  M01S10058.msm     +++|          ZJN    GCD1        IF ERROR
12922  M01S10059.msm     +++|          STD    RI+1        SET RANDOM ADDRESS
12923  M01S10060.msm     +++|          LDN    0
12924  M01S10061.msm     +++|          STD    RI
12925  M01S10062.msm     +++|          LDD    P1          SET CHECKPOINT FILE TRACK
12926  M01S10063.msm     +++|          STD    T6
12927  M01S10064.msm     +++|          RJM    CRA         CONVERT RANDOM ADDRESS
12928  M01S10065.msm     +++|          MJN    GCD1        IF ADDRESS NOT ON TRT CHAIN
Line S10066 Modification History
M01 (Added by) msm
M02 (Updated by) msm47
Seq #  *Modification Id* Act 
----------------------------+
12929  M02S10066.msm47   ---|          SETMS  IO
12930  M01S00005.msm47   +++|          SETMS  READSTR
12931  M01S10067.msm     +++|          LDN    1           INDICATE CHECKPOINT DEVICE FOUND
12932  M01S10068.msm     +++|          LJM    GCDX        RETURN
12933  M01S10069.msm     +++| GSP      SPACE  4,15
12934  M01S10070.msm     +++|**        GSP - GET UEM SECTOR POINTER.
12935  M01S10071.msm     +++|*
12936  M01S10072.msm     +++|*         THIS ROUTINE RETURNS THE UEM SECTOR OFFSET.
12937  M01S10073.msm     +++|*
12938  M01S10074.msm     +++|*         ENTRY  (FN - FN+4) = DEVICE EST ENTRY.
12939  M01S10075.msm     +++|*                (T5) = DEVICE EST ORDINAL.
12940  M01S10076.msm     +++|*
12941  M01S10077.msm     +++|*         EXIT   (A) = 0, IF ERROR.
12942  M01S10078.msm     +++|*                    = SECTOR OFFSET IF NO ERROR.
12943  M01S10079.msm     +++|*
12944  M01S10080.msm     +++|*         USES   CM - CM+4.
12945  M01S10081.msm     +++|
12946  M01S10082.msm     +++|
12947  M01S10083.msm     +++| GSP      SUBR               ENTRY/EXIT
12948  M01S10084.msm     +++|          LDD    RA
12949  M01S10085.msm     +++|          SHN    6
12950  M01S10086.msm     +++|          ADD    T5
12951  M01S10087.msm     +++|          CRD    CM
12952  M01S10088.msm     +++|          SBD    T5
12953  M01S10089.msm     +++|          ADD    AL-RD+CM
12954  M01S10090.msm     +++|          ADN    DALL
12955  M01S10091.msm     +++|          CRD    CM
12956  M01S10092.msm     +++|          LDD    CM+4
12957  M01S10093.msm     +++|          UJN    GSPX        RETURN
12958  M01S10094.msm     +++| RUE      SPACE  4,15
12959  M01S10095.msm     +++|**        RUE - RECOVER UEM.
12960  M01S10096.msm     +++|*
12961  M01S10097.msm     +++|*         USES   T8, T9, FS+4, CM - CM+4.
12962  M01S10098.msm     +++|*
Line S10099 Modification History
M01 (Added by) msm
M02 (Updated by) msm47
Seq #  *Modification Id* Act 
----------------------------+
12963  M02S10099.msm47   ---|*         CALLS  CUA, GCD, RNS.
12964  M01S00006.msm47   +++|*         CALLS  CUA, C2D, GCD, RNS.
12965  M01S10100.msm     +++|*
12966  M01S10101.msm     +++|*         MACROS ENDMS.
12967  M01S10102.msm     +++|
12968  M01S10103.msm     +++|
12969  M01S10104.msm     +++| RUE5     ENDMS
12970  M01S10105.msm     +++|          LDC    RUEA        *CHECKPOINT DEVICE NOT FOUND.*
12971  M01S10106.msm     +++|          LJM    /RMS/HNG    ISSUE ERROR MESSAGE AND HANG
12972  M01S10107.msm     +++|
12973  M01S10108.msm     +++| RUE6     ENDMS
12974  M01S10109.msm     +++|          LDK    NJNI-ZJNI   SET TO PROCESS ONLY UEM
12975  M01S10110.msm     +++|          STM    RMSH
12976  M01S10111.msm     +++|
12977  M01S10112.msm     +++| RUE      SUBR               ENTRY/EXIT
12978  M01S10113.msm     +++|          LDK    NOPE-1      SET EST ORDINAL
12979  M01S10114.msm     +++|          STD    CD
12980  M01S10115.msm     +++|          LDK    UEML        PRESET UEM BASE ADDRESS
12981  M01S10116.msm     +++|          CRD    CM
12982  M01S10117.msm     +++|          LDD    CM
12983  M01S10118.msm     +++|          SHN    21-2
12984  M01S10119.msm     +++|          STD    FS
12985  M01S10120.msm     +++|          SHN    -6
12986  M01S10121.msm     +++|          SCN    7
12987  M01S10122.msm     +++|          STD    FS+1
12988  M01S10123.msm     +++| MSR      CON    PSNI        *RNS* ERROR RETURN
12989  M01S10124.msm     +++| RUE1     RJM    GCD         GET CHECKPOINT DEVICE
12990  M01S10125.msm     +++|          ZJN    RUE5        IF END OF CHECKPOINT DEVICES
12991  M01S10126.msm     +++| RUE2     LDC    BFMS        READ LINKAGE SECTOR
12992  M01S10127.msm     +++|          RJM    /4DK/RNS
12993  M01S00007.msm47   +++|          ADI    T3
12994  M01S10128.msm     +++|          ZJN    RUE6        IF EOI REACHED
12995  M01S10129.msm     +++|          LDM    BFMS+2      SET TRACK NUMBER
12996  M01S10130.msm     +++|          STD    T8
12997  M01S10131.msm     +++|          LDM    BFMS+3      SET SECTOR COUNT
12998  M01S10132.msm     +++|          STD    T9
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  M01S10133.msm     +++|          RJM    CUA         CALCULATE UEM ADDRESS
13009  M01S10134.msm     +++|          LDM    BFMS+1
13010  M01S10135.msm     +++|          ZJN    RUE3        IF LINKAGE WORDS NOT IN THIS SECTOR
13011  M01S10136.msm     +++|          STD    T3
13012  M01S10137.msm     +++|          RAD    FS+4        ADVANCE UEM ADDRESS FOR LATER
13013  M01S10138.msm     +++|          SBD    T3
13014  M01S10139.msm     +++|          ADC    400000
13015  M01S10140.msm     +++|          LRD    FS+2
13016  M01S10141.msm     +++|          CWM    BFMS+4,T3   WRITE LINKAGE WORDS TO UEM
13017  M01S10142.msm     +++| RUE3     LDC    BFMS
13018  M01S10143.msm     +++|          RJM    /4DK/RNS
13019  M01S10144.msm     +++|          LDD    FS+4
13020  M01S10145.msm     +++|          ADC    400000
13021  M01S10146.msm     +++|          LRD    FS+2        WRITE SECTOR TO UEM
13022  M01S10147.msm     +++|          CWM    BFMS+2,HN
13023  M01S10148.msm     +++|          AOD    FS+3        ADVANCE UEM ADDRESS
13024  M01S10149.msm     +++|          SHN    -14
13025  M01S10150.msm     +++|          RAD    FS+2
13026  M01S10151.msm     +++|          SOD    T9          DECREMENT SECTOR COUNT
13027  M01S10152.msm     +++|          NJN    RUE3        IF NOT FINISHED WITH TRACK
13028  M01S10153.msm     +++|          LJM    RUE2        IF FINISHED WITH TRACK
13029  M01S10154.msm     +++|
13030  M01S10155.msm     +++|
13031  M01S10156.msm     +++| RUEA     DATA   C*CHECKPOINT DEVICE NOT FOUND.*
13032  M01S00017.msm47   +++| RUEB     DATA   C*RESTORING UEM TRACK XXXX.*
13033  M01S10157.msm     +++|          SPACE  4,15
13034  M01S10158.msm     +++|**        COMMON DECKS.
13035  M01S10159.msm     +++|
13036  M01S10160.msm     +++|*CALL     COMPCRA
13037  M01S10161.msm     +++|
13038  M01S10162.msm     +++|          QUAL   4DK
13039  M01S10163.msm     +++|
13040  M01S10164.msm     +++| MSR      EQU    /RMS/MSR
13041  M01S10165.msm     +++| MSR$     SET    1           SELECT ERROR PROCESSING IN *COMPRNS*
13042  M01S10166.msm     +++|*CALL     COMPRNS
13043  M01S10167.msm     +++|
13044  M01S10168.msm     +++|          QUAL   *
13045  M01S10169.msm     +++|          SPACE  4,10
Line S10170 Modification History
M01 (Added by) msm
M02 (Updated by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
13046  M02S10170.272l774 ---|          ERRPL  *-BFMS      DATA BUFFER OVERLAYS CODE
Line S10171 Modification History
M01 (Added by) msm
M02 (Updated by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
13047  M02S10171.272l774 ---|          OVERFLOW  O4DB     CHECK FOR OVERFLOW
Line S10172 Modification History
M01 (Added by) msm
M02 (Updated by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
13048  M02S10172.272l774 ---|          TTL
13049  M01S00080.272l774 +++|          ERRNG  BFMS-*      DATA BUFFER OVERLAYS CODE
13050  M01S00081.272l774 +++|          SPACE  4,10
Line S00082 Modification History
M01 (Added by) 272l774
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
13051  M02S00082.283l840 ---|          OVERFLOW  O4DB,EPFW  CHECK FOR OVERFLOW
13052  M01S01724.283l840 +++|          OVERFLOW  ORDK,EPFW  CHECK FOR OVERFLOW
13053  M01S00083.272l774 +++|          SPACE  4
13054  M01S00084.272l774 +++|          TTL    MSM - MASS STORAGE MANAGER.
13055  M01S10173.msm     +++|          END
cdc/nos2.source/opl.opl871/deck/msm.010.txt ยท Last modified: by 127.0.0.1