Deck 1MR

Library Member Format: MODIFY

Seq #  *Modification Id* Act 
----------------------------+
00001  M00S00001.1mr     +++|          IDENT  1MR,/MRP/MRP
00002  M00S00002.1mr     +++|          PERIPH
00003  M00S00003.1mr     +++|          BASE   MIXED
00004  M00S00004.1mr     +++|          SST
00005  M00S00005.1mr     +++|*COMMENT  1MR - MACHINE RECOVERY PROCESSOR.

Seq #  *Modification Id* Act 
----------------------------+
00006  M01S00006.281l803 ---|          COMMENT  COPYRIGHT CONTROL DATA CORP. 1975.

Seq #  *Modification Id* Act 
----------------------------+
00007  M01S00001.281l803 +++|          COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
00008  M00S00007.1mr     +++|          TITLE  1MR - MACHINE RECOVERY PROCESSOR.
00009  M00S00008.1mr     +++|          SPACE  4
00010  M00S00009.1mr     +++|***       1MR - MACHINE RECOVERY PROCESSOR.
00011  M00S00010.1mr     +++|*         R. J. PRIEVE       75/02/14.
00012  M00S00011.1mr     +++|*         P. D. HAAS.        87/04/10.
00013  M00S00012.1mr     +++|          SPACE  4
00014  M00S00013.1mr     +++|***       1MR PROCESSES FUNCTION REQUESTS FROM *MREC*, THE
00015  M00S00014.1mr     +++|*         MACHINE RECOVERY UTILITY.
00016  M00S00015.1mr     +++|*
00017  M00S00016.1mr     +++|*         FUNCTIONS PROCESSED ARE THE FOLLOWING.
00018  M00S00017.1mr     +++|*
00019  M00S00018.1mr     +++|*         FUNCTION 0 - RETRIEVE DISPLAY INFORMATION.
00020  M00S00019.1mr     +++|*         FUNCTION 1 - PROCESS DAT, FAT, MRT,S, SYSTEM SECTORS,
00021  M00S00020.1mr     +++|*         AND UNIT AND/OR CONTROLLER RESERVE SITUATIONS.
00022  M00S00021.1mr     +++|*         FUNCTION 2 - UPDATE MST ENTRIES IN CM FOR INDEPENDENT
00023  M00S00022.1mr     +++|*         SHARED DEVICES.

Seq #  *Modification Id* Act 
----------------------------+
00024  M01S00001.283l840 +++|*         FUNCTION 3 - CLEAR DEVICE INTERLOCKS.
00025  M00S00023.1mr     +++|          SPACE  4
00026  M00S00024.1mr     +++|***       ENTRY CONDITIONS.
00027  M00S00025.1mr     +++|*
00028  M00S00026.1mr     +++|*T,   IR  18/1MR,18/0,6/FN,18/PARM

Figure IR

00029  M00S00027.1mr     +++|*
00030  M00S00028.1mr     +++|*         FN     FUNCTION NUMBER.
00031  M00S00029.1mr     +++|*         PARM   PARAMETER.
00032  M00S00030.1mr     +++|*
00033  M00S00031.1mr     +++|*         PARAMETERS ARE DOCUMENTED IN HEADER INFORMATION
00034  M00S00032.1mr     +++|*         OF EACH FUNCTION PROCESSOR.
00035  M00S00033.1mr     +++|          SPACE  4
00036  M00S00034.1mr     +++|***       DAYFILE MESSAGES.
00037  M00S00035.1mr     +++|*
00038  M00S00036.1mr     +++|*         * INCORRECT 1MR FUNCTION.*
00039  M00S00037.1mr     +++|*
00040  M00S00038.1mr     +++|*         * 1MR ERROR FLAG TERMINATION.* - ERROR FLAG WAS SET AT
00041  M00S00039.1mr     +++|*         MREC,S CONTROL POINT.
00042  M00S00040.1mr     +++|*
00043  M00S00041.1mr     +++|*         * SSER, EQXXX, TKYYYY.* - UNRECOVERED ERROR OCCURRED WHEN
00044  M00S00042.1mr     +++|*         ATTEMPTING TO READ OR WRITE THE SYSTEM SECTOR ON EQXXX,
00045  M00S00043.1mr     +++|*         TRACK YYYY.  THE SECTOR IS NOT PROCESSED.  PROCESSING
00046  M00S00044.1mr     +++|*         CONTINUES.  THIS MESSAGE IS ALSO ISSUED TO THE ERRLOG.
00047  M00S00045.1mr     +++|*
00048  M00S00046.1mr     +++|*         * EQXXX, MRT PROCESSED BUT NOT REWRITTEN.* - UNRECOVERED
00049  M00S00047.1mr     +++|*         WRITE ERROR OCCURRED WHEN ATTEMPTING TO ZERO OUT THE MRT
00050  M00S00048.1mr     +++|*         FOR EQXXX.  PROCESSING CONTINUES.
00051  M00S00049.1mr     +++|*
00052  M00S00050.1mr     +++|*         * EQXXX, TKYYYY, INCORRECT LOCAL FILE.* - MRT BIT WAS FOUND
00053  M00S00051.1mr     +++|*         SET FOR TRACK YYYY ON EQXXX, BUT THE TRACK WAS NOT THE FIRST
00054  M00S00052.1mr     +++|*         TRACK OF A LOCAL FILE.  THE MRT BIT WAS CLEARED BUT THE
00055  M00S00053.1mr     +++|*         TRACK WAS NOT DROPPED.
00056  M00S00054.1mr     +++|*
00057  M00S00055.1mr     +++|*         * EQXXX, DAF INTERLOCKS NOT CLEARED.* - INTERLOCKS IN THE
00058  M00S00056.1mr     +++|*         SYSTEM SECTORS OF DIRECT ACCESS FILES ON EQXXX WERE NOT
00059  M00S00057.1mr     +++|*         CLEARED, EITHER BECAUSE OF MASS STORAGE ERRORS OR
00060  M00S00058.1mr     +++|*         BECAUSE A PF CATALOG SIZE ERROR WAS DETECTED.
00061  M00S00059.1mr     +++|*
00062  M00S00060.1mr     +++|*         * RECOVERING PF.EQXXX, TRK YYYY.* - INFORMATIVE MESSAGE ISSUED
00063  M00S00061.1mr     +++|*         AT CONTROL POINT WHEN PRESERVED FILES ARE BEING PROCESSED
00064  M00S00062.1mr     +++|*         ON EQXXX.
00065  M00S00063.1mr     +++|*
00066  M00S00064.1mr     +++|*         * EQXXX, UNYY, CHECKING RESERVE.* - INFORMATIVE MESSAGE
00067  M00S00065.1mr     +++|*         ISSUED TO B-DISPLAY WHILE CONTROLLER AND UNIT RESERVES
00068  M00S00066.1mr     +++|*         ARE BEING PROCESSED.  IN THE CASE OF MULTI-UNIT
00069  M00S00067.1mr     +++|*         DEVICES, YY IS THE PHYSICAL UNIT NUMBER.
00070  M00S00068.1mr     +++|*
00071  M00S00069.1mr     +++|*         * EQXXX, CLEARING LABEL SECTOR INTERLOCKS.* - INFORMATIVE
00072  M00S00070.1mr     +++|*         MESSAGE ISSUED TO B-DISPLAY WHILE THE RMS COPY OF THE
00073  M00S00071.1mr     +++|*         MST IS BEING PROCESSED (SHARED RMS SYSTEM ONLY).
00074  M00S00072.1mr     +++|*
00075  M00S00073.1mr     +++|*         * EQXXX, CHYY, CONTROLLER RESERVED.* - INFORMATIVE MESSAGE
00076  M00S00074.1mr     +++|*         ISSUED TO B-DISPLAY INDICATING THAT THE HARDWARE CONTROLLER
00077  M00S00075.1mr     +++|*         RESERVE IS HELD BY THE DOWN MAINFRAME FOR THE SPECIFIED
00078  M00S00076.1mr     +++|*         CHANNEL/DEVICE.  TO CLEAR THE RESERVE, THE OPERATOR SHOULD
00079  M00S00077.1mr     +++|*         HIT THE DEADSTART BUTTON.  IF THE CONTROLLER IS TO BE
00080  M00S00078.1mr     +++|*         IGNORED BY THIS MAINFRAME, JUST ENTER THE *GO,JSN* COMMAND.
00081  M00S00079.1mr     +++|*
00082  M00S00080.1mr     +++|*         * EQXXX, UNYY, UNIT RESERVED.* - INFORMATIVE MESSAGE ISSUED
00083  M00S00081.1mr     +++|*         TO B-DISPLAY INDICATING THAT THE HARDWARE UNIT RESERVE IS
00084  M00S00082.1mr     +++|*         HELD BY THE DOWN MAINFRAME FOR THE SPECIFIED UNIT.  IF THIS
00085  M00S00083.1mr     +++|*         DEVICE IS TO BE IGNORED BY THIS MAINFRAME, THE OPERATOR
00086  M00S00084.1mr     +++|*         SHOULD JUST ENTER *GO,JSN*.  OTHERWISE, THE OPERATOR SHOULD
00087  M00S00085.1mr     +++|*         CLEAR THE UNIT RESERVE (SEE DOCUMENTATION IN *MREC*) ON
00088  M00S00086.1mr     +++|*         THE UNIT TO CONTINUE PROCESSING.
00089  M00S00087.1mr     +++|*
00090  M00S00088.1mr     +++|*         * INTERLOCKING IQFT, EQXXX.* - INDICATES *1MR* IS WAITING
00091  M00S00089.1mr     +++|*         FOR THE INTERLOCK ON THE *IQFT* TRACK.
00092  M00S00090.1mr     +++|          SPACE  4
00093  M00S00091.1mr     +++|*CALL     COMPMAC
00094  M00S00092.1mr     +++|*CALL     COMSCPS
00095  M00S00093.1mr     +++|*CALL     COMSIOQ
00096  M00S00094.1mr     +++|*CALL     COMSJIO

Seq #  *Modification Id* Act 
----------------------------+
00097  M01S00002.283l840 +++|          QUAL   LSD
00098  M01S00003.283l840 +++|*CALL     COMSLSD
00099  M01S00004.283l840 +++|          QUAL   *
00100  M01S00005.283l840 +++| N4SS     EQU    /LSD/N4SS
00101  M01S00006.283l840 +++| DISS     EQU    /LSD/DISS
00102  M01S00007.283l840 +++| CKSS     EQU    /LSD/CKSS
00103  M01S00008.283l840 +++| DKSS     EQU    /LSD/DKSS
00104  M00S00095.1mr     +++|          QUAL   MMF

Seq #  *Modification Id* Act 
----------------------------+
00105  M01S00009.283l840 +++|          LIST   X
00106  M00S00096.1mr     +++|*CALL     COMSMMF

Seq #  *Modification Id* Act 
----------------------------+
00107  M01S00010.283l840 +++|          LIST   *
00108  M00S00097.1mr     +++|          QUAL   *

Seq #  *Modification Id* Act 
----------------------------+
00109  M01S00001.ns2547  +++| MISD     EQU    /MMF/MISD

Seq #  *Modification Id* Act 
----------------------------+
00110  M01S00098.283l840 ---|*CALL COMSPIM

Seq #  *Modification Id* Act 
----------------------------+
00111  M01S00011.283l840 +++| MMPF     EQU    /MMF/MMPF
00112  M01S00012.283l840 +++| MXMF     EQU    /MMF/MXMF
00113  M01S00013.283l840 +++|          QUAL   MRT
00114  M01S00014.283l840 +++|          LIST   X
00115  M01S00015.283l840 +++|*CALL     COMSMRT
00116  M01S00016.283l840 +++|          LIST   *
00117  M01S00017.283l840 +++|          QUAL   *
00118  M01S00018.283l840 +++|*CALL     COMSMSP
00119  M01S00019.283l840 +++|*CALL     COMSMST
00120  M01S00020.283l840 +++|*CALL     COMSPFM
00121  M01S00021.283l840 +++|*CALL     COMSPIM
00122  M00S00099.1mr     +++|*CALL     COMSSSD
00123  M00S00100.1mr     +++|*CALL     COMSSSE
00124  M00S00101.1mr     +++|*CALL     COMSWEI

Seq #  *Modification Id* Act 
----------------------------+
00125  M01S00102.283l840 ---| MMPF     EQU    /MMF/MMPF   DEFINE TAG FOR *COMSMRT*
00126  M01S00103.283l840 ---| MXMF     EQU    /MMF/MXMF
00127  M01S00104.283l840 ---|          QUAL   MRT
00128  M01S00105.283l840 ---|          LIST   X
00129  M01S00106.283l840 ---|*CALL     COMSMRT
00130  M01S00107.283l840 ---|          LIST   *
00131  M01S00108.283l840 ---|          QUAL   *
00132  M01S00109.283l840 ---|*CALL     COMSMSP
00133  M01S00110.283l840 ---|          QUAL   LSD
00134  M01S00111.283l840 ---|*CALL     COMSLSD
00135  M01S00112.283l840 ---|          QUAL   *
00136  M01S00113.283l840 ---| N4SS     EQU    /LSD/N4SS
00137  M01S00114.283l840 ---| DISS     EQU    /LSD/DISS
00138  M01S00115.283l840 ---| CKSS     EQU    /LSD/CKSS

Seq #  *Modification Id* Act 
----------------------------+
00139  M02S00002.283l840 ---| DKSS     EQU    /LSD/DKSS

Seq #  *Modification Id* Act 
----------------------------+
00140  M01S00116.283l840 ---|*CALL     COMSMST
00141  M01S00117.283l840 ---|*CALL     COMSPFM
00142  M00S00118.1mr     +++|          SPACE  4,10
00143  M00S00119.1mr     +++|**        ASSEMBLY CONSTANTS.
00144  M00S00120.1mr     +++|
00145  M00S00121.1mr     +++|
00146  M00S00122.1mr     +++| BUFS     EQU    BFMS-502    SCRATCH BUFFER
00147  M00S00123.1mr     +++| QBUF     EQU    BUFS-502    *IQFT* BUFFER
00148  M00S00124.1mr     +++| BUFD     EQU    QBUF-5*2    *DAT* BUFFER
00149  M00S00125.1mr     +++|          SPACE  4
00150  M00S00126.1mr     +++|****      DIRECT LOCATION ASSIGNMENTS.
00151  M00S00127.1mr     +++|
00152  M00S00128.1mr     +++|
00153  M00S00129.1mr     +++|          ORG    16
00154  M00S00130.1mr     +++| EF       BSS    1           ERROR FLAG
00155  M00S00131.1mr     +++| SC       BSS    1           SCRATCH
00156  M00S00132.1mr     +++| CN       BSS    5           CM BUFFER
00157  M00S00133.1mr     +++| DA       BSS    2           DAT TRACK ADDRESS
00158  M00S00134.1mr     +++| DF       BSS    1           DIRECT ACCESS FILE COUNT
00159  M00S00135.1mr     +++| DT       BSS    1           DAT/FAT TRACK
00160  M00S00136.1mr     +++| ET       BSS    2           ENVIRONMENT TABLE ADDRESS
00161  M00S00137.1mr     +++| EQ       BSS    1           EQUIPMENT BEING PROCESSED
00162  M00S00138.1mr     +++| ID       BSS    1           MACHINE ID OF THIS MACHINE
00163  M00S00139.1mr     +++| LK       BSS    1           LINK DEVICE EST ORDINAL
00164  M00S00140.1mr     +++| MD       BSS    1           MACHINE INDEX OF DOWNED MACHINE
00165  M00S00141.1mr     +++| MI       BSS    1           MID OF DOWNED MACHINE
00166  M00S00142.1mr     +++| MK       BSS    1           MACHINE MASK OF DOWNED MACHINE
00167  M00S00143.1mr     +++| NT       BSS    1           NUMBER OF TRACKS ON CURRENT DEVICE
00168  M00S00144.1mr     +++| FT       BSS    1           FILE TYPE
00169  M00S00145.1mr     +++| PF       BSS    1           PRESERVED FILE TRACK INTERLOCK STATUS
00170  M00S00146.1mr     +++| TC       BSS    1           TRACK COUNT
00171  M00S00147.1mr     +++| BY       BSS    1           BYTE COUNT
00172  M00S00148.1mr     +++| WB       EQU    NT - BY     WORD BUFFER (5 LOCATIONS)
00173  M00S00149.1mr     +++| BI       BSS    1           BIT COUNT
00174  M00S00150.1mr     +++| AD       BSS    1           ADDRESS OF CURRENT MRT BYTE
00175  M00S00151.1mr     +++|
00176  M00S00152.1mr     +++|          ORG    57
00177  M00S00153.1mr     +++|
00178  M00S00154.1mr     +++| SD       BSS    1           TYPE OF SHARED DEVICE (FUNCTION 2)
00179  M00S00155.1mr     +++|*                            0 = EXTENDED MEMORY MMF DEVICE.
00180  M00S00156.1mr     +++|*                            1 = INDEPENDENT SHARED DEVICE (ISD).
00181  M00S00157.1mr     +++| TW       BSS    1           CONSTANT 2
00182  M00S00158.1mr     +++| SX       BSS    1           CONSTANT 6
00183  M00S00159.1mr     +++| RE       BSS    1           READ EXTENDED MEMORY SUBFUNCTION * 1000
00184  M00S00160.1mr     +++| WE       BSS    1           WRITE EXTENDED MEMORY SUBFUNCTION * 1000
00185  M00S00161.1mr     +++| CT       BSS    1           CURRENT TRACK
00186  M00S00162.1mr     +++| QF       BSS    1           FIRST TRACK OF *IQFT*
00187  M00S00163.1mr     +++| QT       BSS    1           CURRENT TRACK OF *IQFT*
00188  M00S00164.1mr     +++| QS       BSS    1           CURRENT SECTOR OF *IQFT*
00189  M00S00165.1mr     +++|****
00190  M00S00166.1mr     +++|          TITLE  MAIN ROUTINE.
00191  M00S00167.1mr     +++|
00192  M00S00168.1mr     +++|
00193  M00S00169.1mr     +++|**        MAIN ROUTINE.
00194  M00S00170.1mr     +++|
00195  M00S00171.1mr     +++|
00196  M00S00172.1mr     +++|          QUAL   MRP
00197  M00S00173.1mr     +++|          ORG    PPFW
00198  M00S00174.1mr     +++|
00199  M00S00175.1mr     +++| MRP      RJM    PRS         PRESET
00200  M00S00176.1mr     +++| MRPA     EQU    *-1
00201  M00S00177.1mr     +++|
00202  M00S00178.1mr     +++| DROP     RJM    CFI         CLEAR FLAG REGISTER INTERLOCKS
00203  M00S00179.1mr     +++| MRP1     LDN    1           SET COMPLETE FLAG FOR *MREC*
00204  M00S00180.1mr     +++|          STD    CN+4
00205  M00S00181.1mr     +++|          LDD    RA
00206  M00S00182.1mr     +++|          SHN    6
00207  M00S00183.1mr     +++|          ADC    /MRT/RCLW
00208  M00S00184.1mr     +++|          CWD    CN
00209  M00S00185.1mr     +++| MRP2     MONITOR  DPPM      DROP PP
00210  M00S00186.1mr     +++|          UJN    ABT1        EXIT TO PP RESIDENT
00211  M00S00187.1mr     +++|
00212  M00S00188.1mr     +++| ERR      LDC    =C* 1MR ERROR FLAG TERMINATION.*
00213  M00S00189.1mr     +++|          RJM    DFM
00214  M00S00190.1mr     +++|          LDC    WDSX        RESET ERROR RETURN FROM *WDS*
00215  M00S00191.1mr     +++|          STM    WDSA
00216  M00S00192.1mr     +++|          RJM    TQF         TERMINATE *IQFT*
00217  M00S00193.1mr     +++|          RJM    CFI         CLEAR FLAG REGISTER INTERLOCKS
00218  M00S00194.1mr     +++|          UJN    MRP2        DROP PP
00219  M00S00195.1mr     +++|          SPACE  4
00220  M00S00196.1mr     +++|**        ABT - ISSUE MESSAGE AND ABORT.
00221  M00S00197.1mr     +++|*
00222  M00S00198.1mr     +++|*         ENTRY  (A) = MESSAGE ADDRESS.
00223  M00S00199.1mr     +++|
00224  M00S00200.1mr     +++|
00225  M00S00201.1mr     +++| ABT      RJM    DFM         ISSUE MESSAGE
00226  M00S00202.1mr     +++|          RJM    CFI         CLEAR FLAG REGISTER INTERLOCKS
00227  M00S00203.1mr     +++|          MONITOR ABTM
00228  M00S00204.1mr     +++| ABT1     LJM    PPR         EXIT TO PP RESIDENT
00229  M00S00205.1mr     +++|          SPACE  4
00230  M00S00206.1mr     +++|**        COMMON DECKS.
00231  M00S00207.1mr     +++|
00232  M00S00208.1mr     +++|
00233  M00S00209.1mr     +++|          QUAL
00234  M00S00210.1mr     +++|*CALL     COMPC2D
00235  M00S00211.1mr     +++|*CALL     COMPCEA
00236  M00S00212.1mr     +++|*CALL     COMPCKP
00237  M00S00213.1mr     +++|*CALL     COMPRSS
00238  M00S00214.1mr     +++|*CALL     COMPSSE
00239  M00S00215.1mr     +++|
00240  M00S00216.1mr     +++|          QUAL   MRP
00241  M00S00217.1mr     +++|*CALL     COMPWEI
00242  M00S00218.1mr     +++|*CALL     COMPWSS
00243  M00S00219.1mr     +++| WDS      SPACE  4,10
00244  M00S00220.1mr     +++|**        WDS - WRITE MASS STORAGE.
00245  M00S00221.1mr     +++|*
00246  M00S00222.1mr     +++|*         ENTRY  (A) = SAME AS ENTRY TO DRIVER.
00247  M00S00223.1mr     +++|*                (T5 - T7) = MASS STORAGE PARAMETERS.
00248  M00S00224.1mr     +++|*
00249  M00S00225.1mr     +++|*         EXIT   (A) = 0 IF NO WRITE ERRORS.
00250  M00S00226.1mr     +++|*
00251  M00S00227.1mr     +++|*         CALLS  WDS.
00252  M00S00228.1mr     +++|
00253  M00S00229.1mr     +++|
00254  M00S00230.1mr     +++| WDS1     LDN    0           INDICATE SUCCESSFUL WRITE
00255  M00S00231.1mr     +++|
00256  M00S00232.1mr     +++| WDS      SUBR               ENTRY/EXIT
00257  M00S00233.1mr     +++|          RJM    //WDS
00258  M00S00234.1mr     +++|          PJN    WDS1        IF WRITE COMPLETED
00259  M00S00235.1mr     +++|          SHN    21-12
00260  M00S00236.1mr     +++|          SHN    0-21
00261  M00S00237.1mr     +++|          NJN    WDSX        IF NON-RECOVERABLE ERROR
00262  M00S00238.1mr     +++|          LCN    10
00263  M00S00239.1mr     +++|          LJM    WDSX        ERROR RETURN
00264  M00S00240.1mr     +++| WDSA     EQU    *-1
00265  M00S00241.1mr     +++|          TITLE  FUNCTION 1 - PROCESS DAT, FAT, MRT-S.
00266  M00S00242.1mr     +++| PMT      SPACE  4
00267  M00S00243.1mr     +++|**        PMT - PROCESS DAT, FAT, MRT,S.  (FUNCTION 1)
00268  M00S00244.1mr     +++|*
00269  M00S00245.1mr     +++|*         ENTRY  (IR+3 - IR+4) = ADDR.
00270  M00S00246.1mr     +++|*
00271  M00S00247.1mr     +++|*         ADDR   ADDRESS OF TABLE OF DEVICES TO RECOVER.
00272  M00S00248.1mr     +++|*

Seq #  *Modification Id* Act 
----------------------------+
00273  M01S00249.283l840 ---|*         CALLS  CAA, CLU, C2D, DAT, DFM, ECS, MRT, PDT,
00274  M01S00250.283l840 ---|*                PFB, RMI, SDM, SDP, SFR.

Seq #  *Modification Id* Act 
----------------------------+
00275  M01S00022.283l840 +++|*         CALLS  CAA, CLU, C2D, DAT, DFM, MRT, PDT, PFB, RMI, SDM,
00276  M01S00023.283l840 +++|*                SDP, SFR, *2MS*.
00277  M00S00251.1mr     +++|*
00278  M00S00252.1mr     +++|*         MACROS EXECUTE, PAUSE.
00279  M00S00253.1mr     +++|
00280  M00S00254.1mr     +++|
00281  M00S00255.1mr     +++| PMT      SUBR               ENTRY/EXIT

Seq #  *Modification Id* Act 
----------------------------+
00282  M01S00256.283l840 ---|
00283  M01S00257.283l840 ---|*         PROCESS CONTROLLER AND UNIT RESERVES.
00284  M01S00258.283l840 ---|
00285  M01S00259.283l840 ---|          EXECUTE  2MS       RELEASE HARDWARE RESERVES

Seq #  *Modification Id* Act 
----------------------------+
00286  M01S00024.283l840 +++|          EXECUTE  2MS       LOAD HARDWARE RESERVE ROUTINES
00287  M00S00260.1mr     +++|          LDD    LK
00288  M00S00261.1mr     +++|          ZJN    PMT1        IF NOT EXTENDED MEMORY MMF
00289  M00S00262.1mr     +++|          LDN    /MMF/DATI
00290  M00S00263.1mr     +++|          RJM    SFR         SET DAT INTERLOCK

Seq #  *Modification Id* Act 
----------------------------+
00291  M01S00264.283l840 ---|
00292  M01S00265.283l840 ---|*         DISABLE LEVEL 3 RECOVERY OF DOWNED MACHINE.
00293  M01S00266.283l840 ---|
00294  M01S00267.283l840 ---|          LDN    ZERL        BUILD MMFL WORD FOR DOWNED MACHINE
00295  M01S00268.283l840 ---|          CRD    CM
00296  M01S00269.283l840 ---|          LDD    MI          SET MID OF DOWNED MACHINE
00297  M01S00270.283l840 ---|          STD    CM
00298  M01S00271.283l840 ---|          LDD    MD          SET MACHINE INDEX OF DOWNED MACHINE
00299  M01S00272.283l840 ---|          STD    CM+4
00300  M01S00273.283l840 ---|          LDD    MA          SET CM BUFFER ADDRESS
00301  M01S00274.283l840 ---|          CWD    CM
00302  M01S00275.283l840 ---|          LDD    ET+1        SET EXTENDED MEMORY ADDRESS
00303  M01S00276.283l840 ---|          ADD    MD          ADD INDEX INTO CORRECT ENTRY
00304  M01S00277.283l840 ---|          SBN    1
00305  M01S00278.283l840 ---|          STD    CM+4
00306  M01S00279.283l840 ---|          SHN    -14
00307  M01S00280.283l840 ---|          ADD    ET
00308  M01S00281.283l840 ---|          ADD    WE
00309  M01S00282.283l840 ---|          STD    CM+3
00310  M01S00283.283l840 ---|          LDN    1-1         WRITE EXTENDED MEMORY
00311  M01S00284.283l840 ---|          RJM    ECS
00312  M00S00285.1mr     +++|          RJM    CLU         CLEAR UTILITY / DEVICE INTERLOCKS
00313  M00S00286.1mr     +++|
00314  M00S00287.1mr     +++|*         PROCESS DAT, MRT-S, SYSTEM SECTORS.
00315  M00S00288.1mr     +++|
00316  M00S00289.1mr     +++| PMT1     LCN    0           PRESET TABLE INDEX
00317  M00S00290.1mr     +++|          STD    SC
00318  M00S00291.1mr     +++| PMT2     PAUSE  NE
00319  M00S00292.1mr     +++|          AOD    SC          READ TABLE ENTRY
00320  M00S00293.1mr     +++|          RJM    CAA
00321  M00S00294.1mr     +++|          ADD    SC
00322  M00S00295.1mr     +++|          CRD    CM
00323  M00S00296.1mr     +++|          LDD    CM+4        SET EST ORDINAL
00324  M00S00297.1mr     +++|          STD    EQ
00325  M00S00298.1mr     +++|          STD    T5
00326  M00S00299.1mr     +++|          NJN    PMT3        IF NOT END OF DEVICES TO RECOVER
00327  M00S00300.1mr     +++|          LJM    PMTX        RETURN
00328  M00S00301.1mr     +++|
00329  M00S00302.1mr     +++| PMT3     LDD    CM          SET POSSIBLE IGNORE DEVICE
00330  M00S00303.1mr     +++|          STM    PMTA
00331  M00S00304.1mr     +++|          LDD    CM+3        SET TYPE OF SHARED DEVICE
00332  M00S00305.1mr     +++|          STD    SD
00333  M00S00306.1mr     +++|          ZJN    PMT4        IF NOT ISD
00334  M00S00307.1mr     +++|          LDD    T5
00335  M00S00308.1mr     +++|          STD    LK
00336  M00S00309.1mr     +++|          RJM    SDM         CHECK IF DEVICE SHARED TO DOWN MF
00337  M00S00310.1mr     +++|          NJN    PMT2        IF NOT SHARED TO DOWN MF
00338  M00S00311.1mr     +++|          RJM    RMI         RELEASE MST INTERLOCKS
00339  M00S00312.1mr     +++|          UJN    PMT5        PROCESS MRT
00340  M00S00313.1mr     +++|

Seq #  *Modification Id* Act 
----------------------------+
00341  M01S00314.283l840 ---| PMT4     RJM    PDT         PROCESS DAT FOR DEVICE

Seq #  *Modification Id* Act 
----------------------------+
00342  M01S00025.283l840 +++| PMT4     RJM    PDT         PROCESS DAT FOR DEVICE
00343  M00S00315.1mr     +++|          ZJN    PMT7        IF NO PROCESSING FOR DEVICE
00344  M00S00316.1mr     +++| PMT5     RJM    SDP         SET DEVICE PARAMETERS
00345  M00S00317.1mr     +++|          STM    PMTB
00346  M00S00318.1mr     +++|          RJM    MRT         PROCESS MRT FOR DEVICE
00347  M00S00319.1mr     +++|          LDC    0
00348  M00S00320.1mr     +++| PMTA     EQU    *-1
00349  M00S00321.1mr     +++|          LMN    /MRT/IGN
00350  M00S00322.1mr     +++|          ZJN    PMT6        IF IGNORE DEVICE
00351  M00S00323.1mr     +++|          LDC    **          CHECK PFC SIZE
00352  M00S00324.1mr     +++| PMTB     EQU    *-1
00353  M00S00325.1mr     +++|          ZJN    PMT8        IF 8-WORD PF CATALOGS
00354  M00S00326.1mr     +++|          LDD    DF
00355  M00S00327.1mr     +++|          ZJN    PMT6        IF NO DAF-S
00356  M00S00328.1mr     +++|          RJM    PFB         PROCESS DAF SYSTEM SECTORS
00357  M00S00329.1mr     +++|          NJN    PMT8        IF ALL FILES NOT PROCESSED
00358  M00S00330.1mr     +++| PMT6     LDD    SD
00359  M00S00331.1mr     +++|          NJN    PMT7        IF ISD
00360  M00S00332.1mr     +++|          LDD    WE          WRITE DAT ENTRY WITH ACCESS CLEARED
00361  M00S00333.1mr     +++|          STD    T3
00362  M00S00334.1mr     +++|          LDD    MA
00363  M00S00335.1mr     +++|          CWM    BUFD,TW     STORE DAT ENTRY IN MESSAGE BUFFER
00364  M00S00336.1mr     +++|          LDD    EQ          SET EQUIPMENT
00365  M00S00337.1mr     +++|          RJM    DAT         WRITE DAT ENTRY
00366  M00S00338.1mr     +++| PMT7     LJM    PMT2        LOOP FOR NEXT DEVICE
00367  M00S00339.1mr     +++|
00368  M00S00340.1mr     +++| PMT8     LDD    EQ          CONVERT UPPER DIGIT OF EST ORDINAL
00369  M00S00341.1mr     +++|          SHN    -6
00370  M00S00342.1mr     +++|          ADC    2RQ0
00371  M00S00343.1mr     +++|          STM    PMTC+1
00372  M00S00344.1mr     +++|          LDD    EQ          CONVERT LOWER TWO DIGITS OF EST ORDINAL
00373  M00S00345.1mr     +++|          RJM    C2D
00374  M00S00346.1mr     +++|          STM    PMTC+2
00375  M00S00347.1mr     +++|          LDC    PMTC        * EQXXX, DAF INTERLOCKS NOT CLEARED.*
00376  M00S00348.1mr     +++|          RJM    DFM
00377  M00S00349.1mr     +++|          UJN    PMT7        LOOP FOR NEXT DEVICE
00378  M00S00350.1mr     +++|
00379  M00S00351.1mr     +++|
00380  M00S00352.1mr     +++| PMTC     DATA   C* EQXXX, DAF INTERLOCKS NOT CLEARED.*

Seq #  *Modification Id* Act 
----------------------------+
00381  M01S00026.283l840 +++|          TITLE  FUNCTION 4 - PROCESS RESERVES AND BAT-S.
00382  M01S00027.283l840 +++| PRB      SPACE  4,10
00383  M01S00028.283l840 +++|**        PRB - PROCESS RESERVES AND BAT-S.  (FUNCTION 4)
00384  M01S00029.283l840 +++|*
00385  M01S00030.283l840 +++|*         ENTRY  (IR+3 - IR+4) = ADDR.
00386  M01S00031.283l840 +++|*
00387  M01S00032.283l840 +++|*         ADDR   ADDRESS OF TABLE OF DEVICES TO RECOVER.
00388  M01S00033.283l840 +++|*
00389  M01S00034.283l840 +++|*         CALLS  ECS, RES, *2MS*.
00390  M01S00035.283l840 +++|*
00391  M01S00036.283l840 +++|*         MACROS EXECUTE.
00392  M01S00037.283l840 +++|
00393  M01S00038.283l840 +++|
00394  M01S00039.283l840 +++| PRB      SUBR               ENTRY/EXIT
00395  M01S00040.283l840 +++|          LDD    LK
00396  M01S00041.283l840 +++|          ZJN    PRB1        IF NOT EXTENDED MEMORY MMF
00397  M01S00042.283l840 +++|
00398  M01S00043.283l840 +++|*         DISABLE LEVEL 3 RECOVERY OF DOWNED MACHINE.
00399  M01S00044.283l840 +++|
00400  M01S00045.283l840 +++|          LDN    ZERL        BUILD MMFL WORD FOR DOWNED MACHINE
00401  M01S00046.283l840 +++|          CRD    CM
00402  M01S00047.283l840 +++|          LDD    MI          SET MID OF DOWNED MACHINE
00403  M01S00048.283l840 +++|          STD    CM
00404  M01S00049.283l840 +++|          LDD    MD          SET MACHINE INDEX OF DOWNED MACHINE
00405  M01S00050.283l840 +++|          STD    CM+4
00406  M01S00051.283l840 +++|          LDD    MA          SET CM BUFFER ADDRESS
00407  M01S00052.283l840 +++|          CWD    CM
00408  M01S00053.283l840 +++|          LDD    ET+1        SET EXTENDED MEMORY ADDRESS
00409  M01S00054.283l840 +++|          ADD    MD          ADD INDEX INTO CORRECT ENTRY
00410  M01S00055.283l840 +++|          SBN    1
00411  M01S00056.283l840 +++|          STD    CM+4
00412  M01S00057.283l840 +++|          SHN    -14
00413  M01S00058.283l840 +++|          ADD    ET
00414  M01S00059.283l840 +++|          ADD    WE
00415  M01S00060.283l840 +++|          STD    CM+3
00416  M01S00061.283l840 +++|          LDN    1-1         WRITE EXTENDED MEMORY
00417  M01S00062.283l840 +++|          RJM    ECS
00418  M01S00063.283l840 +++|
00419  M01S00064.283l840 +++|*         PROCESS CONTROLLER AND UNIT RESERVES.
00420  M01S00065.283l840 +++|
00421  M01S00066.283l840 +++| PRB1     EXECUTE  2MS       LOAD HARDWARE RESERVE ROUTINES
00422  M01S00067.283l840 +++|          RJM    RES         PROCESS BAT-S AND HARDWARE RESERVES
00423  M01S00068.283l840 +++|          UJP    PRBX        RETURN
00424  M00S00353.1mr     +++|          TITLE  SUBROUTINES.
00425  M00S00354.1mr     +++| CAA      SPACE  4
00426  M00S00355.1mr     +++|**        CAA - CALCULATE ABSOLUTE ADDRESS.
00427  M00S00356.1mr     +++|*
00428  M00S00357.1mr     +++|*         ENTRY  (IR+3 - IR+4) = RELATIVE ADDRESS.
00429  M00S00358.1mr     +++|*
00430  M00S00359.1mr     +++|*         EXIT   (A) = ABSOLUTE ADDRESS.
00431  M00S00360.1mr     +++|
00432  M00S00361.1mr     +++|
00433  M00S00362.1mr     +++| CAA      SUBR               ENTRY/EXIT
00434  M00S00363.1mr     +++|          LDD    IR+3
00435  M00S00364.1mr     +++|          LPN    77
00436  M00S00365.1mr     +++|          SHN    6
00437  M00S00366.1mr     +++|          ADD    RA
00438  M00S00367.1mr     +++|          SHN    6
00439  M00S00368.1mr     +++|          ADD    IR+4
00440  M00S00369.1mr     +++|          UJN    CAAX        RETURN
00441  M00S00370.1mr     +++| CAT      SPACE  4,10
00442  M00S00371.1mr     +++|**        CAT - CALCULATE ADDRESS OF TRT.
00443  M00S00372.1mr     +++|*
00444  M00S00373.1mr     +++|*         ENTRY  (A) = ADDRESS OF WORD *TRLL* IN MST.
00445  M00S00374.1mr     +++|*
00446  M00S00375.1mr     +++|*         EXIT   (A) = FWA OF TRT.
00447  M00S00376.1mr     +++|*
00448  M00S00377.1mr     +++|*         USES   CM - CM+4.
00449  M00S00378.1mr     +++|
00450  M00S00379.1mr     +++|
00451  M00S00380.1mr     +++| CAT      SUBR               ENTRY/EXIT
00452  M00S00381.1mr     +++|          CRD    CM          GET FWA OF TRT
00453  M00S00382.1mr     +++|          LDD    CM+3
00454  M00S00383.1mr     +++|          LPN    77
00455  M00S00384.1mr     +++|          SHN    14
00456  M00S00385.1mr     +++|          LMD    CM+4
00457  M00S00386.1mr     +++|          UJN    CATX        RETURN
00458  M00S00387.1mr     +++| CAM      SPACE  4
00459  M00S00388.1mr     +++|**        CAM - CHECK ACCESS MODES FOR DIRECT ACCESS FILE.
00460  M00S00389.1mr     +++|*
00461  M00S00390.1mr     +++|*         ENTRY  (T5) = EST ORDINAL.
00462  M00S00391.1mr     +++|*                (T6) = FIRST TRACK.
00463  M00S00392.1mr     +++|*                (BFMS) = SYSTEM SECTOR.
00464  M00S00393.1mr     +++|*
00465  M00S00394.1mr     +++|*         EXIT   (A) = (PF) = 0 IF FILE PURGED.
00466  M00S00395.1mr     +++|*
00467  M00S00396.1mr     +++|*         USES   CM - CM+4.
00468  M00S00397.1mr     +++|*
00469  M00S00398.1mr     +++|*         CALLS  RRS.
00470  M00S00399.1mr     +++|*
00471  M00S00400.1mr     +++|*         MACROS ENDMS, MONITOR.
00472  M00S00401.1mr     +++|
00473  M00S00402.1mr     +++|
00474  M00S00403.1mr     +++| CAM1     LDN    1           SET FILE NOT PURGED
00475  M00S00404.1mr     +++|
00476  M00S00405.1mr     +++| CAM      SUBR               ENTRY/EXIT
00477  M00S00406.1mr     +++|          LDM    CASS        CHECK PURGE BIT
00478  M00S00407.1mr     +++|          SHN    21-5
00479  M00S00408.1mr     +++|          PJN    CAM1        IF PURGE BIT NOT SET
00480  M00S00409.1mr     +++|          SHN    -21+5+22    CHECK IF ACTIVE USERS
00481  M00S00410.1mr     +++|          LPN    32
00482  M00S00411.1mr     +++|          ADM    UCSS+1
00483  M00S00412.1mr     +++|          ADM    UCSS+2
00484  M00S00413.1mr     +++|          ADM    UCSS+3
00485  M00S00414.1mr     +++|          ADM    UCSS+4
00486  M00S00415.1mr     +++|          NJN    CAMX        IF ACTIVE USERS
00487  M00S00416.1mr     +++|          RJM    RRS
00488  M00S00417.1mr     +++|          ENDMS
00489  M00S00418.1mr     +++|          LDD    T6          RELEASE FILE SPACE
00490  M00S00419.1mr     +++|          STD    CM+2
00491  M00S00420.1mr     +++|          LDD    T5
00492  M00S00421.1mr     +++|          STD    CM+1
00493  M00S00422.1mr     +++|          MONITOR DTKM
00494  M00S00423.1mr     +++|*         LDN    0           CLEAR TRACK INTERLOCK STATUS
00495  M00S00424.1mr     +++|          STD    PF
00496  M00S00425.1mr     +++|          UJN    CAMX        RETURN

Seq #  *Modification Id* Act 
----------------------------+
00497  M01S00426.283l840 ---| CFI      SPACE  4

Seq #  *Modification Id* Act 
----------------------------+
00498  M01S00069.283l840 +++| CFI      SPACE  4,10
00499  M00S00427.1mr     +++|**        CFI - CLEAR FLAG REGISTER INTERLOCKS HELD BY *1MR*.
00500  M00S00428.1mr     +++|*
00501  M00S00429.1mr     +++|*         ENTRY  (CFIA) = LINK DEVICE EST ORDINAL, IF ECS MMF.
00502  M00S00430.1mr     +++|*                       = 0, IF ISD MMF.
00503  M00S00431.1mr     +++|*
00504  M00S00432.1mr     +++|*         USES   T2.
00505  M00S00433.1mr     +++|*
00506  M00S00434.1mr     +++|*         CALLS  CFR, SCI.
00507  M00S00435.1mr     +++|
00508  M00S00436.1mr     +++|
00509  M00S00437.1mr     +++| CFI      SUBR               ENTRY/EXIT
00510  M00S00438.1mr     +++|          RJM    SCI         CLEAR *CMS* INTERLOCK
00511  M00S00439.1mr     +++|          LDC    **          CHECK TYPE OF MMF OPERATION
00512  M00S00440.1mr     +++| CFIA     EQU    *-1         (LINK DEVICE EST ORDINAL, IF ECS MMF)
00513  M00S00441.1mr     +++|          ZJN    CFIX        IF NOT EXTENDED MEMORY MMF
00514  M00S00442.1mr     +++|          LDC    TFRB-3      CLEAR FLAG REGISTER INTERLOCKS
00515  M00S00443.1mr     +++|          STD    T2
00516  M00S00444.1mr     +++| CFI1     LDN    3
00517  M00S00445.1mr     +++|          RAD    T2
00518  M00S00446.1mr     +++|          LDI    T2
00519  M00S00447.1mr     +++|          ZJN    CFIX        IF END OF FLAG BITS
00520  M00S00448.1mr     +++|          LPN    40
00521  M00S00449.1mr     +++|          ZJN    CFI1        IF NOT SET
00522  M00S00450.1mr     +++|          LMI    T2
00523  M00S00451.1mr     +++|          RJM    CFR
00524  M00S00452.1mr     +++|          UJN    CFI1
00525  M00S00453.1mr     +++|
00526  M00S00454.1mr     +++| CQF      SPACE  4,15
00527  M00S00455.1mr     +++|**        CQF - CHECK QUEUE FILE.
00528  M00S00456.1mr     +++|*
00529  M00S00457.1mr     +++|*         ENTRY  (MI) = ID OF DOWN MACHINE.
00530  M00S00458.1mr     +++|*                (QF) = FIRST TRACK OF *IQFT* IF INITIALIZED.
00531  M00S00459.1mr     +++|*                (T4) = CHANNEL (RESERVED).
00532  M00S00460.1mr     +++|*                (T5) = EST ORDINAL.
00533  M00S00461.1mr     +++|*                (CT) = (T6) = FIRST TRACK OF PRESERVED FILE.
00534  M00S00462.1mr     +++|*                (BFMS) = PRESERVED FILE SYSTEM SECTOR.
00535  M00S00463.1mr     +++|*
00536  M00S00464.1mr     +++|*         EXIT   (A) = 0 IF NOT QUEUE FILE.
00537  M00S00465.1mr     +++|*                (FT) = FILE TYPE.
00538  M00S00466.1mr     +++|*
00539  M00S00467.1mr     +++|*         USES   T1, T2, T3.
00540  M00S00468.1mr     +++|*
00541  M00S00469.1mr     +++|*         CALLS  IQF, WQF, WSS.
00542  M00S00470.1mr     +++|*
00543  M00S00471.1mr     +++|*         MACROS ENDMS, FILEREC, SETMS.
00544  M00S00472.1mr     +++|
00545  M00S00473.1mr     +++|
00546  M00S00474.1mr     +++| CQF6     LDN    0           INDICATE NON-QUEUE FILE
00547  M00S00475.1mr     +++|
00548  M00S00476.1mr     +++| CQF      SUBR               ENTRY/EXIT
00549  M00S00477.1mr     +++|          LDM    FNSS+4      EXTRACT FILE TYPE
00550  M00S00478.1mr     +++|          SHN    -6
00551  M00S00479.1mr     +++|          STD    FT
00552  M00S00480.1mr     +++|          LDN    RDATL       SET LENGTH OF QUEUE FILE TABLE
00553  M00S00481.1mr     +++|          STD    T3
00554  M00S00482.1mr     +++| CQF1     SOD    T3          DECREMENT INDEX
00555  M00S00483.1mr     +++|          MJN    CQF6        IF END OF TABLE
00556  M00S00484.1mr     +++|          LDM    RDAT,T3
00557  M00S00485.1mr     +++|          LMD    FT
00558  M00S00486.1mr     +++|          NJN    CQF1        IF NOT MATCHING FILE TYPE
00559  M00S00487.1mr     +++|          LDM    FGSS
00560  M00S00488.1mr     +++|          LPN    2
00561  M00S00489.1mr     +++|          ZJN    CQF2        IF INACTIVE QUEUE FILE
00562  M00S00490.1mr     +++|          LDM    RMSS
00563  M00S00491.1mr     +++|          LMD    MI
00564  M00S00492.1mr     +++|          NJN    CQF6        IF NOT ACTIVE QUEUE FILE ON DOWN MACHINE
00565  M00S00493.1mr     +++|          LCN    2           SET QUEUE FILE INACTIVE
00566  M00S00494.1mr     +++|          RAM    FGSS
00567  M00S00495.1mr     +++|          RJM    WSS         REWRITE SYSTEM SECTOR
00568  M00S00496.1mr     +++| CQF2     LDD    QF
00569  M00S00497.1mr     +++|          NJN    CQF3        IF QUEUE FILE PROCESSING INITIATED
00570  M00S00498.1mr     +++|          ENDMS
00571  M00S00499.1mr     +++|          RJM    IQF         INITIALIZE *IQFT*
00572  M00S00500.1mr     +++| CQF3     LDM    RMSS        SET MACHINE ID
00573  M00S00501.1mr     +++|          STM    FMSS+4
00574  M00S00502.1mr     +++|          LDM    FLSS        SET FILE LENGTH
00575  M00S00503.1mr     +++|          STM    CDSS
00576  M00S00504.1mr     +++|          LDM    FLSS+1
00577  M00S00505.1mr     +++|          STM    CDSS+1
00578  M00S00506.1mr     +++|          LDC    IOSS        SYSTEM SECTOR ADDRESS OF QFT ENTRY
00579  M00S00507.1mr     +++|          STD    T1
00580  M00S00508.1mr     +++|          LDC    QBUF+2      SET BUFFER ADDRESS
00581  M00S00509.1mr     +++| CQFC     EQU    *-1
00582  M00S00510.1mr     +++|          STD    T2
00583  M00S00511.1mr     +++|          ADN    5*QFTE      END OF QFT ENTRY
00584  M00S00512.1mr     +++|          STD    T3
00585  M00S00513.1mr     +++|          ADN    5*10-5*QFTE END OF MAXIMUM SIZE QFT ENTRY
00586  M00S00514.1mr     +++|          STM    CQFD
00587  M00S00515.1mr     +++|
00588  M00S00516.1mr     +++|*         MOVE IQFT ENTRY TO BUFFER.
00589  M00S00517.1mr     +++|
00590  M00S00518.1mr     +++| CQF4     LDI    T1          MOVE QFT ENTRY
00591  M00S00519.1mr     +++|          STI    T2
00592  M00S00520.1mr     +++|          AOD    T1          ADVANCE BUFFER ADDRESSES
00593  M00S00521.1mr     +++|          AOD    T2
00594  M00S00522.1mr     +++|          LMD    T3
00595  M00S00523.1mr     +++|          NJN    CQF4        IF NOT END OF QFT ENTRY
00596  M00S00524.1mr     +++|          LDN    5
00597  M00S00525.1mr     +++|          STD    T1
00598  M00S00526.1mr     +++|          LDD    MA          MOVE REMAINDER OF IQFT ENTRY
00599  M00S00527.1mr     +++|          CWM    CDSS,ON
00600  M00S00528.1mr     +++|          CWM    FMSS,ON
00601  M00S00529.1mr     +++|          CWM    FDSS,ON
00602  M00S00530.1mr     +++|          CWM    ACSS,ON
00603  M00S00531.1mr     +++|          CWM    FOSS,ON
00604  M00S00532.1mr     +++|          SBN    5
00605  M00S00533.1mr     +++|          CRM    QBUF+2+5*10,T1
00606  M00S00534.1mr     +++| CQFD     EQU    *-1
00607  M00S00535.1mr     +++|          LDC    5*QFEWL     ADVANCE BUFFER ADDRESS
00608  M00S00536.1mr     +++|          RAM    CQFC
00609  M00S00537.1mr     +++|          LDN    QFEWL       ADVANCE SECTOR LENGTH
00610  M00S00538.1mr     +++|          RAM    QBUF+1
00611  M00S00539.1mr     +++|          SHN    -6
00612  M00S00540.1mr     +++|          ZJN    CQF5        IF NOT FULL SECTOR
00613  M00S00541.1mr     +++|          RJM    WQF         WRITE *IQFT* SECTOR
00614  M00S00542.1mr     +++|          ZJN    CQF5        IF SECTOR WRITTEN
00615  M00S00543.1mr     +++|          LJM    IQF2        END OF SPACE ON *IQFT*
00616  M00S00544.1mr     +++|
00617  M00S00545.1mr     +++| CQF5     LDD    CT          RESET CURRENT TRACK
00618  M00S00546.1mr     +++|          STD    T6
00619  M00S00547.1mr     +++|          LJM    CQFX        RETURN
00620  M00S00548.1mr     +++|
00621  M00S00549.1mr     +++|
00622  M00S00550.1mr     +++|          FILEREC
00623  M00S00551.1mr     +++| DAP      SPACE  4,10
00624  M00S00552.1mr     +++|**        DAP - DELAY AND PAUSE.
00625  M00S00553.1mr     +++|*
00626  M00S00554.1mr     +++|*         EXIT   (A) = 0 IF *ODET* OR ERROR .GE. *SPET* SET.
00627  M00S00555.1mr     +++|
00628  M00S00556.1mr     +++|
00629  M00S00557.1mr     +++| DAP      SUBR               ENTRY/EXIT
00630  M00S00558.1mr     +++|          DELAY
00631  M00S00559.1mr     +++|          PAUSE
00632  M00S00560.1mr     +++|          LDD    CM+1
00633  M00S00561.1mr     +++|          SBN    ODET
00634  M00S00562.1mr     +++|          ZJN    DAPX        IF OPERATOR DROP
00635  M00S00563.1mr     +++|          SBN    SPET-ODET
00636  M00S00564.1mr     +++|          SHN    -21         (A) = 1 IF NO ERROR *SPET* OR ABOVE
00637  M00S00565.1mr     +++|          UJN    DAPX        RETURN
00638  M00S00566.1mr     +++| DPS      SPACE  4
00639  M00S00567.1mr     +++|**        DPS - DETERMINE IF PRESERVED FILE AND RESERVATION BIT
00640  M00S00568.1mr     +++|*         IS SET FOR TRACK SPECIFIED.
00641  M00S00569.1mr     +++|*
00642  M00S00570.1mr     +++|*         ENTRY  (T6) = TRACK.
00643  M00S00571.1mr     +++|*
00644  M00S00572.1mr     +++|*         EXIT   (A, BIT 21) = RESERVATION BIT.
00645  M00S00573.1mr     +++|*                (A, BIT 7) = PRESERVED FILE BIT.
00646  M00S00574.1mr     +++|*                (A, BIT 3) = TRACK INTERLOCK BIT.
00647  M00S00575.1mr     +++|*
00648  M00S00576.1mr     +++|*         USES   CM - CM+4.
00649  M00S00577.1mr     +++|
00650  M00S00578.1mr     +++|
00651  M00S00579.1mr     +++| DPS      SUBR               ENTRY/EXIT
00652  M00S00580.1mr     +++|          LDD    T6          READ TRT WORD
00653  M00S00581.1mr     +++|          SHN    -2
00654  M00S00582.1mr     +++| DPSA     ADC    TRTS
00655  M00S00583.1mr     +++|          CRD    CM
00656  M00S00584.1mr     +++|          LDD    T6          SET SHIFT COUNT
00657  M00S00585.1mr     +++|          LPN    3
00658  M00S00586.1mr     +++|          ADC    SHNI+16
00659  M00S00587.1mr     +++|          STM    DPSB
00660  M00S00588.1mr     +++|          LDD    CM+4
00661  M00S00589.1mr     +++| DPSB     SHN    16
00662  M00S00590.1mr     +++|          UJN    DPSX        RETURN
00663  M00S00591.1mr     +++| IQF      SPACE  4,15
00664  M00S00592.1mr     +++|**        IQF - INITIALIZE *IQFT*.
00665  M00S00593.1mr     +++|*
00666  M00S00594.1mr     +++|*         ENTRY  (T5) = EST ORDINAL.
00667  M00S00595.1mr     +++|*
00668  M00S00596.1mr     +++|*         EXIT   (QF) = (QT) = FIRST TRACK OF *IQFT*.
00669  M00S00597.1mr     +++|*                (QS) = FIRST SECTOR OF *IQFT*.
00670  M00S00598.1mr     +++|*
00671  M00S00599.1mr     +++|*         USES   T3, T6.
00672  M00S00600.1mr     +++|*
00673  M00S00601.1mr     +++|*         CALLS  RSS, WSS.
00674  M00S00602.1mr     +++|*
00675  M00S00603.1mr     +++|*         MACROS SETMS.
00676  M00S00604.1mr     +++|
00677  M00S00605.1mr     +++|
00678  M00S00606.1mr     +++| IQF      SUBR               ENTRY/EXIT
00679  M00S00607.1mr     +++| IQF2     LDM    PFBA
00680  M00S00608.1mr     +++|          STD    T6          SET *IQFT* TRACK
00681  M00S00609.1mr     +++|          STD    QF
00682  M00S00610.1mr     +++|          STD    QT
00683  M00S00611.1mr     +++|          LDC    500
00684  M00S00612.1mr     +++|          STD    T3
00685  M00S00613.1mr     +++| IQF4     LDN    0           CLEAR SYSTEM SECTOR BUFFER
00686  M00S00614.1mr     +++|          STM    BFMS+1,T3
00687  M00S00615.1mr     +++|          STM    QBUF+1,T3   CLEAR IQFT BUFFER
00688  M00S00616.1mr     +++|          SOD    T3
00689  M00S00617.1mr     +++|          NJN    IQF4        LOOP TO START OF BUFFER
00690  M00S00618.1mr     +++|          STM    QBUF+1      CLEAR SECTOR WORD COUNT
00691  M00S00619.1mr     +++|          LDD    MA          MOVE FILE NAME TO BUFFER
00692  M00S00620.1mr     +++|          CWM    IQFA,ON
00693  M00S00621.1mr     +++|          SBN    1
00694  M00S00622.1mr     +++|          CRM    FNSS,ON
00695  M00S00623.1mr     +++|          SETMS  POSITION
00696  M00S00624.1mr     +++|          RJM    WSS         WRITE *IQFT* SYSTEM SECTOR
00697  M00S00625.1mr     +++|          LDN    FSMS        SET FIRST *IQF* SECTOR
00698  M00S00626.1mr     +++|          STD    QS
00699  M00S00627.1mr     +++|          LDD    CT          RESTORE CURRENT TRACK
00700  M00S00628.1mr     +++|          STD    T6
00701  M00S00629.1mr     +++|          SETMS  POSITION
00702  M00S00630.1mr     +++|*         LDN    0           REREAD QUEUE FILE SYSTEM SECTOR
00703  M00S00631.1mr     +++|          RJM    RSS
00704  M00S00632.1mr     +++|          LJM    IQFX        RETURN
00705  M00S00633.1mr     +++|
00706  M00S00634.1mr     +++|
00707  M00S00635.1mr     +++| IQFA     VFD    42/0LQUEUES,6/1,6/SYFT,6/0
00708  M00S00636.1mr     +++| MRM      SPACE  4
00709  M00S00637.1mr     +++|**        MRM - ISSUE MRT ERROR MESSAGE.
00710  M00S00638.1mr     +++|*
00711  M00S00639.1mr     +++|*         ENTRY  (A) = ADDRESS OF MESSAGE.
00712  M00S00640.1mr     +++|*                (T6) = TRACK.
00713  M00S00641.1mr     +++|*                (EQ) = EST ORDINAL TO BE INSERTED IN MESSAGE.
00714  M00S00642.1mr     +++|*
00715  M00S00643.1mr     +++|*         USES   T1.
00716  M00S00644.1mr     +++|*
00717  M00S00645.1mr     +++|*         CALLS  C2D, DFM.
00718  M00S00646.1mr     +++|
00719  M00S00647.1mr     +++|
00720  M00S00648.1mr     +++| MRM      SUBR               ENTRY/EXIT
00721  M00S00649.1mr     +++|          STD    T1          SAVE MESSAGE ADDRESS
00722  M00S00650.1mr     +++|          STM    MRMA
00723  M00S00651.1mr     +++|          LDD    EQ          CONVERT UPPER DIGIT OF EST ORDINAL
00724  M00S00652.1mr     +++|          SHN    -6
00725  M00S00653.1mr     +++|          ADC    2RQ0
00726  M00S00654.1mr     +++|          STM    1,T1
00727  M00S00655.1mr     +++|          LDD    EQ          CONVERT LOWER TWO DIGITS OF EST ORDINAL
00728  M00S00656.1mr     +++|          RJM    C2D
00729  M00S00657.1mr     +++|          STM    2,T1
00730  M00S00658.1mr     +++|          LDD    T1
00731  M00S00659.1mr     +++|          LMC    MRTC
00732  M00S00660.1mr     +++|          ZJN    MRM1        IF NO TRACK IN MESSAGE
00733  M00S00661.1mr     +++|          LDD    T6          CONVERT TRACK MESSAGE
00734  M00S00662.1mr     +++|          RJM    C2D
00735  M00S00663.1mr     +++|          STM    6,T1
00736  M00S00664.1mr     +++|          LDD    T6
00737  M00S00665.1mr     +++|          SHN    -6
00738  M00S00666.1mr     +++|          RJM    C2D
00739  M00S00667.1mr     +++|          STM    5,T1
00740  M00S00668.1mr     +++|          LDD    T1          ISSUE MESSAGE TO ERRLOG
00741  M00S00669.1mr     +++|          LMC    ERLN
00742  M00S00670.1mr     +++|          RJM    DFM
00743  M00S00671.1mr     +++| MRM1     LDC    *           ISSUE MESSAGE TO DAYFILE
00744  M00S00672.1mr     +++| MRMA     EQU    *-1
00745  M00S00673.1mr     +++|          RJM    DFM
00746  M00S00674.1mr     +++|          LJM    MRMX        RETURN
00747  M00S00675.1mr     +++| MRT      SPACE  4
00748  M00S00676.1mr     +++|**        MRT - PROCESS MRT.
00749  M00S00677.1mr     +++|*
00750  M00S00678.1mr     +++|*         ENTRY  (T6) = MRT TRACK NUMBER.
00751  M00S00679.1mr     +++|*                (NT) = NUMBER OF TRACKS ON DEVICE BEING RECOVERED.
00752  M00S00680.1mr     +++|*                (EQ) = EST ORDINAL BEING PROCESSED.
00753  M00S00681.1mr     +++|*
00754  M00S00682.1mr     +++|*         EXIT   TO *MSR* IF LINK DEVICE ERROR.
00755  M00S00683.1mr     +++|*
00756  M00S00684.1mr     +++|*         USES   AD, BY, TC, T5, T6, CM - CM+4.
00757  M00S00685.1mr     +++|*
00758  M00S00686.1mr     +++|*         CALLS  MRM, PTR, RSC, WDS.
00759  M00S00687.1mr     +++|*
00760  M00S00688.1mr     +++|*         MACROS ENDMS, MONITOR, SETMS.
00761  M00S00689.1mr     +++|
00762  M00S00690.1mr     +++|
00763  M00S00691.1mr     +++| MRT8     LDD    MA          RESET MRT TRACK AND SECTOR
00764  M00S00692.1mr     +++|          CWM    MRTB,ON
00765  M00S00693.1mr     +++|          SBN    1
00766  M00S00694.1mr     +++|          CRD    T3

Seq #  *Modification Id* Act 
----------------------------+
00767  M01S00695.ns2579  ---|          SETMS  IO,RW

Seq #  *Modification Id* Act 
----------------------------+
00768  M01S00001.ns2579  +++|          SETMS  IO,(NS,RW)
00769  M00S00696.1mr     +++|          LDC    BUFS        SET BUFFER ADDRESS
00770  M00S00697.1mr     +++|          RJM    WDS         WRITE SECTOR
00771  M00S00698.1mr     +++|          MJN    MRT9        IF ERROR
00772  M00S00699.1mr     +++|          ENDMS
00773  M00S00700.1mr     +++|          UJN    MRTX        RETURN
00774  M00S00701.1mr     +++|
00775  M00S00702.1mr     +++| MRT9     LDC    MRTC        SET MESSAGE ADDRESS
00776  M00S00703.1mr     +++|          RJM    MRM         ISSUE ERROR MESSAGE
00777  M00S00704.1mr     +++|
00778  M00S00705.1mr     +++| MRT      SUBR               ENTRY/EXIT
00779  M00S00706.1mr     +++|          LDD    EQ          UPDATE TRT FOR DEVICE
00780  M00S00707.1mr     +++|          STD    CM+1
00781  M00S00708.1mr     +++|          LDN    UTRS
00782  M00S00709.1mr     +++|          STD    CM+3
00783  M00S00710.1mr     +++|          MONITOR  STBM
00784  M00S00711.1mr     +++|*         LDN    0           SET FIRST TRACK
00785  M00S00712.1mr     +++|          STD    TC
00786  M00S00713.1mr     +++|          STD    BY
00787  M00S00714.1mr     +++|          LDD    LK          READ MRT SECTOR FROM LINK DEVICE
00788  M00S00715.1mr     +++|          STD    T5
00789  M00S00716.1mr     +++|          LDD    SD
00790  M00S00717.1mr     +++|          ZJN    MRT1        IF NOT ISD
00791  M00S00718.1mr     +++|          LDN    /MMF/MRTL-/MMF/MRST
00792  M00S00719.1mr     +++| MRT1     ADN    /MMF/MRST-1  SET MRT SECTOR
00793  M00S00720.1mr     +++|          ADD    MD
00794  M00S00721.1mr     +++|          STD    T7

Seq #  *Modification Id* Act 
----------------------------+
00795  M01S00722.ns2579  ---|          SETMS  IO

Seq #  *Modification Id* Act 
----------------------------+
00796  M01S00002.ns2579  +++|          SETMS  IO,NS
00797  M00S00723.1mr     +++|          LDC    BUFS+2+4    SET FIRST MRT BYTE TO PROCESS
00798  M00S00724.1mr     +++|          STD    AD
00799  M00S00725.1mr     +++|          SBN    2+4         READ MRT SECTOR
00800  M00S00726.1mr     +++|          RJM    RSC
00801  M00S00727.1mr     +++|          LDD    MA          SAVE MRT TRACK AND SECTOR
00802  M00S00728.1mr     +++|          CWD    T3
00803  M00S00729.1mr     +++|          CRM    MRTB,ON
00804  M00S00730.1mr     +++|          ENDMS
00805  M00S00731.1mr     +++|          LDD    EQ          SET EST ORDINAL
00806  M00S00732.1mr     +++|          STD    T5

Seq #  *Modification Id* Act 
----------------------------+
00807  M01S00001.1mr8    +++|          SETMS  IO,RW
00808  M00S00733.1mr     +++| MRT2     LDI    AD
00809  M00S00734.1mr     +++|          NJN    MRT4        IF BITS SET IN BYTE
00810  M00S00735.1mr     +++| MRT3     SOD    AD
00811  M00S00736.1mr     +++|          LDN    14          INCREMENT TRACKS
00812  M00S00737.1mr     +++|          RAD    TC
00813  M00S00738.1mr     +++|          AOD    BY          INCREMENT BYTE WITHIN WORD
00814  M00S00739.1mr     +++|          LMN    3
00815  M00S00740.1mr     +++|          NJN    MRT2        IF NOT DONE WITH CM WORD
00816  M00S00741.1mr     +++|*         LDN    0
00817  M00S00742.1mr     +++|          STD    BY          RESET BYTE COUNTER
00818  M00S00743.1mr     +++|          LDN    10
00819  M00S00744.1mr     +++|          RAD    AD
00820  M00S00745.1mr     +++|          LCN    4           ADJUST TRACK COUNT
00821  M00S00746.1mr     +++|          RAD    TC
00822  M00S00747.1mr     +++|          SBD    NT
00823  M00S00748.1mr     +++|          MJN    MRT2        IF MORE TRACKS TO CHECK
00824  M00S00749.1mr     +++|          LJM    MRT8
00825  M00S00750.1mr     +++|
00826  M00S00751.1mr     +++| MRT4     LDN    1           INITIALIZE MASK
00827  M00S00752.1mr     +++|          STM    MRTA
00828  M00S00753.1mr     +++|          SHN    13-0        SET TRACK
00829  M00S00754.1mr     +++|          ADD    TC
00830  M00S00755.1mr     +++|          STD    T6
00831  M00S00756.1mr     +++| MRT5     LDI    AD
00832  M00S00757.1mr     +++|          ZJN    MRT3        IF NO MORE TRACK BITS IN MRT BYTE
00833  M00S00758.1mr     +++|          LPC    0
00834  M00S00759.1mr     +++| MRTA     EQU    *-1
00835  M00S00760.1mr     +++|          ZJN    MRT6        IF TRACK BIT NOT SET
00836  M00S00761.1mr     +++|          LMI    AD          CLEAR TRACK BIT
00837  M00S00762.1mr     +++|          STI    AD
00838  M00S00763.1mr     +++|          RJM    PTR         PROCESS TRACK RESERVATION
00839  M00S00764.1mr     +++|          MJN    MRT6        IF VALID TRACK ASSIGNMENT
00840  M00S00765.1mr     +++|          LDC    MRTD        ISSUE ERROR MESSAGE
00841  M00S00766.1mr     +++|          RJM    MRM
00842  M00S00767.1mr     +++| MRT6     AOD    T6          ADVANCE TRACK
00843  M00S00768.1mr     +++|          LDM    MRTA
00844  M00S00769.1mr     +++|          RAM    MRTA        ADJUST MASK FOR NEXT MRT BIT
00845  M00S00770.1mr     +++|          SHN    -14
00846  M00S00771.1mr     +++|          ZJN    MRT5        IF NOT ZERO MASK
00847  M00S00772.1mr     +++|          LJM    MRT3        SET NEXT MRT BYTE
00848  M00S00773.1mr     +++|
00849  M00S00774.1mr     +++|
00850  M00S00775.1mr     +++| MRTB     BSS    5           TEMPORARY STORAGE
00851  M00S00776.1mr     +++| MRTC     DATA   C* EQXXX, MRT PROCESSED BUT NOT REWRITTEN.*
00852  M00S00777.1mr     +++| MRTD     DATA   C* EQXXX, TKYYYY, INCORRECT LOCAL FILE.*
00853  M00S00778.1mr     +++| MSR      SPACE  4
00854  M00S00779.1mr     +++|**        MSR - RETURN ERROR TO *MREC*.
00855  M00S00780.1mr     +++|*
00856  M00S00781.1mr     +++|*         ENTRY  (A) = ERROR CODE.
00857  M00S00782.1mr     +++|*
00858  M00S00783.1mr     +++|*         EXIT   ERROR RETURN WORD RETURNED TO *MREC*.
00859  M00S00784.1mr     +++|*
00860  M00S00785.1mr     +++|*         CALLS  CFR.
00861  M00S00786.1mr     +++|
00862  M00S00787.1mr     +++|
00863  M00S00788.1mr     +++| MSR      STD    T5          SAVE ERROR CODE
00864  M00S00789.1mr     +++|          LDN    ZERL
00865  M00S00790.1mr     +++|          CRD    T0
00866  M00S00791.1mr     +++|          LDD    RA          RETURN ERROR WORD TO *MREC*
00867  M00S00792.1mr     +++|          SHN    6
00868  M00S00793.1mr     +++|          ADC    /MRT/ERRW
00869  M00S00794.1mr     +++|          CWD    T1
00870  M00S00795.1mr     +++| MSR1     LJM    DROP        DROP PP
00871  M00S00796.1mr     +++| PFB      SPACE  4
00872  M00S00797.1mr     +++|**        PFB - CLEAN UP DIRECT ACCESS FILE SYSTEM SECTORS.
00873  M00S00798.1mr     +++|*
00874  M00S00799.1mr     +++|*         ENTRY  (EQ) = EST ORDINAL TO PROCESS.
00875  M00S00800.1mr     +++|*                (NT) = NUMBER OF TRACKS ON DEVICE.
00876  M00S00801.1mr     +++|*
00877  M00S00802.1mr     +++|*         EXIT   (A) = 0 IF DEVICE CLEANUP COMPLETED.
00878  M00S00803.1mr     +++|*
00879  M00S00804.1mr     +++|*         USES   BY, CT, NT, PF, TC, T2, T5, T6, T7, CM - CM+4.
00880  M00S00805.1mr     +++|*
00881  M00S00806.1mr     +++|*         CALLS  CAM, CQF, C2D, DPS, FAT, PFA, RRS, RSS, SSE, STB,
00882  M00S00807.1mr     +++|*                STI, TQF, USC, WDS.
00883  M00S00808.1mr     +++|*
00884  M00S00809.1mr     +++|*         MACROS ENDMS, PAUSE, SETMS.
00885  M00S00810.1mr     +++|
00886  M00S00811.1mr     +++|
00887  M00S00812.1mr     +++| PFB      SUBR               ENTRY/EXIT
00888  M00S00813.1mr     +++|          LDD    EQ          SET EST ORDINAL
00889  M00S00814.1mr     +++|          STD    T5
00890  M00S00815.1mr     +++|          SHN    -6          CONVERT UPPER DIGIT OF EST ORDINAL
00891  M00S00816.1mr     +++|          ADC    2RQ0
00892  M00S00817.1mr     +++|          STM    PFBB+10
00893  M00S00818.1mr     +++|          STM    PFBC+13
00894  M00S00819.1mr     +++|          LDD    EQ          CONVERT LOWER TWO DIGITS OF EST ORDINAL
00895  M00S00820.1mr     +++|          RJM    C2D
00896  M00S00821.1mr     +++|          STM    PFBB+11
00897  M00S00822.1mr     +++|          STM    PFBC+14

Seq #  *Modification Id* Act 
----------------------------+
00898  M01S00823.ns2579  ---|          SETMS  IO,RW

Seq #  *Modification Id* Act 
----------------------------+
00899  M01S00003.ns2579  +++|          SETMS  IO,(NS,RW)
00900  M00S00824.1mr     +++|          LDN    0
00901  M00S00825.1mr     +++|          STD    BY          PRESET FILES PROCESSED COUNT
00902  M00S00826.1mr     +++|          STD    EF
00903  M00S00827.1mr     +++|          LDD    CM+4        GET *IQFT* POINTER FROM MST
00904  M00S00828.1mr     +++|          STM    PFBD
00905  M00S00829.1mr     +++| PFB0     SHN    3
00906  M00S00830.1mr     +++|          ADN    ACGL
00907  M00S00831.1mr     +++|          CRD    CM
00908  M00S00832.1mr     +++|          LDD    CM+3        SET *IQFT* TRACK
00909  M00S00833.1mr     +++|          STM    PFBA
00910  M00S00834.1mr     +++|          STD    T6          INTERLOCK *IQFT*
00911  M00S00835.1mr     +++|          RJM    STI
00912  M00S00836.1mr     +++|          ZJN    PFB1        IF TRACK INTERLOCKED
00913  M00S00837.1mr     +++|          LDD    CP
00914  M00S00838.1mr     +++|          ADN    MS2W        STORE WAITING MESSAGE
00915  M00S00839.1mr     +++|          CWM    PFBC,TR
00916  M00S00840.1mr     +++|          DELAY  10*100D     DELAY 100 MS
00917  M00S00841.1mr     +++|          PAUSE  NE
00918  M00S00842.1mr     +++|          LDC    **          LOAD MST ADDRESS
00919  M00S00843.1mr     +++| PFBD     EQU    *-1
00920  M00S00844.1mr     +++|          UJN    PFB0        LOOP ON INTERLOCK
00921  M00S00845.1mr     +++|
00922  M00S00846.1mr     +++| PFB1     STD    PF
00923  M00S00847.1mr     +++|          LDC    PFB18       SET WRITE ERROR PROCESSING RETURN
00924  M00S00848.1mr     +++|          STM    WDSA
00925  M00S00849.1mr     +++|          LDD    MD          SET MACHINE INDEX*5
00926  M00S00850.1mr     +++|          STD    TC
00927  M00S00851.1mr     +++|          SHN    2
00928  M00S00852.1mr     +++|          RAD    TC
00929  M00S00853.1mr     +++|          ADC    UCSS        SET BEGINNING OF DOWNED MACHINE ENTRY
00930  M00S00854.1mr     +++|          STM    USCA
00931  M00S00855.1mr     +++|          LDC    4000-1      SET INITIAL TRACK
00932  M00S00856.1mr     +++|          STD    CT
00933  M00S00857.1mr     +++|          ADN    1           SET LAST TRACK + 1
00934  M00S00858.1mr     +++|          RAD    NT
00935  M00S00859.1mr     +++| PFB2     AOD    CT          ADVANCE TRACK NUMBER
00936  M00S00860.1mr     +++|          LMD    NT
00937  M00S00861.1mr     +++|          NJN    PFB3        IF NOT END OF TRT
00938  M00S00862.1mr     +++|          STD    CM
00939  M00S00863.1mr     +++|          LDC    WDSX        RESET ERROR RETURN
00940  M00S00864.1mr     +++|          STM    WDSA
00941  M00S00865.1mr     +++|          LDD    CP          CLEAR CONTROL POINT MESSAGE
00942  M00S00866.1mr     +++|          ADN    MS2W
00943  M00S00867.1mr     +++|          CWD    CM
00944  M00S00868.1mr     +++|          RJM    TQF         TERMINATE *IQFT*
00945  M00S00869.1mr     +++|          LDD    EF
00946  M00S00870.1mr     +++|          LJM    PFBX        RETURN
00947  M00S00871.1mr     +++|
00948  M00S00872.1mr     +++| PFB3     LDD    CT          SET NEXT TRACK
00949  M00S00873.1mr     +++|          STD    T6
00950  M00S00874.1mr     +++|          LMC    0
00951  M00S00875.1mr     +++| PFBA     EQU    *-1
00952  M00S00876.1mr     +++|          ZJN    PFB2        IF *IQFT* TRACK
00953  M00S00877.1mr     +++|          RJM    DPS         DETERMINE TRACK STATUS
00954  M00S00878.1mr     +++|          SHN    21-7
00955  M00S00879.1mr     +++|          PJN    PFB2        IF NOT FIRST TRACK OF PRESERVED FILE
00956  M00S00880.1mr     +++|
00957  M00S00881.1mr     +++|*         READ AND VERIFY SYSTEM SECTOR.
00958  M00S00882.1mr     +++|
00959  M00S00883.1mr     +++|          AOD    BY          INCREMENT SYSTEM SECTORS PROCESSED
00960  M00S00884.1mr     +++|          LMN    NFTP
00961  M00S00885.1mr     +++|          NJN    PFB4        IF NOT TIME TO PAUSE
00962  M00S00886.1mr     +++|          STD    BY          RESET COUNTER
00963  M00S00887.1mr     +++|          PAUSE  NE
00964  M00S00888.1mr     +++| PFB4     LDD    T6          SET TRACK NUMBER IN MESSAGE
00965  M00S00889.1mr     +++|          RJM    C2D
00966  M00S00890.1mr     +++|          STM    PFBB+16
00967  M00S00891.1mr     +++|          LDD    T6
00968  M00S00892.1mr     +++|          SHN    -6
00969  M00S00893.1mr     +++|          RJM    C2D
00970  M00S00894.1mr     +++|          STM    PFBB+15
00971  M00S00895.1mr     +++|          LDD    CP          ISSUE MESSAGE
00972  M00S00896.1mr     +++|          ADN    MS2W
00973  M00S00897.1mr     +++|          CWM    PFBB,TR
00974  M00S00898.1mr     +++|          SETMS  POSITION
00975  M00S00899.1mr     +++|*         LDN    0
00976  M00S00900.1mr     +++|          RJM    RSS
00977  M00S00901.1mr     +++|          ZJN    PFB7        IF VALID SYSTEM SECTOR
00978  M00S00902.1mr     +++| PFB5     ENDMS
00979  M00S00903.1mr     +++|          LDD    PF
00980  M00S00904.1mr     +++|          ZJN    PFB6        IF TRACK NOT INTERLOCKED
00981  M00S00905.1mr     +++|          LDN    CTIS
00982  M00S00906.1mr     +++|          RJM    STB         CLEAR TRACK INTERLOCK
00983  M00S00907.1mr     +++|*         LDN    0
00984  M00S00908.1mr     +++|          STD    PF
00985  M00S00909.1mr     +++| PFB6     LJM    PFB2        LOOP FOR NEXT PRESERVED FILE
00986  M00S00910.1mr     +++|
00987  M00S00911.1mr     +++| PFB7     RJM    CQF         CHECK FOR QUEUE FILE
00988  M00S00912.1mr     +++|          NJN    PFB5        IF QUEUE FILE PROCESSED
00989  M00S00913.1mr     +++|          LDD    FT          CHECK FILE TYPE
00990  M00S00914.1mr     +++|          LMN    PMFT
00991  M00S00915.1mr     +++|          ZJN    PFB10       IF DIRECT ACCESS FILE
00992  M00S00916.1mr     +++|          LMN    FAFT&PMFT
00993  M00S00917.1mr     +++|          NJN    PFB5        IF NOT FAST ATTACH FILE
00994  M00S00918.1mr     +++|          RJM    RRS
00995  M00S00919.1mr     +++|          LDD    SD
00996  M00S00920.1mr     +++|          NJN    PFB9        IF ISD
00997  M00S00921.1mr     +++|          LDM    FISS
00998  M00S00922.1mr     +++|          LPC    3777
00999  M00S00923.1mr     +++|          ZJN    PFB10       IF NOT GLOBAL ATTACH FILE
01000  M00S00924.1mr     +++|          RJM    FAT         PROCESS FAST ATTACH FILE
01001  M00S00925.1mr     +++| PFB8     NJN    PFB5        IF FILE STILL IN FAST ATTACH STATUS
01002  M00S00926.1mr     +++|          LJM    PFB14       REWRITE SECTOR
01003  M00S00927.1mr     +++|
01004  M00S00928.1mr     +++| PFB9     RJM    PFA         PROCESS FAST ATTACH FILE ON ISD
01005  M00S00929.1mr     +++|          NJN    PFB8        IF SYSTEM SECTOR UPDATE NOT REQUIRED
01006  M00S00930.1mr     +++|          UJN    PFB14       REWRITE SYSTEM SECTOR
01007  M00S00931.1mr     +++|
01008  M00S00932.1mr     +++|*         UPDATE USER COUNTS IN SYSTEM SECTOR.
01009  M00S00933.1mr     +++|
01010  M00S00934.1mr     +++| PFB10    LDM    UCSS,TC     CHECK IF ALL COUNTS ZERO
01011  M00S00935.1mr     +++|          LPN    1
01012  M00S00936.1mr     +++|          STD    T2
01013  M00S00937.1mr     +++|          ADM    UCSS+1,TC
01014  M00S00938.1mr     +++|          ADM    UCSS+2,TC
01015  M00S00939.1mr     +++|          ADM    UCSS+3,TC
01016  M00S00940.1mr     +++|          ADM    UCSS+4,TC
01017  M00S00941.1mr     +++|          NJN    PFB12       IF NECESSARY TO UPDATE SECTOR
01018  M00S00942.1mr     +++|          RJM    CAM         CHECK ACCESS MODE BITS
01019  M00S00943.1mr     +++|          NJN    PFB8        IF FILE NOT PURGED
01020  M00S00944.1mr     +++| PFB11    LJM    PFB2        LOOP FOR NEXT PRESERVED FILE
01021  M00S00945.1mr     +++|
01022  M00S00946.1mr     +++| PFB12    RJM    RRS         REREAD SYSTEM SECTOR WITH INTERLOCK
01023  M00S00947.1mr     +++|          LDN    0
01024  M00S00948.1mr     +++|          STM    FISS
01025  M00S00949.1mr     +++|          RJM    USC         UPDATE SYSTEM SECTOR COUNTS
01026  M00S00950.1mr     +++|          LDC    PMFT*100
01027  M00S00951.1mr     +++|          STM    FNSS+4
01028  M00S00952.1mr     +++| PFB14    RJM    CAM         CHECK ACCESS MODE BITS
01029  M00S00953.1mr     +++|          ZJN    PFB11       IF FILE PURGED
01030  M00S00954.1mr     +++|
01031  M00S00955.1mr     +++|*         WRITE SECTOR BACK TO DEVICE.
01032  M00S00956.1mr     +++|
01033  M00S00957.1mr     +++|          LDN    0           RESET SECTOR
01034  M00S00958.1mr     +++|          STD    T7
01035  M00S00959.1mr     +++|          LDC    BFMS        WRITE SECTOR
01036  M00S00960.1mr     +++|          RJM    WDS
01037  M00S00961.1mr     +++|          ZJN    PFB16       IF NO ERRORS
01038  M00S00962.1mr     +++|          ENDMS
01039  M00S00963.1mr     +++|          RJM    SSE
01040  M00S00964.1mr     +++| PFB16    LJM    PFB5        CLEAR TRACK INTERLOCK
01041  M00S00965.1mr     +++|
01042  M00S00966.1mr     +++| PFB18    AOD    EF          SET ERROR FLAG
01043  M00S00967.1mr     +++|          LDD    NT
01044  M00S00968.1mr     +++|          SBN    1           ENABLE IMMEDIATE RETURN
01045  M00S00969.1mr     +++|          STD    CT
01046  M00S00970.1mr     +++|          UJN    PFB16       COMPLETE OPERATIONS ON DEVICE
01047  M00S00971.1mr     +++|
01048  M00S00972.1mr     +++|
01049  M00S00973.1mr     +++| PFBB     DATA   C* RECOVERING PF.EQXXX, TRK YYYY.*
01050  M00S00974.1mr     +++| PFBC     DATA   C*$INTERLOCKING IQFT,  EQXXX.*
01051  M00S00975.1mr     +++| PTR      SPACE  4,15
01052  M00S00976.1mr     +++|**        PTR - PROCESS TRACK RESERVATION.
01053  M00S00977.1mr     +++|*
01054  M00S00978.1mr     +++|*         ENTRY  (T5) = EST ORDINAL.
01055  M00S00979.1mr     +++|*                (T6) = CURRENT TRACK.
01056  M00S00980.1mr     +++|*                (SD) = INDEPENDENT SHARED DEVICE STATUS.
01057  M00S00981.1mr     +++|*
01058  M00S00982.1mr     +++|*         EXIT   (A) .GE. 0 IF INCORRECT LOCAL FILE.
01059  M00S00983.1mr     +++|*
01060  M00S00984.1mr     +++|*         USES   CM - CM+4.
01061  M00S00985.1mr     +++|*
01062  M00S00986.1mr     +++|*         CALLS  DPS, RSS, STB.
01063  M00S00987.1mr     +++|*
01064  M00S00988.1mr     +++|*         MACROS ENDMS, MONITOR.
01065  M00S00989.1mr     +++|
01066  M00S00990.1mr     +++|
01067  M00S00991.1mr     +++| PTR1     LDN    CTIS        CLEAR INTERLOCK
01068  M00S00992.1mr     +++|          RJM    STB
01069  M00S00993.1mr     +++| PTR3     LCN    0           SET EXIT CONDITION
01070  M00S00994.1mr     +++|
01071  M00S00995.1mr     +++| PTR      SUBR               ENTRY/EXIT
01072  M00S00996.1mr     +++|          RJM    DPS         DETERMINE TRACK STATUS
01073  M00S00997.1mr     +++|          SHN    21-3
01074  M00S00998.1mr     +++|          MJN    PTR1        IF TRACK INTERLOCKED
01075  M00S00999.1mr     +++|          SHN    3-21+22
01076  M00S01000.1mr     +++|          PJN    PTRX        IF TRACK NOT RESERVED
01077  M00S01001.1mr     +++|          SHN    21-7
01078  M00S01002.1mr     +++|          MJN    PTRX        IF FILE PRESERVED
01079  M00S01003.1mr     +++|          LDN    0           READ SYSTEM SECTOR
01080  M00S01004.1mr     +++|          RJM    RSS
01081  M00S01005.1mr     +++|          LPC    7777
01082  M00S01006.1mr     +++|          NJN    PTRX        IF SYSTEM SECTOR ERROR
01083  M00S01007.1mr     +++|          ENDMS
01084  M00S01008.1mr     +++|          LDD    T6          RELEASE LOCAL FILE DISK SPACE
01085  M00S01009.1mr     +++|          STD    CM+2
01086  M00S01010.1mr     +++|          LDD    T5
01087  M00S01011.1mr     +++|          LMC    2000        SET TRACK DROP FOR ANOTHER MACHINE
01088  M00S01012.1mr     +++|          STD    CM+1
01089  M00S01013.1mr     +++|          MONITOR  DTKM
01090  M00S01014.1mr     +++|          UJN    PTR3        RETURN
01091  M00S01015.1mr     +++| RRS      SPACE  4,15
01092  M00S01016.1mr     +++|**        RRS - REREAD SYSTEM SECTOR IF TRACK INTERLOCK NOT SET.
01093  M00S01017.1mr     +++|*
01094  M00S01018.1mr     +++|*         ENTRY  (PF) = TRACK INTERLOCK STATUS.
01095  M00S01019.1mr     +++|*
01096  M00S01020.1mr     +++|*         EXIT   TO CALLER IF TRACK INTERLOCKED ON ENTRY.
01097  M00S01021.1mr     +++|*
01098  M00S01022.1mr     +++|*         EXIT   (A) = (T6) IF TRACK NO LONGER RESERVED.
01099  M00S01023.1mr     +++|*                    = RESPONSE FROM *RSS*.
01100  M00S01024.1mr     +++|*                TO PREVIOUS *RSS* CALLER IF TRACK NOT ALREADY
01101  M00S01025.1mr     +++|*                INTERLOCKED.
01102  M00S01026.1mr     +++|*
01103  M00S01027.1mr     +++|*         CALLS  RSS, STI.
01104  M00S01028.1mr     +++|*
01105  M00S01029.1mr     +++|*         MACROS ENDMS.
01106  M00S01030.1mr     +++|
01107  M00S01031.1mr     +++|
01108  M00S01032.1mr     +++| RRS      SUBR               ENTRY/EXIT
01109  M00S01033.1mr     +++|          LDD    PF
01110  M00S01034.1mr     +++|          NJN    RRSX        IF FIRST TRACK INTERLOCKED
01111  M00S01035.1mr     +++|          ENDMS
01112  M00S01036.1mr     +++|          LDM    RSS         CHANGE RETURN TO LAST *RSS* CALLER
01113  M00S01037.1mr     +++|          STM    RRS
01114  M00S01038.1mr     +++|          RJM    STI         SET TRACK INTERLOCK
01115  M00S01039.1mr     +++|          NJN    RRSX        IF TRACK NO LONGER RESERVED
01116  M00S01040.1mr     +++|*         LDN    0           REREAD SYSTEM SECTOR
01117  M00S01041.1mr     +++|          RJM    RSS
01118  M00S01042.1mr     +++|          UJN    RRSX        RETURN
01119  M00S01043.1mr     +++| RSC      SPACE  4,10
01120  M00S01044.1mr     +++|**        RSC - READ SECTOR AND CHECK FOR ERRORS.
01121  M00S01045.1mr     +++|*
01122  M00S01046.1mr     +++|*         ENTRY  (A) = BUFFER ADDRESS.
01123  M00S01047.1mr     +++|*                (T5 - T7) = DRIVER PARAMETERS.
01124  M00S01048.1mr     +++|*
01125  M00S01049.1mr     +++|*         ERROR  TO *MSR* IF READ ERROR.
01126  M00S01050.1mr     +++|*
01127  M00S01051.1mr     +++|*         CALLS  RDS.
01128  M00S01052.1mr     +++|*
01129  M00S01053.1mr     +++|*         MACROS ENDMS.
01130  M00S01054.1mr     +++|
01131  M00S01055.1mr     +++|
01132  M00S01056.1mr     +++| RSC      SUBR               ENTRY/EXIT
01133  M00S01057.1mr     +++|          RJM    RDS         READ SECTOR
01134  M00S01058.1mr     +++|          PJN    RSCX        IF NO ERROR
01135  M00S01059.1mr     +++| RSC1     ENDMS
01136  M00S01060.1mr     +++|          LDN    /MRT/RER    SET READ ERROR
01137  M00S01061.1mr     +++|          LJM    MSR         PROCESS ERROR
01138  M00S01062.1mr     +++| SCI      SPACE  4,15
01139  M00S01063.1mr     +++|**        SCI - INCREMENT/DECREMENT *MREC* ACTIVITY COUNT.
01140  M00S01064.1mr     +++|*
01141  M00S01065.1mr     +++|*         *CMS* WILL WAIT ON THE ACTIVITY COUNT IN *INWL* BEFORE AN
01142  M00S01066.1mr     +++|*         UNLOAD WILL BE PROCESSED.
01143  M00S01067.1mr     +++|*
01144  M00S01068.1mr     +++|*         EXIT   (A) = 0.
01145  M00S01069.1mr     +++|*
01146  M00S01070.1mr     +++|*         USES   CM - CM+4.
01147  M00S01071.1mr     +++|*
01148  M00S01072.1mr     +++|*         MACROS MONITOR.
01149  M00S01073.1mr     +++|
01150  M00S01074.1mr     +++|
01151  M00S01075.1mr     +++| SCI      SUBR               ENTRY/EXIT

Seq #  *Modification Id* Act 
----------------------------+
01152  M01S01076.283l840 ---|          LDD    MA          INCREMENT/DECREMENT *MREC* COUNT
01153  M01S01077.283l840 ---|          CWM    SCIA,TW

Seq #  *Modification Id* Act 
----------------------------+
01154  M01S00070.283l840 +++| SCIA     LDD    MA          INCREMENT/DECREMENT *MREC* COUNT
01155  M01S00071.283l840 +++|*         UJN    SCIX        (NOT *PMT* OR *UMT* FUNCTION)
01156  M01S00072.283l840 +++|          CWM    SCIB,TW
01157  M00S01078.1mr     +++|          SBN    1
01158  M00S01079.1mr     +++|          CRD    CM
01159  M00S01080.1mr     +++|          MONITOR  UADM
01160  M00S01081.1mr     +++|          LDD    CM+1
01161  M00S01082.1mr     +++|          ZJN    SCIX        IF NO OVERFLOW/UNDERFLOW
01162  M00S01083.1mr     +++| SCI1     MONITOR  HNGM
01163  M00S01084.1mr     +++|          UJN    SCI1        HANG
01164  M00S01085.1mr     +++|
01165  M00S01086.1mr     +++|

Seq #  *Modification Id* Act 
----------------------------+
01166  M01S01087.283l840 ---| SCIA     VFD    12/LIOS,12/INWL,6/18D,6/6,24/0

Seq #  *Modification Id* Act 
----------------------------+
01167  M01S00073.283l840 +++| SCIB     VFD    12/LIOS,12/INWL,6/18D,6/6,24/0  INCREMENT ACTIVITY
01168  M01S00074.283l840 +++|*SCIB     VFD    12/LDOS,12/INWL,6/18D,6/6,24/0  (DECREMENT ACTIVITY)
01169  M00S01088.1mr     +++|          VFD    12/0,12/1,12/1,24/0
01170  M00S01089.1mr     +++| SDP      SPACE  4,15
01171  M00S01090.1mr     +++|**        SDP - SET DEVICE PARAMETERS.
01172  M00S01091.1mr     +++|*
01173  M00S01092.1mr     +++|*         ENTRY  (EQ) = EQUIPMENT.
01174  M00S01093.1mr     +++|*
01175  M00S01094.1mr     +++|*         EXIT   (A) = PF CATALOG SIZE.
01176  M00S01095.1mr     +++|*                    = 0, 8 WORD CATALOGS.
01177  M00S01096.1mr     +++|*                    = 1000, 16 WORD CATALOGS.
01178  M00S01097.1mr     +++|*                (DF) = DAF COUNT.
01179  M00S01098.1mr     +++|*                (NT) = NUMBER OF TRACKS ON DEVICE.
01180  M00S01099.1mr     +++|*                (DPSA - DPSA+1) = TRT ADDRESS.
01181  M00S01100.1mr     +++|*
01182  M00S01101.1mr     +++|*         USES   T0 - T6, CN - CN+4.
01183  M00S01102.1mr     +++|*
01184  M00S01103.1mr     +++|*         MACROS SFA.
01185  M00S01104.1mr     +++|*
01186  M00S01105.1mr     +++|*         CALLS  CAT.
01187  M00S01106.1mr     +++|
01188  M00S01107.1mr     +++|
01189  M00S01108.1mr     +++| SDP      SUBR               ENTRY/EXIT
01190  M00S01109.1mr     +++|          SFA    EST,EQ      SET DEVICE PARAMETERS
01191  M00S01110.1mr     +++|          ADK    EQDE
01192  M00S01111.1mr     +++|          CRD    CN
01193  M00S01112.1mr     +++|          LDD    CN+4
01194  M00S01113.1mr     +++|          SHN    3
01195  M00S01114.1mr     +++|          ADN    MDGL
01196  M00S01115.1mr     +++|          CRD    T0
01197  M00S01116.1mr     +++|          SBN    MDGL-TDGL
01198  M00S01117.1mr     +++|          CRD    T1
01199  M00S01118.1mr     +++|          ADN    ACGL-TDGL
01200  M00S01119.1mr     +++|          CRD    CN          SET DAF COUNT
01201  M00S01120.1mr     +++|          ADN    TRLL-ACGL
01202  M00S01121.1mr     +++|          RJM    CAT         CALCULATE FWA OF TRT
01203  M00S01122.1mr     +++|          SBD    TH
01204  M00S01123.1mr     +++|          STM    DPSA+1
01205  M00S01124.1mr     +++|          SHN    -14
01206  M00S01125.1mr     +++|          LMC    ADCI
01207  M00S01126.1mr     +++|          STM    DPSA
01208  M00S01127.1mr     +++|          LDD    T1+2
01209  M00S01128.1mr     +++|          SHN    2
01210  M00S01129.1mr     +++|          STD    NT          NUMBER OF TRACKS

Seq #  *Modification Id* Act 
----------------------------+
01211  M01S01130.283l840 ---|          LDD    CN+2

Seq #  *Modification Id* Act 
----------------------------+
01212  M01S00075.283l840 +++|          SHN    21-13
01213  M01S00076.283l840 +++|          PJN    SDP1        IF NOT FULL-LENGTH TRT
01214  M01S00077.283l840 +++|          SOD    NT          SET (NT) = 3777
01215  M01S00078.283l840 +++| SDP1     LDD    CN+2
01216  M00S01131.1mr     +++|          STD    DF          DAF COUNT
01217  M00S01132.1mr     +++|          LDD    T0          GET PFC SIZE
01218  M00S01133.1mr     +++|          LPC    1000
01219  M00S01134.1mr     +++|          LJM    SDPX        RETURN
01220  M00S01135.1mr     +++| STB      SPACE  4,15
01221  M00S01136.1mr     +++|**        STB - SET TRACK BIT.
01222  M00S01137.1mr     +++|*
01223  M00S01138.1mr     +++|*         ENTRY  (A) = *STBM* SUBFUNCTION CODE.
01224  M00S01139.1mr     +++|*                (T5) = EST ORDINAL.
01225  M00S01140.1mr     +++|*                (T6) = TRACK NUMBER.
01226  M00S01141.1mr     +++|*
01227  M00S01142.1mr     +++|*         EXIT   (A) = MONITOR RESPONSE.
01228  M00S01143.1mr     +++|*
01229  M00S01144.1mr     +++|*         USES   CM - CM+4.
01230  M00S01145.1mr     +++|*
01231  M00S01146.1mr     +++|*         MACROS MONITOR.
01232  M00S01147.1mr     +++|
01233  M00S01148.1mr     +++|
01234  M00S01149.1mr     +++| STB      SUBR               ENTRY/EXIT
01235  M00S01150.1mr     +++|          STD    CM+3        SET SUBFUNCTION CODE
01236  M00S01151.1mr     +++|          LDD    T6          SET TRACK
01237  M00S01152.1mr     +++|          STD    CM+2
01238  M00S01153.1mr     +++|          LDD    T5          SET EST ORDINAL
01239  M00S01154.1mr     +++|          LMC    1S10
01240  M00S01155.1mr     +++|          STD    CM+1
01241  M00S01156.1mr     +++|          MONITOR  STBM      ISSUE REQUEST
01242  M00S01157.1mr     +++|          LDD    CM+1
01243  M00S01158.1mr     +++|          UJN    STBX        RETURN
01244  M00S01159.1mr     +++| STI      SPACE  4,15
01245  M00S01160.1mr     +++|**        STI - SET TRACK INTERLOCK.
01246  M00S01161.1mr     +++|*
01247  M00S01162.1mr     +++|*         ENTRY  (T5) = EST ORDINAL.
01248  M00S01163.1mr     +++|*                (T6) = TRACK.
01249  M00S01164.1mr     +++|*
01250  M00S01165.1mr     +++|*         EXIT   (A) = 0 IF TRACK INTERLOCKED.
01251  M00S01166.1mr     +++|*                    = (T6) IF TRACK NOT RESERVED.
01252  M00S01167.1mr     +++|*                (PF) = (T6) IF TRACK INTERLOCKED.
01253  M00S01168.1mr     +++|*
01254  M00S01169.1mr     +++|*         ERROR  TO *ERR* IF *ORET* ERROR FLAG DETECTED.
01255  M00S01170.1mr     +++|*
01256  M00S01171.1mr     +++|*         CALLS  STB.
01257  M00S01172.1mr     +++|*
01258  M00S01173.1mr     +++|*         MACROS DELAY, PAUSE.
01259  M00S01174.1mr     +++|
01260  M00S01175.1mr     +++|
01261  M00S01176.1mr     +++| STI2     LDD    T6          FLAG TRACK INTERLOCKED
01262  M00S01177.1mr     +++|          STD    PF
01263  M00S01178.1mr     +++| STI3     LMD    T6          RETURN INTERLOCK STATUS
01264  M00S01179.1mr     +++|
01265  M00S01180.1mr     +++| STI      SUBR               ENTRY/EXIT
01266  M00S01181.1mr     +++| STI1     LDN    STIS        ATTEMPT TRACK INTERLOCK
01267  M00S01182.1mr     +++|          RJM    STB
01268  M00S01183.1mr     +++|          ZJN    STI2        IF INTERLOCK SET
01269  M00S01184.1mr     +++|          LMN    2
01270  M00S01185.1mr     +++|          ZJN    STI3        IF TRACK NOT RESERVED
01271  M00S01186.1mr     +++|          DELAY  250D*10
01272  M00S01187.1mr     +++|          PAUSE
01273  M00S01188.1mr     +++|          LDD    CM+1        CHECK ERROR FLAG
01274  M00S01189.1mr     +++|          LMN    ORET
01275  M00S01190.1mr     +++|          NJN    STI1        IF NOT OPERATOR OVERRIDE
01276  M00S01191.1mr     +++|          LJM    ERR         PROCESS ERROR FLAG TERMINATION
01277  M00S01192.1mr     +++| TQF      SPACE  4,15
01278  M00S01193.1mr     +++|**        TQF - TERMINATE *IQFT*.
01279  M00S01194.1mr     +++|*
01280  M00S01195.1mr     +++|*         ENTRY  (T5) = EST ORDINAL.
01281  M00S01196.1mr     +++|*                (QF) = FIRST TRACK OF *IQFT*.
01282  M00S01197.1mr     +++|*                (QT) = CURRENT *IQFT* TRACK.
01283  M00S01198.1mr     +++|*                (QS) = CURRENT *IQFT* SECTOR.
01284  M00S01199.1mr     +++|*
01285  M00S01200.1mr     +++|*         EXIT   (QF) = 0.
01286  M00S01201.1mr     +++|*
01287  M00S01202.1mr     +++|*         USES   T1, T6, T7.
01288  M00S01203.1mr     +++|*
01289  M00S01204.1mr     +++|*         CALLS  STB, WEI, WQF.
01290  M00S01205.1mr     +++|*
01291  M00S01206.1mr     +++|*         MACROS ENDMS, MONITOR, SETMS.
01292  M00S01207.1mr     +++|
01293  M00S01208.1mr     +++|
01294  M00S01209.1mr     +++| TQF2     LDM    PFBA
01295  M00S01210.1mr     +++|          ZJN    TQFX        IF *IQFT* NOT INTERLOCKED
01296  M00S01211.1mr     +++|          STD    T6
01297  M00S01212.1mr     +++|          LDN    CTIS        CLEAR TRACK INTERLOCK
01298  M00S01213.1mr     +++|          RJM    STB
01299  M00S01214.1mr     +++|*         LDN    0           CLEAR *IQFT* PROCESSING INITIATED
01300  M00S01215.1mr     +++|          STD    QF
01301  M00S01216.1mr     +++|          STM    PFBA        CLEAR TRACK INTERLOCKED FLAG
01302  M00S01217.1mr     +++|
01303  M00S01218.1mr     +++| TQF      SUBR               ENTRY/EXIT
01304  M00S01219.1mr     +++|          LDD    QF
01305  M00S01220.1mr     +++|          ZJN    TQF2        IF NO QUEUE FILE PROCESSING
01306  M00S01221.1mr     +++|          LDC    500
01307  M00S01222.1mr     +++|          STD    T1
01308  M00S01223.1mr     +++| TQF1     LDN    0           CLEAR EOI SECTOR BUFFER
01309  M00S01224.1mr     +++|          STM    BFMS+1,T1
01310  M00S01225.1mr     +++|          SOD    T1
01311  M00S01226.1mr     +++|          NJN    TQF1        LOOP TO START OF BUFFER
01312  M00S01227.1mr     +++|          RJM    WQF         WRITE LAST *IQFT* SECTOR
01313  M00S01228.1mr     +++|          LDD    MA          MOVE FILE NAME TO BUFFER
01314  M00S01229.1mr     +++|          CWM    IQFA,ON
01315  M00S01230.1mr     +++|          SBN    1
01316  M00S01231.1mr     +++|          CRM    BFMS+FNEI,ON
01317  M00S01232.1mr     +++|          LDD    T5          SETUP EOI SECTOR BUFFER
01318  M00S01233.1mr     +++|          STM    BFMS+FSEI
01319  M00S01234.1mr     +++|          LDD    QF
01320  M00S01235.1mr     +++|          STM    BFMS+FTEI
01321  M00S01236.1mr     +++|          LDD    QT          SET CURRENT *IQFT* TRACK AND SECTOR
01322  M00S01237.1mr     +++|          STD    T6
01323  M00S01238.1mr     +++|          LDD    QS
01324  M00S01239.1mr     +++|          STD    T7
01325  M00S01240.1mr     +++|          SETMS  POSITION
01326  M00S01241.1mr     +++|          RJM    WEI         WRITE EOI SECTOR
01327  M00S01242.1mr     +++|          ENDMS
01328  M00S01243.1mr     +++|          LDD    T5          SET EOI IN TRT
01329  M00S01244.1mr     +++|          LMC    1S11
01330  M00S01245.1mr     +++|          STD    CM+1
01331  M00S01246.1mr     +++|          LDD    QT
01332  M00S01247.1mr     +++|          LPC    3777
01333  M00S01248.1mr     +++|          STD    CM+2
01334  M00S01249.1mr     +++|          LDD    QS
01335  M00S01250.1mr     +++|          STD    CM+3
01336  M00S01251.1mr     +++|          MONITOR  DTKM
01337  M00S01252.1mr     +++|          LJM    TQF2        CLEAR TRACK INTERLOCK
01338  M00S01253.1mr     +++| USC      SPACE  4,10
01339  M00S01254.1mr     +++|*         USC - UPDATE SYSTEM SECTOR COUNTS.
01340  M00S01255.1mr     +++|*
01341  M00S01256.1mr     +++|*         ENTRY  (T2) = WRITE MODE FLAG FROM UCSS OF DOWN MACHINE.
01342  M00S01257.1mr     +++|*                (TC) = MACHINE INDEX*5.
01343  M00S01258.1mr     +++|*                (MI) = MACHINE INDEX.
01344  M00S01259.1mr     +++|*                (UCSA) = ADDRESS IN BUFFER OF DOWN MACHINE PF COUNTS.
01345  M00S01260.1mr     +++|*                (BFMS) = SYSTEM SECTOR.
01346  M00S01261.1mr     +++|*
01347  M00S01262.1mr     +++|*         EXIT   COUNTS UPDATED AND ENTRY CLEARED FOR DOWN MACHINE.
01348  M00S01263.1mr     +++|
01349  M00S01264.1mr     +++|
01350  M00S01265.1mr     +++| USC      SUBR               ENTRY/EXIT
01351  M00S01266.1mr     +++|          LDN    0           SUBTRACT DOWN MACHINE COUNTS FROM TOTAL
01352  M00S01267.1mr     +++|          SBM    UCSS+1,TC
01353  M00S01268.1mr     +++|          RAM    UCSS+1
01354  M00S01269.1mr     +++|          LDN    0
01355  M00S01270.1mr     +++|          SBM    UCSS+2,TC
01356  M00S01271.1mr     +++|          RAM    UCSS+2
01357  M00S01272.1mr     +++|          LDN    0
01358  M00S01273.1mr     +++|          SBM    UCSS+3,TC
01359  M00S01274.1mr     +++|          RAM    UCSS+3
01360  M00S01275.1mr     +++|          LDN    0
01361  M00S01276.1mr     +++|          SBM    UCSS+4,TC
01362  M00S01277.1mr     +++|          RAM    UCSS+4
01363  M00S01278.1mr     +++|          LDM    UCSS,TC
01364  M00S01279.1mr     +++|          LPN    2
01365  M00S01280.1mr     +++|          ZJN    USC1        IF LOCAL UTILITY ATTACH FLAG NOT SET
01366  M00S01281.1mr     +++|          LDM    CASS        CLEAR GLOBAL UTILITY ATTACH FLAG
01367  M00S01282.1mr     +++|          LPC    7677
01368  M00S01283.1mr     +++|          STM    CASS
01369  M00S01284.1mr     +++| USC1     LDN    ZERL        CLEAR ENTRY FOR DOWNED MACHINE
01370  M00S01285.1mr     +++|          CRM    *,ON
01371  M00S01286.1mr     +++| USCA     EQU    *-1
01372  M00S01287.1mr     +++|          LDD    T2
01373  M00S01288.1mr     +++|          ZJN    USC2        IF WRITE MODE NOT SET
01374  M00S01289.1mr     +++|          LDM    CASS        CLEAR WRITE MODE BITS IN ACCESS WORD
01375  M00S01290.1mr     +++|          LPC    7541
01376  M00S01291.1mr     +++|          STM    CASS
01377  M00S01292.1mr     +++| USC2     LJM    USCX        RETURN
01378  M00S01293.1mr     +++| WQF      SPACE  4,15
01379  M00S01294.1mr     +++|**        WQF - WRITE *IQFT* SECTOR.
01380  M00S01295.1mr     +++|*
01381  M00S01296.1mr     +++|*         ENTRY  (T5) = EST ORDINAL.
01382  M00S01297.1mr     +++|*                (QT) = CURRENT *IQFT* TRACK.
01383  M00S01298.1mr     +++|*                (QS) = CURRENT *IQFT* SECTOR.
01384  M00S01299.1mr     +++|*
01385  M00S01300.1mr     +++|*         EXIT   (A) = 0 IF SECTOR WRITTEN.
01386  M00S01301.1mr     +++|*
01387  M00S01302.1mr     +++|*         USES   T6, T7, CM - CM+4.
01388  M00S01303.1mr     +++|*
01389  M00S01304.1mr     +++|*         CALLS  WDS.
01390  M00S01305.1mr     +++|*
01391  M00S01306.1mr     +++|*         MACROS ENDMS, MONITOR.
01392  M00S01307.1mr     +++|
01393  M00S01308.1mr     +++|
01394  M00S01309.1mr     +++| WQF      SUBR               ENTRY/EXIT
01395  M00S01310.1mr     +++|          LDD    QT          SET CURRENT *IQFT* TRACK
01396  M00S01311.1mr     +++|          STD    T6
01397  M00S01312.1mr     +++|          LDC    QBUF+2      RESET BUFFER POINTER
01398  M00S01313.1mr     +++|          STM    CQFC
01399  M00S01314.1mr     +++|          LDD    QS          SET *IQFT* SECTOR
01400  M00S01315.1mr     +++|          STD    T7
01401  M00S01316.1mr     +++|          ADN    1           SET SECTOR LINKAGE
01402  M00S01317.1mr     +++|          STM    QBUF
01403  M00S01318.1mr     +++|          STD    QS          SET NEXT *IQFT* SECTOR
01404  M00S01319.1mr     +++|          LMM    SLM
01405  M00S01320.1mr     +++|          NJN    WQF1        IF NOT SECTOR LIMIT
01406  M00S01321.1mr     +++|          ENDMS
01407  M00S01322.1mr     +++|*         LDN    0
01408  M00S01323.1mr     +++|          STD    CM+3
01409  M00S01324.1mr     +++|          STD    CM+4
01410  M00S01325.1mr     +++|          STD    QS
01411  M00S01326.1mr     +++|          LDD    T5          REQUEST NEXT *IQFT* TRACK
01412  M00S01327.1mr     +++|          STD    CM+1
01413  M00S01328.1mr     +++|          LDD    T6
01414  M00S01329.1mr     +++|          STD    CM+2
01415  M00S01330.1mr     +++|          MONITOR  RTCM
01416  M00S01331.1mr     +++|          LDD    CM+4        SET NEXT TRACK IN SECTOR LINKAGE
01417  M00S01332.1mr     +++|          STM    QBUF
01418  M00S01333.1mr     +++|          ZJN    WQF3        IF NO TRACK AVAILABLE
01419  M00S01334.1mr     +++|          STD    QT
01420  M00S01335.1mr     +++| WQF1     SETMS  POSITION
01421  M00S01336.1mr     +++|          LDC    QBUF+WLSF   WRITE *IQFT* SECTOR
01422  M00S01337.1mr     +++|          RJM    WDS
01423  M00S01338.1mr     +++|          ENDMS
01424  M00S01339.1mr     +++|*         LDN    0
01425  M00S01340.1mr     +++|          STM    QBUF+1
01426  M00S01341.1mr     +++| WQF2     LJM    WQFX        RETURN
01427  M00S01342.1mr     +++|
01428  M00S01343.1mr     +++| WQF3     LDD    T7          SAVE LAST SECTOR FOR EOI
01429  M00S01344.1mr     +++|          STD    QS
01430  M00S01345.1mr     +++|          UJN    WQF2        RETURN
01431  M00S01346.1mr     +++|          TITLE  EXTENDED MEMORY MMF SUBROUTINES.
01432  M00S01347.1mr     +++|          SPACE  4,10
01433  M00S01348.1mr     +++|***       EXTENDED MEMORY MMF SUBROUTINES.
01434  M00S01349.1mr     +++|*
01435  M00S01350.1mr     +++|*         THE FOLLOWING CODE IS USED ONLY FOR ECS MMF ENVIRONMENTS.
01436  M00S01351.1mr     +++|*         IT IS OVERLAID BY ISD MMF CODE IF RUNNING IN AN ISD SYSTEM.
01437  M00S01352.1mr     +++|
01438  M00S01353.1mr     +++|
01439  M00S01354.1mr     +++|          USE    OVERLAY
01440  M00S01355.1mr     +++| OVLA     EQU    *+5         *2MR* LOAD ADDRESS
01441  M00S01356.1mr     +++| CFR      SPACE  4,10
01442  M00S01357.1mr     +++|**        CFR - CLEAR FLAG REGISTER BIT.
01443  M00S01358.1mr     +++|*
01444  M00S01359.1mr     +++|*         ENTRY  (A) = BIT NUMBER TO CLEAR.
01445  M00S01360.1mr     +++|*
01446  M00S01361.1mr     +++|*         USES   CM - CM+4.
01447  M00S01362.1mr     +++|*
01448  M00S01363.1mr     +++|*         CALLS  TFR.
01449  M00S01364.1mr     +++|*
01450  M00S01365.1mr     +++|*         MACROS MONITOR.
01451  M00S01366.1mr     +++|
01452  M00S01367.1mr     +++|
01453  M00S01368.1mr     +++| CFR      SUBR               ENTRY/EXIT
01454  M00S01369.1mr     +++|          RJM    TFR         TOGGLE FLAG REGISTER BIT
01455  M00S01370.1mr     +++|          LDD    T1          BIT NUMBER
01456  M00S01371.1mr     +++|          SHN    6
01457  M00S01372.1mr     +++|          STD    CM+1
01458  M00S01373.1mr     +++|          LDN    CFRS        SET TO CLEAR FLAG REGISTER BIT
01459  M00S01374.1mr     +++|          SHN    11
01460  M00S01375.1mr     +++|          STD    CM+3
01461  M00S01376.1mr     +++|          MONITOR ECSM
01462  M00S01377.1mr     +++|          UJN    CFRX        RETURN
01463  M00S01378.1mr     +++| DAT      SPACE  4,10
01464  M00S01379.1mr     +++|**        DAT - READ(WRITE) DAT ENTRY (2 WORDS).
01465  M00S01380.1mr     +++|*
01466  M00S01381.1mr     +++|*         ENTRY  (A) = EST ORDINAL OF EQUIPMENT.
01467  M00S01382.1mr     +++|*                (T3) = RECS*1000 IF READ, WECS*1000 IF WRITE.
01468  M00S01383.1mr     +++|*                DAT IN CM BUFFER (MA - MA+1) IF WRITE.
01469  M00S01384.1mr     +++|*
01470  M00S01385.1mr     +++|*         EXIT   (BUFD) = 2 WORD DAT ENTRY. (READ ONLY)
01471  M00S01386.1mr     +++|*
01472  M00S01387.1mr     +++|*         CALLS  ECS.
01473  M00S01388.1mr     +++|*
01474  M00S01389.1mr     +++|*         USES   CM - CM+4, T1.
01475  M00S01390.1mr     +++|*
01476  M00S01391.1mr     +++|*         MACROS SFA.
01477  M00S01392.1mr     +++|
01478  M00S01393.1mr     +++|
01479  M00S01394.1mr     +++| DAT      SUBR               ENTRY/EXIT
01480  M00S01395.1mr     +++|          SFA    EST         READ EST ENTRY
01481  M00S01396.1mr     +++|          ADK    EQDE
01482  M00S01397.1mr     +++|          CRD    CM
01483  M00S01398.1mr     +++|          LDD    CM+4        READ MST FOR DAT INDEX
01484  M00S01399.1mr     +++|          SHN    3
01485  M00S01400.1mr     +++|          ADN    MDGL
01486  M00S01401.1mr     +++|          CRD    CM
01487  M00S01402.1mr     +++|          LDD    CM          SET DAT INDEX
01488  M00S01403.1mr     +++|          LPC    377
01489  M00S01404.1mr     +++|          SHN    1
01490  M00S01405.1mr     +++|          ADD    DA+1
01491  M00S01406.1mr     +++|          STD    CM+4
01492  M00S01407.1mr     +++|          SHN    -14
01493  M00S01408.1mr     +++|          ADD    T3          SET TO READ/WRITE EXTENDED MEMORY
01494  M00S01409.1mr     +++|          ADD    DA
01495  M00S01410.1mr     +++|          STD    CM+3
01496  M00S01411.1mr     +++|          LDN    2-1         READ TWO WORDS
01497  M00S01412.1mr     +++|          RJM    ECS         READ(WRITE) EXTENDED MEMORY
01498  M00S01413.1mr     +++|          LDD    T3
01499  M00S01414.1mr     +++|          LMD    WE
01500  M00S01415.1mr     +++|          ZJN    DATX        IF WRITE
01501  M00S01416.1mr     +++|          LDD    MA
01502  M00S01417.1mr     +++|          CRM    BUFD,TW
01503  M00S01418.1mr     +++|          UJN    DATX        RETURN
01504  M00S01419.1mr     +++| ECS      SPACE  4,10
01505  M00S01420.1mr     +++|**        ECS - READ/WRITE EXTENDED MEMORY.
01506  M00S01421.1mr     +++|*
01507  M00S01422.1mr     +++|*         ENTRY  (A) = WORD COUNT - 1.
01508  M00S01423.1mr     +++|*                (CM+3 - CM+4) = PARAMETERS FOR *ECSM* FUNCTION.
01509  M00S01424.1mr     +++|*
01510  M00S01425.1mr     +++|*         EXIT   (A) = 0.
01511  M00S01426.1mr     +++|*
01512  M00S01427.1mr     +++|*         ERROR  TO *MSR* IF TRANSFER ERROR.
01513  M00S01428.1mr     +++|
01514  M00S01429.1mr     +++|
01515  M00S01430.1mr     +++| ECS      SUBR               ENTRY/EXIT
01516  M00S01431.1mr     +++|          SHN    6
01517  M00S01432.1mr     +++|          STD    CM+1        SET WORD COUNT
01518  M00S01433.1mr     +++|          LDD    MA
01519  M00S01434.1mr     +++|          STD    CM+2        SET BUFFER ADDRESS
01520  M00S01435.1mr     +++|          MONITOR ECSM
01521  M00S01436.1mr     +++|          LDD    CM+1
01522  M00S01437.1mr     +++|          ZJN    ECSX        IF NO ERRORS
01523  M00S01438.1mr     +++|          LDN    /MRT/RER    SET READ ERROR
01524  M00S01439.1mr     +++|          LJM    MSR         PROCESS ERROR
01525  M00S01440.1mr     +++| FAT      SPACE  4,10
01526  M00S01441.1mr     +++|**        FAT - PROCESS FAST ATTACH PERMANENT FILES.
01527  M00S01442.1mr     +++|*
01528  M00S01443.1mr     +++|*         ENTRY  (A) = INDEX OF FAT ENTRY IN EXTENDED MEMORY.
01529  M00S01444.1mr     +++|*                SYSTEM SECTOR IN BFMS.
01530  M00S01445.1mr     +++|*
01531  M00S01446.1mr     +++|*         EXIT   (A) = 0 IF REMOVE FILE FROM FAST ATTACH STATUS.
01532  M00S01447.1mr     +++|*
01533  M00S01448.1mr     +++|*         USES   T2, T3, T7, CM - CM+4.
01534  M00S01449.1mr     +++|*
01535  M00S01450.1mr     +++|*         CALLS  CFR, ECS, SFR, WFW.
01536  M00S01451.1mr     +++|*
01537  M00S01452.1mr     +++|*         MACROS ENDMS.
01538  M00S01453.1mr     +++|
01539  M00S01454.1mr     +++|
01540  M00S01455.1mr     +++| FAT      SUBR               ENTRY/EXIT
01541  M00S01456.1mr     +++|          STD    T3
01542  M00S01457.1mr     +++|          LDK    MMFL
01543  M00S01458.1mr     +++|          CRD    CM
01544  M00S01459.1mr     +++|          LDD    CM+1
01545  M00S01460.1mr     +++|          SHN    21-12
01546  M00S01461.1mr     +++|          PJN    FAT1        IF NOT LSPMMF
01547  M00S01462.1mr     +++|          SHN    12-21
01548  M00S01463.1mr     +++|          LPC    777
01549  M00S01464.1mr     +++|          LMD    T5
01550  M00S01465.1mr     +++|          NJN    FAT1        IF FILE DOES NOT RESIDE ON LINK DEVICE
01551  M00S01466.1mr     +++|          ENDMS
01552  M00S01467.1mr     +++| FAT1     LDN    /MMF/FATI   OBTAIN *FATI* INTERLOCK
01553  M00S01468.1mr     +++|          RJM    SFR
01554  M00S01469.1mr     +++|          LDN    0           SET FAT WORD TO READ
01555  M00S01470.1mr     +++|          STD    T2
01556  M00S01471.1mr     +++| FAT2     LDD    T3          SET FAST ATTACH TRACK ADDRESS
01557  M00S01472.1mr     +++|          SHN    /MMF/FATS
01558  M00S01473.1mr     +++|          ADD    T2
01559  M00S01474.1mr     +++|          ADD    DA+1
01560  M00S01475.1mr     +++|          ADC    /MMF/FAST*100
01561  M00S01476.1mr     +++|          STD    CM+4
01562  M00S01477.1mr     +++|          SHN    -14
01563  M00S01478.1mr     +++|          ADD    DA
01564  M00S01479.1mr     +++|          ADD    RE          READ EXTENDED MEMORY
01565  M00S01480.1mr     +++|          STD    CM+3
01566  M00S01481.1mr     +++|          LDN    1-1         SET WORD COUNT
01567  M00S01482.1mr     +++|          RJM    ECS         READ FAT WORD
01568  M00S01483.1mr     +++|          LDD    T2          READ FAT ENTRY INTO BUFFER
01569  M00S01484.1mr     +++|          SHN    2
01570  M00S01485.1mr     +++|          ADD    T2
01571  M00S01486.1mr     +++|          ADC    BUFS
01572  M00S01487.1mr     +++|          STM    FATA
01573  M00S01488.1mr     +++|          LDD    MA
01574  M00S01489.1mr     +++|          CRM    BUFS,ON
01575  M00S01490.1mr     +++| FATA     EQU    *-1
01576  M00S01491.1mr     +++|          AOD    T2
01577  M00S01492.1mr     +++|          LMN    /MMF/MXMF+2
01578  M00S01493.1mr     +++|          NJN    FAT2        IF NOT END OF WORDS TO READ
01579  M00S01494.1mr     +++|          LDD    MD          SET INDEX INTO ENTRY FOR DOWNED MACHINE
01580  M00S01495.1mr     +++|          SHN    2
01581  M00S01496.1mr     +++|          ADD    MD
01582  M00S01497.1mr     +++|          STD    T2
01583  M00S01498.1mr     +++|          STD    T7          PRESET EXIT CONDITION
01584  M00S01499.1mr     +++|          LDN    0           ADJUST COUNTS
01585  M00S01500.1mr     +++|          SBM    BUFS+5+2,T2
01586  M00S01501.1mr     +++|          RAM    BUFS+5+2
01587  M00S01502.1mr     +++|          LDN    0
01588  M00S01503.1mr     +++|          SBM    BUFS+5+3,T2
01589  M00S01504.1mr     +++|          RAM    BUFS+5+3
01590  M00S01505.1mr     +++|          LDN    0
01591  M00S01506.1mr     +++|          SBM    BUFS+5+4,T2
01592  M00S01507.1mr     +++|          RAM    BUFS+5+4
01593  M00S01508.1mr     +++|          LDD    MA          WRITE GLOBAL COUNTS TO EXTENDED MEMORY
01594  M00S01509.1mr     +++|          CWM    BUFS+5,ON
01595  M00S01510.1mr     +++|          LDN    1
01596  M00S01511.1mr     +++|          RJM    WFW         WRITE FAT WORD
01597  M00S01512.1mr     +++|          LDN    ZERL
01598  M00S01513.1mr     +++|          CRD    CM
01599  M00S01514.1mr     +++|          LDD    MA
01600  M00S01515.1mr     +++|          CWD    CM
01601  M00S01516.1mr     +++|          LDD    MD
01602  M00S01517.1mr     +++|          ADN    1
01603  M00S01518.1mr     +++|          RJM    WFW         WRITE FAT WORD
01604  M00S01519.1mr     +++|          LDN    0
01605  M00S01520.1mr     +++|          STM    BUFS+5,T2   ZERO SLOT FOR THIS MACHINE
01606  M00S01521.1mr     +++|          STD    T2
01607  M00S01522.1mr     +++| FAT3     LDM    BUFS+2*5,T2
01608  M00S01523.1mr     +++|          NJN    FAT4        IF FILE STILL ATTACHED
01609  M00S01524.1mr     +++|          LDN    5
01610  M00S01525.1mr     +++|          RAD    T2
01611  M00S01526.1mr     +++|          LMK    5*/MMF/MXMF
01612  M00S01527.1mr     +++|          NJN    FAT3        IF NOT END OF MACHINES TO CHECK
01613  M00S01528.1mr     +++|          STM    FISS        CLEAR FAST ATTACH STATUS
01614  M00S01529.1mr     +++|          STD    T7          SET EXIT CONDITION
01615  M00S01530.1mr     +++|          LDN    ZERL        CLEAR ENTRY IN EXTENDED MEMORY
01616  M00S01531.1mr     +++|          CRD    CM
01617  M00S01532.1mr     +++|          LDD    MA
01618  M00S01533.1mr     +++|          CWD    CM
01619  M00S01534.1mr     +++|          LDN    0
01620  M00S01535.1mr     +++|          RJM    WFW         WRITE WORD 0 OF FAT
01621  M00S01536.1mr     +++|          LDC    PMFT*100    RESET FILE TYPE
01622  M00S01537.1mr     +++|          STM    FNSS+4
01623  M00S01538.1mr     +++|          LDM    CASS        CLEAR WRITE MODE BITS IN ACCESS WORD
01624  M00S01539.1mr     +++|          LPC    7541
01625  M00S01540.1mr     +++|          STM    CASS
01626  M00S01541.1mr     +++| FAT4     LDN    /MMF/FATI   CLEAR *FATI* INTERLOCK
01627  M00S01542.1mr     +++|          RJM    CFR
01628  M00S01543.1mr     +++|          LDD    T7
01629  M00S01544.1mr     +++|          LJM    FATX        RETURN
01630  M00S01545.1mr     +++| PDT      SPACE  4,10
01631  M00S01546.1mr     +++|**        PDT - CLEAR DEVICE ACCESSED BIT IN DAT FOR DOWNED MACHINE.
01632  M00S01547.1mr     +++|*
01633  M00S01548.1mr     +++|*         ENTRY  (EQ) = EST ORDINAL.
01634  M00S01549.1mr     +++|*
01635  M00S01550.1mr     +++|*         EXIT   (A) = 0 IF NOT PROCESSING DEVICE.
01636  M00S01551.1mr     +++|*                (T6) = MST TRACK IF PROCESSING DEVICE.
01637  M00S01552.1mr     +++|*
01638  M00S01553.1mr     +++|*         USES   T3, T6.
01639  M00S01554.1mr     +++|*
01640  M00S01555.1mr     +++|*         CALLS  CKP, DAT.
01641  M00S01556.1mr     +++|
01642  M00S01557.1mr     +++|
01643  M00S01558.1mr     +++| PDT      SUBR               ENTRY/EXIT
01644  M00S01559.1mr     +++|          LDD    MK
01645  M00S01560.1mr     +++|          STM    PDTA        SET DOWNED MACHINE MASK
01646  M00S01561.1mr     +++|          LDD    RE
01647  M00S01562.1mr     +++|          STD    T3          SET READ OF DAT
01648  M00S01563.1mr     +++|          LDD    EQ
01649  M00S01564.1mr     +++|          RJM    DAT
01650  M00S01565.1mr     +++|          LDM    BUFD+5+4    CHECK IF DOWNED MACHINE ACCESSING DEVICE
01651  M00S01566.1mr     +++|          LPC    *
01652  M00S01567.1mr     +++| PDTA     EQU    *-1
01653  M00S01568.1mr     +++|          ZJN    PDTX        IF DEVICE ACCESS NOT SET
01654  M00S01569.1mr     +++|          LMM    BUFD+5+4
01655  M00S01570.1mr     +++|          STM    BUFD+5+4
01656  M00S01571.1mr     +++|          LDM    BUFD+4      SET MST TRACK FOR DEVICE
01657  M00S01572.1mr     +++|          STD    T6
01658  M00S01573.1mr     +++|          RJM    CKP         SET CHECKPOINT BIT
01659  M00S01574.1mr     +++|          LDN    1
01660  M00S01575.1mr     +++|          UJN    PDTX        RETURN
01661  M00S01576.1mr     +++| SFR      SPACE  4,10
01662  M00S01577.1mr     +++|**        SFR - SET FLAG REGISTER BIT.
01663  M00S01578.1mr     +++|*
01664  M00S01579.1mr     +++|*         ENTRY  (A) = BIT NUMBER TO SET.
01665  M00S01580.1mr     +++|*
01666  M00S01581.1mr     +++|*         ERROR  TO *ERR* IF ERROR FLAG SET.
01667  M00S01582.1mr     +++|*
01668  M00S01583.1mr     +++|*         USES   T1, CM - CM+4.
01669  M00S01584.1mr     +++|*
01670  M00S01585.1mr     +++|*         CALLS  DAP, TFR.
01671  M00S01586.1mr     +++|*
01672  M00S01587.1mr     +++|*         MACROS MONITOR.
01673  M00S01588.1mr     +++|
01674  M00S01589.1mr     +++|
01675  M00S01590.1mr     +++| SFR2     LDD    CP          CLEAR MESSAGE
01676  M00S01591.1mr     +++|          ADN    MS2W
01677  M00S01592.1mr     +++|          CWD    CM
01678  M00S01593.1mr     +++|
01679  M00S01594.1mr     +++| SFR      SUBR               ENTRY/EXIT
01680  M00S01595.1mr     +++|          RJM    TFR         TOGGLE FLAG REGISTER BIT
01681  M00S01596.1mr     +++| SFR1     LDD    T1          SET BIT NUMBER
01682  M00S01597.1mr     +++|          SHN    6
01683  M00S01598.1mr     +++|          STD    CM+1
01684  M00S01599.1mr     +++|          LDC    SFRS*1000
01685  M00S01600.1mr     +++|          STD    CM+3
01686  M00S01601.1mr     +++|          MONITOR  ECSM
01687  M00S01602.1mr     +++|          LDD    CM+1
01688  M00S01603.1mr     +++|          ZJN    SFR2        IF BIT SET
01689  M00S01604.1mr     +++|          LDD    CP
01690  M00S01605.1mr     +++|          ADN    MS2W
01691  M00S01606.1mr     +++|          CWM    SFRA,TR
01692  M00S01607.1mr     +++|          RJM    DAP         DELAY AND PAUSE
01693  M00S01608.1mr     +++|          NJN    SFR1        IF NO OPERATOR DROP
01694  M00S01609.1mr     +++|          LDD    T1          RESET BIT INTERLOCKED FLAG
01695  M00S01610.1mr     +++|          RJM    TFR         TOGGLE FLAG REGISTER BIT
01696  M00S01611.1mr     +++|          LJM    ERR         ERROR FLAG TERMINATION
01697  M00S01612.1mr     +++|
01698  M00S01613.1mr     +++|
01699  M00S01614.1mr     +++| SFRA     DATA   C*WAITING FOR XXXI INTERLOCK.*
01700  M00S01615.1mr     +++| TFRB     SPACE  4,10
01701  M00S01616.1mr     +++|**        TFRB - TABLE OF FLAG REGISTER BIT INTERLOCKS.
01702  M00S01617.1mr     +++|*
01703  M00S01618.1mr     +++|*         ENTRY  = 3 WORDS.
01704  M00S01619.1mr     +++|*T, TFRB  6/,1/I  ,5/N  ,24/FLAG BIT MNEMONIC

Figure TFRB

01705  M00S01620.1mr     +++|*         I      FLAG BIT INTERLOCKED FLAG
01706  M00S01621.1mr     +++|*         N      BIT NUMBER
01707  M00S01622.1mr     +++|
01708  M00S01623.1mr     +++|
01709  M00S01624.1mr     +++| TFRB     BSS    0           TABLE OF FLAG REGISTER BIT INTERLOCKS
01710  M00S01625.1mr     +++|          VFD    12//MMF/DATI,24/0LDATI  DAT INTERLOCK
01711  M00S01626.1mr     +++|          VFD    12//MMF/FATI,24/0LFATI  FAST ATTACH TRACK INTERLOCK

Seq #  *Modification Id* Act 
----------------------------+
01712  M01S00079.283l840 +++|          VFD    12//MMF/BDTI,24/0LBDTI  BDT INTERLOCK
01713  M00S01627.1mr     +++|
01714  M00S01628.1mr     +++|          CON    0           TERMINATOR
01715  M00S01629.1mr     +++| TFR      SPACE  4,10
01716  M00S01630.1mr     +++|**        TFR - TOGGLE FLAG REGISTER BIT.
01717  M00S01631.1mr     +++|*
01718  M00S01632.1mr     +++|*         ENTRY  (A) = FLAG BIT NUMBER.
01719  M00S01633.1mr     +++|*
01720  M00S01634.1mr     +++|*         USES   T1, CM+2.
01721  M00S01635.1mr     +++|
01722  M00S01636.1mr     +++|
01723  M00S01637.1mr     +++| TFR      SUBR               ENTRY/EXIT
01724  M00S01638.1mr     +++|          STD    T1
01725  M00S01639.1mr     +++|          LDC    TFRB-3      INITIALIZE BIT SEARCH
01726  M00S01640.1mr     +++|          STD    CM+2
01727  M00S01641.1mr     +++| TFR1     LDN    3           SEARCH FOR FLAG BIT
01728  M00S01642.1mr     +++|          RAD    CM+2
01729  M00S01643.1mr     +++|          LDI    CM+2
01730  M00S01644.1mr     +++|          ZJN    *           IF BIT NOT FOUND
01731  M00S01645.1mr     +++|          LMD    T1
01732  M00S01646.1mr     +++|          LPN    37
01733  M00S01647.1mr     +++|          NJN    TFR1        IF NOT FOUND
01734  M00S01648.1mr     +++|          LDI    CM+2        TOGGLE BIT
01735  M00S01649.1mr     +++|          LMN    40
01736  M00S01650.1mr     +++|          STI    CM+2
01737  M00S01651.1mr     +++|          LDM    1,CM+2      SET BIT MNEMONIC IN MESSAGE
01738  M00S01652.1mr     +++|          STM    SFRA+6
01739  M00S01653.1mr     +++|          LDM    2,CM+2
01740  M00S01654.1mr     +++|          STM    SFRA+7
01741  M00S01655.1mr     +++|          UJN    TFRX        RETURN
01742  M00S01656.1mr     +++| WFW      SPACE  4,10
01743  M00S01657.1mr     +++|**        WFW - WRITE FAT WORD.
01744  M00S01658.1mr     +++|*
01745  M00S01659.1mr     +++|*         ENTRY  (A) = RELATIVE FAT WORD TO WRITE.
01746  M00S01660.1mr     +++|*                (T3) = FAT INDEX.
01747  M00S01661.1mr     +++|*                MESSAGE BUFFER CONTAINS WORD TO WRITE.
01748  M00S01662.1mr     +++|*
01749  M00S01663.1mr     +++|*         USES   CM+3, CM+4.
01750  M00S01664.1mr     +++|*
01751  M00S01665.1mr     +++|*         CALLS  ECS.
01752  M00S01666.1mr     +++|
01753  M00S01667.1mr     +++|
01754  M00S01668.1mr     +++| WFW      SUBR               ENTRY/EXIT
01755  M00S01669.1mr     +++|          SHN    22-/MMF/FATS
01756  M00S01670.1mr     +++|          ADD    T3
01757  M00S01671.1mr     +++|          SHN    /MMF/FATS
01758  M00S01672.1mr     +++|          ADD    DA+1        SET FAST ATTACH TRACK ADDRESS
01759  M00S01673.1mr     +++|          ADC    /MMF/FAST*100
01760  M00S01674.1mr     +++|          STD    CM+4
01761  M00S01675.1mr     +++|          SHN    -14
01762  M00S01676.1mr     +++|          ADD    DA
01763  M00S01677.1mr     +++|          ADD    WE
01764  M00S01678.1mr     +++|          STD    CM+3
01765  M00S01679.1mr     +++|          LDN    1-1         WORD COUNT
01766  M00S01680.1mr     +++|          RJM    ECS         WRITE EXTENDED MEMORY
01767  M00S01681.1mr     +++|          UJN    WFWX        RETURN
01768  M00S01682.1mr     +++|          SPACE  4,5
01769  M00S01683.1mr     +++| E1MR     BSS    0           END OF ECS MMF CODE
01770  M00S01684.1mr     +++|          TITLE  FUNCTION 0 - RETRIEVE DISPLAY INFORMATION.
01771  M00S01685.1mr     +++| RDI      SPACE  4,10
01772  M00S01686.1mr     +++|**        RDI - RETRIEVE DISPLAY INFORMATION.  (FUNCTION 0)
01773  M00S01687.1mr     +++|*
01774  M00S01688.1mr     +++|*         ENTRY  (IR+3 - IR+4) = ADDR.
01775  M00S01689.1mr     +++|*
01776  M00S01690.1mr     +++|*         ADDR   ADDRESS OF TABLE OF SHARED DEVICES FOR THIS MACHINE.
01777  M00S01691.1mr     +++|*
01778  M00S01692.1mr     +++|*         CALLS  CAA, DAT.
01779  M00S01693.1mr     +++|*
01780  M00S01694.1mr     +++|*         MACROS SFA.
01781  M00S01695.1mr     +++|
01782  M00S01696.1mr     +++|
01783  M00S01697.1mr     +++| RDI      SUBR               ENTRY/EXIT
01784  M00S01698.1mr     +++|          LDK    EFRL        READ MACHINE STATE TABLE
01785  M00S01699.1mr     +++|          CRD    CM
01786  M00S01700.1mr     +++|          LDN    /MMF/MXMF   SET MAXIMUM NUMBER OF MAINFRAMES
01787  M00S01701.1mr     +++|          STD    T1
01788  M00S01702.1mr     +++|          LDD    CM
01789  M00S01703.1mr     +++|          SHN    14
01790  M00S01704.1mr     +++|          LMD    CM+1
01791  M00S01705.1mr     +++|          CRM    BFMS,T1
01792  M00S01706.1mr     +++|          LDD    RA          WRITE STATE TABLE TO CM TABLE
01793  M00S01707.1mr     +++|          SHN    6
01794  M00S01708.1mr     +++|          ADK    /MRT/TMID
01795  M00S01709.1mr     +++|          CWM    BFMS,T1
01796  M00S01710.1mr     +++|
01797  M00S01711.1mr     +++|*         RETURN MASKS OF MACHINES SHARING DEVICES WITH THIS MACHINE.
01798  M00S01712.1mr     +++|
01799  M00S01713.1mr     +++|          LCN    0           SET TABLE INDEX
01800  M00S01714.1mr     +++|          STD    SC
01801  M00S01715.1mr     +++| RDI1     AOD    SC          INCREMENT TABLE INDEX
01802  M00S01716.1mr     +++|          RJM    CAA
01803  M00S01717.1mr     +++|          ADD    SC
01804  M00S01718.1mr     +++|          CRD    CN          READ TABLE ENTRY
01805  M00S01719.1mr     +++|          LDD    CN+4
01806  M00S01720.1mr     +++|          ZJN    RDIX        IF END OF TABLE
01807  M00S01721.1mr     +++|          SFA    EST
01808  M00S01722.1mr     +++|          ADK    EQDE        READ EST ENTRY
01809  M00S01723.1mr     +++|          CRD    CM
01810  M00S01724.1mr     +++|          LDD    CM
01811  M00S01725.1mr     +++|          SHN    21-6
01812  M00S01726.1mr     +++|          MJN    RDI1        IF DEVICE UNAVAILABLE
01813  M00S01727.1mr     +++|          LDD    RE
01814  M00S01728.1mr     +++|          STD    T3          SET READ OPERATION
01815  M00S01729.1mr     +++|          LDD    CN+4
01816  M00S01730.1mr     +++|          RJM    DAT         READ DAT ENTRY
01817  M00S01731.1mr     +++|          LDM    BUFD+5+4
01818  M00S01732.1mr     +++|          LMC    0           CLEAR MASK OF THIS MACHINE
01819  M00S01733.1mr     +++| RDIA     EQU    *-1
01820  M00S01734.1mr     +++|          STD    CN          SET MACHINE MASK
01821  M00S01735.1mr     +++|          RJM    CAA
01822  M00S01736.1mr     +++|          ADD    SC          WRITE ENTRY BACK TO *MREC*
01823  M00S01737.1mr     +++|          CWD    CN
01824  M00S01738.1mr     +++|          UJP    RDI1        LOOP FOR NEXT DEVICE
01825  M00S01739.1mr     +++|
01826  M00S01740.1mr     +++|
01827  M00S01741.1mr     +++|          ERRNG  BUFD-*      CODE OVERFLOWS BUFFER
01828  M00S01742.1mr     +++|          TITLE  FUNCTION 3 - CLEAR DEVICE INTERLOCKS.
01829  M00S01743.1mr     +++| CDV      SPACE  4,10
01830  M00S01744.1mr     +++|**        CDV - CLEAR DEVICE INTERLOCKS.  (FUNCTION 3)
01831  M00S01745.1mr     +++|*
01832  M00S01746.1mr     +++|*         ENTRY  (IR+4) = MACHINE INDEX FOR WHICH TO CLEAR INTERLOCKS.
01833  M00S01747.1mr     +++|*
01834  M00S01748.1mr     +++|*         EXIT   TO *MRP2*.
01835  M00S01749.1mr     +++|*
01836  M00S01750.1mr     +++|*         MACROS MONITOR.
01837  M00S01751.1mr     +++|
01838  M00S01752.1mr     +++|
01839  M00S01753.1mr     +++| CDV8     MONITOR  HNGM

Seq #  *Modification Id* Act 
----------------------------+
01840  M01S01754.283l840 ---| CDV9     LDK    EFRL        CHANGE STATE OF DOWN MACHINE

Seq #  *Modification Id* Act 
----------------------------+
01841  M01S00080.283l840 +++| CDV9     LDK    EFRL        CHANGE STATE OF DOWN MACHINE
01842  M00S01755.1mr     +++|          CRD    CM
01843  M00S01756.1mr     +++|          LDD    CM
01844  M00S01757.1mr     +++|          SHN    14
01845  M00S01758.1mr     +++|          LMD    CM+1
01846  M00S01759.1mr     +++|          ADD    IR+4
01847  M00S01760.1mr     +++|          ADK    /MMF/MFST-1
01848  M00S01761.1mr     +++|          CRD    CN
01849  M00S01762.1mr     +++|          LDD    CN+4
01850  M00S01763.1mr     +++|          LMN    /MMF/MFMR
01851  M00S01764.1mr     +++|          NJN    CDV8        IF NOT IN PROPER STATE
01852  M00S01765.1mr     +++|*         LDN    /MMF/MFDN   SET *1MR* DONE STATE
01853  M00S01766.1mr     +++|          ERRNZ  /MMF/MFDN   CODE DEPENDS ON VALUE OF TAG
01854  M00S01767.1mr     +++|          STD    CN+4
01855  M00S01768.1mr     +++|          LDD    CM          WRITE STATE WORD
01856  M00S01769.1mr     +++|          SHN    14
01857  M00S01770.1mr     +++|          LMD    CM+1
01858  M00S01771.1mr     +++|          ADD    IR+4
01859  M00S01772.1mr     +++|          ADK    /MMF/MFST-1
01860  M00S01773.1mr     +++|          CWD    CN
01861  M00S01774.1mr     +++|          LJM    MRP2        EXIT TO DROP PP ONLY
01862  M00S01775.1mr     +++|
01863  M00S01776.1mr     +++| CDV      SUBR               ENTRY/EXIT
01864  M00S01777.1mr     +++|          LDK    ESTP        PRESET EQUIPMENT SEARCH
01865  M00S01778.1mr     +++|          CRD    CM
01866  M00S01779.1mr     +++|          LDD    CM+3
01867  M00S01780.1mr     +++|          STD    EQ
01868  M00S01781.1mr     +++| CDV1     SOD    EQ
01869  M00S01782.1mr     +++|          ZJN    CDV9        IF END OF EQUIPMENTS

Seq #  *Modification Id* Act 
----------------------------+
01870  M01S01783.283l840 ---|          STD    CM+1
01871  M00S01784.1mr     +++|          SFA    EST

Seq #  *Modification Id* Act 
----------------------------+
01872  M01S00081.283l840 +++|          ADK    EQDE
01873  M00S01785.1mr     +++|          CRD    CN
01874  M00S01786.1mr     +++|          LDD    CN
01875  M00S01787.1mr     +++|          LPC    5020
01876  M00S01788.1mr     +++|          LMC    5000
01877  M00S01789.1mr     +++|          NJN    CDV1        IF NOT MMF SHARED DEVICE
01878  M00S01790.1mr     +++|
01879  M00S01791.1mr     +++|*         OBTAIN DEVICE INTERLOCK WHILE PROCESSING TRACK INTERLOCKS.
01880  M00S01792.1mr     +++|

Seq #  *Modification Id* Act 
----------------------------+
01881  M01S00082.283l840 +++|          RJM    CBI         CLEAR SHARED BUFFERED DEVICE INTERLOCKS
01882  M01S00083.283l840 +++|          LDD    EQ          SET EST ORDINAL
01883  M01S00084.283l840 +++|          STD    CM+1
01884  M00S01793.1mr     +++|          LDN    SDIS        INTERLOCK DEVICE
01885  M00S01794.1mr     +++|          STD    CM+3
01886  M00S01795.1mr     +++|          MONITOR  STBM
01887  M00S01796.1mr     +++|          LDD    CN+4        GET TRT ADDRESS
01888  M00S01797.1mr     +++|          SHN    3
01889  M00S01798.1mr     +++|          ADK    TDGL
01890  M00S01799.1mr     +++|          CRD    T1
01891  M00S01800.1mr     +++|          ADK    SDGL-TDGL
01892  M00S01801.1mr     +++|          CRD    T6          (T6 - T6+1) = EM ADDRESS OF MST
01893  M00S01802.1mr     +++|          ADK    TRLL-SDGL
01894  M00S01803.1mr     +++|          CRD    CN+3-4      (CN+2 - CN+3) = TRT ADDRESS
01895  M00S01804.1mr     +++|          LDD    T1+2        SET TRT LENGTH
01896  M00S01805.1mr     +++|          STD    TC
01897  M00S01806.1mr     +++|          LDN    0           SET CURRENT TRT WORD
01898  M00S01807.1mr     +++|          STD    CN
01899  M00S01808.1mr     +++|          UJN    CDV3        ENTER LOOP
01900  M00S01809.1mr     +++|
01901  M00S01810.1mr     +++|*         LOOP THROUGH TRT WORDS CHECKING FOR INTERLOCKED TRACKS.
01902  M00S01811.1mr     +++|
01903  M00S01812.1mr     +++| CDV2     AOD    CN          ADVANCE TRT WORD
01904  M00S01813.1mr     +++|          SBD    TC
01905  M00S01814.1mr     +++|          PJP    CDV4        IF END OF TRT
01906  M00S01815.1mr     +++| CDV3     LDD    CN+2        READ TRT WORD
01907  M00S01816.1mr     +++|          SHN    14
01908  M00S01817.1mr     +++|          LMD    CN+3
01909  M00S01818.1mr     +++|          ADD    CN
01910  M00S01819.1mr     +++|          CRD    T1
01911  M00S01820.1mr     +++|          LDD    T1+4
01912  M00S01821.1mr     +++|          SHN    -4
01913  M00S01822.1mr     +++|          LPN    17
01914  M00S01823.1mr     +++|          ZJN    CDV2        IF NO TRACK INTERLOCK BITS SET
01915  M00S01824.1mr     +++|
01916  M00S01825.1mr     +++|*         INTERLOCKED TRACK(S) FOUND, CHECK IF HELD BY DOWN MACHINE.
01917  M00S01826.1mr     +++|
01918  M00S01827.1mr     +++|          ADC    TCDVB       GET INTERLOCK BITS IN MRT ORDER
01919  M00S01828.1mr     +++|          STD    T0
01920  M00S01829.1mr     +++|          LDI    T0
01921  M00S01830.1mr     +++|          STM    CDVB        (CDVB) = TRACK INTERLOCK BITS (MRT ORDER)
01922  M00S01831.1mr     +++|          LDD    IR+4        COMPUTE EXTENDED MEMORY MRT ADDRESS
01923  M00S01832.1mr     +++|          SHN    6+3
01924  M00S01833.1mr     +++|          ADD    CN
01925  M00S01834.1mr     +++|          SHN    -3
01926  M00S01835.1mr     +++|          ADC    /MMF/MRST*100-100
01927  M00S01836.1mr     +++|          STD    SC          ADDRESS OF MRT WORD IN TRACK
01928  M00S01837.1mr     +++|          ADD    T6+1
01929  M00S01838.1mr     +++|          STD    CM+4
01930  M00S01839.1mr     +++|          SHN    -14
01931  M00S01840.1mr     +++|          ADD    T6
01932  M00S01841.1mr     +++|          ADD    RE
01933  M00S01842.1mr     +++|          STD    CM+3
01934  M00S01843.1mr     +++|          LDD    MA          SET CM ADDRESS
01935  M00S01844.1mr     +++|          STD    CM+2
01936  M00S01845.1mr     +++|          LDN    0           SET WORD COUNT TO 1
01937  M00S01846.1mr     +++|          STD    CM+1
01938  M00S01847.1mr     +++|          MONITOR  ECSM
01939  M00S01848.1mr     +++|          LDD    MA          READ MRT WORD
01940  M00S01849.1mr     +++|          CRD    CM
01941  M00S01850.1mr     +++|
01942  M00S01851.1mr     +++|*         CHECK MRT WORD OF DOWN MACHINE TO SEE IF IT HAS INTERLOCKS.
01943  M00S01852.1mr     +++|
01944  M00S01853.1mr     +++|          LDD    CN          COMPUTE MRT BYTE
01945  M00S01854.1mr     +++|          LPN    7
01946  M00S01855.1mr     +++|          STD    BI
01947  M00S01856.1mr     +++|          LDM    TCDV,BI     SET BYTE FROM TABLE
01948  M00S01857.1mr     +++|          STD    BY
01949  M00S01858.1mr     +++|          LDM    TCDVA,BI    SET MRT SHIFTS
01950  M00S01859.1mr     +++|          STM    CDVA
01951  M00S01860.1mr     +++|          LMN    77
01952  M00S01861.1mr     +++|          STM    CDVC
01953  M00S01862.1mr     +++|          LDI    BY
01954  M00S01863.1mr     +++| CDVA     SHN    **          SHIFT MRT BITS TO BITS 4 - 7
01955  M00S01864.1mr     +++|          LPC    **
01956  M00S01865.1mr     +++| CDVB     EQU    *-1
01957  M00S01866.1mr     +++|          ZJP    CDV2        IF NO INTERLOCKS HELD BY THIS MACHINE
01958  M00S01867.1mr     +++|          STD    T0          SAVE INTERLOCKS CLEARED
01959  M00S01868.1mr     +++| CDVC     SHN    **          SHIFT BACK
01960  M00S01869.1mr     +++|          LMI    BY
01961  M00S01870.1mr     +++|          STI    BY
01962  M00S01871.1mr     +++|
01963  M00S01872.1mr     +++|*         CLEAR TRACK INTERLOCK BITS IN TRT WORD.
01964  M00S01873.1mr     +++|
01965  M00S01874.1mr     +++|          LDD    T0          GET INTERLOCK BITS CLEARED IN TRT ORDER
01966  M00S01875.1mr     +++|          SHN    -4
01967  M00S01876.1mr     +++|          ADC    TCDVB
01968  M00S01877.1mr     +++|          STD    T0
01969  M00S01878.1mr     +++|          LDI    T0
01970  M00S01879.1mr     +++|          LMD    T1+4
01971  M00S01880.1mr     +++|          STD    T1+4
01972  M00S01881.1mr     +++|          LDD    CN+2        WRITE TRT WORD
01973  M00S01882.1mr     +++|          SHN    14
01974  M00S01883.1mr     +++|          ADD    CN+3
01975  M00S01884.1mr     +++|          ADD    CN
01976  M00S01885.1mr     +++|          CWD    T1
01977  M00S01886.1mr     +++|
01978  M00S01887.1mr     +++|*         REWRITE MRT WORD TO EXTENDED MEMORY.
01979  M00S01888.1mr     +++|
01980  M00S01889.1mr     +++|          LDD    MA          SET CM ADDRESS
01981  M00S01890.1mr     +++|          CWD    CM          WRITE MRT WORD TO MB
01982  M00S01891.1mr     +++|          STD    CM+2
01983  M00S01892.1mr     +++|          LDD    SC          SET ADDRESS OF MRT WORD
01984  M00S01893.1mr     +++|          ADD    T6+1
01985  M00S01894.1mr     +++|          STD    CM+4
01986  M00S01895.1mr     +++|          SHN    -14
01987  M00S01896.1mr     +++|          ADD    T6
01988  M00S01897.1mr     +++|          ADD    WE
01989  M00S01898.1mr     +++|          STD    CM+3
01990  M00S01899.1mr     +++|          LDN    0           SET WORD COUNT TO 1
01991  M00S01900.1mr     +++|          STD    CM+1
01992  M00S01901.1mr     +++|          MONITOR  ECSM
01993  M00S01902.1mr     +++|          LJM    CDV2        PROCESS NEXT TRT WORD
01994  M00S01903.1mr     +++|
01995  M00S01904.1mr     +++|*         ADJUST *PFM* ACTIVITY COUNTS.
01996  M00S01905.1mr     +++|
01997  M00S01906.1mr     +++| CDV4     LDN    GLGL-LLLL   COMPUTE EM ADDRESS OF LOCAL MST
01998  M00S01907.1mr     +++|          STD    SC
01999  M00S01908.1mr     +++|          LDN    0
02000  M00S01909.1mr     +++|          STD    T0
02001  M00S01910.1mr     +++| CDV5     LDN    LLLL
02002  M00S01911.1mr     +++|          RAD    SC
02003  M00S01912.1mr     +++|          AOD    T0
02004  M00S01913.1mr     +++|          LMD    IR+4
02005  M00S01914.1mr     +++|          NJN    CDV5        IF NOT END OF COMPUTATION
02006  M00S01915.1mr     +++|          ERRNG  6-LLLL      LOCAL MST EXCEEDS MESSAGE BUFFER
02007  M00S01916.1mr     +++|          LDD    SC          SET EXTENDED MEMORY ADDRESS FOR *ECSM*
02008  M00S01917.1mr     +++|          ADD    T6+1
02009  M00S01918.1mr     +++|          STD    CM+4
02010  M00S01919.1mr     +++|          SHN    -14
02011  M00S01920.1mr     +++|          ADD    T6
02012  M00S01921.1mr     +++|          ADD    RE
02013  M00S01922.1mr     +++|          STD    CM+3
02014  M00S01923.1mr     +++|          LDD    MA          SET CM ADDRESS
02015  M00S01924.1mr     +++|          STD    CM+2
02016  M00S01925.1mr     +++|          LDC    LLLL*100-100
02017  M00S01926.1mr     +++|          STD    CM+1
02018  M00S01927.1mr     +++|          MONITOR  ECSM
02019  M00S01928.1mr     +++|          LDD    MA          READ LOCAL AREA
02020  M00S01929.1mr     +++|          CRM    MBUF,SX
02021  M00S01930.1mr     +++|
02022  M00S01931.1mr     +++|*         SUBTRACT LOCAL PF COUNTS FROM GLOBAL.
02023  M00S01932.1mr     +++|
02024  M00S01933.1mr     +++|          LDD    CN+4        READ GLOBAL COUNT WORD FROM CM MST
02025  M00S01934.1mr     +++|          SHN    3
02026  M00S01935.1mr     +++|          ADK    TDGL
02027  M00S01936.1mr     +++|          CRD    CM
02028  M00S01937.1mr     +++|          LDD    CM+1
02029  M00S01938.1mr     +++|          ZJN    CDV7        IF NO COUNTS SET
02030  M00S01939.1mr     +++|          SBM    MBUF+DULL*5-GLGL*5+1
02031  M00S01940.1mr     +++|          MJN    CDV6        IF COUNTER UNDERFLOW
02032  M00S01941.1mr     +++|          STD    CM+1
02033  M00S01942.1mr     +++| CDV6     LDN    0
02034  M00S01943.1mr     +++|          STM    MBUF+DULL*5-GLGL*5+1
02035  M00S01944.1mr     +++|          LDD    CN+4
02036  M00S01945.1mr     +++|          SHN    3
02037  M00S01946.1mr     +++|          ADK    TDGL

Proceed to Part 1