User Tools

Site Tools


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

Deck MSM Part 002

30 Modifications

Listing Sections

Source

Seq #  *Modification Id* Act 
----------------------------+
Line S00077 Modification History
M01 (Added by) ns2788
Seq #  *Modification Id* Act 
----------------------------+
03224  M01S00077.ns2788  +++| CUS      SPACE  4,15
03225  M00S02870.msm     +++|**        CUS - CLEAR UNAVAILABLE STATUS.
03226  M00S02871.msm     +++|*
03227  M00S02872.msm     +++|*         ENTRY  (T5) = EST ORDINAL.
03228  M00S02873.msm     +++|*                (FN - FN+4) = EST ENTRY.
03229  M00S02874.msm     +++|*
03230  M00S02875.msm     +++|*         USES   T1, T3, T6, T7, CM - CM+4.
03231  M00S02876.msm     +++|*
Line S02877 Modification History
M01 (Removed by) ns2547
Seq #  *Modification Id* Act 
----------------------------+
03232  M01S02877.ns2547  ---|*         CALLS  RDS, SDA, SMI, WDS.
Line S00002 Modification History
M01 (Added by) ns2547
Seq #  *Modification Id* Act 
----------------------------+
03233  M01S00002.ns2547  +++|*         CALLS  CDC, RDS, SDA, SMI, WDS.
03234  M00S02878.msm     +++|*
03235  M00S02879.msm     +++|*         MACROS DELAY, ENDMS, PAUSE, SETMS.
03236  M00S02880.msm     +++|
03237  M00S02881.msm     +++|
03238  M00S02882.msm     +++| CUS6     LDD    RS          CHECK RECOVERY STATUS
03239  M00S02883.msm     +++|          LPN    FLMK
03240  M00S02884.msm     +++|          LMN    FLCM
03241  M00S02885.msm     +++|          ZJN    CUSX        IF CM RECOVERY
03242  M00S02886.msm     +++|          RJM    SDA         SET DEVICE AVAILABLE
03243  M00S02887.msm     +++|
03244  M00S02888.msm     +++| CUS      SUBR               ENTRY/EXIT
03245  M00S02889.msm     +++|          LDD    FN
03246  M00S02890.msm     +++|          LPN    20
03247  M00S02891.msm     +++|          ZJN    CUS6        IF NOT INDEPENDENT SHARED DEVICE
03248  M00S02892.msm     +++|          SETMS  IO,(DE,DF,NS)
03249  M00S02893.msm     +++|          LDN    FN+1        PRESET ERROR RETRY STATUS
03250  M00S02894.msm     +++|          STD    T3
03251  M00S02895.msm     +++|          LDD    FN+4        SET LABEL TRACK
03252  M00S02896.msm     +++|          SHN    3
03253  M00S02897.msm     +++|          ADN    ALGL
03254  M00S02898.msm     +++|          CRD    CM
03255  M00S02899.msm     +++|          LDD    CM+1
03256  M00S02900.msm     +++|          STD    T6
03257  M00S02901.msm     +++|          LDN    0
03258  M00S02902.msm     +++|          STD    T7
03259  M00S02903.msm     +++| CUS1     LDC    BFMS        READ LABEL FOR *DIT*
03260  M00S02904.msm     +++|          RJM    RDS
03261  M00S02905.msm     +++|          MJN    CUS3        IF READ ERROR
03262  M00S02906.msm     +++|          LDM    N4SS+5*SDGL+4
03263  M00S02907.msm     +++|          LPN    77
03264  M00S02908.msm     +++|          SHN    -1
03265  M00S02909.msm     +++|          ZJN    CUS5        IF SOFTWARE INTERLOCK NOT SET
Line S02910 Modification History
M01 (Removed by) msm48
Seq #  *Modification Id* Act 
----------------------------+
03266  M01S02910.msm48   ---|          LDD    CP
Line S00041 Modification History
M01 (Added by) msm48
Seq #  *Modification Id* Act 
----------------------------+
03267  M01S00041.msm48   +++| CUSA     LDD    CP
03268  M01S00042.msm48   +++|*         LDD    CF          (*1RF* CALL)
03269  M00S02911.msm     +++|          ADN    MS2W
03270  M00S02912.msm     +++|          CWM    CUSB,TR     *WAITING FOR INTERLOCK.*
03271  M00S02913.msm     +++| CUS2     ENDMS
03272  M00S02914.msm     +++|          DELAY
03273  M00S02915.msm     +++|          PAUSE
03274  M00S02916.msm     +++|          LDD    CM+1        CHECK ERROR FLAG
03275  M00S02917.msm     +++|          LMN    ORET
03276  M00S02918.msm     +++|          NJN    CUS1        IF NOT OPERATOR OVERRIDE
03277  M00S02919.msm     +++| CUS3     AOD    T3
03278  M00S02920.msm     +++|          LMN    FN+3
03279  M00S02921.msm     +++|          ZJN    CUS4        IF BOTH CHANNELS TRIED
03280  M00S02922.msm     +++|          LDI    T3
03281  M00S02923.msm     +++|          NJN    CUS2        IF ANOTHER CHANNEL PRESENT
03282  M00S02924.msm     +++| CUS4     ENDMS
03283  M00S02925.msm     +++|          LJM    RDAX        EXIT
03284  M00S02926.msm     +++|
03285  M00S02927.msm     +++| CUS5     RJM    SMI         CALCULATE *DIT* ENTRY ADDRESS
03286  M00S02928.msm     +++|          STD    T1
03287  M00S02929.msm     +++|          SHN    2
03288  M00S02930.msm     +++|          ADC    //DISS-5+3
03289  M00S02931.msm     +++|          RAD    T1
03290  M00S02932.msm     +++|          LDI    T1          CLEAR DIT INTERLOCK
03291  M00S02933.msm     +++|          SCN    1
03292  M00S02934.msm     +++|          STI    T1
Line S00003 Modification History
M01 (Added by) ns2547
Seq #  *Modification Id* Act 
----------------------------+
03293  M01S00003.ns2547  +++|          RJM    CDC         COMPUTE LABEL CHECKSUM
03294  M01S00004.ns2547  +++|          STM    CKSS
03295  M00S02935.msm     +++|          LDC    BFMS+WLSF   REWRITE LABEL
03296  M00S02936.msm     +++|          RJM    WDS
03297  M00S02937.msm     +++|          MJN    CUS4        IF WRITE ERROR
03298  M00S02938.msm     +++|          ENDMS
03299  M00S02939.msm     +++|          LJM    CUS6        SET DEVICE AVAILABLE
03300  M00S02940.msm     +++|
03301  M00S02941.msm     +++|
03302  M00S02942.msm     +++| CUSB     DATA   C*WAITING FOR INTERLOCK.*
Line S02943 Modification History
M01 (Removed by) ns2788
Seq #  *Modification Id* Act 
----------------------------+
03303  M01S02943.ns2788  ---| IEM      SPACE  4
Line S00078 Modification History
M01 (Added by) ns2788
Seq #  *Modification Id* Act 
----------------------------+
03304  M01S00078.ns2788  +++| IEM      SPACE  4,15
03305  M00S02944.msm     +++|**        IEM - ISSUE ERROR LOG MESSAGE.
03306  M00S02945.msm     +++|*
03307  M00S02946.msm     +++|*         ENTRY  (T4) = CHANNEL NUMBER.
03308  M00S02947.msm     +++|*                (CN) = FILE TYPE.
03309  M00S02948.msm     +++|*
03310  M00S02949.msm     +++|*         EXIT   ERROR COUNT (PMPC) ADVANCED.
03311  M00S02950.msm     +++|*
03312  M00S02951.msm     +++|*         CALLS  DFM.
03313  M00S02952.msm     +++|*
03314  M00S02953.msm     +++|*         MACROS ENDMS.
03315  M00S02954.msm     +++|
03316  M00S02955.msm     +++|
03317  M00S02956.msm     +++| IEM      SUBR               ENTRY/EXIT
03318  M00S02957.msm     +++|          LDD    CN
03319  M00S02958.msm     +++|          LMN    SYFT
03320  M00S02959.msm     +++|          ZJN    IEMX        IF SYSTEM FILE
03321  M00S02960.msm     +++|          AOM    PMPC        ADVANCE ERROR COUNT
03322  M00S02961.msm     +++|          LDC    2R P
03323  M00S02962.msm     +++|          STM    RDAF
03324  M00S02963.msm     +++|          ENDMS              RELEASE CHANNEL
03325  M00S02964.msm     +++|          LDC    ERLN+RDAD-1 ISSUE MESSAGE TO ERROR LOG
03326  M00S02965.msm     +++|          RJM    DFM
03327  M00S02966.msm     +++|*         LDN    0           CLEAR END OF CP MESSAGE
03328  M00S02967.msm     +++|          STM    RDAF
03329  M00S02968.msm     +++|          UJN    IEMX        RETURN
03330  M00S02969.msm     +++| IQF      SPACE  4,15
03331  M00S02970.msm     +++|**        IQF - INITIALIZE *IQFT*.
03332  M00S02971.msm     +++|*
03333  M00S02972.msm     +++|*         ENTRY  (T5) = EST ORDINAL.
03334  M00S02973.msm     +++|*
03335  M00S02974.msm     +++|*         EXIT   (A) = 0 IF TRACK UNAVAILABLE FOR *IQFT*.
03336  M00S02975.msm     +++|*                (QF) = (QT) = FIRST TRACK OF *IQFT*.
03337  M00S02976.msm     +++|*                (QS) = FIRST SECTOR OF *IQFT*.
03338  M00S02977.msm     +++|*                (QI) = 0.
03339  M00S02978.msm     +++|*
03340  M00S02979.msm     +++|*         USES   T3, CM - CM+4.
03341  M00S02980.msm     +++|*
Line S02981 Modification History
M01 (Removed by) msm48
Seq #  *Modification Id* Act 
----------------------------+
03342  M01S02981.msm48   ---|*         CALLS  BAD, DFM, WSS.
Line S00043 Modification History
M01 (Added by) msm48
Seq #  *Modification Id* Act 
----------------------------+
03343  M01S00043.msm48   +++|*         CALLS  DFM, WSS.
03344  M00S02982.msm     +++|*
03345  M00S02983.msm     +++|*         MACROS ENDMS, MONITOR, SETMS.
03346  M00S02984.msm     +++|
03347  M00S02985.msm     +++|
03348  M00S02986.msm     +++| IQF2     LDC    IQFB        *EQXXX, TRACK LIMIT ON IQFT.*
03349  M00S02987.msm     +++|          RJM    DFM
03350  M00S02988.msm     +++|*         LDN    0
03351  M00S02989.msm     +++|
03352  M00S02990.msm     +++| IQF      SUBR               ENTRY/EXIT
03353  M00S02991.msm     +++|          ENDMS
03354  M00S02992.msm     +++|          LDN    ZERL
03355  M00S02993.msm     +++|          CRD    CM
03356  M00S02994.msm     +++|          LDD    T5          REQUEST *IQFT* TRACK
03357  M00S02995.msm     +++|          STD    CM+1
03358  M00S02996.msm     +++|          MONITOR  RTCM
03359  M00S02997.msm     +++|          LDD    CM+4
03360  M00S02998.msm     +++|          ZJN    IQF2        IF NO TRACK AVAILABLE
03361  M00S02999.msm     +++|          STD    T6
03362  M00S03000.msm     +++|          STD    QF
03363  M00S03001.msm     +++|          STD    QT
03364  M00S03002.msm     +++|          LDC    500
03365  M00S03003.msm     +++|          STD    T3
03366  M00S03004.msm     +++| IQF1     LDN    0           CLEAR SYSTEM SECTOR BUFFER
03367  M00S03005.msm     +++|          STM    BFMS+1,T3
03368  M00S03006.msm     +++|          SOD    T3
03369  M00S03007.msm     +++|          NJN    IQF1        IF NOT START OF BUFFER
03370  M00S03008.msm     +++|          STD    QI
Line S03009 Modification History
M01 (Removed by) msm48
Seq #  *Modification Id* Act 
----------------------------+
03371  M01S03009.msm48   ---|          RJM    BAD         CLEAR CM BUFFER
03372  M01S03010.msm48   ---|          CWM    BFMS,HN
Line S00044 Modification History
M01 (Added by) msm48
Seq #  *Modification Id* Act 
----------------------------+
03373  M01S00044.msm48   +++|          LDD    RA
03374  M01S00045.msm48   +++|          SHN    6
03375  M01S00046.msm48   +++|          ADD    CR          FWA OF IQFT BUFFER
03376  M01S00047.msm48   +++|          CWM    BFMS,HN     CLEAR CM BUFFER
03377  M00S03011.msm     +++|          LDD    MA          MOVE FILE NAME TO BUFFER
03378  M00S03012.msm     +++|          CWM    IQFA,ON
03379  M00S03013.msm     +++|          SBN    1
03380  M00S03014.msm     +++|          CRM    FNSS,ON
03381  M00S03015.msm     +++|          SETMS  POSITION
03382  M00S03016.msm     +++|          RJM    WSS         WRITE *IQFT* SYSTEM SECTOR
03383  M00S03017.msm     +++|          LDN    FSMS        SET FIRST *IQFT* SECTOR
03384  M00S03018.msm     +++|          STD    QS
03385  M00S03019.msm     +++|          LJM    IQFX        RETURN
03386  M00S03020.msm     +++|
03387  M00S03021.msm     +++| IQFA     VFD    42/0LQUEUES,6/1,6/SYFT,6/0
03388  M00S03022.msm     +++|
03389  M00S03023.msm     +++| IQFB     DATA   C*EQXXX, TRACK LIMIT ON IQFT.*
03390  M00S03024.msm     +++| PTA      SPACE  4,10
03391  M00S03025.msm     +++|**        PTA - PRESET FIRST WORD ADDRESS OF TRT.
03392  M00S03026.msm     +++|*
03393  M00S03027.msm     +++|*         ENTRY  (FN - FN+4) = EST ENTRY OF DEVICE.
03394  M00S03028.msm     +++|*
03395  M00S03029.msm     +++|*         USES   CM - CM+4.
03396  M00S03030.msm     +++|
03397  M00S03031.msm     +++|
03398  M00S03032.msm     +++| PTA      SUBR               ENTRY/EXIT
03399  M00S03033.msm     +++|          LDD    FN+4        GET FWA OF TRT
03400  M00S03034.msm     +++|          SHN    3
03401  M00S03035.msm     +++|          ADN    TRLL
03402  M00S03036.msm     +++|          CRD    CM
03403  M00S03037.msm     +++|          LDD    CM+3        SET FWA OF TRT
03404  M00S03038.msm     +++|          LPN    77
03405  M00S03039.msm     +++|          LMC    ADCI
03406  M00S03040.msm     +++|          STM    SPFA-1
03407  M00S03041.msm     +++|          STM    GDEC-1
03408  M00S03042.msm     +++|          LPN    77
03409  M00S03043.msm     +++|          SHN    14
03410  M00S03044.msm     +++|          LMD    CM+4
03411  M00S03045.msm     +++|          STM    SPFA
03412  M00S03046.msm     +++|          STM    GDEC
03413  M00S03047.msm     +++|          SBD    TH
03414  M00S03048.msm     +++|          STM    SEIA+1
03415  M00S03049.msm     +++|          STM    SNTA+1
03416  M00S03050.msm     +++|          SHN    -14
03417  M00S03051.msm     +++|          LMC    ADCI
03418  M00S03052.msm     +++|          STM    SEIA
03419  M00S03053.msm     +++|          STM    SNTA
03420  M00S03054.msm     +++|          UJP    PTAX        RETURN
03421  M00S03055.msm     +++| SFT      SPACE  4,10
03422  M00S03056.msm     +++|**        SFT - SET FILE TYPE.
03423  M00S03057.msm     +++|*
03424  M00S03058.msm     +++|*         ENTRY  (BFMS) = SYSTEM SECTOR.
03425  M00S03059.msm     +++|*
Line S03060 Modification History
M01 (Removed by) ns2788
Seq #  *Modification Id* Act 
----------------------------+
03426  M01S03060.ns2788  ---|*         EXIT   (A) = (CN) = 0 IF QUEUE FILE.
03427  M01S03061.ns2788  ---|*                (CN) = FILE TYPE IF NOT QUEUE FILE.
03428  M01S03062.ns2788  ---|*                TO *RDA6* IF FILE TYPE NOT IN *RDAT* TABLE.
Line S00079 Modification History
M01 (Added by) ns2788
Seq #  *Modification Id* Act 
----------------------------+
03429  M01S00079.ns2788  +++|*         EXIT   (A) = 0, IF VALID FILE TYPE.
03430  M01S00080.ns2788  +++|*                (CN) = 0, IF QUEUE FILE.
03431  M01S00081.ns2788  +++|*                (CN) = FILE TYPE, IF NOT QUEUE FILE.
03432  M00S03063.msm     +++|*
03433  M00S03064.msm     +++|*         USES   T2.
03434  M00S03065.msm     +++|
03435  M00S03066.msm     +++|
03436  M00S03067.msm     +++| SFT2     LDM    RDAT,T2
03437  M00S03068.msm     +++|          SHN    -6
Line S03069 Modification History
M01 (Removed by) ns2788
Seq #  *Modification Id* Act 
----------------------------+
03438  M01S03069.ns2788  ---|          NJN    SFTX        IF NOT QUEUED FILE
Line S00082 Modification History
M01 (Added by) ns2788
Seq #  *Modification Id* Act 
----------------------------+
03439  M01S00082.ns2788  +++|          NJN    SFT3        IF NOT QUEUED FILE
03440  M00S03070.msm     +++|          STD    CN
Line S00083 Modification History
M01 (Added by) ns2788
Seq #  *Modification Id* Act 
----------------------------+
03441  M01S00083.ns2788  +++| SFT3     LDN    0           RETURN SUCCESSFUL STATUS
03442  M00S03071.msm     +++|
03443  M00S03072.msm     +++| SFT      SUBR               ENTRY/EXIT
03444  M00S03073.msm     +++|          LDN    RDATBL-1    SET TABLE LENGTH
03445  M00S03074.msm     +++|          STD    T2
03446  M00S03075.msm     +++|          LDM    FNSS+4      SET FILE TYPE
03447  M00S03076.msm     +++|          SHN    -6
03448  M00S03077.msm     +++|          STD    CN
03449  M00S03078.msm     +++| SFT1     LDD    CN          CHECK PRESERVED FILE TYPE
03450  M00S03079.msm     +++|          LMM    RDAT,T2
03451  M00S03080.msm     +++|          LPN    77
03452  M00S03081.msm     +++|          ZJN    SFT2        IF FILE TYPE MATCH
03453  M00S03082.msm     +++|          SOD    T2
03454  M00S03083.msm     +++|          PJN    SFT1        IF NOT END OF TABLE
Line S03084 Modification History
M01 (Removed by) ns2788
Seq #  *Modification Id* Act 
----------------------------+
03455  M01S03084.ns2788  ---|          LJM    RDA6        EXIT FILE TYPE NOT IN TABLE
Line S00084 Modification History
M01 (Added by) ns2788
Seq #  *Modification Id* Act 
----------------------------+
03456  M01S00084.ns2788  +++|          LDN    1
03457  M01S00085.ns2788  +++|          UJN    SFTX        RETURN ERROR STATUS
03458  M00S03085.msm     +++| SPF      SPACE  4,10
03459  M00S03086.msm     +++|**        SPF - SEARCH FOR PRESERVED FILE.
03460  M00S03087.msm     +++|*
03461  M00S03088.msm     +++|*         ENTRY  (CN+2) = TRT LENGTH.
03462  M00S03089.msm     +++|*                (CN+3) = CURRENT TRACK - 4000.
03463  M00S03090.msm     +++|*
03464  M00S03091.msm     +++|*         EXIT   (A) = (T6) = (FS+1) = FIRST TRACK OF FILE.
03465  M00S03092.msm     +++|*                    = 0 IF END OF TRT (ALL FILES CHECKED).
Line S00086 Modification History
M01 (Added by) ns2788
Seq #  *Modification Id* Act 
----------------------------+
03466  M01S00086.ns2788  +++|*                (FS+4) NONZERO.
03467  M00S03093.msm     +++|*
03468  M00S03094.msm     +++|*         USES   T1, T2, CM - CM+4.
03469  M00S03095.msm     +++|
03470  M00S03096.msm     +++|
03471  M00S03097.msm     +++| SPF      SUBR               ENTRY/EXIT
Line S00087 Modification History
M01 (Added by) ns2788
Seq #  *Modification Id* Act 
----------------------------+
03472  M01S00087.ns2788  +++|          LDN    1           ENSURE (FS+4) NONZERO
03473  M01S00088.ns2788  +++|          STD    FS+4
03474  M00S03098.msm     +++|          AOD    CN+3
03475  M00S03099.msm     +++|          SHN    21-1
03476  M00S03100.msm     +++|          STD    T2          SET TRT WORD INDEX
03477  M00S03101.msm     +++|          LMD    CN+2
03478  M00S03102.msm     +++|          ZJN    SPFX        IF END OF TRT
03479  M00S03103.msm     +++|          SHN    1-21
03480  M00S03104.msm     +++|          STD    T1          SET BYTE INDEX
03481  M00S03105.msm     +++| SPF1     LDD    T2
03482  M00S03106.msm     +++|          ADC    0           READ TRT WORD
03483  M00S03107.msm     +++| SPFA     EQU    *-1
03484  M00S03108.msm     +++|          CRD    CM
03485  M00S03109.msm     +++|          LDD    CM+4        CHECK FOR PRESERVED FILES
03486  M00S03110.msm     +++|          SHN    -10
03487  M00S03111.msm     +++|          STM    SPFB
03488  M00S03112.msm     +++|          NJN    SPF5        IF 1 TO 4 PRESERVED FILES THIS WORD
03489  M00S03113.msm     +++| SPF2     STD    T1
03490  M00S03114.msm     +++|          AOD    T2          ADVANCE TRT WORD INDEX
03491  M00S03115.msm     +++|          LMD    CN+2
03492  M00S03116.msm     +++|          NJN    SPF1        IF NOT END OF TRT
03493  M00S03117.msm     +++|*         LDN    0
03494  M00S03118.msm     +++|          UJN    SPFX        RETURN
03495  M00S03119.msm     +++|
03496  M00S03120.msm     +++| SPF4     AOD    T1          ADVANCE BYTE INDEX
03497  M00S03121.msm     +++|          LPN    3
03498  M00S03122.msm     +++|          ZJN    SPF2        IF END OF TRT WORD
03499  M00S03123.msm     +++| SPF5     LDM    SPFC,T1
03500  M00S03124.msm     +++|          LPC    0           CHECK FIRST TRACK OF PRESERVED FILE
03501  M00S03125.msm     +++| SPFB     EQU    *-1
03502  M00S03126.msm     +++|          ZJN    SPF4        IF FILE NOT PRESERVED
03503  M00S03127.msm     +++|          LDD    T2
03504  M00S03128.msm     +++|          SHN    2           CALCULATE TRT POSITION
03505  M00S03129.msm     +++|          LMD    T1
03506  M00S03130.msm     +++|          STD    CN+3
03507  M00S03131.msm     +++|          LMC    4000        SET TRACK NUMBER
03508  M00S03132.msm     +++|          STD    T6
03509  M00S03133.msm     +++|          LMC    **
03510  M00S03134.msm     +++| SPFD     EQU    *-1
03511  M00S03135.msm     +++|          ZJN    SPF4        IF *DAT* TRACK
03512  M00S03136.msm     +++|          LDD    T6
03513  M00S03137.msm     +++|          STD    FS+1
03514  M00S03138.msm     +++|          LJM    SPFX        RETURN
03515  M00S03139.msm     +++|
03516  M00S03140.msm     +++| SPFC     CON    10,4,2,1    PRESERVED FILE TRT FLAGS
03517  M00S03141.msm     +++| TQF      SPACE  4,15
03518  M00S03142.msm     +++|**        TQF - TERMINATE *IQFT*.
03519  M00S03143.msm     +++|*
03520  M00S03144.msm     +++|*         ENTRY  (T5) = EST ORDINAL.
03521  M00S03145.msm     +++|*                (T4) = CHANNEL.
03522  M00S03146.msm     +++|*                (QF) = FIRST TRACK OF *IQFT*.
03523  M00S03147.msm     +++|*                (QT) = CURRENT *IQFT* TRACK.
03524  M00S03148.msm     +++|*                (QS) = CURRENT *IQFT* SECTOR.
03525  M00S03149.msm     +++|*
03526  M00S03150.msm     +++|*         EXIT    EOI SECTOR WRITTEN ON *IQFT*.
03527  M00S03151.msm     +++|*
03528  M00S03152.msm     +++|*         USES   T1, T6, T7, CM - CM+4.
03529  M00S03153.msm     +++|*
03530  M00S03154.msm     +++|*         CALLS  WEI, WQF.
03531  M00S03155.msm     +++|*
03532  M00S03156.msm     +++|*         MACROS MONITOR, SMSTF.
03533  M00S03157.msm     +++|
03534  M00S03158.msm     +++|
03535  M00S03159.msm     +++| TQF2     LDD    QF          RELEASE *IQFT* CHAIN
03536  M00S03160.msm     +++|          STD    CM+2
03537  M00S03161.msm     +++|          LDD    T5
03538  M00S03162.msm     +++|          STD    CM+1
03539  M00S03163.msm     +++|          MONITOR  DTKM
03540  M00S03164.msm     +++| TQF3     AOM    CQFA        RESET QUEUE FILE PROCESSING ENABLED
03541  M00S03165.msm     +++|
03542  M00S03166.msm     +++| TQF      SUBR               ENTRY/EXIT
03543  M00S03167.msm     +++| TQFA     LDN    0
03544  M00S03168.msm     +++|*         LDN    1           (QUEUE FILE PROCESSING INITIATED)
03545  M00S03169.msm     +++|          ZJN    TQF3        IF NO QUEUE FILE PROCESSING
03546  M00S03170.msm     +++|          SOM    TQFA
03547  M00S03171.msm     +++|          STM    CQFC
03548  M00S03172.msm     +++|          LDD    QT
03549  M00S03173.msm     +++|          ZJN    TQF2        IF RELEASING *IQFT*
03550  M00S03174.msm     +++|          RJM    WQF         WRITE LAST *IQFT* SECTOR
03551  M00S03175.msm     +++|          LDC    500
03552  M00S03176.msm     +++|          STD    T1
03553  M00S03177.msm     +++| TQF1     LDN    0           CLEAR EOI SECTOR BUFFER
Line S03178 Modification History
M01 (Removed by) ns2788
Seq #  *Modification Id* Act 
----------------------------+
03554  M01S03178.ns2788  ---|          STM    BFMS+1,T1
Line S00089 Modification History
M01 (Added by) ns2788
Seq #  *Modification Id* Act 
----------------------------+
03555  M01S00089.ns2788  +++|          STM    SBUF+1,T1
03556  M00S03179.msm     +++|          SOD    T1
03557  M00S03180.msm     +++|          NJN    TQF1        LOOP TO START OF BUFFER
03558  M00S03181.msm     +++|          LDD    MA          MOVE FILE NAME TO BUFFER
03559  M00S03182.msm     +++|          CWM    IQFA,ON
03560  M00S03183.msm     +++|          SBN    1
Line S03184 Modification History
M01 (Removed by) ns2788
Seq #  *Modification Id* Act 
----------------------------+
03561  M01S03184.ns2788  ---|          CRM    BFMS+FNEI,ON
Line S00090 Modification History
M01 (Added by) ns2788
Seq #  *Modification Id* Act 
----------------------------+
03562  M01S00090.ns2788  +++|          CRM    SBUF+FNEI,ON
03563  M00S03185.msm     +++|          LDD    T5          SETUP EOI/SYSTEM SECTOR BUFFER
Line S03186 Modification History
M01 (Removed by) ns2788
Seq #  *Modification Id* Act 
----------------------------+
03564  M01S03186.ns2788  ---|          STM    BFMS+FSEI
Line S00091 Modification History
M01 (Added by) ns2788
Seq #  *Modification Id* Act 
----------------------------+
03565  M01S00091.ns2788  +++|          STM    SBUF+FSEI
03566  M00S03187.msm     +++|          LDD    QF
Line S03188 Modification History
M01 (Removed by) ns2788
Seq #  *Modification Id* Act 
----------------------------+
03567  M01S03188.ns2788  ---|          STM    BFMS+FTEI
Line S00092 Modification History
M01 (Added by) ns2788
Seq #  *Modification Id* Act 
----------------------------+
03568  M01S00092.ns2788  +++|          STM    SBUF+FTEI
03569  M00S03189.msm     +++|          LDD    QT          SET CURRENT *IQFT* TRACK AND SECTOR
03570  M00S03190.msm     +++|          STD    T6
03571  M00S03191.msm     +++|          LDD    QS
03572  M00S03192.msm     +++|          STD    T7
03573  M00S03193.msm     +++|          RJM    WEI         WRITE EOI SECTOR
03574  M00S03194.msm     +++|          ENDMS
03575  M00S03195.msm     +++|          LDD    T5          SET EOI IN TRT
03576  M00S03196.msm     +++|          STD    CM+1
03577  M00S03197.msm     +++|          LDD    QT
03578  M00S03198.msm     +++|          LPC    3777
03579  M00S03199.msm     +++|          STD    CM+2
03580  M00S03200.msm     +++|          LDD    QS
03581  M00S03201.msm     +++|          STD    CM+3
03582  M00S03202.msm     +++|          MONITOR  DTKM
03583  M00S03203.msm     +++|          LDN    SPFS        SET PRESERVED FILE STATUS ON *IQFT*
03584  M00S03204.msm     +++|          STD    CM+3
03585  M00S03205.msm     +++|          LDD    QF
03586  M00S03206.msm     +++|          STD    CM+2
03587  M00S03207.msm     +++|          LDD    T5
03588  M00S03208.msm     +++|          STD    CM+1
03589  M00S03209.msm     +++|          MONITOR  STBM
03590  M00S03210.msm     +++|          LDN    SIQS        SET *IQFT* INDICATOR IN MST
03591  M00S03211.msm     +++|          STD    CM+3
03592  M00S03212.msm     +++|          LDD    QF
03593  M00S03213.msm     +++|          STD    CM+2
03594  M00S03214.msm     +++|          LDD    T5
03595  M00S03215.msm     +++|          STD    CM+1
03596  M00S03216.msm     +++|          MONITOR  STBM
03597  M00S03217.msm     +++|          SMSTF  LCKP        SET CHECKPOINT REQUEST
03598  M00S03218.msm     +++|          LJM    TQF3        RETURN
Line S00093 Modification History
M01 (Added by) ns2788
Seq #  *Modification Id* Act 
----------------------------+
03599  M01S00093.ns2788  +++| VFR      SPACE  4,10
03600  M01S00094.ns2788  +++|**        VFR - VERIFY FILE FOR RECOVERY DEADSTART.
03601  M01S00095.ns2788  +++|*
03602  M01S00096.ns2788  +++|*         ENTRY  SYSTEM SECTOR IN *BFMS*.
03603  M01S00097.ns2788  +++|*
03604  M01S00098.ns2788  +++|*         EXIT   (RDAM) NONZERO IF ERROR IN TRT CHAIN.
03605  M01S00099.ns2788  +++|*
03606  M01S00100.ns2788  +++|*         CALLS  PFE, VTC.
03607  M01S00101.ns2788  +++|*
03608  M01S00102.ns2788  +++|*         MACROS ENDMS.
03609  M01S00103.ns2788  +++|
03610  M01S00104.ns2788  +++|
03611  M01S00105.ns2788  +++| VFR      SUBR               ENTRY/EXIT
03612  M01S00106.ns2788  +++|          ENDMS
03613  M01S00107.ns2788  +++|          LDD    CN
03614  M01S00108.ns2788  +++|          NJN    VFR1        IF NOT QUEUED FILE
03615  M01S00109.ns2788  +++|          LDM    FLSS
03616  M01S00110.ns2788  +++|          SHN    21-13
03617  M01S00111.ns2788  +++|          MJN    VFRX        IF LENGTH ERROR STATUS ALREADY SET
03618  M01S00112.ns2788  +++| VFR1     RJM    VTC         VERIFY TRACK CHAIN
03619  M01S00113.ns2788  +++|          ZJN    VFRX        IF NO TRT CHAIN ERROR
03620  M01S00114.ns2788  +++|          RJM    PFE         ISSUE FILE ERROR MESSAGE
03621  M01S00115.ns2788  +++|          AOM    RDAM        FORCE SETTING OF ERROR IDLE STATUS
03622  M01S00116.ns2788  +++|          UJN    VFRX        RETURN
03623  M00S03219.msm     +++| VTC      SPACE  4,10
03624  M00S03220.msm     +++|**        VTC - VERIFY TRACK CHAIN.
03625  M00S03221.msm     +++|*
03626  M00S03222.msm     +++|*         ENTRY  (T5) = EST ORDINAL.
03627  M00S03223.msm     +++|*                (T6) = FIRST TRACK OF PRESERVED FILE.
03628  M00S03224.msm     +++|*
03629  M00S03225.msm     +++|*         EXIT   (A) = 0 IF TRACK CHAIN GOOD / VALIDATION DISABLED.
03630  M00S03226.msm     +++|*
03631  M00S03227.msm     +++|*         USES   CM - CM+4.
03632  M00S03228.msm     +++|
03633  M00S03229.msm     +++|
03634  M00S03230.msm     +++| VTC      SUBR               ENTRY/EXIT
03635  M00S03231.msm     +++| VTCA     LDN    0
03636  M00S03232.msm     +++|          ZJN    VTCX        IF MASS STORAGE VALIDATION DISABLED
03637  M00S03233.msm     +++|          LDD    T5
03638  M00S03234.msm     +++|          STD    CM+1
03639  M00S03235.msm     +++|          LDD    T6          SET UP MONITOR CALL
03640  M00S03236.msm     +++|          STD    CM+2
03641  M00S03237.msm     +++|          LDN    VTCS        REQUEST TRACK CHAIN VALIDATION
03642  M00S03238.msm     +++|          STD    CM+3
03643  M00S03239.msm     +++|          MONITOR VMSM
03644  M00S03240.msm     +++|          LDD    CM+1
03645  M00S03241.msm     +++|          UJN    VTCX        RETURN
03646  M00S03242.msm     +++| WQF      SPACE  4,15
03647  M00S03243.msm     +++|**        WQF - WRITE QUEUED FILE SECTOR.
03648  M00S03244.msm     +++|*
03649  M00S03245.msm     +++|*         WQF WRITES THE SECTOR OF QUEUED FILE ENTRIES.
03650  M00S03246.msm     +++|*
03651  M00S03247.msm     +++|*         ENTRY  (QT) = INACTIVE QUEUES FILE TRACK.
03652  M00S03248.msm     +++|*                (QS) = INACTIVE QUEUES FILE SECTOR.
03653  M00S03249.msm     +++|*                (QI) = INACTIVE QUEUED FILE INDEX.
03654  M00S03250.msm     +++|*
03655  M00S03251.msm     +++|*         USES   T3, T6, T7, QS, CM - CM+4, CSSA.
03656  M00S03252.msm     +++|*
Line S03253 Modification History
M01 (Removed by) msm48
Seq #  *Modification Id* Act 
----------------------------+
03657  M01S03253.msm48   ---|*         CALLS  BAD, DFM, WDS.
Line S00048 Modification History
M01 (Added by) msm48
Seq #  *Modification Id* Act 
----------------------------+
03658  M01S00048.msm48   +++|*         CALLS  DFM, WDS.
03659  M00S03254.msm     +++|*
03660  M00S03255.msm     +++|*         MACROS ENDMS, MONITOR, SETMS.
03661  M00S03256.msm     +++|
03662  M00S03257.msm     +++|
03663  M00S03258.msm     +++| WQF      SUBR               ENTRY/EXIT
03664  M00S03259.msm     +++|          LDD    QT          SET *IQFT* TRACK
03665  M00S03260.msm     +++|          STD    T6
03666  M00S03261.msm     +++|          LDD    QS          SET *IQFT* SECTOR
03667  M00S03262.msm     +++|          STD    T7
03668  M00S03263.msm     +++|          ADN    1           SET SECTOR LINKAGE
03669  M00S03264.msm     +++|          STM    SBUF
03670  M00S03265.msm     +++|          STD    QS          SET NEXT *IQFT* SECTOR
03671  M00S03266.msm     +++|          LMM    SLM
03672  M00S03267.msm     +++|          NJN    WQF1        IF NOT LAST SECTOR
03673  M00S03268.msm     +++|          ENDMS
03674  M00S03269.msm     +++|*         LDN    0
03675  M00S03270.msm     +++|          STD    CM+3        RESET SECTOR
03676  M00S03271.msm     +++|          STD    CM+4
03677  M00S03272.msm     +++|          STD    QS
03678  M00S03273.msm     +++|          LDD    T5
03679  M00S03274.msm     +++|          STD    CM+1
03680  M00S03275.msm     +++|          LDD    T6
03681  M00S03276.msm     +++|          STD    CM+2
03682  M00S03277.msm     +++|          MONITOR RTCM       REQUEST TRACK
03683  M00S03278.msm     +++|          LDD    CM+4
03684  M00S03279.msm     +++|          STM    SBUF        DISK LINKAGE
03685  M00S03280.msm     +++|          ZJN    WQF4        IF TRACK NOT ASSIGNED
03686  M00S03281.msm     +++|          STD    QT
03687  M00S03282.msm     +++| WQF1     SETMS  POSITION
03688  M00S03283.msm     +++|          LDD    QI          SET WORD COUNT IN LINKAGE
03689  M00S03284.msm     +++|          STM    SBUF+1
03690  M00S03285.msm     +++|          ZJN    WQF2        IF EMPTY SECTOR
Line S03286 Modification History
M01 (Removed by) msm48
Seq #  *Modification Id* Act 
----------------------------+
03691  M01S03286.msm48   ---|          RJM    BAD         GET CM BUFFER ADDRESS
Line S00049 Modification History
M01 (Added by) msm48
Seq #  *Modification Id* Act 
----------------------------+
03692  M01S00049.msm48   +++|          LDD    RA
03693  M01S00050.msm48   +++|          SHN    6
03694  M01S00051.msm48   +++|          ADD    CR          FWA OF IQFT BUFFER
03695  M00S03287.msm     +++|          CRM    SBUF+2,QI   READ PRU BACK
03696  M00S03288.msm     +++| WQF2     LDC    SBUF+WLSF
03697  M00S03289.msm     +++|          RJM    WDS         WRITE SECTOR
03698  M00S03290.msm     +++|          LDN    0
03699  M00S03291.msm     +++|          STD    QI          RESET QUEUE INDEX
03700  M00S03292.msm     +++| WQF3     LJM    WQFX        RETURN
03701  M00S03293.msm     +++|
03702  M00S03294.msm     +++|*         NO SPACE AVAILABLE LEAVE PRU FOR EOI SECTOR.
03703  M00S03295.msm     +++|
03704  M00S03296.msm     +++| WQF4     STM    CQFA        DISABLE QUEUE FILE PROCESSING
03705  M00S03297.msm     +++|          LDD    T7          RESET SECTOR
03706  M00S03298.msm     +++|          STD    QS
03707  M00S03299.msm     +++|          LDC    IQFB        *EQXXX, TRACK LIMIT ON IQFT.*
03708  M00S03300.msm     +++|          RJM    DFM
03709  M00S03301.msm     +++|          UJN    WQF3        RETURN
Line S03302 Modification History
M01 (Removed by) ns2788
Seq #  *Modification Id* Act 
----------------------------+
03710  M01S03302.ns2788  ---| IDM      SPACE  4
Line S00117 Modification History
M01 (Added by) ns2788
Seq #  *Modification Id* Act 
----------------------------+
03711  M01S00117.ns2788  +++| IDM      SPACE  4,20
03712  M00S03303.msm     +++|**        IDM - ISSUE DAYFILE MESSAGES FOR FILES PROCESSED.
03713  M00S03304.msm     +++|*
03714  M00S03305.msm     +++|*         ENTRY  (PMPC) = PRESERVED FILE ERROR COUNT.
03715  M00S03306.msm     +++|*                (PMEC) = FILE ERROR COUNT.
03716  M00S03307.msm     +++|*                (PMFC) = FILE RECOVERY COUNT.
03717  M00S03308.msm     +++|*                (PMRC) = QUEUED FILE RECOVERY COUNT.
03718  M00S03309.msm     +++|*                (PMQC) = QUEUED FILE ERROR COUNT.
03719  M00S03310.msm     +++|*                (PQIC) = QUEUED FILES IGNORED COUNT.
03720  M00S03311.msm     +++|*                (FN - FN+4) = EST ENTRY.
03721  M00S03312.msm     +++|*                (T5) = EQUIPMENT.
03722  M00S03313.msm     +++|*
03723  M00S03314.msm     +++|*         EXIT   APPROPRIATE MESSAGES ISSUED TO DAYFILE.
03724  M00S03315.msm     +++|*
03725  M00S03316.msm     +++|*         USES   T1, T7, CM - CM+4.
03726  M00S03317.msm     +++|*
03727  M00S03318.msm     +++|*         CALLS  ACS, DFM, IRM.
03728  M00S03319.msm     +++|
03729  M00S03320.msm     +++|
03730  M00S03321.msm     +++| IDM3     RJM    IRM         ISSUE RECOVERY MESSAGES
03731  M00S03322.msm     +++|
03732  M00S03323.msm     +++| IDM      SUBR               ENTRY/EXIT
03733  M00S03324.msm     +++|          LDC    IDMA-1      SET BIASED MESSAGE ADDRESS
03734  M00S03325.msm     +++|          STD    T7
03735  M00S03326.msm     +++|
03736  M00S03327.msm     +++|*         ISSUE FILES PROCESSED.
03737  M00S03328.msm     +++|
03738  M00S03329.msm     +++| IDM1     AOD    T7          ADVANCE ADDRESS
03739  M00S03330.msm     +++|          LMC    IDMB
03740  M00S03331.msm     +++|          ZJN    IDM3        IF END OF MESSAGES
03741  M00S03332.msm     +++|          LDI    T7
03742  M00S03333.msm     +++|          ZJN    IDM1        IF NO COUNT
03743  M00S03334.msm     +++|          LDN    ZERL        CLEAR COUNT
03744  M00S03335.msm     +++|          CRD    CM
03745  M00S03336.msm     +++|
03746  M00S03337.msm     +++|*         SET COUNT TO COUNT*1000.
03747  M00S03338.msm     +++|
03748  M00S03339.msm     +++| IDM2     LDC    1000D
03749  M00S03340.msm     +++|          RAD    CM+4
03750  M00S03341.msm     +++|          SHN    -14
03751  M00S03342.msm     +++|          RAD    CM+3
03752  M00S03343.msm     +++|          SOI    T7          DECREMENT COUNT
03753  M00S03344.msm     +++|          NJN    IDM2        IF MORE TO CONVERT
03754  M00S03345.msm     +++|          LDC    IDMD
03755  M00S03346.msm     +++|          STD    T1
03756  M00S03347.msm     +++|          LDD    MA          CONVERT COUNT
03757  M00S03348.msm     +++|          CWD    CM
03758  M00S03349.msm     +++|          MONITOR RDCM
03759  M00S03350.msm     +++|          STI    T1
03760  M00S03351.msm     +++|          LDD    MA
03761  M00S03352.msm     +++|          CRD    CM
03762  M00S03353.msm     +++|          LDD    CM+1
03763  M00S03354.msm     +++|          STM    IDMC+3
03764  M00S03355.msm     +++|          LDD    CM+2
03765  M00S03356.msm     +++|          STM    IDMC+4
03766  M00S03357.msm     +++|          LDM    IDMB-IDMA,T7  ADD DESCRIPTION TO MESSAGE
03767  M00S03358.msm     +++|          RJM    ACS
03768  M00S03359.msm     +++|          LDC    IDMC        ISSUE MESSAGE
03769  M00S03360.msm     +++|          RJM    DFM
03770  M00S03361.msm     +++|          LJM    IDM1        LOOP FOR NEXT MESSAGE
03771  M00S03362.msm     +++|
03772  M00S03363.msm     +++|
03773  M00S03364.msm     +++| IDMA     BSS    0
03774  M00S03365.msm     +++| PMFC     CON    0           FILE RECOVERY COUNT
03775  M00S03366.msm     +++| PMPC     CON    0           PRESERVED FILE ERROR COUNT
03776  M00S03367.msm     +++| PMEC     CON    0           PERMANENT FILE ERROR COUNT
03777  M00S03368.msm     +++| PMRC     CON    0           QUEUED FILE RECOVERY COUNT
03778  M00S03369.msm     +++| PMQC     CON    0           QUEUED FILE ERROR COUNT
03779  M00S03370.msm     +++| PQIC     CON    0           QUEUED FILES IGNORED COUNT
03780  M00S03371.msm     +++|
03781  M00S03372.msm     +++| IDMB     CON    =C* DIRECT ACCESS FILES RECOVERED.*
03782  M00S03373.msm     +++|          CON    =C* PRESERVED FILE ERRORS.*
03783  M00S03374.msm     +++|          CON    =C* DIRECT ACCESS FILE ERRORS.*
03784  M00S03375.msm     +++|          CON    =C* QUEUED FILES RECOVERED.*
03785  M00S03376.msm     +++|          CON    =C* QUEUED FILE ERRORS.*
03786  M00S03377.msm     +++|          CON    =C* QUEUED FILES IGNORED.*
03787  M00S03378.msm     +++|
03788  M00S03379.msm     +++| IDMC     DATA   H*EQXXX NNNN*
03789  M00S03380.msm     +++| IDMD     BSS    21
Line S03381 Modification History
M01 (Removed by) ns2788
Seq #  *Modification Id* Act 
----------------------------+
03790  M01S03381.ns2788  ---| IRM      SPACE  4
Line S00118 Modification History
M01 (Added by) ns2788
Seq #  *Modification Id* Act 
----------------------------+
03791  M01S00118.ns2788  +++| IRM      SPACE  4,10
03792  M00S03382.msm     +++|**        IRM - ISSUE RECOVERY MESSAGES.
03793  M00S03383.msm     +++|*
03794  M00S03384.msm     +++|*         ENTRY  (FN - FN+4) = EST ENTRY.
03795  M00S03385.msm     +++|*
03796  M00S03386.msm     +++|*         EXIT   MESSAGES ISSUED TO ACCOUNTING AND SYSTEM DAYFILES.
03797  M00S03387.msm     +++|*                EVENT SET FOR AUXILIARY DEVICE.
03798  M00S03388.msm     +++|*
03799  M00S03389.msm     +++|*         USES   T1, T3, T4, T6, T7, CM - CM+4, CN - CN+4.
03800  M00S03390.msm     +++|*
03801  M00S03391.msm     +++|*         CALLS  ACS, C2D, DFM.
03802  M00S03392.msm     +++|
03803  M00S03393.msm     +++|
03804  M00S03394.msm     +++| IRM      SUBR               ENTRY/EXIT
03805  M00S03395.msm     +++|          LDD    FN+4        GET FAMILY/PACKNAME
03806  M00S03396.msm     +++|          SHN    3
03807  M00S03397.msm     +++|          ADN    PFGL
03808  M00S03398.msm     +++|          CRD    CM
03809  M00S03399.msm     +++|          ADN    PUGL-PFGL   READ USER NAME
03810  M00S03400.msm     +++|          CRD    CN
03811  M00S03401.msm     +++|          LDC    2REQ
03812  M00S03402.msm     +++|          STM    IRMB
03813  M00S03403.msm     +++|          LDC    IRMB+3      SET ADDRESS OF ASSEMBLY BUFFER
03814  M00S03404.msm     +++|          STD    T1
03815  M00S03405.msm     +++|          LDC    2L          RESET BUFFER
03816  M00S03406.msm     +++|          STI    T1
03817  M00S03407.msm     +++|          LDD    CM+4        SAVE SECURITY ACCESS LEVELS
03818  M00S03408.msm     +++|          SHN    -6
03819  M00S03409.msm     +++|          STD    T4
03820  M00S03410.msm     +++|          LDN    0           SET *END OF LINE* IN (CM+4)
03821  M00S03411.msm     +++|          STD    CM+4
03822  M00S03412.msm     +++|          LDD    CM+3        EXTRACT DEVICE NUMBER
03823  M00S03413.msm     +++|          LPN    77
03824  M00S03414.msm     +++|          STD    T7
03825  M00S03415.msm     +++|          LMD    CM+3        CLEAR DEVICE NUMBER
03826  M00S03416.msm     +++|          STD    CM+3
03827  M00S03417.msm     +++|          ADD    CM+2        BUILD PACKNAME HASH
03828  M00S03418.msm     +++|          ADD    CM+1
03829  M00S03419.msm     +++|          ADD    CM
03830  M00S03420.msm     +++|          STD    CN+4        SAVE PACKNAME HASH
03831  M00S03421.msm     +++|          LDD    CN+3        SET END OF USER NAME
03832  M00S03422.msm     +++|          SCN    77
03833  M00S03423.msm     +++|          STD    CN+3
03834  M00S03424.msm     +++|          LDN    CM          ADD FAMILY/PACKNAME TO MESSAGE
03835  M00S03425.msm     +++|          RJM    ACS
03836  M00S03426.msm     +++|          LDD    T7
03837  M00S03427.msm     +++|          ZJN    IRM1        IF AUXILIARY DEVICE
03838  M00S03428.msm     +++|          RJM    C2D         CONVERT DEVICE NUMBER
03839  M00S03429.msm     +++|          STD    CM+3
03840  M00S03430.msm     +++|          LDC    =C*, *      ADD SEPARATOR
03841  M00S03431.msm     +++|          RJM    ACS
03842  M00S03432.msm     +++|          LDN    CM+3        ADD DEVICE NUMBER TO MESSAGE
03843  M00S03433.msm     +++|          RJM    ACS
03844  M00S03434.msm     +++|          LDC    2RPM&2RDR   SET ACCOUNT FILE MESSAGE PREFIX
03845  M00S03435.msm     +++| IRM1     LMC    2RPM
03846  M00S03436.msm     +++|          STM    IRMA+1
03847  M00S03437.msm     +++|          LDD    T1          SAVE CURRENT END OF ASSEMBLY
03848  M00S03438.msm     +++|          STD    T3
03849  M00S03439.msm     +++|          LDI    T1
03850  M00S03440.msm     +++|          STD    T6
03851  M00S03441.msm     +++|          LDC    IRMD        ADD * RECOVERED.* TO MESSAGE
03852  M00S03442.msm     +++|          RJM    ACS
03853  M00S03443.msm     +++|          LDC    IRMB        ISSUE SYSTEM DAYFILE MESSAGE
03854  M00S03444.msm     +++|          RJM    DFM
03855  M00S03445.msm     +++|          LDD    T3          SET START OF NEW ASSEMBLY
03856  M00S03446.msm     +++|          STD    T1
03857  M00S03447.msm     +++|          LDD    T6
03858  M00S03448.msm     +++|          STI    T1
03859  M00S03449.msm     +++|          LDC    2R,         REPLACE *EQ* WITH *, *
03860  M00S03450.msm     +++|          STM    IRMB
03861  M00S03451.msm     +++|          LDC    =C*, *      INSERT SEPARATOR
03862  M00S03452.msm     +++|          RJM    ACS
03863  M00S03453.msm     +++|          LDD    T7
03864  M00S03454.msm     +++|          NJN    IRM2        IF PERMANENT FILE DEVICE
03865  M00S03455.msm     +++|          LDN    CN          ADD USER NAME TO MESSAGE
03866  M00S03456.msm     +++|          RJM    ACS
03867  M00S03457.msm     +++|          LDC    =C*, *      INSERT SEPARATOR
03868  M00S03458.msm     +++|          RJM    ACS
03869  M00S03459.msm     +++| IRM2     LDD    T4          GET LOWER SECURITY ACCESS LEVEL
03870  M00S03460.msm     +++|          SHN    -3
03871  M00S03461.msm     +++|          SHN    2           CALCULATE INDEX INTO ACCESS TABLE
03872  M00S03462.msm     +++|          ADC    TALV        INSERT LOWER ACCESS LEVEL
03873  M00S03463.msm     +++|          RJM    ACS
03874  M00S03464.msm     +++|          LDC    =C*, *      INSERT SEPARATOR
03875  M00S03465.msm     +++|          RJM    ACS
03876  M00S03466.msm     +++|          LDD    T4          GET UPPER ACCESS LEVEL
03877  M00S03467.msm     +++|          LPN    7
03878  M00S03468.msm     +++|          SHN    2           CALCULATE INDEX INTO ACCESS TABLE
03879  M00S03469.msm     +++|          ADC    TALV        INSERT UPPER ACCESS LEVEL
03880  M00S03470.msm     +++|          RJM    ACS
03881  M00S03471.msm     +++|          LDC    IRME        ADD *.* TO END OF MESSAGE
03882  M00S03472.msm     +++|          RJM    ACS
03883  M00S03473.msm     +++|          LDC    IRMA+ACFN   ISSUE ACCOUNT FILE MESSAGE
03884  M00S03474.msm     +++|          RJM    DFM
03885  M00S03475.msm     +++|          LDK    SSTL
03886  M00S03476.msm     +++|          CRD    CM
03887  M00S03477.msm     +++|          LDD    CM+1
03888  M00S03478.msm     +++|          SHN    21-5
03889  M00S03479.msm     +++|          PJN    IRM3        IF DISK VALIDATION IS ENABLED
03890  M00S03480.msm     +++|          LDD    T7
03891  M00S03481.msm     +++|          NJN    IRM3        IF NOT AUXILIARY DEVICE
03892  M00S03482.msm     +++|          STD    CM+1        SET EVENT
03893  M00S03483.msm     +++|          LDN    VSNE/10000
03894  M00S03484.msm     +++|          STD    CM+3
03895  M00S03485.msm     +++|          LDD    CN+4        READ PACKNAME HASH
03896  M00S03486.msm     +++|          STD    CM+4
03897  M00S03487.msm     +++|          MONITOR EATM
03898  M00S03488.msm     +++| IRM3     LJM    IRMX        RETURN
03899  M00S03489.msm     +++|
03900  M00S03490.msm     +++|
03901  M00S03491.msm     +++| IRMA     DATA   4HADDR
03902  M00S03492.msm     +++| IRMB     DATA   H*EQXXX, *
03903  M00S03493.msm     +++| IRMC     BSS    22
03904  M00S03494.msm     +++|
03905  M00S03495.msm     +++| IRMD     DATA   10H RECOVERED
03906  M00S03496.msm     +++| IRME     DATA   C*.*
Line S00003 Modification History
M01 (Added by) 284l847
Seq #  *Modification Id* Act 
----------------------------+
03907  M01S00003.284l847 +++| LSN      SPACE  4,15
03908  M01S00004.284l847 +++|**        LSN - LIST PACK SERIAL NUMBERS.
03909  M01S00005.284l847 +++|*
03910  M01S00006.284l847 +++|*         ENTRY  (EQ) = EST ORDINAL.
03911  M01S00007.284l847 +++|*                (FN - FN+4) = EST ENTRY FOR EQUIPMENT.
03912  M01S00008.284l847 +++|*
03913  M01S00009.284l847 +++|*         EXIT   PACK SERIAL NUMBER IDENTIFICATION MESSAGES ISSUED TO
03914  M01S00010.284l847 +++|*                THE ERROR LOG FOR ALL UNITS OF THE EQUIPMENT.
03915  M01S00011.284l847 +++|*
03916  M01S00012.284l847 +++|*         USES   CM+1, T1, T2, CN - CN+4, FS+1 - FS+3.
03917  M01S00013.284l847 +++|*
03918  M01S00014.284l847 +++|*         CALLS  DFM, SDR, *0PI*.
03919  M01S00015.284l847 +++|*
03920  M01S00016.284l847 +++|*         MACROS EXECUTE.
03921  M01S00017.284l847 +++|
03922  M01S00018.284l847 +++|
03923  M01S00019.284l847 +++| LSN4     LDN    TLSNL-1     CHECK DEVICE TYPE FOR NON-*LDAM* DEVICE
03924  M01S00020.284l847 +++|          STD    T1
03925  M01S00021.284l847 +++| LSN5     LDD    FN+3
03926  M01S00022.284l847 +++|          LMM    TLSN,T1
03927  M01S00023.284l847 +++|          ZJN    LSNX        IF DEVICE TYPE MATCHES
03928  M01S00024.284l847 +++|          SOD    T1
03929  M01S00025.284l847 +++|          PJN    LSN5        IF MORE DEVICE TYPES TO CHECK
03930  M01S00026.284l847 +++| LSN6     LDN    LDIF
03931  M01S00027.284l847 +++|          RJM    /RDA/SDR    SET BUFFERED DEVICE REQUEST
03932  M01S00028.284l847 +++|
03933  M01S00029.284l847 +++| LSN      SUBR               ENTRY/EXIT
03934  M01S00030.284l847 +++|          LDD    FN+4
03935  M01S00031.284l847 +++|          SHN    3
03936  M01S00032.284l847 +++|          ADN    DDLL        GET LOGICAL UNIT COUNT
03937  M01S00033.284l847 +++|          CRD    CN
03938  M01S00034.284l847 +++|          LDD    CN          EXTRACT UNIT COUNT
03939  M01S00035.284l847 +++|          LPN    7
03940  M01S00036.284l847 +++|          STD    CN
03941  M01S00037.284l847 +++|          STD    T2
03942  M01S00038.284l847 +++|          LDD    FN
03943  M01S00039.284l847 +++|          SHN    21-7
03944  M01S00040.284l847 +++|          PJN    LSN4        IF NOT *LDAM* DEVICE
03945  M01S00041.284l847 +++|          LDD    FN+1
03946  M01S00042.284l847 +++|          SHN    21-5
03947  M01S00043.284l847 +++|          MJN    LSN6        IF CONCURRENT CHANNEL
03948  M01S00044.284l847 +++|          LDD    T5
03949  M01S00045.284l847 +++|          STM    /RDA/SBUF
03950  M01S00046.284l847 +++|          EXECUTE 0PI,/RDA/SBUF+1
03951  M01S00047.284l847 +++|          STD    FS+3        SAVE MAIN PROCESSOR ADDRESS
03952  M01S00048.284l847 +++|          LDN    0           SET TO FIRST LOGICAL UNIT
03953  M01S00049.284l847 +++|          STD    FS+1
03954  M01S00050.284l847 +++| LSN1     LDD    FS+1        GET MESSAGE FOR A LOGICAL UNIT
03955  M01S00051.284l847 +++|          RJM    0,FS+3
03956  M01S00052.284l847 +++|          ZJN    LSN2        IF MASS STORAGE ERROR
03957  M01S00053.284l847 +++|          STD    FS+2        SAVE MESSAGE TABLE ADDRESS
03958  M01S00054.284l847 +++|          SHN    -14         SET BML MESSAGE LENGTH
03959  M01S00055.284l847 +++|          STD    CM+1
03960  M01S00056.284l847 +++|          LDC    BMLN
03961  M01S00057.284l847 +++|          ADM    1,FS+2      ADD BML MESSAGE ADDRESS
03962  M01S00058.284l847 +++|          RJM    DFM
03963  M01S00059.284l847 +++|          LDI    FS+2        GET ERROR LOG MESSAGE ADDRESS
03964  M01S00060.284l847 +++|          LMC    ERLN        SEND MESSAGE TO ERROR LOG
03965  M01S00061.284l847 +++|          RJM    DFM
03966  M01S00062.284l847 +++| LSN2     AOD    FS+1        ADVANCE LOGICAL UNIT
03967  M01S00063.284l847 +++|          SOD    CN          DECREMENT LOGICAL UNIT COUNT
03968  M01S00064.284l847 +++|          PJN    LSN1        IF MORE LOGICAL UNITS
03969  M01S00065.284l847 +++|          LJM    LSNX        EXIT
03970  M01S00066.284l847 +++|
03971  M01S00067.284l847 +++|
03972  M01S00068.284l847 +++| TLSN     BSS    0           NON-*LDAM* DEVICES WITH NO PSN-S TO LIST
03973  M01S00069.284l847 +++|          CON    2RDE        EXTENDED MEMORY
03974  M01S00070.284l847 +++|          CON    2RDP        EXTENDED MEMORY/STORNET
03975  M01S00071.284l847 +++|          CON    2RDV        819
03976  M01S00072.284l847 +++|          CON    2RDW        819
03977  M01S00073.284l847 +++|
03978  M01S00074.284l847 +++| TLSNL    EQU    *-TLSN      LENGTH OF TABLE
Line S03497 Modification History
M01 (Removed by) ns2788
Seq #  *Modification Id* Act 
----------------------------+
03979  M01S03497.ns2788  ---| PFE      SPACE  4
Line S00119 Modification History
M01 (Added by) ns2788
Seq #  *Modification Id* Act 
----------------------------+
03980  M01S00119.ns2788  +++| PFE      SPACE  4,15
03981  M00S03498.msm     +++|**        PFE - PERMANENT FILE ERROR.
03982  M00S03499.msm     +++|*
Line S03500 Modification History
M01 (Removed by) ns2788
Seq #  *Modification Id* Act 
----------------------------+
03983  M01S03500.ns2788  ---|*         ENTRY  (A) = 0 IF OPERATOR INTERVENTION NOT ALLOWED.
03984  M01S03501.ns2788  ---|*                (CN) = FILE TYPE.
Line S00120 Modification History
M01 (Added by) ns2788
Seq #  *Modification Id* Act 
----------------------------+
03985  M01S00120.ns2788  +++|*         ENTRY  (CN) = FILE TYPE.
03986  M00S03502.msm     +++|*                (BFMS) LOADED WITH SYSTEM SECTOR.
03987  M00S03503.msm     +++|*
Line S03504 Modification History
M01 (Removed by) ns2788
Seq #  *Modification Id* Act 
----------------------------+
03988  M01S03504.ns2788  ---|*         EXIT   (A) = GO/NOGO STATUS IF REQUIRED.
Line S00121 Modification History
M01 (Added by) ns2788
Seq #  *Modification Id* Act 
----------------------------+
03989  M01S00121.ns2788  +++|*         EXIT   ERROR MESSAGE ISSUED TO ERROR LOG AND SYSTEM DAYFILE.
03990  M01S00122.ns2788  +++|*                APPROPIATE ERROR COUNT INCREMENTED.
03991  M00S03505.msm     +++|*
Line S03506 Modification History
M01 (Removed by) ns2788
Seq #  *Modification Id* Act 
----------------------------+
03992  M01S03506.ns2788  ---|*         USES   T1 - T3, CM - CM+4, CN+4
Line S00123 Modification History
M01 (Added by) ns2788
Seq #  *Modification Id* Act 
----------------------------+
03993  M01S00123.ns2788  +++|*         USES   T1 - T3, CM - CM+4.
03994  M00S03507.msm     +++|*
03995  M00S03508.msm     +++|*         CALLS  ACS, C2D, DFM.
03996  M00S03509.msm     +++|*
03997  M00S03510.msm     +++|*         MACROS ENDMS.
03998  M00S03511.msm     +++|
03999  M00S03512.msm     +++|
04000  M00S03513.msm     +++| PFE      SUBR               ENTRY/EXIT
Line S03514 Modification History
M01 (Removed by) ns2788
Seq #  *Modification Id* Act 
----------------------------+
04001  M01S03514.ns2788  ---|          STD    CN+4
04002  M00S03515.msm     +++|          ENDMS
04003  M00S03516.msm     +++|          LDD    CN
04004  M00S03517.msm     +++|          NJN    PFE1        IF NOT QUEUE FILE
Line S00009 Modification History
M01 (Added by) msm46
Seq #  *Modification Id* Act 
----------------------------+
04005  M01S00009.msm46   +++|          AOM    PMQC        ADVANCE QUEUED FILE ERROR COUNT
04006  M01S00010.msm46   +++|          LDC    2RQF
04007  M01S00011.msm46   +++|          UJN    PFE1.1      SET MESSAGE PREFIX
04008  M01S00012.msm46   +++|
04009  M01S00013.msm46   +++| PFE1     LMN    LIFT
04010  M01S00014.msm46   +++|          NJN    PFE1.2      IF NOT A LIBRARY FILE
04011  M01S00015.msm46   +++|          LDC    2RLI
04012  M01S00016.msm46   +++| PFE1.1   STM    PFEA        SET MESSAGE PREFIX
04013  M00S03518.msm     +++|
Line S03519 Modification History
M01 (Removed by) msm46
Seq #  *Modification Id* Act 
----------------------------+
04014  M01S03519.msm46   ---|*         IF QUEUED FILE BLANK USER INDEX.
Line S00017 Modification History
M01 (Added by) msm46
Seq #  *Modification Id* Act 
----------------------------+
04015  M01S00017.msm46   +++|*         BLANK USER INDEX FOR QUEUED FILE OR LIBRARY FILE.
04016  M00S03520.msm     +++|
04017  M00S03521.msm     +++|          LDC    2R          BLANK USER INDEX
04018  M00S03522.msm     +++|          STM    PFEB
04019  M00S03523.msm     +++|          STM    PFEB+1
04020  M00S03524.msm     +++|          STM    PFEB+2
Line S03525 Modification History
M01 (Removed by) msm46
Seq #  *Modification Id* Act 
----------------------------+
04021  M01S03525.msm46   ---|          LDC    2RQF        SET MESSAGE PREFIX
04022  M01S03526.msm46   ---|          STM    PFEA
04023  M01S03527.msm46   ---|          AOM    PMQC        ADVANCE QUEUED FILE ERROR COUNT
04024  M00S03528.msm     +++|          LDD    MA
04025  M00S03529.msm     +++|          CWM    FNSS,ON
04026  M00S03530.msm     +++|          UJN    PFE2        MOVE FILE NAME TO MESSAGE
04027  M00S03531.msm     +++|
04028  M00S03532.msm     +++|*         PROCESS PERMANENT FILE ERROR.
04029  M00S03533.msm     +++|
Line S03534 Modification History
M01 (Removed by) msm46
Seq #  *Modification Id* Act 
----------------------------+
04030  M01S03534.msm46   ---| PFE1     LMN    LIFT
04031  M01S03535.msm46   ---|          ZJN    PFEX        IF LIBRARY FILE (DAYFILE)
04032  M01S03536.msm46   ---|          AOM    PMEC        ADVANCE ERROR COUNT
Line S00018 Modification History
M01 (Added by) msm46
Seq #  *Modification Id* Act 
----------------------------+
04033  M01S00018.msm46   +++| PFE1.2   AOM    PMEC        ADVANCE ERROR COUNT
04034  M00S03537.msm     +++|          LDM    CTSS+FCUI   FIRST 2 DIGITS
04035  M00S03538.msm     +++|          RJM    C2D
04036  M00S03539.msm     +++|          STM    PFEB
04037  M00S03540.msm     +++|          LDM    CTSS+FCUI+1 SECOND 2 DIGITS
04038  M00S03541.msm     +++|          SHN    -6
04039  M00S03542.msm     +++|          RJM    C2D
04040  M00S03543.msm     +++|          STM    PFEB+1
04041  M00S03544.msm     +++|          LDM    CTSS+FCUI+1 LAST 2 DIGITS
04042  M00S03545.msm     +++|          RJM    C2D
04043  M00S03546.msm     +++|          STM    PFEB+2
04044  M00S03547.msm     +++|          LDC    2RPF        SET FILE TYPE
04045  M00S03548.msm     +++|          STM    PFEA
04046  M00S03549.msm     +++|          LDD    MA          MOVE FILE NAME TO MESSAGE
04047  M00S03550.msm     +++|          CWM    CTSS+FCFN,ON
04048  M00S03551.msm     +++| PFE2     SBN    1
04049  M00S03552.msm     +++|          CRM    PFEC,ON
04050  M00S03553.msm     +++|          LDM    PFEC+3      CLEAR 8TH CHARACTER
04051  M00S03554.msm     +++|          SCN    77
04052  M00S03555.msm     +++|          STM    PFEC+3
04053  M00S03556.msm     +++|          LDC    IDMC+3      SET MESSAGE ADDRESSES
04054  M00S03557.msm     +++|          STD    T1
04055  M00S03558.msm     +++|          LDC    PFED+5
04056  M00S03559.msm     +++|          STD    T3
04057  M00S03560.msm     +++|          LDN    T7          SET SECTOR ADDRESS
04058  M00S03561.msm     +++|          STD    T2
04059  M00S03562.msm     +++| PFE3     LDI    T2          CONVERT DISK ADDRESS OF ERROR
04060  M00S03563.msm     +++|          RJM    C2D
04061  M00S03564.msm     +++|          STI    T3          STORE IN MESSAGE
04062  M00S03565.msm     +++|          SOD    T3
04063  M00S03566.msm     +++|          LDI    T2          CONVERT UPPER HALF OF SECTOR/TRACK
04064  M00S03567.msm     +++|          SHN    -6
04065  M00S03568.msm     +++|          RJM    C2D
04066  M00S03569.msm     +++|          STI    T3          STORE IN MESSAGE
04067  M00S03570.msm     +++|          LCN    2           DECREMENT MESSAGE ADDRESS
04068  M00S03571.msm     +++|          RAD    T3
04069  M00S03572.msm     +++|          SOD    T2          DECREMENT PARAMETER ADDRESS
04070  M00S03573.msm     +++|          LMN    T6-1
04071  M00S03574.msm     +++|          NJN    PFE3        IF TRACK NOT CONVERTED
04072  M00S03575.msm     +++|          STM    PFEC+4      SET END OF MESSAGE I
04073  M00S03576.msm     +++|          STI    T1
04074  M00S03577.msm     +++|          LDC    RDAD+2      ASSEMBLE FIRST PART OF MESSAGE II
04075  M00S03578.msm     +++|          RJM    ACS
04076  M00S03579.msm     +++|          AOD    T3          ASSEMBLE END OF MESSAGE II
04077  M00S03580.msm     +++|          RJM    ACS
Line S03581 Modification History
M01 (Removed by) ns2788
Seq #  *Modification Id* Act 
----------------------------+
04078  M01S03581.ns2788  ---|          LDC    PFEA+ERLN   ISSUE TO ERROR LOG
Line S00124 Modification History
M01 (Added by) ns2788
Seq #  *Modification Id* Act 
----------------------------+
04079  M01S00124.ns2788  +++|          LDC    PFEE+ERLN   ISSUE TO ERROR LOG
04080  M00S03582.msm     +++|          RJM    DFM
04081  M00S03583.msm     +++|          LDC    IDMC+ERLN
04082  M00S03584.msm     +++|          RJM    DFM
Line S03585 Modification History
M01 (Removed by) ns2788
Seq #  *Modification Id* Act 
----------------------------+
04083  M01S03585.ns2788  ---|          LDC    PFEA+NMSN   ISSUE TO SYSTEM
Line S00125 Modification History
M01 (Added by) ns2788
Seq #  *Modification Id* Act 
----------------------------+
04084  M01S00125.ns2788  +++|          LDC    PFEE+NMSN   ISSUE TO SYSTEM
04085  M00S03586.msm     +++|          RJM    DFM
Line S03587 Modification History
M01 (Removed by) ns2788
Seq #  *Modification Id* Act 
----------------------------+
04086  M01S03587.ns2788  ---|          LDD    CN+4
04087  M01S03588.ns2788  ---|          ZJN    PFE5        IF NO OPERATOR INTERVENTION REQUIRED
Line S03589 Modification History
M01 (Removed by) msm48
M02 (Removed by) ns2788
Seq #  *Modification Id* Act 
----------------------------+
04088  M02S03589.ns2788  ---|          LDM    BADA
Line S00052 Modification History
M01 (Added by) msm48
M02 (Removed by) ns2788
Seq #  *Modification Id* Act 
----------------------------+
04089  M02S00052.ns2788  ---| PFEE     LDN    0
04090  M02S00053.ns2788  ---|*         LDN    1           (*1RF* CALL)
Line S03590 Modification History
M01 (Removed by) ns2788
Seq #  *Modification Id* Act 
----------------------------+
04091  M01S03590.ns2788  ---|          NJN    PFE6        IF *REC/1RF* CALL
04092  M01S03591.ns2788  ---|          LDD    CP          READ SENSE SWITCH WORD
04093  M01S03592.ns2788  ---|          ADN    SNSW
04094  M01S03593.ns2788  ---|          CRD    CM
04095  M01S03594.ns2788  ---|          STD    T3
04096  M01S03595.ns2788  ---|          LDN    3           SET PAUSE + NOGO FLAGS
04097  M01S03596.ns2788  ---|          STD    CM+3
04098  M01S03597.ns2788  ---|          LDD    T3          STORE SENSE SWITCH WORD
04099  M01S03598.ns2788  ---|          CWD    CM
04100  M01S03599.ns2788  ---| PFE4     LDD    T3
04101  M01S03600.ns2788  ---|          ADN    MS2W-SNSW   STORE CONTROL POINT MESSAGE
04102  M01S03601.ns2788  ---|          CWM    IDMC,TR
04103  M01S03602.ns2788  ---|          LCN    0           WAIT AWHILE
04104  M01S03603.ns2788  ---|          SBN    1
04105  M01S03604.ns2788  ---|          NJN    *-1
04106  M01S03605.ns2788  ---|          PAUSE  NE
04107  M01S03606.ns2788  ---|          LDD    T3          READ SENSE SWITCH WORD
04108  M01S03607.ns2788  ---|          CRD    CM
04109  M01S03608.ns2788  ---|          LDD    CM+3        CHECK ON OPERATOR INPUT
04110  M01S03609.ns2788  ---|          LPN    2
04111  M01S03610.ns2788  ---|          NJN    PFE4        LOOP UNTIL OPERATOR RESPONDS
04112  M01S03611.ns2788  ---|          LMD    CM+3        (A) = OPERATOR RESPONSE
04113  M01S03612.ns2788  ---| PFE5     UJN    PFE8        RETURN
Line S00126 Modification History
M01 (Added by) ns2788
Seq #  *Modification Id* Act 
----------------------------+
04114  M01S00126.ns2788  +++|          LJM    PFEX        RETURN
04115  M00S03613.msm     +++|
Line S03614 Modification History
M01 (Removed by) ns2788
Seq #  *Modification Id* Act 
----------------------------+
04116  M01S03614.ns2788  ---|*         TELL *REC* TO ISSUE THE MESSAGE.
04117  M01S03615.ns2788  ---|
04118  M01S03616.ns2788  ---| PFE6     LDD    MA          WRITE OPERATOR MESSAGE
04119  M01S03617.ns2788  ---|          CWM    IDMC,TR
04120  M01S03618.ns2788  ---|          LDC    4000        INDICATE WAITING FOR OPERATOR REPLY
04121  M01S03619.ns2788  ---|          STD    IR+3
04122  M01S03620.ns2788  ---|          LDD    IA          STORE INPUT REGISTER
04123  M01S03621.ns2788  ---|          CWD    IR
04124  M01S03622.ns2788  ---| PFE7     DELAY              WAIT 125 USECS
04125  M01S03623.ns2788  ---|          LDD    IA
04126  M01S03624.ns2788  ---|          CRD    IR
04127  M01S03625.ns2788  ---|          LDD    IR+3        CHECK RESPONSE FROM *REC*
04128  M01S03626.ns2788  ---|          SHN    21-13
04129  M01S03627.ns2788  ---|          MJN    PFE7        IF NO REPLY YET
04130  M01S03628.ns2788  ---|*         SHN    13-21
04131  M01S03629.ns2788  ---| PFE8     LJM    PFEX        RETURN
04132  M01S03630.ns2788  ---|
Line S00127 Modification History
M01 (Added by) ns2788
Seq #  *Modification Id* Act 
----------------------------+
04133  M01S00127.ns2788  +++| PFEE     DATA   H*EQXXX *
04134  M00S03631.msm     +++| PFEA     DATA   H*PF LENGTH ERROR *
04135  M00S03632.msm     +++| PFEB     DATA   H*UINDEX  *
04136  M00S03633.msm     +++| PFEC     DATA   H*FILENAME  *
Line S03634 Modification History
M01 (Removed by) ns2788
Seq #  *Modification Id* Act 
----------------------------+
04137  M01S03634.ns2788  ---|
04138  M00S03635.msm     +++| PFED     DATA   C* TTTTT SSSSS LINKAGE ERROR.*
Line S03636 Modification History
M01 (Removed by) ns2669
Seq #  *Modification Id* Act 
----------------------------+
04139  M01S03636.ns2669  ---| CTU      SPACE  4
Line S00005 Modification History
M01 (Added by) ns2669
Seq #  *Modification Id* Act 
----------------------------+
04140  M01S00005.ns2669  +++| CTU      SPACE  4,10
04141  M00S03637.msm     +++|**        CTU - CLEAR TOTAL USER COUNTS.
04142  M00S03638.msm     +++|*
04143  M00S03639.msm     +++|*         ENTRY  (CN) = FILE TYPE.
04144  M00S03640.msm     +++|*                (FS+1) = FIRST TRACK OF FILE.
04145  M00S03641.msm     +++|*                (CN+1) = SYSTEM SECTOR REWRITE FLAG.
04146  M00S03642.msm     +++|*
Line S03643 Modification History
M01 (Removed by) ns2669
Seq #  *Modification Id* Act 
----------------------------+
04147  M01S03643.ns2669  ---|*         USES   T1, T6.
Line S00006 Modification History
M01 (Added by) ns2669
Seq #  *Modification Id* Act 
----------------------------+
04148  M01S00006.ns2669  +++|*         USES   T1.
04149  M00S03644.msm     +++|*
Line S03645 Modification History
M01 (Removed by) ns2669
Seq #  *Modification Id* Act 
----------------------------+
04150  M01S03645.ns2669  ---|*         CALLS  WSS.
04151  M01S03646.ns2669  ---|*
04152  M01S03647.ns2669  ---|*         MACROS SETMS.
Line S00007 Modification History
M01 (Added by) ns2669
Seq #  *Modification Id* Act 
----------------------------+
04153  M01S00007.ns2669  +++|*         CALLS  WSR.
04154  M00S03648.msm     +++|
04155  M00S03649.msm     +++|
04156  M00S03650.msm     +++| CTU2     AOM    PMFC        ADVANCE DAF RECOVERY COUNT
04157  M00S03651.msm     +++|
04158  M00S03652.msm     +++| CTU      SUBR               ENTRY/EXIT
04159  M00S03653.msm     +++|          LDD    CN+1
04160  M00S03654.msm     +++|          ZJN    CTU2        IF NO SYSTEM SECTOR REWRITE
04161  M00S03655.msm     +++|          LDD    CN
04162  M00S03656.msm     +++|          LMN    LIFT
04163  M00S03657.msm     +++|          ZJN    CTU2        IF LIBRARY FILE
04164  M00S03658.msm     +++|          LDC    5*MMPF+5
04165  M00S03659.msm     +++|          STD    T1
04166  M00S03660.msm     +++| CTU1     LDN    0           CLEAR USER COUNT FIELDS
04167  M00S03661.msm     +++|          STM    UCSS-1,T1
04168  M00S03662.msm     +++|          SOD    T1
04169  M00S03663.msm     +++|          NJN    CTU1
04170  M00S03664.msm     +++|          STM    CASS        CLEAR CURRENT ACCESS MODE
04171  M00S03665.msm     +++|          STM    FISS        CLEAR FAST ATTACH FLAGS
04172  M00S03666.msm     +++|          LDD    FS+1        RESET FIRST TRACK
Line S03667 Modification History
M01 (Removed by) ns2669
Seq #  *Modification Id* Act 
----------------------------+
04173  M01S03667.ns2669  ---|          STD    T6
04174  M01S03668.ns2669  ---|          SETMS  IO,RW
04175  M01S03669.ns2669  ---|          RJM    WSS         WRITE SYSTEM SECTOR
Line S00008 Modification History
M01 (Added by) ns2669
Seq #  *Modification Id* Act 
----------------------------+
04176  M01S00008.ns2669  +++|          RJM    WSR         WRITE SYSTEM SECTOR WITH REWRITE
04177  M00S03670.msm     +++|          UJN    CTU2        ADVANCE DAF RECOVERY COUNT
Line S03671 Modification History
M01 (Removed by) ns2788
Seq #  *Modification Id* Act 
----------------------------+
04178  M01S03671.ns2788  ---| GDE      SPACE  4
Line S00128 Modification History
M01 (Added by) ns2788
Seq #  *Modification Id* Act 
----------------------------+
04179  M01S00128.ns2788  +++| GDE      SPACE  4,15
04180  M00S03672.msm     +++|**        GDE - GET DAT ENTRY.
04181  M00S03673.msm     +++|*
04182  M00S03674.msm     +++|*         ENTRY  (FN - FN+4) = EST ENTRY FOR DEVICE.
04183  M00S03675.msm     +++|*                (T3) = 0 IF DEVICE NOT BEING INITIALIZED.
04184  M00S03676.msm     +++|*                (T7) = BYTE 0 OF MDGL WORD.
04185  M00S03677.msm     +++|*                (CN - CN+4) = TDGL WORD OF MST.
04186  M00S03678.msm     +++|*
04187  M00S03679.msm     +++|*         EXIT   (DATB) = SECOND WORD OF DAT ENTRY.
04188  M00S03680.msm     +++|*
04189  M00S03681.msm     +++|*         USES   T1, T2, CM - CM+4.
04190  M00S03682.msm     +++|*
04191  M00S03683.msm     +++|*         CALLS  CPS, CUS, IRM, WDE.
04192  M00S03684.msm     +++|*
04193  M00S03685.msm     +++|*         MACROS MMTE, MONITOR, UJMF.
04194  M00S03686.msm     +++|
04195  M00S03687.msm     +++|
04196  M00S03688.msm     +++| GDE3     LDD    CN+2        SET *DIT* OFFSET
04197  M00S03689.msm     +++|          SBN    10-7
04198  M00S03690.msm     +++|          SHN    -3
04199  M00S03691.msm     +++|          ADD    CN+2
04200  M00S03692.msm     +++|          STD    T2
04201  M00S03693.msm     +++|          LDN    0
04202  M00S03694.msm     +++|          STD    T1
04203  M00S03695.msm     +++| GDE4     AOD    T1
04204  M00S03696.msm     +++|          LMN    MISD
04205  M00S03697.msm     +++|          ZJN    GDEX        IF ALL ENTRIES CHECKED
04206  M00S03698.msm     +++|          LDD    T1
04207  M00S03699.msm     +++|          ADC    0           READ *DIT* ENTRY
04208  M00S03700.msm     +++| GDEC     EQU    *-1
04209  M00S03701.msm     +++|          ADD    T2
04210  M00S03702.msm     +++|          CRD    CM
04211  M00S03703.msm     +++|          LDD    CM+4
04212  M00S03704.msm     +++|          ZJN    GDE4        IF ENTRY NOT USED
04213  M00S03705.msm     +++|          LMC    *
04214  M00S03706.msm     +++| GDED     EQU    *-1
04215  M00S03707.msm     +++|          ZJN    GDE4        IF THIS MACHINE
04216  M00S03708.msm     +++|          LJM    GDE1        ISSUE RECOVERY MESSAGES
04217  M00S03709.msm     +++|
04218  M00S03710.msm     +++| GDE      SUBR               ENTRY/EXIT
04219  M00S03711.msm     +++|          LDD    FN
04220  M00S03712.msm     +++|          SHN    21-4
04221  M00S03713.msm     +++|          MJN    GDE3        IF INDEPENDENT SHARED DEVICE
04222  M00S03714.msm     +++|          UJMF   GDEX
04223  M00S03715.msm     +++|          LDN    1-1         WORD COUNT FOR *ECSM* REQUEST
04224  M00S03716.msm     +++|          STD    CM+1
04225  M00S03717.msm     +++|          LDD    T7          SET *DAT* ORDINAL FROM INDEX
04226  M00S03718.msm     +++|          LPC    377
04227  M00S03719.msm     +++|          SHN    1
04228  M00S03720.msm     +++|          ADC    1           ADD DAT TRACK ADDRESS
04229  M00S03721.msm     +++| GDEA     EQU    *-1
04230  M00S03722.msm     +++|          STD    CM+4
04231  M00S03723.msm     +++|          STM    WDEA
04232  M00S03724.msm     +++|          SHN    -14
04233  M00S03725.msm     +++|          ADC    RECS*1000
04234  M00S03726.msm     +++| GDEB     EQU    *-1
04235  M00S03727.msm     +++|          STD    CM+3
04236  M00S03728.msm     +++|          STM    WDEB
04237  M00S03729.msm     +++|          LDD    MA          CM ADDRESS = PP MESSAGE BUFFER
04238  M00S03730.msm     +++|          STD    CM+2
04239  M00S03731.msm     +++|          MONITOR ECSM
04240  M00S03732.msm     +++|          LDD    MA          READ *DAT* ENTRY TO PP BUFFER
04241  M00S03733.msm     +++|          CRM    DATB,ON
04242  M00S03734.msm     +++|          LDD    T3
04243  M00S03735.msm     +++|          NJN    GDE2        IF DEVICE BEING INITIALIZED
04244  M00S03736.msm     +++|          LDM    DATB+4      CHECK DEVICE STATUS
04245  M00S03737.msm     +++|          LPC    -0
04246  M00S03738.msm     +++|          MMTE   *-1
04247  M00S03739.msm     +++|          NJN    GDE1        IF RECOVERY COMPLETE
04248  M00S03740.msm     +++|          LJM    GDEX        RETURN
04249  M00S03741.msm     +++|
04250  M00S03742.msm     +++| GDE1     RJM    IRM         ISSUE RECOVERY MESSAGES
04251  M00S03743.msm     +++|          RJM    CPS         CHECK PFC SIZE
04252  M00S03744.msm     +++|          RJM    CUS
04253  M00S03745.msm     +++| GDE2     RJM    WDE         UPDATE DAT ENTRY
04254  M00S03746.msm     +++|          LJM    RDAX        EXIT OVERLAY
Line S03747 Modification History
M01 (Removed by) ns2788
Seq #  *Modification Id* Act 
----------------------------+
04255  M01S03747.ns2788  ---| WDE      SPACE  4
Line S00129 Modification History
M01 (Added by) ns2788
Seq #  *Modification Id* Act 
----------------------------+
04256  M01S00129.ns2788  +++| WDE      SPACE  4,10
04257  M00S03748.msm     +++|**        WDE - WRITE DAT ENTRY TO EXTENDED MEMORY.
04258  M00S03749.msm     +++|*
04259  M00S03750.msm     +++|*         ENTRY  *DATI* INTERLOCK SET.
04260  M00S03751.msm     +++|*                DAT ENTRY IN DATB.
04261  M00S03752.msm     +++|
04262  M00S03753.msm     +++|
04263  M00S03754.msm     +++| WDE      SUBR               ENTRY/EXIT
04264  M00S03755.msm     +++|          UJMF   WDEX
04265  M00S03756.msm     +++|          LDM    DATB+4      SET MACHINE ACCESS
04266  M00S03757.msm     +++|          LPC    -0
04267  M00S03758.msm     +++|          MMTE   *-1
04268  M00S03759.msm     +++|          LMC    0
04269  M00S03760.msm     +++|          MMTE   *-1
04270  M00S03761.msm     +++|          STM    DATB+4
04271  M00S03762.msm     +++|          LDC    **          SET DAT ADDRESS
04272  M00S03763.msm     +++| WDEA     EQU    *-1
04273  M00S03764.msm     +++|          STD    CM+4
04274  M00S03765.msm     +++|          LDC    **
04275  M00S03766.msm     +++| WDEB     EQU    *-1
04276  M00S03767.msm     +++|          ADD    TH
04277  M00S03768.msm     +++|          ERRNZ  RECS+1-WECS ADJUST IF *RECS/WECS* VALUES CHANGE
04278  M00S03769.msm     +++|          STD    CM+3
04279  M00S03770.msm     +++|          LDD    MA          SET CM ADDRESS OF ENTRY
04280  M00S03771.msm     +++|          STD    CM+2
04281  M00S03772.msm     +++|          CWM    DATB,ON
04282  M00S03773.msm     +++|          LDN    1-1         WORD COUNT FOR TRANSFER
04283  M00S03774.msm     +++|*         SHN    6
04284  M00S03775.msm     +++|          STD    CM+1
04285  M00S03776.msm     +++|          MONITOR ECSM
04286  M00S03777.msm     +++|          UJN    WDEX        RETURN
Line S03778 Modification History
M01 (Removed by) ns2669
Seq #  *Modification Id* Act 
----------------------------+
04287  M01S03778.ns2669  ---|          SPACE  4
Line S00009 Modification History
M01 (Added by) ns2669
Seq #  *Modification Id* Act 
----------------------------+
04288  M01S00009.ns2669  +++| WSR      SPACE  4,15
04289  M01S00010.ns2669  +++|**        WSR - WRITE SYSTEM SECTOR WITH REWRITE.
04290  M01S00011.ns2669  +++|*
04291  M01S00012.ns2669  +++|*         ENTRY  (A) = FIRST TRACK OF FILE.
04292  M01S00013.ns2669  +++|*                (T5) = EST ORDINAL.
04293  M01S00014.ns2669  +++|*                *SETMS IO* PERFORMED.
04294  M01S00015.ns2669  +++|*
04295  M01S00016.ns2669  +++|*         EXIT   (T6) = FIRST TRACK OF FILE.
04296  M01S00017.ns2669  +++|*
04297  M01S00018.ns2669  +++|*         USES   T6.
04298  M01S00019.ns2669  +++|*
04299  M01S00020.ns2669  +++|*         CALLS  WSS.
04300  M01S00021.ns2669  +++|*
04301  M01S00022.ns2669  +++|*         MACROS SETMS.
04302  M01S00023.ns2669  +++|
04303  M01S00024.ns2669  +++| WSR      SUBR               ENTRY/EXIT
04304  M01S00025.ns2669  +++|          STD    T6
04305  M01S00026.ns2669  +++|          SETMS  POSITION
04306  M01S00027.ns2669  +++|          LDM    UERR        SAVE ERROR PROCESSING OPTIONS
04307  M01S00028.ns2669  +++|          STM    WSRA+1
04308  M01S00029.ns2669  +++|          LMD    HN          SET REWRITE MODE
04309  M01S00030.ns2669  +++|          ERRNZ  EPRW-100    CODE DEPENDS ON VALUE
04310  M01S00031.ns2669  +++|          STM    UERR
04311  M01S00032.ns2669  +++|          SETMS  =,IO,RW
04312  M01S00033.ns2669  +++|          RJM    WSS         REWRITE SYSTEM SECTOR
04313  M01S00034.ns2669  +++| WSRA     LDC    0           RESET ERROR PROCESSING OPTIONS
04314  M01S00035.ns2669  +++|          STM    UERR
04315  M01S00036.ns2669  +++|          SETMS  =,IO
04316  M01S00037.ns2669  +++|          UJN    WSRX        RETURN
04317  M01S00038.ns2669  +++|          SPACE  4,10
04318  M00S03779.msm     +++|**        COMMON DECKS.
04319  M00S03780.msm     +++|
04320  M00S03781.msm     +++|
04321  M00S03782.msm     +++|*CALL     COMPACS
Line S00005 Modification History
M01 (Added by) ns2547
Seq #  *Modification Id* Act 
----------------------------+
04322  M01S00005.ns2547  +++|*CALL     COMPCLC
Line S03783 Modification History
M01 (Removed by) ns2788
Seq #  *Modification Id* Act 
----------------------------+
04323  M01S03783.ns2788  ---|*CALL     COMPSEI
04324  M01S03784.ns2788  ---|*CALL     COMPSMI
04325  M01S03785.ns2788  ---|*CALL     COMPSNT
04326  M01S03786.ns2788  ---|*CALL     COMPWEI
04327  M01S03787.ns2788  ---|*CALL     COMPWSS
04328  M00S03788.msm     +++|*CALL     COMPC2D
04329  M00S03789.msm     +++|*CALL     COMPSDA
04330  M00S03790.msm     +++|*CALL     COMPSDR
04331  M00S03791.msm     +++|*CALL     COMPRSS
Line S00130 Modification History
M01 (Added by) ns2788
Seq #  *Modification Id* Act 
----------------------------+
04332  M01S00130.ns2788  +++|*CALL     COMPSEI
04333  M00S03792.msm     +++|*CALL     COMPSES
Line S00131 Modification History
M01 (Added by) ns2788
Seq #  *Modification Id* Act 
----------------------------+
04334  M01S00131.ns2788  +++|*CALL     COMPSMI
04335  M01S00132.ns2788  +++|*CALL     COMPSNT
04336  M00S03793.msm     +++|*CALL     COMPTLB
04337  M00S03794.msm     +++|*CALL     COMPTGB
Line S00133 Modification History
M01 (Added by) ns2788
Seq #  *Modification Id* Act 
----------------------------+
04338  M01S00133.ns2788  +++| VAL$     SET    1
04339  M01S00134.ns2788  +++|*CALL     COMPVLC
04340  M01S00135.ns2788  +++| WEIA     EQU    SBUF        USE *SBUF* FOR EOI BUFFER
04341  M01S00136.ns2788  +++|*CALL     COMPWEI
04342  M01S00137.ns2788  +++|*CALL     COMPWSS
04343  M01S00138.ns2788  +++|          LIST   X
04344  M00S03795.msm     +++|*CALL     COMPVEI
Line S03796 Modification History
M01 (Removed by) ns2788
Seq #  *Modification Id* Act 
----------------------------+
04345  M01S03796.ns2788  ---| VAL$     SET    1
04346  M01S03797.ns2788  ---|*CALL     COMPVLC
Line S00139 Modification History
M01 (Added by) ns2788
Seq #  *Modification Id* Act 
----------------------------+
04347  M01S00139.ns2788  +++|          LIST   *
04348  M00S03798.msm     +++|
04349  M00S03799.msm     +++|
04350  M00S03800.msm     +++|          USE    LITERALS
04351  M00S03801.msm     +++|
04352  M00S03802.msm     +++|          ERRNG  SBUF-*      CODE OVERFLOWS INTO BUFFER
Line S03803 Modification History
M01 (Removed by) ns2788
Seq #  *Modification Id* Act 
----------------------------+
04353  M01S03803.ns2788  ---| PRS      SPACE  4
Line S00140 Modification History
M01 (Added by) ns2788
Seq #  *Modification Id* Act 
----------------------------+
04354  M01S00140.ns2788  +++|          TITLE  PRESET.
04355  M01S00141.ns2788  +++| PRS      SPACE  4,10
04356  M00S03804.msm     +++|**        PRS - PRESET.
04357  M00S03805.msm     +++|
04358  M00S03806.msm     +++|
04359  M00S03807.msm     +++| PRS2     STD    T2          SET INSTRUCTION ADDRESS
04360  M00S03808.msm     +++|          LDN    PSNI        REPLACE INSTRUCTION WITH *PSN*
04361  M00S03809.msm     +++|          STI    T2
04362  M00S03810.msm     +++|          AOD    T1          ADVANCE LIST ADDRESS
04363  M00S03811.msm     +++| PRS3     LDI    T1
04364  M00S03812.msm     +++|          NJN    PRS2        LOOP TO END OF LIST
04365  M00S03813.msm     +++| PRSX     LJM    RDEX        EXIT OVERLAY
04366  M00S03814.msm     +++|
04367  M00S03815.msm     +++| PRS      BSS    0           ENTRY
04368  M00S03816.msm     +++|          LDN    SSTL        READ SYSTEM STATUS
04369  M00S03817.msm     +++|          CRD    CM
04370  M00S03818.msm     +++|          LDD    CM          ENABLE/DISABLE TRACK CHAIN VALIDATION
04371  M00S03819.msm     +++|          LPN    4
04372  M00S03820.msm     +++|          LMN    4
04373  M00S03821.msm     +++|          RAM    VTCA
04374  M00S03822.msm     +++|          LDD    RS
04375  M00S03823.msm     +++|          NJN    PRS0        IF RECOVERY DEADSTART
Line S03824 Modification History
M01 (Removed by) ns2788
Seq #  *Modification Id* Act 
----------------------------+
04376  M01S03824.ns2788  ---|          LDC    CQF         ENABLE QUEUE FILE CHECKING
04377  M01S03825.ns2788  ---|          STM    RDAB
04378  M00S03826.msm     +++|          LDN    PSNI        SET LEVEL-0 RECOVERY
04379  M00S03827.msm     +++|          STM    RDAA
04380  M00S03828.msm     +++| PRS0     LDC    MMFL        READ MMF STATUS WORD
04381  M00S03829.msm     +++|          CRD    CM
04382  M00S03830.msm     +++|          LDD    CM          SET MACHINE ID
04383  M00S03831.msm     +++|          STM    GDED
04384  M00S03832.msm     +++|          LDD    CM+1
04385  M00S03833.msm     +++|          LPC    777
04386  M00S03834.msm     +++|          ZJN    PRSX        IF NOT MMF SYSTEM
04387  M00S03835.msm     +++|          SFA    EST         READ EST ENTRY FOR LINK DEVICE
04388  M00S03836.msm     +++|          ADK    EQDE
04389  M00S03837.msm     +++|          CRD    CN
04390  M00S03838.msm     +++|          LDD    CN+4        SET EXTENDED MEMORY MST POINTER
04391  M00S03839.msm     +++|          STM    LDMP
04392  M00S03840.msm     +++|          SHN    3           READ DEVICE ALLOCATION WORD
04393  M00S03841.msm     +++|          ADN    ALGL
04394  M00S03842.msm     +++|          CRD    CN
04395  M00S03843.msm     +++|          LDD    CN+4        SET DAT TRACK
04396  M00S03844.msm     +++|          STD    T6
04397  M00S03845.msm     +++|          LDN    0
04398  M00S03846.msm     +++|          STD    T7
04399  M00S03847.msm     +++|          LDC    T"QUAL"     SET LIST ADDRESS
04400  M00S03848.msm     +++|          STD    T1
04401  M00S03849.msm     +++|          LDI    T1          SET INSTRUCTION ADDRESS
04402  M00S03850.msm     +++| PRS1     STD    T0
04403  M00S03851.msm     +++|          LDD    CM+3        SET MACHINE MASK
04404  M00S03852.msm     +++|          LMI    T0
04405  M00S03853.msm     +++|          STI    T0
04406  M00S03854.msm     +++|          AOD    T1          ADVANCE LIST ADDRESS
04407  M00S03855.msm     +++|          LDI    T1
04408  M00S03856.msm     +++|          NJN    PRS1        LOOP TO END OF TABLE
04409  M00S03857.msm     +++|          RJM    CEA
04410  M00S03858.msm     +++|          LDD    CM+4        SET ADDRESS IN CODE
04411  M00S03859.msm     +++|          RAM    GDEA
04412  M00S03860.msm     +++|          LDD    CM+3
04413  M00S03861.msm     +++|          RAM    GDEB
04414  M00S03862.msm     +++|          LDC    LRDA        ENABLE MMF RECOVERY
04415  M00S03863.msm     +++|          STD    T1
04416  M00S03864.msm     +++|          LJM    PRS3
04417  M00S03865.msm     +++|          SPACE  4,10
04418  M00S03866.msm     +++|**        COMMON DECKS USED BY PRESET.
04419  M00S03867.msm     +++|
04420  M00S03868.msm     +++|
04421  M00S03869.msm     +++|*CALL     COMPCEA
04422  M00S03870.msm     +++|
04423  M00S03871.msm     +++|*         LIST OF *4DA* INSTRUCTIONS MODIFIED FOR MMF RECOVERY.
04424  M00S03872.msm     +++|
04425  M00S03873.msm     +++| LRDA     BSS    0
04426  M00S03874.msm     +++| LRDA     HERE
Line S00106 Modification History
M01 (Added by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
04427  M01S00106.283l840 +++|          ERRZR  LRDA-*      TABLE EMPTY - REMOVE PRESET CODE
04428  M00S03875.msm     +++|          CON    0           TERMINATE LIST
04429  M00S03876.msm     +++|
04430  M00S03877.msm     +++|*         LIST OF INSTRUCTIONS TO BE PRESET WITH MACHINE MASK.
04431  M00S03878.msm     +++|
04432  M00S03879.msm     +++| T"QUAL"  BSS    0
04433  M00S03880.msm     +++| T"QUAL"  HERE
Line S00107 Modification History
M01 (Added by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
04434  M01S00107.283l840 +++|          ERRZR  T"QUAL"-*   TABLE EMPTY - REMOVE PRESET CODE
04435  M00S03881.msm     +++|          CON    0           TERMINATE LIST
04436  M00S03882.msm     +++|
04437  M00S03883.msm     +++|          QUAL
04438  M00S03884.msm     +++|          SPACE  4,10
Line S03885 Modification History
M01 (Removed by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
04439  M01S03885.272l774 ---|          OVERFLOW  O4DA     CHECK FOR OVERFLOW
Line S00024 Modification History
M01 (Added by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
04440  M01S00024.272l774 +++|          OVERFLOW  O4DA,EPFW  CHECK FOR OVERFLOW
04441  M00S03886.msm     +++|          TTL    MSM/4DB - DEVICE RECOVERY ROUTINES.
04442  M00S03887.msm     +++|          TITLE
04443  M00S03888.msm     +++|          IDENT  4DB,RDBX
04444  M00S03889.msm     +++|*COMMENT  MSM - DEVICE RECOVERY ROUTINES.
Line S03890 Modification History
M01 (Removed by) 281l803
Seq #  *Modification Id* Act 
----------------------------+
04445  M01S03890.281l803 ---|          COMMENT COPYRIGHT CONTROL DATA CORP. 1973.
Line S00005 Modification History
M01 (Added by) 281l803
Seq #  *Modification Id* Act 
----------------------------+
04446  M01S00005.281l803 +++|          COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
04447  M00S03891.msm     +++|          SPACE  4
04448  M00S03892.msm     +++|***              *4DB* CONTAINS ROUTINES FOR READING LABELS
04449  M00S03893.msm     +++|*         AND COMMON SUBROUTINES REQUIRED FOR TRT RECOVERY.
04450  M00S03894.msm     +++|          SPACE  4,10
04451  M00S03895.msm     +++|***       OPERATOR MESSAGES.
04452  M00S03896.msm     +++|*
04453  M00S03897.msm     +++|*         *EQXXX, DEVICE ACCESS ERROR.* = DEADSTART MESSAGE
04454  M00S03898.msm     +++|*         INDICATING THAT THE DEVICE ACCESS LEVEL LIMITS IN THE
04455  M00S03899.msm     +++|*         DEVICE LABEL OF A NON-REMOVABLE DEVICE ARE NOT WITHIN
04456  M00S03900.msm     +++|*         THE EQUIPMENT ACCESS LEVEL LIMITS FROM THE DEVICE EST
04457  M00S03901.msm     +++|*         ORDINAL FOR EQUIPMENT XXX.
04458  M00S03902.msm     +++|*
04459  M00S03903.msm     +++|*         *EQXXX, SECURED DEVICE.* = DEVICE ACCESS LEVEL LIMITS
04460  M00S03904.msm     +++|*         IN THE DEVICE LABEL ON AN UNSECURED SYSTEM ARE NOT
04461  M00S03905.msm     +++|*         WITHIN THE EQUIPMENT ACCESS LEVEL LIMITS FROM THE
04462  M00S03906.msm     +++|*         EST FOR EST ORDINAL XXX.
04463  M00S03907.msm     +++|          SPACE  4,10
04464  M00S03908.msm     +++|***       ERRLOG MESSAGES.
04465  M00S03909.msm     +++|*
04466  M00S03910.msm     +++|*         *EQXXX, SECURED DEVICE.* = DEVICE ACCESS LEVEL LIMITS
04467  M00S03911.msm     +++|*         IN THE DEVICE LABEL ON AN UNSECURED SYSTEM ARE NOT
04468  M00S03912.msm     +++|*         WITHIN THE EQUIPMENT ACCESS LEVEL LIMITS FROM THE
04469  M00S03913.msm     +++|*         EST FOR EST ORDINAL XXX.
04470  M00S03914.msm     +++|*
04471  M00S03915.msm     +++|*         EQXXX, SECURED DEVICE RECOVERED.* = DEVICE ACCESS LEVEL
04472  M00S03916.msm     +++|*         LIMITS IN THE DEVICE LABEL ON AN UNSECURED SYSTEM WERE
04473  M00S03917.msm     +++|*         NOT WITHIN THE EQUIPMENT ACCESS LEVEL LIMITS FROM THE
04474  M00S03918.msm     +++|*         EST FOR EST ORDINAL XXX, BUT THE OPERATOR ENTERED
04475  M00S03919.msm     +++|*         *GO,CMS.* TO RECOVER THE DEVICE.
04476  M00S03920.msm     +++|          SPACE  4,10
04477  M00S03921.msm     +++|**        MACRO DEFINITIONS.
04478  M00S03922.msm     +++|          SPACE  4,10
04479  M00S03923.msm     +++|**        TBLM = GENERATE TABLE OF ALTERNATE LABEL SECTORS.
04480  M00S03924.msm     +++|*
04481  M00S03925.msm     +++|*         TBLM   EQ
04482  M00S03926.msm     +++|*                EQ = MASS STORAGE EQUIPMENT MNEMONIC.
04483  M00S03927.msm     +++|
04484  M00S03928.msm     +++|
04485  M00S03929.msm     +++|          PURGMAC  TBLM
04486  M00S03930.msm     +++|
04487  M00S03931.msm     +++| TBLM     MACRO  EQ
04488  M00S03932.msm     +++|          CON    2R_EQ,LC_EQ
04489  M00S03933.msm     +++|          ENDM
04490  M00S03934.msm     +++|          SPACE  4
04491  M00S03935.msm     +++|**        INTERNAL TABLES AND BUFFERS.
04492  M00S03936.msm     +++|
04493  M00S03937.msm     +++|
04494  M00S03938.msm     +++| .1       MAX    /CMS/PRS,/RMS/PRS  BUFFER FOR *DAT* ENTRY
04495  M00S03939.msm     +++| DATB     EQU    .1
04496  M00S03940.msm     +++|
Line S03941 Modification History
M01 (Removed by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
04497  M01S03941.283l840 ---| O4DB     EQU    DATB+12-4   OVERLAY ORIGIN
Line S00108 Modification History
M01 (Added by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
04498  M01S00108.283l840 +++| ORDB     EQU    DATB+12-4   *4DB* OVERLAY ORIGIN
04499  M01S00109.283l840 +++| ORDK     EQU    ORDB        *4DK* OVERLAY ORIGIN
04500  M00S03942.msm     +++|          SPACE  4
Line S03943 Modification History
M01 (Removed by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
04501  M01S03943.283l840 ---|          ORG    O4DB
Line S00110 Modification History
M01 (Added by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
04502  M01S00110.283l840 +++|          ORG    ORDB
04503  M00S03944.msm     +++|
04504  M00S03945.msm     +++| RDB      SUBR               ENTRY/EXIT
04505  M00S03946.msm     +++|          LJM    PRS
04506  M00S03947.msm     +++|
04507  M00S03948.msm     +++| MMFP     CON    0           MMF PRESENT FLAG
04508  M00S03949.msm     +++| SDIF     CON    0           SHARED DEVICE INTERLOCK FLAG
04509  M00S03950.msm     +++| MRL      TITLE  MAIN RECOVERY LOOP.
04510  M00S03951.msm     +++|**        MRL - MAIN RECOVERY LOOP.
04511  M00S03952.msm     +++|*
04512  M00S03953.msm     +++|*         ENTRY  (A) = PROCESSOR ADDRESS.
04513  M00S03954.msm     +++|*
04514  M00S03955.msm     +++|*         EXIT   TO SELECTED PROCESSOR.
04515  M00S03956.msm     +++|*                (EQ) = (T5) = EST ORDINAL.
04516  M00S03957.msm     +++|*                (FN - FN+4) = EST ENTRY.
04517  M00S03958.msm     +++|*
04518  M00S03959.msm     +++|*         USES   T5, EQ, FN - FN+4.
04519  M00S03960.msm     +++|*
04520  M00S03961.msm     +++|*         CALLS  LRA, /RMS/SEM.
04521  M00S03962.msm     +++|*
04522  M00S03963.msm     +++|*         MACROS SFA.
04523  M00S03964.msm     +++|
04524  M00S03965.msm     +++|
04525  M00S03966.msm     +++| MRL1     LDC    0           EQUIPMENT FOR SPECIAL PROCESSING
04526  M00S03967.msm     +++| MRLC     EQU    *-1
04527  M00S03968.msm     +++|          ZJN    MRL2        IF NO SPECIAL EQUIPMENT CHECK
04528  M00S03969.msm     +++|          LMD    EQ
04529  M00S03970.msm     +++| MRLD     ZJN    MRL3        IF NOT TO PROCESS THIS EQUIPMENT
04530  M00S03971.msm     +++|*         NJN    MRL3        IF ONLY PROCESSING THIS EQUIPMENT
04531  M00S03972.msm     +++| MRL2     RJM    LRA         LOAD REFERENCE ADDRESS
04532  M00S03973.msm     +++|          ADD    EQ
04533  M00S03974.msm     +++|          CRD    RD
04534  M00S03975.msm     +++|          LDD    RE
04535  M00S03976.msm     +++|          SHN    0-13
04536  M00S03977.msm     +++|          ZJN    MRL3        IF NOT MASS STORAGE OR BEING RECOVERED
04537  M00S03978.msm     +++| MRLB     RJM    /RMS/SEM    SET EQUIPMENT MESSAGE
04538  M00S03979.msm     +++|*         UJN    *+2         (*CMS* CALL)
04539  M00S03980.msm     +++|          SFA    EST,EQ      READ EST ENTRY
04540  M00S03981.msm     +++|          ADK    EQDE
04541  M00S03982.msm     +++|          CRD    FN
04542  M00S03983.msm     +++|          LDD    RE          CHECK EST ENTRY
04543  M00S03984.msm     +++|          RJM    *
04544  M00S03985.msm     +++| MRLA     EQU    *-1
04545  M00S03986.msm     +++|          MJN    MRL3        IF REWRITE NOT REQUIRED
04546  M00S03987.msm     +++|          RJM    LRA         LOAD REFERENCE ADDRESS
04547  M00S03988.msm     +++|          ADD    EQ          REWRITE RECOVERY TABLES
04548  M00S03989.msm     +++|          CWD    RD
04549  M00S03990.msm     +++| MRL3     AOD    EQ          ADVANCE EQUIPMENT INDEX
04550  M00S03991.msm     +++| MRL4     STD    T5
04551  M00S03992.msm     +++|          LMD    LO
04552  M00S03993.msm     +++|          NJN    MRL1        IF NOT END OF MASS STORAGE DEVICES
04553  M00S03994.msm     +++|
04554  M00S03995.msm     +++| MRL      SUBR               ENTRY/EXIT
04555  M00S03996.msm     +++|          STM    MRLA        SET PROCESSOR ADDRESS
04556  M00S03997.msm     +++|          LDN    NOPE        INITIALIZE EST ORDINAL FOR SEARCH
04557  M00S03998.msm     +++|          STD    EQ
04558  M00S03999.msm     +++|          UJN    MRL4        ENTER LOOP
Line S04000 Modification History
M01 (Removed by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
04559  M01S04000.283l840 ---|          SPACE  4
Line S00111 Modification History
M01 (Added by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
04560  M01S00111.283l840 +++|          TITLE  COMMON DECKS.
04561  M00S04001.msm     +++|**        COMMON DECKS.
04562  M00S04002.msm     +++|
04563  M00S04003.msm     +++|
04564  M00S04004.msm     +++| CEA$     EQU    0           ASSEMBLE *CEI* IN PRESET
04565  M00S04005.msm     +++|*CALL     COMPCEA
04566  M00S04006.msm     +++|          QUAL   CLC
04567  M00S04007.msm     +++|*CALL     COMPCLC
04568  M00S04008.msm     +++|          QUAL
Line S00006 Modification History
M01 (Added by) ns2547
Seq #  *Modification Id* Act 
----------------------------+
04569  M01S00006.ns2547  +++| CDC      EQU    /CLC/CDC
04570  M00S04009.msm     +++| CLC      EQU    /CLC/CLC
04571  M00S04010.msm     +++| RLA$     EQU    1           DEFINE ENTRY CONDITIONS FOR *COMPRLA*
04572  M00S04011.msm     +++|*CALL     COMPRLA
04573  M00S04012.msm     +++|*CALL     COMPSES
04574  M00S04013.msm     +++|*CALL     COMPSMI
04575  M00S04014.msm     +++|*CALL     COMPTLB
04576  M00S04015.msm     +++|          TITLE  COMMON SUBROUTINES.
Line S04016 Modification History
M01 (Removed by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
04577  M01S04016.283l840 ---| ATC      SPACE  4,10
Line S00112 Modification History
M01 (Added by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
04578  M01S00112.283l840 +++| ADE      SPACE  4,15
04579  M01S00113.283l840 +++|**        ADE - ACCESS DAT ENTRY.
04580  M01S00114.283l840 +++|*
04581  M01S00115.283l840 +++|*         ENTRY  (A) = *ECSM* FUNCTION CODE.
04582  M01S00116.283l840 +++|*                (QS) = DAT INDEX.
04583  M01S00117.283l840 +++|*                (ADEA) = DAT TRACK.
04584  M01S00118.283l840 +++|*
04585  M01S00119.283l840 +++|*         EXIT   (T6) = DAT TRACK.
04586  M01S00120.283l840 +++|*
04587  M01S00121.283l840 +++|*         USES   T6, T7, CM - CM+4.
04588  M01S00122.283l840 +++|*
04589  M01S00123.283l840 +++|*         CALLS  CEA.
04590  M01S00124.283l840 +++|*
04591  M01S00125.283l840 +++|*         MACROS MONITOR.
04592  M01S00126.283l840 +++|
04593  M01S00127.283l840 +++|
04594  M01S00128.283l840 +++| ADE      SUBR               ENTRY/EXIT
04595  M01S00129.283l840 +++|          SHN    11          SAVE FUNCTION CODE
04596  M01S00130.283l840 +++|          STM    ADEB
04597  M01S00131.283l840 +++|          LDC    **          SET DAT TRACK
04598  M01S00132.283l840 +++| ADEA     EQU    *-1
04599  M01S00133.283l840 +++|          STD    T6
04600  M01S00134.283l840 +++|          LDN    0
04601  M01S00135.283l840 +++|          STD    T7
04602  M01S00136.283l840 +++|          RJM    CEA         CONVERT EXTENDED MEMORY ADDRESS
04603  M01S00137.283l840 +++|          LDD    QS
04604  M01S00138.283l840 +++|          RAD    CM+4
04605  M01S00139.283l840 +++|          SHN    -14
04606  M01S00140.283l840 +++|          LMC    **          SET SUBFUNCTION
04607  M01S00141.283l840 +++|*         LMC    RECS*1000   (READ SUBFUNCTION)
04608  M01S00142.283l840 +++|*         LMC    WECS*1000   (WRITE SUBFUNCTION)
04609  M01S00143.283l840 +++| ADEB     EQU    *-1
04610  M01S00144.283l840 +++|          RAD    CM+3
04611  M01S00145.283l840 +++|          LDD    HN          SET WORD COUNT (2 WORDS)
04612  M01S00146.283l840 +++|          STD    CM+1
04613  M01S00147.283l840 +++|          LDD    MA          CM ADDRESS = PP MESSAGE BUFFER
04614  M01S00148.283l840 +++|          STD    CM+2
04615  M01S00149.283l840 +++|          MONITOR  ECSM
04616  M01S00150.283l840 +++|          LJM    ADEX        RETURN
04617  M01S00151.283l840 +++| ATC      SPACE  4,10
04618  M00S04017.msm     +++|**        ATC - ADJUST TRACK COUNT.
04619  M00S04018.msm     +++|*
04620  M00S04019.msm     +++|*         ENTRY  (FN - FN+4) = EST ENTRY.
04621  M00S04020.msm     +++|*                (T5) = EQUIPMENT.
04622  M00S04021.msm     +++|*
04623  M00S04022.msm     +++|*         EXIT  REMAINING TRACK AND SECTOR COUNTS SET.
04624  M00S04023.msm     +++|*
04625  M00S04024.msm     +++|*         USES   T0 - T3, CM - CM+4, CN - CN+4.
04626  M00S04025.msm     +++|*
04627  M00S04026.msm     +++|*         CALLS  PTA, STA.
04628  M00S04027.msm     +++|
04629  M00S04028.msm     +++|
04630  M00S04029.msm     +++| ATC      SUBR               ENTRY/EXIT
04631  M00S04030.msm     +++|          LDD    RE          CHECK SHARED DEVICE STATUS
04632  M00S04031.msm     +++|          LPC    1002
04633  M00S04032.msm     +++|          LMC    1002
04634  M00S04033.msm     +++|          ZJN    ATCX        IF PREVIOUSLY DEFINED AS SHARED
04635  M00S04034.msm     +++|          RJM    PTA         PRESET FWA OF TRT
04636  M00S04035.msm     +++|          LDD    FN+4        READ TDGL WORD OF MST
04637  M00S04036.msm     +++|          SHN    3
04638  M00S04037.msm     +++|          ADK    TDGL
04639  M00S04038.msm     +++|          CRD    CN
04640  M00S04039.msm     +++|          LDD    CN+2        SET LENGTH OF TRT
04641  M00S04040.msm     +++|          STD    T2
04642  M00S04041.msm     +++|          SHN    2
04643  M00S04042.msm     +++|          STD    CN+4
04644  M00S04043.msm     +++|          RJM    STA         SET FWA OF TRT
04645  M00S04044.msm     +++|          ADD    T2
04646  M00S04045.msm     +++|          UJN    ATC4        READ TRT
04647  M00S04046.msm     +++|
04648  M00S04047.msm     +++|*         CLEAR TRACK INTERLOCKS.
04649  M00S04048.msm     +++|
04650  M00S04049.msm     +++| ATC1     LDD    CM+4
04651  M00S04050.msm     +++|          LPC    7417
04652  M00S04051.msm     +++|          STD    CM+4
04653  M00S04052.msm     +++|          LPN    17          SET RESERVATION BITS
04654  M00S04053.msm     +++|          ZJN    ATC3        IF NONE
04655  M00S04054.msm     +++| ATC2     SHN    21-0
04656  M00S04055.msm     +++|          PJN    ATC2        IF BIT NOT RESERVED
04657  M00S04056.msm     +++|          STD    T0
04658  M00S04057.msm     +++|          SOD    CN+4
04659  M00S04058.msm     +++|          LDD    T0
04660  M00S04059.msm     +++|          NJN    ATC2        IF MORE RESERVATIONS
04661  M00S04060.msm     +++| ATC3     RJM    STA         SET FWA OF TRT
04662  M00S04061.msm     +++|          ADD    T2
04663  M00S04062.msm     +++|          CWD    CM
04664  M00S04063.msm     +++| ATC4     SBN    1
04665  M00S04064.msm     +++|          CRD    CM
04666  M00S04065.msm     +++|          SOD    T2
04667  M00S04066.msm     +++|          PJN    ATC1        IF NOT END OF TRT
04668  M00S04067.msm     +++|          LDC    4000        SET NOS MST FLAG
04669  M00S04068.msm     +++|          STD    CN+3
04670  M00S04069.msm     +++|          LDD    FN+4        STORE *TDGL*
04671  M00S04070.msm     +++|          SHN    3
04672  M00S04071.msm     +++|          ADK    TDGL
04673  M00S04072.msm     +++|          CWD    CN
04674  M00S04073.msm     +++|          LJM    ATCX        RETURN
04675  M00S04074.msm     +++| CDA      SPACE  4,10
04676  M00S04075.msm     +++|**        CDA - CHECK DEVICE AVAILABILITY.
04677  M00S04076.msm     +++|*
04678  M00S04077.msm     +++|*         ENTRY  (EQ) = EST ORDINAL.
04679  M00S04078.msm     +++|*                (FN - FN+4) = EST ENTRY.
04680  M00S04079.msm     +++|*
04681  M00S04080.msm     +++|*         EXIT   (A) = 0, IF AVAILABLE FOR RECOVERY.
04682  M00S04081.msm     +++|*                    .NE. 0, IF UNLOADED.
04683  M00S04082.msm     +++|*                    .LT. 0, IF NOT AVAILABLE FOR RECOVERY.
04684  M00S04083.msm     +++|*
04685  M00S04084.msm     +++|*         USES   FS - FS+4.
04686  M00S04085.msm     +++|
04687  M00S04086.msm     +++|
04688  M00S04087.msm     +++| CDA1     LCN    0
04689  M00S04088.msm     +++|
04690  M00S04089.msm     +++| CDA      SUBR               ENTRY/EXIT
04691  M00S04090.msm     +++|          LDD    RE
04692  M00S04091.msm     +++|          SHN    21-6
04693  M00S04092.msm     +++|          PJN    CDA1        IF DEVICE AVAILABLE
04694  M00S04093.msm     +++|          SHN    6-21
04695  M00S04094.msm     +++|          LPN    1
04696  M00S04095.msm     +++|          NJN    CDAX        IF LABEL NOT READ
04697  M00S04096.msm     +++|          LDD    FN+4        READ *STLL*
04698  M00S04097.msm     +++|          SHN    3
04699  M00S04098.msm     +++|          ADN    STLL
04700  M00S04099.msm     +++|          CRD    FS
04701  M00S04100.msm     +++|          SBN    STLL-PFGL   READ DEVICE DESCRIPTION
04702  M00S04101.msm     +++|          CRM    DLPB,TW
04703  M00S04102.msm     +++|          LDD    FS+4
04704  M00S04103.msm     +++|          LPN    MLDIU
04705  M00S04104.msm     +++|          NJN    CDA1        IF EQUIPMENT IN USE
04706  M00S04105.msm     +++|          LDD    FS
04707  M00S04106.msm     +++|          LPN    MLUNL
04708  M00S04107.msm     +++|          UJN    CDAX        RETURN
04709  M00S04108.msm     +++| CDI      SPACE  4,15
04710  M00S04109.msm     +++|**        CDI - CLEAR ISD INTERLOCKS.
04711  M00S04110.msm     +++|*
04712  M00S04111.msm     +++|*         ENTRY  (T5) = EST ORDINAL.
04713  M00S04112.msm     +++|*                (FN - FN+4) = EST ENTRY.
04714  M00S04113.msm     +++|*
04715  M00S04114.msm     +++|*         EXIT   INTERLOCKS CLEARED IN LABEL.
04716  M00S04115.msm     +++|*
04717  M00S04116.msm     +++|*         USES   T0, T1, T6, T7, CM - CM+4.
04718  M00S04117.msm     +++|*
Line S04118 Modification History
M01 (Removed by) ns2547
Seq #  *Modification Id* Act 
----------------------------+
04719  M01S04118.ns2547  ---|*         CALLS  CLT, RDS, SMI, WDS.
Line S00007 Modification History
M01 (Added by) ns2547
Seq #  *Modification Id* Act 
----------------------------+
04720  M01S00007.ns2547  +++|*         CALLS  CDC, CLT, RDS, SMI, WDS.
04721  M00S04119.msm     +++|*
04722  M00S04120.msm     +++|*         MACROS ENDMS, SETMS.
04723  M00S04121.msm     +++|
04724  M00S04122.msm     +++|
04725  M00S04123.msm     +++| CDI3     ENDMS
04726  M00S04124.msm     +++|
04727  M00S04125.msm     +++| CDI      SUBR               ENTRY/EXIT
04728  M00S04126.msm     +++|          LDD    FN
04729  M00S04127.msm     +++|          SHN    21-4
04730  M00S04128.msm     +++|          PJN    CDIX        IF NOT INDEPENDENT SHARED DEVICE
04731  M00S04129.msm     +++|          RJM    CLT
04732  M00S04130.msm     +++|          ZJN    CDIX        IF NO LABEL TRACK
04733  M00S04131.msm     +++|          LDN    0
04734  M00S04132.msm     +++|          STD    T7
04735  M00S04133.msm     +++|          SETMS  IO,(DE,DF)
04736  M00S04134.msm     +++|          LDC    BFMS
04737  M00S04135.msm     +++|          RJM    RDS
04738  M00S04136.msm     +++|          MJN    CDIX        IF READ ERROR
04739  M00S04137.msm     +++|          RJM    SMI
04740  M00S04138.msm     +++|          STD    T1          SET MACHINE INDEX
04741  M00S04139.msm     +++|          SHN    1
04742  M00S04140.msm     +++|          LMM    N4SS+5*SDGL+4
04743  M00S04141.msm     +++|          SCN    1
04744  M00S04142.msm     +++|          STD    T0          CHECK MST INTERLOCK
04745  M00S04143.msm     +++|          LPN    76
04746  M00S04144.msm     +++|          NJN    CDI1        IF NOT INTERLOCKED BY THIS MACHINE
04747  M00S04145.msm     +++|          LDD    T0
04748  M00S04146.msm     +++|          STM    N4SS+5*SDGL+4
04749  M00S04147.msm     +++| CDI1     LDD    T1          CALCULATE ADDRESS OF DIT ENTRY
04750  M00S04148.msm     +++|          SHN    2
04751  M00S04149.msm     +++|          ADC    DISS-5+4
04752  M00S04150.msm     +++|          RAD    T1
04753  M00S04151.msm     +++|          SBN    4
04754  M00S04152.msm     +++|          STM    CDIB
04755  M00S04153.msm     +++|          LDI    T1          CHECK MACHINE ID
04756  M00S04154.msm     +++|          LMC    0
04757  M00S04155.msm     +++| CDIA     EQU    *-1
04758  M00S04156.msm     +++|          NJN    CDI2        IF DIT ENTRY NOT ASSIGNED HERE
04759  M00S04157.msm     +++|          LDN    ZERL
04760  M00S04158.msm     +++|          CRM    *,ON
04761  M00S04159.msm     +++| CDIB     EQU    *-1
Line S00008 Modification History
M01 (Added by) ns2547
Seq #  *Modification Id* Act 
----------------------------+
04762  M01S00008.ns2547  +++|          RJM    CDC         COMPUTE LABEL CHECKSUM
04763  M01S00009.ns2547  +++|          STM    CKSS
04764  M00S04160.msm     +++|          LDC    BFMS+WLSF
04765  M00S04161.msm     +++|          RJM    WDS
04766  M00S04162.msm     +++| CDI2     LJM    CDI3        RETURN
04767  M00S04163.msm     +++| CLR      SPACE  4
04768  M00S04164.msm     +++|**        CLR - CLEAR RESIDENT TRT.
04769  M00S04165.msm     +++|*
04770  M00S04166.msm     +++|*         ENTRY  (FN - FN+4) = EST ENTRY.
04771  M00S04167.msm     +++|*
04772  M00S04168.msm     +++|*         EXIT   (A) = MST ADDRESS OF TDGL WORD.
04773  M00S04169.msm     +++|*                CMR AREA FOR TRT CLEARED.
04774  M00S04170.msm     +++|*                FLAWS RETAINED FOR NON-REMOVABLE DEVICE.
04775  M00S04171.msm     +++|*                MRT FOR SHARED DEVICE CLEARED.
04776  M00S04172.msm     +++|*
04777  M00S04173.msm     +++|*         USES   T0 - T3, CM - CM+7, CN - CN+4.
04778  M00S04174.msm     +++|*
04779  M00S04175.msm     +++|*         CALLS  PTA, STA.
04780  M00S04176.msm     +++|
04781  M00S04177.msm     +++|
04782  M00S04178.msm     +++| CLR3     RJM    STA         SET FWA OF TRT
04783  M00S04179.msm     +++|          ADD    T1
04784  M00S04180.msm     +++|          CRD    CM
04785  M00S04181.msm     +++|          LDD    CM+4
04786  M00S04182.msm     +++|          ZJN    CLR7        IF NO TRACKS RESERVED
04787  M00S04183.msm     +++|          LDN    CM
04788  M00S04184.msm     +++|          STD    T3
04789  M00S04185.msm     +++|          LDN    ZERL        CLEAR ASSEMBLY
04790  M00S04186.msm     +++|          CRD    CN
04791  M00S04187.msm     +++| CLR4     LDI    T3          CHECK TRACK BYTE
04792  M00S04188.msm     +++|          LMC    3777
04793  M00S04189.msm     +++|          NJN    CLR5        IF TRACK NOT FLAWED
04794  M00S04190.msm     +++|          AOD    T0          ADVANCE FLAWED TRACK COUNT
04795  M00S04191.msm     +++|          LDI    T3          SET FLAW IN ASSEMBLY
04796  M00S04192.msm     +++|          STM    CN-CM,T3
04797  M00S04193.msm     +++|          LDM    CLRB-CM,T3  SET TRACK RESERVATION
04798  M00S04194.msm     +++|          RAD    CN+4
04799  M00S04195.msm     +++| CLR5     AOD    T3          ADVANCE BYTE INDEX
04800  M00S04196.msm     +++|          LMN    CM+4
04801  M00S04197.msm     +++|          NJN    CLR4        LOOP TO END OF TRT WORD
04802  M00S04198.msm     +++| CLR6     RJM    STA         SET FWA OF TRT
04803  M00S04199.msm     +++|          ADD    T1
04804  M00S04200.msm     +++|          CWD    CN
04805  M00S04201.msm     +++| CLR7     AOD    T1          ADVANCE WORD INDEX
04806  M00S04202.msm     +++|          LMD    T2
04807  M00S04203.msm     +++| CLR8     NJN    CLR3        LOOP TO END OF TRT
04808  M00S04204.msm     +++|*         NJN    CLR6        REMOVABLE DEVICE
04809  M00S04205.msm     +++|          STD    CM+4        CLEAR UNUSED BYTE
04810  M00S04206.msm     +++|          LDD    CM+6        SET TRACK COUNTS
04811  M00S04207.msm     +++|          STD    CM+3
04812  M00S04208.msm     +++|          SBD    T0
04813  M00S04209.msm     +++|          STD    CM+7
04814  M00S04210.msm     +++|          LDC    4000        SET NOS MST FLAG
04815  M00S04211.msm     +++|          STD    CM+6
04816  M00S04212.msm     +++|          LDD    FN+4        UPDATE MST
04817  M00S04213.msm     +++|          SHN    3
04818  M00S04214.msm     +++|          ADK    TDGL
04819  M00S04215.msm     +++|          CWD    CM+3
04820  M00S04216.msm     +++|
04821  M00S04217.msm     +++| CLR      SUBR               ENTRY/EXIT
04822  M00S04218.msm     +++|          RJM    PTA         PRESET FWA OF TRT
04823  M00S04219.msm     +++|          LDD    FN+4        READ *TDGL*
04824  M00S04220.msm     +++|          SHN    3
04825  M00S04221.msm     +++|          ADK    TDGL
04826  M00S04222.msm     +++|          CRD    CM+3
04827  M00S04223.msm     +++|          LDD    CM+3        SAVE TRACK COUNT FOR DEVICE
04828  M00S04224.msm     +++|          STD    CM+6
04829  M00S04225.msm     +++|          LDN    0           SET INDEX
04830  M00S04226.msm     +++|          STD    T1
04831  M00S04227.msm     +++|          LDD    CM+5        SET LENGTH OF TRT
04832  M00S04228.msm     +++|          STD    T2
04833  M00S04229.msm     +++|          STD    CM
04834  M00S04230.msm     +++|          ADN    7           SET END OF MRT
04835  M00S04231.msm     +++|          SHN    -3
04836  M00S04232.msm     +++|          ADD    CM
04837  M00S04233.msm     +++|          STD    T3
04838  M00S04234.msm     +++|          LDN    0
04839  M00S04235.msm     +++|          STD    T0
04840  M00S04236.msm     +++|          LDN    ZERL
04841  M00S04237.msm     +++|          CRD    CN
04842  M00S04238.msm     +++|          LDD    FN
04843  M00S04239.msm     +++|          SHN    21-11
04844  M00S04240.msm     +++|          PJN    CLR2        IF NOT SHARED DEVICE
04845  M00S04241.msm     +++|          SHN    21-4-21+11
04846  M00S04242.msm     +++|          PJN    CLR1        IF NOT AN ISHARED DEVICE
04847  M00S04243.msm     +++|          LDN    MISD        ADD IN *DIT* LENGTH
04848  M00S04244.msm     +++|          RAD    T3
04849  M00S04245.msm     +++| CLR1     RJM    STA         SET FWA OF TRT
04850  M00S04246.msm     +++|          ADD    CM          SET FWA OF MRT
04851  M00S04247.msm     +++|          CWD    CN          CLEAR MRT WORD
04852  M00S04248.msm     +++|          AOD    CM
04853  M00S04249.msm     +++|          LMD    T3
04854  M00S04250.msm     +++|          NJN    CLR1        LOOP TO END OF MRT
04855  M00S04251.msm     +++| CLR2     LDD    FN          EXTRACT REMOVABLE STATUS
04856  M00S04252.msm     +++|          SHN    -10
04857  M00S04253.msm     +++|          LPN    1
04858  M00S04254.msm     +++|          STD    T3
04859  M00S04255.msm     +++|          LDM    CLRA,T3     SET LOOP CONDITION
04860  M00S04256.msm     +++|          STM    CLR8
04861  M00S04257.msm     +++|          LJM    CLR8        CLEAR TRT
04862  M00S04258.msm     +++|
04863  M00S04259.msm     +++| CLRA     BSS    0
04864  M00S04260.msm     +++|          LOC    CLR8
04865  M00S04261.msm     +++|          NJN    CLR3
04866  M00S04262.msm     +++|          LOC    CLR8
04867  M00S04263.msm     +++|          NJN    CLR6
04868  M00S04264.msm     +++|
04869  M00S04265.msm     +++|          LOC    *O
04870  M00S04266.msm     +++|
04871  M00S04267.msm     +++|
04872  M00S04268.msm     +++| CLRB     CON    10          TRACK RESERVATION BITS
04873  M00S04269.msm     +++|          CON    4
04874  M00S04270.msm     +++|          CON    2
04875  M00S04271.msm     +++|          CON    1
04876  M00S04272.msm     +++| CLT      SPACE  4,10
04877  M00S04273.msm     +++|**        CLT - CHECK LABEL TRACK.
04878  M00S04274.msm     +++|*
04879  M00S04275.msm     +++|*         ENTRY  (T5) = EST ORDINAL.
04880  M00S04276.msm     +++|*                (FN - FN+4) = EST ENTRY.
04881  M00S04277.msm     +++|*
04882  M00S04278.msm     +++|*         EXIT   (A) = (T6) = LABEL TRACK.
04883  M00S04279.msm     +++|*                (CM+7) = BYTE 4 OF *ALGL* WORD.
04884  M00S04280.msm     +++|*
04885  M00S04281.msm     +++|*         USES   CM - CM+7.
04886  M00S04282.msm     +++|*
04887  M00S04283.msm     +++|*         CALLS  LRA.
04888  M00S04284.msm     +++|
04889  M00S04285.msm     +++|
04890  M00S04286.msm     +++| CLT      SUBR               ENTRY/EXIT
04891  M00S04287.msm     +++|          LDD    FN+4
04892  M00S04288.msm     +++|          SHN    3
04893  M00S04289.msm     +++|          ADN    ALGL        CHECK LABEL TRACK IN MST
04894  M00S04290.msm     +++|          CRD    CM+3
04895  M00S04291.msm     +++|          LDD    CM+4
04896  M00S04292.msm     +++|          NJN    CLT1        IF LABEL TRACK FOUND
04897  M00S04293.msm     +++|          RJM    LRA         LOAD REFERENCE ADDRESS
04898  M00S04294.msm     +++|          ADD    AL
04899  M00S04295.msm     +++|          ADN    ALGL        CHECK MST IMAGE FROM LABEL TRACK
04900  M00S04296.msm     +++|          CRD    CM
04901  M00S04297.msm     +++|          LDD    CM+1        SET LABEL TRACK
04902  M00S04298.msm     +++| CLT1     STD    T6
04903  M00S04299.msm     +++|          UJN    CLTX        RETURN
04904  M00S04300.msm     +++| CMT      SPACE  4
04905  M00S04301.msm     +++|**        CMT - CLEAR MST.
04906  M00S04302.msm     +++|*
04907  M00S04303.msm     +++|*         ENTRY  (FN - FN+4) = EST ENTRY.
04908  M00S04304.msm     +++|*                (FS - FS+4) = STLL WORD.
04909  M00S04305.msm     +++|*                (EC) = ERROR CODE.
04910  M00S04306.msm     +++|*                (EQ) = PRIMARY EST ORDINAL.
04911  M00S04307.msm     +++|*
04912  M00S04308.msm     +++|*         EXIT   (T6) = GLOBAL UNLOAD STATUS.
04913  M00S04309.msm     +++|*                EST - MST RESTORED TO ORIGINAL STATUS.
04914  M00S04310.msm     +++|*                DEVICE SET UNAVAILABLE.
04915  M00S04311.msm     +++|*
04916  M00S04312.msm     +++|*         USES   CN - CN+4, CM - CM+4, FS - FS+4, FN.
04917  M00S04313.msm     +++|*
04918  M00S04314.msm     +++|*         CALLS  CLR, CLT.
04919  M00S04315.msm     +++|*
04920  M00S04316.msm     +++|*         MACROS CMSTF, SFA.
04921  M00S04317.msm     +++|
04922  M00S04318.msm     +++|
04923  M00S04319.msm     +++| CMT      SUBR               ENTRY/EXIT
04924  M00S04320.msm     +++|          LDN    ZERL
04925  M00S04321.msm     +++|          CRD    CN
04926  M00S04322.msm     +++|          LDD    FN
04927  M00S04323.msm     +++|          LPC    7667
04928  M00S04324.msm     +++|          LMD    HN          SET DEVICE UNAVAILABLE
04929  M00S04325.msm     +++|          STD    FN
04930  M00S04326.msm     +++|          SFA    EST,T5      UPDATE EST
04931  M00S04327.msm     +++|          ADK    EQDE
04932  M00S04328.msm     +++|          CWD    FN
04933  M00S04329.msm     +++|          RJM    CLT
04934  M00S04330.msm     +++|          NJN    CMT1        IF LABEL TRACK KNOWN
04935  M00S04331.msm     +++|          LDD    CM+7
04936  M00S04332.msm     +++| CMT1     STD    CN+4
04937  M00S04333.msm     +++|          LDN    ZERL
04938  M00S04334.msm     +++|          CRD    CM
04939  M00S04335.msm     +++|          LDD    FN+4        CLEAR DEVICE ALLOCATION WORD
04940  M00S04336.msm     +++|          SHN    3
04941  M00S04337.msm     +++|          ADN    ALGL
04942  M00S04338.msm     +++|          CWD    CN
04943  M00S04339.msm     +++|          ADN    DULL-ALGL   CLEAR DAYFILE POINTERS
04944  M00S04340.msm     +++|          CWD    CM
04945  M00S04341.msm     +++|          SBN    DULL-MDGL   READ DRIVER WORD
04946  M00S04342.msm     +++|          CRD    CN
04947  M00S04343.msm     +++|          SBN    MDGL-SDGL
04948  M00S04344.msm     +++|          CRD    CM
04949  M00S04345.msm     +++|          SBN    SDGL-ACGL   GET DEVICE ACTIVITY WORD
04950  M00S04346.msm     +++|          CRD    CM+3
04951  M00S04347.msm     +++|          LDD    CM+7        RETAIN GLOBAL UNLOAD FLAG
04952  M00S04348.msm     +++|          LPN    MGUNL
04953  M00S04349.msm     +++|          STD    CM+7
04954  M00S04350.msm     +++|          STD    T6
04955  M00S04351.msm     +++|          LDN    ZERL        CLEAR TRT UPDATE STATUS
04956  M00S04352.msm     +++|          CRD    CM+2
04957  M00S04353.msm     +++|
04958  M00S04354.msm     +++|*         SET DEVICE STATUS.
04959  M00S04355.msm     +++|
04960  M00S04356.msm     +++|          LDD    FS          RETAIN INTIALIZE AND EQUIPMENT STATUS
04961  M00S04357.msm     +++|          SCN    MLCKP
04962  M00S04358.msm     +++|          STD    FS
04963  M00S04359.msm     +++|          LDN    MLDIU+MLMTI SET DEVICE IN USE
04964  M00S04360.msm     +++|          STD    FS+4
04965  M00S04361.msm     +++|          LDD    CN          CLEAR AUXILIARY STATUS
04966  M00S04362.msm     +++|          LPC    5777
04967  M00S04363.msm     +++|          STD    CN
04968  M00S04364.msm     +++|          LDD    T5
04969  M00S04365.msm     +++|          LMD    EQ
04970  M00S04366.msm     +++|          NJN    CMT2        IF NOT PRIMARY EQUIPMENT
04971  M00S04367.msm     +++|          LDD    FS+1        SET ERROR CODE
04972  M00S04368.msm     +++|          SCN    77
04973  M00S04369.msm     +++|          LMD    EC
04974  M00S04370.msm     +++|          STD    FS+1
04975  M00S04371.msm     +++|          LDD    FN
04976  M00S04372.msm     +++|          SHN    21-11
Line S04373 Modification History
M01 (Removed by) msm37
Seq #  *Modification Id* Act 
----------------------------+
04977  M01S04373.msm37   ---|          MJN    CMT2        IF SHARED DEVICE
Line S00001 Modification History
M01 (Added by) msm37
Seq #  *Modification Id* Act 
----------------------------+
04978  M01S00001.msm37   +++|          MJN    CMT3        IF SHARED DEVICE
04979  M00S04374.msm     +++|          LDD    CN          CLEAR *DAT* INDEX
04980  M00S04375.msm     +++|          LPC    7400
04981  M00S04376.msm     +++|          STD    CN
Line S04377 Modification History
M01 (Removed by) msm37
Seq #  *Modification Id* Act 
----------------------------+
04982  M01S04377.msm37   ---| CMT2     LDD    FN+4        STORE MST PARAMETERS
Line S00002 Modification History
M01 (Added by) msm37
Seq #  *Modification Id* Act 
----------------------------+
04983  M01S00002.msm37   +++|          UJN    CMT3        STORE MST PARAMETERS
04984  M01S00003.msm37   +++|
04985  M01S00004.msm37   +++| CMT2     LDD    FN+4        CLEAR DEVICE AND USER DESCRIPTION
04986  M01S00005.msm37   +++|          SHN    3
04987  M01S00006.msm37   +++|          ADK    PFGL
04988  M01S00007.msm37   +++|          CWD    CM+2
04989  M01S00008.msm37   +++|          ADK    PUGL-PFGL
04990  M01S00009.msm37   +++|          CWD    CM+2
04991  M01S00010.msm37   +++| CMT3     LDD    FN+4        STORE MST PARAMETERS
04992  M00S04378.msm     +++|          SHN    3
04993  M00S04379.msm     +++|          ADN    MDGL        RESET DRIVER CHARACTERISTICS
04994  M00S04380.msm     +++|          CWD    CN
04995  M00S04381.msm     +++|          ADN    STLL-MDGL   STORE *STLL*
04996  M00S04382.msm     +++|          CWD    FS
04997  M00S04383.msm     +++|          SBN    STLL-SDGL
04998  M00S04384.msm     +++|          CWD    CM
04999  M00S04385.msm     +++|          SBN    SDGL-ACGL   STORE DEVICE ACTIVITY WORD
05000  M00S04386.msm     +++|          CWD    CM+3
05001  M00S04387.msm     +++|          ADN    ISGL-ACGL   CLEAR INSTALLATION AREA
05002  M00S04388.msm     +++|          CWD    CM+2
05003  M00S04389.msm     +++|          ADN    I2GL-ISGL
05004  M00S04390.msm     +++|          CWD    CM+2
05005  M00S04391.msm     +++|          ADN    CTLL-I2GL   CLEAR ERROR COUNTS
05006  M00S04392.msm     +++|          CWD    CM+2
05007  M00S04393.msm     +++|          RJM    CLR         CLEAR TRT
05008  M00S04394.msm     +++|          RJM    LRA         LOAD REFERENCE ADDRESS
05009  M00S04395.msm     +++|          ADD    T5
05010  M00S04396.msm     +++|          CRD    RD
05011  M00S04397.msm     +++|          CMSTF  LDIU        CLEAR DEVICE IN USE
05012  M00S04398.msm     +++|*         LDN    0           INHIBIT FURTHER PROCESSING OF DEVICE
05013  M00S04399.msm     +++|          STD    RE
05014  M00S04400.msm     +++|          RJM    LRA         LOAD REFERENCE ADDRESS
05015  M00S04401.msm     +++|          ADD    T5
05016  M00S04402.msm     +++|          CWD    RD          RESTORE RECOVERY TABLE VALUES
05017  M00S04403.msm     +++|          LJM    CMTX
05018  M00S04404.msm     +++| IES      SPACE  4
05019  M00S04405.msm     +++|**        IES - INITIALIZE EQUIPMENT STATUS.
05020  M00S04406.msm     +++|*
05021  M00S04407.msm     +++|*         ENTRY  (T5) = EQUIPMENT.
05022  M00S04408.msm     +++|*                (EC) = ERROR CODE FOR PRIMARY EQUIPMENT.
05023  M00S04409.msm     +++|*                (EQ) = PRIMARY EST ORDINAL.
05024  M00S04410.msm     +++|*
05025  M00S04411.msm     +++|*         EXIT   ALL EQUIPMENT IN CHAIN RESTORED TO ORIGINAL CONFIGUR-
05026  M00S04412.msm     +++|*                ATION AND SET AS UNAVAILABLE.
05027  M00S04413.msm     +++|*                (A) .LT. 0 IF RECOVERY INFORMATION NOT TO
05028  M00S04414.msm     +++|*                BE REWRITTEN TO CM RETURN TO *MRL*.
05029  M00S04415.msm     +++|*
Line S04416 Modification History
M01 (Removed by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
05030  M01S04416.272l774 ---|*         USES   UC, CN - CN+4, FN - FN+4, FS - FS+4, T4 - T7.
Line S00025 Modification History
M01 (Added by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
05031  M01S00025.272l774 +++|*         USES   T4, T5, T7, UC, CN - CN+4, FN - FN+4, FS - FS+4.
Proceed to Part 3
cdc/nos2.source/opl.opl871/deck/msm.002.txt ยท Last modified: by 127.0.0.1