User Tools

Site Tools


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

Deck MSM

Library Member Format: MODIFY

Listing Sections

Source

Seq #  *Modification Id* Act 
----------------------------+
00001  M00S00001.msm     +++|          IDENT  CMS,OBOV-2
00002  M00S00002.msm     +++|          PERIPH
00003  M00S00003.msm     +++|          BASE   M
00004  M00S00004.msm     +++|          SST
00005  M00S00005.msm     +++| QUAL$    EQU    1           DEFINE UNQUALIFIED COMMON DECKS
00006  M00S00006.msm     +++|*COMMENT  MSM - ON LINE MASS STORAGE MANAGER.
Line S00007 Modification History
M01 (Removed by) 281l803
Seq #  *Modification Id* Act 
----------------------------+
00007  M01S00007.281l803 ---|          COMMENT COPYRIGHT CONTROL DATA CORP. 1973.
Line S00001 Modification History
M01 (Added by) 281l803
Seq #  *Modification Id* Act 
----------------------------+
00008  M01S00001.281l803 +++|          COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
00009  M00S00008.msm     +++|          TITLE  MSM/CMS - MASS STORAGE MANAGER.
00010  M00S00009.msm     +++| CMS      SPACE  4
00011  M00S00010.msm     +++|*****     MSM - MASS STORAGE MANAGER.
00012  M00S00011.msm     +++|*
00013  M00S00012.msm     +++|*         J. L. WARDELL.     73/02/15.
00014  M00S00013.msm     +++|*         P. D. HAAS.        74/09/09.
00015  M00S00014.msm     +++|*         S. L. BETH.        74/12/20.
00016  M00S00015.msm     +++|*         R. M. DESSEL       82/12/15.
Line S00001 Modification History
M01 (Added by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
00017  M01S00001.283l840 +++|*         P. C. SMITH.       94/03/21.
00018  M00S00016.msm     +++|          SPACE  4,10
00019  M00S00017.msm     +++|***              *CMS* SURVEYS ALL MASS STORAGE DEVICES AND VERIFIES
00020  M00S00018.msm     +++|*         THAT THE PROPER PHYSICAL DEVICES ARE MOUNTED OR MAKES THEM
00021  M00S00019.msm     +++|*         AVAILABLE FOR USER ACCESS IF POSSIBLE.
00022  M00S00020.msm     +++|*
00023  M00S00021.msm     +++|*         ON LINE VERIFICATION OCCURS EVERY 60D SCHEDULER
00024  M00S00022.msm     +++|*         CYCLES.  TO ENABLE/DISABLE THIS USE *DSD* COMMAND
00025  M00S00023.msm     +++|*         *ENABLE/DISABLE REMOVABLE PACKS*.
00026  M00S00024.msm     +++|          SPACE  4,10
00027  M00S00025.msm     +++|**        PROGRAMMING NOTE.
00028  M00S00026.msm     +++|*                DIRECT CELLS *LA* AND *EE* (*RG* AND *RG+1*)
00029  M00S00027.msm     +++|*         ARE USED DURING LEVEL 3 RECOVERY IN OVERLAY *4DB* IF
00030  M00S00028.msm     +++|*         EXECUTING ON A CENTRAL MEMORY EXTENSION MAINFRAME.
00031  M00S00029.msm     +++|          SPACE  4
00032  M00S00030.msm     +++|**        CALL.
00033  M00S00031.msm     +++|*
00034  M00S00032.msm     +++|*T,       18/ CMS,6/,12/ R,24/
Figure

0232429 R303536414259 R CMS

00035  M00S00033.msm     +++|*
00036  M00S00034.msm     +++|*         R = POSITION IN EQUIPMENTS FOR UNLOAD INTERLOCK.
00037  M00S00035.msm     +++|          SPACE  4
00038  M00S00036.msm     +++|***       DAYFILE MESSAGES.
00039  M00S00037.msm     +++|*
00040  M00S00038.msm     +++|*         SEE *4DA* DOCUMENTATION.
00041  M00S00039.msm     +++|          SPACE  4
00042  M00S00040.msm     +++|***       ERROR LOG MESSAGES.
00043  M00S00041.msm     +++|*
00044  M00S00042.msm     +++|*         *ETXXX, UYY,PS=ZZZZZZ.* = A NEW DEVICE HAS BEEN INTRODUCED ON
00045  M00S00043.msm     +++|*         EST ORDINAL *XXX* OF TYPE *ET*.  UNIT *YY* OF THE DEVICE HAS
00046  M00S00044.msm     +++|*         A PACK SERIAL NUMBER OF *ZZZZZZ*.
00047  M00S00045.msm     +++|*
00048  M00S00046.msm     +++|*         SEE *4DB* DOCUMENTATION FOR ADDITIONAL MESSAGES.
00049  M00S00047.msm     +++|          SPACE  4
00050  M00S00048.msm     +++|***       ACCOUNT FILE MESSAGES.
00051  M00S00049.msm     +++|*
00052  M00S00050.msm     +++|*         *ADDU, XXX, FFFFFFF, DD.* = EST ORDINAL XXX WITH FAMILY NAME
00053  M00S00051.msm     +++|*         FFFFFFF AND DEVICE NUMBER DD HAS BEEN UNLOADED.
00054  M00S00052.msm     +++|*
00055  M00S00053.msm     +++|*         *ADPD, XXX, PPPPPPP, UUUUUUU.* = EST ORDINAL XXX WITH
00056  M00S00054.msm     +++|*         PACKNAME PPPPPPP HAS BEEN DISMOUNTED.  IF PRESENT, UUUUUUU
00057  M00S00055.msm     +++|*         INDICATES THAT THE PACK WAS A PRIVATE PACK BELONGING TO
00058  M00S00056.msm     +++|*         THAT USER.
00059  M00S00057.msm     +++|*
00060  M00S00058.msm     +++|*         SEE *4DA* DOCUMENTATION FOR ADDITIONAL MESSAGES.
00061  M00S00059.msm     +++|          SPACE  4
00062  M00S00060.msm     +++|***       OPERATOR MESSAGES.
00063  M00S00061.msm     +++|*
00064  M00S00062.msm     +++|*         *ERROR ON ACTIVE DEVICES.* = LABEL CHECKING HAS DETECTED
00065  M00S00063.msm     +++|*         A DEVICE WITH ACTIVE FILES AS HAVING SOME TYPE OF ERROR (SEE
00066  M00S00064.msm     +++|*         E,M DISPLAY FOR ERROR TYPE ). THIS IS AN ABNORMAL SITUATION
00067  M00S00065.msm     +++|*         AND SHOULD BE CORRECTED IMMEDIATELY.
00068  M00S00066.msm     +++|*
00069  M00S00067.msm     +++|*         SEE E,M DISPLAY (DSD DOCUMENTATION) FOR ERROR TYPES POSSIBLE.
00070  M00S00068.msm     +++|*
00071  M00S00069.msm     +++|*         SEE *4DB* DOCUMENTATION FOR ADDITIONAL MESSAGES.
00072  M00S00070.msm     +++|          SPACE  4
00073  M00S00071.msm     +++|**        ROUTINES CALLED.
00074  M00S00072.msm     +++|*
00075  M00S00073.msm     +++|*         0PI - LIST PACK SERIAL NUMBERS.
00076  M00S00074.msm     +++|*         5ME - FORMAT ERROR MESSAGES.
00077  M00S00075.msm     +++|          SPACE  4
00078  M00S00076.msm     +++|*CALL     COMPMAC
00079  M00S00077.msm     +++|*CALL     COMSACC
00080  M00S00078.msm     +++|*CALL     COMSCPS
00081  M00S00079.msm     +++|*CALL     COMSDSL
00082  M00S00080.msm     +++|*CALL     COMSEVT
00083  M00S00081.msm     +++|*CALL     COMSHIO
00084  M00S00082.msm     +++|*CALL     COMSIOQ
00085  M00S00083.msm     +++|*CALL     COMSLSD
00086  M00S00084.msm     +++|*CALL     COMSMLS
00087  M00S00085.msm     +++| MMF$     EQU    1           INITIALIZE COMSMMF DIRECT CELLS
00088  M00S00086.msm     +++|*CALL     COMSMMF
00089  M00S00087.msm     +++|*CALL     COMSMSC
00090  M00S00088.msm     +++|*CALL     COMSMSP
00091  M00S00089.msm     +++|*CALL     COMSPFM
00092  M00S00090.msm     +++|*CALL     COMSPIM
00093  M00S00091.msm     +++|*CALL     COMSSSD
00094  M00S00092.msm     +++|*CALL     COMSWEI
00095  M00S00093.msm     +++|*CALL     COMSZOL
00096  M00S00094.msm     +++|          SPACE  4,10
00097  M00S00095.msm     +++|          LIST   X
00098  M00S00096.msm     +++|*CALL     COMSMST
00099  M00S00097.msm     +++|          SPACE  4,10
00100  M00S00098.msm     +++|          LIST   *
Line S00002 Modification History
M01 (Added by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
00101  M01S00002.283l840 +++|          TITLE  MACRO DEFINITIONS.
00102  M00S00099.msm     +++|          SPACE  4
00103  M00S00100.msm     +++|**        MACRO  DEFINITIONS.
00104  M00S00101.msm     +++| COMMON   SPACE  4,10
00105  M00S00102.msm     +++|**        COMMON - COMMON CODE FOR *CMS* AND *RMS.
00106  M00S00103.msm     +++|*
00107  M00S00104.msm     +++|*         THIS MACRO PROVIDES IDENTICAL CODE FOR *CMS* AND *RMS*
00108  M00S00105.msm     +++|*         WHICH MAY BE CALLED BY THE OVERLAYS COMMON TO THESE TWO
00109  M00S00106.msm     +++|*         ROUTINES.
00110  M00S00107.msm     +++|
00111  M00S00108.msm     +++|
00112  M00S00109.msm     +++| COMMON   MACRO
00113  M00S00110.msm     +++|          QUAL
00114  M00S00111.msm     +++|          SPACE  4,10
00115  M00S00112.msm     +++|*         COMMON WORKING STORAGE.
00116  M00S00113.msm     +++|
00117  M00S00114.msm     +++|
00118  M00S00115.msm     +++| ECLT     CON    0           EXTENDED MEMORY LABEL TRACK
00119  M00S00116.msm     +++| LDMP     CON    0           LINK DEVICE MST POINTER
00120  M00S00117.msm     +++|          SPACE  4,10
00121  M00S00118.msm     +++|*CALL     COMPC2D
00122  M00S00119.msm     +++|*CALL     COMPIFR
00123  M00S00120.msm     +++|*CALL     COMPTGB
00124  M00S00121.msm     +++| LRA      SPACE  4,15
00125  M00S00122.msm     +++|**        LRA - LOAD REFERENCE ADDRESS.
00126  M00S00123.msm     +++|*
00127  M00S00124.msm     +++|*         ENTRY  (LRAB) = RA/100 OF FREE AREA.
00128  M00S00125.msm     +++|*                (TA) = RA/100 OF FREE AREA FOR NON-CME.
00129  M00S00126.msm     +++|*                     = 4000 IF CME PRESENT.
00130  M00S00127.msm     +++|*                (LRAA) = MODIFIED FOR DESIRED OPERATION.
00131  M00S00128.msm     +++|*                (LRAC) = MODIFIED FOR DESIRED OPERATION.
00132  M00S00129.msm     +++|*
00133  M00S00130.msm     +++|*         EXIT   (A) = REFERENCE ADDRESS.
00134  M00S00131.msm     +++|*                *R* REGISTER LOADED IF NECESSARY.
00135  M00S00132.msm     +++|*
00136  M00S00133.msm     +++|*         USES   RG, RG+1.
00137  M00S00134.msm     +++|
00138  M00S00135.msm     +++|
00139  M00S00136.msm     +++| LRA1     LDC    0           LOAD RA INTO *R* REGISTER
00140  M00S00137.msm     +++| LRAB     EQU    *-1
00141  M00S00138.msm     +++|          STD    RG+1
00142  M00S00139.msm     +++|          SHN    -14
00143  M00S00140.msm     +++|          STD    RG
00144  M00S00141.msm     +++|          LRD    RG
00145  M00S00142.msm     +++| LRA2     LDD    RA          SET RA
00146  M00S00143.msm     +++| LRAC     EQU    *-1
00147  M00S00144.msm     +++|*         LDD    TA
00148  M00S00145.msm     +++|          SHN    6
00149  M00S00146.msm     +++|
00150  M00S00147.msm     +++| LRA      SUBR               ENTRY/EXIT
00151  M00S00148.msm     +++| LRAA     UJN    LRA2        SET RA
00152  M00S00149.msm     +++|*         UJN    LRA1        (CME PRESENT)
00153  M00S00150.msm     +++| PTA      SPACE  4,10
00154  M00S00151.msm     +++|**        PTA - PRESET FIRST WORD ADDRESS OF TRT.
00155  M00S00152.msm     +++|*
00156  M00S00153.msm     +++|*         ENTRY  (FN - FN+4) = EST ENTRY OF DEVICE.
00157  M00S00154.msm     +++|*
00158  M00S00155.msm     +++|*         EXIT   (STAA) = FWA OF TRT.
00159  M00S00156.msm     +++|*
00160  M00S00157.msm     +++|*         USES   CM - CM+4.
00161  M00S00158.msm     +++|
00162  M00S00159.msm     +++|
00163  M00S00160.msm     +++| PTA      SUBR               ENTRY/EXIT
00164  M00S00161.msm     +++|          LDD    FN+4        GET FWA OF TRT
00165  M00S00162.msm     +++|          SHN    3
00166  M00S00163.msm     +++|          ADN    TRLL
00167  M00S00164.msm     +++|          CRD    CM
00168  M00S00165.msm     +++|          LDD    CM+3        SET FWA OF TRT
00169  M00S00166.msm     +++|          LPN    77
00170  M00S00167.msm     +++|          LMC    LDCI
00171  M00S00168.msm     +++|          STM    STAA-1
00172  M00S00169.msm     +++|          LDD    CM+4
00173  M00S00170.msm     +++|          STM    STAA
00174  M00S00171.msm     +++|          UJN    PTAX        RETURN
00175  M00S00172.msm     +++| STA      SPACE  4,10
00176  M00S00173.msm     +++|**        STA - SET FIRST WORD ADDRESS OF TRT.
00177  M00S00174.msm     +++|*
00178  M00S00175.msm     +++|*         ENTRY  (STAA) = FWA OF TRT.
00179  M00S00176.msm     +++|
00180  M00S00177.msm     +++|
00181  M00S00178.msm     +++| STA      SUBR               ENTRY/EXIT
00182  M00S00179.msm     +++|          LDC    0
00183  M00S00180.msm     +++| STAA     EQU    *-1         (FWA TRT)
00184  M00S00181.msm     +++|          UJN    STAX        RETURN
00185  M00S00182.msm     +++|          QUAL   *
00186  M00S00183.msm     +++|          ENDM
00187  M00S00184.msm     +++|          SPACE  4
00188  M00S00185.msm     +++|**        UJMF - GENERATE LIST OF INSTRUCTIONS TO BE MODIFIED
00189  M00S00186.msm     +++|*                IF RECOVERING MMF SYSTEM.
00190  M00S00187.msm     +++|*
00191  M00S00188.msm     +++|*         UJMF   TAG
00192  M00S00189.msm     +++|
00193  M00S00190.msm     +++|
00194  M00S00191.msm     +++| UJMF     MACRO  TAG
00195  M00S00192.msm     +++|          LOCAL  A
Line S00003 Modification History
M01 (Added by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
00196  M01S00003.283l840 +++|          MACREF UJMF
00197  M00S00193.msm     +++| A        UJN    TAG
00198  M00S00194.msm     +++| L"QUAL"  RMT
00199  M00S00195.msm     +++|          CON    A
00200  M00S00196.msm     +++|          RMT
00201  M00S00197.msm     +++| UJMF     ENDM
00202  M00S00198.msm     +++|          SPACE  4
00203  M00S00199.msm     +++|**        MMTE - GENERATE MACHINE MASK TABLE ENTRY.
00204  M00S00200.msm     +++|*
00205  M00S00201.msm     +++|*         MMTE   ADDR
00206  M00S00202.msm     +++|*                ADDR = INSTRUCTION ADDRESS.
00207  M00S00203.msm     +++|
00208  M00S00204.msm     +++|
00209  M00S00205.msm     +++| MMTE     MACRO  L
00210  M00S00206.msm     +++|          LOCAL  B
Line S00004 Modification History
M01 (Added by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
00211  M01S00004.283l840 +++|          MACREF MMTE
00212  M00S00207.msm     +++| B        EQU    L
00213  M00S00208.msm     +++| T"QUAL"  RMT
00214  M00S00209.msm     +++|          CON    B
00215  M00S00210.msm     +++|          RMT
00216  M00S00211.msm     +++| MMTE     ENDM
Line S00005 Modification History
M01 (Added by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
00217  M01S00005.283l840 +++|          TITLE  DIRECT LOCATION ASSIGNMENTS.
00218  M00S00212.msm     +++|          SPACE  4
00219  M00S00213.msm     +++|****      DIRECT LOCATION ASSIGNMENTS.
00220  M00S00214.msm     +++|
00221  M00S00215.msm     +++|
00222  M00S00216.msm     +++| RG       EQU    15 - 16     *R* REGISTER LOADING TEMP CELLS
00223  M00S00217.msm     +++| RI       EQU    16 - 17     RANDOM INDEX FOR *CRA*
Line S00218 Modification History
M01 (Removed by) ns2547
Seq #  *Modification Id* Act 
----------------------------+
00224  M01S00218.ns2547  ---| SN       EQU    16          SECTOR NUMBER DURING LABEL PROCESSING
00225  M00S00219.msm     +++| T8       EQU    16          SCRATCH
00226  M00S00220.msm     +++| T9       EQU    17          SCRATCH
00227  M00S00221.msm     +++| QF       EQU    17          FIRST TRACK OF INACTIVE QUEUE FILE
Line S00001 Modification History
M01 (Added by) ns2547
Seq #  *Modification Id* Act 
----------------------------+
00228  M01S00001.ns2547  +++| SN       EQU    17          SECTOR NUMBER DURING LABEL PROCESSING
00229  M00S00222.msm     +++| FS       EQU    20 - 24     CM WORD BUFFER (5 LOCATIONS)
00230  M00S00223.msm     +++| TA       EQU    25          REFERENCE ADDRESS (LEVEL 3 RECOVERY)
00231  M00S00224.msm     +++| CD       EQU    25          CHECKPOINT DEVICE (4DA, 4DK)
00232  M00S00225.msm     +++| TW       EQU    26          CONSTANT TWO
00233  M00S00226.msm     +++| QT       EQU    27          QUEUED FILE TRACK (4DA)
00234  M00S00227.msm     +++| CN       EQU    30 - 34     CM WORD BUFFER (5 LOCATIONS)
00235  M00S00228.msm     +++| QS       EQU    35          QUEUED FILE SECTOR (4DA)
00236  M00S00229.msm     +++| QI       EQU    36          QUEUE INDEX (4DA)
00237  M00S00230.msm     +++| EC       EQU    37          ERROR CODE
00238  M00S00231.msm     +++| CR       EQU    37          CM BUFFER ADDRESS (4DA)
00239  M00S00232.msm     +++| FN       EQU    40 - 44     EST ENTRY
00240  M00S00233.msm     +++| RD       EQU    FN+3 - FN+7 DEVICE RECOVERY STATUS INFORMATION
00241  M00S00234.msm     +++| TS       EQU    FN+5        MST TRACKS FOR MMF SHARED DEVICES
00242  M00S00235.msm     +++| RE       EQU    FN+6        EQUIPMENT RECOVERY STATUS INFORMATION
00243  M00S00236.msm     +++| AL       EQU    FN+7        CM ADDRESS FOR MST LABEL DATA
00244  M00S00237.msm     +++| EQ       EQU    IR+3        EST ORDINAL
00245  M00S00238.msm     +++| RS       EQU    IR+4        RECOVERY STATUS
00246  M00S00239.msm     +++| AM       EQU    57          ACCESS MODE FLAG
00247  M00S00240.msm     +++| RC       EQU    60          DEVICE RECOVERY COUNT
Line S00001 Modification History
M01 (Added by) msm48
Seq #  *Modification Id* Act 
----------------------------+
00248  M01S00001.msm48   +++| CF       EQU    60          CONTROL POINT FOR MESSAGES (*1RF*/*4DA*)
00249  M00S00241.msm     +++| LO       EQU    61          LAST MASS STORAGE ORDINAL + 1
00250  M00S00242.msm     +++| UC       EQU    62          UNIT COUNT
00251  M00S00243.msm     +++| DI       EQU    62          DAT INDEX
00252  M00S00244.msm     +++| ET       EQU    62          EOI TRACK
00253  M00S00245.msm     +++| ES       EQU    63          EOI SECTOR
00254  M00S00246.msm     +++| SL       EQU    63          SECTOR LIMIT
00255  M00S00247.msm     +++| EF       EQU    63          ERROR FLAG
00256  M00S00248.msm     +++| CA       EQU    64 - 65     CENTRAL ADDRESS
00257  M00S00249.msm     +++| P1       EQU    66          SCRATCH
00258  M00S00250.msm     +++| P2       EQU    67          SCRATCH
00259  M00S00251.msm     +++|****
00260  M00S00252.msm     +++|          SPACE  4,10
00261  M00S00253.msm     +++|*         DEFINE QUAL BLOCK ORDER.
00262  M00S00254.msm     +++|
00263  M00S00255.msm     +++|
00264  M00S00256.msm     +++|          QUAL   CMS
00265  M00S00257.msm     +++|          QUAL   RMS
00266  M00S00258.msm     +++|          QUAL   RDA
Line S00259 Modification History
M01 (Removed by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
00267  M01S00259.283l840 ---|          QUAL   MMF
00268  M00S00260.msm     +++|          QUAL   ISD
Line S00261 Modification History
M01 (Removed by) ns2552
Seq #  *Modification Id* Act 
----------------------------+
00269  M01S00261.ns2552  ---|          QUAL   4DC
Line S00001 Modification History
M01 (Added by) ns2552
Seq #  *Modification Id* Act 
----------------------------+
00270  M01S00001.ns2552  +++|          QUAL   RDC
00271  M00S00262.msm     +++|          QUAL   RDD
00272  M00S00263.msm     +++|          QUAL   RDG
00273  M00S00264.msm     +++|          QUAL   RDI
00274  M00S00265.msm     +++|          QUAL
00275  M00S00266.msm     +++|          SPACE  4
00276  M00S00267.msm     +++|**        CONSTANTS.
00277  M00S00268.msm     +++|
00278  M00S00269.msm     +++|
00279  M00S00270.msm     +++| FLRC     EQU    1100        FIELD LENGTH FOR TRT RECOVERY
00280  M00S00271.msm     +++|          SPACE  4
00281  M00S00272.msm     +++|**        INTERNAL BUFFERS AND TABLES.
00282  M00S00273.msm     +++|
00283  M00S00274.msm     +++|
Line S00275 Modification History
M01 (Removed by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
00284  M01S00275.283l840 ---| DLPB     EQU    PPFW        LABEL PARAMETER BLOCK (PFGL + PUGL)
Line S00006 Modification History
M01 (Added by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
00285  M01S00006.283l840 +++| BAEI     EQU    PPFW        *BAET* IMAGE
00286  M01S00007.283l840 +++|
00287  M01S00008.283l840 +++| DLPB     EQU    BAEI+5      LABEL PARAMETER BLOCK (PFGL + PUGL)
00288  M00S00276.msm     +++|
00289  M00S00277.msm     +++| OBOV     EQU    DLPB+5*2    BASE OVERLAY ORIGIN
00290  M00S00278.msm     +++|          SPACE  4,10
00291  M00S00279.msm     +++|**        DEVICE RECOVERY STATUS TABLE.
00292  M00S00280.msm     +++|*
00293  M00S00281.msm     +++|*         THE DEVICE RECOVERY TABLE IS CONTAINED IN *MSM-S*
00294  M00S00282.msm     +++|*         FL.  IT CONSISTS OF ONE WORD ENTRIES FOR EACH MASS
00295  M00S00283.msm     +++|*         STORAGE EQUIPMENT.  THE FORMAT IS AS FOLLOWS -
00296  M00S00284.msm     +++|*T,       12/ DT,12/ MT,12/ TS,12/ RE,12/ AL
Figure

01112232429 AL RE TS303536474859 TS MT DT

00297  M00S00285.msm     +++|*
00298  M00S00286.msm     +++|*         DT = DEVICE TYPE.
00299  M00S00287.msm     +++|*         MT = MST/10B.
00300  M00S00288.msm     +++|*         TS = MST TRACKS FOR MMF SHARED DEVICES.
00301  M00S00289.msm     +++|*         RE = EQUIPMENT RECOVERY STATUS INFORMATION.
00302  M00S00290.msm     +++|*              WHERE RE IS DEFINED AS:
00303  M00S00291.msm     +++|*              1/M,1/S,1/V,1/R,1/C,1/U,1/D,1/I,1/A,1/T,1/E,1/L
00304  M00S00292.msm     +++|*              M = MASS STORAGE DEVICE.
00305  M00S00293.msm     +++|*              S = SYSTEM/ASL/LINK DEVICE.
00306  M00S00294.msm     +++|*              V = SHARED DEVICE.
00307  M00S00295.msm     +++|*              R = REMOVABLE DEVICE.
00308  M00S00296.msm     +++|*              C = DEVICE CLEARED FOR RECOVERY.
00309  M00S00297.msm     +++|*              U = UNAVAILABLE DEVICE.
00310  M00S00298.msm     +++|*              D = INCORRECT FULL TRACK ACCESS.
00311  M00S00299.msm     +++|*              I = DEVICE INITIALIZATION SELECTED.
00312  M00S00300.msm     +++|*              A = ACCESSED PREVIOUSLY (DAP) BY THIS MF (SHARED
00313  M00S00301.msm     +++|*                  DEVICES).
00314  M00S00302.msm     +++|*              T = ECS TRACK FOR MST/TRT REQUIRED (MMF SHARED
00315  M00S00303.msm     +++|*                  DEVICES).
00316  M00S00304.msm     +++|*              E = DEVICE ACCESSED PREVIOUSLY (DAP) BY SOME MF
00317  M00S00305.msm     +++|*                  (SHARED DEVICES ONLY).
00318  M00S00306.msm     +++|*              L = LABEL STATUS (0 = LABEL IMAGE PRESENT).
00319  M00S00307.msm     +++|*         AL = CM ADDRESSES FOR MST LABEL DATA.
Line S00308 Modification History
M01 (Removed by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
00320  M01S00308.283l840 ---|          TITLE  MAIN ROUTINE.
Line S00009 Modification History
M01 (Added by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
00321  M01S00009.283l840 +++|          TITLE  COMMON WORKING STORAGE AND SUBROUTINES.
00322  M00S00309.msm     +++| CMS      SPACE  4
00323  M00S00310.msm     +++|          QUAL   CMS
00324  M00S00311.msm     +++|          ORG    OBOV-2
00325  M00S00312.msm     +++|          LJM    PRS         PRESET *CMS*
Line S00313 Modification History
M01 (Removed by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
00326  M01S00313.283l840 ---|
Line S00010 Modification History
M01 (Added by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
00327  M01S00010.283l840 +++|          SPACE  4,10
00328  M01S00011.283l840 +++|          LIST   M
00329  M00S00314.msm     +++|          COMMON
Line S00315 Modification History
M01 (Removed by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
00330  M01S00315.283l840 ---|
Line S00012 Modification History
M01 (Added by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
00331  M01S00012.283l840 +++|          LIST   *
00332  M01S00013.283l840 +++|          TITLE  MAIN ROUTINE.
00333  M00S00316.msm     +++|**        CMS - MAIN PROGRAM.
00334  M00S00317.msm     +++|
00335  M00S00318.msm     +++|
00336  M00S00319.msm     +++|
00337  M00S00320.msm     +++| CMS      EXECUTE  4DB
Line S00321 Modification History
M01 (Removed by) ns2768
Seq #  *Modification Id* Act 
----------------------------+
00338  M01S00321.ns2768  ---|          LDC    0
00339  M01S00322.ns2768  ---|          MMTE   *-1
00340  M01S00323.ns2768  ---|          ZJN    CMS1        IF NOT MMF SYSTEM
00341  M00S00324.msm     +++|          LDC    LCMS        ENABLE MMF RECOVERY ROUTINES
00342  M00S00325.msm     +++|          RJM    EMF
00343  M00S00326.msm     +++| CMS1     LDC    RDL         READ LABELS
00344  M00S00327.msm     +++|          RJM    MRL
00345  M00S00328.msm     +++| CMS2     LDD    RC
00346  M00S00329.msm     +++|          ZJN    CMS3        IF NO REDEFINITION REQUESTS
00347  M00S00330.msm     +++|          LJM    CIR1        PROCESS DEVICE REDEFINITION
00348  M00S00331.msm     +++|
00349  M00S00332.msm     +++| CMS3     EXECUTE  4DD       LOAD VERIFICATION ROUTINES
00350  M00S00333.msm     +++|          LDC    CAD         VERIFY ACTIVE DEVICES
00351  M00S00334.msm     +++|          RJM    MRL
Line S00335 Modification History
M01 (Removed by) ns2768
Seq #  *Modification Id* Act 
----------------------------+
00352  M01S00335.ns2768  ---| CMSB     LDN    0
00353  M01S00336.ns2768  ---|*         LDN    1           (DEADSTART SEQUENCING ACTIVE)
00354  M01S00337.ns2768  ---|          NJN    CMS4        IF DEADSTART SEQUENCING IN EFFECT
00355  M01S00338.ns2768  ---|          LDC    CID         CHECK INACTIVE DEVICES
Line S00001 Modification History
M01 (Added by) ns2768
Seq #  *Modification Id* Act 
----------------------------+
00356  M01S00001.ns2768  +++| CMSB     LDC    CID         CHECK INACTIVE DEVICES
00357  M01S00002.ns2768  +++|*         UJN    CMS4        (DEADSTART SEQUENCING IN EFFECT)
00358  M00S00339.msm     +++|          RJM    MRL
00359  M00S00340.msm     +++| CMS4     LDN    0           CLEAR RECOVERY COUNT
00360  M00S00341.msm     +++|          STD    RC
Line S00014 Modification History
M01 (Added by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
00361  M01S00014.283l840 +++|          EXECUTE  4DE       LOAD UNAVAILABLE DEVICE ROUTINES
00362  M00S00342.msm     +++|          LDC    CUD         CHECK UNAVAILABLE DEVICES
00363  M00S00343.msm     +++|          RJM    MRL
00364  M00S00344.msm     +++|          LDD    RC
00365  M00S00345.msm     +++|          ZJN    CMS7        IF NO EQUIPMENT TO RECOVER
00366  M00S00346.msm     +++|          UJMF   CMS5
00367  M00S00347.msm     +++|          RJM    GDT         LOAD DEVICE ACCESS TABLE
00368  M00S00348.msm     +++| CMS5     EXECUTE  4DG       LOAD RECOVERY ROUTINES
00369  M00S00349.msm     +++|          LDD    HN          DO NOT CLEAR UNAVAILABLE
00370  M00S00350.msm     +++|          RAM    /RDG/EMTB
00371  M00S00351.msm     +++|          LDC    RCD         RECOVER DEVICES
00372  M00S00352.msm     +++|          RJM    MRL
00373  M00S00353.msm     +++|          UJMF   CMS6
00374  M00S00354.msm     +++|          RJM    UMT         UPDATE MMF TABLES
Line S00355 Modification History
M01 (Removed by) ns2552
Seq #  *Modification Id* Act 
----------------------------+
00375  M01S00355.ns2552  ---| CMS6     RJM    VPF         VERIFY PF SYSTEM
Line S00002 Modification History
M01 (Added by) ns2552
Seq #  *Modification Id* Act 
----------------------------+
00376  M01S00002.ns2552  +++| CMS6     EXECUTE  4DC       VERIFY PF SYSTEM
00377  M00S00356.msm     +++|          RJM    RPF         RELEASE DA INTERLOCKS
00378  M00S00357.msm     +++| CMS7     RJM    CIR         CHECK FOR INITIALIZE REQUESTS
00379  M00S00358.msm     +++| CMSD     LDN    0
00380  M00S00359.msm     +++|          ZJN    DPP         IF NO ACTIVE DEVICE ERRORS
00381  M00S00360.msm     +++|          LDN    NCPL
00382  M00S00361.msm     +++|          CRD    CM
00383  M00S00362.msm     +++|          AOD    CM+1        DISPLAY MESSAGE AT SYSTEM CP
00384  M00S00363.msm     +++|          SHN    7
00385  M00S00364.msm     +++|          ADN    MS2W
00386  M00S00365.msm     +++|          CWM    CMSE,TR
00387  M00S00366.msm     +++|
00388  M00S00367.msm     +++|*         DROP PP.
00389  M00S00368.msm     +++|
Line S00369 Modification History
M01 (Removed by) ns2768
Seq #  *Modification Id* Act 
----------------------------+
00390  M01S00369.ns2768  ---| DPP      LDN    0
00391  M01S00370.ns2768  ---|*         LDN    1           (DEADSTART SEQUENCING REQUIRED)
00392  M01S00371.ns2768  ---| DPPA     EQU    *-1
00393  M01S00372.ns2768  ---|          ZJN    DPP1        IF NOT DEADSTART SEQUENCING PRIORITY
00394  M01S00373.ns2768  ---| DPPB     LDN    CIRD-CIRB   ADDRESS OF COMMANDS
00395  M01S00374.ns2768  ---|*         LDN    CIRE-CIRB   (RECOVERY DEADSTART)
Line S00003 Modification History
M01 (Added by) ns2768
Seq #  *Modification Id* Act 
----------------------------+
00396  M01S00003.ns2768  +++| DPP      UJN    DPP1        DEADSTART SEQUENCING NOT IN EFFECT
00397  M01S00004.ns2768  +++|*         LDN    CIRD-CIRB   (DEADSTART SEQUENCING)
00398  M01S00005.ns2768  +++|*         LDN    CIRE-CIRB   (DEADSTART SEQUENCING- RECOVERY DEADSTART)
00399  M01S00006.ns2768  +++| DPPB     EQU    *-1
00400  M00S00375.msm     +++|          RAM    CIRA
00401  M00S00376.msm     +++|          LDN    CIRF        NUMBER OF COMMANDS
00402  M00S00377.msm     +++|*         LDN    CIRF-1      (RECOVERY DEADSTART)
00403  M00S00378.msm     +++| DPPC     EQU    *-1
00404  M00S00379.msm     +++|          LJM    CIR5        WRITE COMMAND BUFFER
00405  M00S00380.msm     +++|
00406  M00S00381.msm     +++| DPP1     MONITOR  DPPM
00407  M00S00382.msm     +++|          LJM    PPR
00408  M00S00383.msm     +++|
00409  M00S00384.msm     +++| CMSE     DATA   C* ERROR ON ACTIVE DEVICES.*
00410  M00S00385.msm     +++|          TITLE  SUBROUTINES.
00411  M00S00386.msm     +++| RPF      SPACE  4
00412  M00S00387.msm     +++|**        RPF - RELEASE DIRECT ACCESS INTERLOCKS.
00413  M00S00388.msm     +++|*
00414  M00S00389.msm     +++|*         ENTRY  (RE) SET FOR DEVICES RECOVERED.
00415  M00S00390.msm     +++|*
00416  M00S00391.msm     +++|*         EXIT   INTERLOCKS FOR DA FILES ON DEVICES RECOVERED, CLEARED.
00417  M00S00392.msm     +++|*                *IQFT* BUILT IF QUEUED FILES FOUND.
00418  M00S00393.msm     +++|*                PACK SERIAL NUMBERS LISTED FOR DEVICES RECOVERED.
00419  M00S00394.msm     +++|*
00420  M00S00395.msm     +++|*         USES   T5, EQ, CR, FN - FN+4.
00421  M00S00396.msm     +++|*
Line S00397 Modification History
M01 (Removed by) 284l847
Seq #  *Modification Id* Act 
----------------------------+
00422  M01S00397.284l847 ---|*         CALLS  IFR, LPS, 4DA.
Line S00001 Modification History
M01 (Added by) 284l847
Seq #  *Modification Id* Act 
----------------------------+
00423  M01S00001.284l847 +++|*         CALLS  IFR, LSN, 4DA.
00424  M00S00398.msm     +++|*
00425  M00S00399.msm     +++|*         MACROS EXECUTE, SFA, UJMF.
00426  M00S00400.msm     +++|
00427  M00S00401.msm     +++|
00428  M00S00402.msm     +++| RPF1     LDD    RA
00429  M00S00403.msm     +++|          SHN    6
00430  M00S00404.msm     +++|          ADD    T5
00431  M00S00405.msm     +++|          CRD    RD
00432  M00S00406.msm     +++|          LDD    RE          DETERMINE IF DEVICE RECOVERED
00433  M00S00407.msm     +++|          SHN    21-7
00434  M00S00408.msm     +++|          PJN    RPF2        IF DEVICE NOT RECOVERED
00435  M00S00409.msm     +++|          SFA    EST,T5      READ EST ENTRY
00436  M00S00410.msm     +++|          ADK    EQDE
00437  M00S00411.msm     +++|          CRD    FN
Line S00412 Modification History
M01 (Removed by) 284l847
Seq #  *Modification Id* Act 
----------------------------+
00438  M01S00412.284l847 ---|          RJM    LPS         LIST PACK SERIAL NUMBERS
Line S00002 Modification History
M01 (Added by) 284l847
Seq #  *Modification Id* Act 
----------------------------+
00439  M01S00002.284l847 +++|          RJM    /RDA/LSN    LIST PACK SERIAL NUMBERS
Line S00413 Modification History
M01 (Removed by) msm48
Seq #  *Modification Id* Act 
----------------------------+
00440  M01S00413.msm48   ---|          LDN    0           FLAG CMS CALL TO 4DA
00441  M01S00414.msm48   ---|          RJM    /RDA/RDA
Line S00002 Modification History
M01 (Added by) msm48
Seq #  *Modification Id* Act 
----------------------------+
00442  M01S00002.msm48   +++|          LDN    0           INDICATE NO INITIALIZE
00443  M01S00003.msm48   +++|          RJM    /RDA/RDA    RECOVER PRESERVED FILES
00444  M00S00415.msm     +++| RPF2     AOD    EQ          ADVANCE TO NEXT EQUIPMENT
00445  M00S00416.msm     +++| RPF3     STD    T5
00446  M00S00417.msm     +++|          LMD    LO
00447  M00S00418.msm     +++|          NJN    RPF1        IF NOT END OF MS ENTRIES
00448  M00S00419.msm     +++| RPF4     UJMF   RPFX
00449  M00S00420.msm     +++| RPFB     LDN    0
00450  M00S00421.msm     +++|          NJN    RPFX        IF DATI SET FOR INITIALIZATION
00451  M00S00422.msm     +++|          LCN    DATI        CLEAR FLAG REGISTER INTERLOCK
00452  M00S00423.msm     +++|          RJM    IFR
00453  M00S00424.msm     +++|
00454  M00S00425.msm     +++| RPF      SUBR               ENTRY/EXIT
00455  M00S00426.msm     +++|          LDD    RC
00456  M00S00427.msm     +++|          ZJN    RPF4        IF NO EQUIPMENT RECOVERED
00457  M00S00428.msm     +++|          EXECUTE 4DA        LOAD DA INTERLOCK ROUTINES
00458  M00S00429.msm     +++|          LDD    CA+1        SET *IQFT* BUFFER ADDRESS
00459  M00S00430.msm     +++|          STD    CR
00460  M00S00431.msm     +++|          LDN    NOPE        INITIALIZE EST ORDINAL FOR SEARCH
00461  M00S00432.msm     +++|          STD    EQ
00462  M00S00433.msm     +++|          UJN    RPF3
00463  M00S00434.msm     +++| CIR      SPACE  4
00464  M00S00435.msm     +++|**        CIR - CHECK FOR INITIALIZE REQUESTS.
00465  M00S00436.msm     +++|*
00466  M00S00437.msm     +++|*         EXIT   *MSI* CALLED IF ANY INITIALIZE REQUESTS FOUND.
00467  M00S00438.msm     +++|*
00468  M00S00439.msm     +++|*         USES   EQ, P2, RC, FS - FS+4, FN - FN+4, CN - CN+4.
00469  M00S00440.msm     +++|*
00470  M00S00441.msm     +++|*         CALLS  IFR.
00471  M00S00442.msm     +++|*
00472  M00S00443.msm     +++|*         MACROS NFA, SFA, UJMF.
00473  M00S00444.msm     +++|
00474  M00S00445.msm     +++|
00475  M00S00446.msm     +++| CIR6     LDD    FN
00476  M00S00447.msm     +++|          SHN    0-13
00477  M00S00448.msm     +++|          ZJN    CIR7        IF NOT MASS STORAGE
00478  M00S00449.msm     +++|          LDD    FN
00479  M00S00450.msm     +++|          LPN    2
00480  M00S00451.msm     +++|          NJN    CIR10       IF DEVICE OFF OR DOWN
00481  M00S00452.msm     +++|          LDD    FN+4        READ *STLL*
00482  M00S00453.msm     +++|          SHN    3
00483  M00S00454.msm     +++|          ADN    STLL
00484  M00S00455.msm     +++|          CRD    FS
00485  M00S00456.msm     +++|          SBN    STLL-DULL
00486  M00S00457.msm     +++|          CRD    CM
00487  M00S00458.msm     +++|          LDD    FS+1
00488  M00S00459.msm     +++|          LMN    STNR
00489  M00S00460.msm     +++|          LPN    77
00490  M00S00461.msm     +++| CIR7     ZJN    CIR10       IF EQUIPMENT NOT READY
00491  M00S00462.msm     +++|          LDD    FS
00492  M00S00463.msm     +++|          LPC    MLFPR+MLUNL+MLIRP
00493  M00S00464.msm     +++|          LMN    MLIRP
00494  M00S00465.msm     +++|          NJN    CIR10       IF INITIALIZE NOT TO BE PROCESSED
00495  M00S00466.msm     +++|          LDD    FS
00496  M00S00467.msm     +++|          SHN    -7
00497  M00S00468.msm     +++|          ZJN    CIR9        IF PERMANENT FILES NOT INVOLVED
00498  M00S00469.msm     +++|          LPN    MLIAL/1S7
00499  M00S00470.msm     +++|          NJN    CIR8        IF DEADSTART INITIALIZE
00500  M00S00471.msm     +++|          LDD    CM+4        CHECK ACTIVITY
00501  M00S00472.msm     +++|          LPC    3777
00502  M00S00473.msm     +++|          ADD    CM+1
00503  M00S00474.msm     +++|          ADD    FS+3
00504  M00S00475.msm     +++|          NJN    CIR10       IF ACTIVE FILES ON DEVICE
00505  M00S00476.msm     +++| CIR8     AOD    RC          INCREMENT RECOVERY COUNT
00506  M00S00477.msm     +++| CIR9     AOD    P2          ADVANCE INITIALIZATION COUNT
00507  M00S00478.msm     +++| CIR10    AOD    EQ          ADVANCE TO NEXT EQUIPMENT
00508  M00S00479.msm     +++|          LMD    LO
00509  M00S00480.msm     +++|          ZJN    CIR11       IF END OF MASS STORAGE DEVICES
00510  M00S00481.msm     +++|          SFA    EST,EQ
00511  M00S00482.msm     +++|          ADK    EQDE
00512  M00S00483.msm     +++|          CRD    FN
00513  M00S00484.msm     +++|          LJM    CIR6
00514  M00S00485.msm     +++|
00515  M00S00486.msm     +++| CIR11    LDD    P2          CHECK INITIALIZE STATUS
00516  M00S00487.msm     +++|          NJN    CIR2        IF INITIALIZE REQUESTS PRESENT
00517  M00S00488.msm     +++|
00518  M00S00489.msm     +++| CIR      SUBR               ENTRY/EXIT
00519  M00S00490.msm     +++|          LDN    0           PRESET EQUIPMENT INDEX
00520  M00S00491.msm     +++|          STD    RC          CLEAR INITIALIZE COUNT
00521  M00S00492.msm     +++|          STD    P2
00522  M00S00493.msm     +++|          LDN    NOPE-1      INITIALIZE EST ORDINAL FOR SEARCH
00523  M00S00494.msm     +++|          STD    EQ
00524  M00S00495.msm     +++|          UJN    CIR10       ENTER LOOP
00525  M00S00496.msm     +++|
00526  M00S00497.msm     +++|*         ENTERED HERE EXTERNALLY.
00527  M00S00498.msm     +++|
00528  M00S00499.msm     +++| CIR1     LDN    CIRC-CIRB   CHANGE COMMAND CALL TO *CONFIG.*
00529  M00S00500.msm     +++|          RAM    CIRA
00530  M00S00501.msm     +++| CIR2     UJMF   CIR4
00531  M00S00502.msm     +++|          LDD    RC
00532  M00S00503.msm     +++|          ZJN    CIR4        IF NO REQUESTS INVOLVING PF DESCRIPTION
00533  M00S00504.msm     +++|          LDC    MMFL        READ MMF STATUS WORD
00534  M00S00505.msm     +++|          CRD    CN
00535  M00S00506.msm     +++|          LDD    CN+2        CHECK DATI STATUS
00536  M00S00507.msm     +++|          LMC    4000
00537  M00S00508.msm     +++|          ZJN    CIR3        IF DAT INTERLOCKED
00538  M00S00509.msm     +++|          STD    CN+2        SET DAT INTERLOCKED
00539  M00S00510.msm     +++|          SHN    0-13
00540  M00S00511.msm     +++|          ZJN    CIR4        IF INTERLOCKED BY THIS MACHINE
00541  M00S00512.msm     +++|          LDN    DATI        GET FLAG REGISTER INTERLOCK
00542  M00S00513.msm     +++|          RJM    IFR
00543  M00S00514.msm     +++|          ZJN    CIR3        IF DAT INTERLOCKED
00544  M00S00515.msm     +++|          LJM    GDT1        RECALL *CMS*
00545  M00S00516.msm     +++|
00546  M00S00517.msm     +++| CIR3     LDD    RC          SET INITIALIZATION COUNT
00547  M00S00518.msm     +++|          RAD    CN+2
00548  M00S00519.msm     +++|          LDC    MMFL
00549  M00S00520.msm     +++|          CWD    CN
00550  M00S00521.msm     +++|
00551  M00S00522.msm     +++|*         SET UP COMMAND TO INITIATE *MSI*.
00552  M00S00523.msm     +++|
00553  M00S00524.msm     +++| CIR4     LDN    1
00554  M00S00525.msm     +++|
00555  M00S00526.msm     +++|*         ENTERED HERE FROM *DPP*.
00556  M00S00527.msm     +++|*         (A) = NUMBER OF COMMAND WORDS.
00557  M00S00528.msm     +++|
00558  M00S00529.msm     +++| CIR5     STD    T1          NUMBER OF COMMAND WORDS
00559  M00S00530.msm     +++|          LDD    CP          READ COMMAND POINTER WORD
00560  M00S00531.msm     +++|          ADN    CSPW
00561  M00S00532.msm     +++|          CRD    CM
00562  M00S00533.msm     +++|          LDC    CSBN        SET FWA OF COMMANDS
00563  M00S00534.msm     +++|          STD    CM+3
00564  M00S00535.msm     +++|          SBD    T1          SET LIMIT OF COMMANDS
00565  M00S00536.msm     +++|          STD    CM+4
00566  M00S00537.msm     +++|          LDD    CP          WRITE *CSPW*
00567  M00S00538.msm     +++|          ADN    CSPW
00568  M00S00539.msm     +++|          CWD    CM
00569  M00S00540.msm     +++|          NFA    CSBN        STORE COMMANDS
00570  M00S00541.msm     +++|          CWM    CIRB,T1
00571  M00S00542.msm     +++| CIRA     EQU    *-1
00572  M00S00543.msm     +++|          LJM    DPP1        DROP PPU
00573  M00S00544.msm     +++|
00574  M00S00545.msm     +++|
00575  M00S00546.msm     +++| CIRB     VFD    60/0LMSI.
00576  M00S00547.msm     +++| CIRC     VFD    60/0LCONFIG.
00577  M00S00548.msm     +++|
00578  M00S00549.msm     +++| CIRD     BSS    0
00579  M00S00550.msm     +++|          DATA   C*CLDT.*
00580  M00S00551.msm     +++|          CON    0
00581  M00S00552.msm     +++| CIRE     DATA   C*$ISF(FM=0,SJ,SP)*
00582  M00S00553.msm     +++|*         DATA   C*$ISF(FM=0,SJ)*      (RECOVERY DEADSTART)
00583  M00S00554.msm     +++|          CON    0
00584  M00S00555.msm     +++| CIRF2    EQU    *-CIRD
00585  M00S00556.msm     +++| CIRF     EQU    CIRF2/5     CM LENGTH OF COMMANDS
00586  M00S00557.msm     +++|          ERRNG  40-CIRF     COMMAND BUFFER OVERFLOW
00587  M00S00558.msm     +++| GDT      SPACE  4
00588  M00S00559.msm     +++|**        GDT - GET DEVICE ACCESS TABLE.
00589  M00S00560.msm     +++|*
00590  M00S00561.msm     +++|*         EXIT   DEVICE ACCESS TABLE LOADED.
00591  M00S00562.msm     +++|*                TO *RCL* IF DAT BUSY.
00592  M00S00563.msm     +++|*
00593  M00S00564.msm     +++|*         USES   P2, CN - CN+4.
00594  M00S00565.msm     +++|*
00595  M00S00566.msm     +++|*         CALLS  CLK, IFR, LDT.
00596  M00S00567.msm     +++|*
00597  M00S00568.msm     +++|*         MACROS EXECUTE.
00598  M00S00569.msm     +++|
00599  M00S00570.msm     +++|
00600  M00S00571.msm     +++| GDT3     RJM    LDT         LOAD DEVICE ACCESS TABLE
00601  M00S00572.msm     +++|          LDD    P2          SET *DATI* STATUS FOR *RPF*
00602  M00S00573.msm     +++|          RAM    RPFB
00603  M00S00574.msm     +++|
00604  M00S00575.msm     +++| GDT      SUBR               ENTRY/EXIT
00605  M00S00576.msm     +++|          LDC    MMFL        READ MMF STATUS WORD
00606  M00S00577.msm     +++|          CRD    CN
00607  M00S00578.msm     +++|          LDD    CN+2        CHECK DATI STATUS
00608  M00S00579.msm     +++|          SHN    -6
00609  M00S00580.msm     +++|          STD    P2
00610  M00S00581.msm     +++|          LMN    40
00611  M00S00582.msm     +++|          ZJN    GDT3        IF DAT INTERLOCKED
00612  M00S00583.msm     +++|          LDN    DATI        GET DAT INTERLOCK
00613  M00S00584.msm     +++|          RJM    IFR
00614  M00S00585.msm     +++|          ZJN    GDT3        IF INTERLOCK SET
00615  M00S00586.msm     +++|
00616  M00S00587.msm     +++|*         ENTERED HERE EXTERNALLY.
00617  M00S00588.msm     +++|
00618  M00S00589.msm     +++| GDT1     LDD    CP
00619  M00S00590.msm     +++|          ADN    MS2W
00620  M00S00591.msm     +++|          CWM    GDTA,TR
00621  M00S00592.msm     +++|          LDN    FIRR        FLAG REGISTER INTERLOCK REJECT
00622  M00S00593.msm     +++|          LJM    RCL         RECALL CMS
00623  M00S00594.msm     +++|
00624  M00S00595.msm     +++| GDTA     DATA   C*$WAITING - RECOVERY INTERLOCK.*
Line S00596 Modification History
M01 (Removed by) 284l847
Seq #  *Modification Id* Act 
----------------------------+
00625  M01S00596.284l847 ---| LPS      SPACE  4,15
00626  M01S00597.284l847 ---|**        LPS - LIST PACK SERIAL NUMBERS.
00627  M01S00598.284l847 ---|*
00628  M01S00599.284l847 ---|*         ENTRY  (EQ) = EST ORDINAL.
00629  M01S00600.284l847 ---|*                (FN - FN+4) = EST ENTRY FOR EQUIPMENT.
00630  M01S00601.284l847 ---|*
00631  M01S00602.284l847 ---|*         EXIT   PACK SERIAL NUMBER IDENTIFICATION MESSAGES ISSUED TO
00632  M01S00603.284l847 ---|*                THE ERROR LOG FOR ALL UNITS OF THE EQUIPMENT.
00633  M01S00604.284l847 ---|*
Line S00605 Modification History
M01 (Removed by) 272l774
M02 (Removed by) 284l847
Seq #  *Modification Id* Act 
----------------------------+
00634  M02S00605.284l847 ---|*         USES   CM+1, T2, CN - CN+4, FS+1 - FS+3.
Line S00001 Modification History
M01 (Added by) 272l774
M02 (Removed by) 284l847
Seq #  *Modification Id* Act 
----------------------------+
00635  M02S00001.284l847 ---|*         USES   CM+1, T1, T2, CN - CN+4, FS+1 - FS+3.
Line S00606 Modification History
M01 (Removed by) 284l847
Seq #  *Modification Id* Act 
----------------------------+
00636  M01S00606.284l847 ---|*
00637  M01S00607.284l847 ---|*         CALLS  DFM, SDR, *0PI*.
00638  M01S00608.284l847 ---|*
00639  M01S00609.284l847 ---|*         MACROS EXECUTE.
00640  M01S00610.284l847 ---|
00641  M01S00611.284l847 ---|
Line S00612 Modification History
M01 (Removed by) 271l716
M02 (Removed by) 284l847
Seq #  *Modification Id* Act 
----------------------------+
00642  M02S00612.284l847 ---| LPS3     LDN    LPSN        LIST PACK SERIAL NUMBER
Line S00001 Modification History
M01 (Added by) 271l716
M02 (Removed by) 272l774
M03 (Removed by) 284l847
Seq #  *Modification Id* Act 
----------------------------+
00643  M03S00001.284l847 ---| LPS4     LDD    FN+3        CHECK DEVICE TYPE
00644  M03S00002.284l847 ---|          LMC    2RDF
00645  M03S00003.284l847 ---|          ZJN    LPS5        IF 887 (HYDRA) DEVICE
00646  M03S00004.284l847 ---|          LMN    2RDH&2RDF
00647  M03S00005.284l847 ---|          ZJN    LPS5        IF HYDRA DEVICE
00648  M03S00006.284l847 ---|          LMN    2RDN&2RDH
00649  M03S00007.284l847 ---|          NJN    LPSX        IF NOT XMD DEVICE
00650  M03S00008.284l847 ---| LPS5     LDN    LDIF
Line S00002 Modification History
M01 (Added by) 272l774
M02 (Removed by) 284l847
Seq #  *Modification Id* Act 
----------------------------+
00651  M02S00002.284l847 ---| LPS4     LDN    TLPSL       CHECK DEVICE TYPE FOR NON-*LDAM* DEVICE
00652  M02S00003.284l847 ---|          STD    T1
00653  M02S00004.284l847 ---| LPS5     SOD    T1
00654  M02S00005.284l847 ---|          MJN    LPSX        IF SERIAL NUMBER SHOULD NOT BE LOGGED
00655  M02S00006.284l847 ---|          LDD    FN+3
00656  M02S00007.284l847 ---|          LMM    TLPS,T1
00657  M02S00008.284l847 ---|          NJN    LPS5        IF DEVICE TYPE DOES NOT MATCH
00658  M02S00009.284l847 ---|          LDN    LDIF
Line S00613 Modification History
M01 (Removed by) 284l847
Seq #  *Modification Id* Act 
----------------------------+
00659  M01S00613.284l847 ---|          RJM    /RDA/SDR    SET BUFFERED DEVICE REQUEST
00660  M01S00614.284l847 ---|
00661  M01S00615.284l847 ---| LPS      SUBR               ENTRY/EXIT
Line S00616 Modification History
M01 (Removed by) 271l716
M02 (Removed by) 284l847
Seq #  *Modification Id* Act 
----------------------------+
00662  M02S00616.284l847 ---|          LDD    FN          CHECK EQUIPMENT TYPE
00663  M02S00617.284l847 ---|          SHN    21-7
00664  M02S00618.284l847 ---|          PJN    LPSX        IF NOT LDAM EQUIPMENT
Line S00619 Modification History
M01 (Removed by) 284l847
Seq #  *Modification Id* Act 
----------------------------+
00665  M01S00619.284l847 ---|          LDD    FN+4
00666  M01S00620.284l847 ---|          SHN    3
00667  M01S00621.284l847 ---|          ADN    DDLL        GET LOGICAL UNIT COUNT
00668  M01S00622.284l847 ---|          CRD    CN
00669  M01S00623.284l847 ---|          LDD    CN          EXTRACT UNIT COUNT
00670  M01S00624.284l847 ---|          LPN    7
00671  M01S00625.284l847 ---|          STD    CN
00672  M01S00626.284l847 ---|          STD    T2
Line S00009 Modification History
M01 (Added by) 271l716
M02 (Removed by) 284l847
Seq #  *Modification Id* Act 
----------------------------+
00673  M02S00009.284l847 ---|          LDD    FN
00674  M02S00010.284l847 ---|          SHN    21-7
00675  M02S00011.284l847 ---|          PJN    LPS4        IF NOT *LDAM* DEVICE
Line S00627 Modification History
M01 (Removed by) 284l847
Seq #  *Modification Id* Act 
----------------------------+
00676  M01S00627.284l847 ---|          LDD    FN+1
00677  M01S00628.284l847 ---|          SHN    21-5
Line S00629 Modification History
M01 (Removed by) 271l716
M02 (Removed by) 284l847
Seq #  *Modification Id* Act 
----------------------------+
00678  M02S00629.284l847 ---|          MJN    LPS3        IF CONCURRENT CHANNEL
00679  M02S00630.284l847 ---|          LDD    T5          SET EQUIPMENT
Line S00012 Modification History
M01 (Added by) 271l716
M02 (Removed by) 284l847
Seq #  *Modification Id* Act 
----------------------------+
00680  M02S00012.284l847 ---|          MJN    LPS5        IF CONCURRENT CHANNEL
00681  M02S00013.284l847 ---|          LDD    T5
Line S00631 Modification History
M01 (Removed by) 284l847
Seq #  *Modification Id* Act 
----------------------------+
00682  M01S00631.284l847 ---|          STM    /RDA/SBUF
00683  M01S00632.284l847 ---|          EXECUTE 0PI,/RDA/SBUF+1
00684  M01S00633.284l847 ---|          STD    FS+3        SAVE MAIN PROCESSOR ADDRESS
00685  M01S00634.284l847 ---|          LDN    0           SET TO FIRST LOGICAL UNIT
00686  M01S00635.284l847 ---|          STD    FS+1
00687  M01S00636.284l847 ---| LPS1     LDD    FS+1        GET MESSAGE FOR A LOGICAL UNIT
00688  M01S00637.284l847 ---|          RJM    0,FS+3
00689  M01S00638.284l847 ---|          ZJN    LPS2        IF MASS STORAGE ERROR
00690  M01S00639.284l847 ---|          STD    FS+2        SAVE MESSAGE TABLE ADDRESS
00691  M01S00640.284l847 ---|          SHN    -14         SET BML MESSAGE LENGTH
00692  M01S00641.284l847 ---|          STD    CM+1
00693  M01S00642.284l847 ---|          LDC    BMLN
00694  M01S00643.284l847 ---|          ADM    1,FS+2      ADD BML MESSAGE ADDRESS
00695  M01S00644.284l847 ---|          RJM    DFM
00696  M01S00645.284l847 ---|          LDI    FS+2        GET ERROR LOG MESSAGE ADDRESS
00697  M01S00646.284l847 ---|          LMC    ERLN        SEND MESSAGE TO ERROR LOG
00698  M01S00647.284l847 ---|          RJM    DFM
00699  M01S00648.284l847 ---| LPS2     AOD    FS+1        ADVANCE LOGICAL UNIT
00700  M01S00649.284l847 ---|          SOD    CN          DECREMENT LOGICAL UNIT COUNT
00701  M01S00650.284l847 ---|          PJN    LPS1        IF MORE LOGICAL UNITS
00702  M01S00651.284l847 ---|          LJM    LPSX        EXIT
Line S00010 Modification History
M01 (Added by) 272l774
M02 (Removed by) 284l847
Seq #  *Modification Id* Act 
----------------------------+
00703  M02S00010.284l847 ---|
00704  M02S00011.284l847 ---|
00705  M02S00012.284l847 ---| TLPS     BSS    0           NON-*LDAM* DEVICES FOR WHICH TO LIST PSN-S
00706  M02S00013.284l847 ---|          CON    2RDF        887 (4KB SECTOR)
00707  M02S00014.284l847 ---|          CON    2RDH        887 (16KB SECTOR)
00708  M02S00015.284l847 ---|          CON    2RDN        9853
00709  M02S00016.284l847 ---|          CON    2REA        5832 (1X SSD)
00710  M02S00017.284l847 ---|          CON    2REB        5832 (2X SSD)
00711  M02S00018.284l847 ---|          CON    2REC        5833 (1X SABRE)
00712  M02S00019.284l847 ---|          CON    2RED        5833 (1XP SABRE)
00713  M02S00020.284l847 ---|          CON    2REE        5833 (2X SABRE)
00714  M02S00021.284l847 ---|          CON    2REF        5833 (2XP SABRE)
Line S00007 Modification History
M01 (Added by) ns2768
M02 (Removed by) 284l847
Seq #  *Modification Id* Act 
----------------------------+
00715  M02S00007.284l847 ---|          CON    2REG        5838 (1X ELITE)
00716  M02S00008.284l847 ---|          CON    2REH        5838 (1XP ELITE)
Line S00022 Modification History
M01 (Added by) 272l774
M02 (Removed by) 284l847
Seq #  *Modification Id* Act 
----------------------------+
00717  M02S00022.284l847 ---|
00718  M02S00023.284l847 ---| TLPSL    EQU    *-TLPS      LENGTH OF TABLE
00719  M00S00652.msm     +++| RCL      SPACE  4,10
00720  M00S00653.msm     +++|**        RCL - RECALL PP.
00721  M00S00654.msm     +++|*
00722  M00S00655.msm     +++|*         ENTRY  (A) = RECALL STACK REASON CODE.
00723  M00S00656.msm     +++|*
00724  M00S00657.msm     +++|*         EXIT   TO *PPR*.
00725  M00S00658.msm     +++|*
00726  M00S00659.msm     +++|*         USES   LA, CM - CM+4.
00727  M00S00660.msm     +++|*
00728  M00S00661.msm     +++|*         MACROS MONITOR.
00729  M00S00662.msm     +++|
00730  M00S00663.msm     +++|
00731  M00S00664.msm     +++| RCL      STD    CM          SET REASON CODE
00732  M00S00665.msm     +++|          LDK    ZERL
00733  M00S00666.msm     +++|          CRD    CM+1
00734  M00S00667.msm     +++|          LDD    MA          ENTER PP RECALL REQUEST
00735  M00S00668.msm     +++|          CWM    RCLA,ON
00736  M00S00669.msm     +++|          CWD    CM
00737  M00S00670.msm     +++|          MONITOR  RECM
00738  M00S00671.msm     +++|          LJM    PPR         EXIT TO PP RESIDENT
00739  M00S00672.msm     +++|
00740  M00S00673.msm     +++| RCLA     VFD    60/0LCMS
00741  M00S00674.msm     +++|
00742  M00S00675.msm     +++|*         CODE BEYOND THIS POINT MAY BE OVERLAID.
00743  M00S00676.msm     +++|
00744  M00S00677.msm     +++| SDVR     EQU    *
00745  M00S00678.msm     +++| IAM      SPACE  4
00746  M00S00679.msm     +++|**        IAM - ISSUE ACCOUNTING MESSAGE.
00747  M00S00680.msm     +++|*
00748  M00S00681.msm     +++|*         ENTRY  (EQ) = EST ORDINAL.
00749  M00S00682.msm     +++|*                (FN - FN+4) = EST ENTRY.
00750  M00S00683.msm     +++|*
00751  M00S00684.msm     +++|*         EXIT   MESSAGE ISSUED TO ACCOUNTING DAYFILE.
00752  M00S00685.msm     +++|*
00753  M00S00686.msm     +++|*         USES   T1, CM - CM+4, CN - CN+4.
00754  M00S00687.msm     +++|*
00755  M00S00688.msm     +++|*         CALLS  ACS, C2D, DFM.
00756  M00S00689.msm     +++|
00757  M00S00690.msm     +++|
00758  M00S00691.msm     +++| IAM      SUBR               ENTRY/EXIT
00759  M00S00692.msm     +++|          LDC    IAMB        SET ADDRESS OF ASSEMBLY BUFFER
00760  M00S00693.msm     +++|          STD    T1
00761  M00S00694.msm     +++|          LDD    EQ          CONVERT UPPER TWO DIGITS OF EST ORDINAL
00762  M00S00695.msm     +++|          SHN    -3
00763  M00S00696.msm     +++|          RJM    C2D
00764  M00S00697.msm     +++|          STD    CM
00765  M00S00698.msm     +++|          LDD    EQ          CONVERT LOWER DIGIT OF EST ORDINAL
00766  M00S00699.msm     +++|          LPN    7
00767  M00S00700.msm     +++|          ADN    1R0
00768  M00S00701.msm     +++|          SHN    6
00769  M00S00702.msm     +++|          STD    CM+1
00770  M00S00703.msm     +++|          LDN    CM          ADD EST ORDINAL TO MESSAGE
00771  M00S00704.msm     +++|          RJM    ACS
00772  M00S00705.msm     +++|          LDC    =C*, *      ADD SEPARATOR TO MESSAGE
00773  M00S00706.msm     +++|          RJM    ACS
00774  M00S00707.msm     +++|          LDD    FN+4        GET DEVICE DESCRIPTION
00775  M00S00708.msm     +++|          SHN    3
00776  M00S00709.msm     +++|          ADN    PFGL
00777  M00S00710.msm     +++|          CRD    CM
00778  M00S00711.msm     +++|          ADN    PUGL-PFGL   READ USER NAME
00779  M00S00712.msm     +++|          CRD    CN
00780  M00S00713.msm     +++|          LDD    CM+3        EXTRACT DEVICE NUMBER
00781  M00S00714.msm     +++|          LPN    77
00782  M00S00715.msm     +++|          ZJN    IAM1        IF AUXILIARY DEVICE
00783  M00S00716.msm     +++|          RJM    C2D         CONVERT TO DISPLAY CODE
00784  M00S00717.msm     +++|          STD    CN
00785  M00S00718.msm     +++|          LDD    CM+3        SET END OF FAMILY NAME
00786  M00S00719.msm     +++|          SCN    77
00787  M00S00720.msm     +++|          STD    CM+3
00788  M00S00721.msm     +++|          LDC    2RDU&2RPD
00789  M00S00722.msm     +++| IAM1     LMC    2RPD        SET MESSAGE PREFIX
00790  M00S00723.msm     +++|          STM    IAMA+1
00791  M00S00724.msm     +++|          LDN    CM          ADD FAMILY/PACKNAME TO MESSAGE
00792  M00S00725.msm     +++|          RJM    ACS
00793  M00S00726.msm     +++|          LDD    CN
00794  M00S00727.msm     +++|          ZJN    IAM2        IF NO USER/DEVICE NUMBER
00795  M00S00728.msm     +++|          LDC    =C*, *
00796  M00S00729.msm     +++|          RJM    ACS
00797  M00S00730.msm     +++|          LDD    CN+3        SET END OF USER NAME
00798  M00S00731.msm     +++|          SCN    77
00799  M00S00732.msm     +++|          STD    CN+3
00800  M00S00733.msm     +++|          LDN    CN          ADD USER/DEVICE NUMBER TO MESSAGE
00801  M00S00734.msm     +++|          RJM    ACS
00802  M00S00735.msm     +++| IAM2     LDC    =C*.*       SET MESSAGE TERMINATOR
00803  M00S00736.msm     +++|          RJM    ACS
00804  M00S00737.msm     +++|          LDC    IAMA+ACFN   ISSUE MESSAGE TO ACCOUNT FILE
00805  M00S00738.msm     +++|          RJM    DFM
00806  M00S00739.msm     +++|*         LDN    0           CLEAR ASSEMBLY BUFFER
00807  M00S00740.msm     +++|          STM    IAMB
00808  M00S00741.msm     +++|          LJM    IAMX        RETURN
00809  M00S00742.msm     +++|
00810  M00S00743.msm     +++| IAMA     DATA   6HADPD,
00811  M00S00744.msm     +++| IAMB     BSSZ   15          ASSEMBLY BUFFER
00812  M00S00745.msm     +++| RCD      SPACE  4
00813  M00S00746.msm     +++|**        RCD - RECOVER DEVICES.
00814  M00S00747.msm     +++|*
00815  M00S00748.msm     +++|*         ENTRY  (RE) = EQUIPMENT TO RECOVER.
00816  M00S00749.msm     +++|*                (AL) = CM ADDRESS CONTAINING LABEL MST.
00817  M00S00750.msm     +++|*                (RC) = RECOVERY COUNT.
00818  M00S00751.msm     +++|*                (EQ) = (T5) = EST ORDINAL.
00819  M00S00752.msm     +++|*                (CA+1) = CM ADDRESS OF TRT BUFFER.
00820  M00S00753.msm     +++|*                (FN - FN+4) = EST ENTRY.
00821  M00S00754.msm     +++|*
00822  M00S00755.msm     +++|*         EXIT   DEVICES RECOVERED OR SET UNAVAILABLE.
00823  M00S00756.msm     +++|*                (A) .LT. 0 IF RECOVERY INFORMATION NOT TO
00824  M00S00757.msm     +++|*                BE REWRITTEN TO CM UPON RETURN TO *MRL*.
00825  M00S00758.msm     +++|*
00826  M00S00759.msm     +++|*         USES   CA, EC, T1, CN - CN+4.
00827  M00S00760.msm     +++|*
Line S00761 Modification History
M01 (Removed by) ns2552
Seq #  *Modification Id* Act 
----------------------------+
00828  M01S00761.ns2552  ---|*         CALLS  ATC, CLR, CSD, CTD, CTT, DFM, EMT, ETT.
00829  M01S00762.ns2552  ---|*                IES, RTT, SEC, UDT.
Line S00003 Modification History
M01 (Added by) ns2552
Seq #  *Modification Id* Act 
----------------------------+
00830  M01S00003.ns2552  +++|*         CALLS  CSD, DFM, IES, SEC, UDT.
00831  M00S00763.msm     +++|*
00832  M00S00764.msm     +++|*         MACROS SMSTF, UJMF.
00833  M00S00765.msm     +++|
00834  M00S00766.msm     +++|
00835  M00S00767.msm     +++| RCD9     SCN    2           CLEAR INTERNAL SHARED STATUS
00836  M00S00768.msm     +++|          SHN    7+1
00837  M00S00769.msm     +++|          STD    RE
00838  M00S00770.msm     +++|
00839  M00S00771.msm     +++| RCD      SUBR               ENTRY/EXIT
00840  M00S00772.msm     +++|          SHN    21-7
00841  M00S00773.msm     +++|          PJN    RCD9        IF DEVICE NOT BEING RECOVERED
00842  M00S00774.msm     +++|          SMSTF  LPTU        PROHIBIT TRT UPDATE BY *1RU*
00843  M00S00775.msm     +++|          RJM    SEC         SET PROPER EQUIPMENT CONFIGURATION
00844  M00S00776.msm     +++|          UJMF   RCD3        NON MMF TRANSFER
00845  M00S00777.msm     +++|          LDD    RA          GET DEVICE NAME FROM LABEL MST
00846  M00S00778.msm     +++|          SHN    6
00847  M00S00779.msm     +++|          ADD    AL
00848  M00S00780.msm     +++|          ADN    PFGL
00849  M00S00781.msm     +++|          CRD    CN
00850  M00S00782.msm     +++|          RJM    CSD         CHECK SHARED DEVICE STATUS
00851  M00S00783.msm     +++|          NJN    RCD1        IF *DAT* CONFLICT
00852  M00S00784.msm     +++|          LDD    RS
00853  M00S00785.msm     +++|          NJN    RCD2        IF CONTINUATION OF RECOVERY DEADSTART
00854  M00S00786.msm     +++|          LDD    RE
00855  M00S00787.msm     +++|          LPN    10
00856  M00S00788.msm     +++|          ZJN    RCD2        IF NOT ACCESSED BY THIS MACHINE
00857  M00S00789.msm     +++|          LDC    CSDC
00858  M00S00790.msm     +++| RCD1     RJM    DFM         ISSUE MESSAGE TO DAYFILE
00859  M00S00791.msm     +++|          LDN    STCE        SET CONFIGURATION ERROR
00860  M00S00792.msm     +++|          UJN    RCD5        ENTER ERROR STATUS
00861  M00S00793.msm     +++|
00862  M00S00794.msm     +++| RCD2     RJM    UDT         UPDATE DEVICE ACCESS TABLE
00863  M00S00795.msm     +++|          NJN    RCD1        IF MST/TRT TRACK UNAVAILABLE
00864  M00S00796.msm     +++| RCD3     LDD    RE          CHECK STATUS OF LABEL READ
00865  M00S00797.msm     +++|          LPN    40
00866  M00S00798.msm     +++|          ZJN    RCD4        IF VALID ACCESS MODE
00867  M00S00799.msm     +++|          LDN    STLE        SET LABEL ERROR
00868  M00S00800.msm     +++|          UJN    RCD5        ENTER ERROR STATUS
00869  M00S00801.msm     +++|
00870  M00S00802.msm     +++|*         READ AND EDIT TRT.
00871  M00S00803.msm     +++|
Line S00804 Modification History
M01 (Removed by) ns2552
Seq #  *Modification Id* Act 
----------------------------+
00872  M01S00804.ns2552  ---| RCD4     RJM    RTT         READ TRT
00873  M01S00805.ns2552  ---|          ZJN    RCD6        IF NO ERROR READING TRT
00874  M01S00806.ns2552  ---|          LDN    STTL        SET TRT LENGTH ERROR
Line S00004 Modification History
M01 (Added by) ns2552
Seq #  *Modification Id* Act 
----------------------------+
00875  M01S00004.ns2552  +++| RCD4     RJM    RTT
00876  M01S00005.ns2552  +++|          ZJN    RCD6        IF RECOVERY COMPLETE
00877  M00S00807.msm     +++|
00878  M00S00808.msm     +++|*         ERROR  IN RECOVERY OF DEVICE.
00879  M00S00809.msm     +++|
00880  M00S00810.msm     +++| RCD5     STD    EC          SET ERROR STATUS
00881  M00S00811.msm     +++|          SOD    RC          DECREMENT RECOVERY COUNT
00882  M00S00812.msm     +++|          RJM    IES         INITIALIZE EQUIPMENT STATUS
00883  M00S00813.msm     +++|*         LCN    0           (*MRL* REWRITE RECOVERY TABLE FLAG)
Line S00814 Modification History
M01 (Removed by) ns2552
Seq #  *Modification Id* Act 
----------------------------+
00884  M01S00814.ns2552  ---|          LJM    RCDX
00885  M01S00815.ns2552  ---|
00886  M01S00816.ns2552  ---| RCD6     LDD    RE          CHECK SHARED DEVICE STATUS
00887  M01S00817.ns2552  ---|          LPC    1002
00888  M01S00818.ns2552  ---|          LMC    1002
00889  M01S00819.ns2552  ---|          ZJN    RCD8        IF SHARED AND ACCESSED PREVIOUSLY
00890  M01S00820.ns2552  ---|          LDD    RS
00891  M01S00821.ns2552  ---|          NJN    RCD7        IF DEADSTART RECOVERY
00892  M01S00822.ns2552  ---|          RJM    CLR         CLEAR RESIDENT TRT
00893  M01S00823.ns2552  ---|          RJM    ETT         EDIT TRT
00894  M01S00824.ns2552  ---|          ZJN    RCD8        IF NO EDIT ERRORS
00895  M01S00825.ns2552  ---|          LDN    STLK
00896  M01S00826.ns2552  ---|          UJN    RCD5        ENTER ERROR STATUS
00897  M01S00827.ns2552  ---|
00898  M01S00828.ns2552  ---| RCD7     RJM    CTT         COPY TRT
00899  M01S00829.ns2552  ---| RCD8     RJM    EMT         ENTER MST
00900  M01S00830.ns2552  ---|          RJM    ATC         ADJUST TRACK COUNT
00901  M01S00831.ns2552  ---|          RJM    CTD         COPY TABLES BACK TO DISK
00902  M01S00832.ns2552  ---|*         LDN    0           (*MRL* REWRITE RECOVERY TABLE FLAG)
00903  M01S00833.ns2552  ---|          LJM    RCDX
Line S00006 Modification History
M01 (Added by) ns2552
Seq #  *Modification Id* Act 
----------------------------+
00904  M01S00006.ns2552  +++| RCD6     LJM    RCDX        RETURN
00905  M00S00834.msm     +++| RQS      SPACE  4
00906  M00S00835.msm     +++|**        RQS - REQUEST STORAGE.
00907  M00S00836.msm     +++|*
00908  M00S00837.msm     +++|*         ENTRY  (A) = STORAGE REQUIRED.
00909  M00S00838.msm     +++|*
00910  M00S00839.msm     +++|*         EXIT   STORAGE ASSIGNED.
00911  M00S00840.msm     +++|*                TO *RCL* IF REQUEST PENDING.
00912  M00S00841.msm     +++|*
00913  M00S00842.msm     +++|*         CALLS  RSI.
00914  M00S00843.msm     +++|
00915  M00S00844.msm     +++|
00916  M00S00845.msm     +++| RQS      SUBR               ENTRY/EXIT
00917  M00S00846.msm     +++|          RJM    RSI         REQUEST STORAGE INCREASE
00918  M00S00847.msm     +++|          ZJN    RQSX        IF ASSIGNED
00919  M00S00848.msm     +++|          LDN    CFIR        CM FL INCREASE PENDING
00920  M00S00849.msm     +++|          LJM    RCL         RECALL *CMS*
00921  M00S00850.msm     +++| UMT      SPACE  4
00922  M00S00851.msm     +++|**        UMT - UPDATE MMF TABLES IN EXTENDED MEMORY.
00923  M00S00852.msm     +++|*
00924  M00S00853.msm     +++|*         ENTRY  (RC) = NUMBER OF EQUIPMENTS RECOVERED.
00925  M00S00854.msm     +++|*
00926  M00S00855.msm     +++|*         CALLS  *4DF*, MRL.
00927  M00S00856.msm     +++|
00928  M00S00857.msm     +++|
00929  M00S00858.msm     +++| UMT      SUBR               ENTRY/EXIT
00930  M00S00859.msm     +++|          LDD    RC
00931  M00S00860.msm     +++|          ZJN    UMTX        IF NO EQUIPMENT RECOVERED
00932  M00S00861.msm     +++|          EXECUTE 4DF
00933  M00S00862.msm     +++|          LDC    UER         UPDATE EXTENDED MEMORY RESIDENT
00934  M00S00863.msm     +++|          RJM    MRL
00935  M00S00864.msm     +++|          UJN    UMTX        RETURN
Line S00865 Modification History
M01 (Removed by) ns2552
Seq #  *Modification Id* Act 
----------------------------+
00936  M01S00865.ns2552  ---| VPF      SPACE  4
00937  M01S00866.ns2552  ---|**        VPF - VERIFY PF INTEGRITY.
00938  M01S00867.ns2552  ---|*
00939  M01S00868.ns2552  ---|*         EXIT   (A) = 0 IF NO ERRORS.
00940  M01S00869.ns2552  ---|*
00941  M01S00870.ns2552  ---|*         CALLS  *4DC*, SES.
00942  M01S00871.ns2552  ---|
00943  M01S00872.ns2552  ---|
00944  M01S00873.ns2552  ---| VPF      SUBR               ENTRY/EXIT
00945  M01S00874.ns2552  ---|          LDN    1
00946  M01S00875.ns2552  ---|          STD    P1
00947  M01S00876.ns2552  ---|          EXECUTE  4DC       LOAD VERIFICATION ROUTINES
00948  M01S00877.ns2552  ---| VPF1     RJM    VMS         VERIFY PF SYSTEM
00949  M01S00878.ns2552  ---|          ZJN    VPFX        IF NO ERRORS
00950  M01S00879.ns2552  ---|          LDD    EF
00951  M01S00880.ns2552  ---|          NJN    VPF1        IF EITHER DEVICE SET UNAVAILABLE
00952  M01S00881.ns2552  ---|          LDD    P1
00953  M01S00882.ns2552  ---|          STD    T5
00954  M01S00883.ns2552  ---|          LDD    EC          SET ERROR STATUS ON FIRST DEVICE
00955  M01S00884.ns2552  ---|          RJM    SES
00956  M01S00885.ns2552  ---|          LDD    P2
00957  M01S00886.ns2552  ---|          STD    T5
00958  M01S00887.ns2552  ---|          LDD    EC          SET ERROR STATUS FOR SECOND DEVICE
00959  M01S00888.ns2552  ---|          RJM    SES
00960  M01S00889.ns2552  ---|          LDD    EC
00961  M01S00890.ns2552  ---|          UJN    VPFX        RETURN
00962  M00S00891.msm     +++|          SPACE  4
00963  M00S00892.msm     +++|**        COMMON DECKS.
00964  M00S00893.msm     +++|
00965  M00S00894.msm     +++|
00966  M00S00895.msm     +++|*CALL     COMPACS
00967  M00S00896.msm     +++|*CALL     COMPRSI
00968  M00S00897.msm     +++|
00969  M00S00898.msm     +++|
00970  M00S00899.msm     +++|          USE    LITERALS
00971  M00S00900.msm     +++|          TITLE  PRESET.
00972  M00S00901.msm     +++| PRS      SPACE  4
00973  M00S00902.msm     +++|**        PRS - PRESET.
00974  M00S00903.msm     +++|*
00975  M00S00904.msm     +++|*         EXIT   DEVICE STATUS TABLE IN *MSM-S* FL SET WITH
00976  M00S00905.msm     +++|*                RECOVERY STATUS INFORMATION AND CM ADDRESSES
00977  M00S00906.msm     +++|*                FOR MST LABEL DATA.
00978  M00S00907.msm     +++|
00979  M00S00908.msm     +++|
00980  M00S00909.msm     +++| PRS      BSS    0
00981  M00S00910.msm     +++|          LDD    CP          CHECK ORIGIN OF CALL
00982  M00S00911.msm     +++|          ADN    JCIW
00983  M00S00912.msm     +++|          CRD    CM
00984  M00S00913.msm     +++|          ADN    SNSW-JCIW
00985  M00S00914.msm     +++|          CRD    CN
00986  M00S00915.msm     +++|          LDD    CM+2
00987  M00S00916.msm     +++|          LMC    MSSI
Line S00917 Modification History
M01 (Removed by) ns2768
Seq #  *Modification Id* Act 
----------------------------+
00988  M01S00917.ns2768  ---|          ZJN    PRS2        IF VALID SUBSYSTEM CALL
Line S00009 Modification History
M01 (Added by) ns2768
Seq #  *Modification Id* Act 
----------------------------+
00989  M01S00009.ns2768  +++|          ZJP    PRS2        IF VALID SUBSYSTEM CALL
00990  M00S00918.msm     +++|          LMN    DSSI&MSSI
Line S00919 Modification History
M01 (Removed by) ns2768
Seq #  *Modification Id* Act 
----------------------------+
00991  M01S00919.ns2768  ---|          NJN    PRS3        IF NOT DEADSTART SEQUENCING PRIORITY
Line S00010 Modification History
M01 (Added by) ns2768
Seq #  *Modification Id* Act 
----------------------------+
00992  M01S00010.ns2768  +++|          NJP    PRS3        IF NOT DEADSTART SEQUENCING PRIORITY
Line S00920 Modification History
M01 (Removed by) ns2768
Seq #  *Modification Id* Act 
----------------------------+
00993  M01S00920.ns2768  ---|          AOM    DPPA        SET DEADSTART SEQUENCING REQUIRED FLAG
00994  M01S00921.ns2768  ---|          STM    CMSB
Line S00011 Modification History
M01 (Added by) ns2768
Seq #  *Modification Id* Act 
----------------------------+
00995  M01S00011.ns2768  +++|          ISTORE CMSB,(UJN CMS4)  SET DEADSTART SEQUENCING STATUS
00996  M01S00012.ns2768  +++|          ISTORE DPPB,(LDN CIRD-CIRB)
00997  M00S00922.msm     +++|          LDD    CP          SET SYSTEM USER NAME/INDEX
00998  M00S00923.msm     +++|          ADN    UIDW
00999  M00S00924.msm     +++|          CWM    PRSA,ON
01000  M00S00925.msm     +++|          LDN    DSSL        SET RECOVERY LEVEL
01001  M00S00926.msm     +++|          CRD    CM
01002  M00S00927.msm     +++|          LDD    CM+4        SET RECOVERY STATUS
01003  M00S00928.msm     +++|          LPN    3
01004  M00S00929.msm     +++|          STD    T1
01005  M00S00930.msm     +++|          ZJN    PRS1        IF NOT RECOVERY DEADSTART
01006  M00S00931.msm     +++|          LDC    100*1R)     PREVENT *SYSPROC* CALL
01007  M00S00932.msm     +++|          STM    CIRE+6
01008  M00S00933.msm     +++|          LDN    0
01009  M00S00934.msm     +++|          STM    CIRE+7
01010  M00S00935.msm     +++|          SOM    DPPC        PREVENT *CLDT* CALL
01011  M00S00936.msm     +++|          LDN    CIRE-CIRD
01012  M00S00937.msm     +++|          RAM    DPPB
01013  M00S00938.msm     +++| PRS1     LDM    TRCO,T1
01014  M00S00939.msm     +++| PRS2     UJN    PRS5        SET RECOVERY STATUS
01015  M00S00940.msm     +++|
01016  M00S00941.msm     +++| PRS3     LDC    PRSB        ISSUE * INCORRECT CMS CALL.*
01017  M00S00942.msm     +++|          RJM    DFM
01018  M00S00943.msm     +++| PRS4     LDC    MMFL        READ MMF STATUS WORD
01019  M00S00944.msm     +++|          CRD    CN
01020  M00S00945.msm     +++|          LDD    CN+2        CHECK RECOVERY INTERLOCK
01021  M00S00946.msm     +++|          SHN    0-13
01022  M00S00947.msm     +++|          ZJN    ABT         IF DAT NOT INTERLOCKED
01023  M00S00948.msm     +++|          LCN    DATI        RELEASE RECOVERY INTERLOCK
01024  M00S00949.msm     +++|          RJM    IFR
01025  M00S00950.msm     +++|          STD    CN+2        CLEAR INTERLOCK STATUS
01026  M00S00951.msm     +++|          LDC    MMFL
01027  M00S00952.msm     +++|          CWD    CN
01028  M00S00953.msm     +++| ABT      MONITOR ABTM
01029  M00S00954.msm     +++|          LJM    PPR
01030  M00S00955.msm     +++|
01031  M00S00956.msm     +++| PRS5     STD    RS
01032  M00S00957.msm     +++|          PAUSE              CHECK ERROR FLAG
01033  M00S00958.msm     +++|          LDD    CM+1
01034  M00S00959.msm     +++|          NJN    PRS4        IF ERROR FLAG SET
01035  M00S00960.msm     +++|          LDD    CN+3        CLEAR PAUSE BIT
01036  M00S00961.msm     +++|          SCN    1
01037  M00S00962.msm     +++|          STD    CN+3
01038  M00S00963.msm     +++|          LDD    CP
01039  M00S00964.msm     +++|          ADN    SNSW
01040  M00S00965.msm     +++|          CWD    CN
01041  M00S00966.msm     +++|          ADN    PFCW-SNSW   SWITCH TO NULL FAMILY
01042  M00S00967.msm     +++|          CRD    CN
01043  M00S00968.msm     +++|          LDD    CN+3
01044  M00S00969.msm     +++|          STD    CM+1
01045  M00S00970.msm     +++|          LMN    NEEQ        CHECK FOR NULL FAMILY
01046  M00S00971.msm     +++|          ZJN    PRS6        IF NULL FAMILY
01047  M00S00972.msm     +++|          LDN    DFCS
01048  M00S00973.msm     +++|          STD    CM+3
01049  M00S00974.msm     +++|          MONITOR  SMDM
01050  M00S00975.msm     +++|          LDN    NEEQ        SET NULL FAMILY IN *PFCW*
01051  M00S00976.msm     +++|          STD    CN+3
01052  M00S00977.msm     +++|          LDD    CP
01053  M00S00978.msm     +++|          ADN    PFCW
01054  M00S00979.msm     +++|          CWD    CN
01055  M00S00980.msm     +++| PRS6     LDN    ESTP        READ EST POINTER
01056  M00S00981.msm     +++|          CRD    CM
01057  M00S00982.msm     +++|          LDN    2           SET CONSTANT TWO
01058  M00S00983.msm     +++|          STD    TW
01059  M00S00984.msm     +++|          LDD    CM+3        SET LAST MASS STORAGE ORDINAL + 1
01060  M00S00985.msm     +++|          STD    LO
01061  M00S00986.msm     +++|          ADN    7           SET INDEX INTO MST TABLE
01062  M00S00987.msm     +++|          SCN    7
01063  M00S00988.msm     +++|          STD    CA
01064  M00S00989.msm     +++|          ADN    70
01065  M00S00990.msm     +++|          SHN    -6
01066  M00S00991.msm     +++|          STD    T1
01067  M00S00992.msm     +++|          SBD    FL
01068  M00S00993.msm     +++|          MJN    PRS7        IF ENOUGH STORAGE AVAILABLE
01069  M00S00994.msm     +++|          LDD    T1
01070  M00S00995.msm     +++|          RJM    RQS
01071  M00S00996.msm     +++|
01072  M00S00997.msm     +++|*         INITIALIZE TABLES.
01073  M00S00998.msm     +++|
01074  M00S00999.msm     +++| PRS7     RJM    IET         INITIALIZE TABLES
01075  M00S01000.msm     +++|
01076  M00S01001.msm     +++|*         CHECK FOR MULTI-MAINFRAME SYSTEM.
01077  M00S01002.msm     +++|
01078  M00S01003.msm     +++|          LDC    MMFL        READ MMF STATUS WORD
01079  M00S01004.msm     +++|          CRD    CM
01080  M00S01005.msm     +++|          LDD    CM+1
01081  M00S01006.msm     +++|          LPC    777
01082  M00S01007.msm     +++|          ZJN    PRS10       IF NOT MMF ENVIRONMENT
01083  M00S01008.msm     +++|          STD    EQ
01084  M00S01009.msm     +++|          LDD    RA          GET LINK DEVICE
01085  M00S01010.msm     +++|          SHN    6
01086  M00S01011.msm     +++|          ADD    EQ
01087  M00S01012.msm     +++|          CRD    RD
01088  M00S01013.msm     +++|          LDD    RE          ASSIGN SYSTEM STATUS TO LINK DEVICE
01089  M00S01014.msm     +++|          LPC    5500
01090  M00S01015.msm     +++|          LMC    2000
01091  M00S01016.msm     +++|          STD    RE
01092  M00S01017.msm     +++|          LDD    RA          STORE LINK DEVICE RECOVERY INFORMATION
01093  M00S01018.msm     +++|          SHN    6
01094  M00S01019.msm     +++|          ADD    EQ
01095  M00S01020.msm     +++|          CWD    RD
01096  M00S01021.msm     +++|          LDD    FN+4        SET EXTENDED MEMORY MST POINTER
01097  M00S01022.msm     +++|          STM    LDMP
01098  M00S01023.msm     +++|          SHN    3           GET ALLOCATION WORD FROM MST
01099  M00S01024.msm     +++|          ADN    ALGL
01100  M00S01025.msm     +++|          CRD    CN
01101  M00S01026.msm     +++|          LDD    CN+1        SET EXTENDED MEMORY LABEL TRACK
01102  M00S01027.msm     +++|          STM    ECLT
01103  M00S01028.msm     +++|          LDN    10-1        ADVANCE FL AS NEEDED FOR *DAT* TABLE
01104  M00S01029.msm     +++|          RAM    PRSC
01105  M00S01030.msm     +++| PRS10    ZJN    PRS12       IF STAND ALONE SYSTEM
Line S01031 Modification History
M01 (Removed by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
01106  M01S01031.283l840 ---|          LDC    T"QUAL"     SET LIST ADDRESS
01107  M01S01032.283l840 ---|          STD    T1
01108  M01S01033.283l840 ---|          LDI    T1          SET INSTRUCTION ADDRESS
01109  M01S01034.283l840 ---| PRS11    STD    T0
01110  M01S01035.283l840 ---|          LDD    CM+3        ADD MACHINE MASK TO INSTRUCTION
01111  M01S01036.283l840 ---|          LMI    T0
01112  M01S01037.283l840 ---|          STI    T0
01113  M01S01038.283l840 ---|          AOD    T1          ADVANCE LIST ADDRESS
01114  M01S01039.283l840 ---|          LDI    T1
01115  M01S01040.283l840 ---|          NJN    PRS11       LOOP TO END OF TABLE
01116  M00S01041.msm     +++|
01117  M00S01042.msm     +++|*         SET FL REQUIRED FOR LABEL MSTS.
01118  M00S01043.msm     +++|
01119  M00S01044.msm     +++| PRS12    LDD    CA          SET ADDRESS OF TRT BUFFER
01120  M00S01045.msm     +++|          STD    CA+1
01121  M00S01046.msm     +++|          ADN    77
01122  M00S01047.msm     +++|          SHN    -6
01123  M00S01048.msm     +++|          ADC    FLRC/100+1  REQUEST FL FOR LABELS, MSTS AND TRT EDIT
01124  M00S01049.msm     +++| PRSC     EQU    *-1
01125  M00S01050.msm     +++|          RJM    RQS
01126  M00S01051.msm     +++|          LJM    CMS         RETURN
01127  M00S01052.msm     +++|
Line S01053 Modification History
M01 (Removed by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
01128  M01S01053.283l840 ---|*         LIST OF INSTRUCTIONS TO BE PRESET WITH MACHINE MASK.
01129  M01S01054.283l840 ---|
01130  M01S01055.283l840 ---| T"QUAL"  BSS    0
01131  M01S01056.283l840 ---| T"QUAL"  HERE
01132  M01S01057.283l840 ---|          CON    0           TERMINATE LIST
01133  M00S01058.msm     +++|
01134  M00S01059.msm     +++| PRSA     VFD    42/0LSYSTEMX,18/SYUI
01135  M00S01060.msm     +++| PRSB     DATA   C* INCORRECT CMS CALL.*
01136  M00S01061.msm     +++| IET      SPACE  4,10
01137  M00S01062.msm     +++|**        IET - INITIALIZE TABLES.
01138  M00S01063.msm     +++|*
01139  M00S01064.msm     +++|*         EXIT   DEVICE RECOVERY STATUS TABLE INITIALIZED.
01140  M00S01065.msm     +++|*
01141  M00S01066.msm     +++|*         USES   TS, RE, AL, EQ, UC, CM - CM+4, FN - FN+4, FS - FS+4.
01142  M00S01067.msm     +++|*
01143  M00S01068.msm     +++|*         MACROS SFA.
01144  M00S01069.msm     +++|
01145  M00S01070.msm     +++|
01146  M00S01071.msm     +++| IET3     LDN    ZERL        CLEAR RECOVERY TABLE ENTRY
01147  M00S01072.msm     +++|          CRD    RD
01148  M00S01073.msm     +++| IET4     LDD    RA          STORE RECOVERY TABLE INFORMATION
01149  M00S01074.msm     +++|          SHN    6
01150  M00S01075.msm     +++|          ADD    EQ
01151  M00S01076.msm     +++|          CWD    RD
01152  M00S01077.msm     +++|          AOD    EQ          ADVANCE EST ORDINAL
01153  M00S01078.msm     +++|          LMD    LO
01154  M00S01079.msm     +++|          NJN    IET1        IF NOT END OF MASS STORAGE EQUIPMENTS
01155  M00S01080.msm     +++|          STD    RC
01156  M00S01081.msm     +++|
01157  M00S01082.msm     +++| IET      SUBR               ENTRY/EXIT
01158  M00S01083.msm     +++|          LDN    NOPE-1      INITIALIZE EST ORDINAL FOR SEARCH
01159  M00S01084.msm     +++|          STD    EQ
01160  M00S01085.msm     +++| IET1     SFA    EST,EQ      READ EST ENTRY
01161  M00S01086.msm     +++|          ADK    EQDE
01162  M00S01087.msm     +++|          CRD    FN
01163  M00S01088.msm     +++|          LDD    FN          CHECK EST ENTRY
01164  M00S01089.msm     +++|          LPC    7500        PRESET RECOVERY TABLE
01165  M00S01090.msm     +++|          STD    RE
01166  M00S01091.msm     +++|          SHN    21-13
01167  M00S01092.msm     +++|          PJN    IET3        IF NOT MASS STORAGE ENTRY
01168  M00S01093.msm     +++|          LDD    CA          SET ADDRESS OF MST FOR FIRST UNIT
01169  M00S01094.msm     +++|          STD    AL
01170  M00S01095.msm     +++|          LDD    FN+4        READ *STLL*
01171  M00S01096.msm     +++|          SHN    3
01172  M00S01097.msm     +++|          ADN    STLL
01173  M00S01098.msm     +++|          CRD    FS
01174  M00S01099.msm     +++|          ADN    DDLL-STLL   READ *DDLL*
01175  M00S01100.msm     +++|          CRD    CM
01176  M00S01101.msm     +++|          LDD    CM          CHECK ORIGINAL UNIT COUNT
01177  M00S01102.msm     +++|          SHN    -3
01178  M00S01103.msm     +++|          LPN    7
01179  M00S01104.msm     +++|          STD    UC
01180  M00S01105.msm     +++| IET2     LDN    MSTL        ADVANCE INDEX IN MST TABLE
01181  M00S01106.msm     +++|          RAD    CA
01182  M00S01107.msm     +++|          SOD    UC          DECREMENT UNIT COUNT
01183  M00S01108.msm     +++|          PJN    IET2        IF MORE UNITS THIS EQUIPMENT
01184  M00S01109.msm     +++|          LDD    FS          ASSIGN SYSTEM STATUS TO ASR DEVICE
01185  M00S01110.msm     +++|          LPN    MRASD
01186  M00S01111.msm     +++|          SHN    12-RASD+RASD/12D*12D
01187  M00S01112.msm     +++|          RAD    RE
01188  M00S01113.msm     +++|          LJM    IET4        INITIALIZE DEVICE RECOVERY INFORMATION
01189  M00S01114.msm     +++| TRCO     SPACE  4,10
01190  M00S01115.msm     +++|**        TRCO - TABLE OF RECOVERY OPTIONS.
01191  M00S01116.msm     +++|
01192  M00S01117.msm     +++|
01193  M00S01118.msm     +++| TRCO     BSS    0
01194  M00S01119.msm     +++|          LOC    0
01195  M00S01120.msm     +++|          CON    0
01196  M00S01121.msm     +++|          CON    FLTB+SYTB
01197  M00S01122.msm     +++|          CON    FLTB
01198  M00S01123.msm     +++|          CON    0
01199  M00S01124.msm     +++|
01200  M00S01125.msm     +++|          LOC    *O
01201  M00S01126.msm     +++|          EJECT
01202  M00S01127.msm     +++|          TTL    MSM/RMS - RECOVER MASS STORAGE.
01203  M00S01128.msm     +++|          IDENT  RMS,OBOV-2
01204  M00S01129.msm     +++|*COMMENT  MSM - MASS STORAGE RECOVERY MANAGER.
Line S01130 Modification History
M01 (Removed by) 281l803
Seq #  *Modification Id* Act 
----------------------------+
01205  M01S01130.281l803 ---|          COMMENT COPYRIGHT CONTROL DATA CORP. 1973.
Line S00002 Modification History
M01 (Added by) 281l803
Seq #  *Modification Id* Act 
----------------------------+
01206  M01S00002.281l803 +++|          COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
01207  M00S01131.msm     +++|          SPACE  4
01208  M00S01132.msm     +++|***              *RMS* SURVEYS ALL MASS STORAGE DEVICES AND RECOVERS
01209  M00S01133.msm     +++|*         ANY DEVICE POSSIBLE.  UPON COMPLETION, *REC* IS CALLED
01210  M00S01134.msm     +++|*         INTO THIS PP TO PROCEED WITH SYSTEM RECOVERY.
01211  M00S01135.msm     +++|          SPACE  4
01212  M00S01136.msm     +++|***       ENTRY CONDITIONS.
01213  M00S01137.msm     +++|*
Line S01138 Modification History
M01 (Removed by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
01214  M01S01138.283l840 ---|*         (IR+2) = *PRESET* COUNT.
01215  M00S01139.msm     +++|*         (IR+3) = CPUMTR MMF INITIALIZATION STATUS-
01216  M00S01140.msm     +++|*                LINK DEVICE LABEL TRACK IF NO ERROR.
01217  M00S01141.msm     +++|*                ERROR MESSAGE NUMBER IF ERROR.
01218  M00S01142.msm     +++|*         (IR+4) = RECOVERY STATUS.
01219  M00S01143.msm     +++|          SPACE  4
01220  M00S01144.msm     +++|***       OPERATOR MESSAGES.
01221  M00S01145.msm     +++|*
01222  M00S01146.msm     +++|*
01223  M00S01147.msm     +++|*         REFER TO OPERATORS GUIDE FOR INFORMATION AS TO CAUSE OF
01224  M00S01148.msm     +++|*         ERROR AND RECOMMENDED CORRECTIVE ACTION.
01225  M00S01149.msm     +++|*
Line S01150 Modification History
M01 (Removed by) msm49
Seq #  *Modification Id* Act 
----------------------------+
01226  M01S01150.msm49   ---|*         *TRT LENGTH ERROR.*
Line S00001 Modification History
M01 (Added by) msm49
Seq #  *Modification Id* Act 
----------------------------+
01227  M01S00001.msm49   +++|*         *DEVICE ACTIVE IN DAT.*  (MMF)
01228  M00S01151.msm     +++|*
Line S01152 Modification History
M01 (Removed by) msm49
Seq #  *Modification Id* Act 
----------------------------+
01229  M01S01152.msm49   ---|*         *PF LINKAGE ERROR.*
01230  M01S01153.msm49   ---|*
01231  M01S01154.msm49   ---|*         *UNMATCHED SYSTEM DEVICES.*
01232  M01S01155.msm49   ---|*
01233  M01S01156.msm49   ---|*         *ERROR ON SYSTEM DEVICE.*
01234  M01S01157.msm49   ---|*
01235  M01S01158.msm49   ---|*         *ERROR ON DEVICE WITH ACTIVE FILES.*
01236  M01S01159.msm49   ---|*
01237  M01S01160.msm49   ---|*         *LABEL TRACK CONFLICT.*
01238  M01S01161.msm49   ---|*
01239  M01S01162.msm49   ---|*         *LOCAL AREA SECTOR ERROR.*
01240  M01S01163.msm49   ---|*
01241  M01S01164.msm49   ---|*         *INSUFFICIENT MEMORY FOR CM RECOVERY.*
Line S00002 Modification History
M01 (Added by) msm49
Seq #  *Modification Id* Act 
----------------------------+
01242  M01S00002.msm49   +++|*         *END OF DAT TRACK CHAIN.*  (MMF)
01243  M00S01165.msm     +++|*
01244  M00S01166.msm     +++|*         *EQXXX EQYYY CONFLICTING DN.*
01245  M00S01167.msm     +++|*
01246  M00S01168.msm     +++|*         *EQXXX EQYYY CONFLICTING PN.*
01247  M00S01169.msm     +++|*
01248  M00S01170.msm     +++|*         *EQXXX EQYYY CONFLICTING UM.*
01249  M00S01171.msm     +++|*
01250  M00S01172.msm     +++|*         *EQXXX, DEVICE ACCESS ERROR.*
01251  M00S01173.msm     +++|*
Line S01174 Modification History
M01 (Removed by) msm49
Seq #  *Modification Id* Act 
----------------------------+
01252  M01S01174.msm49   ---|*         *NON-SHARED DEVICE ACTIVE IN DAT.*  (MMF)
Line S00003 Modification History
M01 (Added by) msm49
Seq #  *Modification Id* Act 
----------------------------+
01253  M01S00003.msm49   +++|*         *ERROR ON DEVICE WITH ACTIVE FILES.*
01254  M00S01175.msm     +++|*
Line S01176 Modification History
M01 (Removed by) msm49
Seq #  *Modification Id* Act 
----------------------------+
01255  M01S01176.msm49   ---|*         *MMF DEVICE ACCESS ERROR.*  (MMF)
Line S00004 Modification History
M01 (Added by) msm49
Seq #  *Modification Id* Act 
----------------------------+
01256  M01S00004.msm49   +++|*         *ERROR ON SYSTEM DEVICE.*
01257  M00S01177.msm     +++|*
Line S01178 Modification History
M01 (Removed by) msm49
Seq #  *Modification Id* Act 
----------------------------+
01258  M01S01178.msm49   ---|*         *SHARED DEVICE ACTIVE IN DAT.*  (MMF)
Line S00005 Modification History
M01 (Added by) msm49
Seq #  *Modification Id* Act 
----------------------------+
01259  M01S00005.msm49   +++|*         *EXTENDED MEMORY LABEL TRACK NOT FOUND.*  (MMF)
01260  M00S01179.msm     +++|*
Line S01180 Modification History
M01 (Removed by) msm49
Seq #  *Modification Id* Act 
----------------------------+
01261  M01S01180.msm49   ---|*         *REMOVABLE DEVICE CONFLICT.*  (MMF)
Line S00006 Modification History
M01 (Added by) msm49
Seq #  *Modification Id* Act 
----------------------------+
01262  M01S00006.msm49   +++|*         *EXTENDED MEMORY READ/WRITE PARITY ERRORS.*  (MMF)
01263  M00S01181.msm     +++|*
Line S01182 Modification History
M01 (Removed by) msm49
Seq #  *Modification Id* Act 
----------------------------+
01264  M01S01182.msm49   ---|*         *EXTENDED MEMORY LABEL TRACK NOT FOUND.*  (MMF)
Line S00007 Modification History
M01 (Added by) msm49
Seq #  *Modification Id* Act 
----------------------------+
01265  M01S00007.msm49   +++|*         *INSUFFICIENT MEMORY FOR CM RECOVERY.*
01266  M01S00008.msm49   +++|*
01267  M01S00009.msm49   +++|*         *LABEL TRACK CONFLICT.*
01268  M01S00010.msm49   +++|*
01269  M01S00011.msm49   +++|*         *LINK DEVICE SIZE ERROR.*  (MMF)
01270  M01S00012.msm49   +++|*
01271  M01S00013.msm49   +++|*         *LOCAL AREA SECTOR ERROR.*
01272  M01S00014.msm49   +++|*
01273  M01S00015.msm49   +++|*         *MAXIMUM NUMBER MIDS ACTIVE.*  (MMF)
01274  M00S01183.msm     +++|*
01275  M00S01184.msm     +++|*         *MID UNDEFINED IN EXTENDED MEMORY.*  (MMF)
01276  M00S01185.msm     +++|*
01277  M00S01186.msm     +++|*         *MID CURRENTLY ACTIVE IN EXTENDED MEMORY.*  (MMF)
01278  M00S01187.msm     +++|*
Line S01188 Modification History
M01 (Removed by) msm49
Seq #  *Modification Id* Act 
----------------------------+
01279  M01S01188.msm49   ---|*         *MAXIMUM NUMBER MIDS ACTIVE.*  (MMF)
Line S00016 Modification History
M01 (Added by) msm49
Seq #  *Modification Id* Act 
----------------------------+
01280  M01S00016.msm49   +++|*         *MMF DEVICE ACCESS ERROR.*  (MMF)
01281  M00S01189.msm     +++|*
Line S01190 Modification History
M01 (Removed by) msm49
Seq #  *Modification Id* Act 
----------------------------+
01282  M01S01190.msm49   ---|*         *EXTENDED MEMORY READ/WRITE PARITY ERRORS.*  (MMF)
Line S00017 Modification History
M01 (Added by) msm49
Seq #  *Modification Id* Act 
----------------------------+
01283  M01S00017.msm49   +++|*         *NON-SHARED DEVICE ACTIVE IN DAT.*  (MMF)
01284  M00S01191.msm     +++|*
Line S00018 Modification History
M01 (Added by) msm49
Seq #  *Modification Id* Act 
----------------------------+
01285  M01S00018.msm49   +++|*         *PF LINKAGE ERROR.*
01286  M01S00019.msm49   +++|*
01287  M00S01192.msm     +++|*         *PRESET NOT ALLOWED.*  (MMF)
01288  M00S01193.msm     +++|*
Line S01194 Modification History
M01 (Removed by) msm49
Seq #  *Modification Id* Act 
----------------------------+
01289  M01S01194.msm49   ---|*         *DEVICE ACTIVE IN DAT.*  (MMF)
Line S00020 Modification History
M01 (Added by) msm49
Seq #  *Modification Id* Act 
----------------------------+
01290  M01S00020.msm49   +++|*         *REMOVABLE DEVICE CONFLICT.*  (MMF)
01291  M00S01195.msm     +++|*
Line S01196 Modification History
M01 (Removed by) msm49
Seq #  *Modification Id* Act 
----------------------------+
01292  M01S01196.msm49   ---|*         *END OF DAT TRACK CHAIN.*  (MMF)
Line S00021 Modification History
M01 (Added by) msm49
Seq #  *Modification Id* Act 
----------------------------+
01293  M01S00021.msm49   +++|*         *SHARED DEVICE ACTIVE IN DAT.*  (MMF)
01294  M01S00022.msm49   +++|*
01295  M01S00023.msm49   +++|*         *TRT LENGTH ERROR.*
01296  M01S00024.msm49   +++|*
01297  M01S00025.msm49   +++|*         *UNMATCHED SYSTEM DEVICES.*
01298  M00S01197.msm     +++|          SPACE  4
01299  M00S01198.msm     +++|**        ROUTINES CALLED.
01300  M00S01199.msm     +++|*
01301  M00S01200.msm     +++|*         0MF - PRESET MMF LINK DEVICE.
01302  M00S01201.msm     +++|*         0SD - SPIN UP/DOWN ISMD DRIVES.
Line S01202 Modification History
M01 (Removed by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
01303  M01S01202.283l840 ---|          TITLE  MAIN ROUTINE.
Line S00015 Modification History
M01 (Added by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
01304  M01S00015.283l840 +++|          TITLE  COMMON WORKING STORAGE AND SUBROUTINES.
01305  M00S01203.msm     +++| RMS      SPACE  4
01306  M00S01204.msm     +++|          QUAL   RMS
01307  M00S01205.msm     +++|          ORG    OBOV-2
01308  M00S01206.msm     +++|          LJM    PRS         PRESET *RMS*
Line S01207 Modification History
M01 (Removed by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
01309  M01S01207.283l840 ---|
Line S00016 Modification History
M01 (Added by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
01310  M01S00016.283l840 +++|          SPACE  4,10
01311  M01S00017.283l840 +++|          LIST   M
01312  M00S01208.msm     +++|          COMMON
Line S01209 Modification History
M01 (Removed by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
01313  M01S01209.283l840 ---|
Line S00018 Modification History
M01 (Added by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
01314  M01S00018.283l840 +++|          LIST   *
01315  M01S00019.283l840 +++|          TITLE  MAIN ROUTINE.
01316  M00S01210.msm     +++|**        RMS - MAIN PROGRAM.
01317  M00S01211.msm     +++|
01318  M00S01212.msm     +++|
01319  M00S01213.msm     +++| RMS1     EXECUTE 4DB        LOAD RECOVERY ROUTINES
01320  M00S01214.msm     +++|          RJM    RLD         RECOVER MMF LINK DEVICE
01321  M00S01215.msm     +++|          LDC    0           SET UEM EQUIPMENT FOR SPECIAL PROCESSING
01322  M00S01216.msm     +++| RMSE     EQU    *-1
01323  M00S01217.msm     +++|          STM    MRLC
01324  M00S01218.msm     +++|          LDC    ZJNI-ZJNI   SET JUMP TO PROCESS OR IGNORE UEM
01325  M00S01219.msm     +++|*         LDC    NJNI-ZJNI   (IF PROCESSING ONLY UEM)
01326  M00S01220.msm     +++| RMSH     EQU    *-1
01327  M00S01221.msm     +++|          RAM    MRLD
01328  M00S01222.msm     +++|          LDC    RDL         READ LABELS
01329  M00S01223.msm     +++|          RJM    MRL
01330  M00S01224.msm     +++| RMSA     LDN    0
01331  M00S01225.msm     +++|          ZJN    RMS2        IF NO DEVICE INITIALIZATION
Line S00020 Modification History
M01 (Added by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
01332  M01S00020.283l840 +++|          EXECUTE  4DD       LOAD VERIFICATION ROUTINES
Line S01226 Modification History
M01 (Removed by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
01333  M01S01226.283l840 ---|          EXECUTE  4DI       LOAD INITIALIZATION ROUTINES
Line S00021 Modification History
M01 (Added by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
01334  M01S00021.283l840 +++|          EXECUTE  4DH       LOAD INITIALIZATION ROUTINES
01335  M00S01227.msm     +++|          LDC    IMS         PROCESS DEVICE INITIALIZATION
01336  M00S01228.msm     +++|          RJM    MRL
01337  M00S01229.msm     +++| RMS2     EXECUTE  4DD       LOAD VERIFICATION ROUTINES
Line S00022 Modification History
M01 (Added by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
01338  M01S00022.283l840 +++|          EXECUTE  4DG       LOAD RECOVERY ROUTINES
01339  M00S01230.msm     +++| RMSB     UJN    RMS3        IF NOT CM RECOVERY
01340  M00S01231.msm     +++|*         PSN
01341  M00S01232.msm     +++|          LDC    CAD         CHECK ACTIVE DEVICES
01342  M00S01233.msm     +++|          RJM    MRL
01343  M00S01234.msm     +++|          LDC    RMR         UPDATE MRT TABLES
01344  M00S01235.msm     +++|          RJM    MRL
01345  M00S01236.msm     +++|          RJM    UMT         UPDATE MMF TABLES
01346  M00S01237.msm     +++|          UJN    DPP         CALL *REC*
01347  M00S01238.msm     +++|
01348  M00S01239.msm     +++| RMS3     LDC    CDS         CHECK DEVICE STATUS
01349  M00S01240.msm     +++|          RJM    MRL
01350  M00S01241.msm     +++|          LDD    RC
01351  M00S01242.msm     +++|          ZJN    RMS4        IF NO EQUIPMENTS TO RECOVER
Line S01243 Modification History
M01 (Removed by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
01352  M01S01243.283l840 ---|          EXECUTE  4DG       LOAD RECOVERY ROUTINES
01353  M01S01244.283l840 ---|          EXECUTE  4DJ       LOAD DAYFILE RECOVERY ROUTINES
01354  M00S01245.msm     +++|          LDC    RCD         RECOVER DEVICES
01355  M00S01246.msm     +++|          RJM    MRL
01356  M00S01247.msm     +++|          RJM    REM         RESTORE UEM (LEVEL 1 OR 2 AND UEM PRESENT)
01357  M00S01248.msm     +++|          LDC    **          WRITE DAYFILE RECOVERY SELECTIONS BACK
01358  M00S01249.msm     +++| RMSC     EQU    *-1
01359  M00S01250.msm     +++|          CWM    RMSF,ON
01360  M00S01251.msm     +++| RMS4     RJM    UMT         UPDATE MMF TABLES
Line S01252 Modification History
M01 (Removed by) ns2552
Seq #  *Modification Id* Act 
----------------------------+
01361  M01S01252.ns2552  ---|          RJM    VPF         VERIFY PF SYSTEM INTEGRITY
Line S00007 Modification History
M01 (Added by) ns2552
Seq #  *Modification Id* Act 
----------------------------+
01362  M01S00007.ns2552  +++|          EXECUTE  4DC       VERIFY PF SYSTEM
01363  M00S01253.msm     +++|
01364  M00S01254.msm     +++| DPP      LDC    DSCP*200+MS1W  STORE *RECOVERY* MESSAGE
01365  M00S01255.msm     +++|          CWM    RMSG,ON
01366  M00S01256.msm     +++|          LDD    IA          CALL *REC* INTO THIS PP
01367  M00S01257.msm     +++|          CWM    RMSD,ON
01368  M00S01258.msm     +++|          LJM    PPR
01369  M00S01259.msm     +++|
01370  M00S01260.msm     +++| RMSD     VFD    18/3LREC,6/DSCP,36/0
01371  M00S01261.msm     +++| RMSF     BSS    5           DAYFILE RECOVERY SELECTIONS
01372  M00S01262.msm     +++| RMSG     DATA   C*RECOVERY*
01373  M00S01263.msm     +++|          TITLE  CM RECOVERY ROUTINES.
01374  M00S01264.msm     +++| CAD      SPACE  4
01375  M00S01265.msm     +++|**        CAD - CHECK ACTIVE DEVICES (CM RECOVERY).
01376  M00S01266.msm     +++|*
01377  M00S01267.msm     +++|*         ENTRY  (EQ) = (T5) = EST ORDINAL.
01378  M00S01268.msm     +++|*                (FN - FN+4) = EST ENTRY.
01379  M00S01269.msm     +++|*
01380  M00S01270.msm     +++|*         EXIT   (A) .LT. 0 IF RECOVERY INFORMATION NOT TO
01381  M00S01271.msm     +++|*                BE REWRITTEN TO CM UPON RETURN TO *MRL*.
01382  M00S01272.msm     +++|*
01383  M00S01273.msm     +++|*         USES   T5 - T7, FN - FN+4,  FS - FS+4.
01384  M00S01274.msm     +++|*
Line S01275 Modification History
M01 (Removed by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
01385  M01S01275.283l840 ---|*         CALLS  ATC, CTD, IES, VLP.
Line S00023 Modification History
M01 (Added by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
01386  M01S00023.283l840 +++|*         CALLS  ATC, CTD, EBP, IES, VLP.
01387  M00S01276.msm     +++|
01388  M00S01277.msm     +++|
01389  M00S01278.msm     +++| CAD      SUBR               ENTRY/EXIT
01390  M00S01279.msm     +++|          SHN    21-6
01391  M00S01280.msm     +++|          MJN    CADX        IF DEVICE UNAVAILABLE
01392  M00S01281.msm     +++|          SHN    6-0
01393  M00S01282.msm     +++|          MJN    CADX        IF LABEL NOT READ
01394  M00S01283.msm     +++|          LDD    FN+4        READ PF DESCRIPTION
01395  M00S01284.msm     +++|          SHN    3
01396  M00S01285.msm     +++|          ADN    PFGL
01397  M00S01286.msm     +++|          CRM    DLPB,TW
01398  M00S01287.msm     +++|          ADN    STLL-PFGL-2 READ STATUS (STLL)
01399  M00S01288.msm     +++|          CRD    FS
01400  M00S01289.msm     +++|          UJMF   CAD2
01401  M00S01290.msm     +++|          RJM    RDE         READ *DAT* ENTRY
01402  M00S01291.msm     +++|          LDM    DATB+11     CHECK ACCESS BY THIS MACHINE
01403  M00S01292.msm     +++|          LPC    0
01404  M00S01293.msm     +++| CADA     EQU    *-1
01405  M00S01294.msm     +++|          NJN    CAD1        IF DEVICE SET
01406  M00S01295.msm     +++|          LDC    =C*MMF DEVICE ACCESS ERROR.*
01407  M00S01296.msm     +++|          LJM    HNG         DISPLAY MESSAGE AND HANG
01408  M00S01297.msm     +++|
01409  M00S01298.msm     +++| CAD1     LDN    10          SET ACCESS BY THIS MACHINE
01410  M00S01299.msm     +++|          RAD    RE
Line S01300 Modification History
M01 (Removed by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
01411  M01S01300.283l840 ---| CAD2     RJM    VLP         VERIFY LABEL PARAMETERS
Line S00024 Modification History
M01 (Added by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
01412  M01S00024.283l840 +++| CAD2     RJM    EBP         ENABLE BST/BAT PROCESSING, IF REQUIRED
01413  M01S00025.283l840 +++|          RJM    VLP         VERIFY LABEL PARAMETERS
01414  M00S01301.msm     +++|          MJN    CAD3        IF NOT FIRST EQUIPMENT IN CHAIN
01415  M00S01302.msm     +++|          NJN    CAD4        IF ERRORS FOR THIS EQUIPMENT
01416  M00S01303.msm     +++|          RJM    ATC         ADJUST TRACK COUNT (AND CLEAR INTERLOCKS)
01417  M00S01304.msm     +++|          LDD    FN
01418  M00S01305.msm     +++|          LPN    20
01419  M00S01306.msm     +++|          ZJN    CAD3        IF NOT ISHARED DEVICE
01420  M00S01307.msm     +++|          LDD    RE
01421  M00S01308.msm     +++|          LPN    10
01422  M00S01309.msm     +++|          ZJN    CAD3        IF CURRENT TRT NOT IN THIS MACHINE
01423  M00S01310.msm     +++|          LCN    2
01424  M00S01311.msm     +++|          RAD    RE
01425  M00S01312.msm     +++|          RJM    CTD
01426  M00S01313.msm     +++|*         LDN    0           (*MRL* REWRITE RECOVERY TABLE FLAG)
01427  M00S01314.msm     +++| CAD3     LJM    CADX        RETURN
01428  M00S01315.msm     +++|
01429  M00S01316.msm     +++|*         ERROR IN LABEL DETECTED.
01430  M00S01317.msm     +++|
01431  M00S01318.msm     +++| CAD4     LDD    FN
01432  M00S01319.msm     +++|          SHN    21-10
01433  M00S01320.msm     +++|          PJN    CAD5        IF NOT REMOVABLE DEVICE
01434  M00S01321.msm     +++|          LDD    FN+4        CHECK ACTIVITY
01435  M00S01322.msm     +++|          SHN    3
01436  M00S01323.msm     +++|          ADN    DULL
01437  M00S01324.msm     +++|          CRD    CM
01438  M00S01325.msm     +++|          LDD    CM+4
01439  M00S01326.msm     +++|          LPC    3777
01440  M00S01327.msm     +++|          ADD    FS+3
01441  M00S01328.msm     +++|          NJN    CAD5        IF ACTIVE FILES ON DEVICE
01442  M00S01329.msm     +++|          RJM    IES         INITIALIZE EQUIPMENT STATUS
01443  M00S01330.msm     +++|*         LCN    0           (*MRL* REWRITE RECOVERY TABLE FLAG)
01444  M00S01331.msm     +++|          UJN    CAD3
01445  M00S01332.msm     +++|
01446  M00S01333.msm     +++| CAD5     LDC    =C*ERROR ON DEVICE WITH ACTIVE FILES.*
01447  M00S01334.msm     +++|*         LJM    HNG
01448  M00S01335.msm     +++| HNG      SPACE  4
01449  M00S01336.msm     +++|**        HNG - DISPLAY ERROR AND HANG PP.
01450  M00S01337.msm     +++|*
01451  M00S01338.msm     +++|*         ENTRY  (A) = ADDRESS OF MESSAGE.
01452  M00S01339.msm     +++|*
01453  M00S01340.msm     +++|*         USES   T2.
01454  M00S01341.msm     +++|*
01455  M00S01342.msm     +++|*         CALLS  IFR.
01456  M00S01343.msm     +++|*
01457  M00S01344.msm     +++|*         MACROS UJMF.
01458  M00S01345.msm     +++|
01459  M00S01346.msm     +++|
01460  M00S01347.msm     +++| HNG      STM    HNGA
01461  M00S01348.msm     +++|          UJMF   HNG1
01462  M00S01349.msm     +++|          LCN    DATI        CLEAR FLAG REGISTER INTERLOCK
01463  M00S01350.msm     +++|          RJM    IFR
01464  M00S01351.msm     +++| HNG1     LDN    4
01465  M00S01352.msm     +++|          STD    T2
01466  M00S01353.msm     +++|          LDC    CPAS+MS2W   SET MESSAGE IN RECOVERY MESSAGE BUFFER
01467  M00S01354.msm     +++|          CWM    *,T2
01468  M00S01355.msm     +++| HNGA     EQU    *-1
01469  M00S01356.msm     +++|          UJN    *           STOP
01470  M00S01357.msm     +++| SEM      SPACE  4
01471  M00S01358.msm     +++|**        SEM - SET EQUIPMENT MESSAGE.
01472  M00S01359.msm     +++|*
01473  M00S01360.msm     +++|*         ENTRY  (EQ) = EST ORDINAL.
01474  M00S01361.msm     +++|*                (FN - FN+4) = EST ENTRY.
01475  M00S01362.msm     +++|*
01476  M00S01363.msm     +++|*         USES   CM - CM+4.
01477  M00S01364.msm     +++|*
01478  M00S01365.msm     +++|*         CALLS  C2D.
01479  M00S01366.msm     +++|
01480  M00S01367.msm     +++|
01481  M00S01368.msm     +++| SEM      SUBR               ENTRY/EXIT
01482  M00S01369.msm     +++|          LDN    1R
01483  M00S01370.msm     +++|          STD    CM
01484  M00S01371.msm     +++|          LDN    0           SET END OF ASSEMBLY
01485  M00S01372.msm     +++|          STD    CM+4
01486  M00S01373.msm     +++|          LDD    FN+3        ENTER EQUIPMENT MNEMONIC
01487  M00S01374.msm     +++|          STD    CM+1
01488  M00S01375.msm     +++|          LDD    EQ          CONVERT UPPER TWO DIGITS OF EST ORDINAL
01489  M00S01376.msm     +++|          SHN    -3
01490  M00S01377.msm     +++|          RJM    C2D
01491  M00S01378.msm     +++|          STD    CM+2
01492  M00S01379.msm     +++|          LDD    EQ          CONVERT LOWER DIGIT OF EST ORDINAL
01493  M00S01380.msm     +++|          LPN    7
01494  M00S01381.msm     +++|          ADN    1R0
01495  M00S01382.msm     +++|          SHN    6
01496  M00S01383.msm     +++|          STD    CM+3
01497  M00S01384.msm     +++|          LDC    CPAS+MS1W+1
01498  M00S01385.msm     +++|          CWD    CM
01499  M00S01386.msm     +++|          ADN    MS2W-MS1W-1 CLEAR SECOND LINE OF MESSAGE
01500  M00S01387.msm     +++|          CWD    CM+4
01501  M00S01388.msm     +++|          UJN    SEMX
01502  M00S01389.msm     +++|          TITLE  NON - CM RECOVERY ROUTINES.
Line S01390 Modification History
M01 (Removed by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
01503  M01S01390.283l840 ---| CDS      SPACE  4
Line S00026 Modification History
M01 (Added by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
01504  M01S00026.283l840 +++| CDS      SPACE  4,20
01505  M00S01391.msm     +++|**        CDS - CHECK DEVICE STATUS (LEVEL 0, 1, 2 RECOVERY).
01506  M00S01392.msm     +++|*
01507  M00S01393.msm     +++|*         ENTRY  (EQ) = (T5) = EST ORDINAL.
01508  M00S01394.msm     +++|*                (FN - FN+4) = EST ENTRY.
01509  M00S01395.msm     +++|*
01510  M00S01396.msm     +++|*         EXIT   (RC) = COUNT OF EQUIPMENTS TO RECOVER.
01511  M00S01397.msm     +++|*                (RE) = SET WITH RECOVERY INFORMATION.
01512  M00S01398.msm     +++|*                (A) .LT. 0 IF RECOVERY INFORMATION NOT TO
01513  M00S01399.msm     +++|*                BE REWRITTEN TO CM UPON RETURN TO *MRL*.
01514  M00S01400.msm     +++|*
01515  M00S01401.msm     +++|*         USES   FN - FN+4, FS - FS+4, T4 - T7, RC, EQ, EC.
01516  M00S01402.msm     +++|*
01517  M00S01403.msm     +++|*         CALLS  CSD, CSE, HNG, IES, UDT, VLP.
01518  M00S01404.msm     +++|*
01519  M00S01405.msm     +++|*         MACROS UJMF.
01520  M00S01406.msm     +++|
01521  M00S01407.msm     +++|
01522  M00S01408.msm     +++| CDS12    LDN    0           INHIBIT FURTHER PROCESSING OF DEVICE
01523  M00S01409.msm     +++|          STD    RE
01524  M00S01410.msm     +++|
01525  M00S01411.msm     +++| CDS      SUBR               ENTRY/EXIT
01526  M00S01412.msm     +++|          SHN    21-4
01527  M00S01413.msm     +++|          MJN    CDSX        IF INITIALIZATION SPECIFIED
01528  M00S01414.msm     +++|          LDD    FN
01529  M00S01415.msm     +++|          LPN    2
01530  M00S01416.msm     +++|          NJN    CDS12       IF DEVICE OFF OR DOWN
01531  M00S01417.msm     +++|          LDD    RA          READ LABEL DATA
01532  M00S01418.msm     +++|          SHN    6
01533  M00S01419.msm     +++|          ADD    AL
01534  M00S01420.msm     +++|          ADN    PFGL        READ DEVICE DESCRIPTION
01535  M00S01421.msm     +++|          CRD    CN
01536  M00S01422.msm     +++|          ERRNZ  PUGL-PFGL-1 ADJUST IF *PUGL* POSITION CHANGES
01537  M00S01423.msm     +++|          ERRNZ  MDGL-PFGL-2 ADJUST IF *MDGL* POSITION CHANGES
01538  M00S01424.msm     +++|          CRM    DLPB,TW
01539  M00S01425.msm     +++|          LDD    FN+4        READ STLL
01540  M00S01426.msm     +++|          SHN    3
01541  M00S01427.msm     +++|          ADN    STLL
01542  M00S01428.msm     +++|          CRD    FS
01543  M00S01429.msm     +++|          SBN    STLL-MDGL
01544  M00S01430.msm     +++|          CRD    CM+3
01545  M00S01431.msm     +++|          RJM    CSE         CHECK SYSTEM EQUIPMENT
01546  M00S01432.msm     +++|
01547  M00S01433.msm     +++|*         VERIFY LABELS FOR THIS EQUIPMENT.
01548  M00S01434.msm     +++|
01549  M00S01435.msm     +++| CDS1     UJMF   CDS2
01550  M00S01436.msm     +++|          LDD    CN+4
01551  M00S01437.msm     +++|          LPN    70
01552  M00S01438.msm     +++|          NJN    CDS2        IF NOT FIRST UNIT OF EQUIPMENT
01553  M00S01439.msm     +++|          RJM    CSD         CHECK SHARED DEVICE STATUS
01554  M00S01440.msm     +++|          NJN    CDS7        IF DAT CONFLICT
01555  M00S01441.msm     +++| CDS2     RJM    VLP         VERIFY LABEL PARAMETERS
01556  M00S01442.msm     +++|          MJN    CDS4        IF NOT FIRST EQUIPMENT IN CHAIN
01557  M00S01443.msm     +++|          NJN    CDS6        IF ERROR ON ANY LABEL
01558  M00S01444.msm     +++|          UJMF   CDS3        NON MMF TRANSFER
01559  M00S01445.msm     +++|          RJM    UDT         UPDATE DEVICE ACCESS TABLE
01560  M00S01446.msm     +++|          NJN    CDS7        IF EXTENDED MEMORY TRACK UNAVAILABLE
01561  M00S01447.msm     +++| CDS3     LDD    RE          CHECK INCORRECT MODE CHANGE
01562  M00S01448.msm     +++|          LPN    40
01563  M00S01449.msm     +++|          NJN    CDS5        IF FULL TRACK ACCESS SET
01564  M00S01450.msm     +++|          LDC    200         SET EQUIPMENT RECOVERY
01565  M00S01451.msm     +++|          RAD    RE
01566  M00S01452.msm     +++|          AOD    RC          ADVANCE RECOVERY COUNT
01567  M00S01453.msm     +++| CDS4     LJM    CDSX        RETURN
01568  M00S01454.msm     +++|
01569  M00S01455.msm     +++| CDS5     LDN    STLE        SET LABEL ERROR STATUS
01570  M00S01456.msm     +++|          STD    EC
01571  M00S01457.msm     +++|
01572  M00S01458.msm     +++|*         ERROR IN LABEL VERIFICATION.
01573  M00S01459.msm     +++|
01574  M00S01460.msm     +++| CDS6     LDD    RE
01575  M00S01461.msm     +++|          SHN    21-10
01576  M00S01462.msm     +++|          MJN    CDS10       IF REMOVABLE DEVICE ERROR
01577  M00S01463.msm     +++|          SHN    21-12+22-21+10
Line S01464 Modification History
M01 (Removed by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
01578  M01S01464.283l840 ---|          PJN    CDS8        IF NOT DEVICE WITH SYSTEM STATUS
Line S00027 Modification History
M01 (Added by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
01579  M01S00027.283l840 +++| CDSA     PJN    CDS9        IF NOT DEVICE WITH SYSTEM STATUS
01580  M01S00028.283l840 +++|*         PJN    CDS11       (LVL0 - IF NOT DEVICE WITH SYSTEM STATUS)
01581  M00S01465.msm     +++|          LDC    =C*ERROR ON SYSTEM DEVICE.*
01582  M00S01466.msm     +++| CDS7     LJM    HNG         DISPLAY ERROR AND HANG
01583  M00S01467.msm     +++|
01584  M00S01468.msm     +++|*         NON REMOVABLE DEVICE ERROR.
01585  M00S01469.msm     +++|
Line S01470 Modification History
M01 (Removed by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
01586  M01S01470.283l840 ---| CDS8     LDD    RS
01587  M01S01471.283l840 ---|          ZJN    CDS11       IF NO RECOVERY
01588  M00S01472.msm     +++| CDS9     LDC    =C*ERROR ON DEVICE WITH ACTIVE FILES.*
01589  M00S01473.msm     +++|          UJN    CDS7        DISPLAY ERROR AND HANG
01590  M00S01474.msm     +++|
01591  M00S01475.msm     +++|*         REMOVABLE DEVICE ERROR.
01592  M00S01476.msm     +++|
Line S01477 Modification History
M01 (Removed by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
01593  M01S01477.283l840 ---| CDS10    LDD    RS
01594  M01S01478.283l840 ---|          ZJN    CDS11       IF NO RECOVERY
01595  M01S01479.283l840 ---|          LDD    EC
Line S00029 Modification History
M01 (Added by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
01596  M01S00029.283l840 +++| CDS10    LDD    EC          CHECK ERROR CODE
01597  M01S00030.283l840 +++|*         UJN    CDS11       (LEVEL 0 DEADSTART)
01598  M01S00031.283l840 +++| CDSB     EQU    *-1
01599  M00S01480.msm     +++|          LMN    STLE
01600  M00S01481.msm     +++|          ZJN    CDS11       IF LABEL ERROR
01601  M00S01482.msm     +++|          LMN    STNR&STLE
01602  M00S01483.msm     +++|          ZJN    CDS11       IF NOT READY
01603  M00S01484.msm     +++|          LDD    RA          CHECK LABEL COPY OF *STLL*
01604  M00S01485.msm     +++|          SHN    6
01605  M00S01486.msm     +++|          ADD    AL
01606  M00S01487.msm     +++|          ADN    DULL
01607  M00S01488.msm     +++|          CRD    CM
01608  M00S01489.msm     +++|          ADN    STLL-DULL
01609  M00S01490.msm     +++|          CRD    CN
01610  M00S01491.msm     +++|          LDD    CM+4        CHECK ACTIVITY
01611  M00S01492.msm     +++|          LPC    3777
01612  M00S01493.msm     +++|          ADD    CN+3
01613  M00S01494.msm     +++|          NJN    CDS9        IF ACTIVE FILES ON DEVICE
01614  M00S01495.msm     +++| CDS11    RJM    IES         INITIALIZE EQUIPMENT STATUS
01615  M00S01496.msm     +++|*         LCN    0           (*MRL* REWRITE RECOVERY TABLE FLAG)
01616  M00S01497.msm     +++|          LJM    CDSX        RETURN
01617  M00S01498.msm     +++| CSE      SPACE  4,10
01618  M00S01499.msm     +++|**        CSE - CHECK SYSTEM EQUIPMENT.
01619  M00S01500.msm     +++|*
01620  M00S01501.msm     +++|*         ENTRY  (FN - FN+4) = EST ENTRY.
01621  M00S01502.msm     +++|*                (CM+3 - CM+7) = MDGL WORD OF MST.
01622  M00S01503.msm     +++|*
01623  M00S01504.msm     +++|*         EXIT   TO *HNG* IF MISMATCHED SYSTEM DEVICES.
01624  M00S01505.msm     +++|
01625  M00S01506.msm     +++|
01626  M00S01507.msm     +++| CSE2     LDD    FN+3        SET SYSTEM DEVICE TYPE
01627  M00S01508.msm     +++|          STM    CSEA
01628  M00S01509.msm     +++|          LDD    CM+7        SET MAXIMUM SECTOR LIMIT
01629  M00S01510.msm     +++|          STM    CSEA+1
01630  M00S01511.msm     +++|
01631  M00S01512.msm     +++| CSE      SUBR               ENTRY/EXIT
01632  M00S01513.msm     +++|          LDD    FN
01633  M00S01514.msm     +++|          SHN    21-12
01634  M00S01515.msm     +++|          PJN    CSEX        IF NOT SYSTEM DEVICE
01635  M00S01516.msm     +++|          LDM    CSEA
01636  M00S01517.msm     +++|          ZJN    CSE2        IF FIRST SYSTEM DEVICE
01637  M00S01518.msm     +++|          LMD    FN+3        COMPARE DEVICE TYPE
01638  M00S01519.msm     +++|          NJN    CSE1        IF NO MATCH WITH FIRST SYSTEM DEVICE
01639  M00S01520.msm     +++|          LDM    CSEA+1      CHECK SECTOR LIMIT
01640  M00S01521.msm     +++|          LMD    CM+7
01641  M00S01522.msm     +++|          ZJN    CSEX        IF MATCHING TRACK SIZE
01642  M00S01523.msm     +++| CSE1     LDC    =C*UNMATCHED SYSTEM DEVICES.*
01643  M00S01524.msm     +++|          LJM    HNG
01644  M00S01525.msm     +++|
01645  M00S01526.msm     +++| CSEA     CON    0,0
Line S01527 Modification History
M01 (Removed by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
01646  M01S01527.283l840 ---| RCD      SPACE  4
Line S00032 Modification History
M01 (Added by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
01647  M01S00032.283l840 +++| RCD      SPACE  4,20
01648  M00S01528.msm     +++|**        RCD - RECOVER DEVICE.
01649  M00S01529.msm     +++|*
01650  M00S01530.msm     +++|*         ENTRY  (A) = (RE) = EQUIPMENT RECOVERY STATUS INFORMATION.
01651  M00S01531.msm     +++|*                (EQ) = (T5) = EST ORDINAL.
01652  M00S01532.msm     +++|*                (RC) = RECOVERY COUNT.
01653  M00S01533.msm     +++|*                (CA+1) = CM ADDRESS OF TRT BUFFER.
01654  M00S01534.msm     +++|*                (FN - FN+4) = EST ENTRY.
01655  M00S01535.msm     +++|*                (RE) SET WITH DEVICE RECOVERY INFORMATION.
01656  M00S01536.msm     +++|*                (AL) = CM ADDRESS CONTAINING LABEL MST.
01657  M00S01537.msm     +++|*
01658  M00S01538.msm     +++|*         EXIT   DEVICE RECOVERED OR LEFT AS UNAVAILABLE.
01659  M00S01539.msm     +++|*                (A) .LT. 0 IF RECOVERY INFORMATION NOT TO
01660  M00S01540.msm     +++|*                BE REWRITTEN TO CM UPON RETURN TO *MRL*.
01661  M00S01541.msm     +++|*
01662  M00S01542.msm     +++|*         USES   CA, EC, P1, T1.
01663  M00S01543.msm     +++|*
Line S01544 Modification History
M01 (Removed by) ns2552
Seq #  *Modification Id* Act 
----------------------------+
01664  M01S01544.ns2552  ---|*         CALLS  ATC, CDC, CTT EMT, ETT, HNG, IES, RTT, SEC.
Line S00008 Modification History
M01 (Added by) ns2552
M02 (Removed by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
01665  M02S00008.283l840 ---|*         CALLS  CDC, HNG, IES, SEC.
Line S00033 Modification History
M01 (Added by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
01666  M01S00033.283l840 +++|*         CALLS  CDC, HNG, IES, RDY, SEC.
01667  M00S01545.msm     +++|
01668  M00S01546.msm     +++|
Line S00009 Modification History
M01 (Added by) ns2552
M02 (Removed by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
01669  M02S00009.283l840 ---| RCD6     RJM    CDC         CHASE DAYFILE CHAIN
01670  M02S00010.283l840 ---|*         LDN    0
Line S00034 Modification History
M01 (Added by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
01671  M01S00034.283l840 +++| RCD6     RJM    RDY         RECOVER DAYFILES
01672  M01S00035.283l840 +++|          LDN    0
Line S00011 Modification History
M01 (Added by) ns2552
Seq #  *Modification Id* Act 
----------------------------+
01673  M01S00011.ns2552  +++|
01674  M00S01547.msm     +++| RCD      SUBR               ENTRY/EXIT
01675  M00S01548.msm     +++|          SHN    21-7
01676  M00S01549.msm     +++|          PJN    RCDX        IF EQUIPMENT NOT BEING RECOVERED
01677  M00S01550.msm     +++|          SMSTF  LPTU        PROHIBIT TRT UPDATE BY *1RU*
01678  M00S01551.msm     +++|          RJM    SEC         SET EQUIPMENT CONFIGURATION
01679  M00S01552.msm     +++|
01680  M00S01553.msm     +++|*         READ TRT FOR THIS DEVICE.
01681  M00S01554.msm     +++|
01682  M00S01555.msm     +++|          RJM    RTT
Line S01556 Modification History
M01 (Removed by) ns2552
Seq #  *Modification Id* Act 
----------------------------+
01683  M01S01556.ns2552  ---|          ZJN    RCD6        IF NO ERROR
Line S00012 Modification History
M01 (Added by) ns2552
Seq #  *Modification Id* Act 
----------------------------+
01684  M01S00012.ns2552  +++|          ZJN    RCD6        IF RECOVERY COMPLETE
01685  M00S01557.msm     +++|
01686  M00S01558.msm     +++|*         ERROR IN DEVICE RECOVERY.
01687  M00S01559.msm     +++|
Line S01560 Modification History
M01 (Removed by) ns2552
Seq #  *Modification Id* Act 
----------------------------+
01688  M01S01560.ns2552  ---|          LDC    STTL*10000+RCDA  SET ERROR CODE / MESSAGE ADDRESS
01689  M01S01561.ns2552  ---| RCD1     STD    P1
Proceed to Part 1
cdc/nos2.source/opl.opl871/deck/msm.txt ยท Last modified: (external edit)