User Tools

Site Tools


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

Deck MSM Part 006

30 Modifications

Listing Sections

Source

Seq #  *Modification Id* Act 
----------------------------+
07168  M01S06199.msm     +++|          LPN    14
07169  M01S06200.msm     +++|          RAM    SFTA
07170  M01S06201.msm     +++|          LDC    MMFL        READ MMF STATUS WORD
07171  M01S06202.msm     +++|          CRD    CM
07172  M01S06203.msm     +++|          LDD    CM          SAVE MACHINE ID
07173  M01S06204.msm     +++|          STM    CDIA
07174  M01S00248.ns2547  +++|          STM    /ISD/RLSF+5
07175  M01S06205.msm     +++|          LDD    CM+4
Line S06206 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
07176  M02S06206.283l840 ---|          ZJN    PRS4        IF STAND ALONE SYSTEM
07177  M01S00172.283l840 +++|          ZJP    PRS4        IF STAND ALONE SYSTEM
07178  M01S00014.ns2768  +++|          LDK    STDI+T1     ACTIVATE *EMF* SUBROUTINE
07179  M01S00015.ns2768  +++|          STM    EMFA
Line S06207 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
07180  M02S06207.283l840 ---|          LDC    TMMF        SET TABLE ADDRESS
Line S06208 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
07181  M02S06208.283l840 ---|          STD    T1
Line S06209 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
07182  M02S06209.283l840 ---|          UJN    PRS3        MODIFY INSTRUCTIONS WITH MACHINE MASK
Line S06210 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
07183  M02S06210.283l840 ---|
Line S06211 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
07184  M02S06211.283l840 ---| PRS2     STD    T0          SET INSTRUCTION ADDRESS
Line S06212 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
07185  M02S06212.283l840 ---|          LDD    CM+3        ADD MACHINE MASK TO INSTRUCTION
Line S06213 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
07186  M02S06213.283l840 ---|          LMI    T0
Line S06214 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
07187  M02S06214.283l840 ---|          STI    T0
Line S06215 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
07188  M02S06215.283l840 ---|          AOD    T1          ADVANCE TABLE ADDRESS
Line S06216 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
07189  M02S06216.283l840 ---| PRS3     LDI    T1
Line S06217 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
07190  M02S06217.283l840 ---|          NJN    PRS2        IF NOT END OF TABLE
07191  M01S06218.msm     +++|          LDM    LDMP        READ LINK DEVICE ALLOCATION WORD
07192  M01S06219.msm     +++|          SHN    3
07193  M01S06220.msm     +++|          ADN    ALGL
07194  M01S06221.msm     +++|          CRD    CM
07195  M01S06222.msm     +++|          LDD    CM+4        SET DAT TRACK
Line S06223 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
07196  M02S06223.283l840 ---|          STM    /MMF/RDEA
Line S06224 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
07197  M02S06224.283l840 ---|          STM    /MMF/WDEA
07198  M01S00173.283l840 +++|          STM    ADEA
07199  M01S06225.msm     +++|          RJM    CEI         INITIALIZE *CEA* SUBROUTINE
Line S06226 Modification History
M01 (Added by) msm
M02 (Updated by) ns2547
Seq #  *Modification Id* Act 
----------------------------+
07200  M02S06226.ns2547  ---| PRS4     LDD    IR
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 (Updated by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
07205  M02S00253.272l774 ---|          LDC    *
Line S00254 Modification History
M01 (Added by) ns2547
M02 (Updated by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
07206  M02S00254.272l774 ---|          ORG    *-1
Line S00255 Modification History
M01 (Added by) ns2547
M02 (Updated by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
07207  M02S00255.272l774 ---|          LOC    /ISD/RLSB
Line S00256 Modification History
M01 (Added by) ns2547
M02 (Updated by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
07208  M02S00256.272l774 ---|          NJN    /ISD/RLS17  IF MACHINE ID IN DIT
Line S00257 Modification History
M01 (Added by) ns2547
M02 (Updated by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
07209  M02S00257.272l774 ---|          LOC    *O
Line S00258 Modification History
M01 (Added by) ns2547
M02 (Updated by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
07210  M02S00258.272l774 ---|          STM    /ISD/RLSB   MODIFY DIT CHECK
07211  M01S00048.272l774 +++|          ISTORE /ISD/RLSB,(NJN /ISD/RLS17)  MODIFY DIT CHECK
07212  M01S00259.ns2547  +++| PRS5     LDD    IR
07213  M01S06227.msm     +++|          LMC    2RCM
Line S06228 Modification History
M01 (Added by) msm
M02 (Updated by) ns2547
Seq #  *Modification Id* Act 
----------------------------+
07214  M02S06228.ns2547  ---|          ZJN    PRS5        IF *CMS* CALL
07215  M01S00260.ns2547  +++|          ZJN    PRS6        IF *CMS* CALL
07216  M01S00049.272l774 +++|          ISTORE RLSA,(UJN RLS11) SET RECOVERY LEVEL CHECK
07217  M01S06229.msm     +++|          LDN    NCPL
07218  M01S06230.msm     +++|          CRD    CM
Line S06231 Modification History
M01 (Added by) msm
M02 (Updated by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
07219  M02S06231.272l774 ---|          AOD    CM+1        SET SYSTEM CP NUMBER
Line S06232 Modification History
M01 (Added by) msm
M02 (Updated by) ns2547
M03 (Updated by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
07220  M03S06232.272l774 ---|          RAM    PUEC
Line S00261 Modification History
M01 (Added by) ns2547
M02 (Updated by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
07221  M02S00261.272l774 ---|          RAM    WOCA
Line S06233 Modification History
M01 (Added by) msm
M02 (Updated by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
07222  M02S06233.272l774 ---|          LDC    SHNI+7
Line S06234 Modification History
M01 (Added by) msm
M02 (Updated by) ns2547
M03 (Updated by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
07223  M03S06234.272l774 ---|          STM    PUED
Line S00262 Modification History
M01 (Added by) ns2547
M02 (Updated by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
07224  M02S00262.272l774 ---|          STM    WOCB
Line S06235 Modification History
M01 (Added by) msm
M02 (Updated by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
07225  M02S06235.272l774 ---|          LDC    *
Line S06236 Modification History
M01 (Added by) msm
M02 (Updated by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
07226  M02S06236.272l774 ---|          ORG    *-1
Line S06237 Modification History
M01 (Added by) msm
M02 (Updated by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
07227  M02S06237.272l774 ---|          LOC    RLSA
Line S06238 Modification History
M01 (Added by) msm
M02 (Updated by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
07228  M02S06238.272l774 ---|          UJN    RLS11       CHECK RECOVERY LEVEL
Line S06239 Modification History
M01 (Added by) msm
M02 (Updated by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
07229  M02S06239.272l774 ---|          LOC    *O
Line S06240 Modification History
M01 (Added by) msm
M02 (Updated by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
07230  M02S06240.272l774 ---|          STM    RLSA
Line S06241 Modification History
M01 (Added by) msm
M02 (Updated by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
07231  M02S06241.272l774 ---|          LJM    RDBX        EXIT
07232  M01S00050.272l774 +++|          AOD    CM+1        GET SYSTEM CPA ADDRESS
07233  M01S00051.272l774 +++|          SHN    7
07234  M01S00052.272l774 +++|          LJM    PRS8        SET *SNSW* ADDRESS
07235  M01S06242.msm     +++|
Line S06243 Modification History
M01 (Added by) msm
M02 (Updated by) ns2547
Seq #  *Modification Id* Act 
----------------------------+
07236  M02S06243.ns2547  ---| PRS5     LDC    UJNI+2      DISABLE CALLS TO DEADSTART ROUTINES
07237  M01S00263.ns2547  +++| PRS6     LDC    UJNI+2      DISABLE CALLS TO DEADSTART ROUTINES
07238  M01S06244.msm     +++|          STM    MRLB
07239  M01S06245.msm     +++|          STM    RDLA
Line S06246 Modification History
M01 (Added by) msm
M02 (Updated by) ns2547
Seq #  *Modification Id* Act 
----------------------------+
07240  M02S06246.ns2547  ---|          STM    /ISD/RLSB
07241  M01S00264.ns2547  +++|          STM    /ISD/RLSD
Line S06247 Modification History
M01 (Added by) msm
M02 (Updated by) msm45
Seq #  *Modification Id* Act 
----------------------------+
07242  M02S06247.msm45   ---|          LDC    *
Line S06248 Modification History
M01 (Added by) msm
M02 (Updated by) msm45
Seq #  *Modification Id* Act 
----------------------------+
07243  M02S06248.msm45   ---|          ORG    *-1
Line S06249 Modification History
M01 (Added by) msm
M02 (Updated by) msm45
Seq #  *Modification Id* Act 
----------------------------+
07244  M02S06249.msm45   ---|          LOC    VAL2
Line S06250 Modification History
M01 (Added by) msm
M02 (Updated by) msm45
Seq #  *Modification Id* Act 
----------------------------+
07245  M02S06250.msm45   ---|          UJN    VAL5        PROCESS *CMS* ERROR
Line S06251 Modification History
M01 (Added by) msm
M02 (Updated by) msm45
Seq #  *Modification Id* Act 
----------------------------+
07246  M02S06251.msm45   ---|          LOC    *O
Line S06252 Modification History
M01 (Added by) msm
M02 (Updated by) msm45
Seq #  *Modification Id* Act 
----------------------------+
07247  M02S06252.msm45   ---|          STM    VAL2
Line S06253 Modification History
M01 (Added by) msm
M02 (Updated by) msm45
Seq #  *Modification Id* Act 
----------------------------+
07248  M02S06253.msm45   ---|          LDC    *
Line S06254 Modification History
M01 (Added by) msm
M02 (Updated by) msm45
Seq #  *Modification Id* Act 
----------------------------+
07249  M02S06254.msm45   ---|          ORG    *-1
Line S06255 Modification History
M01 (Added by) msm
M02 (Updated by) msm45
Seq #  *Modification Id* Act 
----------------------------+
07250  M02S06255.msm45   ---|          LOC    CMEA
Line S06256 Modification History
M01 (Added by) msm
M02 (Updated by) msm45
Seq #  *Modification Id* Act 
----------------------------+
07251  M02S06256.msm45   ---|          UJN    CME8        DO NOT SET UNLOAD FOR NOT READY
Line S06257 Modification History
M01 (Added by) msm
M02 (Updated by) msm45
Seq #  *Modification Id* Act 
----------------------------+
07252  M02S06257.msm45   ---|          LOC    *O
Line S06258 Modification History
M01 (Added by) msm
M02 (Updated by) msm45
Seq #  *Modification Id* Act 
----------------------------+
07253  M02S06258.msm45   ---|          STM    CMEA
07254  M01S00003.msm45   +++|          ISTORE VAL2,(UJN VAL5)
07255  M01S00004.msm45   +++|          ISTORE CMEA,(UJN CME8)
07256  M01S00005.msm45   +++|          ISTORE CMEB,(UJN CME8)
07257  M01S06259.msm     +++|          LDC    RLM6        SET ERROR RETURN FROM *RLM*
07258  M01S06260.msm     +++|          STM    RLMA
07259  M01S06261.msm     +++|          LDN    PSNI
07260  M01S06262.msm     +++|          STM    WMTA
07261  M01S06263.msm     +++|          LDD    CP
07262  M01S06264.msm     +++|          ADN    MS2W
07263  M01S06265.msm     +++|          STM    /ISD/RLSC
Line S06266 Modification History
M01 (Added by) msm
M02 (Updated by) ns2768
Seq #  *Modification Id* Act 
----------------------------+
07264  M02S06266.ns2768  ---|          LDM    /CMS/DPPA
Line S06267 Modification History
M01 (Added by) msm
M02 (Updated by) ns2768
Seq #  *Modification Id* Act 
----------------------------+
07265  M02S06267.ns2768  ---|          LPN    77
07266  M01S00016.ns2768  +++|          LDM    /CMS/DPPB
07267  M01S00017.ns2768  +++|          SHN    -6
07268  M01S00018.ns2768  +++|          LMN    UJNI/100
Line S06268 Modification History
M01 (Added by) msm
M02 (Updated by) ns2547
Seq #  *Modification Id* Act 
----------------------------+
07269  M02S06268.ns2547  ---|          NJN    PRS6        IF DEADSTART SEQUENCING
07270  M01S00265.ns2547  +++|          NJN    PRS7        IF DEADSTART SEQUENCING
Line S06269 Modification History
M01 (Added by) msm
M02 (Updated by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
07271  M02S06269.272l774 ---|          LDC    UJNI+2
Line S06270 Modification History
M01 (Added by) msm
M02 (Updated by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
07272  M02S06270.272l774 ---|          STM    RDLC
Line S06271 Modification History
M01 (Added by) msm
M02 (Updated by) ns2547
M03 (Updated by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
07273  M03S06271.272l774 ---| PRS6     LJM    RDBX        EXIT
Line S00266 Modification History
M01 (Added by) ns2547
M02 (Updated by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
07274  M02S00266.272l774 ---| PRS7     LJM    RDBX        EXIT
Line S06272 Modification History
M01 (Added by) msm
M02 (Updated by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
07275  M02S06272.272l774 ---| EMF      SPACE  4
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  M01S06273.msm     +++|**        EMF - ENABLE MMF RECOVERY.
07289  M01S06274.msm     +++|*
07290  M01S06275.msm     +++|*         ENTRY  (A) = ADDRESS OF INSTRUCTION LIST.
07291  M01S06276.msm     +++|*
07292  M01S00174.283l840 +++|*         EXIT   (A) = 0.
07293  M01S00175.283l840 +++|*
07294  M01S06277.msm     +++|*         USES   T1, T2.
07295  M01S06278.msm     +++|
07296  M01S06279.msm     +++|
07297  M01S06280.msm     +++| EMF1     STD    T2          SET INSTRUCTION ADDRESS
07298  M01S06281.msm     +++|          LDN    PSNI        REPLACE INSTRUCTION WITH *PSN*
07299  M01S06282.msm     +++|          STI    T2
07300  M01S06283.msm     +++|          AOD    T1          ADVANCE LIST ADDRESS
07301  M01S06284.msm     +++| EMF2     LDI    T1
07302  M01S06285.msm     +++|          NJN    EMF1        LOOP TO END OF LIST
07303  M01S00176.283l840 +++| EMF3     LDN    0
07304  M01S06286.msm     +++|
07305  M01S06287.msm     +++| EMF      SUBR               ENTRY/EXIT
Line S06288 Modification History
M01 (Added by) msm
M02 (Updated by) ns2768
Seq #  *Modification Id* Act 
----------------------------+
07306  M02S06288.ns2768  ---|          STD    T1          SET LIST ADDRESS
Line S00019 Modification History
M01 (Added by) ns2768
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
07307  M02S00019.283l840 ---| EMFA     UJN    EMFX        EXIT (STAND-ALONE SYSTEM)
07308  M01S00177.283l840 +++| EMFA     UJN    EMF3        EXIT (STAND-ALONE SYSTEM)
07309  M01S00020.ns2768  +++|*         STD    T1          SET LIST ADDRESS (MULTI-MAINFRAME SYSTEM)
07310  M01S06289.msm     +++|          STM    MMFP        SET MMF PRESENT
07311  M01S06290.msm     +++|          UJN    EMF2        ENTER LOOP
07312  M01S06291.msm     +++|          SPACE  4,10
07313  M01S06292.msm     +++|
07314  M01S06293.msm     +++| CEI      HERE
07315  M01S06294.msm     +++|          SPACE  4,10
Line S06295 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
07316  M02S06295.283l840 ---|*         TABLE OF INSTRUCTIONS TO BE PRESET WITH MACHINE MASK.
Line S06296 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
07317  M02S06296.283l840 ---|
Line S06297 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
07318  M02S06297.283l840 ---| TMMF     BSS    0
Line S06298 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
07319  M02S06298.283l840 ---|          QUAL   MMF
Line S06299 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
07320  M02S06299.283l840 ---| TMMF     HERE
Line S06300 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
07321  M02S06300.283l840 ---|          CON    0           TERMINATE TABLE
Line S06301 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
07322  M02S06301.283l840 ---|
07323  M01S06302.msm     +++|*         LIST OF *CMS* INSTRUCTIONS MODIFIED FOR MMF SYSTEM.
07324  M01S06303.msm     +++|
07325  M01S06304.msm     +++|          QUAL   CMS
07326  M01S06305.msm     +++| LCMS     BSS    0
07327  M01S06306.msm     +++| LCMS     HERE
07328  M01S00178.283l840 +++|          ERRZR  LCMS-*      TABLE EMPTY - REMOVE PRESET CODE
07329  M01S06307.msm     +++|          CON    0           TERMINATE LIST
07330  M01S06308.msm     +++|
07331  M01S06309.msm     +++|*         LIST OF *RMS* INSTRUCTIONS MODIFIED FOR MMF RECOVERY.
07332  M01S06310.msm     +++|
07333  M01S06311.msm     +++|          QUAL   RMS
07334  M01S06312.msm     +++| LRMS     BSS    0
07335  M01S06313.msm     +++| LRMS     HERE
07336  M01S00179.283l840 +++|          ERRZR  LRMS-*      TABLE EMPTY - REMOVE PRESET CODE
07337  M01S06314.msm     +++|          CON    0           TERMINATE LIST
07338  M01S06315.msm     +++|
07339  M01S06316.msm     +++|          QUAL
07340  M01S06317.msm     +++|          SPACE  4,10
Line S06318 Modification History
M01 (Added by) msm
M02 (Updated by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
07341  M02S06318.272l774 ---|          OVERFLOW  O4DB     CHECK FOR OVERFLOW
Line S06319 Modification History
M01 (Added by) msm
M02 (Updated by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
07342  M02S06319.272l774 ---|          TTL  MSM/4DC - VALIDATE PF SYSTEM.
Line S00065 Modification History
M01 (Added by) 272l774
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
07343  M02S00065.283l840 ---|          OVERFLOW  O4DB,EPFW  CHECK FOR OVERFLOW
07344  M01S00180.283l840 +++|          OVERFLOW  ORDB,EPFW  CHECK FOR OVERFLOW
07345  M01S00066.272l774 +++|          TTL    MSM/4DC - VALIDATE PF SYSTEM.
07346  M01S06320.msm     +++|          TITLE
Line S06321 Modification History
M01 (Added by) msm
M02 (Updated by) ns2552
Seq #  *Modification Id* Act 
----------------------------+
07347  M02S06321.ns2552  ---|          IDENT  4DC,RDCX
07348  M01S00021.ns2552  +++|          IDENT  4DC,/RDC/RDCX
07349  M01S06322.msm     +++|*COMMENT  MSM - VALIDATE PF SYSTEM.
Line S06323 Modification History
M01 (Added by) msm
M02 (Updated by) 281l803
Seq #  *Modification Id* Act 
----------------------------+
07350  M02S06323.281l803 ---|          COMMENT COPYRIGHT CONTROL DATA CORP. 1973.
07351  M01S00006.281l803 +++|          COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
07352  M01S06324.msm     +++|          SPACE  4
07353  M01S06325.msm     +++|***              *VPF* VALIDATES THAT THE PERMANENT FILE SYSTEM
07354  M01S06326.msm     +++|*         CONTAINS NO DUPLICATE PACKNAMES, DEVICE NUMBERS OR USER
07355  M01S06327.msm     +++|*         MASKS WITHIN A FAMILY.  THE MST TABLES FOR ALL ACTIVE
07356  M01S06328.msm     +++|*         DEVICES ARE VERIFIED TO BE UNIQUE.
07357  M01S06329.msm     +++|          SPACE  4
07358  M01S06330.msm     +++|***       DAYFILE MESSAGES.
07359  M01S06331.msm     +++|*
07360  M01S06332.msm     +++|*         *EQXXX EQYYY CONFLICTING DN.* = TWO EST ORDINALS HAVE THE
07361  M01S06333.msm     +++|*         SAME FAMILY NAME AND DEVICE NUMBER, AND ONE DEVICE IS A
07362  M01S06334.msm     +++|*         SYSTEM DEVICE.  ACTION - REMOVE ONE OF THE DEVICES.
07363  M01S06335.msm     +++|*
07364  M01S06336.msm     +++|*         *EQXXX EQYYY CONFLICTING PN.* = TWO AUXILIARY DEVICES HAVE
07365  M01S06337.msm     +++|*         THE SAME PACKNAME.  ACTION - REMOVE ONE OF THE DEVICES.
07366  M01S06338.msm     +++|*
07367  M01S06339.msm     +++|*         *EQXXX EQYYY CONFLICTING UM.* = TWO EST ORDINALS IN THE SAME
07368  M01S06340.msm     +++|*         FAMILY HAVE ONE OR MORE DUPLICATED BITS IN THE *DM* MASK, AND
07369  M01S06341.msm     +++|*         ONE DEVICE IS A SYSTEM DEVICE.  ACTION - REMOVE ONE OF THE
07370  M01S06342.msm     +++|*         DEVICES.
07371  M01S06343.msm     +++|          SPACE  4
07372  M01S06344.msm     +++|**        ENTRY CONDITIONS.
07373  M01S06345.msm     +++|*
07374  M01S06346.msm     +++|*         (RS) = RECOVERY STATUS.
Line S06347 Modification History
M01 (Added by) msm
M02 (Updated by) ns2552
Seq #  *Modification Id* Act 
----------------------------+
07375  M02S06347.ns2552  ---|*         (P1) = 0 IF *RMS* CALL.
Line S06348 Modification History
M01 (Added by) msm
M02 (Updated by) ns2552
Seq #  *Modification Id* Act 
----------------------------+
07376  M02S06348.ns2552  ---|          SPACE  4,10
Line S06349 Modification History
M01 (Added by) msm
M02 (Updated by) ns2552
Seq #  *Modification Id* Act 
----------------------------+
07377  M02S06349.ns2552  ---|**        EXIT CONDITIONS.
Line S06350 Modification History
M01 (Added by) msm
M02 (Updated by) ns2552
Seq #  *Modification Id* Act 
----------------------------+
07378  M02S06350.ns2552  ---|*
Line S06351 Modification History
M01 (Added by) msm
M02 (Updated by) ns2552
Seq #  *Modification Id* Act 
----------------------------+
07379  M02S06351.ns2552  ---|*         (A) = 0 IF NO ERROR.
Line S06352 Modification History
M01 (Added by) msm
M02 (Updated by) ns2552
Seq #  *Modification Id* Act 
----------------------------+
07380  M02S06352.ns2552  ---|*         (A) .GT. 0 IF ERROR ON SYSTEM DEVICE.
Line S06353 Modification History
M01 (Added by) msm
M02 (Updated by) ns2552
Seq #  *Modification Id* Act 
----------------------------+
07381  M02S06353.ns2552  ---|*         (A) .LT. IF ERROR ENCOUNTERED.
Line S06354 Modification History
M01 (Added by) msm
M02 (Updated by) ns2552
Seq #  *Modification Id* Act 
----------------------------+
07382  M02S06354.ns2552  ---| RDC      SPACE  4,10
07383  M01S00022.ns2552  +++|          TITLE  MAIN ROUTINE.
07384  M01S00023.ns2552  +++|          SPACE  4,10
07385  M01S00024.ns2552  +++|          QUAL   RDC
Line S06355 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
07386  M02S06355.283l840 ---|          ORG    OSOV
07387  M01S00181.283l840 +++|          ORG    ORDC
07388  M01S06356.msm     +++|
07389  M01S06357.msm     +++| RDC      SUBR               ENTRY/EXIT
Line S06358 Modification History
M01 (Added by) msm
M02 (Updated by) ns2552
Seq #  *Modification Id* Act 
----------------------------+
07390  M02S06358.ns2552  ---|          LDD    RS
Line S06359 Modification History
M01 (Added by) msm
M02 (Updated by) ns2552
Seq #  *Modification Id* Act 
----------------------------+
07391  M02S06359.ns2552  ---|          ADD    P1
Line S06360 Modification History
M01 (Added by) msm
M02 (Updated by) ns2552
Seq #  *Modification Id* Act 
----------------------------+
07392  M02S06360.ns2552  ---|          NJN    RDCX        IF NOT LEVEL 0 DEADSTART
Line S06361 Modification History
M01 (Added by) msm
M02 (Updated by) ns2552
Seq #  *Modification Id* Act 
----------------------------+
07393  M02S06361.ns2552  ---|          RJM    SDF         FETCH DEFAULT FAMILY NAME
Line S06362 Modification History
M01 (Added by) msm
M02 (Updated by) ns2552
Seq #  *Modification Id* Act 
----------------------------+
07394  M02S06362.ns2552  ---|          LDN    0           ENTER DEFAULT FAMILY IN FOT
Line S06363 Modification History
M01 (Added by) msm
M02 (Updated by) ns2552
Seq #  *Modification Id* Act 
----------------------------+
07395  M02S06363.ns2552  ---|          RJM    GFO
Line S06364 Modification History
M01 (Added by) msm
M02 (Updated by) ns2552
Seq #  *Modification Id* Act 
----------------------------+
07396  M02S06364.ns2552  ---|          UJN    RDCX        RETURN
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  M01S06365.msm     +++| SDF      SPACE  4,10
07443  M01S06366.msm     +++|**        SDF - SET DEFAULT FAMILY NAME.
07444  M01S06367.msm     +++|*
07445  M01S06368.msm     +++|*         EXIT   (CN - CN+4) = *PFNL* WORD.
07446  M01S06369.msm     +++|*                (FN - FN+4) = *PFGL* WORD FROM DEFAULT FAMILY MST.
07447  M01S06370.msm     +++|*
07448  M01S06371.msm     +++|*         USES   CN - CN+4, FN - FN+4.
07449  M01S06372.msm     +++|*
07450  M01S06373.msm     +++|*         MACROS SFA.
07451  M01S06374.msm     +++|
07452  M01S06375.msm     +++|
07453  M01S06376.msm     +++| SDF      SUBR               ENTRY/EXIT
07454  M01S06377.msm     +++|          LDC    PFNL
07455  M01S06378.msm     +++|          CRD    CN
07456  M01S06379.msm     +++|          SFA    EST,CN+3    READ FAMILY EST ENTRY
07457  M01S06380.msm     +++|          ADK    EQDE
07458  M01S06381.msm     +++|          CRD    FN
07459  M01S06382.msm     +++|          LDD    FN+4        READ FAMILY NAME
07460  M01S06383.msm     +++|          SHN    3
07461  M01S06384.msm     +++|          ADN    PFGL
07462  M01S06385.msm     +++|          CRD    FN
07463  M01S06386.msm     +++|          UJN    SDFX        RETURN
Line S06387 Modification History
M01 (Added by) msm
M02 (Updated by) ns2552
Seq #  *Modification Id* Act 
----------------------------+
07464  M02S06387.ns2552  ---|          SPACE  4,10
Line S06388 Modification History
M01 (Added by) msm
M02 (Updated by) ns2552
Seq #  *Modification Id* Act 
----------------------------+
07465  M02S06388.ns2552  ---|**        COMMON DECKS.
Line S06389 Modification History
M01 (Added by) msm
M02 (Updated by) ns2552
Seq #  *Modification Id* Act 
----------------------------+
07466  M02S06389.ns2552  ---|
Line S06390 Modification History
M01 (Added by) msm
M02 (Updated by) ns2552
Seq #  *Modification Id* Act 
----------------------------+
07467  M02S06390.ns2552  ---|
Line S06391 Modification History
M01 (Added by) msm
M02 (Updated by) ns2552
Seq #  *Modification Id* Act 
----------------------------+
07468  M02S06391.ns2552  ---|*CALL     COMPSFE
Line S06392 Modification History
M01 (Added by) msm
M02 (Updated by) ns2552
Seq #  *Modification Id* Act 
----------------------------+
07469  M02S06392.ns2552  ---| GFO$     EQU    0           DEFINE FOT ACCESS ROUTINE
Line S06393 Modification History
M01 (Added by) msm
M02 (Updated by) ns2552
Seq #  *Modification Id* Act 
----------------------------+
07470  M02S06393.ns2552  ---|*CALL     COMPUFT
Line S06394 Modification History
M01 (Added by) msm
M02 (Updated by) ns2552
Seq #  *Modification Id* Act 
----------------------------+
07471  M02S06394.ns2552  ---|          TITLE  MAIN LOOP.
Line S06395 Modification History
M01 (Added by) msm
M02 (Updated by) ns2552
Seq #  *Modification Id* Act 
----------------------------+
07472  M02S06395.ns2552  ---|          QUAL   4DC
Line S06396 Modification History
M01 (Added by) msm
M02 (Updated by) ns2552
Seq #  *Modification Id* Act 
----------------------------+
07473  M02S06396.ns2552  ---|**        VPF - MAIN ROUTINE.
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  M01S06397.msm     +++|
07486  M01S06398.msm     +++|
07487  M01S06399.msm     +++| VPF      SUBR               ENTRY/EXIT
07488  M01S06400.msm     +++|          LDN    0           CLEAR FAMILY COUNT
07489  M01S06401.msm     +++|          STD    EF
07490  M01S06402.msm     +++|          LDN    NOPE-1      INITIALIZE EST ORDINAL FOR SEARCH
07491  M01S06403.msm     +++|          STD    EQ
07492  M01S06404.msm     +++| VPF1     AOD    EQ          READ EST ENTRY
07493  M01S06405.msm     +++|          STD    T5
07494  M01S06406.msm     +++|          LMD    LO
07495  M01S06407.msm     +++|          ZJN    VPFX        IF END OF EST
07496  M01S06408.msm     +++|          RJM    LRA         LOAD REFERENCE ADDRESS
07497  M01S06409.msm     +++|          ADD    EQ
07498  M01S06410.msm     +++|          CRD    RD
07499  M01S06411.msm     +++|          SFA    EST,EQ      GET EST ENTRY
07500  M01S06412.msm     +++|          ADK    EQDE
07501  M01S06413.msm     +++|          CRD    FN
07502  M01S06414.msm     +++|          LDD    RE
07503  M01S06415.msm     +++|          ZJN    VPF1        IF DEVICE NOT BEING RECOVERED
07504  M01S06416.msm     +++|          LPC    300
07505  M01S06417.msm     +++|          LMD    HN
07506  M01S06418.msm     +++|          ZJN    VPF1        IF UNAVAILABLE DEVICE
07507  M01S06419.msm     +++|          LDD    FN+4
07508  M01S06420.msm     +++|          SHN    3
07509  M01S06421.msm     +++|          ADN    PFGL        READ FAMILY/PACK NAME
07510  M01S06422.msm     +++|          CRD    FN
07511  M01S06423.msm     +++|          ADN    STLL-PFGL   GET DEVICE STATUS
07512  M01S06424.msm     +++|          CRD    T7
07513  M01S06425.msm     +++|          SBN    STLL-PUGL   READ DEVICE MASK
07514  M01S06426.msm     +++|          CRD    CM
07515  M01S06427.msm     +++|          ADN    MDGL-PUGL   CHECK AUXILIARY STATUS
07516  M01S06428.msm     +++|          CRD    FS
07517  M01S06429.msm     +++|          LDD    T7          CHECK DEVICE STATUS
07518  M01S06430.msm     +++|          LPC    MLIAL+MLIHD+MLIFD+MLUNL
07519  M01S06431.msm     +++|          NJN    VPF1        IF UNLOAD/INITIALIZE PENDING
07520  M01S06432.msm     +++|          LDD    FS
07521  M01S06433.msm     +++|          SHN    -12
07522  M01S06434.msm     +++|          LPN    1
07523  M01S06435.msm     +++|          STD    T2
07524  M01S06436.msm     +++| VPF2     RJM    GNE         GET NEXT ENTRY
07525  M01S06437.msm     +++|          ZJN    VPF7        IF NOT FOUND
07526  M01S06438.msm     +++|          RJM    CFN         COMPARE DEVICE NAMES
07527  M01S06439.msm     +++|          NJN    VPF2        IF NOT SAME FAMILY
07528  M01S06440.msm     +++|          LDD    T2
07529  M01S06441.msm     +++|          LMN    1
07530  M01S06442.msm     +++|          ZJN    VPF3        IF AUXILIARY DEVICE
07531  M01S06443.msm     +++|          LDD    T7
07532  M01S06444.msm     +++|          LMN    1
07533  M01S06445.msm     +++|          ZJN    VPF3        IF NEW DEVICE IS AN AUXILIARY DEVICE
07534  M01S06446.msm     +++|
07535  M01S06447.msm     +++|*         CHECK DEVICE NUMBERS.
07536  M01S06448.msm     +++|
07537  M01S06449.msm     +++|          LDD    FS+3
07538  M01S06450.msm     +++|          LMD    FN+3
07539  M01S06451.msm     +++|          ZJN    VPF4        IF SAME DEVICE NUMBERS
07540  M01S06452.msm     +++|
07541  M01S06453.msm     +++|*         CHECK USER MASKS.
07542  M01S06454.msm     +++|
07543  M01S06455.msm     +++|          LDD    CN+4
07544  M01S06456.msm     +++|          STM    VPFA
07545  M01S06457.msm     +++|          LDD    CM+4
07546  M01S06458.msm     +++|          LPC    *
07547  M01S06459.msm     +++| VPFA     EQU    *-1
07548  M01S06460.msm     +++|          LPC    377
07549  M01S06461.msm     +++|          ZJN    VPF2        IF NOT DUPLICATE MASKS
07550  M01S06462.msm     +++|          LDN    STUM-STPN   SET USER MASK ERROR
07551  M01S06463.msm     +++| VPF3     ADN    STPN-STDN   SET PACKNAME ERROR
07552  M01S06464.msm     +++| VPF4     ADN    STDN        SET DEVICE NUMBER ERROR
07553  M01S06465.msm     +++|          LJM    ERR
07554  M01S06466.msm     +++|
07555  M01S06467.msm     +++| VPF7     LDD    T2
07556  M01S06468.msm     +++|          NJN    VPF8        IF AUXILIARY DEVICE
07557  M01S06469.msm     +++|          RJM    CFR         CHECK FAMILY DEVICE RECOVERED
07558  M01S06470.msm     +++| VPF8     LJM    VPF1        LOOP FOR NEXT EQUIPMENT
07559  M01S06471.msm     +++|          TITLE  SUBROUTINES.
07560  M01S06472.msm     +++| CFN      SPACE  4
07561  M01S06473.msm     +++|**        CFN - COMPARE FAMILY/PACK NAMES.
07562  M01S06474.msm     +++|*
07563  M01S06475.msm     +++|*         ENTRY  (FN - FN+4) = FAMILY/PACK NAME1.
07564  M01S06476.msm     +++|*                (FS - FS+4) = FAMILY/PACK NAME2.
07565  M01S06477.msm     +++|*
07566  M01S06478.msm     +++|*         EXIT   (A) = 0 IF NAMES EQUAL.
07567  M01S06479.msm     +++|
07568  M01S06480.msm     +++|
07569  M01S06481.msm     +++| CFN      SUBR               ENTRY/EXIT
07570  M01S06482.msm     +++|          LDD    FN
07571  M01S06483.msm     +++|          LMD    FS
07572  M01S06484.msm     +++|          NJN    CFNX        IF NOT EQUAL
07573  M01S06485.msm     +++|          LDD    FN+1
07574  M01S06486.msm     +++|          LMD    FS+1
07575  M01S06487.msm     +++|          NJN    CFNX        IF NOT EQUAL
07576  M01S06488.msm     +++|          LDD    FN+2
07577  M01S06489.msm     +++|          LMD    FS+2
07578  M01S06490.msm     +++|          NJN    CFNX        IF NOT EQUAL
07579  M01S06491.msm     +++|          LDD    FN+3
07580  M01S06492.msm     +++|          LMD    FS+3
07581  M01S06493.msm     +++|          SCN    77
07582  M01S06494.msm     +++|          UJN    CFNX        EXIT
07583  M01S06495.msm     +++| CFR      SPACE  4,10
07584  M01S06496.msm     +++|**        CFR - CHECK FAMILY DEVICE RECOVERED.
07585  M01S06497.msm     +++|*
07586  M01S06498.msm     +++|*         ENTRY  (EQ) = EST ORDINAL.
07587  M01S06499.msm     +++|*
07588  M01S06500.msm     +++|*         ERROR  TO *ERR* IF FOT FULL.
Line S06501 Modification History
M01 (Added by) msm
M02 (Updated by) ns2552
Seq #  *Modification Id* Act 
----------------------------+
07589  M02S06501.ns2552  ---|*                TO */CMS/VPFX* IF ERROR FLAG SET.
07590  M01S00081.ns2552  +++|*                TO *RDCX* IF ERROR FLAG SET.
07591  M01S06502.msm     +++|
07592  M01S06503.msm     +++|
07593  M01S06504.msm     +++| CFR      SUBR               ENTRY/EXIT
07594  M01S06505.msm     +++|          LDD    RS
07595  M01S06506.msm     +++|          NJN    CFRX        IF RECOVERY DEADSTART
07596  M01S06507.msm     +++|          LDD    RE
07597  M01S06508.msm     +++|          SHN    21-7
07598  M01S06509.msm     +++|          PJN    CFRX        IF DEVICE NOT RECOVERED
07599  M01S06510.msm     +++|          LDN    0           SEARCH FOR/CREATE FOT ENTRY
07600  M01S06511.msm     +++|          RJM    GFO
07601  M01S06512.msm     +++|          SCN    1
07602  M01S06513.msm     +++|          ZJN    CFRX        IF ENTRY FOUND/CREATED
07603  M01S06514.msm     +++|          LPC    400000
07604  M01S06515.msm     +++|          LMN    STFF
07605  M01S06516.msm     +++|          PJN    ERR         IF FOT FULL
Line S06517 Modification History
M01 (Added by) msm
M02 (Updated by) ns2552
Seq #  *Modification Id* Act 
----------------------------+
07606  M02S06517.ns2552  ---|          LJM    /CMS/VPFX   EXIT
07607  M01S00082.ns2552  +++|          LJM    RDCX        EXIT
07608  M01S06518.msm     +++| ERR      SPACE  4
07609  M01S06519.msm     +++|**        ERR - PROCESS ERROR CONDITIONS.
07610  M01S06520.msm     +++|*
07611  M01S06521.msm     +++|*         ENTRY  (A) = ERROR STATUS.
07612  M01S06522.msm     +++|*                (EQ) = EST ORDINAL OF FIRST DEVICE.
07613  M01S06523.msm     +++|*                (T5) = EST ORDINAL OF SECOND DEVICE.
07614  M01S06524.msm     +++|*
07615  M01S06525.msm     +++|*         USES   FN - FN+4, P1, P2, T1, T5, EC, EQ.
07616  M01S06526.msm     +++|*
07617  M01S06527.msm     +++|*         CALLS  C2D, IES, LRA.
07618  M01S06528.msm     +++|*
07619  M01S06529.msm     +++|*         MACROS SFA.
07620  M01S06530.msm     +++|
07621  M01S06531.msm     +++|
07622  M01S06532.msm     +++| ERR      STD    EC          SAVE ERROR CODE
07623  M01S06533.msm     +++|          LDD    T5          SAVE EST ORDINAL OF SECOND DEVICE
07624  M01S06534.msm     +++|          STD    P2
07625  M01S06535.msm     +++|          LDD    EQ          SAVE EST ORDINAL OF FIRST DEVICE
07626  M01S06536.msm     +++|          STD    P1
07627  M01S06537.msm     +++|          STD    T5          PROCESS FIRST EST ORDINAL
07628  M01S06538.msm     +++|          RJM    LRA         LOAD REFERENCE ADDRESS
07629  M01S06539.msm     +++|          ADD    EQ
07630  M01S06540.msm     +++|          CRD    RD
07631  M01S06541.msm     +++|          SFA    EST,T5
07632  M01S06542.msm     +++|          ADK    EQDE
07633  M01S06543.msm     +++|          CRD    FN
07634  M01S06544.msm     +++|          LDD    RE
07635  M01S06545.msm     +++|          SHN    -6
07636  M01S06546.msm     +++|          LPN    62
07637  M01S06547.msm     +++|          LMN    62
07638  M01S06548.msm     +++|          ZJN    ERR3        IF RECOVERED SYSTEM DEVICE
07639  M01S06549.msm     +++|          SCN    20
07640  M01S06550.msm     +++|          NJN    ERR1        IF EQUIPMENT NOT RECOVERED
07641  M01S06551.msm     +++|          AOD    EF          FLAG *IES* CALL
07642  M01S06552.msm     +++|          RJM    IES         INITIALIZE EQUIPMENT STATUS
07643  M01S06553.msm     +++| ERR1     LDD    P2          PROCESS SECOND EQUIPMENT
07644  M01S06554.msm     +++|          STD    EQ
07645  M01S06555.msm     +++|          STD    T5
07646  M01S06556.msm     +++|          RJM    LRA         LOAD REFERENCE ADDRESS
07647  M01S06557.msm     +++|          ADD    EQ
07648  M01S06558.msm     +++|          CRD    RD
07649  M01S06559.msm     +++|          SFA    EST,T5      READ EST ENTRY
07650  M01S06560.msm     +++|          ADK    EQDE
07651  M01S06561.msm     +++|          CRD    FN
07652  M01S06562.msm     +++|          LDD    RE
07653  M01S06563.msm     +++|          SHN    -6
07654  M01S06564.msm     +++|          LPN    62
07655  M01S06565.msm     +++|          LMN    62
07656  M01S06566.msm     +++|          ZJN    ERR3        IF RECOVERED SYSTEM DEVICE
07657  M01S06567.msm     +++|          SCN    20
07658  M01S06568.msm     +++|          NJN    ERR2        IF EQUIPMENT NOT RECOVERED
07659  M01S06569.msm     +++|          AOD    EF          FLAG *IES* CALL
07660  M01S06570.msm     +++|          RJM    IES         INITIALIZE EQUIPMENT STATUS
07661  M01S06571.msm     +++| ERR2     LCN    0           SET NON SYSTEM DEVICE ERROR
07662  M01S06572.msm     +++|          LJM    VPFX
07663  M01S06573.msm     +++|
07664  M01S06574.msm     +++|*         PROCESS ERROR ON SYSTEM DEVICE.
07665  M01S06575.msm     +++|
07666  M01S06576.msm     +++| ERR3     SFA    EST,P1
07667  M01S06577.msm     +++|          ADK    EQDE
07668  M01S06578.msm     +++|          CRD    FN
07669  M01S06579.msm     +++|          LDD    FN+3        SET DEVICE TYPE
07670  M01S06580.msm     +++|          STM    ERRA
07671  M01S06581.msm     +++|          LDD    P1          CONVERT UPPER TWO DIGITS OF FIRST DEVICE
07672  M01S06582.msm     +++|          SHN    -3
07673  M01S06583.msm     +++|          RJM    C2D
07674  M01S06584.msm     +++|          STM    ERRA+1
07675  M01S06585.msm     +++|          LDD    P1          CONVERT LOWER DIGIT OF FIRST DEVICE
07676  M01S06586.msm     +++|          LPN    7
07677  M01S06587.msm     +++|          SHN    6
07678  M01S06588.msm     +++|          ADC    2R0
07679  M01S06589.msm     +++|          STM    ERRA+2
07680  M01S06590.msm     +++|          SFA    EST,P2
07681  M01S06591.msm     +++|          ADK    EQDE
07682  M01S06592.msm     +++|          CRD    FN
07683  M01S06593.msm     +++|          LDD    FN+3        SET DEVICE TYPE
07684  M01S06594.msm     +++|          STM    ERRA+3
07685  M01S06595.msm     +++|          LDD    P2          CONVERT UPPER TWO DIGITS OF SECOND DEVICE
07686  M01S06596.msm     +++|          SHN    -3
07687  M01S06597.msm     +++|          RJM    C2D
07688  M01S06598.msm     +++|          STM    ERRA+4
07689  M01S06599.msm     +++|          LDD    P2          CONVERT LOWER DIGIT OF SECOND DEVICE
07690  M01S06600.msm     +++|          LPN    7
07691  M01S06601.msm     +++|          SHN    6
07692  M01S06602.msm     +++|          ADC    2R0
07693  M01S06603.msm     +++|          STM    ERRA+5
07694  M01S06604.msm     +++|          LDD    EC          SET PROPER ERROR
07695  M01S06605.msm     +++|          SBN    STFF
07696  M01S06606.msm     +++|          ZJN    ERR4        IF FOT FULL
07697  M01S06607.msm     +++|          ADN    STFF-STDN
07698  M01S06608.msm     +++|          STD    T1
07699  M01S06609.msm     +++|          LDM    ERRC,T1
07700  M01S06610.msm     +++|          STM    ERRB
07701  M01S06611.msm     +++|          LCN    ERRD-ERRA
07702  M01S06612.msm     +++| ERR4     ADC    ERRD
07703  M01S06613.msm     +++|          LJM    VPFX
07704  M01S06614.msm     +++|
07705  M01S06615.msm     +++|
07706  M01S06616.msm     +++| ERRA     DATA   H*EQXXX EQYYY CONFLICTING *
07707  M01S06617.msm     +++| ERRB     DATA   C*ET. *
07708  M01S06618.msm     +++| ERRC     VFD    12/0LDN
07709  M01S06619.msm     +++|          VFD    12/0LPN
07710  M01S06620.msm     +++|          VFD    12/0LUM
07711  M01S06621.msm     +++| ERRD     DATA   C*FOT FULL.*
07712  M01S06622.msm     +++| GNE      SPACE  4
07713  M01S06623.msm     +++|**        GNE - GET NEXT ENTRY.
07714  M01S06624.msm     +++|*
07715  M01S06625.msm     +++|*         ENTRY  (T5) = ADDRESS OF LAST ENTRY CHECKED.
07716  M01S06626.msm     +++|*
07717  M01S06627.msm     +++|*         EXIT   (FS - FS+4) = PF DESCRIPTION WORD.
07718  M01S06628.msm     +++|*                (CN+4) = DEVICE MASK.
07719  M01S06629.msm     +++|*                (A) = 0 IF ENTRY NOT FOUND.
07720  M01S06630.msm     +++|*                (T7) = 1, IF AUXILIARY DEVICE.
07721  M01S06631.msm     +++|*
07722  M01S06632.msm     +++|*         USES   T1, T5, T7, CM - CM+3, FS - FS+4.
07723  M01S06633.msm     +++|*
07724  M01S06634.msm     +++|*         CALLS  LRA.
07725  M01S06635.msm     +++|
07726  M01S06636.msm     +++|
07727  M01S06637.msm     +++| GNE      SUBR               ENTRY/EXIT
07728  M01S06638.msm     +++| GNE1     AOD    T5
07729  M01S06639.msm     +++|          LMD    LO
07730  M01S06640.msm     +++|          ZJN    GNEX        IF END OF MASS STORAGE DEVICES
07731  M01S06641.msm     +++|          RJM    LRA         LOAD REFERENCE ADDRESS
07732  M01S06642.msm     +++|          ADD    T5
07733  M01S06643.msm     +++|          CRD    T7
07734  M01S06644.msm     +++|          SFA    EST,T5      READ NEXT EST ENTRY
07735  M01S06645.msm     +++|          ADK    EQDE
07736  M01S06646.msm     +++|          CRD    FS          READ NEXT ENTRY
07737  M01S06647.msm     +++|*         LDD    RE          CHECK DEVICE CHARACTERISTICS
07738  M01S06648.msm     +++|          LDD    CM+2
07739  M01S06649.msm     +++|          SHN    21-13
07740  M01S06650.msm     +++|          PJN    GNE1        IF NOT MASS STORAGE
07741  M01S06651.msm     +++|          SHN    21-6-21+13
07742  M01S06652.msm     +++|          PJN    GNE2        IF AVAILABLE
07743  M01S06653.msm     +++|          SHN    21-7-21+6+22
07744  M01S06654.msm     +++|          PJN    GNE1        IF DEVICE NOT BEING RECOVERED
07745  M01S06655.msm     +++| GNE2     LDD    FS+4        READ MST
07746  M01S06656.msm     +++|          STD    T1          SAVE MST ADDRESS
07747  M01S06657.msm     +++|          SHN    3
07748  M01S06658.msm     +++|          ADN    MDGL
07749  M01S06659.msm     +++|          CRD    FS
07750  M01S06660.msm     +++|          ADN    STLL-MDGL   GET DEVICE STATUS
07751  M01S06661.msm     +++|          CRD    T7
07752  M01S06662.msm     +++|          LDD    T7          CHECK INITIALIZE REQUESTED
07753  M01S06663.msm     +++|          LPC    MLIAL+MLIHD+MLIFD
07754  M01S06664.msm     +++|          NJN    GNE1        IF FULL INITIALIZE PENDING
07755  M01S06665.msm     +++|          LDD    FS
07756  M01S06666.msm     +++|          SHN    -12
07757  M01S06667.msm     +++|          LPN    1
07758  M01S06668.msm     +++|          STD    T7
07759  M01S06669.msm     +++|          LDD    T1          GET FAMILY NAME
07760  M01S06670.msm     +++|          SHN    3
07761  M01S06671.msm     +++|          ADN    PFGL
07762  M01S06672.msm     +++|          CRD    FS
07763  M01S06673.msm     +++|          ADN    PUGL-PFGL   READ DEVICE MASK
07764  M01S06674.msm     +++|          CRD    CN
07765  M01S06675.msm     +++|          LJM    GNEX        RETURN
07766  M01S06676.msm     +++|          SPACE  4,10
07767  M01S06677.msm     +++|**        COMMON DECKS.
07768  M01S06678.msm     +++|
07769  M01S06679.msm     +++|
07770  M01S06680.msm     +++|*CALL     COMPSFE
07771  M01S00083.ns2552  +++| GFO$     EQU    0           DEFINE FOT ACCESS ROUTINE
07772  M01S00084.ns2552  +++|*CALL     COMPUFT
Line S06681 Modification History
M01 (Added by) msm
M02 (Updated by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
07773  M02S06681.272l774 ---|          SPACE  4
Line S06682 Modification History
M01 (Added by) msm
M02 (Updated by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
07774  M02S06682.272l774 ---|          OVERFLOW  OSOV     CHECK FOR OVERFLOW
07775  M01S00067.272l774 +++|          SPACE  4,10
Line S00068 Modification History
M01 (Added by) 272l774
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
07776  M02S00068.283l840 ---|          OVERFLOW  OSOV,EPFW  CHECK FOR OVERFLOW
07777  M01S00182.283l840 +++|          OVERFLOW  ORDC,EPFW  CHECK FOR OVERFLOW
Line S06683 Modification History
M01 (Added by) msm
M02 (Updated by) ns2552
Seq #  *Modification Id* Act 
----------------------------+
07778  M02S06683.ns2552  ---|
Line S06684 Modification History
M01 (Added by) msm
M02 (Updated by) ns2552
Seq #  *Modification Id* Act 
----------------------------+
07779  M02S06684.ns2552  ---|          QUAL
Line S06685 Modification History
M01 (Added by) msm
M02 (Updated by) ns2552
Seq #  *Modification Id* Act 
----------------------------+
07780  M02S06685.ns2552  ---|
Line S06686 Modification History
M01 (Added by) msm
M02 (Updated by) ns2552
Seq #  *Modification Id* Act 
----------------------------+
07781  M02S06686.ns2552  ---| VMS      EQU    /4DC/VPF
07782  M01S06687.msm     +++|          TTL    MSM/4DD - DEVICE VERIFICATION ROUTINES.
07783  M01S06688.msm     +++|          TITLE
07784  M01S06689.msm     +++|          IDENT  4DD,/RDD/RDDX
07785  M01S06690.msm     +++|*COMMENT  MSM - DEVICE VERIFICATION ROUTINES.
Line S06691 Modification History
M01 (Added by) msm
M02 (Updated by) 281l803
Seq #  *Modification Id* Act 
----------------------------+
07786  M02S06691.281l803 ---|          COMMENT COPYRIGHT CONTROL DATA CORP. 1981.
07787  M01S00007.281l803 +++|          COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
07788  M01S06692.msm     +++|
07789  M01S06693.msm     +++|
07790  M01S06694.msm     +++|***              *4DD* CONTAINS LABEL VERIFICATION ROUTINES.
07791  M01S06695.msm     +++|
07792  M01S06696.msm     +++|
07793  M01S06697.msm     +++|          QUAL   RDD
Line S06698 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
07794  M02S06698.283l840 ---|          ORG    OSOV
07795  M01S00183.283l840 +++|          ORG    ORDD
07796  M01S06699.msm     +++|
07797  M01S06700.msm     +++| RDD      SUBR               ENTRY/EXIT
07798  M01S06701.msm     +++|          LJM    POV         PROCESS OVERLAY PRESET
Line S06702 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
07799  M02S06702.283l840 ---| CTD      TITLE  COPY MST/TRT TO DISK.
Line S06703 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
07800  M02S06703.283l840 ---| CTD      SPACE  4,10
Line S06704 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
07801  M02S06704.283l840 ---|**        CTD - COPY TABLES TO DISK.
Line S06705 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
07802  M02S06705.283l840 ---|*
Line S06706 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
07803  M02S06706.283l840 ---|*         ENTRY  (FN - FN+4) = EST ENTRY.
Line S06707 Modification History
M01 (Added by) msm
M02 (Updated by) ns2547
M03 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
07804  M03S06707.283l840 ---|*                (A) = 0 TO ENSURE REWRITE OF RECOVERY TABLES
Line S06708 Modification History
M01 (Added by) msm
M02 (Updated by) ns2547
M03 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
07805  M03S06708.283l840 ---|*                UPON RETURN TO *MRL*.
Line S00267 Modification History
M01 (Added by) ns2547
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
07806  M02S00267.283l840 ---|*
Line S00268 Modification History
M01 (Added by) ns2547
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
07807  M02S00268.283l840 ---|*         EXIT   (A) .GE. 0.
Line S06709 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
07808  M02S06709.283l840 ---|*
Line S06710 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
07809  M02S06710.283l840 ---|*         USES   P1, T3, T6, T7, CM - CM+4, CN - CN+4.
Line S06711 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
07810  M02S06711.283l840 ---|*
Line S06712 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
07811  M02S06712.283l840 ---|*         CALLS  CLC, PTA, RDS, STA, WDS.
Line S06713 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
07812  M02S06713.283l840 ---|*
Line S06714 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
07813  M02S06714.283l840 ---|*         MACROS CMSTF, ENDMS, MONITOR, SETMS.
Line S06715 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
07814  M02S06715.283l840 ---|
Line S06716 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
07815  M02S06716.283l840 ---|
Line S06717 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
07816  M02S06717.283l840 ---| CTD5     LDD    RE          CHECK ACCESS STATUS
Line S06718 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
07817  M02S06718.283l840 ---|          LPC    1002
Line S06719 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
07818  M02S06719.283l840 ---|          LMC    1002
Line S06720 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
07819  M02S06720.283l840 ---| CTD6     NJN    CTDX        IF NOT SHARED DEVICE ACCESSED PREVIOUSLY
Line S06721 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
07820  M02S06721.283l840 ---|          LDD    T5
Line S06722 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
07821  M02S06722.283l840 ---|          STD    CM+1
Line S06723 Modification History
M01 (Added by) msm
M02 (Updated by) ns2547
M03 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
07822  M03S06723.283l840 ---|          LDN    UTRS        GET CURRENT COPY OF TRT
Line S00269 Modification History
M01 (Added by) ns2547
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
07823  M02S00269.283l840 ---|          LDN    UITS        GET CURRENT COPY OF TRT / UPDATE MRT
Line S06724 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
07824  M02S06724.283l840 ---|          STD    CM+3
Line S06725 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
07825  M02S06725.283l840 ---|          MONITOR STBM
Line S06726 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
07826  M02S06726.283l840 ---|
Line S06727 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
07827  M02S06727.283l840 ---| CTD      SUBR               ENTRY/EXIT
Line S06728 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
07828  M02S06728.283l840 ---|          RJM    PTA         PRESET FWA OF TRT
Line S06729 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
07829  M02S06729.283l840 ---|          CMSTF  LPTU        ENABLE TRT UPDATE BY *1RU*
Line S06730 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
07830  M02S06730.283l840 ---|*         LDN    0
Line S06731 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
07831  M02S06731.283l840 ---|          STD    T7
Line S06732 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
07832  M02S06732.283l840 ---|          LDD    FN
Line S06733 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
07833  M02S06733.283l840 ---|          SHN    21-4
Line S06734 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
07834  M02S06734.283l840 ---|          PJN    CTD5        IF NOT INDEPENDENT SHARED DEVICE
Line S06735 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
07835  M02S06735.283l840 ---|          LDD    FN+4
Line S06736 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
07836  M02S06736.283l840 ---|          SHN    3
Line S06737 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
07837  M02S06737.283l840 ---|          ADN    ALGL        FETCH ALLOCATION WORD FROM MST
Line S06738 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
07838  M02S06738.283l840 ---|          CRD    CM
Line S06739 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
07839  M02S06739.283l840 ---|          LDD    CM+1        SET LABEL TRACK
Line S06740 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
07840  M02S06740.283l840 ---|          STD    T6
Line S06741 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
07841  M02S06741.283l840 ---|          SETMS  IO,(DE,DF)
Line S06742 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
07842  M02S06742.283l840 ---|          LDC    BFMS        REREAD LABEL SECTOR
Line S06743 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
07843  M02S06743.283l840 ---|          RJM    RDS
Line S06744 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
07844  M02S06744.283l840 ---|          LDD    RE
Line S06745 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
07845  M02S06745.283l840 ---|          SHN    21-1
Line S06746 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
07846  M02S06746.283l840 ---|          MJN    CTD1        IF ACCESSED PREVIOUSLY BY OTHER MF
Line S06747 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
07847  M02S06747.283l840 ---|          LDM    N4SS+5*SDGL+4
Line S06748 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
07848  M02S06748.283l840 ---|          LPN    77          SAVE DIT INDEX
Line S06749 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
07849  M02S06749.283l840 ---|          STD    P1
Line S06750 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
07850  M02S06750.283l840 ---|          LDN    MSTL        SET CHECKPOINTED MST LENGTH
Line S06751 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
07851  M02S06751.283l840 ---|          STD    T3
Line S06752 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
07852  M02S06752.283l840 ---|          LDD    FN+4        SET MST ADDRESS
Line S06753 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
07853  M02S06753.283l840 ---|          SHN    3
Line S06754 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
07854  M02S06754.283l840 ---|          ADK    TDGL        GET TRT LENGTH
Line S06755 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
07855  M02S06755.283l840 ---|          CRD    CN
Line S06756 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
07856  M02S06756.283l840 ---|          SBK    TDGL        UPDATE MST IN LABEL SECTOR
Line S06757 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
07857  M02S06757.283l840 ---|          CRM    N4SS,T3
Line S06758 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
07858  M02S06758.283l840 ---|          LDD    P1          SET SOFTWARE RESERVE IN LABEL
Line S06759 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
07859  M02S06759.283l840 ---|          LMD    HN
Line S06760 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
07860  M02S06760.283l840 ---|          STM    N4SS+5*SDGL+4
Line S06761 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
07861  M02S06761.283l840 ---|          LDD    CN+2        SET MRT LENGTH
Line S06762 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
07862  M02S06762.283l840 ---|          ADN    7
Line S06763 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
07863  M02S06763.283l840 ---|          SHN    -3          CALCULATE DIT OFFSET
Line S06764 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
07864  M02S06764.283l840 ---|          RAD    CN+2
Line S06765 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
07865  M02S06765.283l840 ---|          UJN    CTD2        GENERATE CHECKSUM
Line S06766 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
07866  M02S06766.283l840 ---|
Line S06767 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
07867  M02S06767.283l840 ---| CTD1     LDN    0           CLEAR MACHINE ID TO FORCE TRT UPDATE IN CM
Line S06768 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
07868  M02S06768.283l840 ---|          STM    N4SS+5*STLL+2
Line S06769 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
07869  M02S06769.283l840 ---|          LDM    N4SS+5*SDGL+4  CLEAR MST INTERLOCK
Line S06770 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
07870  M02S06770.283l840 ---|          SCN    77
Line S06771 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
07871  M02S06771.283l840 ---|          STM    N4SS+5*SDGL+4
Line S06772 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
07872  M02S06772.283l840 ---| CTD2     RJM    CLC         COMPUTE LABEL CHECKSUM
Line S06773 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
07873  M02S06773.283l840 ---|          STM    CKSS
Line S06774 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
07874  M02S06774.283l840 ---|          LDC    BFMS+WLSF
Line S06775 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
07875  M02S06775.283l840 ---|          RJM    WDS
Line S06776 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
07876  M02S06776.283l840 ---|          ENDMS              RELEASE HARDWARE RESERVE
Line S06777 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
07877  M02S06777.283l840 ---|          LDD    RE
Line S06778 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
07878  M02S06778.283l840 ---|          LPN    2
Line S06779 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
07879  M02S06779.283l840 ---|          NJN    CTD3        IF DEVICE ACCESSED PREVIOUSLY
Line S06780 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
07880  M02S06780.283l840 ---|          AOM    N4SS+5*SDGL+4
Line S06781 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
07881  M02S06781.283l840 ---|          LDD    FN+4        SET MST ADDRESS
Line S06782 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
07882  M02S06782.283l840 ---|          SHN    3
Line S06783 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
07883  M02S06783.283l840 ---|          ADN    SDGL        STORE DEVICE INTERLOCK IN CM
Line S06784 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
07884  M02S06784.283l840 ---|          CWM    N4SS+5*SDGL,ON
Line S06785 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
07885  M02S06785.283l840 ---|          RJM    STA         STORE DIT IN CM
Line S06786 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
07886  M02S06786.283l840 ---|          ADD    CN+2
Line S06787 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
07887  M02S06787.283l840 ---|          ERRNZ  MISD-MSTL   CODE DEPENDS ON VALUE
Line S06788 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
07888  M02S06788.283l840 ---|          CWM    DISS,T3
Line S06789 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
07889  M02S06789.283l840 ---|          LDD    T5
Line S06790 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
07890  M02S06790.283l840 ---|          STD    CM+1        SET EST ORDINAL
Line S06791 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
07891  M02S06791.283l840 ---|          LDN    CDIS
Line S06792 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
07892  M02S06792.283l840 ---|          STD    CM+3        UPDATE TABLES ON DISK
Line S06793 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
07893  M02S06793.283l840 ---|          MONITOR  STBM
Line S06794 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
07894  M02S06794.283l840 ---|*         LDN    0           SET IMMEDIATE RETURN
Line S06795 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
07895  M02S06795.283l840 ---| CTD3     LMN    2
Line S06796 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
07896  M02S06796.283l840 ---|          LJM    CTD6        RETURN
Line S06797 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
07897  M02S06797.283l840 ---| RMR      SPACE  4,10
Line S06798 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
07898  M02S06798.283l840 ---|**        RMR - READ MRT.
Line S06799 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
07899  M02S06799.283l840 ---|*
Line S06800 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
07900  M02S06800.283l840 ---|*         ENTRY  (T5) = (EQ) = EST ORDINAL.
Line S06801 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
07901  M02S06801.283l840 ---|*                (FN - FN+4) = EST ENTRY.
Line S06802 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
07902  M02S06802.283l840 ---|*
Line S06803 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
07903  M02S06803.283l840 ---|*         USES   T5 - T7, CM - CM+4, CN - CN+4.
Line S06804 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
07904  M02S06804.283l840 ---|*
Line S06805 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
07905  M02S06805.283l840 ---|*         CALLS  PTA, RDS, STA.
Line S06806 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
07906  M02S06806.283l840 ---|*
Line S06807 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
07907  M02S06807.283l840 ---|*         MACROS ENDMS, SETMS.
Line S06808 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
07908  M02S06808.283l840 ---|
Line S06809 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
07909  M02S06809.283l840 ---|
Line S06810 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
07910  M02S06810.283l840 ---| RMR      SUBR               ENTRY/EXIT
Line S06811 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
07911  M02S06811.283l840 ---|          LDD    FN
Line S06812 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
07912  M02S06812.283l840 ---|          SHN    21-11
Line S06813 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
07913  M02S06813.283l840 ---|          PJN    RMRX        IF DEVICE NOT SHARED
Line S06814 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
07914  M02S06814.283l840 ---|          SHN    21-4-21+11
Line S06815 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
07915  M02S06815.283l840 ---|          PJN    RMR1        IF NOT ISD
Line S06816 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
07916  M02S06816.283l840 ---|          LDD    RS
Line S06817 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
07917  M02S06817.283l840 ---|          LPN    FLMK
Line S06818 Modification History
M01 (Added by) msm
M02 (Updated by) ns2552
M03 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
07918  M03S06818.283l840 ---|          LMN    FLCM
Line S06819 Modification History
M01 (Added by) msm
M02 (Updated by) ns2552
M03 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
07919  M03S06819.283l840 ---|          ZJN    RMRX        IF FILES RECOVERED FROM CM
Line S00085 Modification History
M01 (Added by) ns2552
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
07920  M02S00085.283l840 ---|          LMN    FLTB
Line S00086 Modification History
M01 (Added by) ns2552
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
07921  M02S00086.283l840 ---|          NJN    RMRX        IF FILES NOT RECOVERED FROM MS TABLES
Line S06820 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
07922  M02S06820.283l840 ---|          LDD    RA
Line S06821 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
07923  M02S06821.283l840 ---|          SHN    6
Line S06822 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
07924  M02S06822.283l840 ---|          ADD    AL          FETCH LABEL SECTOR
Line S06823 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
07925  M02S06823.283l840 ---|          ADN    DILL
Line S06824 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
07926  M02S06824.283l840 ---|          CRD    T7
Line S06825 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
07927  M02S06825.283l840 ---|          LDD    FN+4        GET LABEL TRACK
Line S06826 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
07928  M02S06826.283l840 ---|          SHN    3
Line S06827 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
07929  M02S06827.283l840 ---|          ADN    ALGL
Line S06828 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
07930  M02S06828.283l840 ---|          CRD    CM
Line S06829 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
07931  M02S06829.283l840 ---|          ADN    DULL-ALGL   GET MACHINE INDEX
Line S06830 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
07932  M02S06830.283l840 ---|          CRD    CN
Line S06831 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
07933  M02S06831.283l840 ---|          LDD    CM+1        SET LABEL TRACK
Line S06832 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
07934  M02S06832.283l840 ---|          STD    T6
Line S06833 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
07935  M02S06833.283l840 ---|          LDD    CN+2        SET MRT SECTOR
Line S06834 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
07936  M02S06834.283l840 ---|          LPN    17
Line S06835 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
07937  M02S06835.283l840 ---|          ADN    MRTL
Line S06836 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
07938  M02S06836.283l840 ---|          RAD    T7
Line S06837 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
07939  M02S06837.283l840 ---|          UJN    RMR2        READ MRT
Line S06838 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
07940  M02S06838.283l840 ---|
Line S06839 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
07941  M02S06839.283l840 ---| RMR1     LDK    MMFL        GET LINK DEVICE EST ORDINAL
Line S06840 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
07942  M02S06840.283l840 ---|          CRD    CN
Line S06841 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
07943  M02S06841.283l840 ---|          LDD    CN+1
Line S06842 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
07944  M02S06842.283l840 ---|          LPC    777
Line S06843 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
07945  M02S06843.283l840 ---|          STD    T5
Line S06844 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
07946  M02S06844.283l840 ---|          LDD    TS          SET MST/TRT TRACK FOR DEVICE
Line S06845 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
07947  M02S06845.283l840 ---|          STD    T6
Line S06846 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
07948  M02S06846.283l840 ---|          LDD    CN+4        SET MRT SECTOR FOR THIS MACHINE
Line S06847 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
07949  M02S06847.283l840 ---|          ADN    MRST-1
Line S06848 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
07950  M02S06848.283l840 ---|          STD    T7
Line S06849 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
07951  M02S06849.283l840 ---| RMR2     SETMS  IO,DF
Line S06850 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
07952  M02S06850.283l840 ---|          LDC    BFMS
Line S06851 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
07953  M02S06851.283l840 ---|          RJM    RDS
Line S06852 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
07954  M02S06852.283l840 ---|          ENDMS
Line S06853 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
07955  M02S06853.283l840 ---|          LDD    EQ          RESTORE (T5)
Line S06854 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
07956  M02S06854.283l840 ---|          STD    T5
Line S06855 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
07957  M02S06855.283l840 ---|
Line S06856 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
07958  M02S06856.283l840 ---|*         COPY MRT TO CM AT THE END OF THE TRT.
Line S06857 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
07959  M02S06857.283l840 ---|
Line S06858 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
07960  M02S06858.283l840 ---|          RJM    PTA         PRESET TRT ADDRESS
Line S06859 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
07961  M02S06859.283l840 ---|          LDD    FN+4        GET TRT LENGTH
Line S06860 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
07962  M02S06860.283l840 ---|          SHN    3
Line S06861 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
07963  M02S06861.283l840 ---|          ADK    TDGL
Line S06862 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
07964  M02S06862.283l840 ---|          CRD    CM
Line S06863 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
07965  M02S06863.283l840 ---|          LDD    CM+2        SET MRT LENGTH
Line S06864 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
07966  M02S06864.283l840 ---|          STD    T0          SAVE TRT LENGTH
Line S06865 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
07967  M02S06865.283l840 ---|          ADN    7
Line S06866 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
07968  M02S06866.283l840 ---|          SHN    -3
Line S06867 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
07969  M02S06867.283l840 ---|          STD    CM+2
Line S06868 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
07970  M02S06868.283l840 ---|          RJM    STA         SET TRT FWA
Line S06869 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
07971  M02S06869.283l840 ---|          ADD    T0
Line S06870 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
07972  M02S06870.283l840 ---|          CWM    BFMS+2,CM+2 COPY MRT TO CM
Line S06871 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
07973  M02S06871.283l840 ---|          LJM    RMRX        RETURN
Line S06872 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
07974  M02S06872.283l840 ---|          SPACE  4,10
Line S06873 Modification History
M01 (Added by) msm
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
07975  M02S06873.283l840 ---| ORDG     EQU    *+5         LOAD ADDRESS FOR *4DG*
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
Proceed to Part 7
cdc/nos2.source/opl.opl871/deck/msm.006.txt ยท Last modified: by 127.0.0.1