User Tools

Site Tools


Action unknown: copypageplugin__copy
cdc:nos2.source:opl.opl871:deck:msm.001

Deck MSM Part 001

30 Modifications

Listing Sections

Source

Seq #  *Modification Id* Act 
----------------------------+
01690  M01S01562.ns2552  ---|          SHN    -14
01691  M01S01563.ns2552  ---|          STD    EC
Line S00013 Modification History
M01 (Added by) ns2552
Seq #  *Modification Id* Act 
----------------------------+
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 (Removed by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
01698  M01S01564.283l840 ---|          LDD    RS
01699  M01S01565.283l840 ---|          ZJN    RCD4        IF NO RECOVERY REQUESTED
01700  M01S01566.283l840 ---|          LDD    FN
Line S00036 Modification History
M01 (Added by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
01701  M01S00036.283l840 +++| RCDC     LDD    FN
01702  M01S00037.283l840 +++|*         UJN    RCD4        (LEVEL 0 DEADSTART)
01703  M00S01567.msm     +++|          SHN    21-10
01704  M00S01568.msm     +++|          PJN    RCD5        IF NOT REMOVABLE DEVICE
01705  M00S01569.msm     +++|          LDM    MBUF+5*STLL+3
01706  M00S01570.msm     +++|          NJN    RCD4        IF ACTIVE USERS
01707  M00S01571.msm     +++| RCD2     SOD    RC          DECREMENT RECOVERY COUNT
01708  M00S01572.msm     +++|          RJM    IES         INITIALIZE EQUIPMENT STATUS
01709  M00S01573.msm     +++|*         LCN    0           (*MRL* REWRITE RECOVERY TABLE FLAG)
01710  M00S01574.msm     +++| RCD3     UJP    RCDX        RETURN
01711  M00S01575.msm     +++|
01712  M00S01576.msm     +++| RCD4     LDD    RE
01713  M00S01577.msm     +++|          SHN    21-12
01714  M00S01578.msm     +++|          PJN    RCD2        IF NOT SYSTEM DEVICE
01715  M00S01579.msm     +++| RCD5     LDD    P1
01716  M00S01580.msm     +++|          LJM    HNG         DISPLAY MESSAGE AND HANG
Line S01581 Modification History
M01 (Removed by) ns2552
Seq #  *Modification Id* Act 
----------------------------+
01717  M01S01581.ns2552  ---|
01718  M01S01582.ns2552  ---|*         TRT READ TO CM BUFFER.
01719  M01S01583.ns2552  ---|
01720  M01S01584.ns2552  ---| RCD6     LDD    RS
01721  M01S01585.ns2552  ---|          NJN    RCD7        IF RECOVERY REQUESTED
01722  M01S01586.ns2552  ---|          RJM    ETT         EDIT TRT
01723  M01S01587.ns2552  ---|          ZJN    RCD8        IF EDITING SUCCESSFUL
01724  M01S01588.ns2552  ---|          LDC    STLK*10000+RCDB
01725  M01S01589.ns2552  ---|          UJP    RCD1        PROCESS TRT LINKAGE ERROR
01726  M01S01590.ns2552  ---|
01727  M01S01591.ns2552  ---| RCD7     RJM    CTT         COPY TRT
01728  M01S01592.ns2552  ---|
01729  M01S01593.ns2552  ---|*         TRT RECOVERED AND EDITED OR COPIED TO CMR.
01730  M01S01594.ns2552  ---|
01731  M01S01595.ns2552  ---| RCD8     RJM    EMT         ENTER MST
01732  M01S01596.ns2552  ---|          RJM    ATC         ADJUST TRACK COUNT
01733  M01S01597.ns2552  ---|          RJM    CTD         COPY TRT BACK TO DISK
01734  M01S01598.ns2552  ---|          RJM    CDC         CHASE DAYFILE CHAIN
01735  M01S01599.ns2552  ---|*         LDN    0           (*MRL* REWRITE RECOVERY TABLE FLAG)
01736  M01S01600.ns2552  ---|          UJN    RCD3        RETURN
01737  M00S01601.msm     +++|
01738  M00S01602.msm     +++|
01739  M00S01603.msm     +++| RCDA     DATA   C*TRT LENGTH ERROR.*
01740  M00S01604.msm     +++| RCDB     DATA   C*PF LINKAGE ERROR.*
Line S00038 Modification History
M01 (Added by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
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  M00S01605.msm     +++| REM      SPACE  4,10
01768  M00S01606.msm     +++|**        REM - RESTORE UEM FROM CHECKPOINT FILE IF LEVEL 1 OR 2
01769  M00S01607.msm     +++|*              DEADSTART AND UEM IS PRESENT.
01770  M00S01608.msm     +++|*
01771  M00S01609.msm     +++|*         USES   LO.
01772  M00S01610.msm     +++|*
01773  M00S01611.msm     +++|*         CALLS  4DK.
01774  M00S01612.msm     +++|*
01775  M00S01613.msm     +++|*         MACROS EXECUTE.
01776  M00S01614.msm     +++|
01777  M00S01615.msm     +++|
01778  M00S01616.msm     +++| REM1     STM    MRLC        RESTORE PROCESSING OF ALL EQUIPMENTS
01779  M00S01617.msm     +++|
01780  M00S01618.msm     +++| REM      SUBR               ENTRY
01781  M00S01619.msm     +++|          SOM    REMA
01782  M00S01620.msm     +++|          ZJN    REM1        IF UEM NOT TO BE RESTORED THIS PASS
01783  M00S01621.msm     +++|          EXECUTE  4DK       RESTORE UEM
01784  M00S01622.msm     +++|
01785  M00S01623.msm     +++|*         *4DK* DOES NOT RETURN CONTROL HERE.  IT EXITS TO *RMS1*.
01786  M00S01624.msm     +++|
01787  M00S01625.msm     +++| REMA     CON    1           IF ZERO, *4DK* WILL NOT BE CALLED
Line S01626 Modification History
M01 (Removed by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
01788  M01S01626.283l840 ---| RLD      SPACE  4
Line S00064 Modification History
M01 (Added by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
01789  M01S00064.283l840 +++| RLD      SPACE  4,15
01790  M00S01627.msm     +++|**        RLD - RECOVER LINK DEVICE.
01791  M00S01628.msm     +++|*
01792  M00S01629.msm     +++|*         ENTRY  (FN - FN+4) = EST ENTRY FOR LINK DEVICE.
01793  M00S01630.msm     +++|*                (RD - RD+4) = RECOVERY INFORMATION FOR LINK DEVICE.
01794  M00S01631.msm     +++|*
Line S01632 Modification History
M01 (Removed by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
01795  M01S01632.283l840 ---|*         CALLS  CDS, EMF, IMS, LDT, LRA, RCD, RDL, SEM.
Line S00065 Modification History
M01 (Added by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
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  M00S01633.msm     +++|*
01801  M00S01634.msm     +++|*         MACROS EXECUTE, MONITOR.
01802  M00S01635.msm     +++|
01803  M00S01636.msm     +++|
01804  M00S01637.msm     +++| RLD2     LDD    RE
01805  M00S01638.msm     +++|          SHN    21-4
01806  M00S01639.msm     +++|          PJN    RLD3        IF INITIALIZE NOT SPECIFIED
Line S00069 Modification History
M01 (Added by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
01807  M01S00069.283l840 +++|          EXECUTE  4DD       LOAD VERIFICATION ROUTINES
Line S01640 Modification History
M01 (Removed by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
01808  M01S01640.283l840 ---|          EXECUTE  4DI       LOAD INITIALIZATION ROUTINES
Line S00070 Modification History
M01 (Added by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
01809  M01S00070.283l840 +++|          EXECUTE  4DH       LOAD INITIALIZATION ROUTINES
01810  M00S01641.msm     +++|          LCN    0           INITIALIZE LINK DEVICE
01811  M00S01642.msm     +++|          RJM    IMS
01812  M00S01643.msm     +++|          SOM    RMSA        DECREMENT INITIALIZATION COUNT
01813  M00S01644.msm     +++|          UJN    RLD4        CHECK LABEL TRACK
01814  M00S01645.msm     +++|
Line S01646 Modification History
M01 (Removed by) msm49
Seq #  *Modification Id* Act 
----------------------------+
01815  M01S01646.msm49   ---| RLD3     RJM    RDL         READ DEVICE LABEL
Line S00026 Modification History
M01 (Added by) msm49
Seq #  *Modification Id* Act 
----------------------------+
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  M00S01647.msm     +++|          EXECUTE  4DD       LOAD VERIFICATION ROUTINES
Line S00071 Modification History
M01 (Added by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
01820  M01S00071.283l840 +++|          EXECUTE  4DG       LOAD RECOVERY ROUTINES
01821  M00S01648.msm     +++|          RJM    LDT         LOAD DEVICE ACCESS TABLE
01822  M00S01649.msm     +++|          LDD    EQ
01823  M00S01650.msm     +++|          STD    T5
01824  M00S01651.msm     +++|          LDN    0           CHECK DEVICE STATUS
01825  M00S01652.msm     +++|          RJM    CDS
Line S01653 Modification History
M01 (Removed by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
01826  M01S01653.283l840 ---|          EXECUTE  4DG       LOAD RECOVERY ROUTINES
01827  M01S01654.283l840 ---|          EXECUTE  4DJ       LOAD DAYFILE RECOVERY ROUTINES
01828  M00S01655.msm     +++|          LDD    EQ
01829  M00S01656.msm     +++|          STD    T5
01830  M00S01657.msm     +++|          LDD    RE
01831  M00S01658.msm     +++|          RJM    RCD         RECOVER DEVICE
01832  M00S01659.msm     +++| RLD4     LDM    LDMP        GET DEVICE ALLOCATION WORD FROM MST
01833  M00S01660.msm     +++|          SHN    3
01834  M00S01661.msm     +++|          ADN    ALGL
01835  M00S01662.msm     +++|          CRD    CN
01836  M00S01663.msm     +++|          LDD    CN+1        CHECK LABEL TRACK
01837  M00S01664.msm     +++|          LMM    ECLT
01838  M00S01665.msm     +++|          ZJN    RLD5        IF SAME AS FOUND BY *CPUMTR*
01839  M00S01666.msm     +++|          MONITOR  HNGM      HANG PP
01840  M00S01667.msm     +++|
01841  M00S01668.msm     +++| RLD5     STD    RC
01842  M00S01669.msm     +++|          LDD    RE          SAVE LINK DEVICE RECOVERY STATUS
01843  M00S01670.msm     +++|          STM    UMTA
Line S01671 Modification History
M01 (Removed by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
01844  M01S01671.283l840 ---|          LDC    **          SET *PRESET* COUNT
Line S00072 Modification History
M01 (Added by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
01845  M01S00072.283l840 +++|          LDC    **          *PRESET* COUNT
01846  M00S01672.msm     +++| RLDA     EQU    *-1
Line S00073 Modification History
M01 (Added by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
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  M00S01673.msm     +++|          STD    P2
Line S01674 Modification History
M01 (Removed by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
01852  M01S01674.283l840 ---|          ZJN    RLD6        IF PRESET NOT SPECIFIED
01853  M00S01675.msm     +++|          EXECUTE 0MF,PRS
01854  M00S01676.msm     +++|          LDN    0           CLEAR LINK DEVICE RECOVERY STATUS
01855  M00S01677.msm     +++|          STM    UMTA
01856  M00S01678.msm     +++| RLD6     STD    RE          CLEAR RECOVERY FOR LINK DEVICE
01857  M00S01679.msm     +++|          RJM    LRA         LOAD REFERENCE ADDRESS
01858  M00S01680.msm     +++|          ADD    EQ
01859  M00S01681.msm     +++|          CWD    RD
01860  M00S01682.msm     +++|          EXECUTE 4DB        RELOAD *4DB*
01861  M00S01683.msm     +++|          LDC    LRMS        ENABLE MMF RECOVERY
01862  M00S01684.msm     +++|          RJM    EMF
01863  M00S01685.msm     +++|
01864  M00S01686.msm     +++| RLD      SUBR               ENTRY/EXIT
01865  M00S01687.msm     +++| RLDB     LDN    0
01866  M00S01688.msm     +++|*         LDN    1           (LINK DEVICE ALREADY RECOVERED)
01867  M00S01689.msm     +++|          NJN    RLDX        IF LINK DEVICE ALREADY RECOVERED
01868  M00S01690.msm     +++|          AOM    RLDB
Line S01691 Modification History
M01 (Removed by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
01869  M01S01691.283l840 ---|          LDK    MMFL
01870  M01S01692.283l840 ---|          CRD    CM
01871  M01S01693.283l840 ---|          LDD    CM+1
01872  M01S01694.283l840 ---|          LPC    777
Line S00077 Modification History
M01 (Added by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
01873  M01S00077.283l840 +++|          LDC    **          (LINK DEVICE EST ORDINAL)
01874  M01S00078.283l840 +++| RLDD     EQU    *-1
01875  M00S01695.msm     +++|          ZJN    RLDX        IF STAND-ALONE SYSTEM
01876  M00S01696.msm     +++|          STD    T5
01877  M00S01697.msm     +++|          STD    EQ
Line S01698 Modification History
M01 (Removed by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
01878  M01S01698.283l840 ---|          LDD    IR+2        CHECK PRESET COUNT
01879  M01S01699.283l840 ---|          NJN    RLD1        IF PRESET SELECTED
01880  M01S01700.283l840 ---|          LDC    LRMS        ENABLE MMF RECOVERY
Line S00079 Modification History
M01 (Added by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
01881  M01S00079.283l840 +++| RLDE     LDC    LRMS        ENABLE MMF RECOVERY
01882  M01S00080.283l840 +++|*         UJN    RLD1        (PRESET SELECTED)
01883  M00S01701.msm     +++|          RJM    EMF
Line S01702 Modification History
M01 (Removed by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
01884  M01S01702.283l840 ---|          LDD    RS          CHECK RECOVERY STATUS
01885  M01S01703.283l840 ---|          LPN    FLMK
01886  M01S01704.283l840 ---|          LMN    FLCM
01887  M01S01705.283l840 ---|          ZJN    RLDX        IF CM RECOVERY
01888  M01S01706.283l840 ---|          STM    WMTB
Line S00081 Modification History
M01 (Added by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
01889  M01S00081.283l840 +++| RLDF     STM    WMTB        ENABLE LINK DEVICE RECOVERY
01890  M01S00082.283l840 +++|*         UJN    RLDX        (CM RECOVERY)
01891  M00S01707.msm     +++| RLD1     RJM    SEM         SET EQUIPMENT MESSAGE
01892  M00S01708.msm     +++|          LJM    RLD2        CHECK FOR INITIALIZATION
01893  M00S01709.msm     +++| UMT      SPACE  4
01894  M00S01710.msm     +++|**        UMT - UPDATE MMF TABLES IN EXTENDED MEMORY.
01895  M00S01711.msm     +++|*
01896  M00S01712.msm     +++|*         CALLS  IFR, LRA, MRL, UIS, 4DF.
01897  M00S01713.msm     +++|
01898  M00S01714.msm     +++|
01899  M00S01715.msm     +++| UMT1     LDC    UIS         UPDATE ISD TABLES
01900  M00S01716.msm     +++|          RJM    MRL
01901  M00S01717.msm     +++|
01902  M00S01718.msm     +++| UMT      SUBR               ENTRY/EXIT
01903  M00S01719.msm     +++|          EXECUTE  4DF
01904  M00S01720.msm     +++|          UJMF   UMT1
01905  M00S01721.msm     +++|          LDC    0
01906  M00S01722.msm     +++| UMTB     EQU    *-1         (LINK DEVICE EST ORDINAL)
01907  M00S01723.msm     +++|          STD    T5
01908  M00S01724.msm     +++|          RJM    LRA         LOAD REFERENCE ADDRESS
01909  M00S01725.msm     +++|          ADD    T5
01910  M00S01726.msm     +++|          CRD    RD
01911  M00S01727.msm     +++|          LDC    *           RESTORE LINK DEVICE RECOVERY STATUS
01912  M00S01728.msm     +++| UMTA     EQU    *-1
01913  M00S01729.msm     +++|          STD    RE
01914  M00S01730.msm     +++|          RJM    LRA         LOAD REFERENCE ADDRESS
01915  M00S01731.msm     +++|          ADD    T5
01916  M00S01732.msm     +++|          CWD    RD          RESTORE RECOVERY TABLES
01917  M00S01733.msm     +++|          LDC    UER         UPDATE EXTENDED MEMORY RESIDENT
01918  M00S01734.msm     +++|          RJM    MRL
Line S01735 Modification History
M01 (Removed by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
01919  M01S01735.283l840 ---|          LDD    RS
01920  M01S01736.283l840 ---|          ZJN    UMTX        IF LEVEL 0 DEADSTART
01921  M01S01737.283l840 ---|          LPN    FLMK
01922  M01S01738.283l840 ---|          LMN    FLCM
01923  M01S01739.283l840 ---|          ZJN    UMTX        IF CM RECOVERY
01924  M01S01740.283l840 ---|          LCN    DATI        CLEAR FLAG REGISTER INTERLOCK
Line S00083 Modification History
M01 (Added by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
01925  M01S00083.283l840 +++| UMTC     LCN    DATI        CLEAR FLAG REGISTER INTERLOCK
01926  M01S00084.283l840 +++|*         UJN    UMTX        (LEVEL 0 DEADSTART OR CM RECOVERY)
01927  M00S01741.msm     +++|          RJM    IFR
01928  M00S01742.msm     +++|          LJM    UMTX        RETURN
Line S01743 Modification History
M01 (Removed by) ns2552
Seq #  *Modification Id* Act 
----------------------------+
01929  M01S01743.ns2552  ---| VFP      SPACE  4,10
01930  M01S01744.ns2552  ---|**        VPF - VERIFY PF SYSTEM FOR CONFLICTS IN -
01931  M01S01745.ns2552  ---|*                DEVICE NUMBERS.
01932  M01S01746.ns2552  ---|*                DEVICE MASKS.
01933  M01S01747.ns2552  ---|*                PACKNAMES.
01934  M01S01748.ns2552  ---|*
01935  M01S01749.ns2552  ---|*         ENTRY  (RC) = COUNT OF RECOVERED DEVICES.
01936  M01S01750.ns2552  ---|*
01937  M01S01751.ns2552  ---|*         USES   CM - CM+4, CN - CN+4, FN - FN+4, P1.
01938  M01S01752.ns2552  ---|*
01939  M01S01753.ns2552  ---|*         CALLS  SDF, SFE, VMS, *4DC*.
01940  M01S01754.ns2552  ---|*
01941  M01S01755.ns2552  ---|*         MACROS EXECUTE, MONITOR.
01942  M01S01756.ns2552  ---|
01943  M01S01757.ns2552  ---|
01944  M01S01758.ns2552  ---|*         RESET DEFAULT FAMILY EQUIPMENT TO FAMILY MASTER EQUIPMENT.
01945  M01S01759.ns2552  ---|
01946  M01S01760.ns2552  ---| VPF2     RJM    SDF         SET DEFAULT FAMILY NAME
01947  M01S01761.ns2552  ---|          RJM    SFE         SET FAMILY EQUIPMENT
01948  M01S01762.ns2552  ---|          NJN    VPFX        IF MASTER EQUIPMENT NOT FOUND
01949  M01S01763.ns2552  ---|          LDD    T2          SET FAMILY EST ORDINAL IN *PFNL*
01950  M01S01764.ns2552  ---|          STD    CN+3
01951  M01S01765.ns2552  ---|          LDC    PFNL
01952  M01S01766.ns2552  ---|          CWD    CN
01953  M01S01767.ns2552  ---|
01954  M01S01768.ns2552  ---| VPF      SUBR               ENTRY/EXIT.
01955  M01S01769.ns2552  ---|          LDN    0
01956  M01S01770.ns2552  ---|          STD    P1
01957  M01S01771.ns2552  ---|          EXECUTE  4DC       LOAD VERIFICATION ROUTINES
01958  M01S01772.ns2552  ---|          LDD    RC
01959  M01S01773.ns2552  ---|          ZJN    VPF2        IF NO EQUIPMENT RECOVERED
01960  M01S01774.ns2552  ---| VPF1     RJM    VMS         VERIFY PF SYSTEM FOR CONFLICTS
01961  M01S01775.ns2552  ---|          ZJN    VPF2        IF NO CONFLICTS
01962  M01S01776.ns2552  ---|          MJN    VPF1        IF ERROR ON NON-SYSTEM DEVICE
01963  M01S01777.ns2552  ---|          LJM    HNG         DISPLAY ERROR AND HANG
01964  M00S01778.msm     +++|          SPACE  4
01965  M00S01779.msm     +++|          USE    LITERALS
01966  M00S01780.msm     +++|          TITLE  PRESET PROGRAM.
01967  M00S01781.msm     +++| PRS      SPACE  4
01968  M00S01782.msm     +++|**        PRS - PRESET.
01969  M00S01783.msm     +++|*
01970  M00S01784.msm     +++|*         EXIT   (RS) = RECOVERY STATUS.
01971  M00S01785.msm     +++|*                (TW) = CONSTANT 2.
01972  M00S01786.msm     +++|*                (LM) = EXTENDED MEMORY MST POINTER IF MMF SYSTEM.
01973  M00S01787.msm     +++|*                (LO) = LAST MASS STORAGE ORDINAL + 1.
01974  M00S01788.msm     +++|*                (FN - FN+4) = EXTENDED MEMORY EST ENTRY IF MMF SYSTEM.
01975  M00S01789.msm     +++|*                (CA+1) = FWA FOR CM TRT BUFFER.
01976  M00S01790.msm     +++|*                DEVICE RECOVERY STATUS TABLE IN *MSM-S* FL SET WITH
01977  M00S01791.msm     +++|*                RECOVERY STATUS INFORMATION AND CM ADDRESSES FOR MST
01978  M00S01792.msm     +++|*                LABEL DATA.
01979  M00S01793.msm     +++|*
01980  M00S01794.msm     +++|*         USES   CA, CA+1, LO, P1, RE, RS, TA, TW, T5, CM - CM+4,
01981  M00S01795.msm     +++|*                CN - CN+4, FN - FN+4, RD - RD+4.
01982  M00S01796.msm     +++|*
01983  M00S01797.msm     +++|*         CALLS  CRE, CUR, IET, IFR, LCM, SUD.
01984  M00S01798.msm     +++|*
01985  M00S01799.msm     +++|*         MACROS SFA.
01986  M00S01800.msm     +++|
01987  M00S01801.msm     +++|
01988  M00S01802.msm     +++| PRS      BSS    0
01989  M00S01803.msm     +++|          LDN    JSCL        READ SCHEDULER CONTROL
01990  M00S01804.msm     +++|          CRD    CM
01991  M00S01805.msm     +++|          LDD    CM          SET SCHEDULER ACTIVE
01992  M00S01806.msm     +++|          LPC    3777
01993  M00S01807.msm     +++|          LMC    4000
01994  M00S01808.msm     +++|          STD    CM
01995  M00S01809.msm     +++|          LDN    JSCL        STORE SCHEDULER CONTROL
01996  M00S01810.msm     +++|          CWD    CM
01997  M00S01811.msm     +++|          LDN    2           DEFINE CONSTANT 2
01998  M00S01812.msm     +++|          STD    TW
01999  M00S01813.msm     +++|          LDN    ESTP        READ EST POINTER
02000  M00S01814.msm     +++|          CRD    CM
02001  M00S01815.msm     +++|          LDD    CM+3        SET LAST MASS STORAGE ORDINAL + 1
02002  M00S01816.msm     +++|          STD    LO
02003  M00S01817.msm     +++|          ADN    7           SET INDEX IN MST TABLE
02004  M00S01818.msm     +++|          SCN    7
02005  M00S01819.msm     +++|          STD    CA
02006  M00S01820.msm     +++|          STD    CA+1
02007  M00S01821.msm     +++|          LDD    IR+4        SET RECOVERY STATUS
02008  M00S01822.msm     +++|*         STD    RS
02009  M00S01823.msm     +++|          STM    RMSD+4      STORE IN *REC* CALL
Line S00085 Modification History
M01 (Added by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
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  M00S01824.msm     +++|          LPN    FLMK
02017  M00S01825.msm     +++|          LMN    FLCM
02018  M00S01826.msm     +++|          STD    P1
02019  M00S01827.msm     +++|          NJN    PRS1        IF NOT CM RECOVERY
02020  M00S01828.msm     +++|          IFGT   TA,RA
02021  M00S01829.msm     +++|          LDN    RA-TA
02022  M00S01830.msm     +++|          ELSE   1
02023  M00S01831.msm     +++|          LCN    RA-TA
02024  M00S01832.msm     +++|          RAM    LRAC
02025  M00S01833.msm     +++|          RJM    LCM         FIND FREE AREA
02026  M00S01834.msm     +++|          LDK    MABL        CHECK MAINFRAME TYPE
02027  M00S01835.msm     +++|          CRD    CM
02028  M00S01836.msm     +++|          LDD    CM+1
02029  M00S01837.msm     +++|          SHN    21-13
02030  M00S01838.msm     +++|          MJN    PRS1        IF CME NOT PRESENT
02031  M00S01839.msm     +++|          LDC    4000
02032  M00S01840.msm     +++|          STD    TA
02033  M00S01841.msm     +++|          LDC    0
02034  M00S01842.msm     +++|          ORG    *-1
02035  M00S01843.msm     +++|          LOC    LRAA
02036  M00S01844.msm     +++|          UJN    LRA1        SET *R* REGISTER
02037  M00S01845.msm     +++|          LOC    *O
02038  M00S01846.msm     +++|          STM    LRAA
02039  M00S01847.msm     +++| PRS1     RJM    IET         INITIALIZE EQUIPMENT TABLE
02040  M00S01848.msm     +++|          LDD    P2
02041  M00S01849.msm     +++|          NJN    PRS2        IF NOT ALL-ISD CONFIGURATION
02042  M00S01850.msm     +++|          LDK    CFGL
02043  M00S01851.msm     +++|          CRD    CM
02044  M00S01852.msm     +++|          LDD    CM+3
02045  M00S01853.msm     +++|          LPC    7377
02046  M00S01854.msm     +++|          ADC    400         SET ALL-ISD FLAG
02047  M00S01855.msm     +++|          STD    CM+3
02048  M00S01856.msm     +++|          LDK    CFGL
02049  M00S01857.msm     +++|          CWD    CM
02050  M00S01858.msm     +++| PRS2     LDD    CA          SET ADDRESS OF TRT BUFFER
02051  M00S01859.msm     +++|          STD    CA+1
02052  M00S01860.msm     +++|          LDC    CPAS+MS1W   ISSUE *SPINNING UP DRIVES* MESSAGE
02053  M00S01861.msm     +++|          CWM    PRSE,TR
02054  M00S01862.msm     +++|          LDN    0           SPIN UP ISMD DRIVES
02055  M00S01863.msm     +++|          RJM    SUD
02056  M00S01864.msm     +++|          LDN    0           WAIT - SPIN UP COMPLETE
02057  M00S01865.msm     +++|          RJM    SUD
02058  M00S01866.msm     +++|          LDC    CPAS+MS1W   ISSUE RECOVERY MESSAGE
02059  M00S01867.msm     +++|          CWM    PRSA,TW
02060  M00S01868.msm     +++|          LDD    P1
02061  M00S01869.msm     +++|          NJN    PRS3        IF NOT CM RECOVERY
02062  M00S01870.msm     +++|          STM    RMSB
02063  M00S01871.msm     +++|          RJM    LCM         CHECK FIELD LENGTH
02064  M00S01872.msm     +++|          RJM    CRE         CHECK RECOVERY
02065  M00S01873.msm     +++| PRS3     LDN    DFPP
02066  M00S01874.msm     +++|          CRD    CM
02067  M00S01875.msm     +++|          LDD    CM          SET FWA OF DAYFILE POINTERS
02068  M00S01876.msm     +++|          SHN    14
02069  M00S01877.msm     +++|          ADD    CM+1
02070  M00S01878.msm     +++|          CRD    CM
02071  M00S01879.msm     +++|          LDD    CM          SET ADDRESS OF DAYFILE RECOVERY SELECTIONS
02072  M00S01880.msm     +++|          RAM    RMSC-1
02073  M00S01881.msm     +++|          LPN    37
02074  M00S01882.msm     +++|          SHN    14
02075  M00S01883.msm     +++|          ADD    CM+1
02076  M00S01884.msm     +++|          STM    RMSC
02077  M00S01885.msm     +++|          CRM    RMSF,ON     READ DAYFILE RECOVERY SELECTIONS
02078  M00S01886.msm     +++|          RJM    CUR         CHECK FOR UEM RECOVERY REQUIRED
02079  M00S01887.msm     +++|          LDK    MMFL        CHECK MMF STATUS WORD
02080  M00S01888.msm     +++|          CRD    CN
Line S01889 Modification History
M01 (Removed by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
02081  M01S01889.283l840 ---|          LDD    CN+1
Line S00091 Modification History
M01 (Added by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
02082  M01S00091.283l840 +++|          LDD    CN+1        GET LINK DEVICE EST ORDINAL
02083  M00S01890.msm     +++|          LPC    777
Line S00092 Modification History
M01 (Added by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
02084  M01S00092.283l840 +++|          STM    RLDD
02085  M00S01891.msm     +++|          NJN    PRS5        IF NOT STAND ALONE SYSTEM
02086  M00S01892.msm     +++| PRS4     LDC    DSCP*200+MS1W  STORE RECOVERY MESSAGE
02087  M00S01893.msm     +++|          CWM    PRSF,TW
02088  M00S01894.msm     +++|          LJM    RMS1        EXIT TO MAIN ROUTINE
02089  M00S01895.msm     +++|
02090  M00S01896.msm     +++| PRS5     STD    T5
02091  M00S01897.msm     +++|          STM    UMTB
02092  M00S01898.msm     +++|          SFA    EST         READ LINK DEVICE EST ENTRY TO (FN - FN+4)
02093  M00S01899.msm     +++|          ADK    EQDE
02094  M00S01900.msm     +++|          CRD    FN
02095  M00S01901.msm     +++|          LDD    IR+3        CHECK FOR INITIALIZE ERROR FROM *CPUMTR*
02096  M00S01902.msm     +++|          STM    ECLT
02097  M00S01903.msm     +++|          SHN    21-13
02098  M00S01904.msm     +++|          MJN    PRS6        IF NO ERROR
02099  M00S01905.msm     +++|          LDM    PRSB-1,IR+3 DISPLAY ERROR CONDITION
02100  M00S01906.msm     +++|          LJM    HNG
02101  M00S01907.msm     +++|
02102  M00S01908.msm     +++| PRS6     LDD    CN+3        SET MACHINE MASK
02103  M00S01909.msm     +++|          STM    CADA
02104  M00S01910.msm     +++|          RJM    LRA         LOAD REFERENCE ADDRESS
02105  M00S01911.msm     +++|          ADD    T5
02106  M00S01912.msm     +++|          CRD    RD
02107  M00S01913.msm     +++|          LDD    RE          ASSIGN SYSTEM STATUS TO LINK DEVICE
02108  M00S01914.msm     +++|          LPC    5520
02109  M00S01915.msm     +++|          LMC    2000
02110  M00S01916.msm     +++|          STD    RE
02111  M00S01917.msm     +++|          RJM    LRA         LOAD REFERENCE ADDRESS
02112  M00S01918.msm     +++|          ADD    T5          RESTORE LINK DEVICE INFORMATION
02113  M00S01919.msm     +++|          CWD    RD
02114  M00S01920.msm     +++|          LDD    FN+4        SET LINK DEVICE MST POINTER
02115  M00S01921.msm     +++|          STM    LDMP
Line S01922 Modification History
M01 (Removed by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
02116  M01S01922.283l840 ---|          LDD    IR+2        CHECK PRESET REQUESTED
Line S00093 Modification History
M01 (Added by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
02117  M01S00093.283l840 +++|          LDK    DSCL        CHECK PRESET REQUESTED
02118  M01S00094.283l840 +++|          CRD    CM
02119  M01S00095.283l840 +++|          LDD    CM+3
02120  M00S01923.msm     +++|          STM    RLDA
Line S00096 Modification History
M01 (Added by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
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  M00S01924.msm     +++|          LDD    P1
Line S01925 Modification History
M01 (Removed by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
02126  M01S01925.283l840 ---|          ZJN    PRS8        IF CM RECOVERY
02127  M01S01926.283l840 ---|          LDD    RS
Line S00100 Modification History
M01 (Added by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
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  M00S01927.msm     +++|          NJN    PRS7        IF RECOVERY SELECTED
02135  M00S01928.msm     +++|          LDC    4000        SET DAT INTERLOCKED
02136  M00S01929.msm     +++|          STD    CN+2
02137  M00S01930.msm     +++|          LDC    MMFL        STORE MMF STATUS WORD
02138  M00S01931.msm     +++|          CWD    CN
02139  M00S01932.msm     +++| PRS7     SBN    1           DELAY
02140  M00S01933.msm     +++|          NJN    PRS7
02141  M00S01934.msm     +++|          LDC    CPAS+MS1W+1 STORE *WAITING* MESSAGE
02142  M00S01935.msm     +++|          CWM    PRSC,ON
02143  M00S01936.msm     +++|          ADN    MS2W-MS1W-2
02144  M00S01937.msm     +++|          CWM    PRSD,TR
02145  M00S01938.msm     +++|          LDN    DATI        GET FLAG REGISTER INTERLOCK
02146  M00S01939.msm     +++|          RJM    IFR
02147  M00S01940.msm     +++|          NJN    PRS7        IF DAT BUSY
02148  M00S01941.msm     +++| PRS8     LJM    PRS4        STORE RECOVERY MESSAGE
02149  M00S01942.msm     +++|
02150  M00S01943.msm     +++| PRSA     DATA   C*RECOVERY,*
02151  M00S01944.msm     +++|
02152  M00S01945.msm     +++| PRSB     CON    ERM1
02153  M00S01946.msm     +++|          CON    ERM2
02154  M00S01947.msm     +++|          CON    ERM3
02155  M00S01948.msm     +++|          CON    ERM4
02156  M00S01949.msm     +++|          CON    ERM5
02157  M00S01950.msm     +++|          CON    ERM6
02158  M00S01951.msm     +++|
02159  M00S01952.msm     +++| ERM1     DATA   C*EXTENDED MEMORY LABEL TRACK NOT FOUND.*
02160  M00S01953.msm     +++| ERM2     DATA   C*MID UNDEFINED IN EXTENDED MEMORY.*
02161  M00S01954.msm     +++| ERM3     DATA   C*MID CURRENTLY ACTIVE.*
02162  M00S01955.msm     +++| ERM4     DATA   C*MAXIMUM NUMBER MIDS ACTIVE.*
02163  M00S01956.msm     +++| ERM5     DATA   C*EXTENDED MEMORY READ/WRITE PARITY ERRORS.*
02164  M00S01957.msm     +++| ERM6     DATA   C*PRESET NOT ALLOWED.*
02165  M00S01958.msm     +++|
02166  M00S01959.msm     +++| PRSC     DATA   C*WAITING*
02167  M00S01960.msm     +++| PRSD     DATA   C*MMF DEADSTART IN PROGRESS.*
02168  M00S01961.msm     +++| PRSE     DATA   C*SPINNING UP DRIVES.*
02169  M00S01962.msm     +++| PRSF     DATA   C*RECOVERING*
02170  M00S01963.msm     +++| CRE      SPACE  4,10
02171  M00S01964.msm     +++|**        CRE - CHECK RECOVERY.
02172  M00S01965.msm     +++|*
02173  M00S01966.msm     +++|*         EXIT   TO *PPR* TO CALL *1CK* IF ONLY TO CHECKPOINT.
02174  M00S01967.msm     +++|*
02175  M00S01968.msm     +++|*         USES   T1 - T6, CM - CM+4.
02176  M00S01969.msm     +++|*         MACROS SFA.
02177  M00S01970.msm     +++|
02178  M00S01971.msm     +++|
02179  M00S01972.msm     +++| CRE7     LDN    7           SET CHECKPOINT OF NON-BUFFERED DEVICES
02180  M00S01973.msm     +++|          STM    CREB+2
02181  M00S01974.msm     +++| CRE8     LDN    NCPL        CALL *1CK* TO SYSTEM CP
02182  M00S01975.msm     +++|          CRD    CM
02183  M00S01976.msm     +++|          AOD    CM+1
02184  M00S01977.msm     +++|          RAM    CREB+1
02185  M00S01978.msm     +++|          LDD    IA
02186  M00S01979.msm     +++|          CWM    CREB,ON
02187  M00S01980.msm     +++|          EXECUTE  1CK,=
02188  M00S01981.msm     +++|          LJM    PPR         EXIT TO PP RESIDENT
02189  M00S01982.msm     +++|
02190  M00S01983.msm     +++| CRE      SUBR               ENTRY/EXIT
02191  M00S01984.msm     +++|          LDD    IR+3
02192  M00S01985.msm     +++|          SHN    21-13
02193  M00S01986.msm     +++|          MJN    CRE2        IF LABEL TRACK SPECIFICATION
02194  M00S01987.msm     +++|          SHN    13-21
02195  M00S01988.msm     +++|          LPN    7
02196  M00S01989.msm     +++|          ZJN    CRE1        IF NO MMF PRESET ERROR
02197  M00S01990.msm     +++|          LMN    2
02198  M00S01991.msm     +++|          NJN    CREX        IF NOT *RECOVERY DS PREVENTED THIS MID.*
02199  M00S01992.msm     +++| CRE1     LDD    IR+3
02200  M00S01993.msm     +++|          SHN    21-12
02201  M00S01994.msm     +++|          MJN    CRE7        IF CHECKPOINT NON-BUFFERED DEVICES
02202  M00S01995.msm     +++| CRE2     LDC    BIOL
02203  M00S01996.msm     +++|          CRD    CM
02204  M00S01997.msm     +++|          LDD    CM+1
02205  M00S01998.msm     +++|          SHN    14
02206  M00S01999.msm     +++|          LMD    CM+2
02207  M00S02000.msm     +++|          NJN    CRE2.1      IF BUFFERED I/O PRESENT
02208  M00S02001.msm     +++|          LDD    IR+3
02209  M00S02002.msm     +++|          SHN    21-11
02210  M00S02003.msm     +++|          MJP    CRE8        IF CHECKPOINT ALL DEVICES
02211  M00S02004.msm     +++|          UJN    CREX        RETURN
02212  M00S02005.msm     +++|
02213  M00S02006.msm     +++| CRE2.1   ADN    PUTP
02214  M00S02007.msm     +++|          CRD    T1
Line S00001 Modification History
M01 (Added by) ns2682
Seq #  *Modification Id* Act 
----------------------------+
02215  M01S00001.ns2682  +++|          LDD    T1+3        CLEAR FLAGS
02216  M01S00002.ns2682  +++|          LPN    77
02217  M01S00003.ns2682  +++|          STD    T1+3
02218  M00S02008.msm     +++|          LDC    CPAS+MS2W   ENTER MESSAGE
02219  M00S02009.msm     +++|          CWM    CREA,TR
02220  M00S02010.msm     +++|          LDN    ZERL        REQUEST FLUSH OF ALL WRITE BUFFERS
02221  M00S02011.msm     +++|          CRD    CM
02222  M00S02012.msm     +++|          LDC    BMFW*100+1
02223  M00S02013.msm     +++|          STD    CM+4
02224  M00S02014.msm     +++|          MONITOR  BFMM
02225  M00S02015.msm     +++| CRE3     LDD    T1          SET NUMBER OF ENTRIES
02226  M00S02016.msm     +++|          ADN    1
02227  M00S02017.msm     +++|          STD    T6
02228  M00S02018.msm     +++| CRE4     SOD    T6
02229  M00S02019.msm     +++|          ZJN    CRE5        IF ALL ENTRIES CHECKED
02230  M00S02020.msm     +++|          SHN    PUTLS       CHECK *PUT* FOR OUTSTANDING REQUESTS
02231  M00S02021.msm     +++|          ADD    T1+4
02232  M00S02022.msm     +++|          SHN    6
02233  M00S02023.msm     +++|          ADD    T1+3
02234  M00S02024.msm     +++|          SHN    14
02235  M00S02025.msm     +++|          ADK    UNCT
02236  M00S02026.msm     +++|          CRD    CM
02237  M00S02027.msm     +++|          LDD    CM+3
02238  M00S02028.msm     +++|          ZJN    CRE4        IF NO REQUESTS OUTSTANDING
02239  M00S02029.msm     +++|          SFA    EST,CM+1
02240  M00S02030.msm     +++|          ADK    EQDE
02241  M00S02031.msm     +++|          CRD    CM
02242  M00S02032.msm     +++|          LDD    CM
02243  M00S02033.msm     +++|          LPN    3
02244  M00S02034.msm     +++|          LMN    3
02245  M00S02035.msm     +++|          ZJN    CRE4        IF DEVICE IS DOWN
02246  M00S02036.msm     +++|          UJP    CRE3        WAIT FOR FLUSH TO COMPLETE
02247  M00S02037.msm     +++|
02248  M00S02038.msm     +++| CRE5     STD    CM          CLEAR MESSAGE
02249  M00S02039.msm     +++|          LDC    CPAS+MS2W
02250  M00S02040.msm     +++|          CWD    CM
02251  M00S02041.msm     +++|          LDD    IR+3
02252  M00S02042.msm     +++|          SHN    21-13
02253  M00S02043.msm     +++|          MJN    CRE6        IF LABEL TRACK SPECIFICATION
02254  M00S02044.msm     +++|          SHN    21-11-21+13
02255  M00S02045.msm     +++|          PJN    CRE6        IF NO CHECKPOINT ABORT
02256  M00S02046.msm     +++|          LJM    CRE8        CHECKPOINT ALL DEVICES AND ABORT
02257  M00S02047.msm     +++|
02258  M00S02048.msm     +++| CRE6     LJM    CREX        RETURN
02259  M00S02049.msm     +++|
02260  M00S02050.msm     +++| CREA     DATA   C*FLUSHING BUFFERED DEVICES.*
02261  M00S02051.msm     +++| CREB     VFD    24/3L1CK,12/6,24/0
02262  M00S02052.msm     +++| CUR      SPACE  4,10
02263  M00S02053.msm     +++|**        CUR - CHECK FOR UEM RECOVERY REQUIRED.
02264  M00S02054.msm     +++|*
02265  M00S02055.msm     +++|*         ENTRY  (RS) = RECOVERY STATUS.
02266  M00S02056.msm     +++|*
02267  M00S02057.msm     +++|*         USES   CM - CM+4.
02268  M00S02058.msm     +++|*
02269  M00S02059.msm     +++|*         MACROS SFA.
02270  M00S02060.msm     +++|
02271  M00S02061.msm     +++|
02272  M00S02062.msm     +++| CUR      SUBR               ENTRY/EXIT
02273  M00S02063.msm     +++|          LDD    RS
02274  M00S02064.msm     +++|          LPN    FLMK
02275  M00S02065.msm     +++|          LMN    FLTB
02276  M00S02066.msm     +++|          NJN    CURX        IF NOT LEVEL 1 OR 2 RECOVERY
02277  M00S02067.msm     +++|          LDN    ESTP        SEARCH FOR UEM EQUIPMENT
02278  M00S02068.msm     +++|          CRD    T3
02279  M00S02069.msm     +++|          LDN    NOPE-1
02280  M00S02070.msm     +++|          STD    T5
02281  M00S02071.msm     +++| CUR1     AOD    T5
02282  M00S02072.msm     +++|          LMD    T6
02283  M00S02073.msm     +++|          ZJN    CURX        IF NO UEM EQUIPMENT
02284  M00S02074.msm     +++|          SFA    EST,T5
02285  M00S02075.msm     +++|          ADK    EQDE
02286  M00S02076.msm     +++|          CRD    CM
02287  M00S02077.msm     +++|          LDD    CM
02288  M00S02078.msm     +++|          SHN    21-13
02289  M00S02079.msm     +++|          PJN    CUR1        IF NOT MASS STORAGE
02290  M00S02080.msm     +++|          LDD    CM+4
02291  M00S02081.msm     +++|          SHN    3
02292  M00S02082.msm     +++|          ADK    DILL
02293  M00S02083.msm     +++|          CRD    CM
02294  M00S02084.msm     +++|          LDD    CM+3        CHECK MEMORY TYPE
02295  M00S02085.msm     +++|          SHN    -6
02296  M00S02086.msm     +++|          LPN    7
02297  M00S02087.msm     +++|          LMN    4
02298  M00S02088.msm     +++|          NJN    CUR1        IF NOT UEM
02299  M00S02089.msm     +++|          LDD    T5
02300  M00S02090.msm     +++|          STM    RMSE
02301  M00S02091.msm     +++|          AOM    REMA        ENABLE *4DK* CALL
02302  M00S02092.msm     +++|          UJP    CURX        RETURN
02303  M00S02093.msm     +++| IET      SPACE  4,10
02304  M00S02094.msm     +++|**        IET - INITIALIZE EQUIPMENT TABLE.
02305  M00S02095.msm     +++|*
02306  M00S02096.msm     +++|*         ENTRY  (CA) = CM ADDRESS OF MST TABLE.
02307  M00S02097.msm     +++|*
02308  M00S02098.msm     +++|*         EXIT   (RC) = 0.
02309  M00S02099.msm     +++|*                (P2) = 0 IF ALL ISD CONFIGURATION.
02310  M00S02100.msm     +++|*                (CA) = LWA OF MST TABLE IN CM.
02311  M00S02101.msm     +++|*                DEVICE RECOVERY INFORMATION IN CM INITIATED.
02312  M00S02102.msm     +++|*
02313  M00S02103.msm     +++|*         USES   T5, UC, CM - CM+4, FN - FN+4, FS - FS+4, RD - RD+4.
02314  M00S02104.msm     +++|*
02315  M00S02105.msm     +++|*         CALLS  LRA.
02316  M00S02106.msm     +++|*
02317  M00S02107.msm     +++|*         MACROS SFA.
02318  M00S02108.msm     +++|
02319  M00S02109.msm     +++|
02320  M00S02110.msm     +++| IET5     LDN    ZERL        CLEAR RECOVERY TABLE ENTRY
02321  M00S02111.msm     +++|          CRD    RD
02322  M00S02112.msm     +++| IET6     RJM    LRA         LOAD REFERENCE ADDRESS
02323  M00S02113.msm     +++|          ADD    T5
02324  M00S02114.msm     +++|          CWD    RD
02325  M00S02115.msm     +++|          AOD    T5          ADVANCE EST ORDINAL
02326  M00S02116.msm     +++|          LMD    LO
02327  M00S02117.msm     +++|          NJN    IET1        IF NOT END OF MASS STORAGE DEVICES
02328  M00S02118.msm     +++|          STD    RC
02329  M00S02119.msm     +++|
02330  M00S02120.msm     +++| IET      SUBR               ENTRY/EXIT
02331  M00S02121.msm     +++|          LDN    0           SET ISD CONFIGURATION FLAG
02332  M00S02122.msm     +++|          STD    P2
02333  M00S02123.msm     +++|          LDN    NOPE-1      INITIALIZE EST ORDINAL FOR SEARCH
02334  M00S02124.msm     +++|          STD    T5
02335  M00S02125.msm     +++| IET1     SFA    EST,T5      READ EST ENTRY
02336  M00S02126.msm     +++|          ADK    EQDE
02337  M00S02127.msm     +++|          CRD    FN
02338  M00S02128.msm     +++|          LDD    FN          CHECK EST ENTRY
02339  M00S02129.msm     +++|          LPC    7500        PRESET RECOVERY TABLE
02340  M00S02130.msm     +++|          STD    RE
02341  M00S02131.msm     +++|          SHN    21-13
02342  M00S02132.msm     +++|          PJN    IET5        IF NOT MASS STORAGE ENTRY
02343  M00S02133.msm     +++|          LDD    CA          SET ADDRESS OF MST FOR FIRST UNIT
02344  M00S02134.msm     +++|          STD    AL
02345  M00S02135.msm     +++|          LDD    FN+4        READ *STLL*
02346  M00S02136.msm     +++|          SHN    3
02347  M00S02137.msm     +++|          ADN    STLL
02348  M00S02138.msm     +++|          CRD    FS
02349  M00S02139.msm     +++|          ADN    DDLL-STLL   READ *DDLL*
02350  M00S02140.msm     +++|          CRD    CM
02351  M00S02141.msm     +++|          LDD    CM          SET ORIGINAL UNIT COUNT
02352  M00S02142.msm     +++|          SHN    -3
02353  M00S02143.msm     +++|          LPN    7
02354  M00S02144.msm     +++|          STD    UC
02355  M00S02145.msm     +++|          LDD    FN+3        CHECK FOR ISD DEVICE
02356  M00S02146.msm     +++|          LMC    2RDE
02357  M00S02147.msm     +++|          ZJN    IET2        IF EXTENDED MEMORY
02358  M00S02148.msm     +++|          LMN    2RDD&2RDE
02359  M00S02149.msm     +++|          ZJN    IET2        IF ISD
02360  M00S02150.msm     +++|          LMN    2RDG&2RDD
02361  M00S02151.msm     +++|          ZJN    IET2        IF ISD
02362  M00S02152.msm     +++|          STD    P2          SET NON-ISD FLAG
02363  M00S02153.msm     +++| IET2     LDN    MSTL        ADVANCE INDEX IN MST TABLE
02364  M00S02154.msm     +++|          RAD    CA
02365  M00S02155.msm     +++|          SOD    UC
02366  M00S02156.msm     +++|          PJN    IET2        IF MORE UNITS THIS EQUIPMENT
02367  M00S02157.msm     +++|          LDD    FS          ASSIGN SYSTEM STATUS TO ASR DEVICE
02368  M00S02158.msm     +++|          LPN    MRASD
02369  M00S02159.msm     +++|          SHN    12-RASD+RASD/12D*12D
02370  M00S02160.msm     +++|          RAD    RE
02371  M00S02161.msm     +++|          LDD    FS
02372  M00S02162.msm     +++|          LPC    MLIAL
02373  M00S02163.msm     +++|          ZJN    IET4        IF FULL INITIALIZE NOT SPECIFIED
02374  M00S02164.msm     +++|          LDN    20          SET INITIALIZE FLAG
02375  M00S02165.msm     +++|          RAD    RE
02376  M00S02166.msm     +++|          AOM    RMSA        ADVANCE INITIALIZATION COUNT
02377  M00S02167.msm     +++| IET3     LJM    IET6        STORE RECOVERY INFORMATION
02378  M00S02168.msm     +++|
02379  M00S02169.msm     +++| IET4     LDD    FN
02380  M00S02170.msm     +++|          SHN    21-10
02381  M00S02171.msm     +++|          PJN    IET3        IF NON-REMOVABLE DEVICE
02382  M00S02172.msm     +++|          LDD    RS
02383  M00S02173.msm     +++|          LPN    FLMK
02384  M00S02174.msm     +++|          LMN    FLTB
02385  M00S02175.msm     +++|          NJN    IET3        IF FILES NOT RECOVERED FROM MASS STORAGE
02386  M00S02176.msm     +++|          LJM    IET5        DEFER RECOVERY TO *CMS*
02387  M00S02177.msm     +++| LCM      SPACE  4,10
02388  M00S02178.msm     +++|**        LCM - LOCATE CM FOR RECOVERY.
02389  M00S02179.msm     +++|*
02390  M00S02180.msm     +++|*         ENTRY  (A) = 0 IF RECHECKING FIELD LENGTH.
02391  M00S02181.msm     +++|*                (CA+1) = MEMORY REQUIRED.
02392  M00S02182.msm     +++|*
02393  M00S02183.msm     +++|*         EXIT   (LRAB) = RA OF FREE AREA.
02394  M00S02184.msm     +++|*                (CN - CN+3) = PARAMETERS FROM *CMA*.
02395  M00S02185.msm     +++|*
02396  M00S02186.msm     +++|*         CALLS  CMA.
02397  M00S02187.msm     +++|
02398  M00S02188.msm     +++|
02399  M00S02189.msm     +++| LCM      SUBR               ENTRY/EXIT
02400  M00S02190.msm     +++|          ZJN    LCM1        IF RECHECKING FIELD LENGTH
02401  M00S02191.msm     +++|          LDN    ZERL
02402  M00S02192.msm     +++|          CRD    CN
02403  M00S02193.msm     +++|          LDN    CN          FIND LARGEST FREE AREA
02404  M00S02194.msm     +++|          RJM    CMA
02405  M00S02195.msm     +++|          LDD    CN+1        SAVE RA OF AREA
02406  M00S02196.msm     +++|          STM    LRAB
02407  M00S02197.msm     +++|          STD    TA
02408  M00S02198.msm     +++|          LDD    CN
02409  M00S02199.msm     +++|          RAM    LRAB-1
02410  M00S02200.msm     +++| LCM1     LDD    CN+2
02411  M00S02201.msm     +++|          NJN    LCMX        IF SUFFICIENT FL
02412  M00S02202.msm     +++|          LDD    CA+1
02413  M00S02203.msm     +++|          ADN    77
02414  M00S02204.msm     +++|          SHN    -6
02415  M00S02205.msm     +++|          SBD    CN+3
02416  M00S02206.msm     +++|          MJN    LCMX        IF SUFFICIENT MEMORY AVAILABLE
02417  M00S02207.msm     +++|          ZJN    LCMX        IF SUFFICIENT MEMORY AVAILABLE
02418  M00S02208.msm     +++|          LDC    LCMA        * INSUFFICIENT MEMORY FOR CM RECOVERY.*
02419  M00S02209.msm     +++|          LJM    HNG         PROCESS ERROR
02420  M00S02210.msm     +++|
02421  M00S02211.msm     +++|
02422  M00S02212.msm     +++| LCMA     DATA   C* INSUFFICIENT MEMORY FOR CM RECOVERY.*
02423  M00S02213.msm     +++|          SPACE  4,10
02424  M00S02214.msm     +++|*         COMMON DECKS.
02425  M00S02215.msm     +++|
02426  M00S02216.msm     +++|
02427  M00S02217.msm     +++|*CALL     COMPCMA
02428  M00S02218.msm     +++|*CALL     COMPSUD
02429  M00S02219.msm     +++|
02430  M00S02220.msm     +++|
02431  M00S02221.msm     +++| OVL0     BSS    0           *0SD* LOAD ADDRESS
02432  M00S02222.msm     +++|          ERRNG  BFMS-OVL0-ZSDL  *0SD* OVERFLOW
02433  M00S02223.msm     +++|
02434  M00S02224.msm     +++|          QUAL
02435  M00S02225.msm     +++|          TTL    MSM/1RF - RECOVER PRESERVED FILES.
02436  M00S02226.msm     +++|          TITLE
02437  M00S02227.msm     +++|          QUAL   RPF
02438  M00S02228.msm     +++|          IDENT  1RF,PPFW
02439  M00S02229.msm     +++|*COMMENT  MSM - RECOVER PRESERVED FILES.
Line S02230 Modification History
M01 (Removed by) 281l803
Seq #  *Modification Id* Act 
----------------------------+
02440  M01S02230.281l803 ---|          COMMENT COPYRIGHT CONTROL DATA CORPORATION, 1986.
Line S00003 Modification History
M01 (Added by) 281l803
Seq #  *Modification Id* Act 
----------------------------+
02441  M01S00003.281l803 +++|          COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
02442  M00S02231.msm     +++|          QUAL   1RF
02443  M00S02232.msm     +++| RPF      SPACE  4,15
02444  M00S02233.msm     +++|***              *1RF* IS CALLED BY *REC* TO RECOVER PRESERVED
02445  M00S02234.msm     +++|*         FILES ON A MASS STORAGE DEVICE.  WHEN *1RF* HAS FINISHED
02446  M00S02235.msm     +++|*         WITH A DEVICE, IT INDICATES TO *REC* THAT IT IS COMPLETE.
02447  M00S02236.msm     +++|*         *REC* TELLS IT EITHER TO PROCESS ANOTHER DEVICE OR DROP.
02448  M00S02237.msm     +++| RPF      SPACE  4,15
02449  M00S02238.msm     +++|***       ENTRY CONDITIONS.
02450  M00S02239.msm     +++|*
02451  M00S02240.msm     +++|*         (IR+2) = EST ORDINAL.
02452  M00S02241.msm     +++|*         (IR+3) = CP NUMBER AT WHICH TO DISPLAY MESSAGES.
02453  M00S02242.msm     +++|*         (IR+4) = RECOVERY STATUS.
02454  M00S02243.msm     +++|*
02455  M00S02244.msm     +++|*         WHEN *1RF* COMPLETES, IT SETS (IR+2) TO 0.  *REC* EITHER
02456  M00S02245.msm     +++|*         REPLIES WITH ANOTHER EST ORDINAL OR 4000 WHICH INDICATES
02457  M00S02246.msm     +++|*         THAT *1RF* SHOULD DROP.
Line S02247 Modification History
M01 (Removed by) ns2788
Seq #  *Modification Id* Act 
----------------------------+
02458  M01S02247.ns2788  ---|*
02459  M01S02248.ns2788  ---|*         IF AN ERROR REQUIRING AN OPERATOR RESPONSE IS ENCOUNTERED,
02460  M01S02249.ns2788  ---|*         *1RF* PUTS THE MESSAGE IN THE MESSAGE BUFFER AND SETS
02461  M01S02250.ns2788  ---|*         (IR+3) TO 4000.  *REC* RESPONDS BY CLEARING THE 4000 AND
02462  M01S02251.ns2788  ---|*         RETURNING THE OPERATOR RESPONSE IN (IR+3).
02463  M00S02252.msm     +++| RPF      SPACE  4,10
02464  M00S02253.msm     +++|**        ROUTINES CALLED.
02465  M00S02254.msm     +++|*
02466  M00S02255.msm     +++|*         4DA - RECOVER PRESERVED FILES.
02467  M00S02256.msm     +++| RPF      SPACE  4,10
02468  M00S02257.msm     +++|          ORG    PPFW
02469  M00S02258.msm     +++|
Line S02259 Modification History
M01 (Removed by) msm48
Seq #  *Modification Id* Act 
----------------------------+
02470  M01S02259.msm48   ---| RPF      LDD    IR+3        SET *IQFT* BUFFER ADDRESS
Line S00004 Modification History
M01 (Added by) msm48
Seq #  *Modification Id* Act 
----------------------------+
02471  M01S00004.msm48   +++| RPF      BSS    0           ENTRY
02472  M01S00005.msm48   +++|          LDD    IR+3        SET *IQFT* BUFFER ADDRESS
02473  M00S02260.msm     +++|          SHN    6
02474  M00S02261.msm     +++|          STD    CR
Line S02262 Modification History
M01 (Removed by) msm48
Seq #  *Modification Id* Act 
----------------------------+
02475  M01S02262.msm48   ---|          SHN    7-6         SET CONTROL POINT
02476  M01S02263.msm48   ---|          STD    CP
Line S00006 Modification History
M01 (Added by) msm48
Seq #  *Modification Id* Act 
----------------------------+
02477  M01S00006.msm48   +++|          SHN    7-6         SET MESSAGE CONTROL POINT
02478  M01S00007.msm48   +++|          STD    CF
02479  M00S02264.msm     +++|*         LDD    IR+4        SET RECOVERY STATUS
02480  M00S02265.msm     +++|*         STD    RS
Line S02266 Modification History
M01 (Removed by) msm48
Seq #  *Modification Id* Act 
----------------------------+
02481  M01S02266.msm48   ---|          LDC    DSCP*CPAS+FLSW
02482  M01S02267.msm48   ---|          CRD    CM
02483  M01S02268.msm48   ---|          LDD    CM+2        SET RA OF DEADSTART CONTROL POINT
02484  M01S02269.msm48   ---|          SHN    14
02485  M01S02270.msm48   ---|          LMD    CM+3
02486  M01S02271.msm48   ---|          STM    RPFA
02487  M01S02272.msm48   ---|          ADN    2
02488  M01S02273.msm48   ---|          SHN    -13
02489  M01S02274.msm48   ---|          NJN    *           IF CONFUSED, HANG TO PRESERVE CONDITIONS
02490  M01S02275.msm48   ---|          LDN    10
Line S00008 Modification History
M01 (Added by) msm48
Seq #  *Modification Id* Act 
----------------------------+
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  M00S02276.msm     +++|          STD    T1
Line S02277 Modification History
M01 (Removed by) msm48
Seq #  *Modification Id* Act 
----------------------------+
02498  M01S02277.msm48   ---|          LDD    CP          SAVE CONTROL POINT MESSAGES
Line S00014 Modification History
M01 (Added by) msm48
Seq #  *Modification Id* Act 
----------------------------+
02499  M01S00014.msm48   +++|          LDD    CF          SAVE CONTROL POINT MESSAGES
02500  M00S02278.msm     +++|          ADK    MS1W
02501  M00S02279.msm     +++|          CRM    RPFC,T1
02502  M00S02280.msm     +++|
02503  M00S02281.msm     +++|*         NOTE - *DSD* DOES NOT DISPLAY CONTROL POINT MESSAGES ON THE
02504  M00S02282.msm     +++|*         B-DISPLAY UNLESS THERE IS A NON-ZERO EJT ORDINAL PRESENT.
02505  M00S02283.msm     +++|
02506  M00S02284.msm     +++|          ADK    TFSW-MS1W-10
02507  M00S02285.msm     +++|          CRD    CM
02508  M00S02286.msm     +++|          LDD    CM          SAVE CURRENT EJT ORDINAL
02509  M00S02287.msm     +++|          STM    RPFB
02510  M00S02288.msm     +++|          LDN    DSEO        SET DEADSTART EJT ORDINAL
02511  M00S02289.msm     +++|          STD    CM
Line S02290 Modification History
M01 (Removed by) msm48
Seq #  *Modification Id* Act 
----------------------------+
02512  M01S02290.msm48   ---|          LDD    CP
Line S00015 Modification History
M01 (Added by) msm48
Seq #  *Modification Id* Act 
----------------------------+
02513  M01S00015.msm48   +++|          LDD    CF
02514  M00S02291.msm     +++|          ADK    TFSW
02515  M00S02292.msm     +++|          CWD    CM
Line S02293 Modification History
M01 (Removed by) ns2788
Seq #  *Modification Id* Act 
----------------------------+
02516  M01S02293.ns2788  ---| RPF1     EXECUTE 4DA        LOAD SYSTEM SECTOR CLEANUP ROUTINES
Line S00001 Modification History
M01 (Added by) ns2788
Seq #  *Modification Id* Act 
----------------------------+
02517  M01S00001.ns2788  +++|          LDN    2
02518  M01S00002.ns2788  +++|          STD    TW
02519  M01S00003.ns2788  +++|          EXECUTE 4DA        LOAD SYSTEM SECTOR CLEANUP ROUTINES
Line S00016 Modification History
M01 (Added by) msm48
Seq #  *Modification Id* Act 
----------------------------+
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 (Removed by) ns2788
Seq #  *Modification Id* Act 
----------------------------+
02524  M02S00020.ns2788  ---|          AOM    /RDA/PFEE
02525  M00S02294.msm     +++|          LDN    0
02526  M00S02295.msm     +++|          SBN    1           DELAY FOR OTHER *4DA* LOADS TO COMPLETE
02527  M00S02296.msm     +++|          NJN    *-1
02528  M00S02297.msm     +++| RPF2     LDD    IR+2        SET EST ORDINAL
02529  M00S02298.msm     +++|          STD    T5
02530  M00S02299.msm     +++|          SFA    EST         FETCH MST POINTER FROM EST
02531  M00S02300.msm     +++|          ADK    EQDE
02532  M00S02301.msm     +++|          CRD    FN
02533  M00S02302.msm     +++|          LDD    FN+4        READ MST STATUS WORD
02534  M00S02303.msm     +++|          SHN    3
02535  M00S02304.msm     +++|          ADN    STLL
02536  M00S02305.msm     +++|          CRD    CM
02537  M00S02306.msm     +++|          LDD    CM          EXTRACT FULL INITIALIZE FLAG
02538  M00S02307.msm     +++|          LPC    MLIAL
Line S02308 Modification History
M01 (Removed by) msm48
Seq #  *Modification Id* Act 
----------------------------+
02539  M01S02308.msm48   ---|          SHN    14-LIAL+LIAL/12D*12D
02540  M01S02309.msm48   ---|          LMC    0           RA OF DEADSTART CONTROL POINT
02541  M01S02310.msm48   ---| RPFA     EQU    *-1
02542  M00S02311.msm     +++|          RJM    /RDA/RDA    CLEAR PRESERVED FILE INTERLOCKS
02543  M00S02312.msm     +++|          LDN    0
02544  M00S02313.msm     +++|          STD    IR+2        INDICATE RECOVERY COMPLETE
02545  M00S02314.msm     +++|          LDD    IA
02546  M00S02315.msm     +++|          CWD    IR
02547  M00S02316.msm     +++| RPF3     DELAY              WAIT 125 MICROSECONDS
02548  M00S02317.msm     +++|          LDD    IA
02549  M00S02318.msm     +++|          CRD    IR          CHECK FOR REPLY FROM *REC*
02550  M00S02319.msm     +++|          LDD    IR+2
02551  M00S02320.msm     +++|          ZJN    RPF3        IF NO REPLY YET
02552  M00S02321.msm     +++|          SHN    21-13
02553  M00S02322.msm     +++|          PJN    RPF2        IF ANOTHER DEVICE TO PROCESS
02554  M00S02323.msm     +++|          LDN    10
02555  M00S02324.msm     +++|          STD    T1
Line S02325 Modification History
M01 (Removed by) msm48
Seq #  *Modification Id* Act 
----------------------------+
02556  M01S02325.msm48   ---|          LDD    CP          RESTORE CONTROL POINT MESSAGES
Line S00021 Modification History
M01 (Added by) msm48
Seq #  *Modification Id* Act 
----------------------------+
02557  M01S00021.msm48   +++|          LDD    CF          RESTORE CONTROL POINT MESSAGES
02558  M00S02326.msm     +++|          ADN    MS1W
02559  M00S02327.msm     +++|          CWM    RPFC,T1
Line S02328 Modification History
M01 (Removed by) msm48
Seq #  *Modification Id* Act 
----------------------------+
02560  M01S02328.msm48   ---|          LDD    CP
Line S00022 Modification History
M01 (Added by) msm48
Seq #  *Modification Id* Act 
----------------------------+
02561  M01S00022.msm48   +++|          LDD    CF
02562  M00S02329.msm     +++|          ADK    TFSW
02563  M00S02330.msm     +++|          CRD    CM
02564  M00S02331.msm     +++|          LDC    0           RESTORE EJT ORDINAL
02565  M00S02332.msm     +++| RPFB     EQU    *-1
02566  M00S02333.msm     +++|          STD    CM
Line S02334 Modification History
M01 (Removed by) msm48
Seq #  *Modification Id* Act 
----------------------------+
02567  M01S02334.msm48   ---|          LDD    CP
Line S00023 Modification History
M01 (Added by) msm48
Seq #  *Modification Id* Act 
----------------------------+
02568  M01S00023.msm48   +++|          LDD    CF
02569  M00S02335.msm     +++|          ADK    TFSW
02570  M00S02336.msm     +++|          CWD    CM
02571  M00S02337.msm     +++| RPF4     MONITOR  DPPM
02572  M00S02338.msm     +++|          LJM    PPR         EXIT TO PP RESIDENT
02573  M00S02339.msm     +++|
02574  M00S02340.msm     +++|
02575  M00S02341.msm     +++| RPFC     BSS    0           CONTROL POINT MESSAGE SAVE AREA
02576  M00S02342.msm     +++|          SPACE  4,10
02577  M00S02343.msm     +++| SDVR     EQU    RPFC+10*5
02578  M00S02344.msm     +++|          QUAL
02579  M00S02345.msm     +++|          TTL    MSM/4DA - RECOVER PRESERVED FILES.
02580  M00S02346.msm     +++|          TITLE
02581  M00S02347.msm     +++|          IDENT  4DA,/RDA/RDEX
02582  M00S02348.msm     +++|*COMMENT  MSM - RECOVER PRESERVED FILES.
Line S02349 Modification History
M01 (Removed by) 281l803
Seq #  *Modification Id* Act 
----------------------------+
02583  M01S02349.281l803 ---|          COMMENT COPYRIGHT CONTROL DATA CORP. 1972.
Line S00004 Modification History
M01 (Added by) 281l803
Seq #  *Modification Id* Act 
----------------------------+
02584  M01S00004.281l803 +++|          COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
02585  M00S02350.msm     +++|          SPACE  4,10
02586  M00S02351.msm     +++|***              *RDA* PERFORMS SYSTEM SECTOR CLEANUP ON ALL DIRECT
02587  M00S02352.msm     +++|*         ACCESS PERMANENT FILES AS WELL AS BUILDING THE *IQFT*
02588  M00S02353.msm     +++|*         ON LEVEL 0 DEADSTARTS.
02589  M00S02354.msm     +++|          SPACE  4
02590  M00S02355.msm     +++|***       ENTRY  CONDITIONS.
02591  M00S02356.msm     +++|*
Line S00024 Modification History
M01 (Added by) msm48
Seq #  *Modification Id* Act 
----------------------------+
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  M00S02357.msm     +++|*         (FN - FN+4) = EST ENTRY.
Line S00028 Modification History
M01 (Added by) msm48
Seq #  *Modification Id* Act 
----------------------------+
02597  M01S00028.msm48   +++|*         (RS) = RECOVERY STATUS.
02598  M00S02358.msm     +++|*         (T5) = EST ORDINAL.
Line S02359 Modification History
M01 (Removed by) msm48
Seq #  *Modification Id* Act 
----------------------------+
02599  M01S02359.msm48   ---|*         (RS) = RECOVERY STATUS.
02600  M01S02360.msm48   ---|*         (CP) = CONTROL POINT ADDRESS.
02601  M01S02361.msm48   ---|*         (CR) = RELATIVE ADDRESS OF *IQFT* BUFFER.
02602  M01S02362.msm48   ---|*         (A) .NZ. IF ENTRY WITH DEADSTART CONTROL POINT ADDRESS.
02603  M01S02363.msm48   ---|*         (A) = 0 IF RA USED FOR CM BUFFER ADDRESS COMPUTATION.
02604  M00S02364.msm     +++|          SPACE  4
02605  M00S02365.msm     +++|***       OPERATOR MESSAGES.
02606  M00S02366.msm     +++|*
02607  M00S02367.msm     +++|*         *EQXXX, ANNNN TYYYY SZZZZ LINKAGE* = LENGTH / LINKAGE ERROR
02608  M00S02368.msm     +++|*         AT TRACK YYYY SECTOR ZZZZ OF PRESERVED FILE ON EST ORDINAL
02609  M00S02369.msm     +++|*         XXX, FIRST TRACK AT NNNN.  OPERATOR INTERVENTION IS REQUIRED.
02610  M00S02370.msm     +++|*         IF THE OPERATOR ENTERS *GO*, EOI WILL BE WRITTEN AT THE
02611  M00S02371.msm     +++|*         LOCATION OF THE ERROR AND RECOVERY WILL PROCEED.  IF THE
02612  M00S02372.msm     +++|*         OPERATOR ENTERS *PAUSE*, ERROR IDLE STATUS WILL BE SET AND
02613  M00S02373.msm     +++|*         RECOVERY OPERATIONS ON THE DEVICE TERMINATED.
02614  M00S02374.msm     +++|*
02615  M00S02375.msm     +++|*         *RECOVER EQXXX, ANNNN TMMMM. = RECOVERING PRESERVED FILE ON
02616  M00S02376.msm     +++|*         EST ORDINAL XXX.  FIRST TRACK IS NNNN AND TRACK CURRENTLY
02617  M00S02377.msm     +++|*         BEING READ IS MMMM.
02618  M00S02378.msm     +++|          SPACE  4
02619  M00S02379.msm     +++|***       DAYFILE MESSAGES.
02620  M00S02380.msm     +++|*
02621  M00S02381.msm     +++|*         *EQXXX, ERROR IDLE SET.* = THIS FOLLOWS THE *PF LENGTH ERROR*
02622  M00S02382.msm     +++|*         OR *QF LENGTH ERROR* MESSAGE IF ERROR IDLE WAS FORCED BY THE
02623  M00S02383.msm     +++|*         SYSTEM OR THE OPERATOR ENTERED *PAUSE*.
02624  M00S02384.msm     +++|*
02625  M00S02385.msm     +++|*         *EQXXX NNNN DIRECT ACCESS FILE ERRORS.* = COUNT OF ERRORS
02626  M00S02386.msm     +++|*         DETECTED IN DIRECT ACCESS FILES ON EST ORDINAL XXX.  THE
02627  M00S02387.msm     +++|*         COUNT SHOULD MATCH THE NUMBER OF ERROR MESSAGES PRODUCED.
02628  M00S02388.msm     +++|*
02629  M00S02389.msm     +++|*         *EQXXX NNNN DIRECT ACCESS FILES RECOVERED.* = COUNT OF DIRECT
02630  M00S02390.msm     +++|*         FILES RECOVERED ON EST ORDINAL XXX.
02631  M00S02391.msm     +++|*
02632  M00S02392.msm     +++|*         *EQXXX, FFFFFFF, DD RECOVERED.* = RECOVERY COMPLETE ON EST
02633  M00S02393.msm     +++|*         ORDINAL XXX WITH FAMILY NAME FFFFFFF AND DEVICE NUMBER DD.
02634  M00S02394.msm     +++|*
02635  M00S02395.msm     +++|*         *EQXXX NNNN PRESERVED FILE ERRORS.* = COUNT OF ERRORS
02636  M00S02396.msm     +++|*         DETECTED WHILE READING SYSTEM SECTORS ON EST ORDINAL XXX.
02637  M00S02397.msm     +++|*
02638  M00S02398.msm     +++|*         *EQXXX NNNN QUEUED FILE ERRORS.* = COUNT OF QUEUED FILE
02639  M00S02399.msm     +++|*         ERRORS DETECTED ON EST ORDINAL XXX.  THE COUNT SHOULD
02640  M00S02400.msm     +++|*         MATCH THE NUMBER OF ERROR MESSAGES PRODUCED.
02641  M00S02401.msm     +++|*
02642  M00S02402.msm     +++|*         *EQXXX NNNN QUEUED FILES RECOVERED.* = COUNT OF QUEUED
02643  M00S02403.msm     +++|*         FILES RECOVERED ON EST ORDINAL XXX.
02644  M00S02404.msm     +++|*
02645  M00S02405.msm     +++|*         *EQXXX NNNN QUEUED FILES IGNORED.* = COUNT OF QUEUED FILES
02646  M00S02406.msm     +++|*         NOT WRITTEN TO THE *IQFT* FILE DUE TO LACK OF SPACE.
02647  M00S02407.msm     +++|*
02648  M00S02408.msm     +++|*         *EQXXX, PF CATALOG SIZE ERROR.* = THE PERMANENT FILE CATALOGS
02649  M00S02409.msm     +++|*         ON EST ORDINAL XXX ARE THE WRONG SIZE FOR THE CURRENT SYSTEM.
02650  M00S02410.msm     +++|*
02651  M00S02411.msm     +++|*         *EQXXX, PPPPPPP RECOVERED.* = RECOVERY COMPLETE ON EST
02652  M00S02412.msm     +++|*         ORDINAL XXX WITH PACKNAME PPPPPPP.
02653  M00S02413.msm     +++|*
Line S00001 Modification History
M01 (Added by) msm41
Seq #  *Modification Id* Act 
----------------------------+
02654  M01S00001.msm41   +++|*         *EQXXX, PRESERVED FILE RECOVERY INITIATED.* = PRESERVED FILE
02655  M01S00002.msm41   +++|*         RECOVERY WAS STARTED FOR EST ORDINAL XXX.
02656  M01S00003.msm41   +++|*
02657  M00S02414.msm     +++|*         *EQXXX, TRACK LIMIT ON IQFT.* = NO TRACK AVAILABLE FOR IQFT.
02658  M00S02415.msm     +++|*
Line S02416 Modification History
M01 (Removed by) ns2788
Seq #  *Modification Id* Act 
----------------------------+
02659  M01S02416.ns2788  ---|*         *PF LENGTH ERROR UINDEX  FILENAME* = PERMANENT FILE LENGTH
02660  M01S02417.ns2788  ---|*         WAS INCORRECT.
Line S00004 Modification History
M01 (Added by) ns2788
Seq #  *Modification Id* Act 
----------------------------+
02661  M01S00004.ns2788  +++|*         *EQXXX PF LENGTH ERROR UINDEX  FILENAME* = PERMANENT FILE
02662  M01S00005.ns2788  +++|*         LENGTH WAS INCORRECT.
02663  M00S02418.msm     +++|*
Line S02419 Modification History
M01 (Removed by) ns2788
Seq #  *Modification Id* Act 
----------------------------+
02664  M01S02419.ns2788  ---|*         *QF LENGTH ERROR         FILENAME* = QUEUED FILE LENGTH WAS
02665  M01S02420.ns2788  ---|*         INCORRECT.
Line S00006 Modification History
M01 (Added by) ns2788
Seq #  *Modification Id* Act 
----------------------------+
02666  M01S00006.ns2788  +++|*         *EQXXX QF LENGTH ERROR         FILENAME* = QUEUED FILE
02667  M01S00007.ns2788  +++|*         LENGTH WAS INCORRECT.
02668  M00S02421.msm     +++|          SPACE  4
02669  M00S02422.msm     +++|***       ACCOUNT FILE MESSAGES.
02670  M00S02423.msm     +++|*
02671  M00S02424.msm     +++|*         *ADDR, XXX, FFFFFFF, DD, LVLL, LVLU.* = EST ORDINAL XXX
02672  M00S02425.msm     +++|*         WITH FAMILY NAME FFFFFFF, DEVICE NUMBER DD, LOWER SECURITY
02673  M00S02426.msm     +++|*         ACCESS LEVEL LVLL AND UPPER SECURITY ACCESS LEVEL LVLU
02674  M00S02427.msm     +++|*         HAS BEEN RECOVERED.
02675  M00S02428.msm     +++|*
02676  M00S02429.msm     +++|*         *ADPM, XXX, PPPPPPP, UUUUUUU, LVLL, LVLU.* = EST ORDINAL
02677  M00S02430.msm     +++|*         XXX WITH PACKNAME PPPPPPP, LOWER SECURITY ACCESS LEVEL
02678  M00S02431.msm     +++|*         LVLL AND UPPER SECURITY ACCESS LEVEL LVLU HAS BEEN MOUNTED.
02679  M00S02432.msm     +++|*         IF PRESENT, UUUUUUU INDICATES THAT THE PACK WAS A PRIVATE
02680  M00S02433.msm     +++|*         PACK BELONGING TO THAT USER.
02681  M00S02434.msm     +++|          SPACE  4
02682  M00S02435.msm     +++|***       ERROR LOG MESSAGES.
02683  M00S02436.msm     +++|*
02684  M00S02437.msm     +++|*         *EQXXX, ANNNN PF RECOVERY ERROR.* = SYSTEM SECTOR ERROR OR
02685  M00S02438.msm     +++|*         UNIDENTIFIED FILE TYPE WHILE PROCESSING A PRESERVED FILE ON
02686  M00S02439.msm     +++|*         TRACK NNNN OF EST ORDINAL XXX.
02687  M00S02440.msm     +++|*
02688  M00S02441.msm     +++|*         *EQXXX, ANNNN TYYYY SZZZZ LINKAGE ERROR.* = LENGTH / LINKAGE
02689  M00S02442.msm     +++|*         ERROR AT TRACK YYYY SECTOR ZZZZ OF A PRESERVED FILE WHOSE BOI
02690  M00S02443.msm     +++|*         IS ON TRACK NNNN OF EST ORDINAL XXX.
02691  M00S02444.msm     +++|*
02692  M00S02445.msm     +++|*         *EQXXX, ERROR IDLE SET.* = THIS FOLLOWS THE *PF LENGTH ERROR*
02693  M00S02446.msm     +++|*         OR *QF LENGTH ERROR* MESSAGE IF ERROR IDLE WAS FORCED BY THE
02694  M00S02447.msm     +++|*         SYSTEM OR THE OPERATOR ENTERED *PAUSE*.
02695  M00S02448.msm     +++|*
02696  M00S02449.msm     +++|*         *EQXXX, PF CATALOG SIZE ERROR.* = THE PERMANENT FILE CATALOGS
02697  M00S02450.msm     +++|*         ON EST ORDINAL XXX ARE THE WRONG SIZE FOR THE CURRENT SYSTEM.
02698  M00S02451.msm     +++|*
02699  M00S02452.msm     +++|*         *EQXXX, TYYYY SZZZZ LINKAGE ERROR.* = THIS MESSAGE FOLLOWS
02700  M00S02453.msm     +++|*         THE *PF LENGTH ERROR* AND *QF LENGTH ERROR* MESSAGES, GIVING
02701  M00S02454.msm     +++|*         ADDITIONAL DETAILS ON THE LOCATION OF THE ERROR - EST ORDINAL
02702  M00S02455.msm     +++|*         XXX, TRACK YYYY, SECTOR ZZZZ.
02703  M00S02456.msm     +++|*
Line S00001 Modification History
M01 (Added by) msm46
Seq #  *Modification Id* Act 
----------------------------+
02704  M01S00001.msm46   +++|*         *LI LENGTH ERROR         FILENAME* = LIBRARY FILE LENGTH
02705  M01S00002.msm46   +++|*         WAS INCORRECT.  THE *LINKAGE ERROR.* MESSAGE FOLLOWS THIS
02706  M01S00003.msm46   +++|*         MESSAGE.
02707  M01S00004.msm46   +++|*
02708  M00S02457.msm     +++|*         *PF LENGTH ERROR UINDEX  FILENAME* = PERMANENT FILE LENGTH
02709  M00S02458.msm     +++|*         WAS INCORRECT.  THE *LINKAGE ERROR.* MESSAGE FOLLOWS THIS
02710  M00S02459.msm     +++|*         MESSAGE.
02711  M00S02460.msm     +++|*
02712  M00S02461.msm     +++|*         *QF LENGTH ERROR         FILENAME* = QUEUED FILE LENGTH WAS
02713  M00S02462.msm     +++|*         INCORRECT.  THE *LINKAGE ERROR.* MESSAGE FOLLOWS THIS
02714  M00S02463.msm     +++|*         MESSAGE.
02715  M00S02464.msm     +++|          SPACE  4
02716  M00S02465.msm     +++| O4DA     MAX    /CMS/SDVR+5,/1RF/SDVR+5
02717  M00S02466.msm     +++|
02718  M00S02467.msm     +++|          QUAL   RDA
02719  M00S02468.msm     +++|          SPACE  4
02720  M00S02469.msm     +++|*CALL     COMSJIO
02721  M00S02470.msm     +++|*CALL     COMSPFM
02722  M00S02471.msm     +++|*CALL     COMSSSE
02723  M00S02472.msm     +++|          SPACE  4,10
02724  M00S02473.msm     +++|**        ASSEMBLY CONSTANTS.
02725  M00S02474.msm     +++|
02726  M00S02475.msm     +++|
02727  M00S02476.msm     +++| EQV$     EQU    1           DO NOT VERIFY EQUIPMENT IN *COMPRSS*
02728  M00S02477.msm     +++| IRA$     EQU    1           RANDOM ACCESS PROCESSORS INITIALIZED
02729  M00S02478.msm     +++| NSDF     EQU    5           NUMBER OF SPECIAL DAFS
02730  M00S02479.msm     +++| SBUF     EQU    BFMS-502    SCRATCH BUFFER FOR EOI SECTOR
02731  M00S02480.msm     +++|          SPACE  4
02732  M00S02481.msm     +++| DATB     EQU    O4DA-5      BUFFER FOR DEVICE ACCESS TABLE ENTRY
02733  M00S02482.msm     +++|
02734  M00S02483.msm     +++|          ORG    O4DA
02735  M00S02484.msm     +++|
02736  M00S02485.msm     +++| RDE      SUBR               ENTRY/EXIT
Line S02486 Modification History
M01 (Removed by) ns2552
Seq #  *Modification Id* Act 
----------------------------+
02737  M01S02486.ns2552  ---|          LJM    PRS         PRESET
02738  M00S02487.msm     +++|          TITLE  MAIN LOOP.
02739  M00S02488.msm     +++| RDA      SPACE  4
02740  M00S02489.msm     +++|**        RDA - MAIN ROUTINE.
02741  M00S02490.msm     +++|
02742  M00S02491.msm     +++|
Line S02492 Modification History
M01 (Removed by) ns2552
Seq #  *Modification Id* Act 
----------------------------+
02743  M01S02492.ns2552  ---| RDA      SUBR               ENTRY EXIT
Line S00019 Modification History
M01 (Added by) ns2552
Seq #  *Modification Id* Act 
----------------------------+
02744  M01S00019.ns2552  +++| RDA      SUBR   PRS         ENTRY/EXIT
02745  M01S00020.ns2552  +++|          ERRNZ  RDE+1-RDAX  CODE DEPENDS ON VALUE
Line S02493 Modification History
M01 (Removed by) msm48
Seq #  *Modification Id* Act 
----------------------------+
02746  M01S02493.msm48   ---|          STM    BADA        SAVE RA FLAG
02747  M01S02494.msm48   ---|          SHN    -14
02748  M01S02495.msm48   ---|          STD    T3
Line S00029 Modification History
M01 (Added by) msm48
Seq #  *Modification Id* Act 
----------------------------+
02749  M01S00029.msm48   +++|          STD    T3          SAVE INITIALIZE FLAG
02750  M00S02496.msm     +++|          ZJN    RDA1        IF DEVICE NOT BEING INITIALIZED
02751  M00S02497.msm     +++|          UJMF   RDAX
02752  M00S02498.msm     +++| RDA1     LDD    T5          CONVERT UPPER TWO DIGITS OF EST ORDINAL
02753  M00S02499.msm     +++|          SHN    -3
02754  M00S02500.msm     +++|          RJM    C2D
02755  M00S02501.msm     +++|          STM    RDAD
02756  M00S02502.msm     +++|          STM    IQFB+1
02757  M00S02503.msm     +++|          STM    IDMC+1
02758  M00S02504.msm     +++|          STM    IRMB+1
02759  M00S02505.msm     +++|          STM    CPSB+1
02760  M00S02506.msm     +++|          STM    RDAI+1
Line S00004 Modification History
M01 (Added by) msm41
Seq #  *Modification Id* Act 
----------------------------+
02761  M01S00004.msm41   +++|          STM    RDAJ+1
Line S00008 Modification History
M01 (Added by) ns2788
Seq #  *Modification Id* Act 
----------------------------+
02762  M01S00008.ns2788  +++|          STM    PFEE+1
02763  M00S02507.msm     +++|          LDD    T5          CONVERT LOWER DIGIT OF EST ORDINAL
02764  M00S02508.msm     +++|          LPN    7
02765  M00S02509.msm     +++|          SHN    6
02766  M00S02510.msm     +++|          ADC    2R0,
02767  M00S02511.msm     +++|          STM    CPSB+2
02768  M00S02512.msm     +++|          STM    IQFB+2
02769  M00S02513.msm     +++|          STM    IRMB+2
02770  M00S02514.msm     +++|          STM    RDAD+1
02771  M00S02515.msm     +++|          STM    RDAI+2
Line S00005 Modification History
M01 (Added by) msm41
Seq #  *Modification Id* Act 
----------------------------+
02772  M01S00005.msm41   +++|          STM    RDAJ+2
Line S02516 Modification History
M01 (Removed by) ns2788
Seq #  *Modification Id* Act 
----------------------------+
02773  M01S02516.ns2788  ---|          LMN    1R &1R,     REMOVE COMMA FROM FILE COUNT MESSAGE
Line S00009 Modification History
M01 (Added by) ns2788
Seq #  *Modification Id* Act 
----------------------------+
02774  M01S00009.ns2788  +++|          LMN    1R &1R,     REMOVE COMMA FROM MESSAGE
02775  M00S02517.msm     +++|          STM    IDMC+2
Line S00010 Modification History
M01 (Added by) ns2788
Seq #  *Modification Id* Act 
----------------------------+
02776  M01S00010.ns2788  +++|          STM    PFEE+2
Line S00030 Modification History
M01 (Added by) msm48
Seq #  *Modification Id* Act 
----------------------------+
02777  M01S00030.msm48   +++|          LDD    T3
02778  M01S00031.msm48   +++|          NJN    RDA1.1      IF DEVICE BEING INITIALIZED
Line S00006 Modification History
M01 (Added by) msm41
Seq #  *Modification Id* Act 
----------------------------+
02779  M01S00006.msm41   +++|          LDC    RDAJ+NMSN   *PRESERVED FILE RECOVERY INITIATED*
02780  M01S00007.msm41   +++|          RJM    DFM         ISSUE DAYFILE MESSAGE
Line S02518 Modification History
M01 (Removed by) msm48
Seq #  *Modification Id* Act 
----------------------------+
02781  M01S02518.msm48   ---|          LDD    FN+4        READ TDGL WORD OF MST
Line S00032 Modification History
M01 (Added by) msm48
Seq #  *Modification Id* Act 
----------------------------+
02782  M01S00032.msm48   +++| RDA1.1   LDD    FN+4        READ TDGL WORD OF MST
02783  M00S02519.msm     +++|          SHN    3
02784  M00S02520.msm     +++|          ADK    TDGL
02785  M00S02521.msm     +++|          CRD    CN
02786  M00S02522.msm     +++|          ADN    MDGL-TDGL   GET MASS STORAGE DRIVER WORD
02787  M00S02523.msm     +++|          CRD    T7
02788  M00S02524.msm     +++|          SBN    MDGL-ALGL   GET DAT TRACK ADDRESS
02789  M00S02525.msm     +++|          CRD    CM
02790  M00S02526.msm     +++|          LDD    CM+4        SAVE DAT TRACK ADDRESS
02791  M00S02527.msm     +++|          STM    SPFD
02792  M00S02528.msm     +++|          LDD    T7          SAVE 16-WORD PFC FLAG
02793  M00S02529.msm     +++|          SHN    -11
02794  M00S02530.msm     +++|          LPN    1
02795  M00S02531.msm     +++|          STD    T1
02796  M00S02532.msm     +++|          STM    CPSA
02797  M00S02533.msm     +++|          LDM    RDAH,T1     ENABLE / DISABLE DAF PROCESSING
02798  M00S02534.msm     +++|          STM    RDAG
02799  M00S02535.msm     +++|          RJM    PTA         PRESET TRT ADDRESS
02800  M00S02536.msm     +++|          RJM    GDE         GET *DAT* ENTRY
02801  M00S02537.msm     +++|          SETMS  IO,DF
Line S02538 Modification History
M01 (Removed by) ns2776
Seq #  *Modification Id* Act 
----------------------------+
02802  M01S02538.ns2776  ---|          LDN    0
Line S00001 Modification History
M01 (Added by) ns2776
Seq #  *Modification Id* Act 
----------------------------+
02803  M01S00001.ns2776  +++|*         LDN    0
02804  M00S02539.msm     +++|          STD    CN+3        INITIALIZE TRACK SEARCH
02805  M00S02540.msm     +++| RDAA     UJN    RDA2        CONTINUE
02806  M00S02541.msm     +++|*         PSN                (LEVEL-0 RECOVERY)
02807  M00S02542.msm     +++|          RJM    IQF         INITIALIZE THE *IQFT* FILE
02808  M00S02543.msm     +++|          STM    CQFA
02809  M00S02544.msm     +++|          ZJN    RDA2        IF TRACK NOT ASSIGNED
02810  M00S02545.msm     +++|          AOM    CQFC        FLAG *IQFT* INITIALIZED
02811  M00S02546.msm     +++|          STM    TQFA
02812  M00S02547.msm     +++|
02813  M00S02548.msm     +++|*         LOOP FOR EACH TRACK ON DEVICE.
02814  M00S02549.msm     +++|
Line S02550 Modification History
M01 (Removed by) ns2788
Seq #  *Modification Id* Act 
----------------------------+
02815  M01S02550.ns2788  ---| RDA2     RJM    SPF
02816  M01S02551.ns2788  ---|          NJN    RDA5        IF PRESERVED FILE FOUND
Line S00011 Modification History
M01 (Added by) ns2788
Seq #  *Modification Id* Act 
----------------------------+
02817  M01S00011.ns2788  +++| RDA2     RJM    SPF         SEARCH FOR PRESERVED FILE
02818  M01S00012.ns2788  +++|          NJP    RDA5        IF PRESERVED FILE FOUND
02819  M00S02552.msm     +++|
02820  M00S02553.msm     +++|*         COMPLETE PROCESSING FOR THIS DEVICE.
02821  M00S02554.msm     +++|
02822  M00S02555.msm     +++|          LDD    RS
02823  M00S02556.msm     +++|          NJN    RDA3        IF RECOVERY DEADSTART
02824  M00S02557.msm     +++|          RJM    TQF         TERMINATE *IQFT*
Line S02558 Modification History
M01 (Removed by) ns2788
Seq #  *Modification Id* Act 
----------------------------+
02825  M01S02558.ns2788  ---| RDA3     ENDMS              RELEASE CHANEL
Line S00013 Modification History
M01 (Added by) ns2788
Seq #  *Modification Id* Act 
----------------------------+
02826  M01S00013.ns2788  +++| RDA3     ENDMS              RELEASE CHANNEL
02827  M00S02559.msm     +++|          RJM    IDM         ISSUE DAYFILE MESSAGES
02828  M00S02560.msm     +++|          RJM    WDE         UPDATE DAT ENTRY
Line S00014 Modification History
M01 (Added by) ns2788
Seq #  *Modification Id* Act 
----------------------------+
02829  M01S00014.ns2788  +++|          LDC    0           SET ERROR IDLE IF NON-ZERO
02830  M01S00015.ns2788  +++| RDAM     EQU    *-1
02831  M01S00016.ns2788  +++|          ZJN    RDA4        IF NO ERROR IDLE TO BE SET
02832  M01S00017.ns2788  +++|          LDC    RDAI+NMSN   SEND ERROR IDLE MESSAGES
02833  M01S00018.ns2788  +++|          RJM    DFM
02834  M01S00019.ns2788  +++|          LDC    RDAI+ERLN
02835  M01S00020.ns2788  +++|          RJM    DFM
02836  M01S00021.ns2788  +++|          SMSTF  GDEI        SET DEVICE ERROR IDLE STATUS
02837  M01S00022.ns2788  +++|          LDN    STEI
02838  M01S00023.ns2788  +++|          RJM    SES
02839  M01S00024.ns2788  +++|          CMSTF  LCKP        CLEAR POSSIBLE CHECKPOINT REQUEST
02840  M00S02561.msm     +++| RDA4     LDN    0           CLEAR CONSOLE MESSAGE
02841  M00S02562.msm     +++|          STD    CM
Line S02563 Modification History
M01 (Removed by) msm48
Seq #  *Modification Id* Act 
----------------------------+
02842  M01S02563.msm48   ---|          LDD    CP
Line S00033 Modification History
M01 (Added by) msm48
Seq #  *Modification Id* Act 
----------------------------+
02843  M01S00033.msm48   +++| RDAK     LDD    CP
02844  M01S00034.msm48   +++|*         LDD    CF          (*1RF* CALL)
02845  M00S02564.msm     +++|          ADN    MS2W
02846  M00S02565.msm     +++|          CWD    CM
02847  M00S02566.msm     +++|          RJM    CPS         CHECK PFC SIZE
02848  M00S02567.msm     +++|          RJM    CUS         CLEAR UNAVAILABLE STATUS
02849  M00S02568.msm     +++|          LJM    RDAX        EXIT
02850  M00S02569.msm     +++|
02851  M00S02570.msm     +++|*         CONVERT TRACK NUMBER AND DISPLAY MESSAGE.
02852  M00S02571.msm     +++|
02853  M00S02572.msm     +++| RDA5     RJM    C2D
02854  M00S02573.msm     +++|          STM    RDAE+1
02855  M00S02574.msm     +++|          LDD    T6
02856  M00S02575.msm     +++|          SHN    -6
02857  M00S02576.msm     +++|          RJM    C2D
02858  M00S02577.msm     +++|          STM    RDAE
Line S02578 Modification History
M01 (Removed by) msm48
Seq #  *Modification Id* Act 
----------------------------+
02859  M01S02578.msm48   ---|          LDD    CP
Line S00035 Modification History
M01 (Added by) msm48
Seq #  *Modification Id* Act 
----------------------------+
02860  M01S00035.msm48   +++| RDAL     LDD    CP
02861  M01S00036.msm48   +++|*         LDD    CF          (*1RF* CALL)
02862  M00S02579.msm     +++|          ADN    MS2W
02863  M00S02580.msm     +++|          CWM    RDAC,TR
02864  M00S02581.msm     +++|          SBN    1           SAVE ADDRESS FOR *RDC* MESSAGE
02865  M00S02582.msm     +++|          STM    RDCA
02866  M00S02583.msm     +++|          SETMS  POSITION
Line S00002 Modification History
M01 (Added by) ns2776
Seq #  *Modification Id* Act 
----------------------------+
02867  M01S00002.ns2776  +++|*         LDN    0
02868  M00S02584.msm     +++|          STD    CN          CLEAR FILE TYPE
Line S02585 Modification History
M01 (Removed by) ns2776
Seq #  *Modification Id* Act 
----------------------------+
02869  M01S02585.ns2776  ---|*         LDN    0           READ SYSTEM SECTOR
02870  M01S02586.ns2776  ---|          RJM    RSS
Line S00003 Modification History
M01 (Added by) ns2776
Seq #  *Modification Id* Act 
----------------------------+
02871  M01S00003.ns2776  +++|          RJM    RSS         READ SYSTEM SECTOR
02872  M00S02587.msm     +++|          NJN    RDA6        IF ERROR
02873  M00S02588.msm     +++|
02874  M00S02589.msm     +++|*         DETERMINE TYPE OF PRESERVED FILE.
02875  M00S02590.msm     +++|
02876  M00S02591.msm     +++|          RJM    SFT         SET FILE TYPE
Line S02592 Modification History
M01 (Removed by) ns2788
Seq #  *Modification Id* Act 
----------------------------+
02877  M01S02592.ns2788  ---|          RJM    RDB         RECOVERY DEADSTART FILE VERIFICATION
02878  M01S02593.ns2788  ---|*         RJM    CQF         (CHECK QUEUED FILE)
02879  M01S02594.ns2788  ---| RDAB     EQU    *-1
02880  M01S02595.ns2788  ---|          ZJN    RDA7        IF QUEUED FILE - CONTINUE TO NEXT TRACK
02881  M01S02596.ns2788  ---|          LDD    CN          CHECK FILE TYPE
02882  M01S02597.ns2788  ---|          LMN    PMFT
02883  M01S02598.ns2788  ---|          ZJN    RDA9        IF DAF
Line S00025 Modification History
M01 (Added by) ns2788
Seq #  *Modification Id* Act 
----------------------------+
02884  M01S00025.ns2788  +++|          NJN    RDA6        IF UNKNOWN FILE TYPE
02885  M01S00026.ns2788  +++|          LDD    RS
02886  M01S00027.ns2788  +++|          ZJN    RDA5.1      IF NOT RECOVERY DEADSTART
02887  M01S00028.ns2788  +++|          RJM    VFR         VERIFY FILE FOR RECOVERY DEADSTART
02888  M01S00029.ns2788  +++|          UJN    RDA7        PROCESS NEXT TRACK
02889  M01S00030.ns2788  +++|
02890  M01S00031.ns2788  +++| RDA5.1   LDD    CN          CHECK FILE TYPE
02891  M01S00032.ns2788  +++|          NJN    RDA5.2      IF NOT QUEUED FILE
02892  M01S00033.ns2788  +++|          RJM    CQF         CREATE QUEUED FILE ENTRY
02893  M01S00034.ns2788  +++|          UJN    RDA7        PROCESS NEXT TRACK
02894  M01S00035.ns2788  +++|
02895  M01S00036.ns2788  +++| RDA5.2   LMN    PMFT        CHECK FILE TYPE
02896  M01S00037.ns2788  +++|          ZJN    RDA9        IF DIRECT ACCESS PERMANENT FILE
02897  M00S02599.msm     +++|          LMN    FAFT&PMFT
02898  M00S02600.msm     +++|          ZJN    RDA9        IF FAST ATTACH FILE
02899  M00S02601.msm     +++|          LJM    RDA10       PROCESS SPECIAL PRESERVED FILE
02900  M00S02602.msm     +++|
02901  M00S02603.msm     +++| RDA6     RJM    IEM         ISSUE ERROR LOG MESSAGE
02902  M00S02604.msm     +++| RDA7     LJM    RDA2        PROCESS NEXT TRACK
02903  M00S02605.msm     +++|
02904  M00S02606.msm     +++|*         RELEASE FILE.
02905  M00S02607.msm     +++|
02906  M00S02608.msm     +++| RDA8     ENDMS
02907  M00S02609.msm     +++|          LDD    T5          DROP TRACK CHAIN FOR FILE
02908  M00S02610.msm     +++|          LMC    4000        ADD CHECKPOINT REQUEST
02909  M00S02611.msm     +++|          STD    CM+1
02910  M00S02612.msm     +++|          LDD    T6
02911  M00S02613.msm     +++|          STD    CM+2
02912  M00S02614.msm     +++|          MONITOR DTKM
02913  M00S02615.msm     +++|          UJN    RDA7
02914  M00S02616.msm     +++|
02915  M00S02617.msm     +++|*         PROCESS PERMANENT FILES.
02916  M00S02618.msm     +++|
02917  M00S02619.msm     +++| RDA9     LDM    CASS        CHECK FILE ACCESS
02918  M00S02620.msm     +++|*         UJN    RDA7        (8-WORD PFC DEVICE)
02919  M00S02621.msm     +++| RDAG     EQU    RDA9
Line S02622 Modification History
M01 (Removed by) ns2788
Seq #  *Modification Id* Act 
----------------------------+
02920  M01S02622.ns2788  ---|          STD    CN+1
Line S00038 Modification History
M01 (Added by) ns2788
Seq #  *Modification Id* Act 
----------------------------+
02921  M01S00038.ns2788  +++|          STD    CN+1        SET SYSTEM SECTOR REWRITE STATUS
02922  M00S02623.msm     +++|          SHN    21-5
02923  M00S02624.msm     +++|          MJN    RDA8        IF PURGE FLAG SET
02924  M00S02625.msm     +++|          SHN    5-4
02925  M00S02626.msm     +++|          MJN    RDA11       IF FILE CAN BE SHORTENED
02926  M00S02627.msm     +++|          LDM    UCSS+1
02927  M00S02628.msm     +++|          ADM    UCSS+2
02928  M00S02629.msm     +++|          ADM    UCSS+3
02929  M00S02630.msm     +++|          ADM    UCSS+4
02930  M00S02631.msm     +++|          ADM    FISS
02931  M00S02632.msm     +++|          RAD    CN+1        SET SYSTEM SECTOR REWRITE STATUS
02932  M00S02633.msm     +++| RDA10    RJM    VFL         VERIFY FILE LENGTH
Line S02634 Modification History
M01 (Removed by) ns2788
Seq #  *Modification Id* Act 
----------------------------+
02933  M01S02634.ns2788  ---|          ZJN    RDA13       IF NO LENGTH ERROR
Line S00039 Modification History
M01 (Added by) ns2788
Seq #  *Modification Id* Act 
----------------------------+
02934  M01S00039.ns2788  +++|          ZJN    RDA12       IF NO LENGTH ERROR
02935  M00S02635.msm     +++| RDA11    RJM    RDC         READ DISK CHAIN
Line S02636 Modification History
M01 (Removed by) ns2788
Seq #  *Modification Id* Act 
----------------------------+
02936  M01S02636.ns2788  ---|          PJN    RDA12       IF NO DISK ERROR BEFORE EOI
02937  M01S02637.ns2788  ---|          LJM    RDA6        ISSUE ERROR LOG MESSAGE
Line S00040 Modification History
M01 (Added by) ns2788
Seq #  *Modification Id* Act 
----------------------------+
02938  M01S00040.ns2788  +++|          ZJN    RDA12       IF NO LENGTH/LINKAGE/DISK ERROR
02939  M01S00041.ns2788  +++|          RJM    CFL         CHANGE FILE LENGTH
02940  M01S00042.ns2788  +++|          LDD    CN
02941  M01S00043.ns2788  +++|          LMN    LIFT
02942  M01S00044.ns2788  +++|          ZJN    RDA15       IF LIBRARY TYPE FILE
02943  M01S00045.ns2788  +++|          UJN    RDA13       ISSUE FILE ERROR MESSAGE
02944  M00S02638.msm     +++|
Line S02639 Modification History
M01 (Removed by) ns2788
Seq #  *Modification Id* Act 
----------------------------+
02945  M01S02639.ns2788  ---| RDA12    ZJN    RDA13       IF EOI ON DISK MATCHES EOI IN TRT
Line S00005 Modification History
M01 (Added by) msm46
M02 (Removed by) ns2788
Seq #  *Modification Id* Act 
----------------------------+
02946  M02S00005.ns2788  ---|          LDD    CN
02947  M02S00006.ns2788  ---|          LMN    LIFT
02948  M02S00007.ns2788  ---|          ZJN    RDA12.1     IF LIBRARY TYPE FILE
Line S02640 Modification History
M01 (Removed by) ns2788
Seq #  *Modification Id* Act 
----------------------------+
02949  M01S02640.ns2788  ---|          RJM    PFE
02950  M01S02641.ns2788  ---|          NJP    RDB3        IF *NOGO* FOR RECOVERY
Line S02642 Modification History
M01 (Removed by) msm46
M02 (Removed by) ns2788
Seq #  *Modification Id* Act 
----------------------------+
02951  M02S02642.ns2788  ---|          RJM    CFL         CHANGE FILE LENGTH
Line S00008 Modification History
M01 (Added by) msm46
M02 (Removed by) ns2788
Seq #  *Modification Id* Act 
----------------------------+
02952  M02S00008.ns2788  ---| RDA12.1  RJM    CFL         CHANGE FILE LENGTH
Line S02643 Modification History
M01 (Removed by) ns2788
Seq #  *Modification Id* Act 
----------------------------+
02953  M01S02643.ns2788  ---| RDA13    LDD    FS+1
Line S00046 Modification History
M01 (Added by) ns2788
Seq #  *Modification Id* Act 
----------------------------+
02954  M01S00046.ns2788  +++| RDA12    LDD    FS+1
02955  M00S02644.msm     +++|          LMM    SBUF+FTEI
Line S02645 Modification History
M01 (Removed by) ns2788
Seq #  *Modification Id* Act 
----------------------------+
02956  M01S02645.ns2788  ---|          NJN    RDB2        IF BOI/EOI ERROR
Line S00047 Modification History
M01 (Added by) ns2788
Seq #  *Modification Id* Act 
----------------------------+
02957  M01S00047.ns2788  +++|          ZJN    RDA14       IF NO BOI/EOI ERROR
02958  M01S00048.ns2788  +++| RDA13    RJM    PFE         ISSUE FILE ERROR MESSAGE
02959  M00S02646.msm     +++| RDA14    RJM    CTU         CLEAR USER COUNTS
Line S02647 Modification History
M01 (Removed by) ns2788
Seq #  *Modification Id* Act 
----------------------------+
02960  M01S02647.ns2788  ---|          ENDMS
02961  M01S02648.ns2788  ---| RDA15    LJM    RDA2        LOOP FOR NEXT TRACK
Line S00049 Modification History
M01 (Added by) ns2788
Seq #  *Modification Id* Act 
----------------------------+
02962  M01S00049.ns2788  +++| RDA15    ENDMS
02963  M01S00050.ns2788  +++|          LJM    RDA2        LOOP FOR NEXT TRACK
02964  M00S02649.msm     +++|
Line S02650 Modification History
M01 (Removed by) ns2788
Seq #  *Modification Id* Act 
----------------------------+
02965  M01S02650.ns2788  ---| RDB      CON    0           ENTRY ON RECOVERY DEADSTART
02966  M01S02651.ns2788  ---|          ENDMS
02967  M01S02652.ns2788  ---|          LDD    CN
02968  M01S02653.ns2788  ---|          NJN    RDB1        IF NOT QUEUED FILE
02969  M01S02654.ns2788  ---|          LDM    FLSS
02970  M01S02655.ns2788  ---|          SHN    21-13
02971  M01S02656.ns2788  ---|          MJN    RDA15       IF LENGTH ERROR
02972  M01S02657.ns2788  ---| RDB1     RJM    VTC         VERIFY TRACK CHAIN
02973  M01S02658.ns2788  ---|          NJN    RDB2        IF ERROR IN TRT CHAIN
02974  M01S02659.ns2788  ---|          RJM    VFL         VERIFY FILE LENGTH
02975  M01S02660.ns2788  ---|          STD    CN+1
02976  M01S02661.ns2788  ---|          ZJN    RDA13       IF NOT LENGTH ERROR
Line S00001 Modification History
M01 (Added by) msm38
M02 (Removed by) ns2788
Seq #  *Modification Id* Act 
----------------------------+
02977  M02S00001.ns2788  ---|          LDD    CN
02978  M02S00002.ns2788  ---|          LMN    LIFT
02979  M02S00003.ns2788  ---|          ZJN    RDA15       IF A LIBRARY FILE TYPE
Line S02662 Modification History
M01 (Removed by) ns2788
Seq #  *Modification Id* Act 
----------------------------+
02980  M01S02662.ns2788  ---| RDB2     LDN    0           ISSUE ERROR MESSAGE
02981  M01S02663.ns2788  ---|          RJM    PFE
02982  M01S02664.ns2788  ---| RDB3     LDN    0
02983  M01S02665.ns2788  ---|          STM    PQIC        CLEAR QUEUED FILE INDICATORS
02984  M01S02666.ns2788  ---|          STD    QT
02985  M01S02667.ns2788  ---|          LDN    ZERL
02986  M01S02668.ns2788  ---|          CRM    IDMA,ON
02987  M01S02669.ns2788  ---|          RJM    TQF         RELEASE *IQFT* IF PRESENT
02988  M01S02670.ns2788  ---|          LDC    RDAI+NMSN   SEND ERROR IDLE MESSAGES
02989  M01S02671.ns2788  ---|          RJM    DFM
02990  M01S02672.ns2788  ---|          LDC    RDAI+ERLN
02991  M01S02673.ns2788  ---|          RJM    DFM
02992  M01S02674.ns2788  ---|          SMSTF  GDEI        SET DEVICE ERROR IDLE STATUS
02993  M01S02675.ns2788  ---|          LDN    STEI
02994  M01S02676.ns2788  ---|          RJM    SES
02995  M01S02677.ns2788  ---|          CMSTF  LCKP        CLEAR POSSIBLE CHECKPOINT REQUEST
02996  M01S02678.ns2788  ---|          LJM    RDA4        RELEASE INTERLOCK AND EXIT
02997  M00S02679.msm     +++|
02998  M00S02680.msm     +++| RDAC     DATA   H*RECOVER EQ*
02999  M00S02681.msm     +++| RDAD     DATA   6HXXX, A
03000  M00S02682.msm     +++| RDAE     DATA   4HNNNN
03001  M00S02683.msm     +++| RDAF     CON    0
03002  M00S02684.msm     +++|          DATA   C*F RECOVERY ERROR.*
03003  M00S02685.msm     +++|
03004  M00S02686.msm     +++| RDAH     BSS    0           TABLE OF INSTRUCTIONS TO PLUG
03005  M00S02687.msm     +++|          LOC    RDAG
03006  M00S02688.msm     +++|          UJN    RDA7
03007  M00S02689.msm     +++|          LOC    *O
03008  M00S02690.msm     +++|          CON    LDMI
03009  M00S02691.msm     +++|
03010  M00S02692.msm     +++| RDAI     DATA   C*EQXXX, ERROR IDLE SET.*
Line S00008 Modification History
M01 (Added by) msm41
Seq #  *Modification Id* Act 
----------------------------+
03011  M01S00008.msm41   +++|
03012  M01S00009.msm41   +++| RDAJ     DATA   C*EQXXX, PRESERVED FILE RECOVERY INITIATED.*
03013  M00S02693.msm     +++|          TITLE  SUBROUTINES.
Line S02694 Modification History
M01 (Removed by) msm48
Seq #  *Modification Id* Act 
----------------------------+
03014  M01S02694.msm48   ---| BAD      SPACE  4
03015  M01S02695.msm48   ---|**        BAD - COMPUTE IQFT BUFFER ADDRESS.
03016  M01S02696.msm48   ---|*
03017  M01S02697.msm48   ---|*         ENTRY  (BADA) = RA IF *REC* CALL.
03018  M01S02698.msm48   ---|*
03019  M01S02699.msm48   ---|*         EXIT   (A) = IQFT BUFFER ADDRESS.
03020  M01S02700.msm48   ---|
03021  M01S02701.msm48   ---|
03022  M01S02702.msm48   ---| BAD      SUBR               ENTRY/EXIT
03023  M01S02703.msm48   ---|          LDC    **
03024  M01S02704.msm48   ---| BADA     EQU    *-1
03025  M01S02705.msm48   ---|          NJN    BAD1        IF REC CALL
03026  M01S02706.msm48   ---|          LDD    RA
03027  M01S02707.msm48   ---| BAD1     SHN    6
03028  M01S02708.msm48   ---|          ADD    CR          FWA OF IQFT BUFFER
03029  M01S02709.msm48   ---|          UJN    BADX
03030  M00S02710.msm     +++| CFL      SPACE  4,15
03031  M00S02711.msm     +++|**        CFL - CHANGE FILE LENGTH.
03032  M00S02712.msm     +++|*
03033  M00S02713.msm     +++|*         ENTRY  (T6) = TRACK FOR EOI.
03034  M00S02714.msm     +++|*                (T7) = SECTOR FOR EOI.
03035  M00S02715.msm     +++|*                (CN) = FILE TYPE.
Line S00051 Modification History
M01 (Added by) ns2788
Seq #  *Modification Id* Act 
----------------------------+
03036  M01S00051.ns2788  +++|*                (FS+4) = 0, IF EOI REWRITE REQUIRED.
03037  M00S02716.msm     +++|*                (BFMS) LOADED WITH SYSTEM SECTOR.
03038  M00S02717.msm     +++|*
03039  M00S02718.msm     +++|*         EXIT   EOI IN TRT CHANGED.
Line S00052 Modification History
M01 (Added by) ns2788
Seq #  *Modification Id* Act 
----------------------------+
03040  M01S00052.ns2788  +++|*                EOI REWRITTEN, IF (FS+4) = 0.
03041  M00S02719.msm     +++|*                ERROR FLAG SET IN SYSTEM SECTOR CATALOG IMAGE.
Line S00053 Modification History
M01 (Added by) ns2788
Seq #  *Modification Id* Act 
----------------------------+
03042  M01S00053.ns2788  +++|*                (CN+1) NONZERO (SYSTEM SECTOR REWRITE FLAG).
03043  M00S02720.msm     +++|*
03044  M00S02721.msm     +++|*         USES   CM - CM+4.
03045  M00S02722.msm     +++|*
Line S02723 Modification History
M01 (Removed by) ns2788
Seq #  *Modification Id* Act 
----------------------------+
03046  M01S02723.ns2788  ---|*         CALLS  CLF.
Line S00054 Modification History
M01 (Added by) ns2788
Seq #  *Modification Id* Act 
----------------------------+
03047  M01S00054.ns2788  +++|*         CALLS  CLF, WEI.
03048  M00S02724.msm     +++|
03049  M00S02725.msm     +++|
03050  M00S02726.msm     +++| CFL      SUBR               ENTRY/EXIT
03051  M00S02727.msm     +++|          RJM    CLF         CHANGE LENGTH OF FILE IN TRT
Line S02728 Modification History
M01 (Removed by) ns2788
Seq #  *Modification Id* Act 
----------------------------+
03052  M01S02728.ns2788  ---|          LDD    CN          CHECK FILE TYPE
Line S00055 Modification History
M01 (Added by) ns2788
Seq #  *Modification Id* Act 
----------------------------+
03053  M01S00055.ns2788  +++|          LDD    FS+4
03054  M01S00056.ns2788  +++|          NJN    CFL1        IF NO REWRITE OF EOI REQUIRED
03055  M01S00057.ns2788  +++|          LDD    MA          COPY FNT/FST FROM SYSTEM SECTOR TO EOI
03056  M01S00058.ns2788  +++|          CWM    FNSS,TW
03057  M01S00059.ns2788  +++|          SBN    2
03058  M01S00060.ns2788  +++|          CRM    SBUF+FNEI,TW
03059  M01S00061.ns2788  +++|          RJM    WEI         WRITE EOI
03060  M01S00062.ns2788  +++| CFL1     LDD    CN          CHECK FILE TYPE
03061  M00S02729.msm     +++|          LMN    LIFT
03062  M00S02730.msm     +++|          ZJN    CFLX        IF LIBRARY FILE
03063  M00S02731.msm     +++|          LDM    CTSS+FCEC   SET ERROR FLAG IN SYSTEM SECTOR
03064  M00S02732.msm     +++|          LPC    7077
03065  M00S02733.msm     +++|          LMC    400
03066  M00S02734.msm     +++|          STM    CTSS+FCEC
Line S00063 Modification History
M01 (Added by) ns2788
Seq #  *Modification Id* Act 
----------------------------+
03067  M01S00063.ns2788  +++|          AOD    CN+1        SET SYSTEM SECTOR REWRITE STATUS
03068  M00S02735.msm     +++|          UJN    CFLX        RETURN
03069  M00S02736.msm     +++| CPS      SPACE  4,10
03070  M00S02737.msm     +++|**        CPS - CHECK PFC SIZE.
03071  M00S02738.msm     +++|*
03072  M00S02739.msm     +++|*         ENTRY  (T5) = EST ORDINAL.
03073  M00S02740.msm     +++|*
03074  M00S02741.msm     +++|*         CALLS  DFM, SES.
03075  M00S02742.msm     +++|*
03076  M00S02743.msm     +++|*         MACROS CMSTF, SMSTF.
03077  M00S02744.msm     +++|
03078  M00S02745.msm     +++|
03079  M00S02746.msm     +++| CPS      SUBR               ENTRY/EXIT
03080  M00S02747.msm     +++|          LDC    *
03081  M00S02748.msm     +++|*         LDC    0           (8-WORD PFC DEVICE)
03082  M00S02749.msm     +++| CPSA     EQU    *-1
03083  M00S02750.msm     +++|          NJN    CPSX        IF NOT 8-WORD PFC DEVICE
03084  M00S02751.msm     +++|          LDC    CPSB        ISSUE DAYFILE MESSAGE
03085  M00S02752.msm     +++|          RJM    DFM
03086  M00S02753.msm     +++|          LDC    CPSB+ERLN   ISSUE MESSAGE TO ERROR LOG
03087  M00S02754.msm     +++|          RJM    DFM
03088  M00S02755.msm     +++|          SMSTF  GDEI        SET GLOBAL ERROR IDLE FLAG
03089  M00S02756.msm     +++|          LDN    STCS        SET PF CATALOG SIZE ERROR STATUS
03090  M00S02757.msm     +++|          RJM    SES
03091  M00S02758.msm     +++|          CMSTF  LCKP        CLEAR POSSIBLE CHECKPOINT
03092  M00S02759.msm     +++|          UJN    CPSX        RETURN
03093  M00S02760.msm     +++|
03094  M00S02761.msm     +++| CPSB     DATA   C*EQXXX, PF CATALOG SIZE ERROR.*
Line S02762 Modification History
M01 (Removed by) ns2669
Seq #  *Modification Id* Act 
----------------------------+
03095  M01S02762.ns2669  ---| CQF      SPACE  4,16
Line S00001 Modification History
M01 (Added by) ns2669
Seq #  *Modification Id* Act 
----------------------------+
03096  M01S00001.ns2669  +++| CQF      SPACE  4,20
03097  M00S02763.msm     +++|**        CQF - CREATE QUEUED FILE ENTRY.
03098  M00S02764.msm     +++|*
03099  M00S02765.msm     +++|*         CQF CREATES THE ENTRY REPRESENTING A QUEUED FILE IN
03100  M00S02766.msm     +++|*         THE INACTIVE QUEUED FILE LIST.
03101  M00S02767.msm     +++|*
Line S02768 Modification History
M01 (Removed by) ns2669
Seq #  *Modification Id* Act 
----------------------------+
03102  M01S02768.ns2669  ---|*
Line S02769 Modification History
M01 (Removed by) ns2788
Seq #  *Modification Id* Act 
----------------------------+
03103  M01S02769.ns2788  ---|*         ENTRY  (A) = 0 IF QUEUE FILE.
03104  M01S02770.ns2788  ---|*                (BFMS) = SYSTEM SECTOR.
Line S00064 Modification History
M01 (Added by) ns2788
Seq #  *Modification Id* Act 
----------------------------+
03105  M01S00064.ns2788  +++|*         ENTRY  (BFMS) = SYSTEM SECTOR.
03106  M00S02771.msm     +++|*                (CQFA) = 0 IF NOT *IQFT* SPACE AVAILABLE.
03107  M00S02772.msm     +++|*
Line S02773 Modification History
M01 (Removed by) ns2788
Seq #  *Modification Id* Act 
----------------------------+
03108  M01S02773.ns2788  ---|*         EXIT   (A) .LT. 0 NOT A QUEUED FILE.
03109  M01S02774.ns2788  ---|*                (A) = 0 QUEUED FILE RECOVERED.
Line S00065 Modification History
M01 (Added by) ns2788
Seq #  *Modification Id* Act 
----------------------------+
03110  M01S00065.ns2788  +++|*         EXIT   *IQFT* ENTRY CREATED, IF QUEUE FILE RECOVERED.
03111  M00S02775.msm     +++|*
Line S02776 Modification History
M01 (Removed by) ns2669
Seq #  *Modification Id* Act 
----------------------------+
03112  M01S02776.ns2669  ---|*         USES   T2, CM - CM+4, QI.
Line S00002 Modification History
M01 (Added by) ns2669
Seq #  *Modification Id* Act 
----------------------------+
03113  M01S00002.ns2669  +++|*         USES   QI, T1, T6, CM - CM+4.
03114  M00S02777.msm     +++|*
Line S02778 Modification History
M01 (Removed by) ns2669
Seq #  *Modification Id* Act 
----------------------------+
03115  M01S02778.ns2669  ---|*         CALLS  IQF, PFE, RSS, VFL, WEI, WQF, WSS.
Line S00003 Modification History
M01 (Added by) ns2669
M02 (Removed by) msm48
Seq #  *Modification Id* Act 
----------------------------+
03116  M02S00003.msm48   ---|*         CALLS  BAD, IQF, PFE, RSS, VFL, WEI, WQF, WSR.
Line S00037 Modification History
M01 (Added by) msm48
Seq #  *Modification Id* Act 
----------------------------+
03117  M01S00037.msm48   +++|*         CALLS  IQF, PFE, RSS, VFL, WEI, WQF, WSR.
03118  M00S02779.msm     +++|*
03119  M00S02780.msm     +++|*         MACROS FILEREC, SETMS.
Line S02781 Modification History
M01 (Removed by) ns2669
Seq #  *Modification Id* Act 
----------------------------+
03120  M01S02781.ns2669  ---|
03121  M00S02782.msm     +++|
03122  M00S02783.msm     +++|
03123  M00S02784.msm     +++| CQF7     AOM    PQIC        ADVANCE QUEUE FILE IGNORED COUNT
Line S02785 Modification History
M01 (Removed by) ns2788
Seq #  *Modification Id* Act 
----------------------------+
03124  M01S02785.ns2788  ---|          LDN    0
03125  M00S02786.msm     +++|
03126  M00S02787.msm     +++| CQF      SUBR               ENTRY/EXIT
Line S02788 Modification History
M01 (Removed by) ns2788
Seq #  *Modification Id* Act 
----------------------------+
03127  M01S02788.ns2788  ---|          NJN    CQFX        IF NOT QUEUE FILE
03128  M00S02789.msm     +++|          LDC    1
03129  M00S02790.msm     +++| CQFA     EQU    *-1
03130  M00S02791.msm     +++|          ZJN    CQF7        IF NO SPACE FOR/ON *IQFT*
03131  M00S02792.msm     +++| CQFC     LDN    0
03132  M00S02793.msm     +++|*         LDN    1           (QUEUE FILE PROCESSING INITIATED)
03133  M00S02794.msm     +++|          NJN    CQF2        IF QUEUE FILE PROCESSING INITIATED
03134  M00S02795.msm     +++|          RJM    IQF         INITIALIZE *IQFT*
03135  M00S02796.msm     +++|          STM    CQFA
03136  M00S02797.msm     +++|          ZJN    CQF7        IF TRACK UNAVAILABLE FOR *IQFT*
03137  M00S02798.msm     +++|          LDD    FS+1        REREAD THE QUEUE FILE SYSTEM SECTOR
03138  M00S02799.msm     +++|          STD    T6
03139  M00S02800.msm     +++|          SETMS  POSITION
03140  M00S02801.msm     +++|*         LDN    0           READ SYSTEM SECTOR
03141  M00S02802.msm     +++|          RJM    RSS
03142  M00S02803.msm     +++|          AOM    CQFC
03143  M00S02804.msm     +++|          STM    TQFA
03144  M00S02805.msm     +++| CQF2     RJM    VFL         VERIFY FILE LENGTH
03145  M00S02806.msm     +++|          NJN    CQF4        IF LENGTH ERROR
Line S02807 Modification History
M01 (Removed by) ns2788
Seq #  *Modification Id* Act 
----------------------------+
03146  M01S02807.ns2788  ---|          AOM    PMRC        ADVANCE QUEUED FILE RECOVERY COUNT
03147  M00S02808.msm     +++|          LDM    DTSS
03148  M00S02809.msm     +++|          NJN    CQF3        IF ENHANCED EOI INDICATED
Line S00066 Modification History
M01 (Added by) ns2788
Seq #  *Modification Id* Act 
----------------------------+
03149  M01S00066.ns2788  +++|          LDD    MA          COPY FNT/FST FROM SYSTEM SECTOR TO EOI
03150  M01S00067.ns2788  +++|          CWM    FNSS,TW
03151  M01S00068.ns2788  +++|          SBN    2
03152  M01S00069.ns2788  +++|          CRM    SBUF+FNEI,TW
03153  M00S02810.msm     +++|          RJM    WEI         REWRITE EOI
Line S02811 Modification History
M01 (Removed by) ns2788
Seq #  *Modification Id* Act 
----------------------------+
03154  M01S02811.ns2788  ---|          LDD    FS+1        RESET SYSTEM SECTOR ADDRESS
03155  M01S02812.ns2788  ---|          STM    SBUF+FTEI
Line S00070 Modification History
M01 (Added by) ns2788
Seq #  *Modification Id* Act 
----------------------------+
03156  M01S00070.ns2788  +++|          UJN    CQF5        ADVANCE RECOVERY COUNT
03157  M01S00071.ns2788  +++|
03158  M00S02813.msm     +++| CQF3     LDD    FS+1        VERIFY BOI/EOI
03159  M00S02814.msm     +++|          STD    T6
03160  M00S02815.msm     +++|          LMM    SBUF+FTEI
03161  M00S02816.msm     +++|          ZJN    CQF5        IF VERIFY GOOD
Line S02817 Modification History
M01 (Removed by) ns2788
Seq #  *Modification Id* Act 
----------------------------+
03162  M01S02817.ns2788  ---|          SOM    PMRC        DECREMENT QUEUED FILE RECOVERY COUNT
03163  M00S02818.msm     +++| CQF4     LCN    0           SET LENGTH ERROR
03164  M00S02819.msm     +++|          STM    FLSS
03165  M00S02820.msm     +++|          STM    FLSS+1
03166  M00S02821.msm     +++|          RJM    PFE         ISSUE ERROR MESSAGE
Line S02822 Modification History
M01 (Removed by) ns2788
Seq #  *Modification Id* Act 
----------------------------+
03167  M01S02822.ns2788  ---|          ZJN    CQF5        IF OPERATOR NOT SELECTING ERROR IDLE
03168  M01S02823.ns2788  ---|          LJM    RDB3        SET ERROR IDLE
Line S00072 Modification History
M01 (Added by) ns2788
Seq #  *Modification Id* Act 
----------------------------+
03169  M01S00072.ns2788  +++|          LJM    CQF7        IGNORE THIS FILE AND RETURN
03170  M00S02824.msm     +++|
Line S02825 Modification History
M01 (Removed by) ns2788
Seq #  *Modification Id* Act 
----------------------------+
03171  M01S02825.ns2788  ---| CQF5     LDM    FGSS        SET INACTIVE QUEUE FILE STATUS
Line S00073 Modification History
M01 (Added by) ns2788
Seq #  *Modification Id* Act 
----------------------------+
03172  M01S00073.ns2788  +++| CQF5     AOM    PMRC        ADVANCE QUEUED FILE RECOVERY COUNT
03173  M01S00074.ns2788  +++|          LDM    FGSS        SET INACTIVE QUEUE FILE STATUS
03174  M00S02826.msm     +++|          SCN    2
03175  M00S02827.msm     +++|          STM    FGSS
03176  M00S02828.msm     +++|          LDD    FS+1        RESET SYSTEM SECTOR ADDRESS
Line S02829 Modification History
M01 (Removed by) ns2669
Seq #  *Modification Id* Act 
----------------------------+
03177  M01S02829.ns2669  ---|          STD    T6
03178  M01S02830.ns2669  ---|          SETMS  POSITION
03179  M01S02831.ns2669  ---|          RJM    WSS         REWRITE SYSTEM SECTOR
Line S00004 Modification History
M01 (Added by) ns2669
Seq #  *Modification Id* Act 
----------------------------+
03180  M01S00004.ns2669  +++|          RJM    WSR         WRITE SYSTEM SECTOR WITH REWRITE
03181  M00S02832.msm     +++|
03182  M00S02833.msm     +++|*         ENTER THIS FILE IN *IQFT* BUFFER IN CM.
03183  M00S02834.msm     +++|
03184  M00S02835.msm     +++|          LDM    FLSS+1      INSERT FILE LENGTH
03185  M00S02836.msm     +++|          STM    CDSS+1
03186  M00S02837.msm     +++|          LDM    FLSS
03187  M00S02838.msm     +++|          STM    CDSS
03188  M00S02839.msm     +++|          LDD    T5          SET EST ORDINAL
03189  M00S02840.msm     +++|          STM    IOSS+5*ENTQ
03190  M00S02841.msm     +++|          LDN    10          MAXIMUM QFT ENTRY LENGTH
03191  M00S02842.msm     +++|          STD    T1
03192  M00S02843.msm     +++|          LDM    RMSS        USE THE RESIDENT MACHINE ID FOR RECOVERY
03193  M00S02844.msm     +++|          STM    FMSS+4
Line S02845 Modification History
M01 (Removed by) msm48
Seq #  *Modification Id* Act 
----------------------------+
03194  M01S02845.msm48   ---|          RJM    BAD         GET CM BUFFER ADDRESS
Line S00038 Modification History
M01 (Added by) msm48
Seq #  *Modification Id* Act 
----------------------------+
03195  M01S00038.msm48   +++|          LDD    RA
03196  M01S00039.msm48   +++|          SHN    6
03197  M01S00040.msm48   +++|          ADD    CR          FWA OF IQFT BUFFER
03198  M00S02846.msm     +++|          ADD    QI
03199  M00S02847.msm     +++|          CWM    IOSS,T1     QFT ENTRY
03200  M00S02848.msm     +++|          CWM    CDSS,ON     DATE, TIME AND FILE LENGTH IN SECTORS
03201  M00S02849.msm     +++|          CWM    FMSS,ON     WRITE FAMILY NAME
03202  M00S02850.msm     +++|          CWM    FDSS,ON     DESTINATION FAMILY NAME
03203  M00S02851.msm     +++|          CWM    OASS,ON     OWNER USER NAME, USER INDEX
03204  M00S02852.msm     +++|          CWM    FOSS,ON     OWNER FAMILY NAME
03205  M00S02853.msm     +++|          LDN    QFEWL       QUEUED FILE ENTRY WORD COUNT
03206  M00S02854.msm     +++|          RAD    QI          ADVANCE BUFFER POINTER
03207  M00S02855.msm     +++|          SHN    -6          WORDS/PRU (0-77)
03208  M00S02856.msm     +++|          ZJN    CQF6        IF NOT FULL SECTOR
03209  M00S02857.msm     +++|          RJM    WQF         WRITE QUEUED FILE SECTOR
Line S02858 Modification History
M01 (Removed by) ns2788
Seq #  *Modification Id* Act 
----------------------------+
03210  M01S02858.ns2788  ---|          LDN    0
03211  M00S02859.msm     +++| CQF6     LJM    CQFX        RETURN
03212  M00S02860.msm     +++|
03213  M00S02861.msm     +++|
03214  M00S02862.msm     +++|*         QUEUED FILE RECOVERY TABLE. (RDAT)
03215  M00S02863.msm     +++|
Line S00075 Modification History
M01 (Added by) ns2788
Seq #  *Modification Id* Act 
----------------------------+
03216  M01S00075.ns2788  +++|          LIST   G
03217  M00S02864.msm     +++|          FILEREC
Line S00076 Modification History
M01 (Added by) ns2788
Seq #  *Modification Id* Act 
----------------------------+
03218  M01S00076.ns2788  +++|          LIST   *
03219  M00S02865.msm     +++|          CON    PMFT+100
03220  M00S02866.msm     +++|          CON    FAFT+100
03221  M00S02867.msm     +++|          CON    LIFT+100
03222  M00S02868.msm     +++| RDATBL   EQU    *-RDAT
Line S02869 Modification History
M01 (Removed by) ns2788
Seq #  *Modification Id* Act 
----------------------------+
03223  M01S02869.ns2788  ---| CUS      SPACE  4,10
Proceed to Part 2
cdc/nos2.source/opl.opl871/deck/msm.001.txt ยท Last modified: (external edit)