User Tools

Site Tools


cdc:nos2.source:opl.opl871:common:compmra

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
cdc/nos2.source/opl.opl871/common/compmra.txt ยท Last modified: by 127.0.0.1