User Tools

Site Tools


cdc:nos2.source:opl.opl871:deck:1mr

Deck 1MR

7 Modifications

Listing Sections

Source

Seq #  *Modification Id* Act 
----------------------------+
00001  M01S00001.1mr     +++|          IDENT  1MR,/MRP/MRP
00002  M01S00002.1mr     +++|          PERIPH
00003  M01S00003.1mr     +++|          BASE   MIXED
00004  M01S00004.1mr     +++|          SST
00005  M01S00005.1mr     +++|*COMMENT  1MR - MACHINE RECOVERY PROCESSOR.
Line S00006 Modification History
M01 (Added by) 1mr
M02 (Updated by) 281l803
Seq #  *Modification Id* Act 
----------------------------+
00006  M02S00006.281l803 ---|          COMMENT  COPYRIGHT CONTROL DATA CORP. 1975.
00007  M01S00001.281l803 +++|          COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
00008  M01S00007.1mr     +++|          TITLE  1MR - MACHINE RECOVERY PROCESSOR.
00009  M01S00008.1mr     +++|          SPACE  4
00010  M01S00009.1mr     +++|***       1MR - MACHINE RECOVERY PROCESSOR.
00011  M01S00010.1mr     +++|*         R. J. PRIEVE       75/02/14.
00012  M01S00011.1mr     +++|*         P. D. HAAS.        87/04/10.
00013  M01S00012.1mr     +++|          SPACE  4
00014  M01S00013.1mr     +++|***       1MR PROCESSES FUNCTION REQUESTS FROM *MREC*, THE
00015  M01S00014.1mr     +++|*         MACHINE RECOVERY UTILITY.
00016  M01S00015.1mr     +++|*
00017  M01S00016.1mr     +++|*         FUNCTIONS PROCESSED ARE THE FOLLOWING.
00018  M01S00017.1mr     +++|*
00019  M01S00018.1mr     +++|*         FUNCTION 0 - RETRIEVE DISPLAY INFORMATION.
00020  M01S00019.1mr     +++|*         FUNCTION 1 - PROCESS DAT, FAT, MRT,S, SYSTEM SECTORS,
00021  M01S00020.1mr     +++|*         AND UNIT AND/OR CONTROLLER RESERVE SITUATIONS.
00022  M01S00021.1mr     +++|*         FUNCTION 2 - UPDATE MST ENTRIES IN CM FOR INDEPENDENT
00023  M01S00022.1mr     +++|*         SHARED DEVICES.
00024  M01S00001.283l840 +++|*         FUNCTION 3 - CLEAR DEVICE INTERLOCKS.
00025  M01S00023.1mr     +++|          SPACE  4
00026  M01S00024.1mr     +++|***       ENTRY CONDITIONS.
00027  M01S00025.1mr     +++|*
00028  M01S00026.1mr     +++|*T,   IR  18/1MR,18/0,6/FN,18/PARM
Figure IR

01718232429PARMFN03041425901MR

00029  M01S00027.1mr     +++|*
00030  M01S00028.1mr     +++|*         FN     FUNCTION NUMBER.
00031  M01S00029.1mr     +++|*         PARM   PARAMETER.
00032  M01S00030.1mr     +++|*
00033  M01S00031.1mr     +++|*         PARAMETERS ARE DOCUMENTED IN HEADER INFORMATION
00034  M01S00032.1mr     +++|*         OF EACH FUNCTION PROCESSOR.
00035  M01S00033.1mr     +++|          SPACE  4
00036  M01S00034.1mr     +++|***       DAYFILE MESSAGES.
00037  M01S00035.1mr     +++|*
00038  M01S00036.1mr     +++|*         * INCORRECT 1MR FUNCTION.*
00039  M01S00037.1mr     +++|*
00040  M01S00038.1mr     +++|*         * 1MR ERROR FLAG TERMINATION.* - ERROR FLAG WAS SET AT
00041  M01S00039.1mr     +++|*         MREC,S CONTROL POINT.
00042  M01S00040.1mr     +++|*
00043  M01S00041.1mr     +++|*         * SSER, EQXXX, TKYYYY.* - UNRECOVERED ERROR OCCURRED WHEN
00044  M01S00042.1mr     +++|*         ATTEMPTING TO READ OR WRITE THE SYSTEM SECTOR ON EQXXX,
00045  M01S00043.1mr     +++|*         TRACK YYYY.  THE SECTOR IS NOT PROCESSED.  PROCESSING
00046  M01S00044.1mr     +++|*         CONTINUES.  THIS MESSAGE IS ALSO ISSUED TO THE ERRLOG.
00047  M01S00045.1mr     +++|*
00048  M01S00046.1mr     +++|*         * EQXXX, MRT PROCESSED BUT NOT REWRITTEN.* - UNRECOVERED
00049  M01S00047.1mr     +++|*         WRITE ERROR OCCURRED WHEN ATTEMPTING TO ZERO OUT THE MRT
00050  M01S00048.1mr     +++|*         FOR EQXXX.  PROCESSING CONTINUES.
00051  M01S00049.1mr     +++|*
00052  M01S00050.1mr     +++|*         * EQXXX, TKYYYY, INCORRECT LOCAL FILE.* - MRT BIT WAS FOUND
00053  M01S00051.1mr     +++|*         SET FOR TRACK YYYY ON EQXXX, BUT THE TRACK WAS NOT THE FIRST
00054  M01S00052.1mr     +++|*         TRACK OF A LOCAL FILE.  THE MRT BIT WAS CLEARED BUT THE
00055  M01S00053.1mr     +++|*         TRACK WAS NOT DROPPED.
00056  M01S00054.1mr     +++|*
00057  M01S00055.1mr     +++|*         * EQXXX, DAF INTERLOCKS NOT CLEARED.* - INTERLOCKS IN THE
00058  M01S00056.1mr     +++|*         SYSTEM SECTORS OF DIRECT ACCESS FILES ON EQXXX WERE NOT
00059  M01S00057.1mr     +++|*         CLEARED, EITHER BECAUSE OF MASS STORAGE ERRORS OR
00060  M01S00058.1mr     +++|*         BECAUSE A PF CATALOG SIZE ERROR WAS DETECTED.
00061  M01S00059.1mr     +++|*
00062  M01S00060.1mr     +++|*         * RECOVERING PF.EQXXX, TRK YYYY.* - INFORMATIVE MESSAGE ISSUED
00063  M01S00061.1mr     +++|*         AT CONTROL POINT WHEN PRESERVED FILES ARE BEING PROCESSED
00064  M01S00062.1mr     +++|*         ON EQXXX.
00065  M01S00063.1mr     +++|*
00066  M01S00064.1mr     +++|*         * EQXXX, UNYY, CHECKING RESERVE.* - INFORMATIVE MESSAGE
00067  M01S00065.1mr     +++|*         ISSUED TO B-DISPLAY WHILE CONTROLLER AND UNIT RESERVES
00068  M01S00066.1mr     +++|*         ARE BEING PROCESSED.  IN THE CASE OF MULTI-UNIT
00069  M01S00067.1mr     +++|*         DEVICES, YY IS THE PHYSICAL UNIT NUMBER.
00070  M01S00068.1mr     +++|*
00071  M01S00069.1mr     +++|*         * EQXXX, CLEARING LABEL SECTOR INTERLOCKS.* - INFORMATIVE
00072  M01S00070.1mr     +++|*         MESSAGE ISSUED TO B-DISPLAY WHILE THE RMS COPY OF THE
00073  M01S00071.1mr     +++|*         MST IS BEING PROCESSED (SHARED RMS SYSTEM ONLY).
00074  M01S00072.1mr     +++|*
00075  M01S00073.1mr     +++|*         * EQXXX, CHYY, CONTROLLER RESERVED.* - INFORMATIVE MESSAGE
00076  M01S00074.1mr     +++|*         ISSUED TO B-DISPLAY INDICATING THAT THE HARDWARE CONTROLLER
00077  M01S00075.1mr     +++|*         RESERVE IS HELD BY THE DOWN MAINFRAME FOR THE SPECIFIED
00078  M01S00076.1mr     +++|*         CHANNEL/DEVICE.  TO CLEAR THE RESERVE, THE OPERATOR SHOULD
00079  M01S00077.1mr     +++|*         HIT THE DEADSTART BUTTON.  IF THE CONTROLLER IS TO BE
00080  M01S00078.1mr     +++|*         IGNORED BY THIS MAINFRAME, JUST ENTER THE *GO,JSN* COMMAND.
00081  M01S00079.1mr     +++|*
00082  M01S00080.1mr     +++|*         * EQXXX, UNYY, UNIT RESERVED.* - INFORMATIVE MESSAGE ISSUED
00083  M01S00081.1mr     +++|*         TO B-DISPLAY INDICATING THAT THE HARDWARE UNIT RESERVE IS
00084  M01S00082.1mr     +++|*         HELD BY THE DOWN MAINFRAME FOR THE SPECIFIED UNIT.  IF THIS
00085  M01S00083.1mr     +++|*         DEVICE IS TO BE IGNORED BY THIS MAINFRAME, THE OPERATOR
00086  M01S00084.1mr     +++|*         SHOULD JUST ENTER *GO,JSN*.  OTHERWISE, THE OPERATOR SHOULD
00087  M01S00085.1mr     +++|*         CLEAR THE UNIT RESERVE (SEE DOCUMENTATION IN *MREC*) ON
00088  M01S00086.1mr     +++|*         THE UNIT TO CONTINUE PROCESSING.
00089  M01S00087.1mr     +++|*
00090  M01S00088.1mr     +++|*         * INTERLOCKING IQFT, EQXXX.* - INDICATES *1MR* IS WAITING
00091  M01S00089.1mr     +++|*         FOR THE INTERLOCK ON THE *IQFT* TRACK.
00092  M01S00090.1mr     +++|          SPACE  4
00093  M01S00091.1mr     +++|*CALL     COMPMAC
00094  M01S00092.1mr     +++|*CALL     COMSCPS
00095  M01S00093.1mr     +++|*CALL     COMSIOQ
00096  M01S00094.1mr     +++|*CALL     COMSJIO
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  M01S00095.1mr     +++|          QUAL   MMF
00105  M01S00009.283l840 +++|          LIST   X
00106  M01S00096.1mr     +++|*CALL     COMSMMF
00107  M01S00010.283l840 +++|          LIST   *
00108  M01S00097.1mr     +++|          QUAL   *
00109  M01S00001.ns2547  +++| MISD     EQU    /MMF/MISD
Line S00098 Modification History
M01 (Added by) 1mr
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
00110  M02S00098.283l840 ---|*CALL COMSPIM
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  M01S00099.1mr     +++|*CALL     COMSSSD
00123  M01S00100.1mr     +++|*CALL     COMSSSE
00124  M01S00101.1mr     +++|*CALL     COMSWEI
Line S00102 Modification History
M01 (Added by) 1mr
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
00125  M02S00102.283l840 ---| MMPF     EQU    /MMF/MMPF   DEFINE TAG FOR *COMSMRT*
Line S00103 Modification History
M01 (Added by) 1mr
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
00126  M02S00103.283l840 ---| MXMF     EQU    /MMF/MXMF
Line S00104 Modification History
M01 (Added by) 1mr
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
00127  M02S00104.283l840 ---|          QUAL   MRT
Line S00105 Modification History
M01 (Added by) 1mr
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
00128  M02S00105.283l840 ---|          LIST   X
Line S00106 Modification History
M01 (Added by) 1mr
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
00129  M02S00106.283l840 ---|*CALL     COMSMRT
Line S00107 Modification History
M01 (Added by) 1mr
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
00130  M02S00107.283l840 ---|          LIST   *
Line S00108 Modification History
M01 (Added by) 1mr
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
00131  M02S00108.283l840 ---|          QUAL   *
Line S00109 Modification History
M01 (Added by) 1mr
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
00132  M02S00109.283l840 ---|*CALL     COMSMSP
Line S00110 Modification History
M01 (Added by) 1mr
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
00133  M02S00110.283l840 ---|          QUAL   LSD
Line S00111 Modification History
M01 (Added by) 1mr
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
00134  M02S00111.283l840 ---|*CALL     COMSLSD
Line S00112 Modification History
M01 (Added by) 1mr
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
00135  M02S00112.283l840 ---|          QUAL   *
Line S00113 Modification History
M01 (Added by) 1mr
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
00136  M02S00113.283l840 ---| N4SS     EQU    /LSD/N4SS
Line S00114 Modification History
M01 (Added by) 1mr
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
00137  M02S00114.283l840 ---| DISS     EQU    /LSD/DISS
Line S00115 Modification History
M01 (Added by) 1mr
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
00138  M02S00115.283l840 ---| CKSS     EQU    /LSD/CKSS
Line S00002 Modification History
M01 (Added by) ns2547
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
00139  M02S00002.283l840 ---| DKSS     EQU    /LSD/DKSS
Line S00116 Modification History
M01 (Added by) 1mr
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
00140  M02S00116.283l840 ---|*CALL     COMSMST
Line S00117 Modification History
M01 (Added by) 1mr
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
00141  M02S00117.283l840 ---|*CALL     COMSPFM
00142  M01S00118.1mr     +++|          SPACE  4,10
00143  M01S00119.1mr     +++|**        ASSEMBLY CONSTANTS.
00144  M01S00120.1mr     +++|
00145  M01S00121.1mr     +++|
00146  M01S00122.1mr     +++| BUFS     EQU    BFMS-502    SCRATCH BUFFER
00147  M01S00123.1mr     +++| QBUF     EQU    BUFS-502    *IQFT* BUFFER
00148  M01S00124.1mr     +++| BUFD     EQU    QBUF-5*2    *DAT* BUFFER
00149  M01S00125.1mr     +++|          SPACE  4
00150  M01S00126.1mr     +++|****      DIRECT LOCATION ASSIGNMENTS.
00151  M01S00127.1mr     +++|
00152  M01S00128.1mr     +++|
00153  M01S00129.1mr     +++|          ORG    16
00154  M01S00130.1mr     +++| EF       BSS    1           ERROR FLAG
00155  M01S00131.1mr     +++| SC       BSS    1           SCRATCH
00156  M01S00132.1mr     +++| CN       BSS    5           CM BUFFER
00157  M01S00133.1mr     +++| DA       BSS    2           DAT TRACK ADDRESS
00158  M01S00134.1mr     +++| DF       BSS    1           DIRECT ACCESS FILE COUNT
00159  M01S00135.1mr     +++| DT       BSS    1           DAT/FAT TRACK
00160  M01S00136.1mr     +++| ET       BSS    2           ENVIRONMENT TABLE ADDRESS
00161  M01S00137.1mr     +++| EQ       BSS    1           EQUIPMENT BEING PROCESSED
00162  M01S00138.1mr     +++| ID       BSS    1           MACHINE ID OF THIS MACHINE
00163  M01S00139.1mr     +++| LK       BSS    1           LINK DEVICE EST ORDINAL
00164  M01S00140.1mr     +++| MD       BSS    1           MACHINE INDEX OF DOWNED MACHINE
00165  M01S00141.1mr     +++| MI       BSS    1           MID OF DOWNED MACHINE
00166  M01S00142.1mr     +++| MK       BSS    1           MACHINE MASK OF DOWNED MACHINE
00167  M01S00143.1mr     +++| NT       BSS    1           NUMBER OF TRACKS ON CURRENT DEVICE
00168  M01S00144.1mr     +++| FT       BSS    1           FILE TYPE
00169  M01S00145.1mr     +++| PF       BSS    1           PRESERVED FILE TRACK INTERLOCK STATUS
00170  M01S00146.1mr     +++| TC       BSS    1           TRACK COUNT
00171  M01S00147.1mr     +++| BY       BSS    1           BYTE COUNT
00172  M01S00148.1mr     +++| WB       EQU    NT - BY     WORD BUFFER (5 LOCATIONS)
00173  M01S00149.1mr     +++| BI       BSS    1           BIT COUNT
00174  M01S00150.1mr     +++| AD       BSS    1           ADDRESS OF CURRENT MRT BYTE
00175  M01S00151.1mr     +++|
00176  M01S00152.1mr     +++|          ORG    57
00177  M01S00153.1mr     +++|
00178  M01S00154.1mr     +++| SD       BSS    1           TYPE OF SHARED DEVICE (FUNCTION 2)
00179  M01S00155.1mr     +++|*                            0 = EXTENDED MEMORY MMF DEVICE.
00180  M01S00156.1mr     +++|*                            1 = INDEPENDENT SHARED DEVICE (ISD).
00181  M01S00157.1mr     +++| TW       BSS    1           CONSTANT 2
00182  M01S00158.1mr     +++| SX       BSS    1           CONSTANT 6
00183  M01S00159.1mr     +++| RE       BSS    1           READ EXTENDED MEMORY SUBFUNCTION * 1000
00184  M01S00160.1mr     +++| WE       BSS    1           WRITE EXTENDED MEMORY SUBFUNCTION * 1000
00185  M01S00161.1mr     +++| CT       BSS    1           CURRENT TRACK
00186  M01S00162.1mr     +++| QF       BSS    1           FIRST TRACK OF *IQFT*
00187  M01S00163.1mr     +++| QT       BSS    1           CURRENT TRACK OF *IQFT*
00188  M01S00164.1mr     +++| QS       BSS    1           CURRENT SECTOR OF *IQFT*
00189  M01S00165.1mr     +++|****
00190  M01S00166.1mr     +++|          TITLE  MAIN ROUTINE.
00191  M01S00167.1mr     +++|
00192  M01S00168.1mr     +++|
00193  M01S00169.1mr     +++|**        MAIN ROUTINE.
00194  M01S00170.1mr     +++|
00195  M01S00171.1mr     +++|
00196  M01S00172.1mr     +++|          QUAL   MRP
00197  M01S00173.1mr     +++|          ORG    PPFW
00198  M01S00174.1mr     +++|
00199  M01S00175.1mr     +++| MRP      RJM    PRS         PRESET
00200  M01S00176.1mr     +++| MRPA     EQU    *-1
00201  M01S00177.1mr     +++|
00202  M01S00178.1mr     +++| DROP     RJM    CFI         CLEAR FLAG REGISTER INTERLOCKS
00203  M01S00179.1mr     +++| MRP1     LDN    1           SET COMPLETE FLAG FOR *MREC*
00204  M01S00180.1mr     +++|          STD    CN+4
00205  M01S00181.1mr     +++|          LDD    RA
00206  M01S00182.1mr     +++|          SHN    6
00207  M01S00183.1mr     +++|          ADC    /MRT/RCLW
00208  M01S00184.1mr     +++|          CWD    CN
00209  M01S00185.1mr     +++| MRP2     MONITOR  DPPM      DROP PP
00210  M01S00186.1mr     +++|          UJN    ABT1        EXIT TO PP RESIDENT
00211  M01S00187.1mr     +++|
00212  M01S00188.1mr     +++| ERR      LDC    =C* 1MR ERROR FLAG TERMINATION.*
00213  M01S00189.1mr     +++|          RJM    DFM
00214  M01S00190.1mr     +++|          LDC    WDSX        RESET ERROR RETURN FROM *WDS*
00215  M01S00191.1mr     +++|          STM    WDSA
00216  M01S00192.1mr     +++|          RJM    TQF         TERMINATE *IQFT*
00217  M01S00193.1mr     +++|          RJM    CFI         CLEAR FLAG REGISTER INTERLOCKS
00218  M01S00194.1mr     +++|          UJN    MRP2        DROP PP
00219  M01S00195.1mr     +++|          SPACE  4
00220  M01S00196.1mr     +++|**        ABT - ISSUE MESSAGE AND ABORT.
00221  M01S00197.1mr     +++|*
00222  M01S00198.1mr     +++|*         ENTRY  (A) = MESSAGE ADDRESS.
00223  M01S00199.1mr     +++|
00224  M01S00200.1mr     +++|
00225  M01S00201.1mr     +++| ABT      RJM    DFM         ISSUE MESSAGE
00226  M01S00202.1mr     +++|          RJM    CFI         CLEAR FLAG REGISTER INTERLOCKS
00227  M01S00203.1mr     +++|          MONITOR ABTM
00228  M01S00204.1mr     +++| ABT1     LJM    PPR         EXIT TO PP RESIDENT
00229  M01S00205.1mr     +++|          SPACE  4
00230  M01S00206.1mr     +++|**        COMMON DECKS.
00231  M01S00207.1mr     +++|
00232  M01S00208.1mr     +++|
00233  M01S00209.1mr     +++|          QUAL
00234  M01S00210.1mr     +++|*CALL     COMPC2D
00235  M01S00211.1mr     +++|*CALL     COMPCEA
00236  M01S00212.1mr     +++|*CALL     COMPCKP
00237  M01S00213.1mr     +++|*CALL     COMPRSS
00238  M01S00214.1mr     +++|*CALL     COMPSSE
00239  M01S00215.1mr     +++|
00240  M01S00216.1mr     +++|          QUAL   MRP
00241  M01S00217.1mr     +++|*CALL     COMPWEI
00242  M01S00218.1mr     +++|*CALL     COMPWSS
00243  M01S00219.1mr     +++| WDS      SPACE  4,10
00244  M01S00220.1mr     +++|**        WDS - WRITE MASS STORAGE.
00245  M01S00221.1mr     +++|*
00246  M01S00222.1mr     +++|*         ENTRY  (A) = SAME AS ENTRY TO DRIVER.
00247  M01S00223.1mr     +++|*                (T5 - T7) = MASS STORAGE PARAMETERS.
00248  M01S00224.1mr     +++|*
00249  M01S00225.1mr     +++|*         EXIT   (A) = 0 IF NO WRITE ERRORS.
00250  M01S00226.1mr     +++|*
00251  M01S00227.1mr     +++|*         CALLS  WDS.
00252  M01S00228.1mr     +++|
00253  M01S00229.1mr     +++|
00254  M01S00230.1mr     +++| WDS1     LDN    0           INDICATE SUCCESSFUL WRITE
00255  M01S00231.1mr     +++|
00256  M01S00232.1mr     +++| WDS      SUBR               ENTRY/EXIT
00257  M01S00233.1mr     +++|          RJM    //WDS
00258  M01S00234.1mr     +++|          PJN    WDS1        IF WRITE COMPLETED
00259  M01S00235.1mr     +++|          SHN    21-12
00260  M01S00236.1mr     +++|          SHN    0-21
00261  M01S00237.1mr     +++|          NJN    WDSX        IF NON-RECOVERABLE ERROR
00262  M01S00238.1mr     +++|          LCN    10
00263  M01S00239.1mr     +++|          LJM    WDSX        ERROR RETURN
00264  M01S00240.1mr     +++| WDSA     EQU    *-1
00265  M01S00241.1mr     +++|          TITLE  FUNCTION 1 - PROCESS DAT, FAT, MRT-S.
00266  M01S00242.1mr     +++| PMT      SPACE  4
00267  M01S00243.1mr     +++|**        PMT - PROCESS DAT, FAT, MRT,S.  (FUNCTION 1)
00268  M01S00244.1mr     +++|*
00269  M01S00245.1mr     +++|*         ENTRY  (IR+3 - IR+4) = ADDR.
00270  M01S00246.1mr     +++|*
00271  M01S00247.1mr     +++|*         ADDR   ADDRESS OF TABLE OF DEVICES TO RECOVER.
00272  M01S00248.1mr     +++|*
Line S00249 Modification History
M01 (Added by) 1mr
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
00273  M02S00249.283l840 ---|*         CALLS  CAA, CLU, C2D, DAT, DFM, ECS, MRT, PDT,
Line S00250 Modification History
M01 (Added by) 1mr
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
00274  M02S00250.283l840 ---|*                PFB, RMI, SDM, SDP, SFR.
00275  M01S00022.283l840 +++|*         CALLS  CAA, CLU, C2D, DAT, DFM, MRT, PDT, PFB, RMI, SDM,
00276  M01S00023.283l840 +++|*                SDP, SFR, *2MS*.
00277  M01S00251.1mr     +++|*
00278  M01S00252.1mr     +++|*         MACROS EXECUTE, PAUSE.
00279  M01S00253.1mr     +++|
00280  M01S00254.1mr     +++|
00281  M01S00255.1mr     +++| PMT      SUBR               ENTRY/EXIT
Line S00256 Modification History
M01 (Added by) 1mr
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
00282  M02S00256.283l840 ---|
Line S00257 Modification History
M01 (Added by) 1mr
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
00283  M02S00257.283l840 ---|*         PROCESS CONTROLLER AND UNIT RESERVES.
Line S00258 Modification History
M01 (Added by) 1mr
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
00284  M02S00258.283l840 ---|
Line S00259 Modification History
M01 (Added by) 1mr
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
00285  M02S00259.283l840 ---|          EXECUTE  2MS       RELEASE HARDWARE RESERVES
00286  M01S00024.283l840 +++|          EXECUTE  2MS       LOAD HARDWARE RESERVE ROUTINES
00287  M01S00260.1mr     +++|          LDD    LK
00288  M01S00261.1mr     +++|          ZJN    PMT1        IF NOT EXTENDED MEMORY MMF
00289  M01S00262.1mr     +++|          LDN    /MMF/DATI
00290  M01S00263.1mr     +++|          RJM    SFR         SET DAT INTERLOCK
Line S00264 Modification History
M01 (Added by) 1mr
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
00291  M02S00264.283l840 ---|
Line S00265 Modification History
M01 (Added by) 1mr
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
00292  M02S00265.283l840 ---|*         DISABLE LEVEL 3 RECOVERY OF DOWNED MACHINE.
Line S00266 Modification History
M01 (Added by) 1mr
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
00293  M02S00266.283l840 ---|
Line S00267 Modification History
M01 (Added by) 1mr
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
00294  M02S00267.283l840 ---|          LDN    ZERL        BUILD MMFL WORD FOR DOWNED MACHINE
Line S00268 Modification History
M01 (Added by) 1mr
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
00295  M02S00268.283l840 ---|          CRD    CM
Line S00269 Modification History
M01 (Added by) 1mr
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
00296  M02S00269.283l840 ---|          LDD    MI          SET MID OF DOWNED MACHINE
Line S00270 Modification History
M01 (Added by) 1mr
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
00297  M02S00270.283l840 ---|          STD    CM
Line S00271 Modification History
M01 (Added by) 1mr
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
00298  M02S00271.283l840 ---|          LDD    MD          SET MACHINE INDEX OF DOWNED MACHINE
Line S00272 Modification History
M01 (Added by) 1mr
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
00299  M02S00272.283l840 ---|          STD    CM+4
Line S00273 Modification History
M01 (Added by) 1mr
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
00300  M02S00273.283l840 ---|          LDD    MA          SET CM BUFFER ADDRESS
Line S00274 Modification History
M01 (Added by) 1mr
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
00301  M02S00274.283l840 ---|          CWD    CM
Line S00275 Modification History
M01 (Added by) 1mr
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
00302  M02S00275.283l840 ---|          LDD    ET+1        SET EXTENDED MEMORY ADDRESS
Line S00276 Modification History
M01 (Added by) 1mr
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
00303  M02S00276.283l840 ---|          ADD    MD          ADD INDEX INTO CORRECT ENTRY
Line S00277 Modification History
M01 (Added by) 1mr
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
00304  M02S00277.283l840 ---|          SBN    1
Line S00278 Modification History
M01 (Added by) 1mr
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
00305  M02S00278.283l840 ---|          STD    CM+4
Line S00279 Modification History
M01 (Added by) 1mr
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
00306  M02S00279.283l840 ---|          SHN    -14
Line S00280 Modification History
M01 (Added by) 1mr
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
00307  M02S00280.283l840 ---|          ADD    ET
Line S00281 Modification History
M01 (Added by) 1mr
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
00308  M02S00281.283l840 ---|          ADD    WE
Line S00282 Modification History
M01 (Added by) 1mr
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
00309  M02S00282.283l840 ---|          STD    CM+3
Line S00283 Modification History
M01 (Added by) 1mr
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
00310  M02S00283.283l840 ---|          LDN    1-1         WRITE EXTENDED MEMORY
Line S00284 Modification History
M01 (Added by) 1mr
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
00311  M02S00284.283l840 ---|          RJM    ECS
00312  M01S00285.1mr     +++|          RJM    CLU         CLEAR UTILITY / DEVICE INTERLOCKS
00313  M01S00286.1mr     +++|
00314  M01S00287.1mr     +++|*         PROCESS DAT, MRT-S, SYSTEM SECTORS.
00315  M01S00288.1mr     +++|
00316  M01S00289.1mr     +++| PMT1     LCN    0           PRESET TABLE INDEX
00317  M01S00290.1mr     +++|          STD    SC
00318  M01S00291.1mr     +++| PMT2     PAUSE  NE
00319  M01S00292.1mr     +++|          AOD    SC          READ TABLE ENTRY
00320  M01S00293.1mr     +++|          RJM    CAA
00321  M01S00294.1mr     +++|          ADD    SC
00322  M01S00295.1mr     +++|          CRD    CM
00323  M01S00296.1mr     +++|          LDD    CM+4        SET EST ORDINAL
00324  M01S00297.1mr     +++|          STD    EQ
00325  M01S00298.1mr     +++|          STD    T5
00326  M01S00299.1mr     +++|          NJN    PMT3        IF NOT END OF DEVICES TO RECOVER
00327  M01S00300.1mr     +++|          LJM    PMTX        RETURN
00328  M01S00301.1mr     +++|
00329  M01S00302.1mr     +++| PMT3     LDD    CM          SET POSSIBLE IGNORE DEVICE
00330  M01S00303.1mr     +++|          STM    PMTA
00331  M01S00304.1mr     +++|          LDD    CM+3        SET TYPE OF SHARED DEVICE
00332  M01S00305.1mr     +++|          STD    SD
00333  M01S00306.1mr     +++|          ZJN    PMT4        IF NOT ISD
00334  M01S00307.1mr     +++|          LDD    T5
00335  M01S00308.1mr     +++|          STD    LK
00336  M01S00309.1mr     +++|          RJM    SDM         CHECK IF DEVICE SHARED TO DOWN MF
00337  M01S00310.1mr     +++|          NJN    PMT2        IF NOT SHARED TO DOWN MF
00338  M01S00311.1mr     +++|          RJM    RMI         RELEASE MST INTERLOCKS
00339  M01S00312.1mr     +++|          UJN    PMT5        PROCESS MRT
00340  M01S00313.1mr     +++|
Line S00314 Modification History
M01 (Added by) 1mr
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
00341  M02S00314.283l840 ---| PMT4     RJM    PDT         PROCESS DAT FOR DEVICE
00342  M01S00025.283l840 +++| PMT4     RJM    PDT         PROCESS DAT FOR DEVICE
00343  M01S00315.1mr     +++|          ZJN    PMT7        IF NO PROCESSING FOR DEVICE
00344  M01S00316.1mr     +++| PMT5     RJM    SDP         SET DEVICE PARAMETERS
00345  M01S00317.1mr     +++|          STM    PMTB
00346  M01S00318.1mr     +++|          RJM    MRT         PROCESS MRT FOR DEVICE
00347  M01S00319.1mr     +++|          LDC    0
00348  M01S00320.1mr     +++| PMTA     EQU    *-1
00349  M01S00321.1mr     +++|          LMN    /MRT/IGN
00350  M01S00322.1mr     +++|          ZJN    PMT6        IF IGNORE DEVICE
00351  M01S00323.1mr     +++|          LDC    **          CHECK PFC SIZE
00352  M01S00324.1mr     +++| PMTB     EQU    *-1
00353  M01S00325.1mr     +++|          ZJN    PMT8        IF 8-WORD PF CATALOGS
00354  M01S00326.1mr     +++|          LDD    DF
00355  M01S00327.1mr     +++|          ZJN    PMT6        IF NO DAF-S
00356  M01S00328.1mr     +++|          RJM    PFB         PROCESS DAF SYSTEM SECTORS
00357  M01S00329.1mr     +++|          NJN    PMT8        IF ALL FILES NOT PROCESSED
00358  M01S00330.1mr     +++| PMT6     LDD    SD
00359  M01S00331.1mr     +++|          NJN    PMT7        IF ISD
00360  M01S00332.1mr     +++|          LDD    WE          WRITE DAT ENTRY WITH ACCESS CLEARED
00361  M01S00333.1mr     +++|          STD    T3
00362  M01S00334.1mr     +++|          LDD    MA
00363  M01S00335.1mr     +++|          CWM    BUFD,TW     STORE DAT ENTRY IN MESSAGE BUFFER
00364  M01S00336.1mr     +++|          LDD    EQ          SET EQUIPMENT
00365  M01S00337.1mr     +++|          RJM    DAT         WRITE DAT ENTRY
00366  M01S00338.1mr     +++| PMT7     LJM    PMT2        LOOP FOR NEXT DEVICE
00367  M01S00339.1mr     +++|
00368  M01S00340.1mr     +++| PMT8     LDD    EQ          CONVERT UPPER DIGIT OF EST ORDINAL
00369  M01S00341.1mr     +++|          SHN    -6
00370  M01S00342.1mr     +++|          ADC    2RQ0
00371  M01S00343.1mr     +++|          STM    PMTC+1
00372  M01S00344.1mr     +++|          LDD    EQ          CONVERT LOWER TWO DIGITS OF EST ORDINAL
00373  M01S00345.1mr     +++|          RJM    C2D
00374  M01S00346.1mr     +++|          STM    PMTC+2
00375  M01S00347.1mr     +++|          LDC    PMTC        * EQXXX, DAF INTERLOCKS NOT CLEARED.*
00376  M01S00348.1mr     +++|          RJM    DFM
00377  M01S00349.1mr     +++|          UJN    PMT7        LOOP FOR NEXT DEVICE
00378  M01S00350.1mr     +++|
00379  M01S00351.1mr     +++|
00380  M01S00352.1mr     +++| PMTC     DATA   C* EQXXX, DAF INTERLOCKS NOT CLEARED.*
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  M01S00353.1mr     +++|          TITLE  SUBROUTINES.
00425  M01S00354.1mr     +++| CAA      SPACE  4
00426  M01S00355.1mr     +++|**        CAA - CALCULATE ABSOLUTE ADDRESS.
00427  M01S00356.1mr     +++|*
00428  M01S00357.1mr     +++|*         ENTRY  (IR+3 - IR+4) = RELATIVE ADDRESS.
00429  M01S00358.1mr     +++|*
00430  M01S00359.1mr     +++|*         EXIT   (A) = ABSOLUTE ADDRESS.
00431  M01S00360.1mr     +++|
00432  M01S00361.1mr     +++|
00433  M01S00362.1mr     +++| CAA      SUBR               ENTRY/EXIT
00434  M01S00363.1mr     +++|          LDD    IR+3
00435  M01S00364.1mr     +++|          LPN    77
00436  M01S00365.1mr     +++|          SHN    6
00437  M01S00366.1mr     +++|          ADD    RA
00438  M01S00367.1mr     +++|          SHN    6
00439  M01S00368.1mr     +++|          ADD    IR+4
00440  M01S00369.1mr     +++|          UJN    CAAX        RETURN
00441  M01S00370.1mr     +++| CAT      SPACE  4,10
00442  M01S00371.1mr     +++|**        CAT - CALCULATE ADDRESS OF TRT.
00443  M01S00372.1mr     +++|*
00444  M01S00373.1mr     +++|*         ENTRY  (A) = ADDRESS OF WORD *TRLL* IN MST.
00445  M01S00374.1mr     +++|*
00446  M01S00375.1mr     +++|*         EXIT   (A) = FWA OF TRT.
00447  M01S00376.1mr     +++|*
00448  M01S00377.1mr     +++|*         USES   CM - CM+4.
00449  M01S00378.1mr     +++|
00450  M01S00379.1mr     +++|
00451  M01S00380.1mr     +++| CAT      SUBR               ENTRY/EXIT
00452  M01S00381.1mr     +++|          CRD    CM          GET FWA OF TRT
00453  M01S00382.1mr     +++|          LDD    CM+3
00454  M01S00383.1mr     +++|          LPN    77
00455  M01S00384.1mr     +++|          SHN    14
00456  M01S00385.1mr     +++|          LMD    CM+4
00457  M01S00386.1mr     +++|          UJN    CATX        RETURN
00458  M01S00387.1mr     +++| CAM      SPACE  4
00459  M01S00388.1mr     +++|**        CAM - CHECK ACCESS MODES FOR DIRECT ACCESS FILE.
00460  M01S00389.1mr     +++|*
00461  M01S00390.1mr     +++|*         ENTRY  (T5) = EST ORDINAL.
00462  M01S00391.1mr     +++|*                (T6) = FIRST TRACK.
00463  M01S00392.1mr     +++|*                (BFMS) = SYSTEM SECTOR.
00464  M01S00393.1mr     +++|*
00465  M01S00394.1mr     +++|*         EXIT   (A) = (PF) = 0 IF FILE PURGED.
00466  M01S00395.1mr     +++|*
00467  M01S00396.1mr     +++|*         USES   CM - CM+4.
00468  M01S00397.1mr     +++|*
00469  M01S00398.1mr     +++|*         CALLS  RRS.
00470  M01S00399.1mr     +++|*
00471  M01S00400.1mr     +++|*         MACROS ENDMS, MONITOR.
00472  M01S00401.1mr     +++|
00473  M01S00402.1mr     +++|
00474  M01S00403.1mr     +++| CAM1     LDN    1           SET FILE NOT PURGED
00475  M01S00404.1mr     +++|
00476  M01S00405.1mr     +++| CAM      SUBR               ENTRY/EXIT
00477  M01S00406.1mr     +++|          LDM    CASS        CHECK PURGE BIT
00478  M01S00407.1mr     +++|          SHN    21-5
00479  M01S00408.1mr     +++|          PJN    CAM1        IF PURGE BIT NOT SET
00480  M01S00409.1mr     +++|          SHN    -21+5+22    CHECK IF ACTIVE USERS
00481  M01S00410.1mr     +++|          LPN    32
00482  M01S00411.1mr     +++|          ADM    UCSS+1
00483  M01S00412.1mr     +++|          ADM    UCSS+2
00484  M01S00413.1mr     +++|          ADM    UCSS+3
00485  M01S00414.1mr     +++|          ADM    UCSS+4
00486  M01S00415.1mr     +++|          NJN    CAMX        IF ACTIVE USERS
00487  M01S00416.1mr     +++|          RJM    RRS
00488  M01S00417.1mr     +++|          ENDMS
00489  M01S00418.1mr     +++|          LDD    T6          RELEASE FILE SPACE
00490  M01S00419.1mr     +++|          STD    CM+2
00491  M01S00420.1mr     +++|          LDD    T5
00492  M01S00421.1mr     +++|          STD    CM+1
00493  M01S00422.1mr     +++|          MONITOR DTKM
00494  M01S00423.1mr     +++|*         LDN    0           CLEAR TRACK INTERLOCK STATUS
00495  M01S00424.1mr     +++|          STD    PF
00496  M01S00425.1mr     +++|          UJN    CAMX        RETURN
Line S00426 Modification History
M01 (Added by) 1mr
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
00497  M02S00426.283l840 ---| CFI      SPACE  4
00498  M01S00069.283l840 +++| CFI      SPACE  4,10
00499  M01S00427.1mr     +++|**        CFI - CLEAR FLAG REGISTER INTERLOCKS HELD BY *1MR*.
00500  M01S00428.1mr     +++|*
00501  M01S00429.1mr     +++|*         ENTRY  (CFIA) = LINK DEVICE EST ORDINAL, IF ECS MMF.
00502  M01S00430.1mr     +++|*                       = 0, IF ISD MMF.
00503  M01S00431.1mr     +++|*
00504  M01S00432.1mr     +++|*         USES   T2.
00505  M01S00433.1mr     +++|*
00506  M01S00434.1mr     +++|*         CALLS  CFR, SCI.
00507  M01S00435.1mr     +++|
00508  M01S00436.1mr     +++|
00509  M01S00437.1mr     +++| CFI      SUBR               ENTRY/EXIT
00510  M01S00438.1mr     +++|          RJM    SCI         CLEAR *CMS* INTERLOCK
00511  M01S00439.1mr     +++|          LDC    **          CHECK TYPE OF MMF OPERATION
00512  M01S00440.1mr     +++| CFIA     EQU    *-1         (LINK DEVICE EST ORDINAL, IF ECS MMF)
00513  M01S00441.1mr     +++|          ZJN    CFIX        IF NOT EXTENDED MEMORY MMF
00514  M01S00442.1mr     +++|          LDC    TFRB-3      CLEAR FLAG REGISTER INTERLOCKS
00515  M01S00443.1mr     +++|          STD    T2
00516  M01S00444.1mr     +++| CFI1     LDN    3
00517  M01S00445.1mr     +++|          RAD    T2
00518  M01S00446.1mr     +++|          LDI    T2
00519  M01S00447.1mr     +++|          ZJN    CFIX        IF END OF FLAG BITS
00520  M01S00448.1mr     +++|          LPN    40
00521  M01S00449.1mr     +++|          ZJN    CFI1        IF NOT SET
00522  M01S00450.1mr     +++|          LMI    T2
00523  M01S00451.1mr     +++|          RJM    CFR
00524  M01S00452.1mr     +++|          UJN    CFI1
00525  M01S00453.1mr     +++|
00526  M01S00454.1mr     +++| CQF      SPACE  4,15
00527  M01S00455.1mr     +++|**        CQF - CHECK QUEUE FILE.
00528  M01S00456.1mr     +++|*
00529  M01S00457.1mr     +++|*         ENTRY  (MI) = ID OF DOWN MACHINE.
00530  M01S00458.1mr     +++|*                (QF) = FIRST TRACK OF *IQFT* IF INITIALIZED.
00531  M01S00459.1mr     +++|*                (T4) = CHANNEL (RESERVED).
00532  M01S00460.1mr     +++|*                (T5) = EST ORDINAL.
00533  M01S00461.1mr     +++|*                (CT) = (T6) = FIRST TRACK OF PRESERVED FILE.
00534  M01S00462.1mr     +++|*                (BFMS) = PRESERVED FILE SYSTEM SECTOR.
00535  M01S00463.1mr     +++|*
00536  M01S00464.1mr     +++|*         EXIT   (A) = 0 IF NOT QUEUE FILE.
00537  M01S00465.1mr     +++|*                (FT) = FILE TYPE.
00538  M01S00466.1mr     +++|*
00539  M01S00467.1mr     +++|*         USES   T1, T2, T3.
00540  M01S00468.1mr     +++|*
00541  M01S00469.1mr     +++|*         CALLS  IQF, WQF, WSS.
00542  M01S00470.1mr     +++|*
00543  M01S00471.1mr     +++|*         MACROS ENDMS, FILEREC, SETMS.
00544  M01S00472.1mr     +++|
00545  M01S00473.1mr     +++|
00546  M01S00474.1mr     +++| CQF6     LDN    0           INDICATE NON-QUEUE FILE
00547  M01S00475.1mr     +++|
00548  M01S00476.1mr     +++| CQF      SUBR               ENTRY/EXIT
00549  M01S00477.1mr     +++|          LDM    FNSS+4      EXTRACT FILE TYPE
00550  M01S00478.1mr     +++|          SHN    -6
00551  M01S00479.1mr     +++|          STD    FT
00552  M01S00480.1mr     +++|          LDN    RDATL       SET LENGTH OF QUEUE FILE TABLE
00553  M01S00481.1mr     +++|          STD    T3
00554  M01S00482.1mr     +++| CQF1     SOD    T3          DECREMENT INDEX
00555  M01S00483.1mr     +++|          MJN    CQF6        IF END OF TABLE
00556  M01S00484.1mr     +++|          LDM    RDAT,T3
00557  M01S00485.1mr     +++|          LMD    FT
00558  M01S00486.1mr     +++|          NJN    CQF1        IF NOT MATCHING FILE TYPE
00559  M01S00487.1mr     +++|          LDM    FGSS
00560  M01S00488.1mr     +++|          LPN    2
00561  M01S00489.1mr     +++|          ZJN    CQF2        IF INACTIVE QUEUE FILE
00562  M01S00490.1mr     +++|          LDM    RMSS
00563  M01S00491.1mr     +++|          LMD    MI
00564  M01S00492.1mr     +++|          NJN    CQF6        IF NOT ACTIVE QUEUE FILE ON DOWN MACHINE
00565  M01S00493.1mr     +++|          LCN    2           SET QUEUE FILE INACTIVE
00566  M01S00494.1mr     +++|          RAM    FGSS
00567  M01S00495.1mr     +++|          RJM    WSS         REWRITE SYSTEM SECTOR
00568  M01S00496.1mr     +++| CQF2     LDD    QF
00569  M01S00497.1mr     +++|          NJN    CQF3        IF QUEUE FILE PROCESSING INITIATED
00570  M01S00498.1mr     +++|          ENDMS
00571  M01S00499.1mr     +++|          RJM    IQF         INITIALIZE *IQFT*
00572  M01S00500.1mr     +++| CQF3     LDM    RMSS        SET MACHINE ID
00573  M01S00501.1mr     +++|          STM    FMSS+4
00574  M01S00502.1mr     +++|          LDM    FLSS        SET FILE LENGTH
00575  M01S00503.1mr     +++|          STM    CDSS
00576  M01S00504.1mr     +++|          LDM    FLSS+1
00577  M01S00505.1mr     +++|          STM    CDSS+1
00578  M01S00506.1mr     +++|          LDC    IOSS        SYSTEM SECTOR ADDRESS OF QFT ENTRY
00579  M01S00507.1mr     +++|          STD    T1
00580  M01S00508.1mr     +++|          LDC    QBUF+2      SET BUFFER ADDRESS
00581  M01S00509.1mr     +++| CQFC     EQU    *-1
00582  M01S00510.1mr     +++|          STD    T2
00583  M01S00511.1mr     +++|          ADN    5*QFTE      END OF QFT ENTRY
00584  M01S00512.1mr     +++|          STD    T3
00585  M01S00513.1mr     +++|          ADN    5*10-5*QFTE END OF MAXIMUM SIZE QFT ENTRY
00586  M01S00514.1mr     +++|          STM    CQFD
00587  M01S00515.1mr     +++|
00588  M01S00516.1mr     +++|*         MOVE IQFT ENTRY TO BUFFER.
00589  M01S00517.1mr     +++|
00590  M01S00518.1mr     +++| CQF4     LDI    T1          MOVE QFT ENTRY
00591  M01S00519.1mr     +++|          STI    T2
00592  M01S00520.1mr     +++|          AOD    T1          ADVANCE BUFFER ADDRESSES
00593  M01S00521.1mr     +++|          AOD    T2
00594  M01S00522.1mr     +++|          LMD    T3
00595  M01S00523.1mr     +++|          NJN    CQF4        IF NOT END OF QFT ENTRY
00596  M01S00524.1mr     +++|          LDN    5
00597  M01S00525.1mr     +++|          STD    T1
00598  M01S00526.1mr     +++|          LDD    MA          MOVE REMAINDER OF IQFT ENTRY
00599  M01S00527.1mr     +++|          CWM    CDSS,ON
00600  M01S00528.1mr     +++|          CWM    FMSS,ON
00601  M01S00529.1mr     +++|          CWM    FDSS,ON
00602  M01S00530.1mr     +++|          CWM    ACSS,ON
00603  M01S00531.1mr     +++|          CWM    FOSS,ON
00604  M01S00532.1mr     +++|          SBN    5
00605  M01S00533.1mr     +++|          CRM    QBUF+2+5*10,T1
00606  M01S00534.1mr     +++| CQFD     EQU    *-1
00607  M01S00535.1mr     +++|          LDC    5*QFEWL     ADVANCE BUFFER ADDRESS
00608  M01S00536.1mr     +++|          RAM    CQFC
00609  M01S00537.1mr     +++|          LDN    QFEWL       ADVANCE SECTOR LENGTH
00610  M01S00538.1mr     +++|          RAM    QBUF+1
00611  M01S00539.1mr     +++|          SHN    -6
00612  M01S00540.1mr     +++|          ZJN    CQF5        IF NOT FULL SECTOR
00613  M01S00541.1mr     +++|          RJM    WQF         WRITE *IQFT* SECTOR
00614  M01S00542.1mr     +++|          ZJN    CQF5        IF SECTOR WRITTEN
00615  M01S00543.1mr     +++|          LJM    IQF2        END OF SPACE ON *IQFT*
00616  M01S00544.1mr     +++|
00617  M01S00545.1mr     +++| CQF5     LDD    CT          RESET CURRENT TRACK
00618  M01S00546.1mr     +++|          STD    T6
00619  M01S00547.1mr     +++|          LJM    CQFX        RETURN
00620  M01S00548.1mr     +++|
00621  M01S00549.1mr     +++|
00622  M01S00550.1mr     +++|          FILEREC
00623  M01S00551.1mr     +++| DAP      SPACE  4,10
00624  M01S00552.1mr     +++|**        DAP - DELAY AND PAUSE.
00625  M01S00553.1mr     +++|*
00626  M01S00554.1mr     +++|*         EXIT   (A) = 0 IF *ODET* OR ERROR .GE. *SPET* SET.
00627  M01S00555.1mr     +++|
00628  M01S00556.1mr     +++|
00629  M01S00557.1mr     +++| DAP      SUBR               ENTRY/EXIT
00630  M01S00558.1mr     +++|          DELAY
00631  M01S00559.1mr     +++|          PAUSE
00632  M01S00560.1mr     +++|          LDD    CM+1
00633  M01S00561.1mr     +++|          SBN    ODET
00634  M01S00562.1mr     +++|          ZJN    DAPX        IF OPERATOR DROP
00635  M01S00563.1mr     +++|          SBN    SPET-ODET
00636  M01S00564.1mr     +++|          SHN    -21         (A) = 1 IF NO ERROR *SPET* OR ABOVE
00637  M01S00565.1mr     +++|          UJN    DAPX        RETURN
00638  M01S00566.1mr     +++| DPS      SPACE  4
00639  M01S00567.1mr     +++|**        DPS - DETERMINE IF PRESERVED FILE AND RESERVATION BIT
00640  M01S00568.1mr     +++|*         IS SET FOR TRACK SPECIFIED.
00641  M01S00569.1mr     +++|*
00642  M01S00570.1mr     +++|*         ENTRY  (T6) = TRACK.
00643  M01S00571.1mr     +++|*
00644  M01S00572.1mr     +++|*         EXIT   (A, BIT 21) = RESERVATION BIT.
00645  M01S00573.1mr     +++|*                (A, BIT 7) = PRESERVED FILE BIT.
00646  M01S00574.1mr     +++|*                (A, BIT 3) = TRACK INTERLOCK BIT.
00647  M01S00575.1mr     +++|*
00648  M01S00576.1mr     +++|*         USES   CM - CM+4.
00649  M01S00577.1mr     +++|
00650  M01S00578.1mr     +++|
00651  M01S00579.1mr     +++| DPS      SUBR               ENTRY/EXIT
00652  M01S00580.1mr     +++|          LDD    T6          READ TRT WORD
00653  M01S00581.1mr     +++|          SHN    -2
00654  M01S00582.1mr     +++| DPSA     ADC    TRTS
00655  M01S00583.1mr     +++|          CRD    CM
00656  M01S00584.1mr     +++|          LDD    T6          SET SHIFT COUNT
00657  M01S00585.1mr     +++|          LPN    3
00658  M01S00586.1mr     +++|          ADC    SHNI+16
00659  M01S00587.1mr     +++|          STM    DPSB
00660  M01S00588.1mr     +++|          LDD    CM+4
00661  M01S00589.1mr     +++| DPSB     SHN    16
00662  M01S00590.1mr     +++|          UJN    DPSX        RETURN
00663  M01S00591.1mr     +++| IQF      SPACE  4,15
00664  M01S00592.1mr     +++|**        IQF - INITIALIZE *IQFT*.
00665  M01S00593.1mr     +++|*
00666  M01S00594.1mr     +++|*         ENTRY  (T5) = EST ORDINAL.
00667  M01S00595.1mr     +++|*
00668  M01S00596.1mr     +++|*         EXIT   (QF) = (QT) = FIRST TRACK OF *IQFT*.
00669  M01S00597.1mr     +++|*                (QS) = FIRST SECTOR OF *IQFT*.
00670  M01S00598.1mr     +++|*
00671  M01S00599.1mr     +++|*         USES   T3, T6.
00672  M01S00600.1mr     +++|*
00673  M01S00601.1mr     +++|*         CALLS  RSS, WSS.
00674  M01S00602.1mr     +++|*
00675  M01S00603.1mr     +++|*         MACROS SETMS.
00676  M01S00604.1mr     +++|
00677  M01S00605.1mr     +++|
00678  M01S00606.1mr     +++| IQF      SUBR               ENTRY/EXIT
00679  M01S00607.1mr     +++| IQF2     LDM    PFBA
00680  M01S00608.1mr     +++|          STD    T6          SET *IQFT* TRACK
00681  M01S00609.1mr     +++|          STD    QF
00682  M01S00610.1mr     +++|          STD    QT
00683  M01S00611.1mr     +++|          LDC    500
00684  M01S00612.1mr     +++|          STD    T3
00685  M01S00613.1mr     +++| IQF4     LDN    0           CLEAR SYSTEM SECTOR BUFFER
00686  M01S00614.1mr     +++|          STM    BFMS+1,T3
00687  M01S00615.1mr     +++|          STM    QBUF+1,T3   CLEAR IQFT BUFFER
00688  M01S00616.1mr     +++|          SOD    T3
00689  M01S00617.1mr     +++|          NJN    IQF4        LOOP TO START OF BUFFER
00690  M01S00618.1mr     +++|          STM    QBUF+1      CLEAR SECTOR WORD COUNT
00691  M01S00619.1mr     +++|          LDD    MA          MOVE FILE NAME TO BUFFER
00692  M01S00620.1mr     +++|          CWM    IQFA,ON
00693  M01S00621.1mr     +++|          SBN    1
00694  M01S00622.1mr     +++|          CRM    FNSS,ON
00695  M01S00623.1mr     +++|          SETMS  POSITION
00696  M01S00624.1mr     +++|          RJM    WSS         WRITE *IQFT* SYSTEM SECTOR
00697  M01S00625.1mr     +++|          LDN    FSMS        SET FIRST *IQF* SECTOR
00698  M01S00626.1mr     +++|          STD    QS
00699  M01S00627.1mr     +++|          LDD    CT          RESTORE CURRENT TRACK
00700  M01S00628.1mr     +++|          STD    T6
00701  M01S00629.1mr     +++|          SETMS  POSITION
00702  M01S00630.1mr     +++|*         LDN    0           REREAD QUEUE FILE SYSTEM SECTOR
00703  M01S00631.1mr     +++|          RJM    RSS
00704  M01S00632.1mr     +++|          LJM    IQFX        RETURN
00705  M01S00633.1mr     +++|
00706  M01S00634.1mr     +++|
00707  M01S00635.1mr     +++| IQFA     VFD    42/0LQUEUES,6/1,6/SYFT,6/0
00708  M01S00636.1mr     +++| MRM      SPACE  4
00709  M01S00637.1mr     +++|**        MRM - ISSUE MRT ERROR MESSAGE.
00710  M01S00638.1mr     +++|*
00711  M01S00639.1mr     +++|*         ENTRY  (A) = ADDRESS OF MESSAGE.
00712  M01S00640.1mr     +++|*                (T6) = TRACK.
00713  M01S00641.1mr     +++|*                (EQ) = EST ORDINAL TO BE INSERTED IN MESSAGE.
00714  M01S00642.1mr     +++|*
00715  M01S00643.1mr     +++|*         USES   T1.
00716  M01S00644.1mr     +++|*
00717  M01S00645.1mr     +++|*         CALLS  C2D, DFM.
00718  M01S00646.1mr     +++|
00719  M01S00647.1mr     +++|
00720  M01S00648.1mr     +++| MRM      SUBR               ENTRY/EXIT
00721  M01S00649.1mr     +++|          STD    T1          SAVE MESSAGE ADDRESS
00722  M01S00650.1mr     +++|          STM    MRMA
00723  M01S00651.1mr     +++|          LDD    EQ          CONVERT UPPER DIGIT OF EST ORDINAL
00724  M01S00652.1mr     +++|          SHN    -6
00725  M01S00653.1mr     +++|          ADC    2RQ0
00726  M01S00654.1mr     +++|          STM    1,T1
00727  M01S00655.1mr     +++|          LDD    EQ          CONVERT LOWER TWO DIGITS OF EST ORDINAL
00728  M01S00656.1mr     +++|          RJM    C2D
00729  M01S00657.1mr     +++|          STM    2,T1
00730  M01S00658.1mr     +++|          LDD    T1
00731  M01S00659.1mr     +++|          LMC    MRTC
00732  M01S00660.1mr     +++|          ZJN    MRM1        IF NO TRACK IN MESSAGE
00733  M01S00661.1mr     +++|          LDD    T6          CONVERT TRACK MESSAGE
00734  M01S00662.1mr     +++|          RJM    C2D
00735  M01S00663.1mr     +++|          STM    6,T1
00736  M01S00664.1mr     +++|          LDD    T6
00737  M01S00665.1mr     +++|          SHN    -6
00738  M01S00666.1mr     +++|          RJM    C2D
00739  M01S00667.1mr     +++|          STM    5,T1
00740  M01S00668.1mr     +++|          LDD    T1          ISSUE MESSAGE TO ERRLOG
00741  M01S00669.1mr     +++|          LMC    ERLN
00742  M01S00670.1mr     +++|          RJM    DFM
00743  M01S00671.1mr     +++| MRM1     LDC    *           ISSUE MESSAGE TO DAYFILE
00744  M01S00672.1mr     +++| MRMA     EQU    *-1
00745  M01S00673.1mr     +++|          RJM    DFM
00746  M01S00674.1mr     +++|          LJM    MRMX        RETURN
00747  M01S00675.1mr     +++| MRT      SPACE  4
00748  M01S00676.1mr     +++|**        MRT - PROCESS MRT.
00749  M01S00677.1mr     +++|*
00750  M01S00678.1mr     +++|*         ENTRY  (T6) = MRT TRACK NUMBER.
00751  M01S00679.1mr     +++|*                (NT) = NUMBER OF TRACKS ON DEVICE BEING RECOVERED.
00752  M01S00680.1mr     +++|*                (EQ) = EST ORDINAL BEING PROCESSED.
00753  M01S00681.1mr     +++|*
00754  M01S00682.1mr     +++|*         EXIT   TO *MSR* IF LINK DEVICE ERROR.
00755  M01S00683.1mr     +++|*
00756  M01S00684.1mr     +++|*         USES   AD, BY, TC, T5, T6, CM - CM+4.
00757  M01S00685.1mr     +++|*
00758  M01S00686.1mr     +++|*         CALLS  MRM, PTR, RSC, WDS.
00759  M01S00687.1mr     +++|*
00760  M01S00688.1mr     +++|*         MACROS ENDMS, MONITOR, SETMS.
00761  M01S00689.1mr     +++|
00762  M01S00690.1mr     +++|
00763  M01S00691.1mr     +++| MRT8     LDD    MA          RESET MRT TRACK AND SECTOR
00764  M01S00692.1mr     +++|          CWM    MRTB,ON
00765  M01S00693.1mr     +++|          SBN    1
00766  M01S00694.1mr     +++|          CRD    T3
Line S00695 Modification History
M01 (Added by) 1mr
M02 (Updated by) ns2579
Seq #  *Modification Id* Act 
----------------------------+
00767  M02S00695.ns2579  ---|          SETMS  IO,RW
00768  M01S00001.ns2579  +++|          SETMS  IO,(NS,RW)
00769  M01S00696.1mr     +++|          LDC    BUFS        SET BUFFER ADDRESS
00770  M01S00697.1mr     +++|          RJM    WDS         WRITE SECTOR
00771  M01S00698.1mr     +++|          MJN    MRT9        IF ERROR
00772  M01S00699.1mr     +++|          ENDMS
00773  M01S00700.1mr     +++|          UJN    MRTX        RETURN
00774  M01S00701.1mr     +++|
00775  M01S00702.1mr     +++| MRT9     LDC    MRTC        SET MESSAGE ADDRESS
00776  M01S00703.1mr     +++|          RJM    MRM         ISSUE ERROR MESSAGE
00777  M01S00704.1mr     +++|
00778  M01S00705.1mr     +++| MRT      SUBR               ENTRY/EXIT
00779  M01S00706.1mr     +++|          LDD    EQ          UPDATE TRT FOR DEVICE
00780  M01S00707.1mr     +++|          STD    CM+1
00781  M01S00708.1mr     +++|          LDN    UTRS
00782  M01S00709.1mr     +++|          STD    CM+3
00783  M01S00710.1mr     +++|          MONITOR  STBM
00784  M01S00711.1mr     +++|*         LDN    0           SET FIRST TRACK
00785  M01S00712.1mr     +++|          STD    TC
00786  M01S00713.1mr     +++|          STD    BY
00787  M01S00714.1mr     +++|          LDD    LK          READ MRT SECTOR FROM LINK DEVICE
00788  M01S00715.1mr     +++|          STD    T5
00789  M01S00716.1mr     +++|          LDD    SD
00790  M01S00717.1mr     +++|          ZJN    MRT1        IF NOT ISD
00791  M01S00718.1mr     +++|          LDN    /MMF/MRTL-/MMF/MRST
00792  M01S00719.1mr     +++| MRT1     ADN    /MMF/MRST-1  SET MRT SECTOR
00793  M01S00720.1mr     +++|          ADD    MD
00794  M01S00721.1mr     +++|          STD    T7
Line S00722 Modification History
M01 (Added by) 1mr
M02 (Updated by) ns2579
Seq #  *Modification Id* Act 
----------------------------+
00795  M02S00722.ns2579  ---|          SETMS  IO
00796  M01S00002.ns2579  +++|          SETMS  IO,NS
00797  M01S00723.1mr     +++|          LDC    BUFS+2+4    SET FIRST MRT BYTE TO PROCESS
00798  M01S00724.1mr     +++|          STD    AD
00799  M01S00725.1mr     +++|          SBN    2+4         READ MRT SECTOR
00800  M01S00726.1mr     +++|          RJM    RSC
00801  M01S00727.1mr     +++|          LDD    MA          SAVE MRT TRACK AND SECTOR
00802  M01S00728.1mr     +++|          CWD    T3
00803  M01S00729.1mr     +++|          CRM    MRTB,ON
00804  M01S00730.1mr     +++|          ENDMS
00805  M01S00731.1mr     +++|          LDD    EQ          SET EST ORDINAL
00806  M01S00732.1mr     +++|          STD    T5
00807  M01S00001.1mr8    +++|          SETMS  IO,RW
00808  M01S00733.1mr     +++| MRT2     LDI    AD
00809  M01S00734.1mr     +++|          NJN    MRT4        IF BITS SET IN BYTE
00810  M01S00735.1mr     +++| MRT3     SOD    AD
00811  M01S00736.1mr     +++|          LDN    14          INCREMENT TRACKS
00812  M01S00737.1mr     +++|          RAD    TC
00813  M01S00738.1mr     +++|          AOD    BY          INCREMENT BYTE WITHIN WORD
00814  M01S00739.1mr     +++|          LMN    3
00815  M01S00740.1mr     +++|          NJN    MRT2        IF NOT DONE WITH CM WORD
00816  M01S00741.1mr     +++|*         LDN    0
00817  M01S00742.1mr     +++|          STD    BY          RESET BYTE COUNTER
00818  M01S00743.1mr     +++|          LDN    10
00819  M01S00744.1mr     +++|          RAD    AD
00820  M01S00745.1mr     +++|          LCN    4           ADJUST TRACK COUNT
00821  M01S00746.1mr     +++|          RAD    TC
00822  M01S00747.1mr     +++|          SBD    NT
00823  M01S00748.1mr     +++|          MJN    MRT2        IF MORE TRACKS TO CHECK
00824  M01S00749.1mr     +++|          LJM    MRT8
00825  M01S00750.1mr     +++|
00826  M01S00751.1mr     +++| MRT4     LDN    1           INITIALIZE MASK
00827  M01S00752.1mr     +++|          STM    MRTA
00828  M01S00753.1mr     +++|          SHN    13-0        SET TRACK
00829  M01S00754.1mr     +++|          ADD    TC
00830  M01S00755.1mr     +++|          STD    T6
00831  M01S00756.1mr     +++| MRT5     LDI    AD
00832  M01S00757.1mr     +++|          ZJN    MRT3        IF NO MORE TRACK BITS IN MRT BYTE
00833  M01S00758.1mr     +++|          LPC    0
00834  M01S00759.1mr     +++| MRTA     EQU    *-1
00835  M01S00760.1mr     +++|          ZJN    MRT6        IF TRACK BIT NOT SET
00836  M01S00761.1mr     +++|          LMI    AD          CLEAR TRACK BIT
00837  M01S00762.1mr     +++|          STI    AD
00838  M01S00763.1mr     +++|          RJM    PTR         PROCESS TRACK RESERVATION
00839  M01S00764.1mr     +++|          MJN    MRT6        IF VALID TRACK ASSIGNMENT
00840  M01S00765.1mr     +++|          LDC    MRTD        ISSUE ERROR MESSAGE
00841  M01S00766.1mr     +++|          RJM    MRM
00842  M01S00767.1mr     +++| MRT6     AOD    T6          ADVANCE TRACK
00843  M01S00768.1mr     +++|          LDM    MRTA
00844  M01S00769.1mr     +++|          RAM    MRTA        ADJUST MASK FOR NEXT MRT BIT
00845  M01S00770.1mr     +++|          SHN    -14
00846  M01S00771.1mr     +++|          ZJN    MRT5        IF NOT ZERO MASK
00847  M01S00772.1mr     +++|          LJM    MRT3        SET NEXT MRT BYTE
00848  M01S00773.1mr     +++|
00849  M01S00774.1mr     +++|
00850  M01S00775.1mr     +++| MRTB     BSS    5           TEMPORARY STORAGE
00851  M01S00776.1mr     +++| MRTC     DATA   C* EQXXX, MRT PROCESSED BUT NOT REWRITTEN.*
00852  M01S00777.1mr     +++| MRTD     DATA   C* EQXXX, TKYYYY, INCORRECT LOCAL FILE.*
00853  M01S00778.1mr     +++| MSR      SPACE  4
00854  M01S00779.1mr     +++|**        MSR - RETURN ERROR TO *MREC*.
00855  M01S00780.1mr     +++|*
00856  M01S00781.1mr     +++|*         ENTRY  (A) = ERROR CODE.
00857  M01S00782.1mr     +++|*
00858  M01S00783.1mr     +++|*         EXIT   ERROR RETURN WORD RETURNED TO *MREC*.
00859  M01S00784.1mr     +++|*
00860  M01S00785.1mr     +++|*         CALLS  CFR.
00861  M01S00786.1mr     +++|
00862  M01S00787.1mr     +++|
00863  M01S00788.1mr     +++| MSR      STD    T5          SAVE ERROR CODE
00864  M01S00789.1mr     +++|          LDN    ZERL
00865  M01S00790.1mr     +++|          CRD    T0
00866  M01S00791.1mr     +++|          LDD    RA          RETURN ERROR WORD TO *MREC*
00867  M01S00792.1mr     +++|          SHN    6
00868  M01S00793.1mr     +++|          ADC    /MRT/ERRW
00869  M01S00794.1mr     +++|          CWD    T1
00870  M01S00795.1mr     +++| MSR1     LJM    DROP        DROP PP
00871  M01S00796.1mr     +++| PFB      SPACE  4
00872  M01S00797.1mr     +++|**        PFB - CLEAN UP DIRECT ACCESS FILE SYSTEM SECTORS.
00873  M01S00798.1mr     +++|*
00874  M01S00799.1mr     +++|*         ENTRY  (EQ) = EST ORDINAL TO PROCESS.
00875  M01S00800.1mr     +++|*                (NT) = NUMBER OF TRACKS ON DEVICE.
00876  M01S00801.1mr     +++|*
00877  M01S00802.1mr     +++|*         EXIT   (A) = 0 IF DEVICE CLEANUP COMPLETED.
00878  M01S00803.1mr     +++|*
00879  M01S00804.1mr     +++|*         USES   BY, CT, NT, PF, TC, T2, T5, T6, T7, CM - CM+4.
00880  M01S00805.1mr     +++|*
00881  M01S00806.1mr     +++|*         CALLS  CAM, CQF, C2D, DPS, FAT, PFA, RRS, RSS, SSE, STB,
00882  M01S00807.1mr     +++|*                STI, TQF, USC, WDS.
00883  M01S00808.1mr     +++|*
00884  M01S00809.1mr     +++|*         MACROS ENDMS, PAUSE, SETMS.
00885  M01S00810.1mr     +++|
00886  M01S00811.1mr     +++|
00887  M01S00812.1mr     +++| PFB      SUBR               ENTRY/EXIT
00888  M01S00813.1mr     +++|          LDD    EQ          SET EST ORDINAL
00889  M01S00814.1mr     +++|          STD    T5
00890  M01S00815.1mr     +++|          SHN    -6          CONVERT UPPER DIGIT OF EST ORDINAL
00891  M01S00816.1mr     +++|          ADC    2RQ0
00892  M01S00817.1mr     +++|          STM    PFBB+10
00893  M01S00818.1mr     +++|          STM    PFBC+13
00894  M01S00819.1mr     +++|          LDD    EQ          CONVERT LOWER TWO DIGITS OF EST ORDINAL
00895  M01S00820.1mr     +++|          RJM    C2D
00896  M01S00821.1mr     +++|          STM    PFBB+11
00897  M01S00822.1mr     +++|          STM    PFBC+14
Line S00823 Modification History
M01 (Added by) 1mr
M02 (Updated by) ns2579
Seq #  *Modification Id* Act 
----------------------------+
00898  M02S00823.ns2579  ---|          SETMS  IO,RW
00899  M01S00003.ns2579  +++|          SETMS  IO,(NS,RW)
00900  M01S00824.1mr     +++|          LDN    0
00901  M01S00825.1mr     +++|          STD    BY          PRESET FILES PROCESSED COUNT
00902  M01S00826.1mr     +++|          STD    EF
00903  M01S00827.1mr     +++|          LDD    CM+4        GET *IQFT* POINTER FROM MST
00904  M01S00828.1mr     +++|          STM    PFBD
00905  M01S00829.1mr     +++| PFB0     SHN    3
00906  M01S00830.1mr     +++|          ADN    ACGL
00907  M01S00831.1mr     +++|          CRD    CM
00908  M01S00832.1mr     +++|          LDD    CM+3        SET *IQFT* TRACK
00909  M01S00833.1mr     +++|          STM    PFBA
00910  M01S00834.1mr     +++|          STD    T6          INTERLOCK *IQFT*
00911  M01S00835.1mr     +++|          RJM    STI
00912  M01S00836.1mr     +++|          ZJN    PFB1        IF TRACK INTERLOCKED
00913  M01S00837.1mr     +++|          LDD    CP
00914  M01S00838.1mr     +++|          ADN    MS2W        STORE WAITING MESSAGE
00915  M01S00839.1mr     +++|          CWM    PFBC,TR
00916  M01S00840.1mr     +++|          DELAY  10*100D     DELAY 100 MS
00917  M01S00841.1mr     +++|          PAUSE  NE
00918  M01S00842.1mr     +++|          LDC    **          LOAD MST ADDRESS
00919  M01S00843.1mr     +++| PFBD     EQU    *-1
00920  M01S00844.1mr     +++|          UJN    PFB0        LOOP ON INTERLOCK
00921  M01S00845.1mr     +++|
00922  M01S00846.1mr     +++| PFB1     STD    PF
00923  M01S00847.1mr     +++|          LDC    PFB18       SET WRITE ERROR PROCESSING RETURN
00924  M01S00848.1mr     +++|          STM    WDSA
00925  M01S00849.1mr     +++|          LDD    MD          SET MACHINE INDEX*5
00926  M01S00850.1mr     +++|          STD    TC
00927  M01S00851.1mr     +++|          SHN    2
00928  M01S00852.1mr     +++|          RAD    TC
00929  M01S00853.1mr     +++|          ADC    UCSS        SET BEGINNING OF DOWNED MACHINE ENTRY
00930  M01S00854.1mr     +++|          STM    USCA
00931  M01S00855.1mr     +++|          LDC    4000-1      SET INITIAL TRACK
00932  M01S00856.1mr     +++|          STD    CT
00933  M01S00857.1mr     +++|          ADN    1           SET LAST TRACK + 1
00934  M01S00858.1mr     +++|          RAD    NT
00935  M01S00859.1mr     +++| PFB2     AOD    CT          ADVANCE TRACK NUMBER
00936  M01S00860.1mr     +++|          LMD    NT
00937  M01S00861.1mr     +++|          NJN    PFB3        IF NOT END OF TRT
00938  M01S00862.1mr     +++|          STD    CM
00939  M01S00863.1mr     +++|          LDC    WDSX        RESET ERROR RETURN
00940  M01S00864.1mr     +++|          STM    WDSA
00941  M01S00865.1mr     +++|          LDD    CP          CLEAR CONTROL POINT MESSAGE
00942  M01S00866.1mr     +++|          ADN    MS2W
00943  M01S00867.1mr     +++|          CWD    CM
00944  M01S00868.1mr     +++|          RJM    TQF         TERMINATE *IQFT*
00945  M01S00869.1mr     +++|          LDD    EF
00946  M01S00870.1mr     +++|          LJM    PFBX        RETURN
00947  M01S00871.1mr     +++|
00948  M01S00872.1mr     +++| PFB3     LDD    CT          SET NEXT TRACK
00949  M01S00873.1mr     +++|          STD    T6
00950  M01S00874.1mr     +++|          LMC    0
00951  M01S00875.1mr     +++| PFBA     EQU    *-1
00952  M01S00876.1mr     +++|          ZJN    PFB2        IF *IQFT* TRACK
00953  M01S00877.1mr     +++|          RJM    DPS         DETERMINE TRACK STATUS
00954  M01S00878.1mr     +++|          SHN    21-7
00955  M01S00879.1mr     +++|          PJN    PFB2        IF NOT FIRST TRACK OF PRESERVED FILE
00956  M01S00880.1mr     +++|
00957  M01S00881.1mr     +++|*         READ AND VERIFY SYSTEM SECTOR.
00958  M01S00882.1mr     +++|
00959  M01S00883.1mr     +++|          AOD    BY          INCREMENT SYSTEM SECTORS PROCESSED
00960  M01S00884.1mr     +++|          LMN    NFTP
00961  M01S00885.1mr     +++|          NJN    PFB4        IF NOT TIME TO PAUSE
00962  M01S00886.1mr     +++|          STD    BY          RESET COUNTER
00963  M01S00887.1mr     +++|          PAUSE  NE
00964  M01S00888.1mr     +++| PFB4     LDD    T6          SET TRACK NUMBER IN MESSAGE
00965  M01S00889.1mr     +++|          RJM    C2D
00966  M01S00890.1mr     +++|          STM    PFBB+16
00967  M01S00891.1mr     +++|          LDD    T6
00968  M01S00892.1mr     +++|          SHN    -6
00969  M01S00893.1mr     +++|          RJM    C2D
00970  M01S00894.1mr     +++|          STM    PFBB+15
00971  M01S00895.1mr     +++|          LDD    CP          ISSUE MESSAGE
00972  M01S00896.1mr     +++|          ADN    MS2W
00973  M01S00897.1mr     +++|          CWM    PFBB,TR
00974  M01S00898.1mr     +++|          SETMS  POSITION
00975  M01S00899.1mr     +++|*         LDN    0
00976  M01S00900.1mr     +++|          RJM    RSS
00977  M01S00901.1mr     +++|          ZJN    PFB7        IF VALID SYSTEM SECTOR
00978  M01S00902.1mr     +++| PFB5     ENDMS
00979  M01S00903.1mr     +++|          LDD    PF
00980  M01S00904.1mr     +++|          ZJN    PFB6        IF TRACK NOT INTERLOCKED
00981  M01S00905.1mr     +++|          LDN    CTIS
00982  M01S00906.1mr     +++|          RJM    STB         CLEAR TRACK INTERLOCK
00983  M01S00907.1mr     +++|*         LDN    0
00984  M01S00908.1mr     +++|          STD    PF
00985  M01S00909.1mr     +++| PFB6     LJM    PFB2        LOOP FOR NEXT PRESERVED FILE
00986  M01S00910.1mr     +++|
00987  M01S00911.1mr     +++| PFB7     RJM    CQF         CHECK FOR QUEUE FILE
00988  M01S00912.1mr     +++|          NJN    PFB5        IF QUEUE FILE PROCESSED
00989  M01S00913.1mr     +++|          LDD    FT          CHECK FILE TYPE
00990  M01S00914.1mr     +++|          LMN    PMFT
00991  M01S00915.1mr     +++|          ZJN    PFB10       IF DIRECT ACCESS FILE
00992  M01S00916.1mr     +++|          LMN    FAFT&PMFT
00993  M01S00917.1mr     +++|          NJN    PFB5        IF NOT FAST ATTACH FILE
00994  M01S00918.1mr     +++|          RJM    RRS
00995  M01S00919.1mr     +++|          LDD    SD
00996  M01S00920.1mr     +++|          NJN    PFB9        IF ISD
00997  M01S00921.1mr     +++|          LDM    FISS
00998  M01S00922.1mr     +++|          LPC    3777
00999  M01S00923.1mr     +++|          ZJN    PFB10       IF NOT GLOBAL ATTACH FILE
01000  M01S00924.1mr     +++|          RJM    FAT         PROCESS FAST ATTACH FILE
01001  M01S00925.1mr     +++| PFB8     NJN    PFB5        IF FILE STILL IN FAST ATTACH STATUS
01002  M01S00926.1mr     +++|          LJM    PFB14       REWRITE SECTOR
01003  M01S00927.1mr     +++|
01004  M01S00928.1mr     +++| PFB9     RJM    PFA         PROCESS FAST ATTACH FILE ON ISD
01005  M01S00929.1mr     +++|          NJN    PFB8        IF SYSTEM SECTOR UPDATE NOT REQUIRED
01006  M01S00930.1mr     +++|          UJN    PFB14       REWRITE SYSTEM SECTOR
01007  M01S00931.1mr     +++|
01008  M01S00932.1mr     +++|*         UPDATE USER COUNTS IN SYSTEM SECTOR.
01009  M01S00933.1mr     +++|
01010  M01S00934.1mr     +++| PFB10    LDM    UCSS,TC     CHECK IF ALL COUNTS ZERO
01011  M01S00935.1mr     +++|          LPN    1
01012  M01S00936.1mr     +++|          STD    T2
01013  M01S00937.1mr     +++|          ADM    UCSS+1,TC
01014  M01S00938.1mr     +++|          ADM    UCSS+2,TC
01015  M01S00939.1mr     +++|          ADM    UCSS+3,TC
01016  M01S00940.1mr     +++|          ADM    UCSS+4,TC
01017  M01S00941.1mr     +++|          NJN    PFB12       IF NECESSARY TO UPDATE SECTOR
01018  M01S00942.1mr     +++|          RJM    CAM         CHECK ACCESS MODE BITS
01019  M01S00943.1mr     +++|          NJN    PFB8        IF FILE NOT PURGED
01020  M01S00944.1mr     +++| PFB11    LJM    PFB2        LOOP FOR NEXT PRESERVED FILE
01021  M01S00945.1mr     +++|
01022  M01S00946.1mr     +++| PFB12    RJM    RRS         REREAD SYSTEM SECTOR WITH INTERLOCK
01023  M01S00947.1mr     +++|          LDN    0
01024  M01S00948.1mr     +++|          STM    FISS
01025  M01S00949.1mr     +++|          RJM    USC         UPDATE SYSTEM SECTOR COUNTS
01026  M01S00950.1mr     +++|          LDC    PMFT*100
01027  M01S00951.1mr     +++|          STM    FNSS+4
01028  M01S00952.1mr     +++| PFB14    RJM    CAM         CHECK ACCESS MODE BITS
01029  M01S00953.1mr     +++|          ZJN    PFB11       IF FILE PURGED
01030  M01S00954.1mr     +++|
01031  M01S00955.1mr     +++|*         WRITE SECTOR BACK TO DEVICE.
01032  M01S00956.1mr     +++|
01033  M01S00957.1mr     +++|          LDN    0           RESET SECTOR
01034  M01S00958.1mr     +++|          STD    T7
01035  M01S00959.1mr     +++|          LDC    BFMS        WRITE SECTOR
01036  M01S00960.1mr     +++|          RJM    WDS
01037  M01S00961.1mr     +++|          ZJN    PFB16       IF NO ERRORS
01038  M01S00962.1mr     +++|          ENDMS
01039  M01S00963.1mr     +++|          RJM    SSE
01040  M01S00964.1mr     +++| PFB16    LJM    PFB5        CLEAR TRACK INTERLOCK
01041  M01S00965.1mr     +++|
01042  M01S00966.1mr     +++| PFB18    AOD    EF          SET ERROR FLAG
01043  M01S00967.1mr     +++|          LDD    NT
01044  M01S00968.1mr     +++|          SBN    1           ENABLE IMMEDIATE RETURN
01045  M01S00969.1mr     +++|          STD    CT
01046  M01S00970.1mr     +++|          UJN    PFB16       COMPLETE OPERATIONS ON DEVICE
01047  M01S00971.1mr     +++|
01048  M01S00972.1mr     +++|
01049  M01S00973.1mr     +++| PFBB     DATA   C* RECOVERING PF.EQXXX, TRK YYYY.*
01050  M01S00974.1mr     +++| PFBC     DATA   C*$INTERLOCKING IQFT,  EQXXX.*
01051  M01S00975.1mr     +++| PTR      SPACE  4,15
01052  M01S00976.1mr     +++|**        PTR - PROCESS TRACK RESERVATION.
01053  M01S00977.1mr     +++|*
01054  M01S00978.1mr     +++|*         ENTRY  (T5) = EST ORDINAL.
01055  M01S00979.1mr     +++|*                (T6) = CURRENT TRACK.
01056  M01S00980.1mr     +++|*                (SD) = INDEPENDENT SHARED DEVICE STATUS.
01057  M01S00981.1mr     +++|*
01058  M01S00982.1mr     +++|*         EXIT   (A) .GE. 0 IF INCORRECT LOCAL FILE.
01059  M01S00983.1mr     +++|*
01060  M01S00984.1mr     +++|*         USES   CM - CM+4.
01061  M01S00985.1mr     +++|*
01062  M01S00986.1mr     +++|*         CALLS  DPS, RSS, STB.
01063  M01S00987.1mr     +++|*
01064  M01S00988.1mr     +++|*         MACROS ENDMS, MONITOR.
01065  M01S00989.1mr     +++|
01066  M01S00990.1mr     +++|
01067  M01S00991.1mr     +++| PTR1     LDN    CTIS        CLEAR INTERLOCK
01068  M01S00992.1mr     +++|          RJM    STB
01069  M01S00993.1mr     +++| PTR3     LCN    0           SET EXIT CONDITION
01070  M01S00994.1mr     +++|
01071  M01S00995.1mr     +++| PTR      SUBR               ENTRY/EXIT
01072  M01S00996.1mr     +++|          RJM    DPS         DETERMINE TRACK STATUS
01073  M01S00997.1mr     +++|          SHN    21-3
01074  M01S00998.1mr     +++|          MJN    PTR1        IF TRACK INTERLOCKED
01075  M01S00999.1mr     +++|          SHN    3-21+22
01076  M01S01000.1mr     +++|          PJN    PTRX        IF TRACK NOT RESERVED
01077  M01S01001.1mr     +++|          SHN    21-7
01078  M01S01002.1mr     +++|          MJN    PTRX        IF FILE PRESERVED
01079  M01S01003.1mr     +++|          LDN    0           READ SYSTEM SECTOR
01080  M01S01004.1mr     +++|          RJM    RSS
01081  M01S01005.1mr     +++|          LPC    7777
01082  M01S01006.1mr     +++|          NJN    PTRX        IF SYSTEM SECTOR ERROR
01083  M01S01007.1mr     +++|          ENDMS
01084  M01S01008.1mr     +++|          LDD    T6          RELEASE LOCAL FILE DISK SPACE
01085  M01S01009.1mr     +++|          STD    CM+2
01086  M01S01010.1mr     +++|          LDD    T5
01087  M01S01011.1mr     +++|          LMC    2000        SET TRACK DROP FOR ANOTHER MACHINE
01088  M01S01012.1mr     +++|          STD    CM+1
01089  M01S01013.1mr     +++|          MONITOR  DTKM
01090  M01S01014.1mr     +++|          UJN    PTR3        RETURN
01091  M01S01015.1mr     +++| RRS      SPACE  4,15
01092  M01S01016.1mr     +++|**        RRS - REREAD SYSTEM SECTOR IF TRACK INTERLOCK NOT SET.
01093  M01S01017.1mr     +++|*
01094  M01S01018.1mr     +++|*         ENTRY  (PF) = TRACK INTERLOCK STATUS.
01095  M01S01019.1mr     +++|*
01096  M01S01020.1mr     +++|*         EXIT   TO CALLER IF TRACK INTERLOCKED ON ENTRY.
01097  M01S01021.1mr     +++|*
01098  M01S01022.1mr     +++|*         EXIT   (A) = (T6) IF TRACK NO LONGER RESERVED.
01099  M01S01023.1mr     +++|*                    = RESPONSE FROM *RSS*.
01100  M01S01024.1mr     +++|*                TO PREVIOUS *RSS* CALLER IF TRACK NOT ALREADY
01101  M01S01025.1mr     +++|*                INTERLOCKED.
01102  M01S01026.1mr     +++|*
01103  M01S01027.1mr     +++|*         CALLS  RSS, STI.
01104  M01S01028.1mr     +++|*
01105  M01S01029.1mr     +++|*         MACROS ENDMS.
01106  M01S01030.1mr     +++|
01107  M01S01031.1mr     +++|
01108  M01S01032.1mr     +++| RRS      SUBR               ENTRY/EXIT
01109  M01S01033.1mr     +++|          LDD    PF
01110  M01S01034.1mr     +++|          NJN    RRSX        IF FIRST TRACK INTERLOCKED
01111  M01S01035.1mr     +++|          ENDMS
01112  M01S01036.1mr     +++|          LDM    RSS         CHANGE RETURN TO LAST *RSS* CALLER
01113  M01S01037.1mr     +++|          STM    RRS
01114  M01S01038.1mr     +++|          RJM    STI         SET TRACK INTERLOCK
01115  M01S01039.1mr     +++|          NJN    RRSX        IF TRACK NO LONGER RESERVED
01116  M01S01040.1mr     +++|*         LDN    0           REREAD SYSTEM SECTOR
01117  M01S01041.1mr     +++|          RJM    RSS
01118  M01S01042.1mr     +++|          UJN    RRSX        RETURN
01119  M01S01043.1mr     +++| RSC      SPACE  4,10
01120  M01S01044.1mr     +++|**        RSC - READ SECTOR AND CHECK FOR ERRORS.
01121  M01S01045.1mr     +++|*
01122  M01S01046.1mr     +++|*         ENTRY  (A) = BUFFER ADDRESS.
01123  M01S01047.1mr     +++|*                (T5 - T7) = DRIVER PARAMETERS.
01124  M01S01048.1mr     +++|*
01125  M01S01049.1mr     +++|*         ERROR  TO *MSR* IF READ ERROR.
01126  M01S01050.1mr     +++|*
01127  M01S01051.1mr     +++|*         CALLS  RDS.
01128  M01S01052.1mr     +++|*
01129  M01S01053.1mr     +++|*         MACROS ENDMS.
01130  M01S01054.1mr     +++|
01131  M01S01055.1mr     +++|
01132  M01S01056.1mr     +++| RSC      SUBR               ENTRY/EXIT
01133  M01S01057.1mr     +++|          RJM    RDS         READ SECTOR
01134  M01S01058.1mr     +++|          PJN    RSCX        IF NO ERROR
01135  M01S01059.1mr     +++| RSC1     ENDMS
01136  M01S01060.1mr     +++|          LDN    /MRT/RER    SET READ ERROR
01137  M01S01061.1mr     +++|          LJM    MSR         PROCESS ERROR
01138  M01S01062.1mr     +++| SCI      SPACE  4,15
01139  M01S01063.1mr     +++|**        SCI - INCREMENT/DECREMENT *MREC* ACTIVITY COUNT.
01140  M01S01064.1mr     +++|*
01141  M01S01065.1mr     +++|*         *CMS* WILL WAIT ON THE ACTIVITY COUNT IN *INWL* BEFORE AN
01142  M01S01066.1mr     +++|*         UNLOAD WILL BE PROCESSED.
01143  M01S01067.1mr     +++|*
01144  M01S01068.1mr     +++|*         EXIT   (A) = 0.
01145  M01S01069.1mr     +++|*
01146  M01S01070.1mr     +++|*         USES   CM - CM+4.
01147  M01S01071.1mr     +++|*
01148  M01S01072.1mr     +++|*         MACROS MONITOR.
01149  M01S01073.1mr     +++|
01150  M01S01074.1mr     +++|
01151  M01S01075.1mr     +++| SCI      SUBR               ENTRY/EXIT
Line S01076 Modification History
M01 (Added by) 1mr
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
01152  M02S01076.283l840 ---|          LDD    MA          INCREMENT/DECREMENT *MREC* COUNT
Line S01077 Modification History
M01 (Added by) 1mr
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
01153  M02S01077.283l840 ---|          CWM    SCIA,TW
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  M01S01078.1mr     +++|          SBN    1
01158  M01S01079.1mr     +++|          CRD    CM
01159  M01S01080.1mr     +++|          MONITOR  UADM
01160  M01S01081.1mr     +++|          LDD    CM+1
01161  M01S01082.1mr     +++|          ZJN    SCIX        IF NO OVERFLOW/UNDERFLOW
01162  M01S01083.1mr     +++| SCI1     MONITOR  HNGM
01163  M01S01084.1mr     +++|          UJN    SCI1        HANG
01164  M01S01085.1mr     +++|
01165  M01S01086.1mr     +++|
Line S01087 Modification History
M01 (Added by) 1mr
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
01166  M02S01087.283l840 ---| SCIA     VFD    12/LIOS,12/INWL,6/18D,6/6,24/0
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  M01S01088.1mr     +++|          VFD    12/0,12/1,12/1,24/0
01170  M01S01089.1mr     +++| SDP      SPACE  4,15
01171  M01S01090.1mr     +++|**        SDP - SET DEVICE PARAMETERS.
01172  M01S01091.1mr     +++|*
01173  M01S01092.1mr     +++|*         ENTRY  (EQ) = EQUIPMENT.
01174  M01S01093.1mr     +++|*
01175  M01S01094.1mr     +++|*         EXIT   (A) = PF CATALOG SIZE.
01176  M01S01095.1mr     +++|*                    = 0, 8 WORD CATALOGS.
01177  M01S01096.1mr     +++|*                    = 1000, 16 WORD CATALOGS.
01178  M01S01097.1mr     +++|*                (DF) = DAF COUNT.
01179  M01S01098.1mr     +++|*                (NT) = NUMBER OF TRACKS ON DEVICE.
01180  M01S01099.1mr     +++|*                (DPSA - DPSA+1) = TRT ADDRESS.
01181  M01S01100.1mr     +++|*
01182  M01S01101.1mr     +++|*         USES   T0 - T6, CN - CN+4.
01183  M01S01102.1mr     +++|*
01184  M01S01103.1mr     +++|*         MACROS SFA.
01185  M01S01104.1mr     +++|*
01186  M01S01105.1mr     +++|*         CALLS  CAT.
01187  M01S01106.1mr     +++|
01188  M01S01107.1mr     +++|
01189  M01S01108.1mr     +++| SDP      SUBR               ENTRY/EXIT
01190  M01S01109.1mr     +++|          SFA    EST,EQ      SET DEVICE PARAMETERS
01191  M01S01110.1mr     +++|          ADK    EQDE
01192  M01S01111.1mr     +++|          CRD    CN
01193  M01S01112.1mr     +++|          LDD    CN+4
01194  M01S01113.1mr     +++|          SHN    3
01195  M01S01114.1mr     +++|          ADN    MDGL
01196  M01S01115.1mr     +++|          CRD    T0
01197  M01S01116.1mr     +++|          SBN    MDGL-TDGL
01198  M01S01117.1mr     +++|          CRD    T1
01199  M01S01118.1mr     +++|          ADN    ACGL-TDGL
01200  M01S01119.1mr     +++|          CRD    CN          SET DAF COUNT
01201  M01S01120.1mr     +++|          ADN    TRLL-ACGL
01202  M01S01121.1mr     +++|          RJM    CAT         CALCULATE FWA OF TRT
01203  M01S01122.1mr     +++|          SBD    TH
01204  M01S01123.1mr     +++|          STM    DPSA+1
01205  M01S01124.1mr     +++|          SHN    -14
01206  M01S01125.1mr     +++|          LMC    ADCI
01207  M01S01126.1mr     +++|          STM    DPSA
01208  M01S01127.1mr     +++|          LDD    T1+2
01209  M01S01128.1mr     +++|          SHN    2
01210  M01S01129.1mr     +++|          STD    NT          NUMBER OF TRACKS
Line S01130 Modification History
M01 (Added by) 1mr
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
01211  M02S01130.283l840 ---|          LDD    CN+2
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  M01S01131.1mr     +++|          STD    DF          DAF COUNT
01217  M01S01132.1mr     +++|          LDD    T0          GET PFC SIZE
01218  M01S01133.1mr     +++|          LPC    1000
01219  M01S01134.1mr     +++|          LJM    SDPX        RETURN
01220  M01S01135.1mr     +++| STB      SPACE  4,15
01221  M01S01136.1mr     +++|**        STB - SET TRACK BIT.
01222  M01S01137.1mr     +++|*
01223  M01S01138.1mr     +++|*         ENTRY  (A) = *STBM* SUBFUNCTION CODE.
01224  M01S01139.1mr     +++|*                (T5) = EST ORDINAL.
01225  M01S01140.1mr     +++|*                (T6) = TRACK NUMBER.
01226  M01S01141.1mr     +++|*
01227  M01S01142.1mr     +++|*         EXIT   (A) = MONITOR RESPONSE.
01228  M01S01143.1mr     +++|*
01229  M01S01144.1mr     +++|*         USES   CM - CM+4.
01230  M01S01145.1mr     +++|*
01231  M01S01146.1mr     +++|*         MACROS MONITOR.
01232  M01S01147.1mr     +++|
01233  M01S01148.1mr     +++|
01234  M01S01149.1mr     +++| STB      SUBR               ENTRY/EXIT
01235  M01S01150.1mr     +++|          STD    CM+3        SET SUBFUNCTION CODE
01236  M01S01151.1mr     +++|          LDD    T6          SET TRACK
01237  M01S01152.1mr     +++|          STD    CM+2
01238  M01S01153.1mr     +++|          LDD    T5          SET EST ORDINAL
01239  M01S01154.1mr     +++|          LMC    1S10
01240  M01S01155.1mr     +++|          STD    CM+1
01241  M01S01156.1mr     +++|          MONITOR  STBM      ISSUE REQUEST
01242  M01S01157.1mr     +++|          LDD    CM+1
01243  M01S01158.1mr     +++|          UJN    STBX        RETURN
01244  M01S01159.1mr     +++| STI      SPACE  4,15
01245  M01S01160.1mr     +++|**        STI - SET TRACK INTERLOCK.
01246  M01S01161.1mr     +++|*
01247  M01S01162.1mr     +++|*         ENTRY  (T5) = EST ORDINAL.
01248  M01S01163.1mr     +++|*                (T6) = TRACK.
01249  M01S01164.1mr     +++|*
01250  M01S01165.1mr     +++|*         EXIT   (A) = 0 IF TRACK INTERLOCKED.
01251  M01S01166.1mr     +++|*                    = (T6) IF TRACK NOT RESERVED.
01252  M01S01167.1mr     +++|*                (PF) = (T6) IF TRACK INTERLOCKED.
01253  M01S01168.1mr     +++|*
01254  M01S01169.1mr     +++|*         ERROR  TO *ERR* IF *ORET* ERROR FLAG DETECTED.
01255  M01S01170.1mr     +++|*
01256  M01S01171.1mr     +++|*         CALLS  STB.
01257  M01S01172.1mr     +++|*
01258  M01S01173.1mr     +++|*         MACROS DELAY, PAUSE.
01259  M01S01174.1mr     +++|
01260  M01S01175.1mr     +++|
01261  M01S01176.1mr     +++| STI2     LDD    T6          FLAG TRACK INTERLOCKED
01262  M01S01177.1mr     +++|          STD    PF
01263  M01S01178.1mr     +++| STI3     LMD    T6          RETURN INTERLOCK STATUS
01264  M01S01179.1mr     +++|
01265  M01S01180.1mr     +++| STI      SUBR               ENTRY/EXIT
01266  M01S01181.1mr     +++| STI1     LDN    STIS        ATTEMPT TRACK INTERLOCK
01267  M01S01182.1mr     +++|          RJM    STB
01268  M01S01183.1mr     +++|          ZJN    STI2        IF INTERLOCK SET
01269  M01S01184.1mr     +++|          LMN    2
01270  M01S01185.1mr     +++|          ZJN    STI3        IF TRACK NOT RESERVED
01271  M01S01186.1mr     +++|          DELAY  250D*10
01272  M01S01187.1mr     +++|          PAUSE
01273  M01S01188.1mr     +++|          LDD    CM+1        CHECK ERROR FLAG
01274  M01S01189.1mr     +++|          LMN    ORET
01275  M01S01190.1mr     +++|          NJN    STI1        IF NOT OPERATOR OVERRIDE
01276  M01S01191.1mr     +++|          LJM    ERR         PROCESS ERROR FLAG TERMINATION
01277  M01S01192.1mr     +++| TQF      SPACE  4,15
01278  M01S01193.1mr     +++|**        TQF - TERMINATE *IQFT*.
01279  M01S01194.1mr     +++|*
01280  M01S01195.1mr     +++|*         ENTRY  (T5) = EST ORDINAL.
01281  M01S01196.1mr     +++|*                (QF) = FIRST TRACK OF *IQFT*.
01282  M01S01197.1mr     +++|*                (QT) = CURRENT *IQFT* TRACK.
01283  M01S01198.1mr     +++|*                (QS) = CURRENT *IQFT* SECTOR.
01284  M01S01199.1mr     +++|*
01285  M01S01200.1mr     +++|*         EXIT   (QF) = 0.
01286  M01S01201.1mr     +++|*
01287  M01S01202.1mr     +++|*         USES   T1, T6, T7.
01288  M01S01203.1mr     +++|*
01289  M01S01204.1mr     +++|*         CALLS  STB, WEI, WQF.
01290  M01S01205.1mr     +++|*
01291  M01S01206.1mr     +++|*         MACROS ENDMS, MONITOR, SETMS.
01292  M01S01207.1mr     +++|
01293  M01S01208.1mr     +++|
01294  M01S01209.1mr     +++| TQF2     LDM    PFBA
01295  M01S01210.1mr     +++|          ZJN    TQFX        IF *IQFT* NOT INTERLOCKED
01296  M01S01211.1mr     +++|          STD    T6
01297  M01S01212.1mr     +++|          LDN    CTIS        CLEAR TRACK INTERLOCK
01298  M01S01213.1mr     +++|          RJM    STB
01299  M01S01214.1mr     +++|*         LDN    0           CLEAR *IQFT* PROCESSING INITIATED
01300  M01S01215.1mr     +++|          STD    QF
01301  M01S01216.1mr     +++|          STM    PFBA        CLEAR TRACK INTERLOCKED FLAG
01302  M01S01217.1mr     +++|
01303  M01S01218.1mr     +++| TQF      SUBR               ENTRY/EXIT
01304  M01S01219.1mr     +++|          LDD    QF
01305  M01S01220.1mr     +++|          ZJN    TQF2        IF NO QUEUE FILE PROCESSING
01306  M01S01221.1mr     +++|          LDC    500
01307  M01S01222.1mr     +++|          STD    T1
01308  M01S01223.1mr     +++| TQF1     LDN    0           CLEAR EOI SECTOR BUFFER
01309  M01S01224.1mr     +++|          STM    BFMS+1,T1
01310  M01S01225.1mr     +++|          SOD    T1
01311  M01S01226.1mr     +++|          NJN    TQF1        LOOP TO START OF BUFFER
01312  M01S01227.1mr     +++|          RJM    WQF         WRITE LAST *IQFT* SECTOR
01313  M01S01228.1mr     +++|          LDD    MA          MOVE FILE NAME TO BUFFER
01314  M01S01229.1mr     +++|          CWM    IQFA,ON
01315  M01S01230.1mr     +++|          SBN    1
01316  M01S01231.1mr     +++|          CRM    BFMS+FNEI,ON
01317  M01S01232.1mr     +++|          LDD    T5          SETUP EOI SECTOR BUFFER
01318  M01S01233.1mr     +++|          STM    BFMS+FSEI
01319  M01S01234.1mr     +++|          LDD    QF
01320  M01S01235.1mr     +++|          STM    BFMS+FTEI
01321  M01S01236.1mr     +++|          LDD    QT          SET CURRENT *IQFT* TRACK AND SECTOR
01322  M01S01237.1mr     +++|          STD    T6
01323  M01S01238.1mr     +++|          LDD    QS
01324  M01S01239.1mr     +++|          STD    T7
01325  M01S01240.1mr     +++|          SETMS  POSITION
01326  M01S01241.1mr     +++|          RJM    WEI         WRITE EOI SECTOR
01327  M01S01242.1mr     +++|          ENDMS
01328  M01S01243.1mr     +++|          LDD    T5          SET EOI IN TRT
01329  M01S01244.1mr     +++|          LMC    1S11
01330  M01S01245.1mr     +++|          STD    CM+1
01331  M01S01246.1mr     +++|          LDD    QT
01332  M01S01247.1mr     +++|          LPC    3777
01333  M01S01248.1mr     +++|          STD    CM+2
01334  M01S01249.1mr     +++|          LDD    QS
01335  M01S01250.1mr     +++|          STD    CM+3
01336  M01S01251.1mr     +++|          MONITOR  DTKM
01337  M01S01252.1mr     +++|          LJM    TQF2        CLEAR TRACK INTERLOCK
01338  M01S01253.1mr     +++| USC      SPACE  4,10
01339  M01S01254.1mr     +++|*         USC - UPDATE SYSTEM SECTOR COUNTS.
01340  M01S01255.1mr     +++|*
01341  M01S01256.1mr     +++|*         ENTRY  (T2) = WRITE MODE FLAG FROM UCSS OF DOWN MACHINE.
01342  M01S01257.1mr     +++|*                (TC) = MACHINE INDEX*5.
01343  M01S01258.1mr     +++|*                (MI) = MACHINE INDEX.
01344  M01S01259.1mr     +++|*                (UCSA) = ADDRESS IN BUFFER OF DOWN MACHINE PF COUNTS.
01345  M01S01260.1mr     +++|*                (BFMS) = SYSTEM SECTOR.
01346  M01S01261.1mr     +++|*
01347  M01S01262.1mr     +++|*         EXIT   COUNTS UPDATED AND ENTRY CLEARED FOR DOWN MACHINE.
01348  M01S01263.1mr     +++|
01349  M01S01264.1mr     +++|
01350  M01S01265.1mr     +++| USC      SUBR               ENTRY/EXIT
01351  M01S01266.1mr     +++|          LDN    0           SUBTRACT DOWN MACHINE COUNTS FROM TOTAL
01352  M01S01267.1mr     +++|          SBM    UCSS+1,TC
01353  M01S01268.1mr     +++|          RAM    UCSS+1
01354  M01S01269.1mr     +++|          LDN    0
01355  M01S01270.1mr     +++|          SBM    UCSS+2,TC
01356  M01S01271.1mr     +++|          RAM    UCSS+2
01357  M01S01272.1mr     +++|          LDN    0
01358  M01S01273.1mr     +++|          SBM    UCSS+3,TC
01359  M01S01274.1mr     +++|          RAM    UCSS+3
01360  M01S01275.1mr     +++|          LDN    0
01361  M01S01276.1mr     +++|          SBM    UCSS+4,TC
01362  M01S01277.1mr     +++|          RAM    UCSS+4
01363  M01S01278.1mr     +++|          LDM    UCSS,TC
01364  M01S01279.1mr     +++|          LPN    2
01365  M01S01280.1mr     +++|          ZJN    USC1        IF LOCAL UTILITY ATTACH FLAG NOT SET
01366  M01S01281.1mr     +++|          LDM    CASS        CLEAR GLOBAL UTILITY ATTACH FLAG
01367  M01S01282.1mr     +++|          LPC    7677
01368  M01S01283.1mr     +++|          STM    CASS
01369  M01S01284.1mr     +++| USC1     LDN    ZERL        CLEAR ENTRY FOR DOWNED MACHINE
01370  M01S01285.1mr     +++|          CRM    *,ON
01371  M01S01286.1mr     +++| USCA     EQU    *-1
01372  M01S01287.1mr     +++|          LDD    T2
01373  M01S01288.1mr     +++|          ZJN    USC2        IF WRITE MODE NOT SET
01374  M01S01289.1mr     +++|          LDM    CASS        CLEAR WRITE MODE BITS IN ACCESS WORD
01375  M01S01290.1mr     +++|          LPC    7541
01376  M01S01291.1mr     +++|          STM    CASS
01377  M01S01292.1mr     +++| USC2     LJM    USCX        RETURN
01378  M01S01293.1mr     +++| WQF      SPACE  4,15
01379  M01S01294.1mr     +++|**        WQF - WRITE *IQFT* SECTOR.
01380  M01S01295.1mr     +++|*
01381  M01S01296.1mr     +++|*         ENTRY  (T5) = EST ORDINAL.
01382  M01S01297.1mr     +++|*                (QT) = CURRENT *IQFT* TRACK.
01383  M01S01298.1mr     +++|*                (QS) = CURRENT *IQFT* SECTOR.
01384  M01S01299.1mr     +++|*
01385  M01S01300.1mr     +++|*         EXIT   (A) = 0 IF SECTOR WRITTEN.
01386  M01S01301.1mr     +++|*
01387  M01S01302.1mr     +++|*         USES   T6, T7, CM - CM+4.
01388  M01S01303.1mr     +++|*
01389  M01S01304.1mr     +++|*         CALLS  WDS.
01390  M01S01305.1mr     +++|*
01391  M01S01306.1mr     +++|*         MACROS ENDMS, MONITOR.
01392  M01S01307.1mr     +++|
01393  M01S01308.1mr     +++|
01394  M01S01309.1mr     +++| WQF      SUBR               ENTRY/EXIT
01395  M01S01310.1mr     +++|          LDD    QT          SET CURRENT *IQFT* TRACK
01396  M01S01311.1mr     +++|          STD    T6
01397  M01S01312.1mr     +++|          LDC    QBUF+2      RESET BUFFER POINTER
01398  M01S01313.1mr     +++|          STM    CQFC
01399  M01S01314.1mr     +++|          LDD    QS          SET *IQFT* SECTOR
01400  M01S01315.1mr     +++|          STD    T7
01401  M01S01316.1mr     +++|          ADN    1           SET SECTOR LINKAGE
01402  M01S01317.1mr     +++|          STM    QBUF
01403  M01S01318.1mr     +++|          STD    QS          SET NEXT *IQFT* SECTOR
01404  M01S01319.1mr     +++|          LMM    SLM
01405  M01S01320.1mr     +++|          NJN    WQF1        IF NOT SECTOR LIMIT
01406  M01S01321.1mr     +++|          ENDMS
01407  M01S01322.1mr     +++|*         LDN    0
01408  M01S01323.1mr     +++|          STD    CM+3
01409  M01S01324.1mr     +++|          STD    CM+4
01410  M01S01325.1mr     +++|          STD    QS
01411  M01S01326.1mr     +++|          LDD    T5          REQUEST NEXT *IQFT* TRACK
01412  M01S01327.1mr     +++|          STD    CM+1
01413  M01S01328.1mr     +++|          LDD    T6
01414  M01S01329.1mr     +++|          STD    CM+2
01415  M01S01330.1mr     +++|          MONITOR  RTCM
01416  M01S01331.1mr     +++|          LDD    CM+4        SET NEXT TRACK IN SECTOR LINKAGE
01417  M01S01332.1mr     +++|          STM    QBUF
01418  M01S01333.1mr     +++|          ZJN    WQF3        IF NO TRACK AVAILABLE
01419  M01S01334.1mr     +++|          STD    QT
01420  M01S01335.1mr     +++| WQF1     SETMS  POSITION
01421  M01S01336.1mr     +++|          LDC    QBUF+WLSF   WRITE *IQFT* SECTOR
01422  M01S01337.1mr     +++|          RJM    WDS
01423  M01S01338.1mr     +++|          ENDMS
01424  M01S01339.1mr     +++|*         LDN    0
01425  M01S01340.1mr     +++|          STM    QBUF+1
01426  M01S01341.1mr     +++| WQF2     LJM    WQFX        RETURN
01427  M01S01342.1mr     +++|
01428  M01S01343.1mr     +++| WQF3     LDD    T7          SAVE LAST SECTOR FOR EOI
01429  M01S01344.1mr     +++|          STD    QS
01430  M01S01345.1mr     +++|          UJN    WQF2        RETURN
01431  M01S01346.1mr     +++|          TITLE  EXTENDED MEMORY MMF SUBROUTINES.
01432  M01S01347.1mr     +++|          SPACE  4,10
01433  M01S01348.1mr     +++|***       EXTENDED MEMORY MMF SUBROUTINES.
01434  M01S01349.1mr     +++|*
01435  M01S01350.1mr     +++|*         THE FOLLOWING CODE IS USED ONLY FOR ECS MMF ENVIRONMENTS.
01436  M01S01351.1mr     +++|*         IT IS OVERLAID BY ISD MMF CODE IF RUNNING IN AN ISD SYSTEM.
01437  M01S01352.1mr     +++|
01438  M01S01353.1mr     +++|
01439  M01S01354.1mr     +++|          USE    OVERLAY
01440  M01S01355.1mr     +++| OVLA     EQU    *+5         *2MR* LOAD ADDRESS
01441  M01S01356.1mr     +++| CFR      SPACE  4,10
01442  M01S01357.1mr     +++|**        CFR - CLEAR FLAG REGISTER BIT.
01443  M01S01358.1mr     +++|*
01444  M01S01359.1mr     +++|*         ENTRY  (A) = BIT NUMBER TO CLEAR.
01445  M01S01360.1mr     +++|*
01446  M01S01361.1mr     +++|*         USES   CM - CM+4.
01447  M01S01362.1mr     +++|*
01448  M01S01363.1mr     +++|*         CALLS  TFR.
01449  M01S01364.1mr     +++|*
01450  M01S01365.1mr     +++|*         MACROS MONITOR.
01451  M01S01366.1mr     +++|
01452  M01S01367.1mr     +++|
01453  M01S01368.1mr     +++| CFR      SUBR               ENTRY/EXIT
01454  M01S01369.1mr     +++|          RJM    TFR         TOGGLE FLAG REGISTER BIT
01455  M01S01370.1mr     +++|          LDD    T1          BIT NUMBER
01456  M01S01371.1mr     +++|          SHN    6
01457  M01S01372.1mr     +++|          STD    CM+1
01458  M01S01373.1mr     +++|          LDN    CFRS        SET TO CLEAR FLAG REGISTER BIT
01459  M01S01374.1mr     +++|          SHN    11
01460  M01S01375.1mr     +++|          STD    CM+3
01461  M01S01376.1mr     +++|          MONITOR ECSM
01462  M01S01377.1mr     +++|          UJN    CFRX        RETURN
01463  M01S01378.1mr     +++| DAT      SPACE  4,10
01464  M01S01379.1mr     +++|**        DAT - READ(WRITE) DAT ENTRY (2 WORDS).
01465  M01S01380.1mr     +++|*
01466  M01S01381.1mr     +++|*         ENTRY  (A) = EST ORDINAL OF EQUIPMENT.
01467  M01S01382.1mr     +++|*                (T3) = RECS*1000 IF READ, WECS*1000 IF WRITE.
01468  M01S01383.1mr     +++|*                DAT IN CM BUFFER (MA - MA+1) IF WRITE.
01469  M01S01384.1mr     +++|*
01470  M01S01385.1mr     +++|*         EXIT   (BUFD) = 2 WORD DAT ENTRY. (READ ONLY)
01471  M01S01386.1mr     +++|*
01472  M01S01387.1mr     +++|*         CALLS  ECS.
01473  M01S01388.1mr     +++|*
01474  M01S01389.1mr     +++|*         USES   CM - CM+4, T1.
01475  M01S01390.1mr     +++|*
01476  M01S01391.1mr     +++|*         MACROS SFA.
01477  M01S01392.1mr     +++|
01478  M01S01393.1mr     +++|
01479  M01S01394.1mr     +++| DAT      SUBR               ENTRY/EXIT
01480  M01S01395.1mr     +++|          SFA    EST         READ EST ENTRY
01481  M01S01396.1mr     +++|          ADK    EQDE
01482  M01S01397.1mr     +++|          CRD    CM
01483  M01S01398.1mr     +++|          LDD    CM+4        READ MST FOR DAT INDEX
01484  M01S01399.1mr     +++|          SHN    3
01485  M01S01400.1mr     +++|          ADN    MDGL
01486  M01S01401.1mr     +++|          CRD    CM
01487  M01S01402.1mr     +++|          LDD    CM          SET DAT INDEX
01488  M01S01403.1mr     +++|          LPC    377
01489  M01S01404.1mr     +++|          SHN    1
01490  M01S01405.1mr     +++|          ADD    DA+1
01491  M01S01406.1mr     +++|          STD    CM+4
01492  M01S01407.1mr     +++|          SHN    -14
01493  M01S01408.1mr     +++|          ADD    T3          SET TO READ/WRITE EXTENDED MEMORY
01494  M01S01409.1mr     +++|          ADD    DA
01495  M01S01410.1mr     +++|          STD    CM+3
01496  M01S01411.1mr     +++|          LDN    2-1         READ TWO WORDS
01497  M01S01412.1mr     +++|          RJM    ECS         READ(WRITE) EXTENDED MEMORY
01498  M01S01413.1mr     +++|          LDD    T3
01499  M01S01414.1mr     +++|          LMD    WE
01500  M01S01415.1mr     +++|          ZJN    DATX        IF WRITE
01501  M01S01416.1mr     +++|          LDD    MA
01502  M01S01417.1mr     +++|          CRM    BUFD,TW
01503  M01S01418.1mr     +++|          UJN    DATX        RETURN
01504  M01S01419.1mr     +++| ECS      SPACE  4,10
01505  M01S01420.1mr     +++|**        ECS - READ/WRITE EXTENDED MEMORY.
01506  M01S01421.1mr     +++|*
01507  M01S01422.1mr     +++|*         ENTRY  (A) = WORD COUNT - 1.
01508  M01S01423.1mr     +++|*                (CM+3 - CM+4) = PARAMETERS FOR *ECSM* FUNCTION.
01509  M01S01424.1mr     +++|*
01510  M01S01425.1mr     +++|*         EXIT   (A) = 0.
01511  M01S01426.1mr     +++|*
01512  M01S01427.1mr     +++|*         ERROR  TO *MSR* IF TRANSFER ERROR.
01513  M01S01428.1mr     +++|
01514  M01S01429.1mr     +++|
01515  M01S01430.1mr     +++| ECS      SUBR               ENTRY/EXIT
01516  M01S01431.1mr     +++|          SHN    6
01517  M01S01432.1mr     +++|          STD    CM+1        SET WORD COUNT
01518  M01S01433.1mr     +++|          LDD    MA
01519  M01S01434.1mr     +++|          STD    CM+2        SET BUFFER ADDRESS
01520  M01S01435.1mr     +++|          MONITOR ECSM
01521  M01S01436.1mr     +++|          LDD    CM+1
01522  M01S01437.1mr     +++|          ZJN    ECSX        IF NO ERRORS
01523  M01S01438.1mr     +++|          LDN    /MRT/RER    SET READ ERROR
01524  M01S01439.1mr     +++|          LJM    MSR         PROCESS ERROR
01525  M01S01440.1mr     +++| FAT      SPACE  4,10
01526  M01S01441.1mr     +++|**        FAT - PROCESS FAST ATTACH PERMANENT FILES.
01527  M01S01442.1mr     +++|*
01528  M01S01443.1mr     +++|*         ENTRY  (A) = INDEX OF FAT ENTRY IN EXTENDED MEMORY.
01529  M01S01444.1mr     +++|*                SYSTEM SECTOR IN BFMS.
01530  M01S01445.1mr     +++|*
01531  M01S01446.1mr     +++|*         EXIT   (A) = 0 IF REMOVE FILE FROM FAST ATTACH STATUS.
01532  M01S01447.1mr     +++|*
01533  M01S01448.1mr     +++|*         USES   T2, T3, T7, CM - CM+4.
01534  M01S01449.1mr     +++|*
01535  M01S01450.1mr     +++|*         CALLS  CFR, ECS, SFR, WFW.
01536  M01S01451.1mr     +++|*
01537  M01S01452.1mr     +++|*         MACROS ENDMS.
01538  M01S01453.1mr     +++|
01539  M01S01454.1mr     +++|
01540  M01S01455.1mr     +++| FAT      SUBR               ENTRY/EXIT
01541  M01S01456.1mr     +++|          STD    T3
01542  M01S01457.1mr     +++|          LDK    MMFL
01543  M01S01458.1mr     +++|          CRD    CM
01544  M01S01459.1mr     +++|          LDD    CM+1
01545  M01S01460.1mr     +++|          SHN    21-12
01546  M01S01461.1mr     +++|          PJN    FAT1        IF NOT LSPMMF
01547  M01S01462.1mr     +++|          SHN    12-21
01548  M01S01463.1mr     +++|          LPC    777
01549  M01S01464.1mr     +++|          LMD    T5
01550  M01S01465.1mr     +++|          NJN    FAT1        IF FILE DOES NOT RESIDE ON LINK DEVICE
01551  M01S01466.1mr     +++|          ENDMS
01552  M01S01467.1mr     +++| FAT1     LDN    /MMF/FATI   OBTAIN *FATI* INTERLOCK
01553  M01S01468.1mr     +++|          RJM    SFR
01554  M01S01469.1mr     +++|          LDN    0           SET FAT WORD TO READ
01555  M01S01470.1mr     +++|          STD    T2
01556  M01S01471.1mr     +++| FAT2     LDD    T3          SET FAST ATTACH TRACK ADDRESS
01557  M01S01472.1mr     +++|          SHN    /MMF/FATS
01558  M01S01473.1mr     +++|          ADD    T2
01559  M01S01474.1mr     +++|          ADD    DA+1
01560  M01S01475.1mr     +++|          ADC    /MMF/FAST*100
01561  M01S01476.1mr     +++|          STD    CM+4
01562  M01S01477.1mr     +++|          SHN    -14
01563  M01S01478.1mr     +++|          ADD    DA
01564  M01S01479.1mr     +++|          ADD    RE          READ EXTENDED MEMORY
01565  M01S01480.1mr     +++|          STD    CM+3
01566  M01S01481.1mr     +++|          LDN    1-1         SET WORD COUNT
01567  M01S01482.1mr     +++|          RJM    ECS         READ FAT WORD
01568  M01S01483.1mr     +++|          LDD    T2          READ FAT ENTRY INTO BUFFER
01569  M01S01484.1mr     +++|          SHN    2
01570  M01S01485.1mr     +++|          ADD    T2
01571  M01S01486.1mr     +++|          ADC    BUFS
01572  M01S01487.1mr     +++|          STM    FATA
01573  M01S01488.1mr     +++|          LDD    MA
01574  M01S01489.1mr     +++|          CRM    BUFS,ON
01575  M01S01490.1mr     +++| FATA     EQU    *-1
01576  M01S01491.1mr     +++|          AOD    T2
01577  M01S01492.1mr     +++|          LMN    /MMF/MXMF+2
01578  M01S01493.1mr     +++|          NJN    FAT2        IF NOT END OF WORDS TO READ
01579  M01S01494.1mr     +++|          LDD    MD          SET INDEX INTO ENTRY FOR DOWNED MACHINE
01580  M01S01495.1mr     +++|          SHN    2
01581  M01S01496.1mr     +++|          ADD    MD
01582  M01S01497.1mr     +++|          STD    T2
01583  M01S01498.1mr     +++|          STD    T7          PRESET EXIT CONDITION
01584  M01S01499.1mr     +++|          LDN    0           ADJUST COUNTS
01585  M01S01500.1mr     +++|          SBM    BUFS+5+2,T2
01586  M01S01501.1mr     +++|          RAM    BUFS+5+2
01587  M01S01502.1mr     +++|          LDN    0
01588  M01S01503.1mr     +++|          SBM    BUFS+5+3,T2
01589  M01S01504.1mr     +++|          RAM    BUFS+5+3
01590  M01S01505.1mr     +++|          LDN    0
01591  M01S01506.1mr     +++|          SBM    BUFS+5+4,T2
01592  M01S01507.1mr     +++|          RAM    BUFS+5+4
01593  M01S01508.1mr     +++|          LDD    MA          WRITE GLOBAL COUNTS TO EXTENDED MEMORY
01594  M01S01509.1mr     +++|          CWM    BUFS+5,ON
01595  M01S01510.1mr     +++|          LDN    1
01596  M01S01511.1mr     +++|          RJM    WFW         WRITE FAT WORD
01597  M01S01512.1mr     +++|          LDN    ZERL
01598  M01S01513.1mr     +++|          CRD    CM
01599  M01S01514.1mr     +++|          LDD    MA
01600  M01S01515.1mr     +++|          CWD    CM
01601  M01S01516.1mr     +++|          LDD    MD
01602  M01S01517.1mr     +++|          ADN    1
01603  M01S01518.1mr     +++|          RJM    WFW         WRITE FAT WORD
01604  M01S01519.1mr     +++|          LDN    0
01605  M01S01520.1mr     +++|          STM    BUFS+5,T2   ZERO SLOT FOR THIS MACHINE
01606  M01S01521.1mr     +++|          STD    T2
01607  M01S01522.1mr     +++| FAT3     LDM    BUFS+2*5,T2
01608  M01S01523.1mr     +++|          NJN    FAT4        IF FILE STILL ATTACHED
01609  M01S01524.1mr     +++|          LDN    5
01610  M01S01525.1mr     +++|          RAD    T2
01611  M01S01526.1mr     +++|          LMK    5*/MMF/MXMF
01612  M01S01527.1mr     +++|          NJN    FAT3        IF NOT END OF MACHINES TO CHECK
01613  M01S01528.1mr     +++|          STM    FISS        CLEAR FAST ATTACH STATUS
01614  M01S01529.1mr     +++|          STD    T7          SET EXIT CONDITION
01615  M01S01530.1mr     +++|          LDN    ZERL        CLEAR ENTRY IN EXTENDED MEMORY
01616  M01S01531.1mr     +++|          CRD    CM
01617  M01S01532.1mr     +++|          LDD    MA
01618  M01S01533.1mr     +++|          CWD    CM
01619  M01S01534.1mr     +++|          LDN    0
01620  M01S01535.1mr     +++|          RJM    WFW         WRITE WORD 0 OF FAT
01621  M01S01536.1mr     +++|          LDC    PMFT*100    RESET FILE TYPE
01622  M01S01537.1mr     +++|          STM    FNSS+4
01623  M01S01538.1mr     +++|          LDM    CASS        CLEAR WRITE MODE BITS IN ACCESS WORD
01624  M01S01539.1mr     +++|          LPC    7541
01625  M01S01540.1mr     +++|          STM    CASS
01626  M01S01541.1mr     +++| FAT4     LDN    /MMF/FATI   CLEAR *FATI* INTERLOCK
01627  M01S01542.1mr     +++|          RJM    CFR
01628  M01S01543.1mr     +++|          LDD    T7
01629  M01S01544.1mr     +++|          LJM    FATX        RETURN
01630  M01S01545.1mr     +++| PDT      SPACE  4,10
01631  M01S01546.1mr     +++|**        PDT - CLEAR DEVICE ACCESSED BIT IN DAT FOR DOWNED MACHINE.
01632  M01S01547.1mr     +++|*
01633  M01S01548.1mr     +++|*         ENTRY  (EQ) = EST ORDINAL.
01634  M01S01549.1mr     +++|*
01635  M01S01550.1mr     +++|*         EXIT   (A) = 0 IF NOT PROCESSING DEVICE.
01636  M01S01551.1mr     +++|*                (T6) = MST TRACK IF PROCESSING DEVICE.
01637  M01S01552.1mr     +++|*
01638  M01S01553.1mr     +++|*         USES   T3, T6.
01639  M01S01554.1mr     +++|*
01640  M01S01555.1mr     +++|*         CALLS  CKP, DAT.
01641  M01S01556.1mr     +++|
01642  M01S01557.1mr     +++|
01643  M01S01558.1mr     +++| PDT      SUBR               ENTRY/EXIT
01644  M01S01559.1mr     +++|          LDD    MK
01645  M01S01560.1mr     +++|          STM    PDTA        SET DOWNED MACHINE MASK
01646  M01S01561.1mr     +++|          LDD    RE
01647  M01S01562.1mr     +++|          STD    T3          SET READ OF DAT
01648  M01S01563.1mr     +++|          LDD    EQ
01649  M01S01564.1mr     +++|          RJM    DAT
01650  M01S01565.1mr     +++|          LDM    BUFD+5+4    CHECK IF DOWNED MACHINE ACCESSING DEVICE
01651  M01S01566.1mr     +++|          LPC    *
01652  M01S01567.1mr     +++| PDTA     EQU    *-1
01653  M01S01568.1mr     +++|          ZJN    PDTX        IF DEVICE ACCESS NOT SET
01654  M01S01569.1mr     +++|          LMM    BUFD+5+4
01655  M01S01570.1mr     +++|          STM    BUFD+5+4
01656  M01S01571.1mr     +++|          LDM    BUFD+4      SET MST TRACK FOR DEVICE
01657  M01S01572.1mr     +++|          STD    T6
01658  M01S01573.1mr     +++|          RJM    CKP         SET CHECKPOINT BIT
01659  M01S01574.1mr     +++|          LDN    1
01660  M01S01575.1mr     +++|          UJN    PDTX        RETURN
01661  M01S01576.1mr     +++| SFR      SPACE  4,10
01662  M01S01577.1mr     +++|**        SFR - SET FLAG REGISTER BIT.
01663  M01S01578.1mr     +++|*
01664  M01S01579.1mr     +++|*         ENTRY  (A) = BIT NUMBER TO SET.
01665  M01S01580.1mr     +++|*
01666  M01S01581.1mr     +++|*         ERROR  TO *ERR* IF ERROR FLAG SET.
01667  M01S01582.1mr     +++|*
01668  M01S01583.1mr     +++|*         USES   T1, CM - CM+4.
01669  M01S01584.1mr     +++|*
01670  M01S01585.1mr     +++|*         CALLS  DAP, TFR.
01671  M01S01586.1mr     +++|*
01672  M01S01587.1mr     +++|*         MACROS MONITOR.
01673  M01S01588.1mr     +++|
01674  M01S01589.1mr     +++|
01675  M01S01590.1mr     +++| SFR2     LDD    CP          CLEAR MESSAGE
01676  M01S01591.1mr     +++|          ADN    MS2W
01677  M01S01592.1mr     +++|          CWD    CM
01678  M01S01593.1mr     +++|
01679  M01S01594.1mr     +++| SFR      SUBR               ENTRY/EXIT
01680  M01S01595.1mr     +++|          RJM    TFR         TOGGLE FLAG REGISTER BIT
01681  M01S01596.1mr     +++| SFR1     LDD    T1          SET BIT NUMBER
01682  M01S01597.1mr     +++|          SHN    6
01683  M01S01598.1mr     +++|          STD    CM+1
01684  M01S01599.1mr     +++|          LDC    SFRS*1000
01685  M01S01600.1mr     +++|          STD    CM+3
01686  M01S01601.1mr     +++|          MONITOR  ECSM
01687  M01S01602.1mr     +++|          LDD    CM+1
01688  M01S01603.1mr     +++|          ZJN    SFR2        IF BIT SET
01689  M01S01604.1mr     +++|          LDD    CP
01690  M01S01605.1mr     +++|          ADN    MS2W
01691  M01S01606.1mr     +++|          CWM    SFRA,TR
01692  M01S01607.1mr     +++|          RJM    DAP         DELAY AND PAUSE
01693  M01S01608.1mr     +++|          NJN    SFR1        IF NO OPERATOR DROP
01694  M01S01609.1mr     +++|          LDD    T1          RESET BIT INTERLOCKED FLAG
01695  M01S01610.1mr     +++|          RJM    TFR         TOGGLE FLAG REGISTER BIT
01696  M01S01611.1mr     +++|          LJM    ERR         ERROR FLAG TERMINATION
01697  M01S01612.1mr     +++|
01698  M01S01613.1mr     +++|
01699  M01S01614.1mr     +++| SFRA     DATA   C*WAITING FOR XXXI INTERLOCK.*
01700  M01S01615.1mr     +++| TFRB     SPACE  4,10
01701  M01S01616.1mr     +++|**        TFRB - TABLE OF FLAG REGISTER BIT INTERLOCKS.
01702  M01S01617.1mr     +++|*
01703  M01S01618.1mr     +++|*         ENTRY  = 3 WORDS.
01704  M01S01619.1mr     +++|*T, TFRB  6/,1/I  ,5/N  ,24/FLAG BIT MNEMONIC
Figure TFRB

023242829FLAG BIT MNEMONICN I 3035

01705  M01S01620.1mr     +++|*         I      FLAG BIT INTERLOCKED FLAG
01706  M01S01621.1mr     +++|*         N      BIT NUMBER
01707  M01S01622.1mr     +++|
01708  M01S01623.1mr     +++|
01709  M01S01624.1mr     +++| TFRB     BSS    0           TABLE OF FLAG REGISTER BIT INTERLOCKS
01710  M01S01625.1mr     +++|          VFD    12//MMF/DATI,24/0LDATI  DAT INTERLOCK
01711  M01S01626.1mr     +++|          VFD    12//MMF/FATI,24/0LFATI  FAST ATTACH TRACK INTERLOCK
01712  M01S00079.283l840 +++|          VFD    12//MMF/BDTI,24/0LBDTI  BDT INTERLOCK
01713  M01S01627.1mr     +++|
01714  M01S01628.1mr     +++|          CON    0           TERMINATOR
01715  M01S01629.1mr     +++| TFR      SPACE  4,10
01716  M01S01630.1mr     +++|**        TFR - TOGGLE FLAG REGISTER BIT.
01717  M01S01631.1mr     +++|*
01718  M01S01632.1mr     +++|*         ENTRY  (A) = FLAG BIT NUMBER.
01719  M01S01633.1mr     +++|*
01720  M01S01634.1mr     +++|*         USES   T1, CM+2.
01721  M01S01635.1mr     +++|
01722  M01S01636.1mr     +++|
01723  M01S01637.1mr     +++| TFR      SUBR               ENTRY/EXIT
01724  M01S01638.1mr     +++|          STD    T1
01725  M01S01639.1mr     +++|          LDC    TFRB-3      INITIALIZE BIT SEARCH
01726  M01S01640.1mr     +++|          STD    CM+2
01727  M01S01641.1mr     +++| TFR1     LDN    3           SEARCH FOR FLAG BIT
01728  M01S01642.1mr     +++|          RAD    CM+2
01729  M01S01643.1mr     +++|          LDI    CM+2
01730  M01S01644.1mr     +++|          ZJN    *           IF BIT NOT FOUND
01731  M01S01645.1mr     +++|          LMD    T1
01732  M01S01646.1mr     +++|          LPN    37
01733  M01S01647.1mr     +++|          NJN    TFR1        IF NOT FOUND
01734  M01S01648.1mr     +++|          LDI    CM+2        TOGGLE BIT
01735  M01S01649.1mr     +++|          LMN    40
01736  M01S01650.1mr     +++|          STI    CM+2
01737  M01S01651.1mr     +++|          LDM    1,CM+2      SET BIT MNEMONIC IN MESSAGE
01738  M01S01652.1mr     +++|          STM    SFRA+6
01739  M01S01653.1mr     +++|          LDM    2,CM+2
01740  M01S01654.1mr     +++|          STM    SFRA+7
01741  M01S01655.1mr     +++|          UJN    TFRX        RETURN
01742  M01S01656.1mr     +++| WFW      SPACE  4,10
01743  M01S01657.1mr     +++|**        WFW - WRITE FAT WORD.
01744  M01S01658.1mr     +++|*
01745  M01S01659.1mr     +++|*         ENTRY  (A) = RELATIVE FAT WORD TO WRITE.
01746  M01S01660.1mr     +++|*                (T3) = FAT INDEX.
01747  M01S01661.1mr     +++|*                MESSAGE BUFFER CONTAINS WORD TO WRITE.
01748  M01S01662.1mr     +++|*
01749  M01S01663.1mr     +++|*         USES   CM+3, CM+4.
01750  M01S01664.1mr     +++|*
01751  M01S01665.1mr     +++|*         CALLS  ECS.
01752  M01S01666.1mr     +++|
01753  M01S01667.1mr     +++|
01754  M01S01668.1mr     +++| WFW      SUBR               ENTRY/EXIT
01755  M01S01669.1mr     +++|          SHN    22-/MMF/FATS
01756  M01S01670.1mr     +++|          ADD    T3
01757  M01S01671.1mr     +++|          SHN    /MMF/FATS
01758  M01S01672.1mr     +++|          ADD    DA+1        SET FAST ATTACH TRACK ADDRESS
01759  M01S01673.1mr     +++|          ADC    /MMF/FAST*100
01760  M01S01674.1mr     +++|          STD    CM+4
01761  M01S01675.1mr     +++|          SHN    -14
01762  M01S01676.1mr     +++|          ADD    DA
01763  M01S01677.1mr     +++|          ADD    WE
01764  M01S01678.1mr     +++|          STD    CM+3
01765  M01S01679.1mr     +++|          LDN    1-1         WORD COUNT
01766  M01S01680.1mr     +++|          RJM    ECS         WRITE EXTENDED MEMORY
01767  M01S01681.1mr     +++|          UJN    WFWX        RETURN
01768  M01S01682.1mr     +++|          SPACE  4,5
01769  M01S01683.1mr     +++| E1MR     BSS    0           END OF ECS MMF CODE
01770  M01S01684.1mr     +++|          TITLE  FUNCTION 0 - RETRIEVE DISPLAY INFORMATION.
01771  M01S01685.1mr     +++| RDI      SPACE  4,10
01772  M01S01686.1mr     +++|**        RDI - RETRIEVE DISPLAY INFORMATION.  (FUNCTION 0)
01773  M01S01687.1mr     +++|*
01774  M01S01688.1mr     +++|*         ENTRY  (IR+3 - IR+4) = ADDR.
01775  M01S01689.1mr     +++|*
01776  M01S01690.1mr     +++|*         ADDR   ADDRESS OF TABLE OF SHARED DEVICES FOR THIS MACHINE.
01777  M01S01691.1mr     +++|*
01778  M01S01692.1mr     +++|*         CALLS  CAA, DAT.
01779  M01S01693.1mr     +++|*
01780  M01S01694.1mr     +++|*         MACROS SFA.
01781  M01S01695.1mr     +++|
01782  M01S01696.1mr     +++|
01783  M01S01697.1mr     +++| RDI      SUBR               ENTRY/EXIT
01784  M01S01698.1mr     +++|          LDK    EFRL        READ MACHINE STATE TABLE
01785  M01S01699.1mr     +++|          CRD    CM
01786  M01S01700.1mr     +++|          LDN    /MMF/MXMF   SET MAXIMUM NUMBER OF MAINFRAMES
01787  M01S01701.1mr     +++|          STD    T1
01788  M01S01702.1mr     +++|          LDD    CM
01789  M01S01703.1mr     +++|          SHN    14
01790  M01S01704.1mr     +++|          LMD    CM+1
01791  M01S01705.1mr     +++|          CRM    BFMS,T1
01792  M01S01706.1mr     +++|          LDD    RA          WRITE STATE TABLE TO CM TABLE
01793  M01S01707.1mr     +++|          SHN    6
01794  M01S01708.1mr     +++|          ADK    /MRT/TMID
01795  M01S01709.1mr     +++|          CWM    BFMS,T1
01796  M01S01710.1mr     +++|
01797  M01S01711.1mr     +++|*         RETURN MASKS OF MACHINES SHARING DEVICES WITH THIS MACHINE.
01798  M01S01712.1mr     +++|
01799  M01S01713.1mr     +++|          LCN    0           SET TABLE INDEX
01800  M01S01714.1mr     +++|          STD    SC
01801  M01S01715.1mr     +++| RDI1     AOD    SC          INCREMENT TABLE INDEX
01802  M01S01716.1mr     +++|          RJM    CAA
01803  M01S01717.1mr     +++|          ADD    SC
01804  M01S01718.1mr     +++|          CRD    CN          READ TABLE ENTRY
01805  M01S01719.1mr     +++|          LDD    CN+4
01806  M01S01720.1mr     +++|          ZJN    RDIX        IF END OF TABLE
01807  M01S01721.1mr     +++|          SFA    EST
01808  M01S01722.1mr     +++|          ADK    EQDE        READ EST ENTRY
01809  M01S01723.1mr     +++|          CRD    CM
01810  M01S01724.1mr     +++|          LDD    CM
01811  M01S01725.1mr     +++|          SHN    21-6
01812  M01S01726.1mr     +++|          MJN    RDI1        IF DEVICE UNAVAILABLE
01813  M01S01727.1mr     +++|          LDD    RE
01814  M01S01728.1mr     +++|          STD    T3          SET READ OPERATION
01815  M01S01729.1mr     +++|          LDD    CN+4
01816  M01S01730.1mr     +++|          RJM    DAT         READ DAT ENTRY
01817  M01S01731.1mr     +++|          LDM    BUFD+5+4
01818  M01S01732.1mr     +++|          LMC    0           CLEAR MASK OF THIS MACHINE
01819  M01S01733.1mr     +++| RDIA     EQU    *-1
01820  M01S01734.1mr     +++|          STD    CN          SET MACHINE MASK
01821  M01S01735.1mr     +++|          RJM    CAA
01822  M01S01736.1mr     +++|          ADD    SC          WRITE ENTRY BACK TO *MREC*
01823  M01S01737.1mr     +++|          CWD    CN
01824  M01S01738.1mr     +++|          UJP    RDI1        LOOP FOR NEXT DEVICE
01825  M01S01739.1mr     +++|
01826  M01S01740.1mr     +++|
01827  M01S01741.1mr     +++|          ERRNG  BUFD-*      CODE OVERFLOWS BUFFER
01828  M01S01742.1mr     +++|          TITLE  FUNCTION 3 - CLEAR DEVICE INTERLOCKS.
01829  M01S01743.1mr     +++| CDV      SPACE  4,10
01830  M01S01744.1mr     +++|**        CDV - CLEAR DEVICE INTERLOCKS.  (FUNCTION 3)
01831  M01S01745.1mr     +++|*
01832  M01S01746.1mr     +++|*         ENTRY  (IR+4) = MACHINE INDEX FOR WHICH TO CLEAR INTERLOCKS.
01833  M01S01747.1mr     +++|*
01834  M01S01748.1mr     +++|*         EXIT   TO *MRP2*.
01835  M01S01749.1mr     +++|*
01836  M01S01750.1mr     +++|*         MACROS MONITOR.
01837  M01S01751.1mr     +++|
01838  M01S01752.1mr     +++|
01839  M01S01753.1mr     +++| CDV8     MONITOR  HNGM
Line S01754 Modification History
M01 (Added by) 1mr
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
01840  M02S01754.283l840 ---| CDV9     LDK    EFRL        CHANGE STATE OF DOWN MACHINE
01841  M01S00080.283l840 +++| CDV9     LDK    EFRL        CHANGE STATE OF DOWN MACHINE
01842  M01S01755.1mr     +++|          CRD    CM
01843  M01S01756.1mr     +++|          LDD    CM
01844  M01S01757.1mr     +++|          SHN    14
01845  M01S01758.1mr     +++|          LMD    CM+1
01846  M01S01759.1mr     +++|          ADD    IR+4
01847  M01S01760.1mr     +++|          ADK    /MMF/MFST-1
01848  M01S01761.1mr     +++|          CRD    CN
01849  M01S01762.1mr     +++|          LDD    CN+4
01850  M01S01763.1mr     +++|          LMN    /MMF/MFMR
01851  M01S01764.1mr     +++|          NJN    CDV8        IF NOT IN PROPER STATE
01852  M01S01765.1mr     +++|*         LDN    /MMF/MFDN   SET *1MR* DONE STATE
01853  M01S01766.1mr     +++|          ERRNZ  /MMF/MFDN   CODE DEPENDS ON VALUE OF TAG
01854  M01S01767.1mr     +++|          STD    CN+4
01855  M01S01768.1mr     +++|          LDD    CM          WRITE STATE WORD
01856  M01S01769.1mr     +++|          SHN    14
01857  M01S01770.1mr     +++|          LMD    CM+1
01858  M01S01771.1mr     +++|          ADD    IR+4
01859  M01S01772.1mr     +++|          ADK    /MMF/MFST-1
01860  M01S01773.1mr     +++|          CWD    CN
01861  M01S01774.1mr     +++|          LJM    MRP2        EXIT TO DROP PP ONLY
01862  M01S01775.1mr     +++|
01863  M01S01776.1mr     +++| CDV      SUBR               ENTRY/EXIT
01864  M01S01777.1mr     +++|          LDK    ESTP        PRESET EQUIPMENT SEARCH
01865  M01S01778.1mr     +++|          CRD    CM
01866  M01S01779.1mr     +++|          LDD    CM+3
01867  M01S01780.1mr     +++|          STD    EQ
01868  M01S01781.1mr     +++| CDV1     SOD    EQ
01869  M01S01782.1mr     +++|          ZJN    CDV9        IF END OF EQUIPMENTS
Line S01783 Modification History
M01 (Added by) 1mr
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
01870  M02S01783.283l840 ---|          STD    CM+1
01871  M01S01784.1mr     +++|          SFA    EST
01872  M01S00081.283l840 +++|          ADK    EQDE
01873  M01S01785.1mr     +++|          CRD    CN
01874  M01S01786.1mr     +++|          LDD    CN
01875  M01S01787.1mr     +++|          LPC    5020
01876  M01S01788.1mr     +++|          LMC    5000
01877  M01S01789.1mr     +++|          NJN    CDV1        IF NOT MMF SHARED DEVICE
01878  M01S01790.1mr     +++|
01879  M01S01791.1mr     +++|*         OBTAIN DEVICE INTERLOCK WHILE PROCESSING TRACK INTERLOCKS.
01880  M01S01792.1mr     +++|
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  M01S01793.1mr     +++|          LDN    SDIS        INTERLOCK DEVICE
01885  M01S01794.1mr     +++|          STD    CM+3
01886  M01S01795.1mr     +++|          MONITOR  STBM
01887  M01S01796.1mr     +++|          LDD    CN+4        GET TRT ADDRESS
01888  M01S01797.1mr     +++|          SHN    3
01889  M01S01798.1mr     +++|          ADK    TDGL
01890  M01S01799.1mr     +++|          CRD    T1
01891  M01S01800.1mr     +++|          ADK    SDGL-TDGL
01892  M01S01801.1mr     +++|          CRD    T6          (T6 - T6+1) = EM ADDRESS OF MST
01893  M01S01802.1mr     +++|          ADK    TRLL-SDGL
01894  M01S01803.1mr     +++|          CRD    CN+3-4      (CN+2 - CN+3) = TRT ADDRESS
01895  M01S01804.1mr     +++|          LDD    T1+2        SET TRT LENGTH
01896  M01S01805.1mr     +++|          STD    TC
01897  M01S01806.1mr     +++|          LDN    0           SET CURRENT TRT WORD
01898  M01S01807.1mr     +++|          STD    CN
01899  M01S01808.1mr     +++|          UJN    CDV3        ENTER LOOP
01900  M01S01809.1mr     +++|
01901  M01S01810.1mr     +++|*         LOOP THROUGH TRT WORDS CHECKING FOR INTERLOCKED TRACKS.
01902  M01S01811.1mr     +++|
01903  M01S01812.1mr     +++| CDV2     AOD    CN          ADVANCE TRT WORD
01904  M01S01813.1mr     +++|          SBD    TC
01905  M01S01814.1mr     +++|          PJP    CDV4        IF END OF TRT
01906  M01S01815.1mr     +++| CDV3     LDD    CN+2        READ TRT WORD
01907  M01S01816.1mr     +++|          SHN    14
01908  M01S01817.1mr     +++|          LMD    CN+3
01909  M01S01818.1mr     +++|          ADD    CN
01910  M01S01819.1mr     +++|          CRD    T1
01911  M01S01820.1mr     +++|          LDD    T1+4
01912  M01S01821.1mr     +++|          SHN    -4
01913  M01S01822.1mr     +++|          LPN    17
01914  M01S01823.1mr     +++|          ZJN    CDV2        IF NO TRACK INTERLOCK BITS SET
01915  M01S01824.1mr     +++|
01916  M01S01825.1mr     +++|*         INTERLOCKED TRACK(S) FOUND, CHECK IF HELD BY DOWN MACHINE.
01917  M01S01826.1mr     +++|
01918  M01S01827.1mr     +++|          ADC    TCDVB       GET INTERLOCK BITS IN MRT ORDER
01919  M01S01828.1mr     +++|          STD    T0
01920  M01S01829.1mr     +++|          LDI    T0
Proceed to Part 1
cdc/nos2.source/opl.opl871/deck/1mr.txt ยท Last modified: by 127.0.0.1