User Tools

Site Tools


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

Deck MSM Part 004

30 Modifications

Listing Sections

Source

Seq #  *Modification Id* Act 
----------------------------+
06783  M01S00181.ns2547  +++|          LMD    T1
06784  M01S00182.ns2547  +++|          ZJN    CMIX        IF DEVICE OPEN FOR RECOVERY
06785  M01S00183.ns2547  +++|          LDD    T2
06786  M01S00184.ns2547  +++|          SHN    2           CONVERT DIT INDEX TO BYTE INDEX
06787  M01S00185.ns2547  +++|          RAD    T2
06788  M01S00186.ns2547  +++|          LDM    DISS-5+4,T2 SET MACHINE ID IN MESSAGE
06789  M01S00187.ns2547  +++|          STM    CMIA+11
06790  M01S00188.ns2547  +++|          LDC    CMIA        SET EST ORDINAL IN MESSAGE
06791  M01S00189.ns2547  +++|          RJM    SOM
06792  M01S00190.ns2547  +++|*         LDC    CMIA        WAIT ON OPERATOR COMMAND
06793  M01S00191.ns2547  +++|          RJM    WOC
06794  M01S00192.ns2547  +++|          UJP    CMIX        RETURN
06795  M01S00193.ns2547  +++|
06796  M01S00194.ns2547  +++|
06797  M01S00195.ns2547  +++| CMIA     DATA   C*EQXXX, BUSY ON ID NN.*
06798  M00S05925.msm     +++| SDT      SPACE  4,15
06799  M00S05926.msm     +++|**        SDT - SEARCH DEVICE INFORMATION TABLE.
06800  M00S05927.msm     +++|*
06801  M00S05928.msm     +++|*         ENTRY  (FS - FS+4) = *STLL* WORD OF MST.
06802  M00S05929.msm     +++|*                (BFMS) = LABEL SECTOR.
06803  M00S05930.msm     +++|*
06804  M00S05931.msm     +++|*         EXIT   (A) = 0 IF THIS MACHINE NOT IDENTIFIED IN DIT.
06805  M00S05932.msm     +++|*                    = MACHINE INDEX FOR THIS DEVICE.
06806  M00S05933.msm     +++|*                    .LT. 0 IF ANY DIT ENTRY INTERLOCKED.
06807  M00S05934.msm     +++|*                (EC) = COUNT OF MACHINES ACCESSING DEVICE.
06808  M00S05935.msm     +++|*                (T1) = INDEX OF NEXT FREE DIT SLOT.
06809  M00S05936.msm     +++|*
06810  M00S05937.msm     +++|*         USES   T2, T3.
06811  M00S05938.msm     +++|
06812  M00S05939.msm     +++|
06813  M00S05940.msm     +++| SDT2     LDD    T2          SET MACHINE INDEX
06814  M00S05941.msm     +++|          STD    T0
06815  M00S05942.msm     +++| SDT3     LDD    T2          SET INDEX OF EMPTY SLOT
06816  M00S05943.msm     +++|          STD    T1
06817  M00S05944.msm     +++| SDT4     SOD    T2
06818  M00S05945.msm     +++|          NJN    SDT1        IF MORE DIT ENTRIES TO CHECK
06819  M00S05946.msm     +++|          LDD    T0
06820  M00S05947.msm     +++|
06821  M00S05948.msm     +++| SDT      SUBR               ENTRY/EXIT
06822  M00S05949.msm     +++|          LDN    0
06823  M00S05950.msm     +++|          STD    EC
06824  M00S05951.msm     +++|          STD    T0
06825  M00S05952.msm     +++|          STD    T1
06826  M00S05953.msm     +++|          LDC    DISS+5*MISD+4  PRESET SEARCH ADDRESS
06827  M00S05954.msm     +++|          STD    T3
06828  M00S05955.msm     +++|          LDN    MISD        INITIALIZE DIT INDEX
06829  M00S05956.msm     +++|          STD    T2
06830  M00S05957.msm     +++| SDT1     LCN    5           DECREMENT ADDRESS
06831  M00S05958.msm     +++|          RAD    T3
06832  M00S05959.msm     +++|          LDI    T3
06833  M00S05960.msm     +++|          ZJN    SDT3        IF EMPTY SLOT
06834  M00S05961.msm     +++|          LMD    FS+2
06835  M00S05962.msm     +++|          ZJN    SDT2        IF SLOT ASSIGNED TO THIS MACHINE
06836  M00S05963.msm     +++|          AOD    EC
06837  M00S05964.msm     +++|          LDM    -1,T3
06838  M00S05965.msm     +++|          LPN    1
06839  M00S05966.msm     +++|          ZJN    SDT4        IF ENTRY NOT INTERLOCKED
06840  M00S05967.msm     +++|          LCN    1
06841  M00S05968.msm     +++|          UJN    SDTX        RETURN
06842  M00S05969.msm     +++|          SPACE  4,10
06843  M00S05970.msm     +++|          QUAL   *
Line S05971 Modification History
M01 (Removed by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
06844  M01S05971.272l774 ---| SLT      SPACE  4
Line S00036 Modification History
M01 (Added by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
06845  M01S00036.272l774 +++| SLT      SPACE  4,10
06846  M00S05972.msm     +++|**        SLT - SEARCH FOR LABEL TRACK.
06847  M00S05973.msm     +++|*
06848  M00S05974.msm     +++|*         ENTRY  (A) = 0 IF STARTING SCAN FOR LABEL TRACK.
06849  M00S05975.msm     +++|*
06850  M00S05976.msm     +++|*         EXIT   (A) = 0 IF END OF LABEL TRACK SCAN.
06851  M00S05977.msm     +++|*                (T6) = NEXT LABEL TRACK CANDIDATE.
06852  M00S05978.msm     +++|*
06853  M00S05979.msm     +++|*         USES   T1, T2, CM - CM+4.
06854  M00S05980.msm     +++|*
06855  M00S05981.msm     +++|*         CALLS  STA.
06856  M00S05982.msm     +++|
06857  M00S05983.msm     +++|
06858  M00S05984.msm     +++| SLT1     LDD    T6          SET TRT WORD INDEX
06859  M00S05985.msm     +++| SLT2     SHN    21-1
06860  M00S05986.msm     +++|          LMD    TH          REMOVE TRACK BIT
06861  M00S05987.msm     +++|          STD    T1
06862  M00S05988.msm     +++|          SHN    1-21        SET BYTE INDEX
06863  M00S05989.msm     +++|          STD    T2
06864  M00S05990.msm     +++|          RJM    STA         SET FWA OF TRT
06865  M00S05991.msm     +++|          ADD    T1
06866  M00S05992.msm     +++|          CRD    CM
06867  M00S05993.msm     +++|          LDM    CM,T2       CHECK TRACK
06868  M00S05994.msm     +++|          LMC    3777
06869  M00S05995.msm     +++|          NJN    SLTX        IF NOT FLAWED
06870  M00S05996.msm     +++|          AOD    T6          ADVANCE TRACK
06871  M00S05997.msm     +++| SLT3     LMC    LTKL
06872  M00S05998.msm     +++| SLTA     EQU    *-1
06873  M00S05999.msm     +++|          NJN    SLT1        IF NOT AT LABEL TRACK LIMIT
06874  M00S06000.msm     +++|
06875  M00S06001.msm     +++| SLT      SUBR               ENTRY/EXIT
06876  M00S06002.msm     +++|          NJN    SLT3        IF NOT FIRST TRACK
06877  M00S06003.msm     +++|          LDC    LTKL        SET LIMIT FOR VALID LABEL TRACK
06878  M00S06004.msm     +++|          STM    SLTA
06879  M00S06005.msm     +++|          SBN    LTKL-FLTK   SET FIRST TRACK
06880  M00S06006.msm     +++|          STD    T6
06881  M00S06007.msm     +++|          UJN    SLT2
Line S06008 Modification History
M01 (Removed by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
06882  M01S06008.272l774 ---| VAL      SPACE  4,10
Line S00037 Modification History
M01 (Added by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
06883  M01S00037.272l774 +++| VAL      SPACE  4,20
06884  M00S06009.msm     +++|**        VAL - VERIFY ACCESS LEVEL LIMITS.
06885  M00S06010.msm     +++|*
06886  M00S06011.msm     +++|*         ENTRY  (T5) = EST ORDINAL.
Line S06012 Modification History
M01 (Removed by) ns2547
Seq #  *Modification Id* Act 
----------------------------+
06887  M01S06012.ns2547  ---|*                (EQ) = PRIMARY EST ORDINAL.
06888  M00S06013.msm     +++|*
06889  M00S06014.msm     +++|*         EXIT   (A) = 0 IF ACCESS LEVELS WITHIN LIMITS, OR OPERATOR
06890  M00S06015.msm     +++|*                      ENTERED *GO,CMS*.
06891  M00S06016.msm     +++|*                (EC) = *STSV* WHEN ACCESS LEVELS NOT WITHIN LIMITS ON
06892  M00S06017.msm     +++|*                       *RMS* CALL PROCESSING REMOVABLE DEVICE, *CMS*
06893  M00S06018.msm     +++|*                       CALL PROCESSING SECURED SYSTEM, OR *CMS* CALL
06894  M00S06019.msm     +++|*                       PROCESSING UNSECURED SYSTEM IN WHICH OPERATOR
06895  M00S06020.msm     +++|*                       ENTERED *PAUSE*.
06896  M00S06021.msm     +++|*                TO *HNG* ON *RMS* CALL PROCESSING NON-REMOVABLE
Line S06022 Modification History
M01 (Removed by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
06897  M01S06022.272l774 ---|*                DEVICE.
Line S00038 Modification History
M01 (Added by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
06898  M01S00038.272l774 +++|*                DEVICE WHEN ACCESS LEVELS NOT WITHIN LIMITS.
06899  M00S06023.msm     +++|*
Line S06024 Modification History
M01 (Removed by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
06900  M01S06024.272l774 ---|*         USES   EC, CM - CM+4, CN - CN+4.
Line S00039 Modification History
M01 (Added by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
06901  M01S00039.272l774 +++|*         USES   CM, EC, CN - CN+4.
06902  M00S06025.msm     +++|*
Line S06026 Modification History
M01 (Removed by) ns2547
Seq #  *Modification Id* Act 
----------------------------+
06903  M01S06026.ns2547  ---|*         CALLS  PUE.
Line S00196 Modification History
M01 (Added by) ns2547
Seq #  *Modification Id* Act 
----------------------------+
06904  M01S00196.ns2547  +++|*         CALLS  PUE, SOM.
06905  M00S06027.msm     +++|*
06906  M00S06028.msm     +++|*         MACROS SFA.
06907  M00S06029.msm     +++|
06908  M00S06030.msm     +++|
06909  M00S06031.msm     +++| VAL7     LDN    0           CLEAR ERROR RETURN STATUS
06910  M00S06032.msm     +++|
06911  M00S06033.msm     +++| VAL      SUBR               ENTRY/EXIT
06912  M00S06034.msm     +++|          SFA    EST,T5      GET ACCESS LEVELS FROM EST
06913  M00S06035.msm     +++|          ADK    EQAE
06914  M00S06036.msm     +++|          CRD    CN
06915  M00S06037.msm     +++|          LDM    N4SS+5*PFGL+4  GET ACCESS LEVELS CONTAINED IN MST
06916  M00S06038.msm     +++|          SHN    -6
06917  M00S06039.msm     +++|          STD    CM
06918  M00S06040.msm     +++|          LDD    CN+3        COMPARE LOWER LEVELS
06919  M00S06041.msm     +++|          LPN    70
06920  M00S06042.msm     +++|          STD    CN
06921  M00S06043.msm     +++|          LDD    CM
06922  M00S06044.msm     +++|          SCN    7
06923  M00S06045.msm     +++|          SBD    CN
06924  M00S06046.msm     +++|          MJN    VAL2        IF LOWER LEVEL NOT WITHIN LIMITS
06925  M00S06047.msm     +++|          LDD    CM          COMPARE UPPER LEVELS
06926  M00S06048.msm     +++|          LPN    7
06927  M00S06049.msm     +++|          STD    CM
06928  M00S06050.msm     +++|          LDD    CN+3
06929  M00S06051.msm     +++|          LPN    7
06930  M00S06052.msm     +++|          SBD    CM
06931  M00S06053.msm     +++| VAL1     PJN    VAL7        IF ACCESS LEVELS WITHIN LIMITS
06932  M00S06054.msm     +++| VAL2     LDD    RE          PROCESS *RMS* ERROR
06933  M00S06055.msm     +++|*         UJN    VAL5        (PROCESS *CMS* ERROR)
06934  M00S06056.msm     +++|          SHN    21-10
06935  M00S06057.msm     +++|          PJN    VAL6        IF NON-RECOVERABLE DEVICE
06936  M00S06058.msm     +++| VAL3     LDN    STSV        SET ERROR STATUS
06937  M00S06059.msm     +++|          STD    EC
06938  M00S06060.msm     +++| VAL4     UJN    VALX        RETURN
06939  M00S06061.msm     +++|
06940  M00S06062.msm     +++| VAL5     LDD    FN          PROCESS *CMS* ERROR
06941  M00S06063.msm     +++|          SHN    21-6
06942  M00S06064.msm     +++|          PJN    VAL1        IF DEVICE ALREADY AVAILABLE
Line S06065 Modification History
M01 (Removed by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
06943  M01S06065.272l774 ---|          LDN    SSML        DETERMINE IF SECURED SYSTEM
06944  M01S06066.272l774 ---|          CRD    CM
06945  M01S06067.272l774 ---|          LDD    CM
06946  M01S06068.272l774 ---|          LPN    77
06947  M01S06069.272l774 ---|          NJN    VAL3        IF SECURED SYSTEM
06948  M01S06070.272l774 ---|          RJM    PUE         PROCESS UNSECURED ERROR
Line S00040 Modification History
M01 (Added by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
06949  M01S00040.272l774 +++| VALB     RJM    PUE         PROCESS UNSECURED ERROR
06950  M01S00041.272l774 +++|*         UJN    VAL3        (SECURED SYSTEM)
06951  M00S06071.msm     +++|          NJN    VAL3        IF OPERATOR ENTERED *PAUSE*
06952  M00S06072.msm     +++|          UJN    VAL4        RETURN
06953  M00S06073.msm     +++|
Line S06074 Modification History
M01 (Removed by) ns2547
Seq #  *Modification Id* Act 
----------------------------+
06954  M01S06074.ns2547  ---| VAL6     LDD    EQ          SET EST ORDINAL IN MESSAGE
06955  M01S06075.ns2547  ---|          SHN    -3
06956  M01S06076.ns2547  ---|          RJM    C2D
06957  M01S06077.ns2547  ---|          STM    VALA+1
06958  M01S06078.ns2547  ---|          LDD    EQ
06959  M01S06079.ns2547  ---|          LPN    7
06960  M01S06080.ns2547  ---|          SHN    6
06961  M01S06081.ns2547  ---|          ADC    2R0,
06962  M01S06082.ns2547  ---|          STM    VALA+2
06963  M01S06083.ns2547  ---|          LDC    VALA
Line S00197 Modification History
M01 (Added by) ns2547
Seq #  *Modification Id* Act 
----------------------------+
06964  M01S00197.ns2547  +++| VAL6     LDC    VALA        SET EST ORDINAL IN MESSAGE
06965  M01S00198.ns2547  +++|          RJM    SOM
06966  M00S06084.msm     +++|          LJM    /RMS/HNG    HANG PP
Line S00199 Modification History
M01 (Added by) ns2547
Seq #  *Modification Id* Act 
----------------------------+
06967  M01S00199.ns2547  +++|
06968  M00S06085.msm     +++|
06969  M00S06086.msm     +++| VALA     DATA   C*EQXXX, DEVICE ACCESS ERROR.*
Line S06087 Modification History
M01 (Removed by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
06970  M01S06087.272l774 ---| WMT      SPACE  4
Line S00042 Modification History
M01 (Added by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
06971  M01S00042.272l774 +++| WMT      SPACE  4,20
06972  M00S06088.msm     +++|**        WMT - ENTER MST TO CM TABLE.
06973  M00S06089.msm     +++|*
06974  M00S06090.msm     +++|*         ENTRY  (A) = STATUS OF LABEL READ ATTEMPT.
06975  M00S06091.msm     +++|*                (CA) = ADDRESS FOR MST.
06976  M00S06092.msm     +++|*                (T5) = EST ORDINAL.
06977  M00S06093.msm     +++|*                (FN - FN+4) = EST ENTRY.
06978  M00S06094.msm     +++|*                (FS - FS+4) = STLL WORD FROM MST.
06979  M00S06095.msm     +++|*                (T7) = SECTOR READ.
06980  M00S06096.msm     +++|*                (T6) = LABEL TRACK READ.
06981  M00S06097.msm     +++|*                (SN) = LABEL SECTOR NUMBER.
06982  M00S06098.msm     +++|*
Line S06099 Modification History
M01 (Removed by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
06983  M01S06099.283l840 ---|*         EXIT   (A) = SECTOR NUMBER.
06984  M01S06100.283l840 ---|*                (A) .GE. 0 TO ENSURE UPDATE OF RECOVERY TABLES
06985  M01S06101.283l840 ---|*                UPON RETURN TO *MRL*.
06986  M01S06102.283l840 ---|*                (CA) = ADDRESS FOR MST OF NEXT UNIT.
Line S00168 Modification History
M01 (Added by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
06987  M01S00168.283l840 +++|*         EXIT   (CA) = ADDRESS FOR MST OF NEXT UNIT.
Line S00029 Modification History
M01 (Added by) msm49
Seq #  *Modification Id* Act 
----------------------------+
06988  M01S00029.msm49   +++|*                TO */RMS/HNG* IF LINK DEVICE SIZE ERROR.
06989  M00S06103.msm     +++|*
06990  M00S06104.msm     +++|*         USES   T1, CA, EC, CM - CM+4, FS - FS+4.
06991  M00S06105.msm     +++|*
06992  M00S06106.msm     +++|*         CALLS  GAS, LRA, SES, VAL.
06993  M00S06107.msm     +++|
06994  M00S06108.msm     +++|
06995  M00S06109.msm     +++| WMT      SUBR               ENTRY/EXIT
06996  M00S06110.msm     +++|          STD    EC          SAVE STATUS
06997  M00S06111.msm     +++|          ZJN    WMT3        IF NO ERROR
Line S00030 Modification History
M01 (Added by) msm49
Seq #  *Modification Id* Act 
----------------------------+
06998  M01S00030.msm49   +++|
06999  M01S00031.msm49   +++|*         ERROR ENCOUNTERED ON LABEL READ.
07000  M01S00032.msm49   +++|
07001  M00S06112.msm     +++| WMTA     LMN    STNR
07002  M00S06113.msm     +++|*         PSN                (CMS CALL)
07003  M00S06114.msm     +++|          NJN    WMT1        IF NOT *NOT READY*
07004  M00S06115.msm     +++|          STD    EC          CLEAR ERROR CODE (RMS ONLY)
07005  M00S06116.msm     +++| WMT1     LDC    MSTL*5
07006  M00S06117.msm     +++|          STD    T1
07007  M00S06118.msm     +++| WMT2     LDN    0           CLEAR MST AREA
07008  M00S06119.msm     +++|          STM    N4SS-1,T1
07009  M00S06120.msm     +++|          SOD    T1
07010  M00S06121.msm     +++|          NJN    WMT2
07011  M00S06122.msm     +++|          AOD    RE          SET NO LABEL PRESENT
Line S00200 Modification History
M01 (Added by) ns2547
Seq #  *Modification Id* Act 
----------------------------+
07012  M01S00200.ns2547  +++|          LDD    FN+4
07013  M01S00201.ns2547  +++|          SHN    3
07014  M01S00202.ns2547  +++|          ADN    PFGL        RETAIN PF DESCRIPTION
07015  M01S00203.ns2547  +++|          CRM    N4SS+5*PFGL,TW
07016  M00S06123.msm     +++|          LDD    EC          SET ERROR STATUS IN MST IMAGE
07017  M00S06124.msm     +++|          STM    N4SS+5*STLL+1
Line S06125 Modification History
M01 (Removed by) ns2547
Seq #  *Modification Id* Act 
----------------------------+
07018  M01S06125.ns2547  ---|          LDD    FN+4        RETAIN PF DESCRIPTION
07019  M01S06126.ns2547  ---|          SHN    3
07020  M01S06127.ns2547  ---|          ADN    PFGL
07021  M01S06128.ns2547  ---|          CRM    N4SS+5*PFGL,TW
Line S00204 Modification History
M01 (Added by) ns2547
M02 (Removed by) msm49
Seq #  *Modification Id* Act 
----------------------------+
07022  M02S00204.msm49   ---|          NJN    WMT4        IF ERROR STATUS PRESENT
Line S00033 Modification History
M01 (Added by) msm49
Seq #  *Modification Id* Act 
----------------------------+
07023  M01S00033.msm49   +++|          NJN    WMT2.1      IF ERROR STATUS PRESENT
Line S00205 Modification History
M01 (Added by) ns2547
Seq #  *Modification Id* Act 
----------------------------+
07024  M01S00205.ns2547  +++|          LDD    FS+1
07025  M01S00206.ns2547  +++|          LPN    77          PRESERVE EXISTING ERROR STATUS
07026  M01S00207.ns2547  +++|          STD    EC
Line S06129 Modification History
M01 (Removed by) msm49
Seq #  *Modification Id* Act 
----------------------------+
07027  M01S06129.msm49   ---|          UJN    WMT4        CONTINUE
Line S00034 Modification History
M01 (Added by) msm49
Seq #  *Modification Id* Act 
----------------------------+
07028  M01S00034.msm49   +++| WMT2.1   LJM    WMT4        CONTINUE
07029  M01S00035.msm49   +++|
07030  M01S00036.msm49   +++|*         LABEL READ SUCCESSFUL.
07031  M00S06130.msm     +++|
07032  M00S06131.msm     +++| WMT3     RJM    VAL         VERIFY ACCESS LEVELS
07033  M00S06132.msm     +++|          NJN    WMT1        IF LEVELS NOT WITHIN LIMITS
07034  M00S06133.msm     +++|          LDD    T6          SET LABEL TRACK
07035  M00S06134.msm     +++|          STM    N4SS+5*ALGL+1
07036  M00S06135.msm     +++|          LDD    T7          SET SECTOR READ
07037  M00S06136.msm     +++|          STM    N4SS+5*DILL
07038  M00S06137.msm     +++|          LDM    N4SS+5*ACGL+4  CLEAR PF UTILITY INTERLOCK
07039  M00S06138.msm     +++|          LPC    MGLAP
07040  M00S06139.msm     +++|          STM    N4SS+5*ACGL+4
07041  M00S06140.msm     +++|          LDM    N4SS+STLL*5+1  CLEAR ERROR STATUS
07042  M00S06141.msm     +++|          SCN    77
07043  M00S06142.msm     +++|          STM    N4SS+STLL*5+1
07044  M00S06143.msm     +++|          RJM    GAS         SET ALTERNATE LABEL SECTOR
07045  M00S06144.msm     +++|          STM    N4SS+5*DULL
Line S00037 Modification History
M01 (Added by) msm49
Seq #  *Modification Id* Act 
----------------------------+
07046  M01S00037.msm49   +++| WMTC     UJN    WMT4        WRITE LABEL DATA TO CM
07047  M01S00038.msm49   +++|*         PSN                (IF LINK DEVICE RECOVERY)
07048  M01S00039.msm49   +++|
07049  M01S00040.msm49   +++|*         VERIFY TRT LENGTH FOR LINK DEVICE.
07050  M01S00041.msm49   +++|
07051  M01S00042.msm49   +++|          LDD    FN+4        GET TRT LENGTH DEFINED AT DEADSTART
07052  M01S00043.msm49   +++|          SHN    3
07053  M01S00044.msm49   +++|          ADK    TDGL
07054  M01S00045.msm49   +++|          CRD    CM
07055  M01S00046.msm49   +++|          LDD    CM+2
07056  M01S00047.msm49   +++|          LMM    N4SS+TDGL*5+2  TRT LENGTH RECOVERED FROM DEVICE
07057  M01S00048.msm49   +++|          ZJN    WMT4        IF CORRECT TRT LENGTH
07058  M01S00049.msm49   +++|          LDC    WMTD        *LINK DEVICE SIZE ERROR.*
07059  M01S00050.msm49   +++|          LJM    /RMS/HNG    HANG PP
07060  M01S00051.msm49   +++|
07061  M01S00052.msm49   +++|*         ENTER LABEL DATA INTO CM TABLE.
07062  M01S00053.msm49   +++|
07063  M00S06145.msm     +++| WMT4     LDN    MSTL        SET MST LENGTH
07064  M00S06146.msm     +++|          STD    T1
Line S06147 Modification History
M01 (Removed by) msm49
Seq #  *Modification Id* Act 
----------------------------+
07065  M01S06147.msm49   ---|
07066  M01S06148.msm49   ---|*         ENTER LABEL DATA IN CM TABLE.
07067  M01S06149.msm49   ---|
07068  M00S06150.msm     +++|          RJM    LRA         LOAD REFERENCE ADDRESS
07069  M00S06151.msm     +++|          ADD    CA
07070  M00S06152.msm     +++|          CWM    N4SS,T1
07071  M00S06153.msm     +++|          LDN    MSTL        ADVANCE TABLE ADDRESS
07072  M00S06154.msm     +++|          RAD    CA
07073  M00S06155.msm     +++|
07074  M00S06156.msm     +++|*         ENTER APPROPRIATE STATUS TO MST.
07075  M00S06157.msm     +++|
07076  M00S06158.msm     +++|          LDD    SN
Line S06159 Modification History
M01 (Removed by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
07077  M01S06159.283l840 ---|          NJN    WMT7        IF NOT FIRST UNIT OF EQUIPMENT
Line S00169 Modification History
M01 (Added by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
07078  M01S00169.283l840 +++|          NJN    WMT6        IF NOT FIRST UNIT OF EQUIPMENT
07079  M00S06160.msm     +++|          LDD    FN
07080  M00S06161.msm     +++|          SHN    21-6
07081  M00S06162.msm     +++|          PJN    WMT5        IF DEVICE AVAILABLE
07082  M00S06163.msm     +++|          LDD    FN+4        STORE PF DESCRIPTION
07083  M00S06164.msm     +++|          SHN    3
07084  M00S06165.msm     +++|          ADN    PFGL
07085  M00S06166.msm     +++|          CWM    N4SS+5*PFGL,TW
07086  M00S06167.msm     +++|          ERRNZ  PUGL-PFGL-1 ADJUST IF *PFGL* POSITION CHANGES
07087  M00S06168.msm     +++| WMTB     UJN    WMT5        CHECK PREVIOUS ERROR STATUS
07088  M00S06169.msm     +++|*         PSN                (RECOVERING MMF LINK DEVICE)
07089  M00S06170.msm     +++|          SBN    PFGL+2-ALGL STORE LINK DEVICE ALLOCATION WORD
07090  M00S06171.msm     +++|          CWM    N4SS+5*ALGL,ON
07091  M00S06172.msm     +++|          LDM    N4SS+5*ALGL+4  SET DAT TRACK
Line S06173 Modification History
M01 (Removed by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
07092  M01S06173.283l840 ---|          STM    /MMF/RDEA
07093  M01S06174.283l840 ---|          STM    /MMF/WDEA
Line S00170 Modification History
M01 (Added by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
07094  M01S00170.283l840 +++|          STM    ADEA
07095  M00S06175.msm     +++| WMT5     LDD    FS+1
07096  M00S06176.msm     +++|          LPN    77          CHECK CURRENT ERROR STATUS
07097  M00S06177.msm     +++|          SBN    MNEC
07098  M00S06178.msm     +++|          PJN    WMT6        IF STATUS NOT TO BE CLEARED
07099  M00S06179.msm     +++|          LDD    EC
07100  M00S06180.msm     +++|          RJM    SES         SET/CLEAR ERROR STATUS
Line S06181 Modification History
M01 (Removed by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
07101  M01S06181.283l840 ---| WMT6     LDN    0
07102  M01S06182.283l840 ---| WMT7     LJM    WMTX        RETURN
Line S00171 Modification History
M01 (Added by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
07103  M01S00171.283l840 +++| WMT6     LJM    WMTX        RETURN
Line S00054 Modification History
M01 (Added by) msm49
Seq #  *Modification Id* Act 
----------------------------+
07104  M01S00054.msm49   +++|
07105  M01S00055.msm49   +++|
07106  M01S00056.msm49   +++| WMTD     DATA   C*LINK DEVICE SIZE ERROR.*
Line S00208 Modification History
M01 (Added by) ns2547
Seq #  *Modification Id* Act 
----------------------------+
07107  M01S00208.ns2547  +++| WOC      SPACE  4,10
07108  M01S00209.ns2547  +++|**        WOC - WAIT ON OPERATOR COMMAND.
07109  M01S00210.ns2547  +++|*
07110  M01S00211.ns2547  +++|*         ENTRY  (A) = ADDRESS OF PROMPT MESSAGE.
07111  M01S00212.ns2547  +++|*
07112  M01S00213.ns2547  +++|*         EXIT   (A) = 0 IF OPERATOR ENTERED *GO*.
07113  M01S00214.ns2547  +++|*                    = 1 IF OPERATOR ENTERED *PAUSE*.
07114  M01S00215.ns2547  +++|*
07115  M01S00216.ns2547  +++|*         USES   T8, CM - CM+4.
07116  M01S00217.ns2547  +++|*
07117  M01S00218.ns2547  +++|*         MACROS PAUSE.
07118  M01S00219.ns2547  +++|
07119  M01S00220.ns2547  +++|
07120  M01S00221.ns2547  +++| WOC      SUBR               ENTRY/EXIT
07121  M01S00222.ns2547  +++|          STM    WOCC
Line S00223 Modification History
M01 (Added by) ns2547
M02 (Removed by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
07122  M02S00223.272l774 ---| WOCA     LDN    0           READ SENSE SWITCH WORD
07123  M02S00224.272l774 ---|*         LDN    NC+1        (*RMS* CALL - USE SYSTEM CP)
07124  M02S00225.272l774 ---| WOCB     LDD    CP          READ SENSE SWITCH WORD
07125  M02S00226.272l774 ---|*         SHN    7           (*RMS* CALL - USE SYSTEM CP)
07126  M02S00227.272l774 ---|          ADN    SNSW
Line S00043 Modification History
M01 (Added by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
07127  M01S00043.272l774 +++| WOCA     LDC    **+SNSW     ADDRESS OF *SNSW* IN CP (*RMS* - SYSTEM CP)
Line S00228 Modification History
M01 (Added by) ns2547
Seq #  *Modification Id* Act 
----------------------------+
07128  M01S00228.ns2547  +++|          CRD    CM          GET SENSE SWITCH WORD
07129  M01S00229.ns2547  +++|          STD    T8
07130  M01S00230.ns2547  +++|          LDN    3           SET PAUSE FLAGS
07131  M01S00231.ns2547  +++|          STD    CM+3
07132  M01S00232.ns2547  +++|          LDD    T8          STORE PAUSE FLAGS
07133  M01S00233.ns2547  +++|          CWD    CM
07134  M01S00234.ns2547  +++|          ADN    MS2W-SNSW   STORE CONTROL POINT MESSAGE
07135  M01S00235.ns2547  +++|          CWM    *,TR
07136  M01S00236.ns2547  +++| WOCC     EQU    *-1
07137  M01S00237.ns2547  +++| WOC1     LCN    0           PAUSE FOR OPERATOR ACTION
07138  M01S00238.ns2547  +++|          SBN    1
07139  M01S00239.ns2547  +++|          NJN    *-1         IF DELAY NOT COMPLETE
07140  M01S00240.ns2547  +++|          PAUSE  NE
07141  M01S00241.ns2547  +++|          LDD    T8          READ SENSE SWITCH WORD
07142  M01S00242.ns2547  +++|          CRD    CM
07143  M01S00243.ns2547  +++|          LDD    CM+3        CHECK FOR OPERATOR INPUT
07144  M01S00244.ns2547  +++|          LPN    2
07145  M01S00245.ns2547  +++|          NJN    WOC1        IF OPERATOR HAS NOT RESPONDED
07146  M01S00246.ns2547  +++|          LMD    CM+3
07147  M01S00247.ns2547  +++|          UJP    WOCX        RETURN
07148  M00S06183.msm     +++|
07149  M00S06184.msm     +++|
Line S06185 Modification History
M01 (Removed by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
07150  M01S06185.272l774 ---|          ERRPL  *-BFMS      OVERFLOW INTO BUFFER
Line S00044 Modification History
M01 (Added by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
07151  M01S00044.272l774 +++|          ERRNG  BFMS-*      OVERFLOW INTO BUFFER
07152  M00S06186.msm     +++|          TITLE  PRESET.
07153  M00S06187.msm     +++| PRS      SPACE  4,10
07154  M00S06188.msm     +++|**        PRS - PRESET.
07155  M00S06189.msm     +++|
07156  M00S06190.msm     +++|
Line S06191 Modification History
M01 (Removed by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
07157  M01S06191.272l774 ---| PRS      LDD    RS          CHECK RECOVERY STATUS
Line S00045 Modification History
M01 (Added by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
07158  M01S00045.272l774 +++| PRS      BSS    0           ENTRY
07159  M01S00046.272l774 +++|          LDD    RS          CHECK RECOVERY STATUS
07160  M00S06192.msm     +++|          LPN    FLMK
07161  M00S06193.msm     +++|          LMN    FLCM
07162  M00S06194.msm     +++|          NJN    PRS1        IF NOT LEVEL 3 RECOVERY
Line S06195 Modification History
M01 (Removed by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
07163  M01S06195.272l774 ---|          LDC    UJNI+2
07164  M01S06196.272l774 ---|          STM    RDLA
07165  M01S06197.272l774 ---|          STM    RDLC
Line S00047 Modification History
M01 (Added by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
07166  M01S00047.272l774 +++|          ISTORE RDLC,(UJN RDL15)  BYPASS *RLM* CALL
07167  M00S06198.msm     +++| PRS1     LDM    DLYA        CHECK PP SPEED
07168  M00S06199.msm     +++|          LPN    14
07169  M00S06200.msm     +++|          RAM    SFTA
07170  M00S06201.msm     +++|          LDC    MMFL        READ MMF STATUS WORD
07171  M00S06202.msm     +++|          CRD    CM
07172  M00S06203.msm     +++|          LDD    CM          SAVE MACHINE ID
07173  M00S06204.msm     +++|          STM    CDIA
Line S00248 Modification History
M01 (Added by) ns2547
Seq #  *Modification Id* Act 
----------------------------+
07174  M01S00248.ns2547  +++|          STM    /ISD/RLSF+5
07175  M00S06205.msm     +++|          LDD    CM+4
Line S06206 Modification History
M01 (Removed by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
07176  M01S06206.283l840 ---|          ZJN    PRS4        IF STAND ALONE SYSTEM
Line S00172 Modification History
M01 (Added by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
07177  M01S00172.283l840 +++|          ZJP    PRS4        IF STAND ALONE SYSTEM
Line S00014 Modification History
M01 (Added by) ns2768
Seq #  *Modification Id* Act 
----------------------------+
07178  M01S00014.ns2768  +++|          LDK    STDI+T1     ACTIVATE *EMF* SUBROUTINE
07179  M01S00015.ns2768  +++|          STM    EMFA
Line S06207 Modification History
M01 (Removed by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
07180  M01S06207.283l840 ---|          LDC    TMMF        SET TABLE ADDRESS
07181  M01S06208.283l840 ---|          STD    T1
07182  M01S06209.283l840 ---|          UJN    PRS3        MODIFY INSTRUCTIONS WITH MACHINE MASK
07183  M01S06210.283l840 ---|
07184  M01S06211.283l840 ---| PRS2     STD    T0          SET INSTRUCTION ADDRESS
07185  M01S06212.283l840 ---|          LDD    CM+3        ADD MACHINE MASK TO INSTRUCTION
07186  M01S06213.283l840 ---|          LMI    T0
07187  M01S06214.283l840 ---|          STI    T0
07188  M01S06215.283l840 ---|          AOD    T1          ADVANCE TABLE ADDRESS
07189  M01S06216.283l840 ---| PRS3     LDI    T1
07190  M01S06217.283l840 ---|          NJN    PRS2        IF NOT END OF TABLE
07191  M00S06218.msm     +++|          LDM    LDMP        READ LINK DEVICE ALLOCATION WORD
07192  M00S06219.msm     +++|          SHN    3
07193  M00S06220.msm     +++|          ADN    ALGL
07194  M00S06221.msm     +++|          CRD    CM
07195  M00S06222.msm     +++|          LDD    CM+4        SET DAT TRACK
Line S06223 Modification History
M01 (Removed by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
07196  M01S06223.283l840 ---|          STM    /MMF/RDEA
07197  M01S06224.283l840 ---|          STM    /MMF/WDEA
Line S00173 Modification History
M01 (Added by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
07198  M01S00173.283l840 +++|          STM    ADEA
07199  M00S06225.msm     +++|          RJM    CEI         INITIALIZE *CEA* SUBROUTINE
Line S06226 Modification History
M01 (Removed by) ns2547
Seq #  *Modification Id* Act 
----------------------------+
07200  M01S06226.ns2547  ---| PRS4     LDD    IR
Line S00249 Modification History
M01 (Added by) ns2547
Seq #  *Modification Id* Act 
----------------------------+
07201  M01S00249.ns2547  +++| PRS4     LDD    RS
07202  M01S00250.ns2547  +++|          ZJN    PRS5        IF NOT RECOVERY DEADSTART
07203  M01S00251.ns2547  +++|          LCN    1RW-1RT
07204  M01S00252.ns2547  +++|          RAM    /ISD/RLSF+7  MODIFY ERROR MESSAGE
Line S00253 Modification History
M01 (Added by) ns2547
M02 (Removed by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
07205  M02S00253.272l774 ---|          LDC    *
07206  M02S00254.272l774 ---|          ORG    *-1
07207  M02S00255.272l774 ---|          LOC    /ISD/RLSB
07208  M02S00256.272l774 ---|          NJN    /ISD/RLS17  IF MACHINE ID IN DIT
07209  M02S00257.272l774 ---|          LOC    *O
07210  M02S00258.272l774 ---|          STM    /ISD/RLSB   MODIFY DIT CHECK
Line S00048 Modification History
M01 (Added by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
07211  M01S00048.272l774 +++|          ISTORE /ISD/RLSB,(NJN /ISD/RLS17)  MODIFY DIT CHECK
Line S00259 Modification History
M01 (Added by) ns2547
Seq #  *Modification Id* Act 
----------------------------+
07212  M01S00259.ns2547  +++| PRS5     LDD    IR
07213  M00S06227.msm     +++|          LMC    2RCM
Line S06228 Modification History
M01 (Removed by) ns2547
Seq #  *Modification Id* Act 
----------------------------+
07214  M01S06228.ns2547  ---|          ZJN    PRS5        IF *CMS* CALL
Line S00260 Modification History
M01 (Added by) ns2547
Seq #  *Modification Id* Act 
----------------------------+
07215  M01S00260.ns2547  +++|          ZJN    PRS6        IF *CMS* CALL
Line S00049 Modification History
M01 (Added by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
07216  M01S00049.272l774 +++|          ISTORE RLSA,(UJN RLS11) SET RECOVERY LEVEL CHECK
07217  M00S06229.msm     +++|          LDN    NCPL
07218  M00S06230.msm     +++|          CRD    CM
Line S06231 Modification History
M01 (Removed by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
07219  M01S06231.272l774 ---|          AOD    CM+1        SET SYSTEM CP NUMBER
Line S06232 Modification History
M01 (Removed by) ns2547
M02 (Removed by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
07220  M02S06232.272l774 ---|          RAM    PUEC
Line S00261 Modification History
M01 (Added by) ns2547
M02 (Removed by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
07221  M02S00261.272l774 ---|          RAM    WOCA
Line S06233 Modification History
M01 (Removed by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
07222  M01S06233.272l774 ---|          LDC    SHNI+7
Line S06234 Modification History
M01 (Removed by) ns2547
M02 (Removed by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
07223  M02S06234.272l774 ---|          STM    PUED
Line S00262 Modification History
M01 (Added by) ns2547
M02 (Removed by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
07224  M02S00262.272l774 ---|          STM    WOCB
Line S06235 Modification History
M01 (Removed by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
07225  M01S06235.272l774 ---|          LDC    *
07226  M01S06236.272l774 ---|          ORG    *-1
07227  M01S06237.272l774 ---|          LOC    RLSA
07228  M01S06238.272l774 ---|          UJN    RLS11       CHECK RECOVERY LEVEL
07229  M01S06239.272l774 ---|          LOC    *O
07230  M01S06240.272l774 ---|          STM    RLSA
07231  M01S06241.272l774 ---|          LJM    RDBX        EXIT
Line S00050 Modification History
M01 (Added by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
07232  M01S00050.272l774 +++|          AOD    CM+1        GET SYSTEM CPA ADDRESS
07233  M01S00051.272l774 +++|          SHN    7
07234  M01S00052.272l774 +++|          LJM    PRS8        SET *SNSW* ADDRESS
07235  M00S06242.msm     +++|
Line S06243 Modification History
M01 (Removed by) ns2547
Seq #  *Modification Id* Act 
----------------------------+
07236  M01S06243.ns2547  ---| PRS5     LDC    UJNI+2      DISABLE CALLS TO DEADSTART ROUTINES
Line S00263 Modification History
M01 (Added by) ns2547
Seq #  *Modification Id* Act 
----------------------------+
07237  M01S00263.ns2547  +++| PRS6     LDC    UJNI+2      DISABLE CALLS TO DEADSTART ROUTINES
07238  M00S06244.msm     +++|          STM    MRLB
07239  M00S06245.msm     +++|          STM    RDLA
Line S06246 Modification History
M01 (Removed by) ns2547
Seq #  *Modification Id* Act 
----------------------------+
07240  M01S06246.ns2547  ---|          STM    /ISD/RLSB
Line S00264 Modification History
M01 (Added by) ns2547
Seq #  *Modification Id* Act 
----------------------------+
07241  M01S00264.ns2547  +++|          STM    /ISD/RLSD
Line S06247 Modification History
M01 (Removed by) msm45
Seq #  *Modification Id* Act 
----------------------------+
07242  M01S06247.msm45   ---|          LDC    *
07243  M01S06248.msm45   ---|          ORG    *-1
07244  M01S06249.msm45   ---|          LOC    VAL2
07245  M01S06250.msm45   ---|          UJN    VAL5        PROCESS *CMS* ERROR
07246  M01S06251.msm45   ---|          LOC    *O
07247  M01S06252.msm45   ---|          STM    VAL2
07248  M01S06253.msm45   ---|          LDC    *
07249  M01S06254.msm45   ---|          ORG    *-1
07250  M01S06255.msm45   ---|          LOC    CMEA
07251  M01S06256.msm45   ---|          UJN    CME8        DO NOT SET UNLOAD FOR NOT READY
07252  M01S06257.msm45   ---|          LOC    *O
07253  M01S06258.msm45   ---|          STM    CMEA
Line S00003 Modification History
M01 (Added by) msm45
Seq #  *Modification Id* Act 
----------------------------+
07254  M01S00003.msm45   +++|          ISTORE VAL2,(UJN VAL5)
07255  M01S00004.msm45   +++|          ISTORE CMEA,(UJN CME8)
07256  M01S00005.msm45   +++|          ISTORE CMEB,(UJN CME8)
07257  M00S06259.msm     +++|          LDC    RLM6        SET ERROR RETURN FROM *RLM*
07258  M00S06260.msm     +++|          STM    RLMA
07259  M00S06261.msm     +++|          LDN    PSNI
07260  M00S06262.msm     +++|          STM    WMTA
07261  M00S06263.msm     +++|          LDD    CP
07262  M00S06264.msm     +++|          ADN    MS2W
07263  M00S06265.msm     +++|          STM    /ISD/RLSC
Line S06266 Modification History
M01 (Removed by) ns2768
Seq #  *Modification Id* Act 
----------------------------+
07264  M01S06266.ns2768  ---|          LDM    /CMS/DPPA
07265  M01S06267.ns2768  ---|          LPN    77
Line S00016 Modification History
M01 (Added by) ns2768
Seq #  *Modification Id* Act 
----------------------------+
07266  M01S00016.ns2768  +++|          LDM    /CMS/DPPB
07267  M01S00017.ns2768  +++|          SHN    -6
07268  M01S00018.ns2768  +++|          LMN    UJNI/100
Line S06268 Modification History
M01 (Removed by) ns2547
Seq #  *Modification Id* Act 
----------------------------+
07269  M01S06268.ns2547  ---|          NJN    PRS6        IF DEADSTART SEQUENCING
Line S00265 Modification History
M01 (Added by) ns2547
Seq #  *Modification Id* Act 
----------------------------+
07270  M01S00265.ns2547  +++|          NJN    PRS7        IF DEADSTART SEQUENCING
Line S06269 Modification History
M01 (Removed by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
07271  M01S06269.272l774 ---|          LDC    UJNI+2
07272  M01S06270.272l774 ---|          STM    RDLC
Line S06271 Modification History
M01 (Removed by) ns2547
M02 (Removed by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
07273  M02S06271.272l774 ---| PRS6     LJM    RDBX        EXIT
Line S00266 Modification History
M01 (Added by) ns2547
M02 (Removed by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
07274  M02S00266.272l774 ---| PRS7     LJM    RDBX        EXIT
Line S06272 Modification History
M01 (Removed by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
07275  M01S06272.272l774 ---| EMF      SPACE  4
Line S00053 Modification History
M01 (Added by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
07276  M01S00053.272l774 +++|          ISTORE RDLC,(UJN RDL15)  BYPASS *RLM* CALL
07277  M01S00054.272l774 +++| PRS7     LDD    CP          GET CPA ADDRESS
07278  M01S00055.272l774 +++| PRS8     ADN    SNSW        SET *SNSW* ADDRESS
07279  M01S00056.272l774 +++|          STM    WOCA+1
07280  M01S00057.272l774 +++|          LDN    SSML        DETERMINE IF SECURED SYSTEM
07281  M01S00058.272l774 +++|          CRD    CM
07282  M01S00059.272l774 +++|          LDD    CM
07283  M01S00060.272l774 +++|          LPN    77
07284  M01S00061.272l774 +++|          ZJN    PRS9        IF UNSECURED SYSTEM
07285  M01S00062.272l774 +++|          ISTORE VALB,(UJN VAL3)  DISABLE CALL TO *PUE*
07286  M01S00063.272l774 +++| PRS9     LJM    RDBX        EXIT
07287  M01S00064.272l774 +++| EMF      SPACE  4,10
07288  M00S06273.msm     +++|**        EMF - ENABLE MMF RECOVERY.
07289  M00S06274.msm     +++|*
07290  M00S06275.msm     +++|*         ENTRY  (A) = ADDRESS OF INSTRUCTION LIST.
07291  M00S06276.msm     +++|*
Line S00174 Modification History
M01 (Added by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
07292  M01S00174.283l840 +++|*         EXIT   (A) = 0.
07293  M01S00175.283l840 +++|*
07294  M00S06277.msm     +++|*         USES   T1, T2.
07295  M00S06278.msm     +++|
07296  M00S06279.msm     +++|
07297  M00S06280.msm     +++| EMF1     STD    T2          SET INSTRUCTION ADDRESS
07298  M00S06281.msm     +++|          LDN    PSNI        REPLACE INSTRUCTION WITH *PSN*
07299  M00S06282.msm     +++|          STI    T2
07300  M00S06283.msm     +++|          AOD    T1          ADVANCE LIST ADDRESS
07301  M00S06284.msm     +++| EMF2     LDI    T1
07302  M00S06285.msm     +++|          NJN    EMF1        LOOP TO END OF LIST
Line S00176 Modification History
M01 (Added by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
07303  M01S00176.283l840 +++| EMF3     LDN    0
07304  M00S06286.msm     +++|
07305  M00S06287.msm     +++| EMF      SUBR               ENTRY/EXIT
Line S06288 Modification History
M01 (Removed by) ns2768
Seq #  *Modification Id* Act 
----------------------------+
07306  M01S06288.ns2768  ---|          STD    T1          SET LIST ADDRESS
Line S00019 Modification History
M01 (Added by) ns2768
M02 (Removed by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
07307  M02S00019.283l840 ---| EMFA     UJN    EMFX        EXIT (STAND-ALONE SYSTEM)
Line S00177 Modification History
M01 (Added by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
07308  M01S00177.283l840 +++| EMFA     UJN    EMF3        EXIT (STAND-ALONE SYSTEM)
Line S00020 Modification History
M01 (Added by) ns2768
Seq #  *Modification Id* Act 
----------------------------+
07309  M01S00020.ns2768  +++|*         STD    T1          SET LIST ADDRESS (MULTI-MAINFRAME SYSTEM)
07310  M00S06289.msm     +++|          STM    MMFP        SET MMF PRESENT
07311  M00S06290.msm     +++|          UJN    EMF2        ENTER LOOP
07312  M00S06291.msm     +++|          SPACE  4,10
07313  M00S06292.msm     +++|
07314  M00S06293.msm     +++| CEI      HERE
07315  M00S06294.msm     +++|          SPACE  4,10
Line S06295 Modification History
M01 (Removed by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
07316  M01S06295.283l840 ---|*         TABLE OF INSTRUCTIONS TO BE PRESET WITH MACHINE MASK.
07317  M01S06296.283l840 ---|
07318  M01S06297.283l840 ---| TMMF     BSS    0
07319  M01S06298.283l840 ---|          QUAL   MMF
07320  M01S06299.283l840 ---| TMMF     HERE
07321  M01S06300.283l840 ---|          CON    0           TERMINATE TABLE
07322  M01S06301.283l840 ---|
07323  M00S06302.msm     +++|*         LIST OF *CMS* INSTRUCTIONS MODIFIED FOR MMF SYSTEM.
07324  M00S06303.msm     +++|
07325  M00S06304.msm     +++|          QUAL   CMS
07326  M00S06305.msm     +++| LCMS     BSS    0
07327  M00S06306.msm     +++| LCMS     HERE
Line S00178 Modification History
M01 (Added by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
07328  M01S00178.283l840 +++|          ERRZR  LCMS-*      TABLE EMPTY - REMOVE PRESET CODE
07329  M00S06307.msm     +++|          CON    0           TERMINATE LIST
07330  M00S06308.msm     +++|
07331  M00S06309.msm     +++|*         LIST OF *RMS* INSTRUCTIONS MODIFIED FOR MMF RECOVERY.
07332  M00S06310.msm     +++|
07333  M00S06311.msm     +++|          QUAL   RMS
07334  M00S06312.msm     +++| LRMS     BSS    0
07335  M00S06313.msm     +++| LRMS     HERE
Line S00179 Modification History
M01 (Added by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
07336  M01S00179.283l840 +++|          ERRZR  LRMS-*      TABLE EMPTY - REMOVE PRESET CODE
07337  M00S06314.msm     +++|          CON    0           TERMINATE LIST
07338  M00S06315.msm     +++|
07339  M00S06316.msm     +++|          QUAL
07340  M00S06317.msm     +++|          SPACE  4,10
Line S06318 Modification History
M01 (Removed by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
07341  M01S06318.272l774 ---|          OVERFLOW  O4DB     CHECK FOR OVERFLOW
07342  M01S06319.272l774 ---|          TTL  MSM/4DC - VALIDATE PF SYSTEM.
Line S00065 Modification History
M01 (Added by) 272l774
M02 (Removed by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
07343  M02S00065.283l840 ---|          OVERFLOW  O4DB,EPFW  CHECK FOR OVERFLOW
Line S00180 Modification History
M01 (Added by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
07344  M01S00180.283l840 +++|          OVERFLOW  ORDB,EPFW  CHECK FOR OVERFLOW
Line S00066 Modification History
M01 (Added by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
07345  M01S00066.272l774 +++|          TTL    MSM/4DC - VALIDATE PF SYSTEM.
07346  M00S06320.msm     +++|          TITLE
Line S06321 Modification History
M01 (Removed by) ns2552
Seq #  *Modification Id* Act 
----------------------------+
07347  M01S06321.ns2552  ---|          IDENT  4DC,RDCX
Line S00021 Modification History
M01 (Added by) ns2552
Seq #  *Modification Id* Act 
----------------------------+
07348  M01S00021.ns2552  +++|          IDENT  4DC,/RDC/RDCX
07349  M00S06322.msm     +++|*COMMENT  MSM - VALIDATE PF SYSTEM.
Line S06323 Modification History
M01 (Removed by) 281l803
Seq #  *Modification Id* Act 
----------------------------+
07350  M01S06323.281l803 ---|          COMMENT COPYRIGHT CONTROL DATA CORP. 1973.
Line S00006 Modification History
M01 (Added by) 281l803
Seq #  *Modification Id* Act 
----------------------------+
07351  M01S00006.281l803 +++|          COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
07352  M00S06324.msm     +++|          SPACE  4
07353  M00S06325.msm     +++|***              *VPF* VALIDATES THAT THE PERMANENT FILE SYSTEM
07354  M00S06326.msm     +++|*         CONTAINS NO DUPLICATE PACKNAMES, DEVICE NUMBERS OR USER
07355  M00S06327.msm     +++|*         MASKS WITHIN A FAMILY.  THE MST TABLES FOR ALL ACTIVE
07356  M00S06328.msm     +++|*         DEVICES ARE VERIFIED TO BE UNIQUE.
07357  M00S06329.msm     +++|          SPACE  4
07358  M00S06330.msm     +++|***       DAYFILE MESSAGES.
07359  M00S06331.msm     +++|*
07360  M00S06332.msm     +++|*         *EQXXX EQYYY CONFLICTING DN.* = TWO EST ORDINALS HAVE THE
07361  M00S06333.msm     +++|*         SAME FAMILY NAME AND DEVICE NUMBER, AND ONE DEVICE IS A
07362  M00S06334.msm     +++|*         SYSTEM DEVICE.  ACTION - REMOVE ONE OF THE DEVICES.
07363  M00S06335.msm     +++|*
07364  M00S06336.msm     +++|*         *EQXXX EQYYY CONFLICTING PN.* = TWO AUXILIARY DEVICES HAVE
07365  M00S06337.msm     +++|*         THE SAME PACKNAME.  ACTION - REMOVE ONE OF THE DEVICES.
07366  M00S06338.msm     +++|*
07367  M00S06339.msm     +++|*         *EQXXX EQYYY CONFLICTING UM.* = TWO EST ORDINALS IN THE SAME
07368  M00S06340.msm     +++|*         FAMILY HAVE ONE OR MORE DUPLICATED BITS IN THE *DM* MASK, AND
07369  M00S06341.msm     +++|*         ONE DEVICE IS A SYSTEM DEVICE.  ACTION - REMOVE ONE OF THE
07370  M00S06342.msm     +++|*         DEVICES.
07371  M00S06343.msm     +++|          SPACE  4
07372  M00S06344.msm     +++|**        ENTRY CONDITIONS.
07373  M00S06345.msm     +++|*
07374  M00S06346.msm     +++|*         (RS) = RECOVERY STATUS.
Line S06347 Modification History
M01 (Removed by) ns2552
Seq #  *Modification Id* Act 
----------------------------+
07375  M01S06347.ns2552  ---|*         (P1) = 0 IF *RMS* CALL.
07376  M01S06348.ns2552  ---|          SPACE  4,10
07377  M01S06349.ns2552  ---|**        EXIT CONDITIONS.
07378  M01S06350.ns2552  ---|*
07379  M01S06351.ns2552  ---|*         (A) = 0 IF NO ERROR.
07380  M01S06352.ns2552  ---|*         (A) .GT. 0 IF ERROR ON SYSTEM DEVICE.
07381  M01S06353.ns2552  ---|*         (A) .LT. IF ERROR ENCOUNTERED.
07382  M01S06354.ns2552  ---| RDC      SPACE  4,10
Line S00022 Modification History
M01 (Added by) ns2552
Seq #  *Modification Id* Act 
----------------------------+
07383  M01S00022.ns2552  +++|          TITLE  MAIN ROUTINE.
07384  M01S00023.ns2552  +++|          SPACE  4,10
07385  M01S00024.ns2552  +++|          QUAL   RDC
Line S06355 Modification History
M01 (Removed by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
07386  M01S06355.283l840 ---|          ORG    OSOV
Line S00181 Modification History
M01 (Added by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
07387  M01S00181.283l840 +++|          ORG    ORDC
07388  M00S06356.msm     +++|
07389  M00S06357.msm     +++| RDC      SUBR               ENTRY/EXIT
Line S06358 Modification History
M01 (Removed by) ns2552
Seq #  *Modification Id* Act 
----------------------------+
07390  M01S06358.ns2552  ---|          LDD    RS
07391  M01S06359.ns2552  ---|          ADD    P1
07392  M01S06360.ns2552  ---|          NJN    RDCX        IF NOT LEVEL 0 DEADSTART
07393  M01S06361.ns2552  ---|          RJM    SDF         FETCH DEFAULT FAMILY NAME
07394  M01S06362.ns2552  ---|          LDN    0           ENTER DEFAULT FAMILY IN FOT
07395  M01S06363.ns2552  ---|          RJM    GFO
07396  M01S06364.ns2552  ---|          UJN    RDCX        RETURN
Line S00025 Modification History
M01 (Added by) ns2552
Seq #  *Modification Id* Act 
----------------------------+
07397  M01S00025.ns2552  +++|          LDD    IR
07398  M01S00026.ns2552  +++|          LMC    2RRM
07399  M01S00027.ns2552  +++|          ZJN    RDC3        IF *RMS* CALL
07400  M01S00028.ns2552  +++|
07401  M01S00029.ns2552  +++|*         VERIFY RUNNING SYSTEM.
07402  M01S00030.ns2552  +++|
07403  M01S00031.ns2552  +++| RDC1     RJM    VPF         VERIFY PF SYSTEM
07404  M01S00032.ns2552  +++|          ZJN    RDCX        IF NO ERRORS
07405  M01S00033.ns2552  +++|          LDD    EF
07406  M01S00034.ns2552  +++|          NJN    RDC1        IF EITHER DEVICE SET UNAVAILABLE
07407  M01S00035.ns2552  +++|          LDD    P1
07408  M01S00036.ns2552  +++|          STD    T5
07409  M01S00037.ns2552  +++|          LDD    EC          SET ERROR STATUS ON FIRST DEVICE
07410  M01S00038.ns2552  +++|          RJM    SES
07411  M01S00039.ns2552  +++|          LDD    P2
07412  M01S00040.ns2552  +++|          STD    T5
07413  M01S00041.ns2552  +++|          LDD    EC          SET ERROR STATUS FOR SECOND DEVICE
07414  M01S00042.ns2552  +++|          RJM    SES
07415  M01S00043.ns2552  +++| RDC2     UJP    RDCX        RETURN
07416  M01S00044.ns2552  +++|
07417  M01S00045.ns2552  +++|*         VERIFY DEADSTART SYSTEM.
07418  M01S00046.ns2552  +++|
07419  M01S00047.ns2552  +++| RDC3     LDD    RS
07420  M01S00048.ns2552  +++|          NJN    RDC4        IF RECOVERY DEADSTART
07421  M01S00049.ns2552  +++|          RJM    SDF         SET DEFAULT FAMILY NAME
07422  M01S00050.ns2552  +++|          LDN    0
07423  M01S00051.ns2552  +++|          RJM    GFO         ENTER DEFAULT FAMILY IN FOT
07424  M01S00052.ns2552  +++| RDC4     LDD    RC
07425  M01S00053.ns2552  +++|          ZJN    RDC6        IF NO EQUIPMENT RECOVERED
07426  M01S00054.ns2552  +++| RDC5     RJM    VPF         VERIFY PF SYSTEM FOR CONFLICTS
07427  M01S00055.ns2552  +++|          ZJN    RDC6        IF NO CONFLICTS
07428  M01S00056.ns2552  +++|          MJN    RDC5        IF ERROR ON NON-SYSTEM DEVICE
07429  M01S00057.ns2552  +++|          LJM    /RMS/HNG    DISPLAY ERROR AND HANG
07430  M01S00058.ns2552  +++|
07431  M01S00059.ns2552  +++|*         RESET DEFAULT FAMILY EQUIPMENT TO FAMILY MASTER EQUIPMENT.
07432  M01S00060.ns2552  +++|
07433  M01S00061.ns2552  +++| RDC6     RJM    SDF         SET DEFAULT FAMILY NAME
07434  M01S00062.ns2552  +++|          RJM    SFE         SET FAMILY EQUIPMENT
07435  M01S00063.ns2552  +++|          NJN    RDC2        IF MASTER EQUIPMENT NOT FOUND
07436  M01S00064.ns2552  +++|          LDD    T2
07437  M01S00065.ns2552  +++|          STD    CN+3
07438  M01S00066.ns2552  +++|          LDC    PFNL        SET FAMILY EST ORDINAL IN *PFNL*
07439  M01S00067.ns2552  +++|          CWD    CN
07440  M01S00068.ns2552  +++|          UJN    RDC2        RETURN
07441  M01S00069.ns2552  +++|          TITLE  PRIMARY SUBROUTINES.
07442  M00S06365.msm     +++| SDF      SPACE  4,10
07443  M00S06366.msm     +++|**        SDF - SET DEFAULT FAMILY NAME.
07444  M00S06367.msm     +++|*
07445  M00S06368.msm     +++|*         EXIT   (CN - CN+4) = *PFNL* WORD.
07446  M00S06369.msm     +++|*                (FN - FN+4) = *PFGL* WORD FROM DEFAULT FAMILY MST.
07447  M00S06370.msm     +++|*
07448  M00S06371.msm     +++|*         USES   CN - CN+4, FN - FN+4.
07449  M00S06372.msm     +++|*
07450  M00S06373.msm     +++|*         MACROS SFA.
07451  M00S06374.msm     +++|
07452  M00S06375.msm     +++|
07453  M00S06376.msm     +++| SDF      SUBR               ENTRY/EXIT
07454  M00S06377.msm     +++|          LDC    PFNL
07455  M00S06378.msm     +++|          CRD    CN
07456  M00S06379.msm     +++|          SFA    EST,CN+3    READ FAMILY EST ENTRY
07457  M00S06380.msm     +++|          ADK    EQDE
07458  M00S06381.msm     +++|          CRD    FN
07459  M00S06382.msm     +++|          LDD    FN+4        READ FAMILY NAME
07460  M00S06383.msm     +++|          SHN    3
07461  M00S06384.msm     +++|          ADN    PFGL
07462  M00S06385.msm     +++|          CRD    FN
07463  M00S06386.msm     +++|          UJN    SDFX        RETURN
Line S06387 Modification History
M01 (Removed by) ns2552
Seq #  *Modification Id* Act 
----------------------------+
07464  M01S06387.ns2552  ---|          SPACE  4,10
07465  M01S06388.ns2552  ---|**        COMMON DECKS.
07466  M01S06389.ns2552  ---|
07467  M01S06390.ns2552  ---|
07468  M01S06391.ns2552  ---|*CALL     COMPSFE
07469  M01S06392.ns2552  ---| GFO$     EQU    0           DEFINE FOT ACCESS ROUTINE
07470  M01S06393.ns2552  ---|*CALL     COMPUFT
07471  M01S06394.ns2552  ---|          TITLE  MAIN LOOP.
07472  M01S06395.ns2552  ---|          QUAL   4DC
07473  M01S06396.ns2552  ---|**        VPF - MAIN ROUTINE.
Line S00070 Modification History
M01 (Added by) ns2552
Seq #  *Modification Id* Act 
----------------------------+
07474  M01S00070.ns2552  +++| VPF      SPACE  4,10
07475  M01S00071.ns2552  +++|**        VPF - VERIFY PF SYSTEM FOR CONFLICTS IN -
07476  M01S00072.ns2552  +++|*                DEVICE NUMBERS.
07477  M01S00073.ns2552  +++|*                DEVICE MASKS.
07478  M01S00074.ns2552  +++|*                PACKNAMES.
07479  M01S00075.ns2552  +++|*
07480  M01S00076.ns2552  +++|*         USES   EF, EQ, T2, T5, T7, CM - CM+4, FN - FN+7, FS - FS+4.
07481  M01S00077.ns2552  +++|*
07482  M01S00078.ns2552  +++|*         CALLS  CFN, CFR, ERR, GNE, LRA.
07483  M01S00079.ns2552  +++|*
07484  M01S00080.ns2552  +++|*         MACROS SFA.
07485  M00S06397.msm     +++|
07486  M00S06398.msm     +++|
07487  M00S06399.msm     +++| VPF      SUBR               ENTRY/EXIT
07488  M00S06400.msm     +++|          LDN    0           CLEAR FAMILY COUNT
07489  M00S06401.msm     +++|          STD    EF
07490  M00S06402.msm     +++|          LDN    NOPE-1      INITIALIZE EST ORDINAL FOR SEARCH
07491  M00S06403.msm     +++|          STD    EQ
07492  M00S06404.msm     +++| VPF1     AOD    EQ          READ EST ENTRY
07493  M00S06405.msm     +++|          STD    T5
07494  M00S06406.msm     +++|          LMD    LO
07495  M00S06407.msm     +++|          ZJN    VPFX        IF END OF EST
07496  M00S06408.msm     +++|          RJM    LRA         LOAD REFERENCE ADDRESS
07497  M00S06409.msm     +++|          ADD    EQ
07498  M00S06410.msm     +++|          CRD    RD
07499  M00S06411.msm     +++|          SFA    EST,EQ      GET EST ENTRY
07500  M00S06412.msm     +++|          ADK    EQDE
07501  M00S06413.msm     +++|          CRD    FN
07502  M00S06414.msm     +++|          LDD    RE
07503  M00S06415.msm     +++|          ZJN    VPF1        IF DEVICE NOT BEING RECOVERED
07504  M00S06416.msm     +++|          LPC    300
07505  M00S06417.msm     +++|          LMD    HN
07506  M00S06418.msm     +++|          ZJN    VPF1        IF UNAVAILABLE DEVICE
07507  M00S06419.msm     +++|          LDD    FN+4
07508  M00S06420.msm     +++|          SHN    3
07509  M00S06421.msm     +++|          ADN    PFGL        READ FAMILY/PACK NAME
07510  M00S06422.msm     +++|          CRD    FN
07511  M00S06423.msm     +++|          ADN    STLL-PFGL   GET DEVICE STATUS
07512  M00S06424.msm     +++|          CRD    T7
07513  M00S06425.msm     +++|          SBN    STLL-PUGL   READ DEVICE MASK
07514  M00S06426.msm     +++|          CRD    CM
07515  M00S06427.msm     +++|          ADN    MDGL-PUGL   CHECK AUXILIARY STATUS
07516  M00S06428.msm     +++|          CRD    FS
07517  M00S06429.msm     +++|          LDD    T7          CHECK DEVICE STATUS
07518  M00S06430.msm     +++|          LPC    MLIAL+MLIHD+MLIFD+MLUNL
07519  M00S06431.msm     +++|          NJN    VPF1        IF UNLOAD/INITIALIZE PENDING
07520  M00S06432.msm     +++|          LDD    FS
07521  M00S06433.msm     +++|          SHN    -12
07522  M00S06434.msm     +++|          LPN    1
07523  M00S06435.msm     +++|          STD    T2
07524  M00S06436.msm     +++| VPF2     RJM    GNE         GET NEXT ENTRY
07525  M00S06437.msm     +++|          ZJN    VPF7        IF NOT FOUND
07526  M00S06438.msm     +++|          RJM    CFN         COMPARE DEVICE NAMES
07527  M00S06439.msm     +++|          NJN    VPF2        IF NOT SAME FAMILY
07528  M00S06440.msm     +++|          LDD    T2
07529  M00S06441.msm     +++|          LMN    1
07530  M00S06442.msm     +++|          ZJN    VPF3        IF AUXILIARY DEVICE
07531  M00S06443.msm     +++|          LDD    T7
07532  M00S06444.msm     +++|          LMN    1
07533  M00S06445.msm     +++|          ZJN    VPF3        IF NEW DEVICE IS AN AUXILIARY DEVICE
07534  M00S06446.msm     +++|
07535  M00S06447.msm     +++|*         CHECK DEVICE NUMBERS.
07536  M00S06448.msm     +++|
07537  M00S06449.msm     +++|          LDD    FS+3
07538  M00S06450.msm     +++|          LMD    FN+3
07539  M00S06451.msm     +++|          ZJN    VPF4        IF SAME DEVICE NUMBERS
07540  M00S06452.msm     +++|
07541  M00S06453.msm     +++|*         CHECK USER MASKS.
07542  M00S06454.msm     +++|
07543  M00S06455.msm     +++|          LDD    CN+4
07544  M00S06456.msm     +++|          STM    VPFA
07545  M00S06457.msm     +++|          LDD    CM+4
07546  M00S06458.msm     +++|          LPC    *
07547  M00S06459.msm     +++| VPFA     EQU    *-1
07548  M00S06460.msm     +++|          LPC    377
07549  M00S06461.msm     +++|          ZJN    VPF2        IF NOT DUPLICATE MASKS
07550  M00S06462.msm     +++|          LDN    STUM-STPN   SET USER MASK ERROR
07551  M00S06463.msm     +++| VPF3     ADN    STPN-STDN   SET PACKNAME ERROR
07552  M00S06464.msm     +++| VPF4     ADN    STDN        SET DEVICE NUMBER ERROR
07553  M00S06465.msm     +++|          LJM    ERR
07554  M00S06466.msm     +++|
07555  M00S06467.msm     +++| VPF7     LDD    T2
07556  M00S06468.msm     +++|          NJN    VPF8        IF AUXILIARY DEVICE
07557  M00S06469.msm     +++|          RJM    CFR         CHECK FAMILY DEVICE RECOVERED
07558  M00S06470.msm     +++| VPF8     LJM    VPF1        LOOP FOR NEXT EQUIPMENT
07559  M00S06471.msm     +++|          TITLE  SUBROUTINES.
07560  M00S06472.msm     +++| CFN      SPACE  4
07561  M00S06473.msm     +++|**        CFN - COMPARE FAMILY/PACK NAMES.
07562  M00S06474.msm     +++|*
07563  M00S06475.msm     +++|*         ENTRY  (FN - FN+4) = FAMILY/PACK NAME1.
07564  M00S06476.msm     +++|*                (FS - FS+4) = FAMILY/PACK NAME2.
07565  M00S06477.msm     +++|*
07566  M00S06478.msm     +++|*         EXIT   (A) = 0 IF NAMES EQUAL.
07567  M00S06479.msm     +++|
07568  M00S06480.msm     +++|
07569  M00S06481.msm     +++| CFN      SUBR               ENTRY/EXIT
07570  M00S06482.msm     +++|          LDD    FN
07571  M00S06483.msm     +++|          LMD    FS
07572  M00S06484.msm     +++|          NJN    CFNX        IF NOT EQUAL
07573  M00S06485.msm     +++|          LDD    FN+1
07574  M00S06486.msm     +++|          LMD    FS+1
07575  M00S06487.msm     +++|          NJN    CFNX        IF NOT EQUAL
07576  M00S06488.msm     +++|          LDD    FN+2
07577  M00S06489.msm     +++|          LMD    FS+2
07578  M00S06490.msm     +++|          NJN    CFNX        IF NOT EQUAL
07579  M00S06491.msm     +++|          LDD    FN+3
07580  M00S06492.msm     +++|          LMD    FS+3
07581  M00S06493.msm     +++|          SCN    77
07582  M00S06494.msm     +++|          UJN    CFNX        EXIT
07583  M00S06495.msm     +++| CFR      SPACE  4,10
07584  M00S06496.msm     +++|**        CFR - CHECK FAMILY DEVICE RECOVERED.
07585  M00S06497.msm     +++|*
07586  M00S06498.msm     +++|*         ENTRY  (EQ) = EST ORDINAL.
07587  M00S06499.msm     +++|*
07588  M00S06500.msm     +++|*         ERROR  TO *ERR* IF FOT FULL.
Line S06501 Modification History
M01 (Removed by) ns2552
Seq #  *Modification Id* Act 
----------------------------+
07589  M01S06501.ns2552  ---|*                TO */CMS/VPFX* IF ERROR FLAG SET.
Line S00081 Modification History
M01 (Added by) ns2552
Seq #  *Modification Id* Act 
----------------------------+
07590  M01S00081.ns2552  +++|*                TO *RDCX* IF ERROR FLAG SET.
07591  M00S06502.msm     +++|
07592  M00S06503.msm     +++|
07593  M00S06504.msm     +++| CFR      SUBR               ENTRY/EXIT
07594  M00S06505.msm     +++|          LDD    RS
07595  M00S06506.msm     +++|          NJN    CFRX        IF RECOVERY DEADSTART
07596  M00S06507.msm     +++|          LDD    RE
07597  M00S06508.msm     +++|          SHN    21-7
07598  M00S06509.msm     +++|          PJN    CFRX        IF DEVICE NOT RECOVERED
07599  M00S06510.msm     +++|          LDN    0           SEARCH FOR/CREATE FOT ENTRY
07600  M00S06511.msm     +++|          RJM    GFO
07601  M00S06512.msm     +++|          SCN    1
07602  M00S06513.msm     +++|          ZJN    CFRX        IF ENTRY FOUND/CREATED
07603  M00S06514.msm     +++|          LPC    400000
07604  M00S06515.msm     +++|          LMN    STFF
07605  M00S06516.msm     +++|          PJN    ERR         IF FOT FULL
Line S06517 Modification History
M01 (Removed by) ns2552
Seq #  *Modification Id* Act 
----------------------------+
07606  M01S06517.ns2552  ---|          LJM    /CMS/VPFX   EXIT
Line S00082 Modification History
M01 (Added by) ns2552
Seq #  *Modification Id* Act 
----------------------------+
07607  M01S00082.ns2552  +++|          LJM    RDCX        EXIT
07608  M00S06518.msm     +++| ERR      SPACE  4
07609  M00S06519.msm     +++|**        ERR - PROCESS ERROR CONDITIONS.
07610  M00S06520.msm     +++|*
07611  M00S06521.msm     +++|*         ENTRY  (A) = ERROR STATUS.
07612  M00S06522.msm     +++|*                (EQ) = EST ORDINAL OF FIRST DEVICE.
07613  M00S06523.msm     +++|*                (T5) = EST ORDINAL OF SECOND DEVICE.
07614  M00S06524.msm     +++|*
07615  M00S06525.msm     +++|*         USES   FN - FN+4, P1, P2, T1, T5, EC, EQ.
07616  M00S06526.msm     +++|*
07617  M00S06527.msm     +++|*         CALLS  C2D, IES, LRA.
07618  M00S06528.msm     +++|*
07619  M00S06529.msm     +++|*         MACROS SFA.
07620  M00S06530.msm     +++|
07621  M00S06531.msm     +++|
07622  M00S06532.msm     +++| ERR      STD    EC          SAVE ERROR CODE
07623  M00S06533.msm     +++|          LDD    T5          SAVE EST ORDINAL OF SECOND DEVICE
07624  M00S06534.msm     +++|          STD    P2
07625  M00S06535.msm     +++|          LDD    EQ          SAVE EST ORDINAL OF FIRST DEVICE
07626  M00S06536.msm     +++|          STD    P1
07627  M00S06537.msm     +++|          STD    T5          PROCESS FIRST EST ORDINAL
07628  M00S06538.msm     +++|          RJM    LRA         LOAD REFERENCE ADDRESS
07629  M00S06539.msm     +++|          ADD    EQ
07630  M00S06540.msm     +++|          CRD    RD
07631  M00S06541.msm     +++|          SFA    EST,T5
07632  M00S06542.msm     +++|          ADK    EQDE
07633  M00S06543.msm     +++|          CRD    FN
07634  M00S06544.msm     +++|          LDD    RE
07635  M00S06545.msm     +++|          SHN    -6
07636  M00S06546.msm     +++|          LPN    62
07637  M00S06547.msm     +++|          LMN    62
07638  M00S06548.msm     +++|          ZJN    ERR3        IF RECOVERED SYSTEM DEVICE
07639  M00S06549.msm     +++|          SCN    20
07640  M00S06550.msm     +++|          NJN    ERR1        IF EQUIPMENT NOT RECOVERED
07641  M00S06551.msm     +++|          AOD    EF          FLAG *IES* CALL
07642  M00S06552.msm     +++|          RJM    IES         INITIALIZE EQUIPMENT STATUS
07643  M00S06553.msm     +++| ERR1     LDD    P2          PROCESS SECOND EQUIPMENT
07644  M00S06554.msm     +++|          STD    EQ
07645  M00S06555.msm     +++|          STD    T5
07646  M00S06556.msm     +++|          RJM    LRA         LOAD REFERENCE ADDRESS
07647  M00S06557.msm     +++|          ADD    EQ
07648  M00S06558.msm     +++|          CRD    RD
07649  M00S06559.msm     +++|          SFA    EST,T5      READ EST ENTRY
07650  M00S06560.msm     +++|          ADK    EQDE
07651  M00S06561.msm     +++|          CRD    FN
07652  M00S06562.msm     +++|          LDD    RE
07653  M00S06563.msm     +++|          SHN    -6
07654  M00S06564.msm     +++|          LPN    62
07655  M00S06565.msm     +++|          LMN    62
07656  M00S06566.msm     +++|          ZJN    ERR3        IF RECOVERED SYSTEM DEVICE
07657  M00S06567.msm     +++|          SCN    20
07658  M00S06568.msm     +++|          NJN    ERR2        IF EQUIPMENT NOT RECOVERED
07659  M00S06569.msm     +++|          AOD    EF          FLAG *IES* CALL
07660  M00S06570.msm     +++|          RJM    IES         INITIALIZE EQUIPMENT STATUS
07661  M00S06571.msm     +++| ERR2     LCN    0           SET NON SYSTEM DEVICE ERROR
07662  M00S06572.msm     +++|          LJM    VPFX
07663  M00S06573.msm     +++|
07664  M00S06574.msm     +++|*         PROCESS ERROR ON SYSTEM DEVICE.
07665  M00S06575.msm     +++|
07666  M00S06576.msm     +++| ERR3     SFA    EST,P1
07667  M00S06577.msm     +++|          ADK    EQDE
07668  M00S06578.msm     +++|          CRD    FN
07669  M00S06579.msm     +++|          LDD    FN+3        SET DEVICE TYPE
07670  M00S06580.msm     +++|          STM    ERRA
07671  M00S06581.msm     +++|          LDD    P1          CONVERT UPPER TWO DIGITS OF FIRST DEVICE
07672  M00S06582.msm     +++|          SHN    -3
07673  M00S06583.msm     +++|          RJM    C2D
07674  M00S06584.msm     +++|          STM    ERRA+1
07675  M00S06585.msm     +++|          LDD    P1          CONVERT LOWER DIGIT OF FIRST DEVICE
07676  M00S06586.msm     +++|          LPN    7
07677  M00S06587.msm     +++|          SHN    6
07678  M00S06588.msm     +++|          ADC    2R0
07679  M00S06589.msm     +++|          STM    ERRA+2
07680  M00S06590.msm     +++|          SFA    EST,P2
07681  M00S06591.msm     +++|          ADK    EQDE
07682  M00S06592.msm     +++|          CRD    FN
07683  M00S06593.msm     +++|          LDD    FN+3        SET DEVICE TYPE
07684  M00S06594.msm     +++|          STM    ERRA+3
07685  M00S06595.msm     +++|          LDD    P2          CONVERT UPPER TWO DIGITS OF SECOND DEVICE
07686  M00S06596.msm     +++|          SHN    -3
07687  M00S06597.msm     +++|          RJM    C2D
07688  M00S06598.msm     +++|          STM    ERRA+4
07689  M00S06599.msm     +++|          LDD    P2          CONVERT LOWER DIGIT OF SECOND DEVICE
07690  M00S06600.msm     +++|          LPN    7
07691  M00S06601.msm     +++|          SHN    6
07692  M00S06602.msm     +++|          ADC    2R0
07693  M00S06603.msm     +++|          STM    ERRA+5
07694  M00S06604.msm     +++|          LDD    EC          SET PROPER ERROR
07695  M00S06605.msm     +++|          SBN    STFF
07696  M00S06606.msm     +++|          ZJN    ERR4        IF FOT FULL
07697  M00S06607.msm     +++|          ADN    STFF-STDN
07698  M00S06608.msm     +++|          STD    T1
07699  M00S06609.msm     +++|          LDM    ERRC,T1
07700  M00S06610.msm     +++|          STM    ERRB
07701  M00S06611.msm     +++|          LCN    ERRD-ERRA
07702  M00S06612.msm     +++| ERR4     ADC    ERRD
07703  M00S06613.msm     +++|          LJM    VPFX
07704  M00S06614.msm     +++|
07705  M00S06615.msm     +++|
07706  M00S06616.msm     +++| ERRA     DATA   H*EQXXX EQYYY CONFLICTING *
07707  M00S06617.msm     +++| ERRB     DATA   C*ET. *
07708  M00S06618.msm     +++| ERRC     VFD    12/0LDN
07709  M00S06619.msm     +++|          VFD    12/0LPN
07710  M00S06620.msm     +++|          VFD    12/0LUM
07711  M00S06621.msm     +++| ERRD     DATA   C*FOT FULL.*
07712  M00S06622.msm     +++| GNE      SPACE  4
07713  M00S06623.msm     +++|**        GNE - GET NEXT ENTRY.
07714  M00S06624.msm     +++|*
07715  M00S06625.msm     +++|*         ENTRY  (T5) = ADDRESS OF LAST ENTRY CHECKED.
07716  M00S06626.msm     +++|*
07717  M00S06627.msm     +++|*         EXIT   (FS - FS+4) = PF DESCRIPTION WORD.
07718  M00S06628.msm     +++|*                (CN+4) = DEVICE MASK.
07719  M00S06629.msm     +++|*                (A) = 0 IF ENTRY NOT FOUND.
07720  M00S06630.msm     +++|*                (T7) = 1, IF AUXILIARY DEVICE.
07721  M00S06631.msm     +++|*
07722  M00S06632.msm     +++|*         USES   T1, T5, T7, CM - CM+3, FS - FS+4.
07723  M00S06633.msm     +++|*
07724  M00S06634.msm     +++|*         CALLS  LRA.
07725  M00S06635.msm     +++|
07726  M00S06636.msm     +++|
07727  M00S06637.msm     +++| GNE      SUBR               ENTRY/EXIT
07728  M00S06638.msm     +++| GNE1     AOD    T5
07729  M00S06639.msm     +++|          LMD    LO
07730  M00S06640.msm     +++|          ZJN    GNEX        IF END OF MASS STORAGE DEVICES
07731  M00S06641.msm     +++|          RJM    LRA         LOAD REFERENCE ADDRESS
07732  M00S06642.msm     +++|          ADD    T5
07733  M00S06643.msm     +++|          CRD    T7
07734  M00S06644.msm     +++|          SFA    EST,T5      READ NEXT EST ENTRY
07735  M00S06645.msm     +++|          ADK    EQDE
07736  M00S06646.msm     +++|          CRD    FS          READ NEXT ENTRY
07737  M00S06647.msm     +++|*         LDD    RE          CHECK DEVICE CHARACTERISTICS
07738  M00S06648.msm     +++|          LDD    CM+2
07739  M00S06649.msm     +++|          SHN    21-13
07740  M00S06650.msm     +++|          PJN    GNE1        IF NOT MASS STORAGE
07741  M00S06651.msm     +++|          SHN    21-6-21+13
07742  M00S06652.msm     +++|          PJN    GNE2        IF AVAILABLE
07743  M00S06653.msm     +++|          SHN    21-7-21+6+22
07744  M00S06654.msm     +++|          PJN    GNE1        IF DEVICE NOT BEING RECOVERED
07745  M00S06655.msm     +++| GNE2     LDD    FS+4        READ MST
07746  M00S06656.msm     +++|          STD    T1          SAVE MST ADDRESS
07747  M00S06657.msm     +++|          SHN    3
07748  M00S06658.msm     +++|          ADN    MDGL
07749  M00S06659.msm     +++|          CRD    FS
07750  M00S06660.msm     +++|          ADN    STLL-MDGL   GET DEVICE STATUS
07751  M00S06661.msm     +++|          CRD    T7
07752  M00S06662.msm     +++|          LDD    T7          CHECK INITIALIZE REQUESTED
07753  M00S06663.msm     +++|          LPC    MLIAL+MLIHD+MLIFD
07754  M00S06664.msm     +++|          NJN    GNE1        IF FULL INITIALIZE PENDING
07755  M00S06665.msm     +++|          LDD    FS
07756  M00S06666.msm     +++|          SHN    -12
07757  M00S06667.msm     +++|          LPN    1
07758  M00S06668.msm     +++|          STD    T7
07759  M00S06669.msm     +++|          LDD    T1          GET FAMILY NAME
07760  M00S06670.msm     +++|          SHN    3
07761  M00S06671.msm     +++|          ADN    PFGL
07762  M00S06672.msm     +++|          CRD    FS
07763  M00S06673.msm     +++|          ADN    PUGL-PFGL   READ DEVICE MASK
07764  M00S06674.msm     +++|          CRD    CN
07765  M00S06675.msm     +++|          LJM    GNEX        RETURN
07766  M00S06676.msm     +++|          SPACE  4,10
07767  M00S06677.msm     +++|**        COMMON DECKS.
07768  M00S06678.msm     +++|
07769  M00S06679.msm     +++|
07770  M00S06680.msm     +++|*CALL     COMPSFE
Line S00083 Modification History
M01 (Added by) ns2552
Seq #  *Modification Id* Act 
----------------------------+
07771  M01S00083.ns2552  +++| GFO$     EQU    0           DEFINE FOT ACCESS ROUTINE
07772  M01S00084.ns2552  +++|*CALL     COMPUFT
Line S06681 Modification History
M01 (Removed by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
07773  M01S06681.272l774 ---|          SPACE  4
07774  M01S06682.272l774 ---|          OVERFLOW  OSOV     CHECK FOR OVERFLOW
Line S00067 Modification History
M01 (Added by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
07775  M01S00067.272l774 +++|          SPACE  4,10
Line S00068 Modification History
M01 (Added by) 272l774
M02 (Removed by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
07776  M02S00068.283l840 ---|          OVERFLOW  OSOV,EPFW  CHECK FOR OVERFLOW
Line S00182 Modification History
M01 (Added by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
07777  M01S00182.283l840 +++|          OVERFLOW  ORDC,EPFW  CHECK FOR OVERFLOW
Line S06683 Modification History
M01 (Removed by) ns2552
Seq #  *Modification Id* Act 
----------------------------+
07778  M01S06683.ns2552  ---|
07779  M01S06684.ns2552  ---|          QUAL
07780  M01S06685.ns2552  ---|
07781  M01S06686.ns2552  ---| VMS      EQU    /4DC/VPF
07782  M00S06687.msm     +++|          TTL    MSM/4DD - DEVICE VERIFICATION ROUTINES.
07783  M00S06688.msm     +++|          TITLE
07784  M00S06689.msm     +++|          IDENT  4DD,/RDD/RDDX
07785  M00S06690.msm     +++|*COMMENT  MSM - DEVICE VERIFICATION ROUTINES.
Line S06691 Modification History
M01 (Removed by) 281l803
Seq #  *Modification Id* Act 
----------------------------+
07786  M01S06691.281l803 ---|          COMMENT COPYRIGHT CONTROL DATA CORP. 1981.
Line S00007 Modification History
M01 (Added by) 281l803
Seq #  *Modification Id* Act 
----------------------------+
07787  M01S00007.281l803 +++|          COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
07788  M00S06692.msm     +++|
07789  M00S06693.msm     +++|
07790  M00S06694.msm     +++|***              *4DD* CONTAINS LABEL VERIFICATION ROUTINES.
07791  M00S06695.msm     +++|
07792  M00S06696.msm     +++|
07793  M00S06697.msm     +++|          QUAL   RDD
Line S06698 Modification History
M01 (Removed by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
07794  M01S06698.283l840 ---|          ORG    OSOV
Line S00183 Modification History
M01 (Added by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
07795  M01S00183.283l840 +++|          ORG    ORDD
07796  M00S06699.msm     +++|
07797  M00S06700.msm     +++| RDD      SUBR               ENTRY/EXIT
07798  M00S06701.msm     +++|          LJM    POV         PROCESS OVERLAY PRESET
Line S06702 Modification History
M01 (Removed by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
07799  M01S06702.283l840 ---| CTD      TITLE  COPY MST/TRT TO DISK.
07800  M01S06703.283l840 ---| CTD      SPACE  4,10
07801  M01S06704.283l840 ---|**        CTD - COPY TABLES TO DISK.
07802  M01S06705.283l840 ---|*
07803  M01S06706.283l840 ---|*         ENTRY  (FN - FN+4) = EST ENTRY.
Line S06707 Modification History
M01 (Removed by) ns2547
M02 (Removed by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
07804  M02S06707.283l840 ---|*                (A) = 0 TO ENSURE REWRITE OF RECOVERY TABLES
07805  M02S06708.283l840 ---|*                UPON RETURN TO *MRL*.
Line S00267 Modification History
M01 (Added by) ns2547
M02 (Removed by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
07806  M02S00267.283l840 ---|*
07807  M02S00268.283l840 ---|*         EXIT   (A) .GE. 0.
Line S06709 Modification History
M01 (Removed by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
07808  M01S06709.283l840 ---|*
07809  M01S06710.283l840 ---|*         USES   P1, T3, T6, T7, CM - CM+4, CN - CN+4.
07810  M01S06711.283l840 ---|*
07811  M01S06712.283l840 ---|*         CALLS  CLC, PTA, RDS, STA, WDS.
07812  M01S06713.283l840 ---|*
07813  M01S06714.283l840 ---|*         MACROS CMSTF, ENDMS, MONITOR, SETMS.
07814  M01S06715.283l840 ---|
07815  M01S06716.283l840 ---|
07816  M01S06717.283l840 ---| CTD5     LDD    RE          CHECK ACCESS STATUS
07817  M01S06718.283l840 ---|          LPC    1002
07818  M01S06719.283l840 ---|          LMC    1002
07819  M01S06720.283l840 ---| CTD6     NJN    CTDX        IF NOT SHARED DEVICE ACCESSED PREVIOUSLY
07820  M01S06721.283l840 ---|          LDD    T5
07821  M01S06722.283l840 ---|          STD    CM+1
Line S06723 Modification History
M01 (Removed by) ns2547
M02 (Removed by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
07822  M02S06723.283l840 ---|          LDN    UTRS        GET CURRENT COPY OF TRT
Line S00269 Modification History
M01 (Added by) ns2547
M02 (Removed by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
07823  M02S00269.283l840 ---|          LDN    UITS        GET CURRENT COPY OF TRT / UPDATE MRT
Line S06724 Modification History
M01 (Removed by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
07824  M01S06724.283l840 ---|          STD    CM+3
07825  M01S06725.283l840 ---|          MONITOR STBM
07826  M01S06726.283l840 ---|
07827  M01S06727.283l840 ---| CTD      SUBR               ENTRY/EXIT
07828  M01S06728.283l840 ---|          RJM    PTA         PRESET FWA OF TRT
07829  M01S06729.283l840 ---|          CMSTF  LPTU        ENABLE TRT UPDATE BY *1RU*
07830  M01S06730.283l840 ---|*         LDN    0
07831  M01S06731.283l840 ---|          STD    T7
07832  M01S06732.283l840 ---|          LDD    FN
07833  M01S06733.283l840 ---|          SHN    21-4
07834  M01S06734.283l840 ---|          PJN    CTD5        IF NOT INDEPENDENT SHARED DEVICE
07835  M01S06735.283l840 ---|          LDD    FN+4
07836  M01S06736.283l840 ---|          SHN    3
07837  M01S06737.283l840 ---|          ADN    ALGL        FETCH ALLOCATION WORD FROM MST
07838  M01S06738.283l840 ---|          CRD    CM
07839  M01S06739.283l840 ---|          LDD    CM+1        SET LABEL TRACK
07840  M01S06740.283l840 ---|          STD    T6
07841  M01S06741.283l840 ---|          SETMS  IO,(DE,DF)
07842  M01S06742.283l840 ---|          LDC    BFMS        REREAD LABEL SECTOR
07843  M01S06743.283l840 ---|          RJM    RDS
07844  M01S06744.283l840 ---|          LDD    RE
07845  M01S06745.283l840 ---|          SHN    21-1
07846  M01S06746.283l840 ---|          MJN    CTD1        IF ACCESSED PREVIOUSLY BY OTHER MF
07847  M01S06747.283l840 ---|          LDM    N4SS+5*SDGL+4
07848  M01S06748.283l840 ---|          LPN    77          SAVE DIT INDEX
07849  M01S06749.283l840 ---|          STD    P1
07850  M01S06750.283l840 ---|          LDN    MSTL        SET CHECKPOINTED MST LENGTH
07851  M01S06751.283l840 ---|          STD    T3
07852  M01S06752.283l840 ---|          LDD    FN+4        SET MST ADDRESS
07853  M01S06753.283l840 ---|          SHN    3
07854  M01S06754.283l840 ---|          ADK    TDGL        GET TRT LENGTH
07855  M01S06755.283l840 ---|          CRD    CN
07856  M01S06756.283l840 ---|          SBK    TDGL        UPDATE MST IN LABEL SECTOR
07857  M01S06757.283l840 ---|          CRM    N4SS,T3
07858  M01S06758.283l840 ---|          LDD    P1          SET SOFTWARE RESERVE IN LABEL
07859  M01S06759.283l840 ---|          LMD    HN
07860  M01S06760.283l840 ---|          STM    N4SS+5*SDGL+4
07861  M01S06761.283l840 ---|          LDD    CN+2        SET MRT LENGTH
07862  M01S06762.283l840 ---|          ADN    7
07863  M01S06763.283l840 ---|          SHN    -3          CALCULATE DIT OFFSET
07864  M01S06764.283l840 ---|          RAD    CN+2
07865  M01S06765.283l840 ---|          UJN    CTD2        GENERATE CHECKSUM
07866  M01S06766.283l840 ---|
07867  M01S06767.283l840 ---| CTD1     LDN    0           CLEAR MACHINE ID TO FORCE TRT UPDATE IN CM
07868  M01S06768.283l840 ---|          STM    N4SS+5*STLL+2
07869  M01S06769.283l840 ---|          LDM    N4SS+5*SDGL+4  CLEAR MST INTERLOCK
07870  M01S06770.283l840 ---|          SCN    77
07871  M01S06771.283l840 ---|          STM    N4SS+5*SDGL+4
07872  M01S06772.283l840 ---| CTD2     RJM    CLC         COMPUTE LABEL CHECKSUM
07873  M01S06773.283l840 ---|          STM    CKSS
07874  M01S06774.283l840 ---|          LDC    BFMS+WLSF
07875  M01S06775.283l840 ---|          RJM    WDS
07876  M01S06776.283l840 ---|          ENDMS              RELEASE HARDWARE RESERVE
07877  M01S06777.283l840 ---|          LDD    RE
07878  M01S06778.283l840 ---|          LPN    2
07879  M01S06779.283l840 ---|          NJN    CTD3        IF DEVICE ACCESSED PREVIOUSLY
07880  M01S06780.283l840 ---|          AOM    N4SS+5*SDGL+4
07881  M01S06781.283l840 ---|          LDD    FN+4        SET MST ADDRESS
07882  M01S06782.283l840 ---|          SHN    3
07883  M01S06783.283l840 ---|          ADN    SDGL        STORE DEVICE INTERLOCK IN CM
07884  M01S06784.283l840 ---|          CWM    N4SS+5*SDGL,ON
07885  M01S06785.283l840 ---|          RJM    STA         STORE DIT IN CM
07886  M01S06786.283l840 ---|          ADD    CN+2
07887  M01S06787.283l840 ---|          ERRNZ  MISD-MSTL   CODE DEPENDS ON VALUE
07888  M01S06788.283l840 ---|          CWM    DISS,T3
07889  M01S06789.283l840 ---|          LDD    T5
07890  M01S06790.283l840 ---|          STD    CM+1        SET EST ORDINAL
07891  M01S06791.283l840 ---|          LDN    CDIS
07892  M01S06792.283l840 ---|          STD    CM+3        UPDATE TABLES ON DISK
07893  M01S06793.283l840 ---|          MONITOR  STBM
07894  M01S06794.283l840 ---|*         LDN    0           SET IMMEDIATE RETURN
07895  M01S06795.283l840 ---| CTD3     LMN    2
07896  M01S06796.283l840 ---|          LJM    CTD6        RETURN
07897  M01S06797.283l840 ---| RMR      SPACE  4,10
07898  M01S06798.283l840 ---|**        RMR - READ MRT.
07899  M01S06799.283l840 ---|*
07900  M01S06800.283l840 ---|*         ENTRY  (T5) = (EQ) = EST ORDINAL.
07901  M01S06801.283l840 ---|*                (FN - FN+4) = EST ENTRY.
07902  M01S06802.283l840 ---|*
07903  M01S06803.283l840 ---|*         USES   T5 - T7, CM - CM+4, CN - CN+4.
07904  M01S06804.283l840 ---|*
07905  M01S06805.283l840 ---|*         CALLS  PTA, RDS, STA.
07906  M01S06806.283l840 ---|*
07907  M01S06807.283l840 ---|*         MACROS ENDMS, SETMS.
07908  M01S06808.283l840 ---|
07909  M01S06809.283l840 ---|
07910  M01S06810.283l840 ---| RMR      SUBR               ENTRY/EXIT
07911  M01S06811.283l840 ---|          LDD    FN
07912  M01S06812.283l840 ---|          SHN    21-11
07913  M01S06813.283l840 ---|          PJN    RMRX        IF DEVICE NOT SHARED
07914  M01S06814.283l840 ---|          SHN    21-4-21+11
07915  M01S06815.283l840 ---|          PJN    RMR1        IF NOT ISD
07916  M01S06816.283l840 ---|          LDD    RS
07917  M01S06817.283l840 ---|          LPN    FLMK
Line S06818 Modification History
M01 (Removed by) ns2552
M02 (Removed by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
07918  M02S06818.283l840 ---|          LMN    FLCM
07919  M02S06819.283l840 ---|          ZJN    RMRX        IF FILES RECOVERED FROM CM
Line S00085 Modification History
M01 (Added by) ns2552
M02 (Removed by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
07920  M02S00085.283l840 ---|          LMN    FLTB
07921  M02S00086.283l840 ---|          NJN    RMRX        IF FILES NOT RECOVERED FROM MS TABLES
Line S06820 Modification History
M01 (Removed by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
07922  M01S06820.283l840 ---|          LDD    RA
07923  M01S06821.283l840 ---|          SHN    6
07924  M01S06822.283l840 ---|          ADD    AL          FETCH LABEL SECTOR
07925  M01S06823.283l840 ---|          ADN    DILL
07926  M01S06824.283l840 ---|          CRD    T7
07927  M01S06825.283l840 ---|          LDD    FN+4        GET LABEL TRACK
07928  M01S06826.283l840 ---|          SHN    3
07929  M01S06827.283l840 ---|          ADN    ALGL
07930  M01S06828.283l840 ---|          CRD    CM
07931  M01S06829.283l840 ---|          ADN    DULL-ALGL   GET MACHINE INDEX
07932  M01S06830.283l840 ---|          CRD    CN
07933  M01S06831.283l840 ---|          LDD    CM+1        SET LABEL TRACK
07934  M01S06832.283l840 ---|          STD    T6
07935  M01S06833.283l840 ---|          LDD    CN+2        SET MRT SECTOR
07936  M01S06834.283l840 ---|          LPN    17
07937  M01S06835.283l840 ---|          ADN    MRTL
07938  M01S06836.283l840 ---|          RAD    T7
07939  M01S06837.283l840 ---|          UJN    RMR2        READ MRT
07940  M01S06838.283l840 ---|
07941  M01S06839.283l840 ---| RMR1     LDK    MMFL        GET LINK DEVICE EST ORDINAL
07942  M01S06840.283l840 ---|          CRD    CN
07943  M01S06841.283l840 ---|          LDD    CN+1
07944  M01S06842.283l840 ---|          LPC    777
07945  M01S06843.283l840 ---|          STD    T5
07946  M01S06844.283l840 ---|          LDD    TS          SET MST/TRT TRACK FOR DEVICE
07947  M01S06845.283l840 ---|          STD    T6
07948  M01S06846.283l840 ---|          LDD    CN+4        SET MRT SECTOR FOR THIS MACHINE
07949  M01S06847.283l840 ---|          ADN    MRST-1
07950  M01S06848.283l840 ---|          STD    T7
07951  M01S06849.283l840 ---| RMR2     SETMS  IO,DF
07952  M01S06850.283l840 ---|          LDC    BFMS
07953  M01S06851.283l840 ---|          RJM    RDS
07954  M01S06852.283l840 ---|          ENDMS
07955  M01S06853.283l840 ---|          LDD    EQ          RESTORE (T5)
07956  M01S06854.283l840 ---|          STD    T5
07957  M01S06855.283l840 ---|
07958  M01S06856.283l840 ---|*         COPY MRT TO CM AT THE END OF THE TRT.
07959  M01S06857.283l840 ---|
07960  M01S06858.283l840 ---|          RJM    PTA         PRESET TRT ADDRESS
07961  M01S06859.283l840 ---|          LDD    FN+4        GET TRT LENGTH
07962  M01S06860.283l840 ---|          SHN    3
07963  M01S06861.283l840 ---|          ADK    TDGL
07964  M01S06862.283l840 ---|          CRD    CM
07965  M01S06863.283l840 ---|          LDD    CM+2        SET MRT LENGTH
07966  M01S06864.283l840 ---|          STD    T0          SAVE TRT LENGTH
07967  M01S06865.283l840 ---|          ADN    7
07968  M01S06866.283l840 ---|          SHN    -3
07969  M01S06867.283l840 ---|          STD    CM+2
07970  M01S06868.283l840 ---|          RJM    STA         SET TRT FWA
07971  M01S06869.283l840 ---|          ADD    T0
07972  M01S06870.283l840 ---|          CWM    BFMS+2,CM+2 COPY MRT TO CM
07973  M01S06871.283l840 ---|          LJM    RMRX        RETURN
07974  M01S06872.283l840 ---|          SPACE  4,10
07975  M01S06873.283l840 ---| ORDG     EQU    *+5         LOAD ADDRESS FOR *4DG*
Line S00184 Modification History
M01 (Added by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
07976  M01S00184.283l840 +++|          TITLE  MMF ROUTINES.
07977  M01S00185.283l840 +++| ABD      SPACE  4,15
07978  M01S00186.283l840 +++|**        ABD - ALLOCATE BAT FOR DEVICE.
07979  M01S00187.283l840 +++|*
07980  M01S00188.283l840 +++|*         ENTRY  (FN - FN+4) = EST ENTRY.
07981  M01S00189.283l840 +++|*                (BAEI+4) = NEXT AVAILABLE BAT TRACK.
07982  M01S00190.283l840 +++|*
07983  M01S00191.283l840 +++|*         EXIT   (A) = 0 IF BAT ALLOCATED, OR IF BAT NOT REQUIRED.
07984  M01S00192.283l840 +++|*                (A) = MESSAGE ADDRESS, IF NO BAT TRACK AVAILABLE.
07985  M01S00193.283l840 +++|*
07986  M01S00194.283l840 +++|*         USES   T6, T7, CM - CM+4, CN - CN+4.
07987  M01S00195.283l840 +++|*
07988  M01S00196.283l840 +++|*         CALLS  CEA, SNT.
07989  M01S00197.283l840 +++|*
07990  M01S00198.283l840 +++|*         MACROS MONITOR.
07991  M01S00199.283l840 +++|
07992  M01S00200.283l840 +++|
07993  M01S00201.283l840 +++| ABD1     LDC    ABDA        EXIT WITH (A) = MESSAGE ADDRESS
07994  M01S00202.283l840 +++|
07995  M01S00203.283l840 +++|
07996  M01S00204.283l840 +++| ABD      SUBR               ENTRY/EXIT
07997  M01S00205.283l840 +++|          LDD    FN
07998  M01S00206.283l840 +++|          LPN    40
07999  M01S00207.283l840 +++|          ZJN    ABDX        IF NOT SHARED BUFFERED DEVICE
08000  M01S00208.283l840 +++|          LDM    BAEI+4      NEXT AVAILABLE BAT TRACK
08001  M01S00209.283l840 +++|          ZJN    ABD1        IF NO TRACK AVAILABLE
08002  M01S00210.283l840 +++|          STD    T6
08003  M01S00211.283l840 +++|          RJM    SNT         SET NEXT TRACK
08004  M01S00212.283l840 +++|          STM    BAEI+4
08005  M01S00213.283l840 +++|
08006  M01S00214.283l840 +++|*         SET EXTENDED MEMORY ADDRESS OF BAT INTO DAT.
08007  M01S00215.283l840 +++|
08008  M01S00216.283l840 +++|          LDN    0
08009  M01S00217.283l840 +++|          STD    T7
08010  M01S00218.283l840 +++|          RJM    CEA         GET ADDRESS OF BAT TRACK
08011  M01S00219.283l840 +++|          LDD    CM+3        SET EXTENDED MEMORY ADDRESS OF BAT
08012  M01S00220.283l840 +++|          STM    DATB+5
08013  M01S00221.283l840 +++|          LDD    CM+4
08014  M01S00222.283l840 +++|          STM    DATB+6
08015  M01S00223.283l840 +++|
08016  M01S00224.283l840 +++|*         CLEAR BAT.
08017  M01S00225.283l840 +++|
08018  M01S00226.283l840 +++|          LDN    ZERL
08019  M01S00227.283l840 +++|          CRD    CM
08020  M01S00228.283l840 +++|          LDD    T6          SET TRACK TO CLEAR
08021  M01S00229.283l840 +++|          STD    CM+4
08022  M01S00230.283l840 +++|          LDN    BATL/100    SET NUMBER OF SECTORS TO CLEAR
08023  M01S00231.283l840 +++|          STD    CM+3
08024  M01S00232.283l840 +++|          LDN    CEMS        CLEAR EXTENDED MEMORY TRACK
08025  M01S00233.283l840 +++|          STD    CM+1
08026  M01S00234.283l840 +++|          MONITOR  MTEM
08027  M01S00235.283l840 +++|          UJP    ABDX        RETURN
08028  M01S00236.283l840 +++|
08029  M01S00237.283l840 +++|
08030  M01S00238.283l840 +++| ABDA     DATA   C* END OF BAT TRACK CHAIN.*
08031  M01S00239.283l840 +++| CDE      SPACE  4,15
08032  M01S00240.283l840 +++|**        CDE - CHECK DAT ENTRY.
08033  M01S00241.283l840 +++|*
08034  M01S00242.283l840 +++|*         ENTRY  (DI) = DAT INDEX FROM MST.
08035  M01S00243.283l840 +++|*                (QS) = INDEX INTO DEVICE ACCESS TABLE.
08036  M01S00244.283l840 +++|*                (T2) = ADDRESS OF DATB+11.
08037  M01S00245.283l840 +++|*                (FN - FN+4) = EST ENTRY.
08038  M01S00246.283l840 +++|*                (DATB) = DAT ENTRY.
08039  M01S00247.283l840 +++|*
08040  M01S00248.283l840 +++|*         EXIT   (A) = 0 IF NO DAT CONFLICTS.
08041  M01S00249.283l840 +++|*                (A) = ADDRESS OF ERROR MESSAGE, IF DAT CONFLICT.
08042  M01S00250.283l840 +++|*                (T6) = 0, IF DAT ENTRY FOR NON-SHARED DEVICE.
08043  M01S00251.283l840 +++|*                (T6) = EXTENDED MEMORY TRACK, IF SHARED DEVICE ENTRY.
08044  M01S00252.283l840 +++|*
08045  M01S00253.283l840 +++|*         USES   T6.
08046  M01S00254.283l840 +++|
08047  M01S00255.283l840 +++|
08048  M01S00256.283l840 +++| CDE2     LDI    T2          CHECK MACHINE ACCESS BYTE
08049  M01S00257.283l840 +++|          SHN    21-13
08050  M01S00258.283l840 +++|          MJN    CDE3        IF RECOVERY IN PROGRESS
08051  M01S00259.283l840 +++|          LDD    DI          CHECK DAT INDEX
08052  M01S00260.283l840 +++|          LMD    QS
08053  M01S00261.283l840 +++|          ZJN    CDEX        IF VALID INDEX
08054  M01S00262.283l840 +++|          LMD    QS
08055  M01S00263.283l840 +++|          ZJN    CDEX        IF NO DAT INDEX IN MST
08056  M01S00264.283l840 +++| CDE3     LDC    CSDC+3
08057  M01S00265.283l840 +++|
08058  M01S00266.283l840 +++| CDE      SUBR               ENTRY/EXIT
08059  M01S00267.283l840 +++|          LDM    DATB+4      SET ECS POINTER FOR SHARED DEVICE
08060  M01S00268.283l840 +++|          STD    T6
08061  M01S00269.283l840 +++|          SHN    11-13
08062  M01S00270.283l840 +++|          LMD    FN          MAP TRACK BIT WITH SHARE FLAG
08063  M01S00271.283l840 +++|          SHN    21-11
08064  M01S00272.283l840 +++|          PJN    CDE2        IF COMPARE
08065  M01S00273.283l840 +++|          LDD    T6
08066  M01S00274.283l840 +++|          ZJN    CDE1        IF DAT ENTRY FOR NON-SHARED DEVICE
08067  M01S00275.283l840 +++|          LDN    CSDC-CSDB
08068  M01S00276.283l840 +++| CDE1     ADC    CSDB        SET ADDRESS OF ERROR MESSAGE
08069  M01S00277.283l840 +++|          UJN    CDEX        RETURN
08070  M01S00278.283l840 +++| CSD      SPACE  4,20
08071  M01S00279.283l840 +++|**        CSD - CHECK SHARED DEVICE STATUS.
08072  M01S00280.283l840 +++|*
08073  M01S00281.283l840 +++|*         ENTRY  (EQ) = DEVICE EST ORDINAL.
08074  M01S00282.283l840 +++|*                (RS) = RECOVERY STATUS.
08075  M01S00283.283l840 +++|*                (CN - CN+4) = PF DESCRIPTOR WORD (PFGL).
08076  M01S00284.283l840 +++|*                (FN - FN+4) = EST ENTRY.
08077  M01S00285.283l840 +++|*
08078  M01S00286.283l840 +++|*         EXIT   (A) = 0 IF NO DAT CONFLICT.
08079  M01S00287.283l840 +++|*                (A) = ADDRESS OF ERROR MESSAGE, IF DAT CONFLICT.
08080  M01S00288.283l840 +++|*                (T2) = 0 IF DEVICE NOT DESCRIBED IN DAT.
08081  M01S00289.283l840 +++|*
08082  M01S00290.283l840 +++|*         USES   QS, RE, T7, CM - CM+4.
08083  M01S00291.283l840 +++|*
08084  M01S00292.283l840 +++|*         CALLS  SDT, CDE, CEA.
08085  M01S00293.283l840 +++|*
08086  M01S00294.283l840 +++|*         MACROS MONITOR.
08087  M01S00295.283l840 +++|
08088  M01S00296.283l840 +++|
08089  M01S00297.283l840 +++| CSD6     LDD    MA          MOVE ENTRY TO DAT BUFFER
08090  M01S00298.283l840 +++|          CWD    CN
08091  M01S00299.283l840 +++|          CRM    DATB,ON
08092  M01S00300.283l840 +++|          LDD    DI          CHECK DAT INDEX
08093  M01S00301.283l840 +++|          ZJN    CSD7        IF NO DAT ENTRY FOR DEVICE
08094  M01S00302.283l840 +++|          STD    QS
08095  M01S00303.283l840 +++|          UJN    CSD8        DAT SLOT ASSIGNED
08096  M01S00304.283l840 +++|
08097  M01S00305.283l840 +++| CSD7     LDD    FN
08098  M01S00306.283l840 +++|          SHN    2-11
08099  M01S00307.283l840 +++|          LPN    4           MAP SHARE FLAG AS ECS TRACK REQUIRED
08100  M01S00308.283l840 +++|          RAD    RE
08101  M01S00309.283l840 +++| CSD8     LDN    0           CLEAR MACHINE ACCESS BYTE
08102  M01S00310.283l840 +++| CSD9     STM    DATB+11
08103  M01S00311.283l840 +++|
08104  M01S00312.283l840 +++| CSD      SUBR               ENTRY/EXIT
08105  M01S00313.283l840 +++|          RJM    SDT         SEARCH DEVICE ACCESS TABLE
08106  M01S00314.283l840 +++|          STD    T2
08107  M01S00315.283l840 +++|          ZJN    CSD6        IF NO ENTRY FOR NAMED DEVICE
08108  M01S00316.283l840 +++|          RJM    CDE         CHECK DAT ENTRY
08109  M01S00317.283l840 +++|          NJN    CSDX        IF DAT CONFLICT/ERROR
08110  M01S00318.283l840 +++|          STD    T7
08111  M01S00319.283l840 +++|          LDD    T6
08112  M01S00320.283l840 +++|          NJN    CSD1        IF SHARED DEVICE
08113  M01S00321.283l840 +++|          LDI    T2
08114  M01S00322.283l840 +++|          LPC    -0
08115  M01S00323.283l840 +++|          MMTE   *-1
08116  M01S00324.283l840 +++|          ZJN    CSDX        IF ACCESS BY THIS MACHINE ONLY
08117  M01S00325.283l840 +++|          LDC    CSDB
08118  M01S00326.283l840 +++|          UJN    CSDX        RETURN
08119  M01S00327.283l840 +++|
08120  M01S00328.283l840 +++| CSD1     LDI    T2          CHECK MACHINES ACCESSING DEVICE
08121  M01S00329.283l840 +++|          ZJN    CSD9        IF NO MACHINE ACCESS
08122  M01S00330.283l840 +++|          LPC    -0
08123  M01S00331.283l840 +++|          MMTE   *-1
08124  M01S00332.283l840 +++|          ADD    RS
08125  M01S00333.283l840 +++|          ZJN    CSD9        IF ACCESS BY THIS MACHINE ONLY
08126  M01S00334.283l840 +++|          SBD    RS
08127  M01S00335.283l840 +++|          LMI    T2
08128  M01S00336.283l840 +++|          ZJN    CSD2        IF NOT ACCESSED BY THIS MACHINE
08129  M01S00337.283l840 +++|          LDN    10
08130  M01S00338.283l840 +++| CSD2     ADN    2           FLAG TRT RECOVERY FROM EXTENDED MEMORY
08131  M01S00339.283l840 +++|          RAD    RE
08132  M01S00340.283l840 +++|          RJM    CEA         CONVERT EXTENDED MEMORY ADDRESS
08133  M01S00341.283l840 +++|          LDD    AL          SET CM TABLE ADDRESS
08134  M01S00342.283l840 +++|          ADK    TDGL
08135  M01S00343.283l840 +++|          STD    CM+2
08136  M01S00344.283l840 +++|          LDC    GLGL*100-100+40  SET WORD COUNT
08137  M01S00345.283l840 +++|          STD    CM+1
08138  M01S00346.283l840 +++|          LDC    RECS*1000   SUBFUNCTION = READ ECS
08139  M01S00347.283l840 +++|          RAD    CM+3
08140  M01S00348.283l840 +++|          MONITOR  ECSM      ISSUE MONITOR REQUEST
08141  M01S00349.283l840 +++|          LDD    RA          READ DRIVER WORD FROM GLOBAL MST
08142  M01S00350.283l840 +++|          SHN    6
08143  M01S00351.283l840 +++|          ADD    AL
08144  M01S00352.283l840 +++|          ADN    MDGL
08145  M01S00353.283l840 +++|          CRD    CM
08146  M01S00354.283l840 +++|          LDD    DI
08147  M01S00355.283l840 +++|          ZJN    CSD3        IF DNAP BY THIS MACHINE
08148  M01S00356.283l840 +++|          LMD    QS
08149  M01S00357.283l840 +++|          NJN    CSD4        IF DAT CONFLICT
08150  M01S00358.283l840 +++| CSD3     LDD    FN
08151  M01S00359.283l840 +++|          SCN    77
08152  M01S00360.283l840 +++|          SHN    14-10
08153  M01S00361.283l840 +++|          LMD    QS
08154  M01S00362.283l840 +++|          SHN    -1          COMPARE REMOVABLE STATUS + DAT INDEX
08155  M01S00363.283l840 +++|          LMD    CM
08156  M01S00364.283l840 +++|          LPC    4377
08157  M01S00365.283l840 +++|          ZJN    CSD5        IF NO CONFLICT
08158  M01S00366.283l840 +++| CSD4     LDC    CSDD
08159  M01S00367.283l840 +++| CSD5     LJM    CSDX        RETURN
08160  M01S00368.283l840 +++|
08161  M01S00369.283l840 +++| CSDB     DATA   4HNON-
08162  M01S00370.283l840 +++| CSDC     DATA   C*SHARED DEVICE ACTIVE IN DAT.*
08163  M01S00371.283l840 +++|
08164  M01S00372.283l840 +++| CSDD     DATA   C*REMOVABLE DEVICE CONFLICT.*
08165  M01S00373.283l840 +++| EBP      SPACE  4,10
08166  M01S00374.283l840 +++|**        EBP - ENABLE BST/BAT PROCESSING FOR SHARED BUFFERED DEVICE.
08167  M01S00375.283l840 +++|*
08168  M01S00376.283l840 +++|*         ENTRY  (EQ) = EST ORDINAL.
08169  M01S00377.283l840 +++|*                (FN - FN+4) = EST ENTRY.
08170  M01S00378.283l840 +++|*
08171  M01S00379.283l840 +++|*         USES   T5, T6, T7, CM - CM+4.
08172  M01S00380.283l840 +++|*
08173  M01S00381.283l840 +++|*         MACROS MONITOR.
08174  M01S00382.283l840 +++|
08175  M01S00383.283l840 +++|
08176  M01S00384.283l840 +++| EBP      SUBR               ENTRY/EXIT
08177  M01S00385.283l840 +++|          LDD    FN
08178  M01S00386.283l840 +++|          SHN    21-11
08179  M01S00387.283l840 +++|          PJN    EBPX        IF NOT SHARED DEVICE
08180  M01S00388.283l840 +++|          SHN    21-5-21+11
08181  M01S00389.283l840 +++|          PJN    EBPX        IF NOT BUFFERED DEVICE
08182  M01S00390.283l840 +++|
08183  M01S00391.283l840 +++|*         FLUSH WRITE BUFFERS / DROP ALL BUFFERS.
08184  M01S00392.283l840 +++|
08185  M01S00393.283l840 +++| EBP1     LDN    ZERL        CLEAR ASSEMBLY AREA
08186  M01S00394.283l840 +++|          CRD    CM
08187  M01S00395.283l840 +++|          LDD    EQ          SET EST ORDINAL
08188  M01S00396.283l840 +++|          STD    CM+3
08189  M01S00397.283l840 +++|          LDC    BMFW*100    FLUSH ALL WRITE BUFFERS
08190  M01S00398.283l840 +++|          STD    CM+4
08191  M01S00399.283l840 +++|          MONITOR  BFMM
08192  M01S00400.283l840 +++|          LDN    ZERL        CLEAR ASSEMBLY AREA
08193  M01S00401.283l840 +++|          CRD    CM
08194  M01S00402.283l840 +++|          LDD    EQ          SET EST ORDINAL
08195  M01S00403.283l840 +++|          STD    CM+3
08196  M01S00404.283l840 +++|          LDC    BMDD*100    DROP ALL BUFFERS ON DEVICE
08197  M01S00405.283l840 +++|          STD    CM+4
08198  M01S00406.283l840 +++|          MONITOR  BFMM
08199  M01S00407.283l840 +++|          LDD    CM+4
08200  M01S00408.283l840 +++|          ZJN    EBP2        IF COMPLETE
08201  M01S00409.283l840 +++|          DELAY  20B         DELAY TWO MILLISECONDS
08202  M01S00410.283l840 +++|          PAUSE
08203  M01S00411.283l840 +++|          UJP    EBP1        REISSUE REQUEST
08204  M01S00412.283l840 +++|
08205  M01S00413.283l840 +++|*         CLEAR ACCESS PERMISSIONS IN *BAT*.
08206  M01S00414.283l840 +++|
08207  M01S00415.283l840 +++| EBP2     LDN    ZERL
08208  M01S00416.283l840 +++|*         UJN    EBP3        (*CMS* CALL)
08209  M01S00417.283l840 +++| EBPA     EQU    *-1
08210  M01S00418.283l840 +++|          CRD    CM
08211  M01S00419.283l840 +++| EBPB     LDN    CBWS        CLEAR READ/WRITE PERMISSIONS IN *BAT*
08212  M01S00420.283l840 +++|*         LDN    CBRS        (LVL3 - CLEAR READ PERMISSIONS IN *BAT*)
08213  M01S00421.283l840 +++|          STD    CM+1
08214  M01S00422.283l840 +++| EBPC     LDN    **          SET MACHINE INDEX
08215  M01S00423.283l840 +++|          STD    CM+2
08216  M01S00424.283l840 +++|          LDD    EQ
08217  M01S00425.283l840 +++|          STD    CM+4
08218  M01S00426.283l840 +++|          MONITOR  MTEM
08219  M01S00427.283l840 +++|
08220  M01S00428.283l840 +++|*         ENABLE BST/BAT PROCESSING.
08221  M01S00429.283l840 +++|
08222  M01S00430.283l840 +++| EBP3     LDD    MA          WRITE REQUEST
08223  M01S00431.283l840 +++|          CWM    EBPD,ON
08224  M01S00432.283l840 +++|          LDD    FN+4
08225  M01S00433.283l840 +++|          SHN    3
08226  M01S00434.283l840 +++|          STD    CM+4        SET MST ADDRESS
08227  M01S00435.283l840 +++|          SHN    -14
08228  M01S00436.283l840 +++|          STD    CM+3
08229  M01S00437.283l840 +++|          LDN    1           SET WORD COUNT
08230  M01S00438.283l840 +++|          STD    CM+1
08231  M01S00439.283l840 +++|          MONITOR  UTEM
08232  M01S00440.283l840 +++|          UJP    EBPX        RETURN
08233  M01S00441.283l840 +++|
08234  M01S00442.283l840 +++|
08235  M01S00443.283l840 +++| EBPD     VFD    6/BDLL,6/1,6/27,42/0
08236  M01S00444.283l840 +++| LDT      SPACE  4,15
08237  M01S00445.283l840 +++|**        LDT - LOAD DEVICE ACCESS TABLE.
08238  M01S00446.283l840 +++|*
08239  M01S00447.283l840 +++|*         ENTRY  (EL) = EXTENDED MEMORY LABEL TRACK.
08240  M01S00448.283l840 +++|*
08241  M01S00449.283l840 +++|*         EXIT   (QI) = CURRENT DAT INDEX.
08242  M01S00450.283l840 +++|*                (QT) = LAST MST/TRT TRACK ASSIGNED.
08243  M01S00451.283l840 +++|*                DEVICE ACCESS TABLE LOADED TO CM.
08244  M01S00452.283l840 +++|*
08245  M01S00453.283l840 +++|*         USES   CA+1, CM - CM+4, CN - CN+4, T2 - T7.
08246  M01S00454.283l840 +++|*
08247  M01S00455.283l840 +++|*         CALLS  CEA.
08248  M01S00456.283l840 +++|*
08249  M01S00457.283l840 +++|*         MACROS MONITOR.
08250  M01S00458.283l840 +++|
08251  M01S00459.283l840 +++|
08252  M01S00460.283l840 +++| LDT1     LDD    HN          ADVANCE EXTENDED MEMORY ADDRESS
08253  M01S00461.283l840 +++|          RAD    CN+4
08254  M01S00462.283l840 +++|          SHN    -14
08255  M01S00463.283l840 +++|          RAD    CN+3
08256  M01S00464.283l840 +++|          LDD    HN          ADVANCE CM ADDRESS
08257  M01S00465.283l840 +++|          RAD    CN+2
08258  M01S00466.283l840 +++|          SHN    -14
08259  M01S00467.283l840 +++|          RAD    CN+1
08260  M01S00468.283l840 +++| LDT2     LDD    MA          MOVE REQUEST
08261  M01S00469.283l840 +++|          CWD    CN
08262  M01S00470.283l840 +++|          CRD    CM
08263  M01S00471.283l840 +++|          MONITOR  ECSM      ISSUE REQUEST
08264  M01S00472.283l840 +++|          SOD    T5          DECREMENT BLOCK COUNT
08265  M01S00473.283l840 +++|          PJN    LDT1        IF NOT END OF DAT
08266  M01S00474.283l840 +++|
08267  M01S00475.283l840 +++| LDT      SUBR               ENTRY/EXIT
08268  M01S00476.283l840 +++|
08269  M01S00477.283l840 +++|*         RETRIEVE BAT POINTER WORD *BAET*, IF REQUIRED.
08270  M01S00478.283l840 +++|
08271  M01S00479.283l840 +++|          LDM    ECLT        SET LABEL TRACK
08272  M01S00480.283l840 +++|          STD    T6
08273  M01S00481.283l840 +++|          LDN    ETLT        SET ENVIRONMENT TABLE SECTOR
08274  M01S00482.283l840 +++|          STD    T7
08275  M01S00483.283l840 +++| LDTA     RJM    CEA         GET ADDRESS OF ENVIRONMENT TABLE SECTOR
08276  M01S00484.283l840 +++|*         UJN    LDT0        (NO SHARED BUFFERED DEVICES CONFIGURED)
08277  M01S00485.283l840 +++|          LDN    BAET        ADJUST ADDRESS TO BAT POINTER
08278  M01S00486.283l840 +++|          RAD    CM+4
08279  M01S00487.283l840 +++|          SHN    -14
08280  M01S00488.283l840 +++|          LMC    RECS*1000   SET SUBFUNCTION
08281  M01S00489.283l840 +++|          RAD    CM+3
08282  M01S00490.283l840 +++|          LDD    MA          SET CM ADDRESS
08283  M01S00491.283l840 +++|          STD    CM+2
08284  M01S00492.283l840 +++|          LDN    0
08285  M01S00493.283l840 +++|          STD    CM+1
08286  M01S00494.283l840 +++|          MONITOR  ECSM      ISSUE REQUEST
08287  M01S00495.283l840 +++|          LDD    MA          READ *BAET*
08288  M01S00496.283l840 +++|          CRM    BAEI,ON
08289  M01S00497.283l840 +++|
08290  M01S00498.283l840 +++|*         RETRIEVE DAT POINTER WORD *DAET*.
08291  M01S00499.283l840 +++|
08292  M01S00500.283l840 +++| LDT0     RJM    CEA         GET ADDRESS OF ENVIRONMENT TABLE SECTOR
08293  M01S00501.283l840 +++|          LDN    DAET        ADJUST ADDRESS TO DAT POINTER
08294  M01S00502.283l840 +++|          RAD    CM+4
08295  M01S00503.283l840 +++|          SHN    -14
08296  M01S00504.283l840 +++|          LMC    RECS*1000   SET SUBFUNCTION
08297  M01S00505.283l840 +++|          RAD    CM+3
08298  M01S00506.283l840 +++|          LDD    MA          SET CM ADDRESS
08299  M01S00507.283l840 +++|          STD    CM+2
08300  M01S00508.283l840 +++|          LDN    0
08301  M01S00509.283l840 +++|          STD    CM+1
08302  M01S00510.283l840 +++|          MONITOR  ECSM      ISSUE REQUEST
08303  M01S00511.283l840 +++|*         LDN    0
08304  M01S00512.283l840 +++|          STD    T7
08305  M01S00513.283l840 +++|          LDD    MA          READ *DAET*
08306  M01S00514.283l840 +++|          CRD    CM
08307  M01S00515.283l840 +++|          LDD    CM          SET CURRENT DAT TRACK
08308  M01S00516.283l840 +++|          STD    QT
08309  M01S00517.283l840 +++|          LDM    LDMP        GET DEVICE ALLOCATION WORD FROM MST
08310  M01S00518.283l840 +++|          SHN    3
08311  M01S00519.283l840 +++|          ADN    ALGL        DAT TRACK TO (T6)
08312  M01S00520.283l840 +++|          CRD    T6-4
08313  M01S00521.283l840 +++|          LDD    CM+4        SET DAT INDEX
08314  M01S00522.283l840 +++|          STD    QI
08315  M01S00523.283l840 +++|          SHN    -6          SET BLOCK COUNT
08316  M01S00524.283l840 +++|          STD    T5
08317  M01S00525.283l840 +++|          RJM    CEA
08318  M01S00526.283l840 +++|          LDD    CM+4        MOVE ADDRESS TO REQUEST IMAGE
08319  M01S00527.283l840 +++|          STD    CN+4
08320  M01S00528.283l840 +++|          LDD    CM+3
08321  M01S00529.283l840 +++|          LMC    RECS*1000
08322  M01S00530.283l840 +++|          STD    CN+3
08323  M01S00531.283l840 +++|          LDD    CA+1        SET CM ADDRESS
08324  M01S00532.283l840 +++|          STD    CN+2
08325  M01S00533.283l840 +++|          ADD    TH
08326  M01S00534.283l840 +++|          STD    CA+1        ADVANCE ADDRESS FOR TRT RECOVERY
08327  M01S00535.283l840 +++|          LDC    77S6+40     SET WORD COUNT FOR TRANSFER
08328  M01S00536.283l840 +++|          STD    CN+1
08329  M01S00537.283l840 +++|          LJM    LDT2        ENTER LOOP
08330  M01S00538.283l840 +++| RDE      SPACE  4,15
08331  M01S00539.283l840 +++|**        RDE - READ DAT ENTRY.
08332  M01S00540.283l840 +++|*
08333  M01S00541.283l840 +++|*         ENTRY  (EQ) = EST ORDINAL.
08334  M01S00542.283l840 +++|*                (FN - FN+4) = EST ENTRY FOR DEVICE.
08335  M01S00543.283l840 +++|*
08336  M01S00544.283l840 +++|*         EXIT   (QS) = DAT INDEX.
08337  M01S00545.283l840 +++|*                (T6) = DAT TRACK.
08338  M01S00546.283l840 +++|*                (DATB) = DAT ENTRY.
08339  M01S00547.283l840 +++|*
08340  M01S00548.283l840 +++|*         USES   QS, RE, TS, CM - CM+4.
08341  M01S00549.283l840 +++|*
08342  M01S00550.283l840 +++|*         CALLS  ADE.
08343  M01S00551.283l840 +++|
08344  M01S00552.283l840 +++|
08345  M01S00553.283l840 +++| RDE      SUBR               ENTRY/EXIT
08346  M01S00554.283l840 +++|          LDD    FN+4        READ DRIVER WORD
08347  M01S00555.283l840 +++|          SHN    3
08348  M01S00556.283l840 +++|          ADN    MDGL        DAT INDEX TO (CM)
08349  M01S00557.283l840 +++|          CRD    CM
08350  M01S00558.283l840 +++|          LDD    CM          SET DAT ORDINAL FROM INDEX
08351  M01S00559.283l840 +++|          LPC    377
08352  M01S00560.283l840 +++|          SHN    1
08353  M01S00561.283l840 +++|          STD    QS
08354  M01S00562.283l840 +++|          LDN    RECS        SET READ SUBFUNCTION
08355  M01S00563.283l840 +++|          RJM    ADE         ACCESS *DAT* ENTRY
08356  M01S00564.283l840 +++|          LDD    MA          READ DAT ENTRY TO PP BUFFER
08357  M01S00565.283l840 +++|          CRM    DATB,TW
08358  M01S00566.283l840 +++|          LDM    DATB+4      SET MST/TRT TRACK IN TABLE
08359  M01S00567.283l840 +++|          STD    TS
08360  M01S00568.283l840 +++|          SHN    1-13        ADD DAP STATUS IF SHARED DEVICE
08361  M01S00569.283l840 +++|          LPN    2
08362  M01S00570.283l840 +++|          RAD    RE
08363  M01S00571.283l840 +++|          LJM    RDEX        RETURN
08364  M01S00572.283l840 +++| SDT      SPACE  4,15
08365  M01S00573.283l840 +++|**        SDT - SEARCH DEVICE ACCESS TABLE.
08366  M01S00574.283l840 +++|*
08367  M01S00575.283l840 +++|*         ENTRY  (FN - FN+4) = EST ENTRY.
08368  M01S00576.283l840 +++|*                (CA+1) = CM ADDRESS (+1000) OF DAT.
08369  M01S00577.283l840 +++|*                (CN - CN+3) = DEVICE DESCRIPTION.
08370  M01S00578.283l840 +++|*                (QI) = CURRENT DAT INDEX.
08371  M01S00579.283l840 +++|*
08372  M01S00580.283l840 +++|*         EXIT   (A) = 0 IF ENTRY NOT FOUND.
08373  M01S00581.283l840 +++|*                (A) = ADDRESS OF DATB+11 IF ENTRY FOUND.
08374  M01S00582.283l840 +++|*                (QS) = INDEX INTO DEVICE ACCESS TABLE.
08375  M01S00583.283l840 +++|*                (DI) = DAT INDEX.
08376  M01S00584.283l840 +++|*
08377  M01S00585.283l840 +++|*         USES   T1, T2, DI, QS, CM - CM+4, CN+4.
08378  M01S00586.283l840 +++|
08379  M01S00587.283l840 +++|
08380  M01S00588.283l840 +++| SDT1     LDM    DATB+4
08381  M01S00589.283l840 +++|          NJN    SDT2        IF SHARED DEVICE SLOT
08382  M01S00590.283l840 +++|          LDD    T2          SAVE INDEX OF HOLE
08383  M01S00591.283l840 +++|          STD    QS
08384  M01S00592.283l840 +++| SDT2     LDD    DI
08385  M01S00593.283l840 +++|          ZJN    SDT3        IF DNAP BY THIS MACHINE
08386  M01S00594.283l840 +++|          LMD    T2
08387  M01S00595.283l840 +++|          NJN    SDT3        IF NOT AT DAT SLOT FOR DEVICE
08388  M01S00596.283l840 +++|          LDM    DATB+4      SET MST POINTER
08389  M01S00597.283l840 +++|          STD    CN+4
08390  M01S00598.283l840 +++| SDT3     LDN    2           ADVANCE INDEX
08391  M01S00599.283l840 +++|          RAD    T2
08392  M01S00600.283l840 +++|          LMD    QI
08393  M01S00601.283l840 +++|          ZJN    SDTX        IF END OF DAT ENTRIES
08394  M01S00602.283l840 +++| SDT4     LDD    RA          READ NEXT ENTRY
08395  M01S00603.283l840 +++|          SBN    10
08396  M01S00604.283l840 +++|          SHN    6
08397  M01S00605.283l840 +++|          ADD    CA+1
08398  M01S00606.283l840 +++|          ADD    T2
08399  M01S00607.283l840 +++|          CRM    DATB,TW
08400  M01S00608.283l840 +++|          LDM    DATB
08401  M01S00609.283l840 +++|          ZJN    SDT1        IF POSSIBLE HOLE
08402  M01S00610.283l840 +++|          LDN    CN
08403  M01S00611.283l840 +++|          STD    T1
08404  M01S00612.283l840 +++|
08405  M01S00613.283l840 +++|*         COMPARE ENTRY FOR MATCHING FAMILY/PACK NAME + DEVICE NUMBER.
08406  M01S00614.283l840 +++|
08407  M01S00615.283l840 +++| SDT5     LDM    DATB-CN,T1
08408  M01S00616.283l840 +++|          LMI    T1
08409  M01S00617.283l840 +++|          NJN    SDT2        IF NO MATCH
08410  M01S00618.283l840 +++|          AOD    T1
08411  M01S00619.283l840 +++|          LMN    CN+4
08412  M01S00620.283l840 +++|          NJN    SDT5        IF NOT 4 BYTES
08413  M01S00621.283l840 +++|          LDD    T2          SET INDEX TO MATCHING ENTRY
08414  M01S00622.283l840 +++|          STD    QS
08415  M01S00623.283l840 +++|          LDC    DATB+11
08416  M01S00624.283l840 +++|
08417  M01S00625.283l840 +++| SDT      SUBR               ENTRY/EXIT
08418  M01S00626.283l840 +++|          LDD    FN+4        READ MST FOR DAT INDEX
08419  M01S00627.283l840 +++|          SHN    3
08420  M01S00628.283l840 +++|          ADN    MDGL
08421  M01S00629.283l840 +++|          CRD    CM
08422  M01S00630.283l840 +++|          LDD    CM
08423  M01S00631.283l840 +++|          LPC    377         EXPAND DAT INDEX
08424  M01S00632.283l840 +++|          SHN    1
08425  M01S00633.283l840 +++|          STD    DI
08426  M01S00634.283l840 +++|          LDN    0           CLEAR SEARCH INDEX
08427  M01S00635.283l840 +++|          STD    T2
08428  M01S00636.283l840 +++|          STD    CN+4
08429  M01S00637.283l840 +++|          STD    QS
08430  M01S00638.283l840 +++|          LJM    SDT4        ENTER LOOP
08431  M01S00639.283l840 +++| SNT      SPACE  4,10
08432  M01S00640.283l840 +++|**        SNT - SET NEXT TRACK IN EXTENDED MEMORY TRACK CHAIN.
08433  M01S00641.283l840 +++|*
08434  M01S00642.283l840 +++|*         ENTRY  (A) = CURRENT TRACK.
08435  M01S00643.283l840 +++|*                (LDMP) = EXTENDED MEMORY MST POINTER.
08436  M01S00644.283l840 +++|*
08437  M01S00645.283l840 +++|*         EXIT   (A) = NEXT TRACK.
08438  M01S00646.283l840 +++|*
08439  M01S00647.283l840 +++|*         USES   T0, T1, CM - CM+4.
08440  M01S00648.283l840 +++|
08441  M01S00649.283l840 +++|
08442  M01S00650.283l840 +++| SNT      SUBR               ENTRY/EXIT
08443  M01S00651.283l840 +++|          SHN    21-1        REMOVE TRACK BIT
08444  M01S00652.283l840 +++|          LMD    TH
08445  M01S00653.283l840 +++|          STD    T0          SET WORD INDEX
08446  M01S00654.283l840 +++|          SHN    1-21
08447  M01S00655.283l840 +++|          STD    T1          SET BYTE INDEX
08448  M01S00656.283l840 +++|          LDM    LDMP        GET FWA OF TRT
08449  M01S00657.283l840 +++|          SHN    3
08450  M01S00658.283l840 +++|          ADN    TRLL
08451  M01S00659.283l840 +++|          CRD    CM
08452  M01S00660.283l840 +++|          LDD    CM+3        READ TRT WORD
08453  M01S00661.283l840 +++|          LPN    77
08454  M01S00662.283l840 +++|          SHN    14
08455  M01S00663.283l840 +++|          LMD    CM+4
08456  M01S00664.283l840 +++|          ADD    T0
08457  M01S00665.283l840 +++|          CRD    CM
08458  M01S00666.283l840 +++|          LDM    CM,T1       EXTRACT NEXT TRACK
08459  M01S00667.283l840 +++|          UJN    SNTX        RETURN
08460  M01S00668.283l840 +++| UDT      SPACE  4,15
08461  M01S00669.283l840 +++|**        UDT - UPDATE DEVICE ACCESS TABLE.
08462  M01S00670.283l840 +++|*
08463  M01S00671.283l840 +++|*         ENTRY  (RS) = RECOVERY STATUS.
08464  M01S00672.283l840 +++|*                (EQ) = EST ORDINAL.
08465  M01S00673.283l840 +++|*                (FN - FN+4) = EST ENTRY.
08466  M01S00674.283l840 +++|*                DAT ENTRY IN (DATB).
Proceed to Part 5
cdc/nos2.source/opl.opl871/deck/msm.004.txt ยท Last modified: by 127.0.0.1