Common COMPMRA

Library Member Format: MODIFY

Source

Seq #  *Modification Id* Act 
----------------------------+
00001  M00S00001.compmra +++|          CTEXT  COMPMRA - MAINTENANCE REGISTER ACCESS ROUTINES.
00002  M00S00002.compmra +++|          SPACE  4,10
00003  M00S00003.compmra +++| QUAL$    IF     -DEF,QUAL$
00004  M00S00004.compmra +++|          QUAL   COMPMRA
00005  M00S00005.compmra +++| QUAL$    ENDIF
00006  M00S00006.compmra +++|          BASE   M

Line S00007 Modification History
`M01` (Removed by)	`281l803`

Seq #  *Modification Id* Act 
----------------------------+
00007  M01S00007.281l803 ---|*         COMMENT COPYRIGHT CONTROL DATA CORPORATION. 1981.

Line S00001 Modification History
`M01` (Added by)	`281l803`

Seq #  *Modification Id* Act 
----------------------------+
00008  M01S00001.281l803 +++|*         COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
00009  M00S00008.compmra +++| MRA      SPACE  4,10
00010  M00S00009.compmra +++|***       COMPMRA - MAINTENANCE REGISTER ACCESS ROUTINES.
00011  M00S00010.compmra +++|*         B. R. HANSON       81/01/29.
00012  M00S00011.compmra +++|          SPACE  4,10
00013  M00S00012.compmra +++|***              COMPMRA DEFINES FOUR ROUTINES USED IN ACCESSING THE
00014  M00S00013.compmra +++|*         CYBER 170-8X5 MAINTENANCE REGISTERS.  THESE ROUTINES ENFORCE
00015  M00S00014.compmra +++|*         THE PROTOCOL DEFINED FOR RESERVING AND RELEASING THE CHANNEL.
00016  M00S00015.compmra +++|*         THE ROUTINES ARE DESIGNED FOR USE BY THE MACROS DEFINED IN
00017  M00S00016.compmra +++|*         THE COMMON DECK *COMPMRM*.

Line S00001 Modification History
`M01` (Added by)	`242l642`
`M02` (Removed by)	`ns2541`

Seq #  *Modification Id* Act 
----------------------------+
00018  M02S00001.ns2541  ---|*
00019  M02S00002.ns2541  ---|*         IF *MRA$* IS DEFINED, THE ERROR HANDLING IN ROUTINES *AMR*,
00020  M02S00003.ns2541  ---|*         *RME* AND *SMI* ARE MODIFIED.  IT IS EXPECTED THAT IN A
00021  M02S00004.ns2541  ---|*         FUTURE RELEASE OF NOS THE REVISED ERROR HANDLING WILL BE
00022  M02S00005.ns2541  ---|*         THE ONLY VERSION AVAILABLE.
00023  M00S00017.compmra +++|          SPACE  4,10
00024  M00S00018.compmra +++| DCN*     PPOP   4,7500      DEFINE *DCN**
00025  M00S00019.compmra +++| AMR      SPACE  4,10
00026  M00S00020.compmra +++|**        AMR - ACCESS MAINTENANCE REGISTER.
00027  M00S00021.compmra +++|*
00028  M00S00022.compmra +++|*         ENTRY  (A) = FUNCTION TO ACCESS REGISTER.
00029  M00S00023.compmra +++|*                (RN) = REGISTER NUMBER.
00030  M00S00024.compmra +++|*
00031  M00S00025.compmra +++|*         EXIT   (A) = 10.
00032  M00S00026.compmra +++|*                MAINTENANCE CHANNEL IS ACTIVE.
00033  M00S00027.compmra +++|*
00034  M00S00028.compmra +++|*         CALLS  SMI.
00035  M00S00029.compmra +++|

Line S00030 Modification History
`M01` (Removed by)	`242l642`

Seq #  *Modification Id* Act 
----------------------------+
00036  M01S00030.242l642 ---|

Line S00006 Modification History
`M01` (Added by)	`242l642`
`M02` (Removed by)	`ns2541`

Seq #  *Modification Id* Act 
----------------------------+
00037  M02S00006.ns2541  ---| .A       IF     -DEF,MRA$

Line S00031 Modification History
`M01` (Removed by)	`ns2541`

Seq #  *Modification Id* Act 
----------------------------+
00038  M01S00031.ns2541  ---| AMR1     DCN*   MR          DISCONNECT CHANNEL ON FUNCTION TIMEOUT

Line S00007 Modification History
`M01` (Added by)	`242l642`
`M02` (Removed by)	`ns2541`

Seq #  *Modification Id* Act 
----------------------------+
00039  M02S00007.ns2541  ---| .A       ENDIF
00040  M00S00032.compmra +++|
00041  M00S00033.compmra +++| AMR      SUBR               ENTRY/EXIT
00042  M00S00034.compmra +++|          RJM    SMI         GET MAINTENANCE CHANNEL
00043  M00S00035.compmra +++|          FAN    MR

Line S00036 Modification History
`M01` (Removed by)	`ns2541`

Seq #  *Modification Id* Act 
----------------------------+
00044  M01S00036.ns2541  ---|          LDC    1234

Line S00008 Modification History
`M01` (Added by)	`242l642`
`M02` (Removed by)	`ns2541`

Seq #  *Modification Id* Act 
----------------------------+
00045  M02S00008.ns2541  ---| .B       IF     DEF,MRA$
00046  M02S00009.ns2541  ---| AMR1     SBN    1
00047  M02S00010.ns2541  ---|          ZJN    AMR2        IF FUNCTION TIMED OUT
00048  M02S00011.ns2541  ---|          AJM    AMR1,MR     IF FUNCTION NOT YET ACCEPTED
00049  M02S00012.ns2541  ---| .B       ELSE

Line S00037 Modification History
`M01` (Removed by)	`ns2541`

Seq #  *Modification Id* Act 
----------------------------+
00050  M01S00037.ns2541  ---| AMR2     SBN    1
00051  M01S00038.ns2541  ---|          ZJN    AMR1        IF FUNCTION TIMED OUT
00052  M01S00039.ns2541  ---|          AJM    AMR2,MR     IF FUNCTION NOT YET ACCEPTED

Line S00013 Modification History
`M01` (Added by)	`242l642`
`M02` (Removed by)	`ns2541`

Seq #  *Modification Id* Act 
----------------------------+
00053  M02S00013.ns2541  ---| .B       ENDIF

Line S00001 Modification History
`M01` (Added by)	`ns2541`

Seq #  *Modification Id* Act 
----------------------------+
00054  M01S00001.ns2541  +++|          AJM    *,MR        IF CHANNEL ACTIVE
00055  M00S00040.compmra +++|          ACN    MR
00056  M00S00041.compmra +++|          LDN    0
00057  M00S00042.compmra +++|          OAN    MR
00058  M00S00043.compmra +++|          LDD    RN
00059  M00S00044.compmra +++|          OAN    MR
00060  M00S00045.compmra +++|          FJM    *,MR        WAIT FOR REGISTER NUMBER ACCEPTED
00061  M00S00046.compmra +++|          DCN*   MR+40
00062  M00S00047.compmra +++|          ACN    MR

Line S00001 Modification History
`M01` (Added by)	`pmra2`

Seq #  *Modification Id* Act 
----------------------------+
00063  M01S00001.pmra2   +++|          LDN    0           DELAY TO PREVENT 810/830 CONSOLE HANG
00064  M01S00002.pmra2   +++|          RAD    RN          DELAY TO PREVENT 810/830 CONSOLE HANG
00065  M00S00048.compmra +++|          LDN    10
00066  M00S00049.compmra +++|          UJN    AMRX        RETURN

Line S00014 Modification History
`M01` (Added by)	`242l642`
`M02` (Removed by)	`ns2541`

Seq #  *Modification Id* Act 
----------------------------+
00067  M02S00014.ns2541  ---| .C       IF     DEF,MRA$
00068  M02S00015.ns2541  ---|
00069  M02S00016.ns2541  ---| AMR2     LJM    FME         SET FATAL ERROR
00070  M02S00017.ns2541  ---| .C       ENDIF
00071  M00S00050.compmra +++| CLI      SPACE  4,10
00072  M00S00051.compmra +++|**        CLI - CLEAR LONG TERM INTERLOCK.
00073  M00S00052.compmra +++|*
00074  M00S00053.compmra +++|*         ENTRY  (LOCK) = 0 IF LONG TERM INTERLOCK IS CLEAR.
00075  M00S00054.compmra +++|*                       = 1 IF LONG TERM INTERLOCK IS SET.
00076  M00S00055.compmra +++|*
00077  M00S00056.compmra +++|*         EXIT   LONG TERM INTERLOCK ON THE MAINTENANCE CHANNEL
00078  M00S00057.compmra +++|*                IS CLEARED.
00079  M00S00058.compmra +++|*
00080  M00S00059.compmra +++|*         MACROS MONITOR.
00081  M00S00060.compmra +++|
00082  M00S00061.compmra +++|
00083  M00S00062.compmra +++| CLI1     CCF    *,MR        RELEASE CHANNEL

Line S00002 Modification History
`M01` (Added by)	`ns2541`

Seq #  *Modification Id* Act 
----------------------------+
00084  M01S00002.ns2541  +++|
00085  M00S00063.compmra +++| CLI      SUBR               ENTRY/EXIT
00086  M00S00064.compmra +++|          SOM    LOCK
00087  M00S00065.compmra +++|          ZJN    CLI1        IF INTERLOCK WAS SET
00088  M00S00066.compmra +++|          MONITOR  HNGM      HANG IF NOT SET
00089  M00S00067.compmra +++|          UJN    CLIX        RETURN
00090  M00S00068.compmra +++| CMI      SPACE  4,10
00091  M00S00069.compmra +++|**        CMI - CLEAR MAINTENANCE INTERLOCK.
00092  M00S00070.compmra +++|*
00093  M00S00071.compmra +++|*         ENTRY  (LOCK) = 0 IF LONG TERM INTERLOCK IS CLEAR.
00094  M00S00072.compmra +++|*                       = 1 IF LONG TERM INTERLOCK IS SET.
00095  M00S00073.compmra +++|*
00096  M00S00074.compmra +++|*         EXIT   MAINTENANCE CHANNEL RELEASED (UNLESS LONG
00097  M00S00075.compmra +++|*                TERM INTERLOCK WAS SET).
00098  M00S00076.compmra +++|*                TO *RME* TO RETRY IF CHANNEL ERRORS PRESENT.
00099  M00S00077.compmra +++|
00100  M00S00078.compmra +++|
00101  M00S00079.compmra +++| CMI1     LDM    LOCK
00102  M00S00080.compmra +++|          NJN    CMI2        IF LONG TERM INTERLOCK SET
00103  M00S00081.compmra +++|          CCF    *,MR        RELEASE CHANNEL
00104  M00S00082.compmra +++| CMI2     LDC    **          RESTORE (A)
00105  M00S00083.compmra +++| CMIA     EQU    *-1
00106  M00S00084.compmra +++|
00107  M00S00085.compmra +++| CMI      SUBR               ENTRY/EXIT
00108  M00S00086.compmra +++|          STM    CMIA
00109  M00S00087.compmra +++|          DCN*   MR+40       ENSURE MAINTENANCE CHANNEL INACTIVE
00110  M00S00088.compmra +++|          CFM    CMI1,MR     IF ERROR FLAG CLEAR

Line S00018 Modification History
`M01` (Added by)	`242l642`
`M02` (Removed by)	`ns2541`

Seq #  *Modification Id* Act 
----------------------------+
00111  M02S00018.ns2541  ---| .D       IF     -DEF,MRA$

Line S00089 Modification History
`M01` (Removed by)	`ns2541`

Seq #  *Modification Id* Act 
----------------------------+
00112  M01S00089.ns2541  ---|          CCF    *,MR        RELEASE CHANNEL

Line S00019 Modification History
`M01` (Added by)	`242l642`
`M02` (Removed by)	`ns2541`

Seq #  *Modification Id* Act 
----------------------------+
00113  M02S00019.ns2541  ---| .D       ENDIF

Line S00090 Modification History
`M01` (Removed by)	`pmra1`

Seq #  *Modification Id* Act 
----------------------------+
00114  M01S00090.pmra1   ---|*         UJN    RME         PROCESS RETRY-ABLE MAINTENANCE ERROR

Line S00001 Modification History
`M01` (Added by)	`pmra1`

Seq #  *Modification Id* Act 
----------------------------+
00115  M01S00001.pmra1   +++|          UJN    RME         PROCESS RETRY-ABLE MAINTENANCE ERROR
00116  M01S00002.pmra1   +++| CTE      SPACE  4,10
00117  M01S00003.pmra1   +++|**        CTE - CHECK TIMEOUT EXPIRED.
00118  M01S00004.pmra1   +++|*
00119  M01S00005.pmra1   +++|*         ENTRY  (T0) = TIMEOUT REMAINING IN 4096 MICRO SECOND UNITS.
00120  M01S00006.pmra1   +++|*
00121  M01S00007.pmra1   +++|*         EXIT   (A) = NEGATIVE IF TIMED OUT.
00122  M01S00008.pmra1   +++|*                (T0) = UPDATED IF 4096 MICRO SECOND ELAPSED.
00123  M01S00009.pmra1   +++|*
00124  M01S00010.pmra1   +++|*         USES   T0.
00125  M01S00011.pmra1   +++|
00126  M01S00012.pmra1   +++|
00127  M01S00013.pmra1   +++| CTE1     RAM    CTEA        SET NEW CLOCK VALUE
00128  M01S00014.pmra1   +++|
00129  M01S00015.pmra1   +++| CTE      SUBR               ENTRY/EXIT
00130  M01S00016.pmra1   +++|          IAN    14
00131  M01S00017.pmra1   +++|          SBM    CTEA        MICROSECONDS SINCE LAST CHECK
00132  M01S00018.pmra1   +++|          PJN    CTE1        IF LESS THAN 4096 MICROSECONDS
00133  M01S00019.pmra1   +++|          RAM    CTEA
00134  M01S00020.pmra1   +++|          SOD    T0          DECREMENT TIMEOUT COUNT
00135  M01S00021.pmra1   +++|          UJN    CTEX        RETURN
00136  M01S00022.pmra1   +++|
00137  M01S00023.pmra1   +++|
00138  M01S00024.pmra1   +++| CTEA     CON    0           REAL TIME CLOCK STORAGE
00139  M00S00091.compmra +++| RME      SPACE  4,10
00140  M00S00092.compmra +++|**        RME  - RETRY MAINTENANCE REGISTER ERROR.
00141  M00S00093.compmra +++|*
00142  M00S00094.compmra +++|*         ENTRY  (LOCK) = 0 IF LONG TERM INTERLOCK IS SET.
00143  M00S00095.compmra +++|*                       = 1 IF LONG TERM INTERLOCK IS CLEAR.
00144  M00S00096.compmra +++|*                AT *FME* TO FORCE ERROR PROCESSING.
00145  M00S00097.compmra +++|*
00146  M00S00098.compmra +++|*         EXIT   TO *RTRY* IF OPERATION CAN BE RETRIED.
00147  M00S00099.compmra +++|*                TO *MRER*, IF OPERATION COULD NOT BE RETRIED.
00148  M00S00100.compmra +++|*                OR IF LONG TERM INTERLOCK IS SET.
00149  M00S00101.compmra +++|
00150  M00S00102.compmra +++|
00151  M00S00103.compmra +++| RME      BSS    0           ENTRY
00152  M00S00104.compmra +++|          SOM    RMEA        DECREMENT RETRY COUNT
00153  M00S00105.compmra +++|          ZJN    FME         IF OPERATION CANNOT BE RETRIED

Line S00020 Modification History
`M01` (Added by)	`242l642`
`M02` (Removed by)	`ns2541`

Seq #  *Modification Id* Act 
----------------------------+
00154  M02S00020.ns2541  ---| .E       IF     DEF,MRA$

Line S00021 Modification History
`M01` (Added by)	`242l642`

Seq #  *Modification Id* Act 
----------------------------+
00155  M01S00021.242l642 +++|          DCN*   MR+40       ENSURE CHANNEL IS INACTIVE
00156  M01S00022.242l642 +++|          UJN    RTRY        RETRY LAST OPERATION
00157  M01S00023.242l642 +++|
00158  M01S00024.242l642 +++| FME      DCN*   MR+40
00159  M01S00025.242l642 +++|          CCF    *,MR
00160  M01S00026.242l642 +++| FME1     LDN    0           CLEAR LONG TERM INTERLOCK STATUS

Line S00027 Modification History
`M01` (Added by)	`242l642`
`M02` (Removed by)	`ns2541`

Seq #  *Modification Id* Act 
----------------------------+
00161  M02S00027.ns2541  ---| .E       ELSE

Line S00106 Modification History
`M01` (Removed by)	`ns2541`

Seq #  *Modification Id* Act 
----------------------------+
00162  M01S00106.ns2541  ---|          LDM    LOCK
00163  M01S00107.ns2541  ---|          NJN    FME         IF LONG TERM INTERLOCK WAS SET
00164  M01S00108.ns2541  ---|          LJM    RTRY        RETRY LAST OPERATION
00165  M01S00109.ns2541  ---|
00166  M01S00110.ns2541  ---| FME      BSS    0           ENTRY
00167  M01S00111.ns2541  ---|          LDN    0           SET LONG TERM INTERLOCK STATUS

Line S00028 Modification History
`M01` (Added by)	`242l642`
`M02` (Removed by)	`ns2541`

Seq #  *Modification Id* Act 
----------------------------+
00168  M02S00028.ns2541  ---| .E       ENDIF
00169  M00S00112.compmra +++|          STM    LOCK
00170  M00S00113.compmra +++|          LJM    MRER        JUMP TO ERROR HANDLER

Line S00029 Modification History
`M01` (Added by)	`242l642`

Seq #  *Modification Id* Act 
----------------------------+
00171  M01S00029.242l642 +++| MRED     EQU    *-1         ERROR EXIT ADDRESS
00172  M00S00114.compmra +++|
00173  M00S00115.compmra +++| RMEA     CON    5           RETRY COUNT FOR CHANNEL PARITY ERRORS
00174  M00S00116.compmra +++| SLI      SPACE  4,10
00175  M00S00117.compmra +++|**        SLI - SET LONG TERM INTERLOCK.
00176  M00S00118.compmra +++|*
00177  M00S00119.compmra +++|*         ENTRY  (LOCK) = 0.
00178  M00S00120.compmra +++|*
00179  M00S00121.compmra +++|*         EXIT   MAINTENANCE CHANNEL FLAG SET.
00180  M00S00122.compmra +++|*                (LOCK) = 1.
00181  M00S00123.compmra +++|*
00182  M00S00124.compmra +++|*         CALLS  SMI.
00183  M00S00125.compmra +++|*
00184  M00S00126.compmra +++|*         MACROS MONITOR.
00185  M00S00127.compmra +++|
00186  M00S00128.compmra +++|
00187  M00S00129.compmra +++| SLI      SUBR               ENTRY/EXIT
00188  M00S00130.compmra +++|          RJM    SMI         GET INTERLOCK ON CHANNEL
00189  M00S00131.compmra +++|          AOM    LOCK
00190  M00S00132.compmra +++|          SBN    1
00191  M00S00133.compmra +++|          ZJN    SLIX        IF INTERLOCK JUST SET
00192  M00S00134.compmra +++|          CCF    *,MR        RELEASE CHANNEL
00193  M00S00135.compmra +++|          MONITOR  HNGM      HANG IF ALREADY SET
00194  M00S00136.compmra +++|          UJN    SLIX        RETURN
00195  M00S00137.compmra +++| SMI      SPACE  4,10
00196  M00S00138.compmra +++|**        SMI - SET MAINTENANCE INTERLOCK.
00197  M00S00139.compmra +++|*
00198  M00S00140.compmra +++|*         EXIT   MAINTENANCE CHANNEL OBTAINED.

Line S00141 Modification History
`M01` (Removed by)	`ns2541`

Seq #  *Modification Id* Act 
----------------------------+
00199  M01S00141.ns2541  ---|*                TO *RME* TO RETRY IF UNABLE TO ACCESS CHANNEL.
00200  M01S00142.ns2541  ---|*                TO *FME* IF CHANNEL ACTIVE WHEN ACQUIRED.

Line S00003 Modification History
`M01` (Added by)	`ns2541`

Seq #  *Modification Id* Act 
----------------------------+
00201  M01S00003.ns2541  +++|*                TO *RME* IF CHANNEL ACTIVE WHEN ACQUIRED.

Line S00025 Modification History
`M01` (Added by)	`pmra1`

Seq #  *Modification Id* Act 
----------------------------+
00202  M01S00025.pmra1   +++|*

Line S00026 Modification History
`M01` (Added by)	`pmra1`
`M02` (Removed by)	`ns2541`

Seq #  *Modification Id* Act 
----------------------------+
00203  M02S00026.ns2541  ---|*         USES   T0.
00204  M02S00027.ns2541  ---|*
00205  M02S00028.ns2541  ---|*         CALLS  CTE, FME, RME.

Line S00004 Modification History
`M01` (Added by)	`ns2541`

Seq #  *Modification Id* Act 
----------------------------+
00206  M01S00004.ns2541  +++|*         CALLS  RME.
00207  M00S00143.compmra +++|
00208  M00S00144.compmra +++|

Line S00145 Modification History
`M01` (Removed by)	`pmra1`

Seq #  *Modification Id* Act 
----------------------------+
00209  M01S00145.pmra1   ---| SMI1     SBN    1

Line S00029 Modification History
`M01` (Added by)	`pmra1`
`M02` (Removed by)	`ns2541`

Seq #  *Modification Id* Act 
----------------------------+
00210  M02S00029.ns2541  ---|
00211  M02S00030.ns2541  ---| SMI1     RJM    CTE         CHECK TIMEOUT

Line S00030 Modification History
`M01` (Added by)	`242l642`
`M02` (Removed by)	`ns2541`

Seq #  *Modification Id* Act 
----------------------------+
00212  M02S00030.ns2541  ---| .F       IF     DEF,MRA$
00213  M02S00031.ns2541  ---|          MJN    FME1        IF UNABLE TO INTERLOCK MAINTENANCE CHANNEL
00214  M02S00032.ns2541  ---|          SCF    SMI1,MR     IF MAINTENANCE CHANNEL NOT AVAILABLE
00215  M02S00033.ns2541  ---|
00216  M02S00034.ns2541  ---| SMI2     AJM    RME,MR      IF CHANNEL ACTIVE

Line S00005 Modification History
`M01` (Added by)	`ns2541`

Seq #  *Modification Id* Act 
----------------------------+
00217  M01S00005.ns2541  +++| SMI1     AJM    RME,MR      IF CHANNEL ACTIVE

Line S00035 Modification History
`M01` (Added by)	`242l642`

Seq #  *Modification Id* Act 
----------------------------+
00218  M01S00035.242l642 +++|          LDC    **          RESTORE FUNCTION

Line S00036 Modification History
`M01` (Added by)	`242l642`
`M02` (Removed by)	`ns2541`

Seq #  *Modification Id* Act 
----------------------------+
00219  M02S00036.ns2541  ---| .F       ELSE

Line S00146 Modification History
`M01` (Removed by)	`ns2541`

Seq #  *Modification Id* Act 
----------------------------+
00220  M01S00146.ns2541  ---|          MJN    RME         IF UNABLE TO INTERLOCK MAINTENANCE CHANNEL
00221  M01S00147.ns2541  ---|          SCF    SMI1,MR     IF MAINTENANCE CHANNEL NOT AVAILABLE
00222  M01S00148.ns2541  ---|          IJM    SMI2,MR     IF CHANNEL INACTIVE
00223  M01S00149.ns2541  ---|          CCF    *,MR        RELEASE CHANNEL
00224  M01S00150.ns2541  ---|          UJN    FME         FORCE ERROR
00225  M01S00151.ns2541  ---|
00226  M01S00152.ns2541  ---| SMI2     LDC    **          RESTORE (A)

Line S00037 Modification History
`M01` (Added by)	`242l642`
`M02` (Removed by)	`ns2541`

Seq #  *Modification Id* Act 
----------------------------+
00227  M02S00037.ns2541  ---| .F       ENDIF
00228  M00S00153.compmra +++| SMIA     EQU    *-1
00229  M00S00154.compmra +++|
00230  M00S00155.compmra +++| SMI      SUBR               ENTRY/EXIT
00231  M00S00156.compmra +++|          STM    SMIA
00232  M00S00157.compmra +++|          LDC    5           SET RETRY COUNT
00233  M00S00158.compmra +++| MRRC     EQU    *-1
00234  M00S00159.compmra +++|          STM    RMEA
00235  M00S00160.compmra +++|          LDC    0
00236  M00S00161.compmra +++| LOCK     EQU    *-1

Line S00162 Modification History
`M01` (Removed by)	`ns2541`

Seq #  *Modification Id* Act 
----------------------------+
00237  M01S00162.ns2541  ---|          NJN    SMI2        IF LONG TERM INTERLOCK SET

Line S00038 Modification History
`M01` (Added by)	`242l642`
`M02` (Removed by)	`ns2541`

Seq #  *Modification Id* Act 
----------------------------+
00238  M02S00038.ns2541  ---| .G       IF     DEF,MRA$
00239  M02S00039.ns2541  ---|          LDK    200D/4
00240  M02S00040.ns2541  ---|          STD    T0          SET TIMEOUT
00241  M02S00041.ns2541  ---|          UJN    SMI1        ATTEMPT INTERLOCK

Line S00006 Modification History
`M01` (Added by)	`ns2541`

Seq #  *Modification Id* Act 
----------------------------+
00242  M01S00006.ns2541  +++|          NJN    SMI1        IF LONG TERM INTERLOCK SET
00243  M01S00007.ns2541  +++|          SCF    *,MR        GET MAINTENANCE CHANNEL
00244  M01S00008.ns2541  +++|          UJN    SMI1        CHECK CHANNEL STATUS

Line S00042 Modification History
`M01` (Added by)	`242l642`

Seq #  *Modification Id* Act 
----------------------------+
00245  M01S00042.242l642 +++|

Line S00043 Modification History
`M01` (Added by)	`242l642`
`M02` (Removed by)	`ns2541`

Seq #  *Modification Id* Act 
----------------------------+
00246  M02S00043.ns2541  ---| RTRY     EQU    SMI2        RETRY ADDRESS
00247  M02S00044.ns2541  ---| .G       ELSE

Line S00163 Modification History
`M01` (Removed by)	`pmra1`
`M02` (Removed by)	`ns2541`

Seq #  *Modification Id* Act 
----------------------------+
00248  M02S00163.ns2541  ---| RTRY     LDM    DLYA        SET TIME OUT
00249  M02S00164.ns2541  ---|          STM    SMI1
00250  M02S00165.ns2541  ---|          SHN    2

Line S00031 Modification History
`M01` (Added by)	`pmra1`
`M02` (Removed by)	`ns2541`

Seq #  *Modification Id* Act 
----------------------------+
00251  M02S00031.ns2541  ---| RTRY     LDC    200D/4      SET TIME OUT
00252  M02S00032.ns2541  ---|          STD    T0
00253  M02S00033.ns2541  ---|          IAN    14          PRESET TIMEOUT CLOCK
00254  M02S00034.ns2541  ---|          STM    CTEA

Line S00166 Modification History
`M01` (Removed by)	`ns2541`

Seq #  *Modification Id* Act 
----------------------------+
00255  M01S00166.ns2541  ---|          UJN    SMI1        ATTEMPT INTERLOCK

Line S00045 Modification History
`M01` (Added by)	`242l642`
`M02` (Removed by)	`ns2541`

Seq #  *Modification Id* Act 
----------------------------+
00256  M02S00045.ns2541  ---| .G       ENDIF

Line S00009 Modification History
`M01` (Added by)	`ns2541`

Seq #  *Modification Id* Act 
----------------------------+
00257  M01S00009.ns2541  +++| RTRY     EQU    SMI1        RETRY ADDRESS
00258  M00S00167.compmra +++|          SPACE  4,10
00259  M00S00168.compmra +++|          BASE   *
00260  M00S00169.compmra +++| QUAL$    IF     -DEF,QUAL$
00261  M00S00170.compmra +++|          QUAL   *
00262  M00S00171.compmra +++| AMR      EQU    /COMPMRA/AMR
00263  M00S00172.compmra +++| CLI      EQU    /COMPMRA/CLI
00264  M00S00173.compmra +++| CMI      EQU    /COMPMRA/CMI

Line S00046 Modification History
`M01` (Added by)	`242l642`

Seq #  *Modification Id* Act 
----------------------------+
00265  M01S00046.242l642 +++| MRED     EQU    /COMPMRA/MRED
00266  M00S00174.compmra +++| MRRC     EQU    /COMPMRA/MRRC
00267  M00S00175.compmra +++| SLI      EQU    /COMPMRA/SLI
00268  M00S00176.compmra +++| SMI      EQU    /COMPMRA/SMI
00269  M00S00177.compmra +++| QUAL$    ENDIF
00270  M00S00178.compmra +++|          SPACE  4
00271  M00S00179.compmra +++|          ENDX