Common COMPMRA

5 Modifications

Source

Seq #  *Modification Id* Act 
----------------------------+
00001  M01S00001.compmra +++|          CTEXT  COMPMRA - MAINTENANCE REGISTER ACCESS ROUTINES.
00002  M01S00002.compmra +++|          SPACE  4,10
00003  M01S00003.compmra +++| QUAL$    IF     -DEF,QUAL$
00004  M01S00004.compmra +++|          QUAL   COMPMRA
00005  M01S00005.compmra +++| QUAL$    ENDIF
00006  M01S00006.compmra +++|          BASE   M

Line S00007 Modification History
`M01` (Added by)	`compmra`
`M02` (Updated by)	`281l803`

Seq #  *Modification Id* Act 
----------------------------+
00007  M02S00007.281l803 ---|*         COMMENT COPYRIGHT CONTROL DATA CORPORATION. 1981.
00008  M01S00001.281l803 +++|*         COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
00009  M01S00008.compmra +++| MRA      SPACE  4,10
00010  M01S00009.compmra +++|***       COMPMRA - MAINTENANCE REGISTER ACCESS ROUTINES.
00011  M01S00010.compmra +++|*         B. R. HANSON       81/01/29.
00012  M01S00011.compmra +++|          SPACE  4,10
00013  M01S00012.compmra +++|***              COMPMRA DEFINES FOUR ROUTINES USED IN ACCESSING THE
00014  M01S00013.compmra +++|*         CYBER 170-8X5 MAINTENANCE REGISTERS.  THESE ROUTINES ENFORCE
00015  M01S00014.compmra +++|*         THE PROTOCOL DEFINED FOR RESERVING AND RELEASING THE CHANNEL.
00016  M01S00015.compmra +++|*         THE ROUTINES ARE DESIGNED FOR USE BY THE MACROS DEFINED IN
00017  M01S00016.compmra +++|*         THE COMMON DECK *COMPMRM*.

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

Seq #  *Modification Id* Act 
----------------------------+
00018  M02S00001.ns2541  ---|*

Line S00002 Modification History
`M01` (Added by)	`242l642`
`M02` (Updated by)	`ns2541`

Seq #  *Modification Id* Act 
----------------------------+
00019  M02S00002.ns2541  ---|*         IF *MRA$* IS DEFINED, THE ERROR HANDLING IN ROUTINES *AMR*,

Line S00003 Modification History
`M01` (Added by)	`242l642`
`M02` (Updated by)	`ns2541`

Seq #  *Modification Id* Act 
----------------------------+
00020  M02S00003.ns2541  ---|*         *RME* AND *SMI* ARE MODIFIED.  IT IS EXPECTED THAT IN A

Line S00004 Modification History
`M01` (Added by)	`242l642`
`M02` (Updated by)	`ns2541`

Seq #  *Modification Id* Act 
----------------------------+
00021  M02S00004.ns2541  ---|*         FUTURE RELEASE OF NOS THE REVISED ERROR HANDLING WILL BE

Line S00005 Modification History
`M01` (Added by)	`242l642`
`M02` (Updated by)	`ns2541`

Seq #  *Modification Id* Act 
----------------------------+
00022  M02S00005.ns2541  ---|*         THE ONLY VERSION AVAILABLE.
00023  M01S00017.compmra +++|          SPACE  4,10
00024  M01S00018.compmra +++| DCN*     PPOP   4,7500      DEFINE *DCN**
00025  M01S00019.compmra +++| AMR      SPACE  4,10
00026  M01S00020.compmra +++|**        AMR - ACCESS MAINTENANCE REGISTER.
00027  M01S00021.compmra +++|*
00028  M01S00022.compmra +++|*         ENTRY  (A) = FUNCTION TO ACCESS REGISTER.
00029  M01S00023.compmra +++|*                (RN) = REGISTER NUMBER.
00030  M01S00024.compmra +++|*
00031  M01S00025.compmra +++|*         EXIT   (A) = 10.
00032  M01S00026.compmra +++|*                MAINTENANCE CHANNEL IS ACTIVE.
00033  M01S00027.compmra +++|*
00034  M01S00028.compmra +++|*         CALLS  SMI.
00035  M01S00029.compmra +++|

Line S00030 Modification History
`M01` (Added by)	`compmra`
`M02` (Updated by)	`242l642`

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

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

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

Line S00031 Modification History
`M01` (Added by)	`compmra`
`M02` (Updated by)	`ns2541`

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

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

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

Line S00036 Modification History
`M01` (Added by)	`compmra`
`M02` (Updated by)	`ns2541`

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

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

Seq #  *Modification Id* Act 
----------------------------+
00045  M02S00008.ns2541  ---| .B       IF     DEF,MRA$

Line S00009 Modification History
`M01` (Added by)	`242l642`
`M02` (Updated by)	`ns2541`

Seq #  *Modification Id* Act 
----------------------------+
00046  M02S00009.ns2541  ---| AMR1     SBN    1

Line S00010 Modification History
`M01` (Added by)	`242l642`
`M02` (Updated by)	`ns2541`

Seq #  *Modification Id* Act 
----------------------------+
00047  M02S00010.ns2541  ---|          ZJN    AMR2        IF FUNCTION TIMED OUT

Line S00011 Modification History
`M01` (Added by)	`242l642`
`M02` (Updated by)	`ns2541`

Seq #  *Modification Id* Act 
----------------------------+
00048  M02S00011.ns2541  ---|          AJM    AMR1,MR     IF FUNCTION NOT YET ACCEPTED

Line S00012 Modification History
`M01` (Added by)	`242l642`
`M02` (Updated by)	`ns2541`

Seq #  *Modification Id* Act 
----------------------------+
00049  M02S00012.ns2541  ---| .B       ELSE

Line S00037 Modification History
`M01` (Added by)	`compmra`
`M02` (Updated by)	`ns2541`

Seq #  *Modification Id* Act 
----------------------------+
00050  M02S00037.ns2541  ---| AMR2     SBN    1

Line S00038 Modification History
`M01` (Added by)	`compmra`
`M02` (Updated by)	`ns2541`

Seq #  *Modification Id* Act 
----------------------------+
00051  M02S00038.ns2541  ---|          ZJN    AMR1        IF FUNCTION TIMED OUT

Line S00039 Modification History
`M01` (Added by)	`compmra`
`M02` (Updated by)	`ns2541`

Seq #  *Modification Id* Act 
----------------------------+
00052  M02S00039.ns2541  ---|          AJM    AMR2,MR     IF FUNCTION NOT YET ACCEPTED

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

Seq #  *Modification Id* Act 
----------------------------+
00053  M02S00013.ns2541  ---| .B       ENDIF
00054  M01S00001.ns2541  +++|          AJM    *,MR        IF CHANNEL ACTIVE
00055  M01S00040.compmra +++|          ACN    MR
00056  M01S00041.compmra +++|          LDN    0
00057  M01S00042.compmra +++|          OAN    MR
00058  M01S00043.compmra +++|          LDD    RN
00059  M01S00044.compmra +++|          OAN    MR
00060  M01S00045.compmra +++|          FJM    *,MR        WAIT FOR REGISTER NUMBER ACCEPTED
00061  M01S00046.compmra +++|          DCN*   MR+40
00062  M01S00047.compmra +++|          ACN    MR
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  M01S00048.compmra +++|          LDN    10
00066  M01S00049.compmra +++|          UJN    AMRX        RETURN

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

Seq #  *Modification Id* Act 
----------------------------+
00067  M02S00014.ns2541  ---| .C       IF     DEF,MRA$

Line S00015 Modification History
`M01` (Added by)	`242l642`
`M02` (Updated by)	`ns2541`

Seq #  *Modification Id* Act 
----------------------------+
00068  M02S00015.ns2541  ---|

Line S00016 Modification History
`M01` (Added by)	`242l642`
`M02` (Updated by)	`ns2541`

Seq #  *Modification Id* Act 
----------------------------+
00069  M02S00016.ns2541  ---| AMR2     LJM    FME         SET FATAL ERROR

Line S00017 Modification History
`M01` (Added by)	`242l642`
`M02` (Updated by)	`ns2541`

Seq #  *Modification Id* Act 
----------------------------+
00070  M02S00017.ns2541  ---| .C       ENDIF
00071  M01S00050.compmra +++| CLI      SPACE  4,10
00072  M01S00051.compmra +++|**        CLI - CLEAR LONG TERM INTERLOCK.
00073  M01S00052.compmra +++|*
00074  M01S00053.compmra +++|*         ENTRY  (LOCK) = 0 IF LONG TERM INTERLOCK IS CLEAR.
00075  M01S00054.compmra +++|*                       = 1 IF LONG TERM INTERLOCK IS SET.
00076  M01S00055.compmra +++|*
00077  M01S00056.compmra +++|*         EXIT   LONG TERM INTERLOCK ON THE MAINTENANCE CHANNEL
00078  M01S00057.compmra +++|*                IS CLEARED.
00079  M01S00058.compmra +++|*
00080  M01S00059.compmra +++|*         MACROS MONITOR.
00081  M01S00060.compmra +++|
00082  M01S00061.compmra +++|
00083  M01S00062.compmra +++| CLI1     CCF    *,MR        RELEASE CHANNEL
00084  M01S00002.ns2541  +++|
00085  M01S00063.compmra +++| CLI      SUBR               ENTRY/EXIT
00086  M01S00064.compmra +++|          SOM    LOCK
00087  M01S00065.compmra +++|          ZJN    CLI1        IF INTERLOCK WAS SET
00088  M01S00066.compmra +++|          MONITOR  HNGM      HANG IF NOT SET
00089  M01S00067.compmra +++|          UJN    CLIX        RETURN
00090  M01S00068.compmra +++| CMI      SPACE  4,10
00091  M01S00069.compmra +++|**        CMI - CLEAR MAINTENANCE INTERLOCK.
00092  M01S00070.compmra +++|*
00093  M01S00071.compmra +++|*         ENTRY  (LOCK) = 0 IF LONG TERM INTERLOCK IS CLEAR.
00094  M01S00072.compmra +++|*                       = 1 IF LONG TERM INTERLOCK IS SET.
00095  M01S00073.compmra +++|*
00096  M01S00074.compmra +++|*         EXIT   MAINTENANCE CHANNEL RELEASED (UNLESS LONG
00097  M01S00075.compmra +++|*                TERM INTERLOCK WAS SET).
00098  M01S00076.compmra +++|*                TO *RME* TO RETRY IF CHANNEL ERRORS PRESENT.
00099  M01S00077.compmra +++|
00100  M01S00078.compmra +++|
00101  M01S00079.compmra +++| CMI1     LDM    LOCK
00102  M01S00080.compmra +++|          NJN    CMI2        IF LONG TERM INTERLOCK SET
00103  M01S00081.compmra +++|          CCF    *,MR        RELEASE CHANNEL
00104  M01S00082.compmra +++| CMI2     LDC    **          RESTORE (A)
00105  M01S00083.compmra +++| CMIA     EQU    *-1
00106  M01S00084.compmra +++|
00107  M01S00085.compmra +++| CMI      SUBR               ENTRY/EXIT
00108  M01S00086.compmra +++|          STM    CMIA
00109  M01S00087.compmra +++|          DCN*   MR+40       ENSURE MAINTENANCE CHANNEL INACTIVE
00110  M01S00088.compmra +++|          CFM    CMI1,MR     IF ERROR FLAG CLEAR

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

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

Line S00089 Modification History
`M01` (Added by)	`compmra`
`M02` (Updated by)	`ns2541`

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

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

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

Line S00090 Modification History
`M01` (Added by)	`compmra`
`M02` (Updated by)	`pmra1`

Seq #  *Modification Id* Act 
----------------------------+
00114  M02S00090.pmra1   ---|*         UJN    RME         PROCESS RETRY-ABLE MAINTENANCE ERROR
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  M01S00091.compmra +++| RME      SPACE  4,10
00140  M01S00092.compmra +++|**        RME  - RETRY MAINTENANCE REGISTER ERROR.
00141  M01S00093.compmra +++|*
00142  M01S00094.compmra +++|*         ENTRY  (LOCK) = 0 IF LONG TERM INTERLOCK IS SET.
00143  M01S00095.compmra +++|*                       = 1 IF LONG TERM INTERLOCK IS CLEAR.
00144  M01S00096.compmra +++|*                AT *FME* TO FORCE ERROR PROCESSING.
00145  M01S00097.compmra +++|*
00146  M01S00098.compmra +++|*         EXIT   TO *RTRY* IF OPERATION CAN BE RETRIED.
00147  M01S00099.compmra +++|*                TO *MRER*, IF OPERATION COULD NOT BE RETRIED.
00148  M01S00100.compmra +++|*                OR IF LONG TERM INTERLOCK IS SET.
00149  M01S00101.compmra +++|
00150  M01S00102.compmra +++|
00151  M01S00103.compmra +++| RME      BSS    0           ENTRY
00152  M01S00104.compmra +++|          SOM    RMEA        DECREMENT RETRY COUNT
00153  M01S00105.compmra +++|          ZJN    FME         IF OPERATION CANNOT BE RETRIED

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

Seq #  *Modification Id* Act 
----------------------------+
00154  M02S00020.ns2541  ---| .E       IF     DEF,MRA$
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` (Updated by)	`ns2541`

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

Line S00106 Modification History
`M01` (Added by)	`compmra`
`M02` (Updated by)	`ns2541`

Seq #  *Modification Id* Act 
----------------------------+
00162  M02S00106.ns2541  ---|          LDM    LOCK

Line S00107 Modification History
`M01` (Added by)	`compmra`
`M02` (Updated by)	`ns2541`

Seq #  *Modification Id* Act 
----------------------------+
00163  M02S00107.ns2541  ---|          NJN    FME         IF LONG TERM INTERLOCK WAS SET

Line S00108 Modification History
`M01` (Added by)	`compmra`
`M02` (Updated by)	`ns2541`

Seq #  *Modification Id* Act 
----------------------------+
00164  M02S00108.ns2541  ---|          LJM    RTRY        RETRY LAST OPERATION

Line S00109 Modification History
`M01` (Added by)	`compmra`
`M02` (Updated by)	`ns2541`

Seq #  *Modification Id* Act 
----------------------------+
00165  M02S00109.ns2541  ---|

Line S00110 Modification History
`M01` (Added by)	`compmra`
`M02` (Updated by)	`ns2541`

Seq #  *Modification Id* Act 
----------------------------+
00166  M02S00110.ns2541  ---| FME      BSS    0           ENTRY

Line S00111 Modification History
`M01` (Added by)	`compmra`
`M02` (Updated by)	`ns2541`

Seq #  *Modification Id* Act 
----------------------------+
00167  M02S00111.ns2541  ---|          LDN    0           SET LONG TERM INTERLOCK STATUS

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

Seq #  *Modification Id* Act 
----------------------------+
00168  M02S00028.ns2541  ---| .E       ENDIF
00169  M01S00112.compmra +++|          STM    LOCK
00170  M01S00113.compmra +++|          LJM    MRER        JUMP TO ERROR HANDLER
00171  M01S00029.242l642 +++| MRED     EQU    *-1         ERROR EXIT ADDRESS
00172  M01S00114.compmra +++|
00173  M01S00115.compmra +++| RMEA     CON    5           RETRY COUNT FOR CHANNEL PARITY ERRORS
00174  M01S00116.compmra +++| SLI      SPACE  4,10
00175  M01S00117.compmra +++|**        SLI - SET LONG TERM INTERLOCK.
00176  M01S00118.compmra +++|*
00177  M01S00119.compmra +++|*         ENTRY  (LOCK) = 0.
00178  M01S00120.compmra +++|*
00179  M01S00121.compmra +++|*         EXIT   MAINTENANCE CHANNEL FLAG SET.
00180  M01S00122.compmra +++|*                (LOCK) = 1.
00181  M01S00123.compmra +++|*
00182  M01S00124.compmra +++|*         CALLS  SMI.
00183  M01S00125.compmra +++|*
00184  M01S00126.compmra +++|*         MACROS MONITOR.
00185  M01S00127.compmra +++|
00186  M01S00128.compmra +++|
00187  M01S00129.compmra +++| SLI      SUBR               ENTRY/EXIT
00188  M01S00130.compmra +++|          RJM    SMI         GET INTERLOCK ON CHANNEL
00189  M01S00131.compmra +++|          AOM    LOCK
00190  M01S00132.compmra +++|          SBN    1
00191  M01S00133.compmra +++|          ZJN    SLIX        IF INTERLOCK JUST SET
00192  M01S00134.compmra +++|          CCF    *,MR        RELEASE CHANNEL
00193  M01S00135.compmra +++|          MONITOR  HNGM      HANG IF ALREADY SET
00194  M01S00136.compmra +++|          UJN    SLIX        RETURN
00195  M01S00137.compmra +++| SMI      SPACE  4,10
00196  M01S00138.compmra +++|**        SMI - SET MAINTENANCE INTERLOCK.
00197  M01S00139.compmra +++|*
00198  M01S00140.compmra +++|*         EXIT   MAINTENANCE CHANNEL OBTAINED.

Line S00141 Modification History
`M01` (Added by)	`compmra`
`M02` (Updated by)	`ns2541`

Seq #  *Modification Id* Act 
----------------------------+
00199  M02S00141.ns2541  ---|*                TO *RME* TO RETRY IF UNABLE TO ACCESS CHANNEL.

Line S00142 Modification History
`M01` (Added by)	`compmra`
`M02` (Updated by)	`ns2541`

Seq #  *Modification Id* Act 
----------------------------+
00200  M02S00142.ns2541  ---|*                TO *FME* IF CHANNEL ACTIVE WHEN ACQUIRED.
00201  M01S00003.ns2541  +++|*                TO *RME* IF CHANNEL ACTIVE WHEN ACQUIRED.
00202  M01S00025.pmra1   +++|*

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

Seq #  *Modification Id* Act 
----------------------------+
00203  M02S00026.ns2541  ---|*         USES   T0.

Line S00027 Modification History
`M01` (Added by)	`pmra1`
`M02` (Updated by)	`ns2541`

Seq #  *Modification Id* Act 
----------------------------+
00204  M02S00027.ns2541  ---|*

Line S00028 Modification History
`M01` (Added by)	`pmra1`
`M02` (Updated by)	`ns2541`

Seq #  *Modification Id* Act 
----------------------------+
00205  M02S00028.ns2541  ---|*         CALLS  CTE, FME, RME.
00206  M01S00004.ns2541  +++|*         CALLS  RME.
00207  M01S00143.compmra +++|
00208  M01S00144.compmra +++|

Line S00145 Modification History
`M01` (Added by)	`compmra`
`M02` (Updated by)	`pmra1`

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

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

Seq #  *Modification Id* Act 
----------------------------+
00210  M02S00029.ns2541  ---|

Line S00030 Modification History
`M01` (Added by)	`pmra1`
`M02` (Updated by)	`ns2541`

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

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

Seq #  *Modification Id* Act 
----------------------------+
00212  M02S00030.ns2541  ---| .F       IF     DEF,MRA$

Line S00031 Modification History
`M01` (Added by)	`242l642`
`M02` (Updated by)	`ns2541`

Seq #  *Modification Id* Act 
----------------------------+
00213  M02S00031.ns2541  ---|          MJN    FME1        IF UNABLE TO INTERLOCK MAINTENANCE CHANNEL

Line S00032 Modification History
`M01` (Added by)	`242l642`
`M02` (Updated by)	`ns2541`

Seq #  *Modification Id* Act 
----------------------------+
00214  M02S00032.ns2541  ---|          SCF    SMI1,MR     IF MAINTENANCE CHANNEL NOT AVAILABLE

Line S00033 Modification History
`M01` (Added by)	`242l642`
`M02` (Updated by)	`ns2541`

Seq #  *Modification Id* Act 
----------------------------+
00215  M02S00033.ns2541  ---|

Line S00034 Modification History
`M01` (Added by)	`242l642`
`M02` (Updated by)	`ns2541`

Seq #  *Modification Id* Act 
----------------------------+
00216  M02S00034.ns2541  ---| SMI2     AJM    RME,MR      IF CHANNEL ACTIVE
00217  M01S00005.ns2541  +++| SMI1     AJM    RME,MR      IF CHANNEL ACTIVE
00218  M01S00035.242l642 +++|          LDC    **          RESTORE FUNCTION

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

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

Line S00146 Modification History
`M01` (Added by)	`compmra`
`M02` (Updated by)	`ns2541`

Seq #  *Modification Id* Act 
----------------------------+
00220  M02S00146.ns2541  ---|          MJN    RME         IF UNABLE TO INTERLOCK MAINTENANCE CHANNEL

Line S00147 Modification History
`M01` (Added by)	`compmra`
`M02` (Updated by)	`ns2541`

Seq #  *Modification Id* Act 
----------------------------+
00221  M02S00147.ns2541  ---|          SCF    SMI1,MR     IF MAINTENANCE CHANNEL NOT AVAILABLE

Line S00148 Modification History
`M01` (Added by)	`compmra`
`M02` (Updated by)	`ns2541`

Seq #  *Modification Id* Act 
----------------------------+
00222  M02S00148.ns2541  ---|          IJM    SMI2,MR     IF CHANNEL INACTIVE

Line S00149 Modification History
`M01` (Added by)	`compmra`
`M02` (Updated by)	`ns2541`

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

Line S00150 Modification History
`M01` (Added by)	`compmra`
`M02` (Updated by)	`ns2541`

Seq #  *Modification Id* Act 
----------------------------+
00224  M02S00150.ns2541  ---|          UJN    FME         FORCE ERROR

Line S00151 Modification History
`M01` (Added by)	`compmra`
`M02` (Updated by)	`ns2541`

Seq #  *Modification Id* Act 
----------------------------+
00225  M02S00151.ns2541  ---|

Line S00152 Modification History
`M01` (Added by)	`compmra`
`M02` (Updated by)	`ns2541`

Seq #  *Modification Id* Act 
----------------------------+
00226  M02S00152.ns2541  ---| SMI2     LDC    **          RESTORE (A)

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

Seq #  *Modification Id* Act 
----------------------------+
00227  M02S00037.ns2541  ---| .F       ENDIF
00228  M01S00153.compmra +++| SMIA     EQU    *-1
00229  M01S00154.compmra +++|
00230  M01S00155.compmra +++| SMI      SUBR               ENTRY/EXIT
00231  M01S00156.compmra +++|          STM    SMIA
00232  M01S00157.compmra +++|          LDC    5           SET RETRY COUNT
00233  M01S00158.compmra +++| MRRC     EQU    *-1
00234  M01S00159.compmra +++|          STM    RMEA
00235  M01S00160.compmra +++|          LDC    0
00236  M01S00161.compmra +++| LOCK     EQU    *-1

Line S00162 Modification History
`M01` (Added by)	`compmra`
`M02` (Updated by)	`ns2541`

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

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

Seq #  *Modification Id* Act 
----------------------------+
00238  M02S00038.ns2541  ---| .G       IF     DEF,MRA$

Line S00039 Modification History
`M01` (Added by)	`242l642`
`M02` (Updated by)	`ns2541`

Seq #  *Modification Id* Act 
----------------------------+
00239  M02S00039.ns2541  ---|          LDK    200D/4

Line S00040 Modification History
`M01` (Added by)	`242l642`
`M02` (Updated by)	`ns2541`

Seq #  *Modification Id* Act 
----------------------------+
00240  M02S00040.ns2541  ---|          STD    T0          SET TIMEOUT

Line S00041 Modification History
`M01` (Added by)	`242l642`
`M02` (Updated by)	`ns2541`

Seq #  *Modification Id* Act 
----------------------------+
00241  M02S00041.ns2541  ---|          UJN    SMI1        ATTEMPT INTERLOCK
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
00245  M01S00042.242l642 +++|

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

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

Line S00044 Modification History
`M01` (Added by)	`242l642`
`M02` (Updated by)	`ns2541`

Seq #  *Modification Id* Act 
----------------------------+
00247  M02S00044.ns2541  ---| .G       ELSE

Line S00163 Modification History
`M01` (Added by)	`compmra`
`M02` (Updated by)	`pmra1`
`M03` (Updated by)	`ns2541`

Seq #  *Modification Id* Act 
----------------------------+
00248  M03S00163.ns2541  ---| RTRY     LDM    DLYA        SET TIME OUT

Line S00164 Modification History
`M01` (Added by)	`compmra`
`M02` (Updated by)	`pmra1`
`M03` (Updated by)	`ns2541`

Seq #  *Modification Id* Act 
----------------------------+
00249  M03S00164.ns2541  ---|          STM    SMI1

Line S00165 Modification History
`M01` (Added by)	`compmra`
`M02` (Updated by)	`pmra1`
`M03` (Updated by)	`ns2541`

Seq #  *Modification Id* Act 
----------------------------+
00250  M03S00165.ns2541  ---|          SHN    2

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

Seq #  *Modification Id* Act 
----------------------------+
00251  M02S00031.ns2541  ---| RTRY     LDC    200D/4      SET TIME OUT

Line S00032 Modification History
`M01` (Added by)	`pmra1`
`M02` (Updated by)	`ns2541`

Seq #  *Modification Id* Act 
----------------------------+
00252  M02S00032.ns2541  ---|          STD    T0

Line S00033 Modification History
`M01` (Added by)	`pmra1`
`M02` (Updated by)	`ns2541`

Seq #  *Modification Id* Act 
----------------------------+
00253  M02S00033.ns2541  ---|          IAN    14          PRESET TIMEOUT CLOCK

Line S00034 Modification History
`M01` (Added by)	`pmra1`
`M02` (Updated by)	`ns2541`

Seq #  *Modification Id* Act 
----------------------------+
00254  M02S00034.ns2541  ---|          STM    CTEA

Line S00166 Modification History
`M01` (Added by)	`compmra`
`M02` (Updated by)	`ns2541`

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

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

Seq #  *Modification Id* Act 
----------------------------+
00256  M02S00045.ns2541  ---| .G       ENDIF
00257  M01S00009.ns2541  +++| RTRY     EQU    SMI1        RETRY ADDRESS
00258  M01S00167.compmra +++|          SPACE  4,10
00259  M01S00168.compmra +++|          BASE   *
00260  M01S00169.compmra +++| QUAL$    IF     -DEF,QUAL$
00261  M01S00170.compmra +++|          QUAL   *
00262  M01S00171.compmra +++| AMR      EQU    /COMPMRA/AMR
00263  M01S00172.compmra +++| CLI      EQU    /COMPMRA/CLI
00264  M01S00173.compmra +++| CMI      EQU    /COMPMRA/CMI
00265  M01S00046.242l642 +++| MRED     EQU    /COMPMRA/MRED
00266  M01S00174.compmra +++| MRRC     EQU    /COMPMRA/MRRC
00267  M01S00175.compmra +++| SLI      EQU    /COMPMRA/SLI
00268  M01S00176.compmra +++| SMI      EQU    /COMPMRA/SMI
00269  M01S00177.compmra +++| QUAL$    ENDIF
00270  M01S00178.compmra +++|          SPACE  4
00271  M01S00179.compmra +++|          ENDX