User Tools

Site Tools


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

Deck MSM Part 001

30 Modifications

Listing Sections

Source

Seq #  *Modification Id* Act 
----------------------------+
Line S01161 Modification History
M01 (Added by) msm
M02 (Updated by) msm49
Seq #  *Modification Id* Act 
----------------------------+
01238  M02S01161.msm49   ---|*
Line S01162 Modification History
M01 (Added by) msm
M02 (Updated by) msm49
Seq #  *Modification Id* Act 
----------------------------+
01239  M02S01162.msm49   ---|*         *LOCAL AREA SECTOR ERROR.*
Line S01163 Modification History
M01 (Added by) msm
M02 (Updated by) msm49
Seq #  *Modification Id* Act 
----------------------------+
01240  M02S01163.msm49   ---|*
Line S01164 Modification History
M01 (Added by) msm
M02 (Updated by) msm49
Seq #  *Modification Id* Act 
----------------------------+
01241  M02S01164.msm49   ---|*         *INSUFFICIENT MEMORY FOR CM RECOVERY.*
01242  M01S00002.msm49   +++|*         *END OF DAT TRACK CHAIN.*  (MMF)
01243  M01S01165.msm     +++|*
01244  M01S01166.msm     +++|*         *EQXXX EQYYY CONFLICTING DN.*
01245  M01S01167.msm     +++|*
01246  M01S01168.msm     +++|*         *EQXXX EQYYY CONFLICTING PN.*
01247  M01S01169.msm     +++|*
01248  M01S01170.msm     +++|*         *EQXXX EQYYY CONFLICTING UM.*
01249  M01S01171.msm     +++|*
01250  M01S01172.msm     +++|*         *EQXXX, DEVICE ACCESS ERROR.*
01251  M01S01173.msm     +++|*
Line S01174 Modification History
M01 (Added by) msm
M02 (Updated by) msm49
Seq #  *Modification Id* Act 
----------------------------+
01252  M02S01174.msm49   ---|*         *NON-SHARED DEVICE ACTIVE IN DAT.*  (MMF)
01253  M01S00003.msm49   +++|*         *ERROR ON DEVICE WITH ACTIVE FILES.*
01254  M01S01175.msm     +++|*
Line S01176 Modification History
M01 (Added by) msm
M02 (Updated by) msm49
Seq #  *Modification Id* Act 
----------------------------+
01255  M02S01176.msm49   ---|*         *MMF DEVICE ACCESS ERROR.*  (MMF)
01256  M01S00004.msm49   +++|*         *ERROR ON SYSTEM DEVICE.*
01257  M01S01177.msm     +++|*
Line S01178 Modification History
M01 (Added by) msm
M02 (Updated by) msm49
Seq #  *Modification Id* Act 
----------------------------+
01258  M02S01178.msm49   ---|*         *SHARED DEVICE ACTIVE IN DAT.*  (MMF)
01259  M01S00005.msm49   +++|*         *EXTENDED MEMORY LABEL TRACK NOT FOUND.*  (MMF)
01260  M01S01179.msm     +++|*
Line S01180 Modification History
M01 (Added by) msm
M02 (Updated by) msm49
Seq #  *Modification Id* Act 
----------------------------+
01261  M02S01180.msm49   ---|*         *REMOVABLE DEVICE CONFLICT.*  (MMF)
01262  M01S00006.msm49   +++|*         *EXTENDED MEMORY READ/WRITE PARITY ERRORS.*  (MMF)
01263  M01S01181.msm     +++|*
Line S01182 Modification History
M01 (Added by) msm
M02 (Updated by) msm49
Seq #  *Modification Id* Act 
----------------------------+
01264  M02S01182.msm49   ---|*         *EXTENDED MEMORY LABEL TRACK NOT FOUND.*  (MMF)
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  M01S01183.msm     +++|*
01275  M01S01184.msm     +++|*         *MID UNDEFINED IN EXTENDED MEMORY.*  (MMF)
01276  M01S01185.msm     +++|*
01277  M01S01186.msm     +++|*         *MID CURRENTLY ACTIVE IN EXTENDED MEMORY.*  (MMF)
01278  M01S01187.msm     +++|*
Line S01188 Modification History
M01 (Added by) msm
M02 (Updated by) msm49
Seq #  *Modification Id* Act 
----------------------------+
01279  M02S01188.msm49   ---|*         *MAXIMUM NUMBER MIDS ACTIVE.*  (MMF)
01280  M01S00016.msm49   +++|*         *MMF DEVICE ACCESS ERROR.*  (MMF)
01281  M01S01189.msm     +++|*
Line S01190 Modification History
M01 (Added by) msm
M02 (Updated by) msm49
Seq #  *Modification Id* Act 
----------------------------+
01282  M02S01190.msm49   ---|*         *EXTENDED MEMORY READ/WRITE PARITY ERRORS.*  (MMF)
01283  M01S00017.msm49   +++|*         *NON-SHARED DEVICE ACTIVE IN DAT.*  (MMF)
01284  M01S01191.msm     +++|*
01285  M01S00018.msm49   +++|*         *PF LINKAGE ERROR.*
01286  M01S00019.msm49   +++|*
01287  M01S01192.msm     +++|*         *PRESET NOT ALLOWED.*  (MMF)
01288  M01S01193.msm     +++|*
Line S01194 Modification History
M01 (Added by) msm
M02 (Updated by) msm49
Seq #  *Modification Id* Act 
----------------------------+
01289  M02S01194.msm49   ---|*         *DEVICE ACTIVE IN DAT.*  (MMF)
01290  M01S00020.msm49   +++|*         *REMOVABLE DEVICE CONFLICT.*  (MMF)
01291  M01S01195.msm     +++|*
Line S01196 Modification History
M01 (Added by) msm
M02 (Updated by) msm49
Seq #  *Modification Id* Act 
----------------------------+
01292  M02S01196.msm49   ---|*         *END OF DAT TRACK CHAIN.*  (MMF)
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  M01S01197.msm     +++|          SPACE  4
01299  M01S01198.msm     +++|**        ROUTINES CALLED.
01300  M01S01199.msm     +++|*
01301  M01S01200.msm     +++|*         0MF - PRESET MMF LINK DEVICE.
01302  M01S01201.msm     +++|*         0SD - SPIN UP/DOWN ISMD DRIVES.
Line S01202 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
01303  M02S01202.283l840 ---|          TITLE  MAIN ROUTINE.
01304  M01S00015.283l840 +++|          TITLE  COMMON WORKING STORAGE AND SUBROUTINES.
01305  M01S01203.msm     +++| RMS      SPACE  4
01306  M01S01204.msm     +++|          QUAL   RMS
01307  M01S01205.msm     +++|          ORG    OBOV-2
01308  M01S01206.msm     +++|          LJM    PRS         PRESET *RMS*
Line S01207 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
01309  M02S01207.283l840 ---|
01310  M01S00016.283l840 +++|          SPACE  4,10
01311  M01S00017.283l840 +++|          LIST   M
01312  M01S01208.msm     +++|          COMMON
Line S01209 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
01313  M02S01209.283l840 ---|
01314  M01S00018.283l840 +++|          LIST   *
01315  M01S00019.283l840 +++|          TITLE  MAIN ROUTINE.
01316  M01S01210.msm     +++|**        RMS - MAIN PROGRAM.
01317  M01S01211.msm     +++|
01318  M01S01212.msm     +++|
01319  M01S01213.msm     +++| RMS1     EXECUTE 4DB        LOAD RECOVERY ROUTINES
01320  M01S01214.msm     +++|          RJM    RLD         RECOVER MMF LINK DEVICE
01321  M01S01215.msm     +++|          LDC    0           SET UEM EQUIPMENT FOR SPECIAL PROCESSING
01322  M01S01216.msm     +++| RMSE     EQU    *-1
01323  M01S01217.msm     +++|          STM    MRLC
01324  M01S01218.msm     +++|          LDC    ZJNI-ZJNI   SET JUMP TO PROCESS OR IGNORE UEM
01325  M01S01219.msm     +++|*         LDC    NJNI-ZJNI   (IF PROCESSING ONLY UEM)
01326  M01S01220.msm     +++| RMSH     EQU    *-1
01327  M01S01221.msm     +++|          RAM    MRLD
01328  M01S01222.msm     +++|          LDC    RDL         READ LABELS
01329  M01S01223.msm     +++|          RJM    MRL
01330  M01S01224.msm     +++| RMSA     LDN    0
01331  M01S01225.msm     +++|          ZJN    RMS2        IF NO DEVICE INITIALIZATION
01332  M01S00020.283l840 +++|          EXECUTE  4DD       LOAD VERIFICATION ROUTINES
Line S01226 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
01333  M02S01226.283l840 ---|          EXECUTE  4DI       LOAD INITIALIZATION ROUTINES
01334  M01S00021.283l840 +++|          EXECUTE  4DH       LOAD INITIALIZATION ROUTINES
01335  M01S01227.msm     +++|          LDC    IMS         PROCESS DEVICE INITIALIZATION
01336  M01S01228.msm     +++|          RJM    MRL
01337  M01S01229.msm     +++| RMS2     EXECUTE  4DD       LOAD VERIFICATION ROUTINES
01338  M01S00022.283l840 +++|          EXECUTE  4DG       LOAD RECOVERY ROUTINES
01339  M01S01230.msm     +++| RMSB     UJN    RMS3        IF NOT CM RECOVERY
01340  M01S01231.msm     +++|*         PSN
01341  M01S01232.msm     +++|          LDC    CAD         CHECK ACTIVE DEVICES
01342  M01S01233.msm     +++|          RJM    MRL
01343  M01S01234.msm     +++|          LDC    RMR         UPDATE MRT TABLES
01344  M01S01235.msm     +++|          RJM    MRL
01345  M01S01236.msm     +++|          RJM    UMT         UPDATE MMF TABLES
01346  M01S01237.msm     +++|          UJN    DPP         CALL *REC*
01347  M01S01238.msm     +++|
01348  M01S01239.msm     +++| RMS3     LDC    CDS         CHECK DEVICE STATUS
01349  M01S01240.msm     +++|          RJM    MRL
01350  M01S01241.msm     +++|          LDD    RC
01351  M01S01242.msm     +++|          ZJN    RMS4        IF NO EQUIPMENTS TO RECOVER
Line S01243 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
01352  M02S01243.283l840 ---|          EXECUTE  4DG       LOAD RECOVERY ROUTINES
Line S01244 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
01353  M02S01244.283l840 ---|          EXECUTE  4DJ       LOAD DAYFILE RECOVERY ROUTINES
01354  M01S01245.msm     +++|          LDC    RCD         RECOVER DEVICES
01355  M01S01246.msm     +++|          RJM    MRL
01356  M01S01247.msm     +++|          RJM    REM         RESTORE UEM (LEVEL 1 OR 2 AND UEM PRESENT)
01357  M01S01248.msm     +++|          LDC    **          WRITE DAYFILE RECOVERY SELECTIONS BACK
01358  M01S01249.msm     +++| RMSC     EQU    *-1
01359  M01S01250.msm     +++|          CWM    RMSF,ON
01360  M01S01251.msm     +++| RMS4     RJM    UMT         UPDATE MMF TABLES
Line S01252 Modification History
M01 (Added by) msm
M02 (Updated by) ns2552
Seq #  *Modification Id* Act 
----------------------------+
01361  M02S01252.ns2552  ---|          RJM    VPF         VERIFY PF SYSTEM INTEGRITY
01362  M01S00007.ns2552  +++|          EXECUTE  4DC       VERIFY PF SYSTEM
01363  M01S01253.msm     +++|
01364  M01S01254.msm     +++| DPP      LDC    DSCP*200+MS1W  STORE *RECOVERY* MESSAGE
01365  M01S01255.msm     +++|          CWM    RMSG,ON
01366  M01S01256.msm     +++|          LDD    IA          CALL *REC* INTO THIS PP
01367  M01S01257.msm     +++|          CWM    RMSD,ON
01368  M01S01258.msm     +++|          LJM    PPR
01369  M01S01259.msm     +++|
01370  M01S01260.msm     +++| RMSD     VFD    18/3LREC,6/DSCP,36/0
01371  M01S01261.msm     +++| RMSF     BSS    5           DAYFILE RECOVERY SELECTIONS
01372  M01S01262.msm     +++| RMSG     DATA   C*RECOVERY*
01373  M01S01263.msm     +++|          TITLE  CM RECOVERY ROUTINES.
01374  M01S01264.msm     +++| CAD      SPACE  4
01375  M01S01265.msm     +++|**        CAD - CHECK ACTIVE DEVICES (CM RECOVERY).
01376  M01S01266.msm     +++|*
01377  M01S01267.msm     +++|*         ENTRY  (EQ) = (T5) = EST ORDINAL.
01378  M01S01268.msm     +++|*                (FN - FN+4) = EST ENTRY.
01379  M01S01269.msm     +++|*
01380  M01S01270.msm     +++|*         EXIT   (A) .LT. 0 IF RECOVERY INFORMATION NOT TO
01381  M01S01271.msm     +++|*                BE REWRITTEN TO CM UPON RETURN TO *MRL*.
01382  M01S01272.msm     +++|*
01383  M01S01273.msm     +++|*         USES   T5 - T7, FN - FN+4,  FS - FS+4.
01384  M01S01274.msm     +++|*
Line S01275 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
01385  M02S01275.283l840 ---|*         CALLS  ATC, CTD, IES, VLP.
01386  M01S00023.283l840 +++|*         CALLS  ATC, CTD, EBP, IES, VLP.
01387  M01S01276.msm     +++|
01388  M01S01277.msm     +++|
01389  M01S01278.msm     +++| CAD      SUBR               ENTRY/EXIT
01390  M01S01279.msm     +++|          SHN    21-6
01391  M01S01280.msm     +++|          MJN    CADX        IF DEVICE UNAVAILABLE
01392  M01S01281.msm     +++|          SHN    6-0
01393  M01S01282.msm     +++|          MJN    CADX        IF LABEL NOT READ
01394  M01S01283.msm     +++|          LDD    FN+4        READ PF DESCRIPTION
01395  M01S01284.msm     +++|          SHN    3
01396  M01S01285.msm     +++|          ADN    PFGL
01397  M01S01286.msm     +++|          CRM    DLPB,TW
01398  M01S01287.msm     +++|          ADN    STLL-PFGL-2 READ STATUS (STLL)
01399  M01S01288.msm     +++|          CRD    FS
01400  M01S01289.msm     +++|          UJMF   CAD2
01401  M01S01290.msm     +++|          RJM    RDE         READ *DAT* ENTRY
01402  M01S01291.msm     +++|          LDM    DATB+11     CHECK ACCESS BY THIS MACHINE
01403  M01S01292.msm     +++|          LPC    0
01404  M01S01293.msm     +++| CADA     EQU    *-1
01405  M01S01294.msm     +++|          NJN    CAD1        IF DEVICE SET
01406  M01S01295.msm     +++|          LDC    =C*MMF DEVICE ACCESS ERROR.*
01407  M01S01296.msm     +++|          LJM    HNG         DISPLAY MESSAGE AND HANG
01408  M01S01297.msm     +++|
01409  M01S01298.msm     +++| CAD1     LDN    10          SET ACCESS BY THIS MACHINE
01410  M01S01299.msm     +++|          RAD    RE
Line S01300 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
01411  M02S01300.283l840 ---| CAD2     RJM    VLP         VERIFY LABEL PARAMETERS
01412  M01S00024.283l840 +++| CAD2     RJM    EBP         ENABLE BST/BAT PROCESSING, IF REQUIRED
01413  M01S00025.283l840 +++|          RJM    VLP         VERIFY LABEL PARAMETERS
01414  M01S01301.msm     +++|          MJN    CAD3        IF NOT FIRST EQUIPMENT IN CHAIN
01415  M01S01302.msm     +++|          NJN    CAD4        IF ERRORS FOR THIS EQUIPMENT
01416  M01S01303.msm     +++|          RJM    ATC         ADJUST TRACK COUNT (AND CLEAR INTERLOCKS)
01417  M01S01304.msm     +++|          LDD    FN
01418  M01S01305.msm     +++|          LPN    20
01419  M01S01306.msm     +++|          ZJN    CAD3        IF NOT ISHARED DEVICE
01420  M01S01307.msm     +++|          LDD    RE
01421  M01S01308.msm     +++|          LPN    10
01422  M01S01309.msm     +++|          ZJN    CAD3        IF CURRENT TRT NOT IN THIS MACHINE
01423  M01S01310.msm     +++|          LCN    2
01424  M01S01311.msm     +++|          RAD    RE
01425  M01S01312.msm     +++|          RJM    CTD
01426  M01S01313.msm     +++|*         LDN    0           (*MRL* REWRITE RECOVERY TABLE FLAG)
01427  M01S01314.msm     +++| CAD3     LJM    CADX        RETURN
01428  M01S01315.msm     +++|
01429  M01S01316.msm     +++|*         ERROR IN LABEL DETECTED.
01430  M01S01317.msm     +++|
01431  M01S01318.msm     +++| CAD4     LDD    FN
01432  M01S01319.msm     +++|          SHN    21-10
01433  M01S01320.msm     +++|          PJN    CAD5        IF NOT REMOVABLE DEVICE
01434  M01S01321.msm     +++|          LDD    FN+4        CHECK ACTIVITY
01435  M01S01322.msm     +++|          SHN    3
01436  M01S01323.msm     +++|          ADN    DULL
01437  M01S01324.msm     +++|          CRD    CM
01438  M01S01325.msm     +++|          LDD    CM+4
01439  M01S01326.msm     +++|          LPC    3777
01440  M01S01327.msm     +++|          ADD    FS+3
01441  M01S01328.msm     +++|          NJN    CAD5        IF ACTIVE FILES ON DEVICE
01442  M01S01329.msm     +++|          RJM    IES         INITIALIZE EQUIPMENT STATUS
01443  M01S01330.msm     +++|*         LCN    0           (*MRL* REWRITE RECOVERY TABLE FLAG)
01444  M01S01331.msm     +++|          UJN    CAD3
01445  M01S01332.msm     +++|
01446  M01S01333.msm     +++| CAD5     LDC    =C*ERROR ON DEVICE WITH ACTIVE FILES.*
01447  M01S01334.msm     +++|*         LJM    HNG
01448  M01S01335.msm     +++| HNG      SPACE  4
01449  M01S01336.msm     +++|**        HNG - DISPLAY ERROR AND HANG PP.
01450  M01S01337.msm     +++|*
01451  M01S01338.msm     +++|*         ENTRY  (A) = ADDRESS OF MESSAGE.
01452  M01S01339.msm     +++|*
01453  M01S01340.msm     +++|*         USES   T2.
01454  M01S01341.msm     +++|*
01455  M01S01342.msm     +++|*         CALLS  IFR.
01456  M01S01343.msm     +++|*
01457  M01S01344.msm     +++|*         MACROS UJMF.
01458  M01S01345.msm     +++|
01459  M01S01346.msm     +++|
01460  M01S01347.msm     +++| HNG      STM    HNGA
01461  M01S01348.msm     +++|          UJMF   HNG1
01462  M01S01349.msm     +++|          LCN    DATI        CLEAR FLAG REGISTER INTERLOCK
01463  M01S01350.msm     +++|          RJM    IFR
01464  M01S01351.msm     +++| HNG1     LDN    4
01465  M01S01352.msm     +++|          STD    T2
01466  M01S01353.msm     +++|          LDC    CPAS+MS2W   SET MESSAGE IN RECOVERY MESSAGE BUFFER
01467  M01S01354.msm     +++|          CWM    *,T2
01468  M01S01355.msm     +++| HNGA     EQU    *-1
01469  M01S01356.msm     +++|          UJN    *           STOP
01470  M01S01357.msm     +++| SEM      SPACE  4
01471  M01S01358.msm     +++|**        SEM - SET EQUIPMENT MESSAGE.
01472  M01S01359.msm     +++|*
01473  M01S01360.msm     +++|*         ENTRY  (EQ) = EST ORDINAL.
01474  M01S01361.msm     +++|*                (FN - FN+4) = EST ENTRY.
01475  M01S01362.msm     +++|*
01476  M01S01363.msm     +++|*         USES   CM - CM+4.
01477  M01S01364.msm     +++|*
01478  M01S01365.msm     +++|*         CALLS  C2D.
01479  M01S01366.msm     +++|
01480  M01S01367.msm     +++|
01481  M01S01368.msm     +++| SEM      SUBR               ENTRY/EXIT
01482  M01S01369.msm     +++|          LDN    1R
01483  M01S01370.msm     +++|          STD    CM
01484  M01S01371.msm     +++|          LDN    0           SET END OF ASSEMBLY
01485  M01S01372.msm     +++|          STD    CM+4
01486  M01S01373.msm     +++|          LDD    FN+3        ENTER EQUIPMENT MNEMONIC
01487  M01S01374.msm     +++|          STD    CM+1
01488  M01S01375.msm     +++|          LDD    EQ          CONVERT UPPER TWO DIGITS OF EST ORDINAL
01489  M01S01376.msm     +++|          SHN    -3
01490  M01S01377.msm     +++|          RJM    C2D
01491  M01S01378.msm     +++|          STD    CM+2
01492  M01S01379.msm     +++|          LDD    EQ          CONVERT LOWER DIGIT OF EST ORDINAL
01493  M01S01380.msm     +++|          LPN    7
01494  M01S01381.msm     +++|          ADN    1R0
01495  M01S01382.msm     +++|          SHN    6
01496  M01S01383.msm     +++|          STD    CM+3
01497  M01S01384.msm     +++|          LDC    CPAS+MS1W+1
01498  M01S01385.msm     +++|          CWD    CM
01499  M01S01386.msm     +++|          ADN    MS2W-MS1W-1 CLEAR SECOND LINE OF MESSAGE
01500  M01S01387.msm     +++|          CWD    CM+4
01501  M01S01388.msm     +++|          UJN    SEMX
01502  M01S01389.msm     +++|          TITLE  NON - CM RECOVERY ROUTINES.
Line S01390 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
01503  M02S01390.283l840 ---| CDS      SPACE  4
01504  M01S00026.283l840 +++| CDS      SPACE  4,20
01505  M01S01391.msm     +++|**        CDS - CHECK DEVICE STATUS (LEVEL 0, 1, 2 RECOVERY).
01506  M01S01392.msm     +++|*
01507  M01S01393.msm     +++|*         ENTRY  (EQ) = (T5) = EST ORDINAL.
01508  M01S01394.msm     +++|*                (FN - FN+4) = EST ENTRY.
01509  M01S01395.msm     +++|*
01510  M01S01396.msm     +++|*         EXIT   (RC) = COUNT OF EQUIPMENTS TO RECOVER.
01511  M01S01397.msm     +++|*                (RE) = SET WITH RECOVERY INFORMATION.
01512  M01S01398.msm     +++|*                (A) .LT. 0 IF RECOVERY INFORMATION NOT TO
01513  M01S01399.msm     +++|*                BE REWRITTEN TO CM UPON RETURN TO *MRL*.
01514  M01S01400.msm     +++|*
01515  M01S01401.msm     +++|*         USES   FN - FN+4, FS - FS+4, T4 - T7, RC, EQ, EC.
01516  M01S01402.msm     +++|*
01517  M01S01403.msm     +++|*         CALLS  CSD, CSE, HNG, IES, UDT, VLP.
01518  M01S01404.msm     +++|*
01519  M01S01405.msm     +++|*         MACROS UJMF.
01520  M01S01406.msm     +++|
01521  M01S01407.msm     +++|
01522  M01S01408.msm     +++| CDS12    LDN    0           INHIBIT FURTHER PROCESSING OF DEVICE
01523  M01S01409.msm     +++|          STD    RE
01524  M01S01410.msm     +++|
01525  M01S01411.msm     +++| CDS      SUBR               ENTRY/EXIT
01526  M01S01412.msm     +++|          SHN    21-4
01527  M01S01413.msm     +++|          MJN    CDSX        IF INITIALIZATION SPECIFIED
01528  M01S01414.msm     +++|          LDD    FN
01529  M01S01415.msm     +++|          LPN    2
01530  M01S01416.msm     +++|          NJN    CDS12       IF DEVICE OFF OR DOWN
01531  M01S01417.msm     +++|          LDD    RA          READ LABEL DATA
01532  M01S01418.msm     +++|          SHN    6
01533  M01S01419.msm     +++|          ADD    AL
01534  M01S01420.msm     +++|          ADN    PFGL        READ DEVICE DESCRIPTION
01535  M01S01421.msm     +++|          CRD    CN
01536  M01S01422.msm     +++|          ERRNZ  PUGL-PFGL-1 ADJUST IF *PUGL* POSITION CHANGES
01537  M01S01423.msm     +++|          ERRNZ  MDGL-PFGL-2 ADJUST IF *MDGL* POSITION CHANGES
01538  M01S01424.msm     +++|          CRM    DLPB,TW
01539  M01S01425.msm     +++|          LDD    FN+4        READ STLL
01540  M01S01426.msm     +++|          SHN    3
01541  M01S01427.msm     +++|          ADN    STLL
01542  M01S01428.msm     +++|          CRD    FS
01543  M01S01429.msm     +++|          SBN    STLL-MDGL
01544  M01S01430.msm     +++|          CRD    CM+3
01545  M01S01431.msm     +++|          RJM    CSE         CHECK SYSTEM EQUIPMENT
01546  M01S01432.msm     +++|
01547  M01S01433.msm     +++|*         VERIFY LABELS FOR THIS EQUIPMENT.
01548  M01S01434.msm     +++|
01549  M01S01435.msm     +++| CDS1     UJMF   CDS2
01550  M01S01436.msm     +++|          LDD    CN+4
01551  M01S01437.msm     +++|          LPN    70
01552  M01S01438.msm     +++|          NJN    CDS2        IF NOT FIRST UNIT OF EQUIPMENT
01553  M01S01439.msm     +++|          RJM    CSD         CHECK SHARED DEVICE STATUS
01554  M01S01440.msm     +++|          NJN    CDS7        IF DAT CONFLICT
01555  M01S01441.msm     +++| CDS2     RJM    VLP         VERIFY LABEL PARAMETERS
01556  M01S01442.msm     +++|          MJN    CDS4        IF NOT FIRST EQUIPMENT IN CHAIN
01557  M01S01443.msm     +++|          NJN    CDS6        IF ERROR ON ANY LABEL
01558  M01S01444.msm     +++|          UJMF   CDS3        NON MMF TRANSFER
01559  M01S01445.msm     +++|          RJM    UDT         UPDATE DEVICE ACCESS TABLE
01560  M01S01446.msm     +++|          NJN    CDS7        IF EXTENDED MEMORY TRACK UNAVAILABLE
01561  M01S01447.msm     +++| CDS3     LDD    RE          CHECK INCORRECT MODE CHANGE
01562  M01S01448.msm     +++|          LPN    40
01563  M01S01449.msm     +++|          NJN    CDS5        IF FULL TRACK ACCESS SET
01564  M01S01450.msm     +++|          LDC    200         SET EQUIPMENT RECOVERY
01565  M01S01451.msm     +++|          RAD    RE
01566  M01S01452.msm     +++|          AOD    RC          ADVANCE RECOVERY COUNT
01567  M01S01453.msm     +++| CDS4     LJM    CDSX        RETURN
01568  M01S01454.msm     +++|
01569  M01S01455.msm     +++| CDS5     LDN    STLE        SET LABEL ERROR STATUS
01570  M01S01456.msm     +++|          STD    EC
01571  M01S01457.msm     +++|
01572  M01S01458.msm     +++|*         ERROR IN LABEL VERIFICATION.
01573  M01S01459.msm     +++|
01574  M01S01460.msm     +++| CDS6     LDD    RE
01575  M01S01461.msm     +++|          SHN    21-10
01576  M01S01462.msm     +++|          MJN    CDS10       IF REMOVABLE DEVICE ERROR
01577  M01S01463.msm     +++|          SHN    21-12+22-21+10
Line S01464 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
01578  M02S01464.283l840 ---|          PJN    CDS8        IF NOT DEVICE WITH SYSTEM STATUS
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  M01S01465.msm     +++|          LDC    =C*ERROR ON SYSTEM DEVICE.*
01582  M01S01466.msm     +++| CDS7     LJM    HNG         DISPLAY ERROR AND HANG
01583  M01S01467.msm     +++|
01584  M01S01468.msm     +++|*         NON REMOVABLE DEVICE ERROR.
01585  M01S01469.msm     +++|
Line S01470 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
01586  M02S01470.283l840 ---| CDS8     LDD    RS
Line S01471 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
01587  M02S01471.283l840 ---|          ZJN    CDS11       IF NO RECOVERY
01588  M01S01472.msm     +++| CDS9     LDC    =C*ERROR ON DEVICE WITH ACTIVE FILES.*
01589  M01S01473.msm     +++|          UJN    CDS7        DISPLAY ERROR AND HANG
01590  M01S01474.msm     +++|
01591  M01S01475.msm     +++|*         REMOVABLE DEVICE ERROR.
01592  M01S01476.msm     +++|
Line S01477 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
01593  M02S01477.283l840 ---| CDS10    LDD    RS
Line S01478 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
01594  M02S01478.283l840 ---|          ZJN    CDS11       IF NO RECOVERY
Line S01479 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
01595  M02S01479.283l840 ---|          LDD    EC
01596  M01S00029.283l840 +++| CDS10    LDD    EC          CHECK ERROR CODE
01597  M01S00030.283l840 +++|*         UJN    CDS11       (LEVEL 0 DEADSTART)
01598  M01S00031.283l840 +++| CDSB     EQU    *-1
01599  M01S01480.msm     +++|          LMN    STLE
01600  M01S01481.msm     +++|          ZJN    CDS11       IF LABEL ERROR
01601  M01S01482.msm     +++|          LMN    STNR&STLE
01602  M01S01483.msm     +++|          ZJN    CDS11       IF NOT READY
01603  M01S01484.msm     +++|          LDD    RA          CHECK LABEL COPY OF *STLL*
01604  M01S01485.msm     +++|          SHN    6
01605  M01S01486.msm     +++|          ADD    AL
01606  M01S01487.msm     +++|          ADN    DULL
01607  M01S01488.msm     +++|          CRD    CM
01608  M01S01489.msm     +++|          ADN    STLL-DULL
01609  M01S01490.msm     +++|          CRD    CN
01610  M01S01491.msm     +++|          LDD    CM+4        CHECK ACTIVITY
01611  M01S01492.msm     +++|          LPC    3777
01612  M01S01493.msm     +++|          ADD    CN+3
01613  M01S01494.msm     +++|          NJN    CDS9        IF ACTIVE FILES ON DEVICE
01614  M01S01495.msm     +++| CDS11    RJM    IES         INITIALIZE EQUIPMENT STATUS
01615  M01S01496.msm     +++|*         LCN    0           (*MRL* REWRITE RECOVERY TABLE FLAG)
01616  M01S01497.msm     +++|          LJM    CDSX        RETURN
01617  M01S01498.msm     +++| CSE      SPACE  4,10
01618  M01S01499.msm     +++|**        CSE - CHECK SYSTEM EQUIPMENT.
01619  M01S01500.msm     +++|*
01620  M01S01501.msm     +++|*         ENTRY  (FN - FN+4) = EST ENTRY.
01621  M01S01502.msm     +++|*                (CM+3 - CM+7) = MDGL WORD OF MST.
01622  M01S01503.msm     +++|*
01623  M01S01504.msm     +++|*         EXIT   TO *HNG* IF MISMATCHED SYSTEM DEVICES.
01624  M01S01505.msm     +++|
01625  M01S01506.msm     +++|
01626  M01S01507.msm     +++| CSE2     LDD    FN+3        SET SYSTEM DEVICE TYPE
01627  M01S01508.msm     +++|          STM    CSEA
01628  M01S01509.msm     +++|          LDD    CM+7        SET MAXIMUM SECTOR LIMIT
01629  M01S01510.msm     +++|          STM    CSEA+1
01630  M01S01511.msm     +++|
01631  M01S01512.msm     +++| CSE      SUBR               ENTRY/EXIT
01632  M01S01513.msm     +++|          LDD    FN
01633  M01S01514.msm     +++|          SHN    21-12
01634  M01S01515.msm     +++|          PJN    CSEX        IF NOT SYSTEM DEVICE
01635  M01S01516.msm     +++|          LDM    CSEA
01636  M01S01517.msm     +++|          ZJN    CSE2        IF FIRST SYSTEM DEVICE
01637  M01S01518.msm     +++|          LMD    FN+3        COMPARE DEVICE TYPE
01638  M01S01519.msm     +++|          NJN    CSE1        IF NO MATCH WITH FIRST SYSTEM DEVICE
01639  M01S01520.msm     +++|          LDM    CSEA+1      CHECK SECTOR LIMIT
01640  M01S01521.msm     +++|          LMD    CM+7
01641  M01S01522.msm     +++|          ZJN    CSEX        IF MATCHING TRACK SIZE
01642  M01S01523.msm     +++| CSE1     LDC    =C*UNMATCHED SYSTEM DEVICES.*
01643  M01S01524.msm     +++|          LJM    HNG
01644  M01S01525.msm     +++|
01645  M01S01526.msm     +++| CSEA     CON    0,0
Line S01527 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
01646  M02S01527.283l840 ---| RCD      SPACE  4
01647  M01S00032.283l840 +++| RCD      SPACE  4,20
01648  M01S01528.msm     +++|**        RCD - RECOVER DEVICE.
01649  M01S01529.msm     +++|*
01650  M01S01530.msm     +++|*         ENTRY  (A) = (RE) = EQUIPMENT RECOVERY STATUS INFORMATION.
01651  M01S01531.msm     +++|*                (EQ) = (T5) = EST ORDINAL.
01652  M01S01532.msm     +++|*                (RC) = RECOVERY COUNT.
01653  M01S01533.msm     +++|*                (CA+1) = CM ADDRESS OF TRT BUFFER.
01654  M01S01534.msm     +++|*                (FN - FN+4) = EST ENTRY.
01655  M01S01535.msm     +++|*                (RE) SET WITH DEVICE RECOVERY INFORMATION.
01656  M01S01536.msm     +++|*                (AL) = CM ADDRESS CONTAINING LABEL MST.
01657  M01S01537.msm     +++|*
01658  M01S01538.msm     +++|*         EXIT   DEVICE RECOVERED OR LEFT AS UNAVAILABLE.
01659  M01S01539.msm     +++|*                (A) .LT. 0 IF RECOVERY INFORMATION NOT TO
01660  M01S01540.msm     +++|*                BE REWRITTEN TO CM UPON RETURN TO *MRL*.
01661  M01S01541.msm     +++|*
01662  M01S01542.msm     +++|*         USES   CA, EC, P1, T1.
01663  M01S01543.msm     +++|*
Line S01544 Modification History
M01 (Added by) msm
M02 (Updated by) ns2552
Seq #  *Modification Id* Act 
----------------------------+
01664  M02S01544.ns2552  ---|*         CALLS  ATC, CDC, CTT EMT, ETT, HNG, IES, RTT, SEC.
Line S00008 Modification History
M01 (Added by) ns2552
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
01665  M02S00008.283l840 ---|*         CALLS  CDC, HNG, IES, SEC.
01666  M01S00033.283l840 +++|*         CALLS  CDC, HNG, IES, RDY, SEC.
01667  M01S01545.msm     +++|
01668  M01S01546.msm     +++|
Line S00009 Modification History
M01 (Added by) ns2552
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
01669  M02S00009.283l840 ---| RCD6     RJM    CDC         CHASE DAYFILE CHAIN
Line S00010 Modification History
M01 (Added by) ns2552
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
01670  M02S00010.283l840 ---|*         LDN    0
01671  M01S00034.283l840 +++| RCD6     RJM    RDY         RECOVER DAYFILES
01672  M01S00035.283l840 +++|          LDN    0
01673  M01S00011.ns2552  +++|
01674  M01S01547.msm     +++| RCD      SUBR               ENTRY/EXIT
01675  M01S01548.msm     +++|          SHN    21-7
01676  M01S01549.msm     +++|          PJN    RCDX        IF EQUIPMENT NOT BEING RECOVERED
01677  M01S01550.msm     +++|          SMSTF  LPTU        PROHIBIT TRT UPDATE BY *1RU*
01678  M01S01551.msm     +++|          RJM    SEC         SET EQUIPMENT CONFIGURATION
01679  M01S01552.msm     +++|
01680  M01S01553.msm     +++|*         READ TRT FOR THIS DEVICE.
01681  M01S01554.msm     +++|
01682  M01S01555.msm     +++|          RJM    RTT
Line S01556 Modification History
M01 (Added by) msm
M02 (Updated by) ns2552
Seq #  *Modification Id* Act 
----------------------------+
01683  M02S01556.ns2552  ---|          ZJN    RCD6        IF NO ERROR
01684  M01S00012.ns2552  +++|          ZJN    RCD6        IF RECOVERY COMPLETE
01685  M01S01557.msm     +++|
01686  M01S01558.msm     +++|*         ERROR IN DEVICE RECOVERY.
01687  M01S01559.msm     +++|
Line S01560 Modification History
M01 (Added by) msm
M02 (Updated by) ns2552
Seq #  *Modification Id* Act 
----------------------------+
01688  M02S01560.ns2552  ---|          LDC    STTL*10000+RCDA  SET ERROR CODE / MESSAGE ADDRESS
Line S01561 Modification History
M01 (Added by) msm
M02 (Updated by) ns2552
Seq #  *Modification Id* Act 
----------------------------+
01689  M02S01561.ns2552  ---| RCD1     STD    P1
Line S01562 Modification History
M01 (Added by) msm
M02 (Updated by) ns2552
Seq #  *Modification Id* Act 
----------------------------+
01690  M02S01562.ns2552  ---|          SHN    -14
Line S01563 Modification History
M01 (Added by) msm
M02 (Updated by) ns2552
Seq #  *Modification Id* Act 
----------------------------+
01691  M02S01563.ns2552  ---|          STD    EC
01692  M01S00013.ns2552  +++|          STD    EC          SET ERROR CODE
01693  M01S00014.ns2552  +++|          LMN    STTL
01694  M01S00015.ns2552  +++|          ZJN    RCD1        IF LENGTH ERROR
01695  M01S00016.ns2552  +++|          LDN    RCDB-RCDA
01696  M01S00017.ns2552  +++| RCD1     ADC    RCDA        SET ERROR MESSAGE ADDRESS
01697  M01S00018.ns2552  +++|          STD    P1
Line S01564 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
01698  M02S01564.283l840 ---|          LDD    RS
Line S01565 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
01699  M02S01565.283l840 ---|          ZJN    RCD4        IF NO RECOVERY REQUESTED
Line S01566 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
01700  M02S01566.283l840 ---|          LDD    FN
01701  M01S00036.283l840 +++| RCDC     LDD    FN
01702  M01S00037.283l840 +++|*         UJN    RCD4        (LEVEL 0 DEADSTART)
01703  M01S01567.msm     +++|          SHN    21-10
01704  M01S01568.msm     +++|          PJN    RCD5        IF NOT REMOVABLE DEVICE
01705  M01S01569.msm     +++|          LDM    MBUF+5*STLL+3
01706  M01S01570.msm     +++|          NJN    RCD4        IF ACTIVE USERS
01707  M01S01571.msm     +++| RCD2     SOD    RC          DECREMENT RECOVERY COUNT
01708  M01S01572.msm     +++|          RJM    IES         INITIALIZE EQUIPMENT STATUS
01709  M01S01573.msm     +++|*         LCN    0           (*MRL* REWRITE RECOVERY TABLE FLAG)
01710  M01S01574.msm     +++| RCD3     UJP    RCDX        RETURN
01711  M01S01575.msm     +++|
01712  M01S01576.msm     +++| RCD4     LDD    RE
01713  M01S01577.msm     +++|          SHN    21-12
01714  M01S01578.msm     +++|          PJN    RCD2        IF NOT SYSTEM DEVICE
01715  M01S01579.msm     +++| RCD5     LDD    P1
01716  M01S01580.msm     +++|          LJM    HNG         DISPLAY MESSAGE AND HANG
Line S01581 Modification History
M01 (Added by) msm
M02 (Updated by) ns2552
Seq #  *Modification Id* Act 
----------------------------+
01717  M02S01581.ns2552  ---|
Line S01582 Modification History
M01 (Added by) msm
M02 (Updated by) ns2552
Seq #  *Modification Id* Act 
----------------------------+
01718  M02S01582.ns2552  ---|*         TRT READ TO CM BUFFER.
Line S01583 Modification History
M01 (Added by) msm
M02 (Updated by) ns2552
Seq #  *Modification Id* Act 
----------------------------+
01719  M02S01583.ns2552  ---|
Line S01584 Modification History
M01 (Added by) msm
M02 (Updated by) ns2552
Seq #  *Modification Id* Act 
----------------------------+
01720  M02S01584.ns2552  ---| RCD6     LDD    RS
Line S01585 Modification History
M01 (Added by) msm
M02 (Updated by) ns2552
Seq #  *Modification Id* Act 
----------------------------+
01721  M02S01585.ns2552  ---|          NJN    RCD7        IF RECOVERY REQUESTED
Line S01586 Modification History
M01 (Added by) msm
M02 (Updated by) ns2552
Seq #  *Modification Id* Act 
----------------------------+
01722  M02S01586.ns2552  ---|          RJM    ETT         EDIT TRT
Line S01587 Modification History
M01 (Added by) msm
M02 (Updated by) ns2552
Seq #  *Modification Id* Act 
----------------------------+
01723  M02S01587.ns2552  ---|          ZJN    RCD8        IF EDITING SUCCESSFUL
Line S01588 Modification History
M01 (Added by) msm
M02 (Updated by) ns2552
Seq #  *Modification Id* Act 
----------------------------+
01724  M02S01588.ns2552  ---|          LDC    STLK*10000+RCDB
Line S01589 Modification History
M01 (Added by) msm
M02 (Updated by) ns2552
Seq #  *Modification Id* Act 
----------------------------+
01725  M02S01589.ns2552  ---|          UJP    RCD1        PROCESS TRT LINKAGE ERROR
Line S01590 Modification History
M01 (Added by) msm
M02 (Updated by) ns2552
Seq #  *Modification Id* Act 
----------------------------+
01726  M02S01590.ns2552  ---|
Line S01591 Modification History
M01 (Added by) msm
M02 (Updated by) ns2552
Seq #  *Modification Id* Act 
----------------------------+
01727  M02S01591.ns2552  ---| RCD7     RJM    CTT         COPY TRT
Line S01592 Modification History
M01 (Added by) msm
M02 (Updated by) ns2552
Seq #  *Modification Id* Act 
----------------------------+
01728  M02S01592.ns2552  ---|
Line S01593 Modification History
M01 (Added by) msm
M02 (Updated by) ns2552
Seq #  *Modification Id* Act 
----------------------------+
01729  M02S01593.ns2552  ---|*         TRT RECOVERED AND EDITED OR COPIED TO CMR.
Line S01594 Modification History
M01 (Added by) msm
M02 (Updated by) ns2552
Seq #  *Modification Id* Act 
----------------------------+
01730  M02S01594.ns2552  ---|
Line S01595 Modification History
M01 (Added by) msm
M02 (Updated by) ns2552
Seq #  *Modification Id* Act 
----------------------------+
01731  M02S01595.ns2552  ---| RCD8     RJM    EMT         ENTER MST
Line S01596 Modification History
M01 (Added by) msm
M02 (Updated by) ns2552
Seq #  *Modification Id* Act 
----------------------------+
01732  M02S01596.ns2552  ---|          RJM    ATC         ADJUST TRACK COUNT
Line S01597 Modification History
M01 (Added by) msm
M02 (Updated by) ns2552
Seq #  *Modification Id* Act 
----------------------------+
01733  M02S01597.ns2552  ---|          RJM    CTD         COPY TRT BACK TO DISK
Line S01598 Modification History
M01 (Added by) msm
M02 (Updated by) ns2552
Seq #  *Modification Id* Act 
----------------------------+
01734  M02S01598.ns2552  ---|          RJM    CDC         CHASE DAYFILE CHAIN
Line S01599 Modification History
M01 (Added by) msm
M02 (Updated by) ns2552
Seq #  *Modification Id* Act 
----------------------------+
01735  M02S01599.ns2552  ---|*         LDN    0           (*MRL* REWRITE RECOVERY TABLE FLAG)
Line S01600 Modification History
M01 (Added by) msm
M02 (Updated by) ns2552
Seq #  *Modification Id* Act 
----------------------------+
01736  M02S01600.ns2552  ---|          UJN    RCD3        RETURN
01737  M01S01601.msm     +++|
01738  M01S01602.msm     +++|
01739  M01S01603.msm     +++| RCDA     DATA   C*TRT LENGTH ERROR.*
01740  M01S01604.msm     +++| RCDB     DATA   C*PF LINKAGE ERROR.*
01741  M01S00038.283l840 +++| RDY      SPACE  4,10
01742  M01S00039.283l840 +++|**        RDY - RECOVER DAYFILES.
01743  M01S00040.283l840 +++|*
01744  M01S00041.283l840 +++|*         ENTRY  (MBUF) = MST.
01745  M01S00042.283l840 +++|*
01746  M01S00043.283l840 +++|*         USES   P1.
01747  M01S00044.283l840 +++|*
01748  M01S00045.283l840 +++|*         CALLS  CDC, *4DG*, *4DJ*.
01749  M01S00046.283l840 +++|*
01750  M01S00047.283l840 +++|*         MACROS EXECUTE.
01751  M01S00048.283l840 +++|
01752  M01S00049.283l840 +++|
01753  M01S00050.283l840 +++| RDY      SUBR               ENTRY/EXIT
01754  M01S00051.283l840 +++|          LDM    MBUF+5*ACGL+4
01755  M01S00052.283l840 +++|          LPC    MGLAP
01756  M01S00053.283l840 +++|          ZJN    RDYX        IF NO SECTOR OF LOCAL AREAS
01757  M01S00054.283l840 +++|          LDN    EXDF        SET NUMBER OF EXCESS DAYFILES
01758  M01S00055.283l840 +++|          STD    P1
01759  M01S00056.283l840 +++| RDY1     SOD    P1
01760  M01S00057.283l840 +++|          MJN    RDYX        IF END OF DAYFILES
01761  M01S00058.283l840 +++|          LDM    MBUF+5*DALL,P1
01762  M01S00059.283l840 +++|          ZJN    RDY1        IF NO TRACK ASSIGNED
01763  M01S00060.283l840 +++|          EXECUTE  4DJ       LOAD DAYFILE RECOVERY ROUTINES
01764  M01S00061.283l840 +++|          RJM    CDC         CHASE DAYFILE CHAIN
01765  M01S00062.283l840 +++|          EXECUTE  4DG       RELOAD RECOVERY ROUTINES
01766  M01S00063.283l840 +++|          UJN    RDYX        RETURN
01767  M01S01605.msm     +++| REM      SPACE  4,10
01768  M01S01606.msm     +++|**        REM - RESTORE UEM FROM CHECKPOINT FILE IF LEVEL 1 OR 2
01769  M01S01607.msm     +++|*              DEADSTART AND UEM IS PRESENT.
01770  M01S01608.msm     +++|*
01771  M01S01609.msm     +++|*         USES   LO.
01772  M01S01610.msm     +++|*
01773  M01S01611.msm     +++|*         CALLS  4DK.
01774  M01S01612.msm     +++|*
01775  M01S01613.msm     +++|*         MACROS EXECUTE.
01776  M01S01614.msm     +++|
01777  M01S01615.msm     +++|
01778  M01S01616.msm     +++| REM1     STM    MRLC        RESTORE PROCESSING OF ALL EQUIPMENTS
01779  M01S01617.msm     +++|
01780  M01S01618.msm     +++| REM      SUBR               ENTRY
01781  M01S01619.msm     +++|          SOM    REMA
01782  M01S01620.msm     +++|          ZJN    REM1        IF UEM NOT TO BE RESTORED THIS PASS
01783  M01S01621.msm     +++|          EXECUTE  4DK       RESTORE UEM
01784  M01S01622.msm     +++|
01785  M01S01623.msm     +++|*         *4DK* DOES NOT RETURN CONTROL HERE.  IT EXITS TO *RMS1*.
01786  M01S01624.msm     +++|
01787  M01S01625.msm     +++| REMA     CON    1           IF ZERO, *4DK* WILL NOT BE CALLED
Line S01626 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
01788  M02S01626.283l840 ---| RLD      SPACE  4
01789  M01S00064.283l840 +++| RLD      SPACE  4,15
01790  M01S01627.msm     +++|**        RLD - RECOVER LINK DEVICE.
01791  M01S01628.msm     +++|*
01792  M01S01629.msm     +++|*         ENTRY  (FN - FN+4) = EST ENTRY FOR LINK DEVICE.
01793  M01S01630.msm     +++|*                (RD - RD+4) = RECOVERY INFORMATION FOR LINK DEVICE.
01794  M01S01631.msm     +++|*
Line S01632 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
01795  M02S01632.283l840 ---|*         CALLS  CDS, EMF, IMS, LDT, LRA, RCD, RDL, SEM.
01796  M01S00065.283l840 +++|*         USES   EQ, P1, P2, RC, RE, T5, CM - CM+4, CN - CN+4.
01797  M01S00066.283l840 +++|*
01798  M01S00067.283l840 +++|*         CALLS  CDS, EMF, IMS, LDT, LRA, RCD, RDL, SEM, *0MF*, *4DB*,
01799  M01S00068.283l840 +++|*                *4DD*, *4DG*, *4DH*.
01800  M01S01633.msm     +++|*
01801  M01S01634.msm     +++|*         MACROS EXECUTE, MONITOR.
01802  M01S01635.msm     +++|
01803  M01S01636.msm     +++|
01804  M01S01637.msm     +++| RLD2     LDD    RE
01805  M01S01638.msm     +++|          SHN    21-4
01806  M01S01639.msm     +++|          PJN    RLD3        IF INITIALIZE NOT SPECIFIED
01807  M01S00069.283l840 +++|          EXECUTE  4DD       LOAD VERIFICATION ROUTINES
Line S01640 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
01808  M02S01640.283l840 ---|          EXECUTE  4DI       LOAD INITIALIZATION ROUTINES
01809  M01S00070.283l840 +++|          EXECUTE  4DH       LOAD INITIALIZATION ROUTINES
01810  M01S01641.msm     +++|          LCN    0           INITIALIZE LINK DEVICE
01811  M01S01642.msm     +++|          RJM    IMS
01812  M01S01643.msm     +++|          SOM    RMSA        DECREMENT INITIALIZATION COUNT
01813  M01S01644.msm     +++|          UJN    RLD4        CHECK LABEL TRACK
01814  M01S01645.msm     +++|
Line S01646 Modification History
M01 (Added by) msm
M02 (Updated by) msm49
Seq #  *Modification Id* Act 
----------------------------+
01815  M02S01646.msm49   ---| RLD3     RJM    RDL         READ DEVICE LABEL
01816  M01S00026.msm49   +++| RLD3     LDN    PSNI        FORCE LINK DEVICE SIZE VERIFICATION
01817  M01S00027.msm49   +++|          STM    WMTC
01818  M01S00028.msm49   +++|          RJM    RDL         READ DEVICE LABEL
01819  M01S01647.msm     +++|          EXECUTE  4DD       LOAD VERIFICATION ROUTINES
01820  M01S00071.283l840 +++|          EXECUTE  4DG       LOAD RECOVERY ROUTINES
01821  M01S01648.msm     +++|          RJM    LDT         LOAD DEVICE ACCESS TABLE
01822  M01S01649.msm     +++|          LDD    EQ
01823  M01S01650.msm     +++|          STD    T5
01824  M01S01651.msm     +++|          LDN    0           CHECK DEVICE STATUS
01825  M01S01652.msm     +++|          RJM    CDS
Line S01653 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
01826  M02S01653.283l840 ---|          EXECUTE  4DG       LOAD RECOVERY ROUTINES
Line S01654 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
01827  M02S01654.283l840 ---|          EXECUTE  4DJ       LOAD DAYFILE RECOVERY ROUTINES
01828  M01S01655.msm     +++|          LDD    EQ
01829  M01S01656.msm     +++|          STD    T5
01830  M01S01657.msm     +++|          LDD    RE
01831  M01S01658.msm     +++|          RJM    RCD         RECOVER DEVICE
01832  M01S01659.msm     +++| RLD4     LDM    LDMP        GET DEVICE ALLOCATION WORD FROM MST
01833  M01S01660.msm     +++|          SHN    3
01834  M01S01661.msm     +++|          ADN    ALGL
01835  M01S01662.msm     +++|          CRD    CN
01836  M01S01663.msm     +++|          LDD    CN+1        CHECK LABEL TRACK
01837  M01S01664.msm     +++|          LMM    ECLT
01838  M01S01665.msm     +++|          ZJN    RLD5        IF SAME AS FOUND BY *CPUMTR*
01839  M01S01666.msm     +++|          MONITOR  HNGM      HANG PP
01840  M01S01667.msm     +++|
01841  M01S01668.msm     +++| RLD5     STD    RC
01842  M01S01669.msm     +++|          LDD    RE          SAVE LINK DEVICE RECOVERY STATUS
01843  M01S01670.msm     +++|          STM    UMTA
Line S01671 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
01844  M02S01671.283l840 ---|          LDC    **          SET *PRESET* COUNT
01845  M01S00072.283l840 +++|          LDC    **          *PRESET* COUNT
01846  M01S01672.msm     +++| RLDA     EQU    *-1
01847  M01S00073.283l840 +++|          ZJN    RLD6        IF PRESET NOT SPECIFIED
01848  M01S00074.283l840 +++|          STD    P1
01849  M01S00075.283l840 +++|          LDC    **          BUFFERED DEVICE *PRESET* COUNT
01850  M01S00076.283l840 +++| RLDC     EQU    *-1
01851  M01S01673.msm     +++|          STD    P2
Line S01674 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
01852  M02S01674.283l840 ---|          ZJN    RLD6        IF PRESET NOT SPECIFIED
01853  M01S01675.msm     +++|          EXECUTE 0MF,PRS
01854  M01S01676.msm     +++|          LDN    0           CLEAR LINK DEVICE RECOVERY STATUS
01855  M01S01677.msm     +++|          STM    UMTA
01856  M01S01678.msm     +++| RLD6     STD    RE          CLEAR RECOVERY FOR LINK DEVICE
01857  M01S01679.msm     +++|          RJM    LRA         LOAD REFERENCE ADDRESS
01858  M01S01680.msm     +++|          ADD    EQ
01859  M01S01681.msm     +++|          CWD    RD
01860  M01S01682.msm     +++|          EXECUTE 4DB        RELOAD *4DB*
01861  M01S01683.msm     +++|          LDC    LRMS        ENABLE MMF RECOVERY
01862  M01S01684.msm     +++|          RJM    EMF
01863  M01S01685.msm     +++|
01864  M01S01686.msm     +++| RLD      SUBR               ENTRY/EXIT
01865  M01S01687.msm     +++| RLDB     LDN    0
01866  M01S01688.msm     +++|*         LDN    1           (LINK DEVICE ALREADY RECOVERED)
01867  M01S01689.msm     +++|          NJN    RLDX        IF LINK DEVICE ALREADY RECOVERED
01868  M01S01690.msm     +++|          AOM    RLDB
Line S01691 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
01869  M02S01691.283l840 ---|          LDK    MMFL
Line S01692 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
01870  M02S01692.283l840 ---|          CRD    CM
Line S01693 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
01871  M02S01693.283l840 ---|          LDD    CM+1
Line S01694 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
01872  M02S01694.283l840 ---|          LPC    777
01873  M01S00077.283l840 +++|          LDC    **          (LINK DEVICE EST ORDINAL)
01874  M01S00078.283l840 +++| RLDD     EQU    *-1
01875  M01S01695.msm     +++|          ZJN    RLDX        IF STAND-ALONE SYSTEM
01876  M01S01696.msm     +++|          STD    T5
01877  M01S01697.msm     +++|          STD    EQ
Line S01698 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
01878  M02S01698.283l840 ---|          LDD    IR+2        CHECK PRESET COUNT
Line S01699 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
01879  M02S01699.283l840 ---|          NJN    RLD1        IF PRESET SELECTED
Line S01700 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
01880  M02S01700.283l840 ---|          LDC    LRMS        ENABLE MMF RECOVERY
01881  M01S00079.283l840 +++| RLDE     LDC    LRMS        ENABLE MMF RECOVERY
01882  M01S00080.283l840 +++|*         UJN    RLD1        (PRESET SELECTED)
01883  M01S01701.msm     +++|          RJM    EMF
Line S01702 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
01884  M02S01702.283l840 ---|          LDD    RS          CHECK RECOVERY STATUS
Line S01703 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
01885  M02S01703.283l840 ---|          LPN    FLMK
Line S01704 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
01886  M02S01704.283l840 ---|          LMN    FLCM
Line S01705 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
01887  M02S01705.283l840 ---|          ZJN    RLDX        IF CM RECOVERY
Line S01706 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
01888  M02S01706.283l840 ---|          STM    WMTB
01889  M01S00081.283l840 +++| RLDF     STM    WMTB        ENABLE LINK DEVICE RECOVERY
01890  M01S00082.283l840 +++|*         UJN    RLDX        (CM RECOVERY)
01891  M01S01707.msm     +++| RLD1     RJM    SEM         SET EQUIPMENT MESSAGE
01892  M01S01708.msm     +++|          LJM    RLD2        CHECK FOR INITIALIZATION
01893  M01S01709.msm     +++| UMT      SPACE  4
01894  M01S01710.msm     +++|**        UMT - UPDATE MMF TABLES IN EXTENDED MEMORY.
01895  M01S01711.msm     +++|*
01896  M01S01712.msm     +++|*         CALLS  IFR, LRA, MRL, UIS, 4DF.
01897  M01S01713.msm     +++|
01898  M01S01714.msm     +++|
01899  M01S01715.msm     +++| UMT1     LDC    UIS         UPDATE ISD TABLES
01900  M01S01716.msm     +++|          RJM    MRL
01901  M01S01717.msm     +++|
01902  M01S01718.msm     +++| UMT      SUBR               ENTRY/EXIT
01903  M01S01719.msm     +++|          EXECUTE  4DF
01904  M01S01720.msm     +++|          UJMF   UMT1
01905  M01S01721.msm     +++|          LDC    0
01906  M01S01722.msm     +++| UMTB     EQU    *-1         (LINK DEVICE EST ORDINAL)
01907  M01S01723.msm     +++|          STD    T5
01908  M01S01724.msm     +++|          RJM    LRA         LOAD REFERENCE ADDRESS
01909  M01S01725.msm     +++|          ADD    T5
01910  M01S01726.msm     +++|          CRD    RD
01911  M01S01727.msm     +++|          LDC    *           RESTORE LINK DEVICE RECOVERY STATUS
01912  M01S01728.msm     +++| UMTA     EQU    *-1
01913  M01S01729.msm     +++|          STD    RE
01914  M01S01730.msm     +++|          RJM    LRA         LOAD REFERENCE ADDRESS
01915  M01S01731.msm     +++|          ADD    T5
01916  M01S01732.msm     +++|          CWD    RD          RESTORE RECOVERY TABLES
01917  M01S01733.msm     +++|          LDC    UER         UPDATE EXTENDED MEMORY RESIDENT
01918  M01S01734.msm     +++|          RJM    MRL
Line S01735 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
01919  M02S01735.283l840 ---|          LDD    RS
Line S01736 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
01920  M02S01736.283l840 ---|          ZJN    UMTX        IF LEVEL 0 DEADSTART
Line S01737 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
01921  M02S01737.283l840 ---|          LPN    FLMK
Line S01738 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
01922  M02S01738.283l840 ---|          LMN    FLCM
Line S01739 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
01923  M02S01739.283l840 ---|          ZJN    UMTX        IF CM RECOVERY
Line S01740 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
01924  M02S01740.283l840 ---|          LCN    DATI        CLEAR FLAG REGISTER INTERLOCK
01925  M01S00083.283l840 +++| UMTC     LCN    DATI        CLEAR FLAG REGISTER INTERLOCK
01926  M01S00084.283l840 +++|*         UJN    UMTX        (LEVEL 0 DEADSTART OR CM RECOVERY)
01927  M01S01741.msm     +++|          RJM    IFR
01928  M01S01742.msm     +++|          LJM    UMTX        RETURN
Line S01743 Modification History
M01 (Added by) msm
M02 (Updated by) ns2552
Seq #  *Modification Id* Act 
----------------------------+
01929  M02S01743.ns2552  ---| VFP      SPACE  4,10
Line S01744 Modification History
M01 (Added by) msm
M02 (Updated by) ns2552
Seq #  *Modification Id* Act 
----------------------------+
01930  M02S01744.ns2552  ---|**        VPF - VERIFY PF SYSTEM FOR CONFLICTS IN -
Line S01745 Modification History
M01 (Added by) msm
M02 (Updated by) ns2552
Seq #  *Modification Id* Act 
----------------------------+
01931  M02S01745.ns2552  ---|*                DEVICE NUMBERS.
Line S01746 Modification History
M01 (Added by) msm
M02 (Updated by) ns2552
Seq #  *Modification Id* Act 
----------------------------+
01932  M02S01746.ns2552  ---|*                DEVICE MASKS.
Line S01747 Modification History
M01 (Added by) msm
M02 (Updated by) ns2552
Seq #  *Modification Id* Act 
----------------------------+
01933  M02S01747.ns2552  ---|*                PACKNAMES.
Line S01748 Modification History
M01 (Added by) msm
M02 (Updated by) ns2552
Seq #  *Modification Id* Act 
----------------------------+
01934  M02S01748.ns2552  ---|*
Line S01749 Modification History
M01 (Added by) msm
M02 (Updated by) ns2552
Seq #  *Modification Id* Act 
----------------------------+
01935  M02S01749.ns2552  ---|*         ENTRY  (RC) = COUNT OF RECOVERED DEVICES.
Line S01750 Modification History
M01 (Added by) msm
M02 (Updated by) ns2552
Seq #  *Modification Id* Act 
----------------------------+
01936  M02S01750.ns2552  ---|*
Line S01751 Modification History
M01 (Added by) msm
M02 (Updated by) ns2552
Seq #  *Modification Id* Act 
----------------------------+
01937  M02S01751.ns2552  ---|*         USES   CM - CM+4, CN - CN+4, FN - FN+4, P1.
Line S01752 Modification History
M01 (Added by) msm
M02 (Updated by) ns2552
Seq #  *Modification Id* Act 
----------------------------+
01938  M02S01752.ns2552  ---|*
Line S01753 Modification History
M01 (Added by) msm
M02 (Updated by) ns2552
Seq #  *Modification Id* Act 
----------------------------+
01939  M02S01753.ns2552  ---|*         CALLS  SDF, SFE, VMS, *4DC*.
Line S01754 Modification History
M01 (Added by) msm
M02 (Updated by) ns2552
Seq #  *Modification Id* Act 
----------------------------+
01940  M02S01754.ns2552  ---|*
Line S01755 Modification History
M01 (Added by) msm
M02 (Updated by) ns2552
Seq #  *Modification Id* Act 
----------------------------+
01941  M02S01755.ns2552  ---|*         MACROS EXECUTE, MONITOR.
Line S01756 Modification History
M01 (Added by) msm
M02 (Updated by) ns2552
Seq #  *Modification Id* Act 
----------------------------+
01942  M02S01756.ns2552  ---|
Line S01757 Modification History
M01 (Added by) msm
M02 (Updated by) ns2552
Seq #  *Modification Id* Act 
----------------------------+
01943  M02S01757.ns2552  ---|
Line S01758 Modification History
M01 (Added by) msm
M02 (Updated by) ns2552
Seq #  *Modification Id* Act 
----------------------------+
01944  M02S01758.ns2552  ---|*         RESET DEFAULT FAMILY EQUIPMENT TO FAMILY MASTER EQUIPMENT.
Line S01759 Modification History
M01 (Added by) msm
M02 (Updated by) ns2552
Seq #  *Modification Id* Act 
----------------------------+
01945  M02S01759.ns2552  ---|
Line S01760 Modification History
M01 (Added by) msm
M02 (Updated by) ns2552
Seq #  *Modification Id* Act 
----------------------------+
01946  M02S01760.ns2552  ---| VPF2     RJM    SDF         SET DEFAULT FAMILY NAME
Line S01761 Modification History
M01 (Added by) msm
M02 (Updated by) ns2552
Seq #  *Modification Id* Act 
----------------------------+
01947  M02S01761.ns2552  ---|          RJM    SFE         SET FAMILY EQUIPMENT
Line S01762 Modification History
M01 (Added by) msm
M02 (Updated by) ns2552
Seq #  *Modification Id* Act 
----------------------------+
01948  M02S01762.ns2552  ---|          NJN    VPFX        IF MASTER EQUIPMENT NOT FOUND
Line S01763 Modification History
M01 (Added by) msm
M02 (Updated by) ns2552
Seq #  *Modification Id* Act 
----------------------------+
01949  M02S01763.ns2552  ---|          LDD    T2          SET FAMILY EST ORDINAL IN *PFNL*
Line S01764 Modification History
M01 (Added by) msm
M02 (Updated by) ns2552
Seq #  *Modification Id* Act 
----------------------------+
01950  M02S01764.ns2552  ---|          STD    CN+3
Line S01765 Modification History
M01 (Added by) msm
M02 (Updated by) ns2552
Seq #  *Modification Id* Act 
----------------------------+
01951  M02S01765.ns2552  ---|          LDC    PFNL
Line S01766 Modification History
M01 (Added by) msm
M02 (Updated by) ns2552
Seq #  *Modification Id* Act 
----------------------------+
01952  M02S01766.ns2552  ---|          CWD    CN
Line S01767 Modification History
M01 (Added by) msm
M02 (Updated by) ns2552
Seq #  *Modification Id* Act 
----------------------------+
01953  M02S01767.ns2552  ---|
Line S01768 Modification History
M01 (Added by) msm
M02 (Updated by) ns2552
Seq #  *Modification Id* Act 
----------------------------+
01954  M02S01768.ns2552  ---| VPF      SUBR               ENTRY/EXIT.
Line S01769 Modification History
M01 (Added by) msm
M02 (Updated by) ns2552
Seq #  *Modification Id* Act 
----------------------------+
01955  M02S01769.ns2552  ---|          LDN    0
Line S01770 Modification History
M01 (Added by) msm
M02 (Updated by) ns2552
Seq #  *Modification Id* Act 
----------------------------+
01956  M02S01770.ns2552  ---|          STD    P1
Line S01771 Modification History
M01 (Added by) msm
M02 (Updated by) ns2552
Seq #  *Modification Id* Act 
----------------------------+
01957  M02S01771.ns2552  ---|          EXECUTE  4DC       LOAD VERIFICATION ROUTINES
Line S01772 Modification History
M01 (Added by) msm
M02 (Updated by) ns2552
Seq #  *Modification Id* Act 
----------------------------+
01958  M02S01772.ns2552  ---|          LDD    RC
Line S01773 Modification History
M01 (Added by) msm
M02 (Updated by) ns2552
Seq #  *Modification Id* Act 
----------------------------+
01959  M02S01773.ns2552  ---|          ZJN    VPF2        IF NO EQUIPMENT RECOVERED
Line S01774 Modification History
M01 (Added by) msm
M02 (Updated by) ns2552
Seq #  *Modification Id* Act 
----------------------------+
01960  M02S01774.ns2552  ---| VPF1     RJM    VMS         VERIFY PF SYSTEM FOR CONFLICTS
Line S01775 Modification History
M01 (Added by) msm
M02 (Updated by) ns2552
Seq #  *Modification Id* Act 
----------------------------+
01961  M02S01775.ns2552  ---|          ZJN    VPF2        IF NO CONFLICTS
Line S01776 Modification History
M01 (Added by) msm
M02 (Updated by) ns2552
Seq #  *Modification Id* Act 
----------------------------+
01962  M02S01776.ns2552  ---|          MJN    VPF1        IF ERROR ON NON-SYSTEM DEVICE
Line S01777 Modification History
M01 (Added by) msm
M02 (Updated by) ns2552
Seq #  *Modification Id* Act 
----------------------------+
01963  M02S01777.ns2552  ---|          LJM    HNG         DISPLAY ERROR AND HANG
01964  M01S01778.msm     +++|          SPACE  4
01965  M01S01779.msm     +++|          USE    LITERALS
01966  M01S01780.msm     +++|          TITLE  PRESET PROGRAM.
01967  M01S01781.msm     +++| PRS      SPACE  4
01968  M01S01782.msm     +++|**        PRS - PRESET.
01969  M01S01783.msm     +++|*
01970  M01S01784.msm     +++|*         EXIT   (RS) = RECOVERY STATUS.
01971  M01S01785.msm     +++|*                (TW) = CONSTANT 2.
01972  M01S01786.msm     +++|*                (LM) = EXTENDED MEMORY MST POINTER IF MMF SYSTEM.
01973  M01S01787.msm     +++|*                (LO) = LAST MASS STORAGE ORDINAL + 1.
01974  M01S01788.msm     +++|*                (FN - FN+4) = EXTENDED MEMORY EST ENTRY IF MMF SYSTEM.
01975  M01S01789.msm     +++|*                (CA+1) = FWA FOR CM TRT BUFFER.
01976  M01S01790.msm     +++|*                DEVICE RECOVERY STATUS TABLE IN *MSM-S* FL SET WITH
01977  M01S01791.msm     +++|*                RECOVERY STATUS INFORMATION AND CM ADDRESSES FOR MST
01978  M01S01792.msm     +++|*                LABEL DATA.
01979  M01S01793.msm     +++|*
01980  M01S01794.msm     +++|*         USES   CA, CA+1, LO, P1, RE, RS, TA, TW, T5, CM - CM+4,
01981  M01S01795.msm     +++|*                CN - CN+4, FN - FN+4, RD - RD+4.
01982  M01S01796.msm     +++|*
01983  M01S01797.msm     +++|*         CALLS  CRE, CUR, IET, IFR, LCM, SUD.
01984  M01S01798.msm     +++|*
01985  M01S01799.msm     +++|*         MACROS SFA.
01986  M01S01800.msm     +++|
01987  M01S01801.msm     +++|
01988  M01S01802.msm     +++| PRS      BSS    0
01989  M01S01803.msm     +++|          LDN    JSCL        READ SCHEDULER CONTROL
01990  M01S01804.msm     +++|          CRD    CM
01991  M01S01805.msm     +++|          LDD    CM          SET SCHEDULER ACTIVE
01992  M01S01806.msm     +++|          LPC    3777
01993  M01S01807.msm     +++|          LMC    4000
01994  M01S01808.msm     +++|          STD    CM
01995  M01S01809.msm     +++|          LDN    JSCL        STORE SCHEDULER CONTROL
01996  M01S01810.msm     +++|          CWD    CM
01997  M01S01811.msm     +++|          LDN    2           DEFINE CONSTANT 2
01998  M01S01812.msm     +++|          STD    TW
01999  M01S01813.msm     +++|          LDN    ESTP        READ EST POINTER
02000  M01S01814.msm     +++|          CRD    CM
02001  M01S01815.msm     +++|          LDD    CM+3        SET LAST MASS STORAGE ORDINAL + 1
02002  M01S01816.msm     +++|          STD    LO
02003  M01S01817.msm     +++|          ADN    7           SET INDEX IN MST TABLE
02004  M01S01818.msm     +++|          SCN    7
02005  M01S01819.msm     +++|          STD    CA
02006  M01S01820.msm     +++|          STD    CA+1
02007  M01S01821.msm     +++|          LDD    IR+4        SET RECOVERY STATUS
02008  M01S01822.msm     +++|*         STD    RS
02009  M01S01823.msm     +++|          STM    RMSD+4      STORE IN *REC* CALL
02010  M01S00085.283l840 +++|          NJN    PRS0        IF NOT LEVEL 0 DEADSTART
02011  M01S00086.283l840 +++|          ISTORE CDSA,(PJN CDS11)
02012  M01S00087.283l840 +++|          ISTORE CDSB,(UJN CDS11)
02013  M01S00088.283l840 +++|          ISTORE RCDC,(UJN RCD4)
02014  M01S00089.283l840 +++|          ISTORE UMTC,(UJN UMTX)
02015  M01S00090.283l840 +++| PRS0     LDD    RS
02016  M01S01824.msm     +++|          LPN    FLMK
02017  M01S01825.msm     +++|          LMN    FLCM
02018  M01S01826.msm     +++|          STD    P1
02019  M01S01827.msm     +++|          NJN    PRS1        IF NOT CM RECOVERY
02020  M01S01828.msm     +++|          IFGT   TA,RA
02021  M01S01829.msm     +++|          LDN    RA-TA
02022  M01S01830.msm     +++|          ELSE   1
02023  M01S01831.msm     +++|          LCN    RA-TA
02024  M01S01832.msm     +++|          RAM    LRAC
02025  M01S01833.msm     +++|          RJM    LCM         FIND FREE AREA
02026  M01S01834.msm     +++|          LDK    MABL        CHECK MAINFRAME TYPE
02027  M01S01835.msm     +++|          CRD    CM
02028  M01S01836.msm     +++|          LDD    CM+1
02029  M01S01837.msm     +++|          SHN    21-13
02030  M01S01838.msm     +++|          MJN    PRS1        IF CME NOT PRESENT
02031  M01S01839.msm     +++|          LDC    4000
02032  M01S01840.msm     +++|          STD    TA
02033  M01S01841.msm     +++|          LDC    0
02034  M01S01842.msm     +++|          ORG    *-1
02035  M01S01843.msm     +++|          LOC    LRAA
02036  M01S01844.msm     +++|          UJN    LRA1        SET *R* REGISTER
02037  M01S01845.msm     +++|          LOC    *O
02038  M01S01846.msm     +++|          STM    LRAA
02039  M01S01847.msm     +++| PRS1     RJM    IET         INITIALIZE EQUIPMENT TABLE
02040  M01S01848.msm     +++|          LDD    P2
02041  M01S01849.msm     +++|          NJN    PRS2        IF NOT ALL-ISD CONFIGURATION
02042  M01S01850.msm     +++|          LDK    CFGL
02043  M01S01851.msm     +++|          CRD    CM
02044  M01S01852.msm     +++|          LDD    CM+3
02045  M01S01853.msm     +++|          LPC    7377
02046  M01S01854.msm     +++|          ADC    400         SET ALL-ISD FLAG
02047  M01S01855.msm     +++|          STD    CM+3
02048  M01S01856.msm     +++|          LDK    CFGL
02049  M01S01857.msm     +++|          CWD    CM
02050  M01S01858.msm     +++| PRS2     LDD    CA          SET ADDRESS OF TRT BUFFER
02051  M01S01859.msm     +++|          STD    CA+1
02052  M01S01860.msm     +++|          LDC    CPAS+MS1W   ISSUE *SPINNING UP DRIVES* MESSAGE
02053  M01S01861.msm     +++|          CWM    PRSE,TR
02054  M01S01862.msm     +++|          LDN    0           SPIN UP ISMD DRIVES
02055  M01S01863.msm     +++|          RJM    SUD
02056  M01S01864.msm     +++|          LDN    0           WAIT - SPIN UP COMPLETE
02057  M01S01865.msm     +++|          RJM    SUD
02058  M01S01866.msm     +++|          LDC    CPAS+MS1W   ISSUE RECOVERY MESSAGE
02059  M01S01867.msm     +++|          CWM    PRSA,TW
02060  M01S01868.msm     +++|          LDD    P1
02061  M01S01869.msm     +++|          NJN    PRS3        IF NOT CM RECOVERY
02062  M01S01870.msm     +++|          STM    RMSB
02063  M01S01871.msm     +++|          RJM    LCM         CHECK FIELD LENGTH
02064  M01S01872.msm     +++|          RJM    CRE         CHECK RECOVERY
02065  M01S01873.msm     +++| PRS3     LDN    DFPP
02066  M01S01874.msm     +++|          CRD    CM
02067  M01S01875.msm     +++|          LDD    CM          SET FWA OF DAYFILE POINTERS
02068  M01S01876.msm     +++|          SHN    14
02069  M01S01877.msm     +++|          ADD    CM+1
02070  M01S01878.msm     +++|          CRD    CM
02071  M01S01879.msm     +++|          LDD    CM          SET ADDRESS OF DAYFILE RECOVERY SELECTIONS
02072  M01S01880.msm     +++|          RAM    RMSC-1
02073  M01S01881.msm     +++|          LPN    37
02074  M01S01882.msm     +++|          SHN    14
02075  M01S01883.msm     +++|          ADD    CM+1
02076  M01S01884.msm     +++|          STM    RMSC
02077  M01S01885.msm     +++|          CRM    RMSF,ON     READ DAYFILE RECOVERY SELECTIONS
02078  M01S01886.msm     +++|          RJM    CUR         CHECK FOR UEM RECOVERY REQUIRED
02079  M01S01887.msm     +++|          LDK    MMFL        CHECK MMF STATUS WORD
02080  M01S01888.msm     +++|          CRD    CN
Line S01889 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
02081  M02S01889.283l840 ---|          LDD    CN+1
02082  M01S00091.283l840 +++|          LDD    CN+1        GET LINK DEVICE EST ORDINAL
02083  M01S01890.msm     +++|          LPC    777
02084  M01S00092.283l840 +++|          STM    RLDD
02085  M01S01891.msm     +++|          NJN    PRS5        IF NOT STAND ALONE SYSTEM
02086  M01S01892.msm     +++| PRS4     LDC    DSCP*200+MS1W  STORE RECOVERY MESSAGE
02087  M01S01893.msm     +++|          CWM    PRSF,TW
02088  M01S01894.msm     +++|          LJM    RMS1        EXIT TO MAIN ROUTINE
02089  M01S01895.msm     +++|
02090  M01S01896.msm     +++| PRS5     STD    T5
02091  M01S01897.msm     +++|          STM    UMTB
02092  M01S01898.msm     +++|          SFA    EST         READ LINK DEVICE EST ENTRY TO (FN - FN+4)
02093  M01S01899.msm     +++|          ADK    EQDE
02094  M01S01900.msm     +++|          CRD    FN
02095  M01S01901.msm     +++|          LDD    IR+3        CHECK FOR INITIALIZE ERROR FROM *CPUMTR*
02096  M01S01902.msm     +++|          STM    ECLT
02097  M01S01903.msm     +++|          SHN    21-13
02098  M01S01904.msm     +++|          MJN    PRS6        IF NO ERROR
02099  M01S01905.msm     +++|          LDM    PRSB-1,IR+3 DISPLAY ERROR CONDITION
02100  M01S01906.msm     +++|          LJM    HNG
02101  M01S01907.msm     +++|
02102  M01S01908.msm     +++| PRS6     LDD    CN+3        SET MACHINE MASK
02103  M01S01909.msm     +++|          STM    CADA
02104  M01S01910.msm     +++|          RJM    LRA         LOAD REFERENCE ADDRESS
02105  M01S01911.msm     +++|          ADD    T5
02106  M01S01912.msm     +++|          CRD    RD
02107  M01S01913.msm     +++|          LDD    RE          ASSIGN SYSTEM STATUS TO LINK DEVICE
02108  M01S01914.msm     +++|          LPC    5520
02109  M01S01915.msm     +++|          LMC    2000
02110  M01S01916.msm     +++|          STD    RE
02111  M01S01917.msm     +++|          RJM    LRA         LOAD REFERENCE ADDRESS
02112  M01S01918.msm     +++|          ADD    T5          RESTORE LINK DEVICE INFORMATION
02113  M01S01919.msm     +++|          CWD    RD
02114  M01S01920.msm     +++|          LDD    FN+4        SET LINK DEVICE MST POINTER
02115  M01S01921.msm     +++|          STM    LDMP
Line S01922 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
02116  M02S01922.283l840 ---|          LDD    IR+2        CHECK PRESET REQUESTED
02117  M01S00093.283l840 +++|          LDK    DSCL        CHECK PRESET REQUESTED
02118  M01S00094.283l840 +++|          CRD    CM
02119  M01S00095.283l840 +++|          LDD    CM+3
02120  M01S01923.msm     +++|          STM    RLDA
02121  M01S00096.283l840 +++|          ZJN    PRS6.1      IF *PRESET* NOT SELECTED
02122  M01S00097.283l840 +++|          ISTORE RLDE,(UJN RLD1)
02123  M01S00098.283l840 +++| PRS6.1   LDD    CM+4
02124  M01S00099.283l840 +++|          STM    RLDC
02125  M01S01924.msm     +++|          LDD    P1
Line S01925 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
02126  M02S01925.283l840 ---|          ZJN    PRS8        IF CM RECOVERY
Line S01926 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
02127  M02S01926.283l840 ---|          LDD    RS
02128  M01S00100.283l840 +++|          NJN    PRS6.2      IF NOT CM RECOVERY
02129  M01S00101.283l840 +++|          ISTORE RLDF,(UJN RLDX)
02130  M01S00102.283l840 +++|          ISTORE UMTC,(UJN UMTX)
02131  M01S00103.283l840 +++|          UJN    PRS8        STORE RECOVERY MESSAGE
02132  M01S00104.283l840 +++|
02133  M01S00105.283l840 +++| PRS6.2   LDD    RS
02134  M01S01927.msm     +++|          NJN    PRS7        IF RECOVERY SELECTED
02135  M01S01928.msm     +++|          LDC    4000        SET DAT INTERLOCKED
02136  M01S01929.msm     +++|          STD    CN+2
02137  M01S01930.msm     +++|          LDC    MMFL        STORE MMF STATUS WORD
02138  M01S01931.msm     +++|          CWD    CN
02139  M01S01932.msm     +++| PRS7     SBN    1           DELAY
02140  M01S01933.msm     +++|          NJN    PRS7
02141  M01S01934.msm     +++|          LDC    CPAS+MS1W+1 STORE *WAITING* MESSAGE
02142  M01S01935.msm     +++|          CWM    PRSC,ON
02143  M01S01936.msm     +++|          ADN    MS2W-MS1W-2
02144  M01S01937.msm     +++|          CWM    PRSD,TR
02145  M01S01938.msm     +++|          LDN    DATI        GET FLAG REGISTER INTERLOCK
02146  M01S01939.msm     +++|          RJM    IFR
02147  M01S01940.msm     +++|          NJN    PRS7        IF DAT BUSY
02148  M01S01941.msm     +++| PRS8     LJM    PRS4        STORE RECOVERY MESSAGE
02149  M01S01942.msm     +++|
02150  M01S01943.msm     +++| PRSA     DATA   C*RECOVERY,*
02151  M01S01944.msm     +++|
02152  M01S01945.msm     +++| PRSB     CON    ERM1
02153  M01S01946.msm     +++|          CON    ERM2
02154  M01S01947.msm     +++|          CON    ERM3
02155  M01S01948.msm     +++|          CON    ERM4
02156  M01S01949.msm     +++|          CON    ERM5
02157  M01S01950.msm     +++|          CON    ERM6
02158  M01S01951.msm     +++|
02159  M01S01952.msm     +++| ERM1     DATA   C*EXTENDED MEMORY LABEL TRACK NOT FOUND.*
02160  M01S01953.msm     +++| ERM2     DATA   C*MID UNDEFINED IN EXTENDED MEMORY.*
02161  M01S01954.msm     +++| ERM3     DATA   C*MID CURRENTLY ACTIVE.*
02162  M01S01955.msm     +++| ERM4     DATA   C*MAXIMUM NUMBER MIDS ACTIVE.*
02163  M01S01956.msm     +++| ERM5     DATA   C*EXTENDED MEMORY READ/WRITE PARITY ERRORS.*
02164  M01S01957.msm     +++| ERM6     DATA   C*PRESET NOT ALLOWED.*
02165  M01S01958.msm     +++|
02166  M01S01959.msm     +++| PRSC     DATA   C*WAITING*
02167  M01S01960.msm     +++| PRSD     DATA   C*MMF DEADSTART IN PROGRESS.*
02168  M01S01961.msm     +++| PRSE     DATA   C*SPINNING UP DRIVES.*
02169  M01S01962.msm     +++| PRSF     DATA   C*RECOVERING*
02170  M01S01963.msm     +++| CRE      SPACE  4,10
02171  M01S01964.msm     +++|**        CRE - CHECK RECOVERY.
02172  M01S01965.msm     +++|*
02173  M01S01966.msm     +++|*         EXIT   TO *PPR* TO CALL *1CK* IF ONLY TO CHECKPOINT.
02174  M01S01967.msm     +++|*
02175  M01S01968.msm     +++|*         USES   T1 - T6, CM - CM+4.
02176  M01S01969.msm     +++|*         MACROS SFA.
02177  M01S01970.msm     +++|
02178  M01S01971.msm     +++|
02179  M01S01972.msm     +++| CRE7     LDN    7           SET CHECKPOINT OF NON-BUFFERED DEVICES
02180  M01S01973.msm     +++|          STM    CREB+2
02181  M01S01974.msm     +++| CRE8     LDN    NCPL        CALL *1CK* TO SYSTEM CP
02182  M01S01975.msm     +++|          CRD    CM
02183  M01S01976.msm     +++|          AOD    CM+1
02184  M01S01977.msm     +++|          RAM    CREB+1
02185  M01S01978.msm     +++|          LDD    IA
02186  M01S01979.msm     +++|          CWM    CREB,ON
02187  M01S01980.msm     +++|          EXECUTE  1CK,=
02188  M01S01981.msm     +++|          LJM    PPR         EXIT TO PP RESIDENT
02189  M01S01982.msm     +++|
02190  M01S01983.msm     +++| CRE      SUBR               ENTRY/EXIT
02191  M01S01984.msm     +++|          LDD    IR+3
02192  M01S01985.msm     +++|          SHN    21-13
02193  M01S01986.msm     +++|          MJN    CRE2        IF LABEL TRACK SPECIFICATION
02194  M01S01987.msm     +++|          SHN    13-21
02195  M01S01988.msm     +++|          LPN    7
02196  M01S01989.msm     +++|          ZJN    CRE1        IF NO MMF PRESET ERROR
02197  M01S01990.msm     +++|          LMN    2
02198  M01S01991.msm     +++|          NJN    CREX        IF NOT *RECOVERY DS PREVENTED THIS MID.*
02199  M01S01992.msm     +++| CRE1     LDD    IR+3
02200  M01S01993.msm     +++|          SHN    21-12
02201  M01S01994.msm     +++|          MJN    CRE7        IF CHECKPOINT NON-BUFFERED DEVICES
02202  M01S01995.msm     +++| CRE2     LDC    BIOL
02203  M01S01996.msm     +++|          CRD    CM
02204  M01S01997.msm     +++|          LDD    CM+1
02205  M01S01998.msm     +++|          SHN    14
02206  M01S01999.msm     +++|          LMD    CM+2
02207  M01S02000.msm     +++|          NJN    CRE2.1      IF BUFFERED I/O PRESENT
02208  M01S02001.msm     +++|          LDD    IR+3
02209  M01S02002.msm     +++|          SHN    21-11
02210  M01S02003.msm     +++|          MJP    CRE8        IF CHECKPOINT ALL DEVICES
02211  M01S02004.msm     +++|          UJN    CREX        RETURN
02212  M01S02005.msm     +++|
02213  M01S02006.msm     +++| CRE2.1   ADN    PUTP
02214  M01S02007.msm     +++|          CRD    T1
02215  M01S00001.ns2682  +++|          LDD    T1+3        CLEAR FLAGS
02216  M01S00002.ns2682  +++|          LPN    77
02217  M01S00003.ns2682  +++|          STD    T1+3
02218  M01S02008.msm     +++|          LDC    CPAS+MS2W   ENTER MESSAGE
02219  M01S02009.msm     +++|          CWM    CREA,TR
02220  M01S02010.msm     +++|          LDN    ZERL        REQUEST FLUSH OF ALL WRITE BUFFERS
02221  M01S02011.msm     +++|          CRD    CM
02222  M01S02012.msm     +++|          LDC    BMFW*100+1
02223  M01S02013.msm     +++|          STD    CM+4
02224  M01S02014.msm     +++|          MONITOR  BFMM
02225  M01S02015.msm     +++| CRE3     LDD    T1          SET NUMBER OF ENTRIES
02226  M01S02016.msm     +++|          ADN    1
02227  M01S02017.msm     +++|          STD    T6
02228  M01S02018.msm     +++| CRE4     SOD    T6
02229  M01S02019.msm     +++|          ZJN    CRE5        IF ALL ENTRIES CHECKED
02230  M01S02020.msm     +++|          SHN    PUTLS       CHECK *PUT* FOR OUTSTANDING REQUESTS
02231  M01S02021.msm     +++|          ADD    T1+4
02232  M01S02022.msm     +++|          SHN    6
02233  M01S02023.msm     +++|          ADD    T1+3
02234  M01S02024.msm     +++|          SHN    14
02235  M01S02025.msm     +++|          ADK    UNCT
02236  M01S02026.msm     +++|          CRD    CM
02237  M01S02027.msm     +++|          LDD    CM+3
02238  M01S02028.msm     +++|          ZJN    CRE4        IF NO REQUESTS OUTSTANDING
02239  M01S02029.msm     +++|          SFA    EST,CM+1
02240  M01S02030.msm     +++|          ADK    EQDE
02241  M01S02031.msm     +++|          CRD    CM
02242  M01S02032.msm     +++|          LDD    CM
02243  M01S02033.msm     +++|          LPN    3
02244  M01S02034.msm     +++|          LMN    3
02245  M01S02035.msm     +++|          ZJN    CRE4        IF DEVICE IS DOWN
02246  M01S02036.msm     +++|          UJP    CRE3        WAIT FOR FLUSH TO COMPLETE
02247  M01S02037.msm     +++|
02248  M01S02038.msm     +++| CRE5     STD    CM          CLEAR MESSAGE
02249  M01S02039.msm     +++|          LDC    CPAS+MS2W
02250  M01S02040.msm     +++|          CWD    CM
02251  M01S02041.msm     +++|          LDD    IR+3
02252  M01S02042.msm     +++|          SHN    21-13
02253  M01S02043.msm     +++|          MJN    CRE6        IF LABEL TRACK SPECIFICATION
02254  M01S02044.msm     +++|          SHN    21-11-21+13
02255  M01S02045.msm     +++|          PJN    CRE6        IF NO CHECKPOINT ABORT
02256  M01S02046.msm     +++|          LJM    CRE8        CHECKPOINT ALL DEVICES AND ABORT
02257  M01S02047.msm     +++|
02258  M01S02048.msm     +++| CRE6     LJM    CREX        RETURN
02259  M01S02049.msm     +++|
02260  M01S02050.msm     +++| CREA     DATA   C*FLUSHING BUFFERED DEVICES.*
02261  M01S02051.msm     +++| CREB     VFD    24/3L1CK,12/6,24/0
02262  M01S02052.msm     +++| CUR      SPACE  4,10
02263  M01S02053.msm     +++|**        CUR - CHECK FOR UEM RECOVERY REQUIRED.
02264  M01S02054.msm     +++|*
02265  M01S02055.msm     +++|*         ENTRY  (RS) = RECOVERY STATUS.
02266  M01S02056.msm     +++|*
02267  M01S02057.msm     +++|*         USES   CM - CM+4.
02268  M01S02058.msm     +++|*
02269  M01S02059.msm     +++|*         MACROS SFA.
02270  M01S02060.msm     +++|
02271  M01S02061.msm     +++|
02272  M01S02062.msm     +++| CUR      SUBR               ENTRY/EXIT
02273  M01S02063.msm     +++|          LDD    RS
02274  M01S02064.msm     +++|          LPN    FLMK
02275  M01S02065.msm     +++|          LMN    FLTB
02276  M01S02066.msm     +++|          NJN    CURX        IF NOT LEVEL 1 OR 2 RECOVERY
02277  M01S02067.msm     +++|          LDN    ESTP        SEARCH FOR UEM EQUIPMENT
02278  M01S02068.msm     +++|          CRD    T3
02279  M01S02069.msm     +++|          LDN    NOPE-1
02280  M01S02070.msm     +++|          STD    T5
02281  M01S02071.msm     +++| CUR1     AOD    T5
02282  M01S02072.msm     +++|          LMD    T6
02283  M01S02073.msm     +++|          ZJN    CURX        IF NO UEM EQUIPMENT
02284  M01S02074.msm     +++|          SFA    EST,T5
02285  M01S02075.msm     +++|          ADK    EQDE
02286  M01S02076.msm     +++|          CRD    CM
02287  M01S02077.msm     +++|          LDD    CM
02288  M01S02078.msm     +++|          SHN    21-13
02289  M01S02079.msm     +++|          PJN    CUR1        IF NOT MASS STORAGE
02290  M01S02080.msm     +++|          LDD    CM+4
02291  M01S02081.msm     +++|          SHN    3
02292  M01S02082.msm     +++|          ADK    DILL
02293  M01S02083.msm     +++|          CRD    CM
02294  M01S02084.msm     +++|          LDD    CM+3        CHECK MEMORY TYPE
02295  M01S02085.msm     +++|          SHN    -6
02296  M01S02086.msm     +++|          LPN    7
02297  M01S02087.msm     +++|          LMN    4
02298  M01S02088.msm     +++|          NJN    CUR1        IF NOT UEM
02299  M01S02089.msm     +++|          LDD    T5
02300  M01S02090.msm     +++|          STM    RMSE
02301  M01S02091.msm     +++|          AOM    REMA        ENABLE *4DK* CALL
02302  M01S02092.msm     +++|          UJP    CURX        RETURN
02303  M01S02093.msm     +++| IET      SPACE  4,10
02304  M01S02094.msm     +++|**        IET - INITIALIZE EQUIPMENT TABLE.
02305  M01S02095.msm     +++|*
02306  M01S02096.msm     +++|*         ENTRY  (CA) = CM ADDRESS OF MST TABLE.
02307  M01S02097.msm     +++|*
02308  M01S02098.msm     +++|*         EXIT   (RC) = 0.
02309  M01S02099.msm     +++|*                (P2) = 0 IF ALL ISD CONFIGURATION.
02310  M01S02100.msm     +++|*                (CA) = LWA OF MST TABLE IN CM.
02311  M01S02101.msm     +++|*                DEVICE RECOVERY INFORMATION IN CM INITIATED.
02312  M01S02102.msm     +++|*
02313  M01S02103.msm     +++|*         USES   T5, UC, CM - CM+4, FN - FN+4, FS - FS+4, RD - RD+4.
02314  M01S02104.msm     +++|*
02315  M01S02105.msm     +++|*         CALLS  LRA.
02316  M01S02106.msm     +++|*
02317  M01S02107.msm     +++|*         MACROS SFA.
02318  M01S02108.msm     +++|
02319  M01S02109.msm     +++|
02320  M01S02110.msm     +++| IET5     LDN    ZERL        CLEAR RECOVERY TABLE ENTRY
02321  M01S02111.msm     +++|          CRD    RD
02322  M01S02112.msm     +++| IET6     RJM    LRA         LOAD REFERENCE ADDRESS
02323  M01S02113.msm     +++|          ADD    T5
02324  M01S02114.msm     +++|          CWD    RD
02325  M01S02115.msm     +++|          AOD    T5          ADVANCE EST ORDINAL
02326  M01S02116.msm     +++|          LMD    LO
02327  M01S02117.msm     +++|          NJN    IET1        IF NOT END OF MASS STORAGE DEVICES
02328  M01S02118.msm     +++|          STD    RC
02329  M01S02119.msm     +++|
02330  M01S02120.msm     +++| IET      SUBR               ENTRY/EXIT
02331  M01S02121.msm     +++|          LDN    0           SET ISD CONFIGURATION FLAG
02332  M01S02122.msm     +++|          STD    P2
02333  M01S02123.msm     +++|          LDN    NOPE-1      INITIALIZE EST ORDINAL FOR SEARCH
02334  M01S02124.msm     +++|          STD    T5
02335  M01S02125.msm     +++| IET1     SFA    EST,T5      READ EST ENTRY
02336  M01S02126.msm     +++|          ADK    EQDE
02337  M01S02127.msm     +++|          CRD    FN
02338  M01S02128.msm     +++|          LDD    FN          CHECK EST ENTRY
02339  M01S02129.msm     +++|          LPC    7500        PRESET RECOVERY TABLE
02340  M01S02130.msm     +++|          STD    RE
02341  M01S02131.msm     +++|          SHN    21-13
02342  M01S02132.msm     +++|          PJN    IET5        IF NOT MASS STORAGE ENTRY
02343  M01S02133.msm     +++|          LDD    CA          SET ADDRESS OF MST FOR FIRST UNIT
02344  M01S02134.msm     +++|          STD    AL
02345  M01S02135.msm     +++|          LDD    FN+4        READ *STLL*
02346  M01S02136.msm     +++|          SHN    3
02347  M01S02137.msm     +++|          ADN    STLL
02348  M01S02138.msm     +++|          CRD    FS
02349  M01S02139.msm     +++|          ADN    DDLL-STLL   READ *DDLL*
02350  M01S02140.msm     +++|          CRD    CM
02351  M01S02141.msm     +++|          LDD    CM          SET ORIGINAL UNIT COUNT
02352  M01S02142.msm     +++|          SHN    -3
02353  M01S02143.msm     +++|          LPN    7
02354  M01S02144.msm     +++|          STD    UC
02355  M01S02145.msm     +++|          LDD    FN+3        CHECK FOR ISD DEVICE
02356  M01S02146.msm     +++|          LMC    2RDE
02357  M01S02147.msm     +++|          ZJN    IET2        IF EXTENDED MEMORY
02358  M01S02148.msm     +++|          LMN    2RDD&2RDE
02359  M01S02149.msm     +++|          ZJN    IET2        IF ISD
02360  M01S02150.msm     +++|          LMN    2RDG&2RDD
02361  M01S02151.msm     +++|          ZJN    IET2        IF ISD
02362  M01S02152.msm     +++|          STD    P2          SET NON-ISD FLAG
02363  M01S02153.msm     +++| IET2     LDN    MSTL        ADVANCE INDEX IN MST TABLE
02364  M01S02154.msm     +++|          RAD    CA
02365  M01S02155.msm     +++|          SOD    UC
02366  M01S02156.msm     +++|          PJN    IET2        IF MORE UNITS THIS EQUIPMENT
02367  M01S02157.msm     +++|          LDD    FS          ASSIGN SYSTEM STATUS TO ASR DEVICE
02368  M01S02158.msm     +++|          LPN    MRASD
02369  M01S02159.msm     +++|          SHN    12-RASD+RASD/12D*12D
02370  M01S02160.msm     +++|          RAD    RE
02371  M01S02161.msm     +++|          LDD    FS
02372  M01S02162.msm     +++|          LPC    MLIAL
02373  M01S02163.msm     +++|          ZJN    IET4        IF FULL INITIALIZE NOT SPECIFIED
02374  M01S02164.msm     +++|          LDN    20          SET INITIALIZE FLAG
02375  M01S02165.msm     +++|          RAD    RE
02376  M01S02166.msm     +++|          AOM    RMSA        ADVANCE INITIALIZATION COUNT
02377  M01S02167.msm     +++| IET3     LJM    IET6        STORE RECOVERY INFORMATION
02378  M01S02168.msm     +++|
02379  M01S02169.msm     +++| IET4     LDD    FN
02380  M01S02170.msm     +++|          SHN    21-10
02381  M01S02171.msm     +++|          PJN    IET3        IF NON-REMOVABLE DEVICE
02382  M01S02172.msm     +++|          LDD    RS
02383  M01S02173.msm     +++|          LPN    FLMK
02384  M01S02174.msm     +++|          LMN    FLTB
02385  M01S02175.msm     +++|          NJN    IET3        IF FILES NOT RECOVERED FROM MASS STORAGE
02386  M01S02176.msm     +++|          LJM    IET5        DEFER RECOVERY TO *CMS*
02387  M01S02177.msm     +++| LCM      SPACE  4,10
02388  M01S02178.msm     +++|**        LCM - LOCATE CM FOR RECOVERY.
02389  M01S02179.msm     +++|*
02390  M01S02180.msm     +++|*         ENTRY  (A) = 0 IF RECHECKING FIELD LENGTH.
02391  M01S02181.msm     +++|*                (CA+1) = MEMORY REQUIRED.
02392  M01S02182.msm     +++|*
02393  M01S02183.msm     +++|*         EXIT   (LRAB) = RA OF FREE AREA.
02394  M01S02184.msm     +++|*                (CN - CN+3) = PARAMETERS FROM *CMA*.
02395  M01S02185.msm     +++|*
02396  M01S02186.msm     +++|*         CALLS  CMA.
02397  M01S02187.msm     +++|
02398  M01S02188.msm     +++|
02399  M01S02189.msm     +++| LCM      SUBR               ENTRY/EXIT
02400  M01S02190.msm     +++|          ZJN    LCM1        IF RECHECKING FIELD LENGTH
02401  M01S02191.msm     +++|          LDN    ZERL
02402  M01S02192.msm     +++|          CRD    CN
02403  M01S02193.msm     +++|          LDN    CN          FIND LARGEST FREE AREA
02404  M01S02194.msm     +++|          RJM    CMA
02405  M01S02195.msm     +++|          LDD    CN+1        SAVE RA OF AREA
02406  M01S02196.msm     +++|          STM    LRAB
02407  M01S02197.msm     +++|          STD    TA
02408  M01S02198.msm     +++|          LDD    CN
02409  M01S02199.msm     +++|          RAM    LRAB-1
02410  M01S02200.msm     +++| LCM1     LDD    CN+2
02411  M01S02201.msm     +++|          NJN    LCMX        IF SUFFICIENT FL
02412  M01S02202.msm     +++|          LDD    CA+1
02413  M01S02203.msm     +++|          ADN    77
02414  M01S02204.msm     +++|          SHN    -6
02415  M01S02205.msm     +++|          SBD    CN+3
02416  M01S02206.msm     +++|          MJN    LCMX        IF SUFFICIENT MEMORY AVAILABLE
02417  M01S02207.msm     +++|          ZJN    LCMX        IF SUFFICIENT MEMORY AVAILABLE
02418  M01S02208.msm     +++|          LDC    LCMA        * INSUFFICIENT MEMORY FOR CM RECOVERY.*
02419  M01S02209.msm     +++|          LJM    HNG         PROCESS ERROR
02420  M01S02210.msm     +++|
02421  M01S02211.msm     +++|
02422  M01S02212.msm     +++| LCMA     DATA   C* INSUFFICIENT MEMORY FOR CM RECOVERY.*
02423  M01S02213.msm     +++|          SPACE  4,10
02424  M01S02214.msm     +++|*         COMMON DECKS.
02425  M01S02215.msm     +++|
02426  M01S02216.msm     +++|
02427  M01S02217.msm     +++|*CALL     COMPCMA
02428  M01S02218.msm     +++|*CALL     COMPSUD
02429  M01S02219.msm     +++|
02430  M01S02220.msm     +++|
02431  M01S02221.msm     +++| OVL0     BSS    0           *0SD* LOAD ADDRESS
02432  M01S02222.msm     +++|          ERRNG  BFMS-OVL0-ZSDL  *0SD* OVERFLOW
02433  M01S02223.msm     +++|
02434  M01S02224.msm     +++|          QUAL
02435  M01S02225.msm     +++|          TTL    MSM/1RF - RECOVER PRESERVED FILES.
02436  M01S02226.msm     +++|          TITLE
02437  M01S02227.msm     +++|          QUAL   RPF
02438  M01S02228.msm     +++|          IDENT  1RF,PPFW
02439  M01S02229.msm     +++|*COMMENT  MSM - RECOVER PRESERVED FILES.
Line S02230 Modification History
M01 (Added by) msm
M02 (Updated by) 281l803
Seq #  *Modification Id* Act 
----------------------------+
02440  M02S02230.281l803 ---|          COMMENT COPYRIGHT CONTROL DATA CORPORATION, 1986.
02441  M01S00003.281l803 +++|          COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
02442  M01S02231.msm     +++|          QUAL   1RF
02443  M01S02232.msm     +++| RPF      SPACE  4,15
02444  M01S02233.msm     +++|***              *1RF* IS CALLED BY *REC* TO RECOVER PRESERVED
02445  M01S02234.msm     +++|*         FILES ON A MASS STORAGE DEVICE.  WHEN *1RF* HAS FINISHED
02446  M01S02235.msm     +++|*         WITH A DEVICE, IT INDICATES TO *REC* THAT IT IS COMPLETE.
02447  M01S02236.msm     +++|*         *REC* TELLS IT EITHER TO PROCESS ANOTHER DEVICE OR DROP.
02448  M01S02237.msm     +++| RPF      SPACE  4,15
02449  M01S02238.msm     +++|***       ENTRY CONDITIONS.
02450  M01S02239.msm     +++|*
02451  M01S02240.msm     +++|*         (IR+2) = EST ORDINAL.
02452  M01S02241.msm     +++|*         (IR+3) = CP NUMBER AT WHICH TO DISPLAY MESSAGES.
02453  M01S02242.msm     +++|*         (IR+4) = RECOVERY STATUS.
02454  M01S02243.msm     +++|*
02455  M01S02244.msm     +++|*         WHEN *1RF* COMPLETES, IT SETS (IR+2) TO 0.  *REC* EITHER
02456  M01S02245.msm     +++|*         REPLIES WITH ANOTHER EST ORDINAL OR 4000 WHICH INDICATES
02457  M01S02246.msm     +++|*         THAT *1RF* SHOULD DROP.
Line S02247 Modification History
M01 (Added by) msm
M02 (Updated by) ns2788
Seq #  *Modification Id* Act 
----------------------------+
02458  M02S02247.ns2788  ---|*
Line S02248 Modification History
M01 (Added by) msm
M02 (Updated by) ns2788
Seq #  *Modification Id* Act 
----------------------------+
02459  M02S02248.ns2788  ---|*         IF AN ERROR REQUIRING AN OPERATOR RESPONSE IS ENCOUNTERED,
Line S02249 Modification History
M01 (Added by) msm
M02 (Updated by) ns2788
Seq #  *Modification Id* Act 
----------------------------+
02460  M02S02249.ns2788  ---|*         *1RF* PUTS THE MESSAGE IN THE MESSAGE BUFFER AND SETS
Line S02250 Modification History
M01 (Added by) msm
M02 (Updated by) ns2788
Seq #  *Modification Id* Act 
----------------------------+
02461  M02S02250.ns2788  ---|*         (IR+3) TO 4000.  *REC* RESPONDS BY CLEARING THE 4000 AND
Line S02251 Modification History
M01 (Added by) msm
M02 (Updated by) ns2788
Seq #  *Modification Id* Act 
----------------------------+
02462  M02S02251.ns2788  ---|*         RETURNING THE OPERATOR RESPONSE IN (IR+3).
02463  M01S02252.msm     +++| RPF      SPACE  4,10
02464  M01S02253.msm     +++|**        ROUTINES CALLED.
02465  M01S02254.msm     +++|*
02466  M01S02255.msm     +++|*         4DA - RECOVER PRESERVED FILES.
02467  M01S02256.msm     +++| RPF      SPACE  4,10
02468  M01S02257.msm     +++|          ORG    PPFW
02469  M01S02258.msm     +++|
Line S02259 Modification History
M01 (Added by) msm
M02 (Updated by) msm48
Seq #  *Modification Id* Act 
----------------------------+
02470  M02S02259.msm48   ---| RPF      LDD    IR+3        SET *IQFT* BUFFER ADDRESS
02471  M01S00004.msm48   +++| RPF      BSS    0           ENTRY
02472  M01S00005.msm48   +++|          LDD    IR+3        SET *IQFT* BUFFER ADDRESS
02473  M01S02260.msm     +++|          SHN    6
02474  M01S02261.msm     +++|          STD    CR
Line S02262 Modification History
M01 (Added by) msm
M02 (Updated by) msm48
Seq #  *Modification Id* Act 
----------------------------+
02475  M02S02262.msm48   ---|          SHN    7-6         SET CONTROL POINT
Line S02263 Modification History
M01 (Added by) msm
M02 (Updated by) msm48
Seq #  *Modification Id* Act 
----------------------------+
02476  M02S02263.msm48   ---|          STD    CP
02477  M01S00006.msm48   +++|          SHN    7-6         SET MESSAGE CONTROL POINT
02478  M01S00007.msm48   +++|          STD    CF
02479  M01S02264.msm     +++|*         LDD    IR+4        SET RECOVERY STATUS
02480  M01S02265.msm     +++|*         STD    RS
Line S02266 Modification History
M01 (Added by) msm
M02 (Updated by) msm48
Seq #  *Modification Id* Act 
----------------------------+
02481  M02S02266.msm48   ---|          LDC    DSCP*CPAS+FLSW
Line S02267 Modification History
M01 (Added by) msm
M02 (Updated by) msm48
Seq #  *Modification Id* Act 
----------------------------+
02482  M02S02267.msm48   ---|          CRD    CM
Line S02268 Modification History
M01 (Added by) msm
M02 (Updated by) msm48
Seq #  *Modification Id* Act 
----------------------------+
02483  M02S02268.msm48   ---|          LDD    CM+2        SET RA OF DEADSTART CONTROL POINT
Line S02269 Modification History
M01 (Added by) msm
M02 (Updated by) msm48
Seq #  *Modification Id* Act 
----------------------------+
02484  M02S02269.msm48   ---|          SHN    14
Line S02270 Modification History
M01 (Added by) msm
M02 (Updated by) msm48
Seq #  *Modification Id* Act 
----------------------------+
02485  M02S02270.msm48   ---|          LMD    CM+3
Line S02271 Modification History
M01 (Added by) msm
M02 (Updated by) msm48
Seq #  *Modification Id* Act 
----------------------------+
02486  M02S02271.msm48   ---|          STM    RPFA
Line S02272 Modification History
M01 (Added by) msm
M02 (Updated by) msm48
Seq #  *Modification Id* Act 
----------------------------+
02487  M02S02272.msm48   ---|          ADN    2
Line S02273 Modification History
M01 (Added by) msm
M02 (Updated by) msm48
Seq #  *Modification Id* Act 
----------------------------+
02488  M02S02273.msm48   ---|          SHN    -13
Line S02274 Modification History
M01 (Added by) msm
M02 (Updated by) msm48
Seq #  *Modification Id* Act 
----------------------------+
02489  M02S02274.msm48   ---|          NJN    *           IF CONFUSED, HANG TO PRESERVE CONDITIONS
Line S02275 Modification History
M01 (Added by) msm
M02 (Updated by) msm48
Seq #  *Modification Id* Act 
----------------------------+
02490  M02S02275.msm48   ---|          LDN    10
02491  M01S00008.msm48   +++|          LDD    RS
02492  M01S00009.msm48   +++|          NJN    RPF0        IF RECOVERY DEADSTART
02493  M01S00010.msm48   +++|          LDC    DSCP+ENRS   MOVE TO DEADSTART CONTROL POINT
02494  M01S00011.msm48   +++|          STD    CM+1
02495  M01S00012.msm48   +++|          MONITOR  CCAM
02496  M01S00013.msm48   +++| RPF0     LDN    10
02497  M01S02276.msm     +++|          STD    T1
Line S02277 Modification History
M01 (Added by) msm
M02 (Updated by) msm48
Seq #  *Modification Id* Act 
----------------------------+
02498  M02S02277.msm48   ---|          LDD    CP          SAVE CONTROL POINT MESSAGES
02499  M01S00014.msm48   +++|          LDD    CF          SAVE CONTROL POINT MESSAGES
02500  M01S02278.msm     +++|          ADK    MS1W
02501  M01S02279.msm     +++|          CRM    RPFC,T1
02502  M01S02280.msm     +++|
02503  M01S02281.msm     +++|*         NOTE - *DSD* DOES NOT DISPLAY CONTROL POINT MESSAGES ON THE
02504  M01S02282.msm     +++|*         B-DISPLAY UNLESS THERE IS A NON-ZERO EJT ORDINAL PRESENT.
02505  M01S02283.msm     +++|
02506  M01S02284.msm     +++|          ADK    TFSW-MS1W-10
02507  M01S02285.msm     +++|          CRD    CM
02508  M01S02286.msm     +++|          LDD    CM          SAVE CURRENT EJT ORDINAL
02509  M01S02287.msm     +++|          STM    RPFB
02510  M01S02288.msm     +++|          LDN    DSEO        SET DEADSTART EJT ORDINAL
02511  M01S02289.msm     +++|          STD    CM
Line S02290 Modification History
M01 (Added by) msm
M02 (Updated by) msm48
Seq #  *Modification Id* Act 
----------------------------+
02512  M02S02290.msm48   ---|          LDD    CP
02513  M01S00015.msm48   +++|          LDD    CF
02514  M01S02291.msm     +++|          ADK    TFSW
02515  M01S02292.msm     +++|          CWD    CM
Line S02293 Modification History
M01 (Added by) msm
M02 (Updated by) ns2788
Seq #  *Modification Id* Act 
----------------------------+
02516  M02S02293.ns2788  ---| RPF1     EXECUTE 4DA        LOAD SYSTEM SECTOR CLEANUP ROUTINES
02517  M01S00001.ns2788  +++|          LDN    2
02518  M01S00002.ns2788  +++|          STD    TW
02519  M01S00003.ns2788  +++|          EXECUTE 4DA        LOAD SYSTEM SECTOR CLEANUP ROUTINES
02520  M01S00016.msm48   +++|          LDC    LDDI+CF     FORCE MESSAGES TO CONTROL POINT *CF*
02521  M01S00017.msm48   +++|          STM    /RDA/RDAK
02522  M01S00018.msm48   +++|          STM    /RDA/RDAL
02523  M01S00019.msm48   +++|          STM    /RDA/CUSA
Line S00020 Modification History
M01 (Added by) msm48
M02 (Updated by) ns2788
Seq #  *Modification Id* Act 
----------------------------+
02524  M02S00020.ns2788  ---|          AOM    /RDA/PFEE
02525  M01S02294.msm     +++|          LDN    0
02526  M01S02295.msm     +++|          SBN    1           DELAY FOR OTHER *4DA* LOADS TO COMPLETE
02527  M01S02296.msm     +++|          NJN    *-1
02528  M01S02297.msm     +++| RPF2     LDD    IR+2        SET EST ORDINAL
02529  M01S02298.msm     +++|          STD    T5
02530  M01S02299.msm     +++|          SFA    EST         FETCH MST POINTER FROM EST
02531  M01S02300.msm     +++|          ADK    EQDE
02532  M01S02301.msm     +++|          CRD    FN
02533  M01S02302.msm     +++|          LDD    FN+4        READ MST STATUS WORD
02534  M01S02303.msm     +++|          SHN    3
02535  M01S02304.msm     +++|          ADN    STLL
02536  M01S02305.msm     +++|          CRD    CM
02537  M01S02306.msm     +++|          LDD    CM          EXTRACT FULL INITIALIZE FLAG
02538  M01S02307.msm     +++|          LPC    MLIAL
Line S02308 Modification History
M01 (Added by) msm
M02 (Updated by) msm48
Seq #  *Modification Id* Act 
----------------------------+
02539  M02S02308.msm48   ---|          SHN    14-LIAL+LIAL/12D*12D
Line S02309 Modification History
M01 (Added by) msm
M02 (Updated by) msm48
Seq #  *Modification Id* Act 
----------------------------+
02540  M02S02309.msm48   ---|          LMC    0           RA OF DEADSTART CONTROL POINT
Line S02310 Modification History
M01 (Added by) msm
M02 (Updated by) msm48
Seq #  *Modification Id* Act 
----------------------------+
02541  M02S02310.msm48   ---| RPFA     EQU    *-1
02542  M01S02311.msm     +++|          RJM    /RDA/RDA    CLEAR PRESERVED FILE INTERLOCKS
02543  M01S02312.msm     +++|          LDN    0
02544  M01S02313.msm     +++|          STD    IR+2        INDICATE RECOVERY COMPLETE
02545  M01S02314.msm     +++|          LDD    IA
02546  M01S02315.msm     +++|          CWD    IR
02547  M01S02316.msm     +++| RPF3     DELAY              WAIT 125 MICROSECONDS
02548  M01S02317.msm     +++|          LDD    IA
02549  M01S02318.msm     +++|          CRD    IR          CHECK FOR REPLY FROM *REC*
02550  M01S02319.msm     +++|          LDD    IR+2
02551  M01S02320.msm     +++|          ZJN    RPF3        IF NO REPLY YET
02552  M01S02321.msm     +++|          SHN    21-13
02553  M01S02322.msm     +++|          PJN    RPF2        IF ANOTHER DEVICE TO PROCESS
02554  M01S02323.msm     +++|          LDN    10
02555  M01S02324.msm     +++|          STD    T1
Line S02325 Modification History
M01 (Added by) msm
M02 (Updated by) msm48
Seq #  *Modification Id* Act 
----------------------------+
02556  M02S02325.msm48   ---|          LDD    CP          RESTORE CONTROL POINT MESSAGES
02557  M01S00021.msm48   +++|          LDD    CF          RESTORE CONTROL POINT MESSAGES
02558  M01S02326.msm     +++|          ADN    MS1W
02559  M01S02327.msm     +++|          CWM    RPFC,T1
Line S02328 Modification History
M01 (Added by) msm
M02 (Updated by) msm48
Seq #  *Modification Id* Act 
----------------------------+
02560  M02S02328.msm48   ---|          LDD    CP
02561  M01S00022.msm48   +++|          LDD    CF
02562  M01S02329.msm     +++|          ADK    TFSW
02563  M01S02330.msm     +++|          CRD    CM
02564  M01S02331.msm     +++|          LDC    0           RESTORE EJT ORDINAL
02565  M01S02332.msm     +++| RPFB     EQU    *-1
02566  M01S02333.msm     +++|          STD    CM
Line S02334 Modification History
M01 (Added by) msm
M02 (Updated by) msm48
Seq #  *Modification Id* Act 
----------------------------+
02567  M02S02334.msm48   ---|          LDD    CP
02568  M01S00023.msm48   +++|          LDD    CF
02569  M01S02335.msm     +++|          ADK    TFSW
02570  M01S02336.msm     +++|          CWD    CM
02571  M01S02337.msm     +++| RPF4     MONITOR  DPPM
02572  M01S02338.msm     +++|          LJM    PPR         EXIT TO PP RESIDENT
02573  M01S02339.msm     +++|
02574  M01S02340.msm     +++|
02575  M01S02341.msm     +++| RPFC     BSS    0           CONTROL POINT MESSAGE SAVE AREA
02576  M01S02342.msm     +++|          SPACE  4,10
02577  M01S02343.msm     +++| SDVR     EQU    RPFC+10*5
02578  M01S02344.msm     +++|          QUAL
02579  M01S02345.msm     +++|          TTL    MSM/4DA - RECOVER PRESERVED FILES.
02580  M01S02346.msm     +++|          TITLE
02581  M01S02347.msm     +++|          IDENT  4DA,/RDA/RDEX
02582  M01S02348.msm     +++|*COMMENT  MSM - RECOVER PRESERVED FILES.
Line S02349 Modification History
M01 (Added by) msm
M02 (Updated by) 281l803
Seq #  *Modification Id* Act 
----------------------------+
02583  M02S02349.281l803 ---|          COMMENT COPYRIGHT CONTROL DATA CORP. 1972.
02584  M01S00004.281l803 +++|          COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
02585  M01S02350.msm     +++|          SPACE  4,10
02586  M01S02351.msm     +++|***              *RDA* PERFORMS SYSTEM SECTOR CLEANUP ON ALL DIRECT
02587  M01S02352.msm     +++|*         ACCESS PERMANENT FILES AS WELL AS BUILDING THE *IQFT*
02588  M01S02353.msm     +++|*         ON LEVEL 0 DEADSTARTS.
02589  M01S02354.msm     +++|          SPACE  4
02590  M01S02355.msm     +++|***       ENTRY  CONDITIONS.
02591  M01S02356.msm     +++|*
02592  M01S00024.msm48   +++|*         (A) = 0, IF DEVICE IS NOT BEING INITIALIZED.
02593  M01S00025.msm48   +++|*         (CF) = MESSAGE CONTROL POINT ADDRESS (*1RF* CALL).
02594  M01S00026.msm48   +++|*         (CP) = CONTROL POINT ADDRESS (*CMS* CALL).
02595  M01S00027.msm48   +++|*         (CR) = RELATIVE ADDRESS OF *IQFT* BUFFER.
02596  M01S02357.msm     +++|*         (FN - FN+4) = EST ENTRY.
02597  M01S00028.msm48   +++|*         (RS) = RECOVERY STATUS.
02598  M01S02358.msm     +++|*         (T5) = EST ORDINAL.
Line S02359 Modification History
M01 (Added by) msm
M02 (Updated by) msm48
Seq #  *Modification Id* Act 
----------------------------+
02599  M02S02359.msm48   ---|*         (RS) = RECOVERY STATUS.
Line S02360 Modification History
M01 (Added by) msm
M02 (Updated by) msm48
Seq #  *Modification Id* Act 
----------------------------+
02600  M02S02360.msm48   ---|*         (CP) = CONTROL POINT ADDRESS.
Line S02361 Modification History
M01 (Added by) msm
M02 (Updated by) msm48
Seq #  *Modification Id* Act 
----------------------------+
02601  M02S02361.msm48   ---|*         (CR) = RELATIVE ADDRESS OF *IQFT* BUFFER.
Line S02362 Modification History
M01 (Added by) msm
M02 (Updated by) msm48
Seq #  *Modification Id* Act 
----------------------------+
02602  M02S02362.msm48   ---|*         (A) .NZ. IF ENTRY WITH DEADSTART CONTROL POINT ADDRESS.
Line S02363 Modification History
M01 (Added by) msm
M02 (Updated by) msm48
Seq #  *Modification Id* Act 
----------------------------+
02603  M02S02363.msm48   ---|*         (A) = 0 IF RA USED FOR CM BUFFER ADDRESS COMPUTATION.
02604  M01S02364.msm     +++|          SPACE  4
02605  M01S02365.msm     +++|***       OPERATOR MESSAGES.
02606  M01S02366.msm     +++|*
02607  M01S02367.msm     +++|*         *EQXXX, ANNNN TYYYY SZZZZ LINKAGE* = LENGTH / LINKAGE ERROR
02608  M01S02368.msm     +++|*         AT TRACK YYYY SECTOR ZZZZ OF PRESERVED FILE ON EST ORDINAL
02609  M01S02369.msm     +++|*         XXX, FIRST TRACK AT NNNN.  OPERATOR INTERVENTION IS REQUIRED.
02610  M01S02370.msm     +++|*         IF THE OPERATOR ENTERS *GO*, EOI WILL BE WRITTEN AT THE
02611  M01S02371.msm     +++|*         LOCATION OF THE ERROR AND RECOVERY WILL PROCEED.  IF THE
02612  M01S02372.msm     +++|*         OPERATOR ENTERS *PAUSE*, ERROR IDLE STATUS WILL BE SET AND
02613  M01S02373.msm     +++|*         RECOVERY OPERATIONS ON THE DEVICE TERMINATED.
02614  M01S02374.msm     +++|*
02615  M01S02375.msm     +++|*         *RECOVER EQXXX, ANNNN TMMMM. = RECOVERING PRESERVED FILE ON
02616  M01S02376.msm     +++|*         EST ORDINAL XXX.  FIRST TRACK IS NNNN AND TRACK CURRENTLY
02617  M01S02377.msm     +++|*         BEING READ IS MMMM.
02618  M01S02378.msm     +++|          SPACE  4
02619  M01S02379.msm     +++|***       DAYFILE MESSAGES.
02620  M01S02380.msm     +++|*
02621  M01S02381.msm     +++|*         *EQXXX, ERROR IDLE SET.* = THIS FOLLOWS THE *PF LENGTH ERROR*
02622  M01S02382.msm     +++|*         OR *QF LENGTH ERROR* MESSAGE IF ERROR IDLE WAS FORCED BY THE
02623  M01S02383.msm     +++|*         SYSTEM OR THE OPERATOR ENTERED *PAUSE*.
02624  M01S02384.msm     +++|*
02625  M01S02385.msm     +++|*         *EQXXX NNNN DIRECT ACCESS FILE ERRORS.* = COUNT OF ERRORS
02626  M01S02386.msm     +++|*         DETECTED IN DIRECT ACCESS FILES ON EST ORDINAL XXX.  THE
02627  M01S02387.msm     +++|*         COUNT SHOULD MATCH THE NUMBER OF ERROR MESSAGES PRODUCED.
02628  M01S02388.msm     +++|*
02629  M01S02389.msm     +++|*         *EQXXX NNNN DIRECT ACCESS FILES RECOVERED.* = COUNT OF DIRECT
02630  M01S02390.msm     +++|*         FILES RECOVERED ON EST ORDINAL XXX.
02631  M01S02391.msm     +++|*
02632  M01S02392.msm     +++|*         *EQXXX, FFFFFFF, DD RECOVERED.* = RECOVERY COMPLETE ON EST
02633  M01S02393.msm     +++|*         ORDINAL XXX WITH FAMILY NAME FFFFFFF AND DEVICE NUMBER DD.
02634  M01S02394.msm     +++|*
02635  M01S02395.msm     +++|*         *EQXXX NNNN PRESERVED FILE ERRORS.* = COUNT OF ERRORS
02636  M01S02396.msm     +++|*         DETECTED WHILE READING SYSTEM SECTORS ON EST ORDINAL XXX.
02637  M01S02397.msm     +++|*
02638  M01S02398.msm     +++|*         *EQXXX NNNN QUEUED FILE ERRORS.* = COUNT OF QUEUED FILE
02639  M01S02399.msm     +++|*         ERRORS DETECTED ON EST ORDINAL XXX.  THE COUNT SHOULD
02640  M01S02400.msm     +++|*         MATCH THE NUMBER OF ERROR MESSAGES PRODUCED.
02641  M01S02401.msm     +++|*
02642  M01S02402.msm     +++|*         *EQXXX NNNN QUEUED FILES RECOVERED.* = COUNT OF QUEUED
Proceed to Part 2
cdc/nos2.source/opl.opl871/deck/msm.001.txt ยท Last modified: by 127.0.0.1