*         CTEXT  CTP$MR_RETRY_OPERATION_FOR_SCI
 RME      SPACE  4,10
**        RME  - RETRY MAINTENANCE REGISTER READ PARITY ERROR.
*
*         ENTRY  (LOCK) = 0 IF LONG TERM INTERLOCK IS SET.
*                       = 1 IF LONG TERM INTERLOCK IS CLEAR.
*                AT *FME* TO FORCE ERROR PROCESSING.
*
*         EXIT   TO *RTRY* IF OPERATION CAN BE RETRIED.
*                TO EXIT ADDRESS, IF OPERATION COULD NOT BE RETRIED.


 RME      AOML   MRRC        EVERY TIME A RETRY IS PERFORMED BUMP CUMULATIVE COUNT
          SOM    RMEA        DECREMENT RETRY COUNT
          ZJN    FME         IF OPERATION CANNOT BE RETRIED
          DCN*   MR+40       ENSURE CHANNEL IS INACTIVE
          LJM    RTRY        RETRY LAST OPERATION

 FME      DCN*   MR+40
          CCF    *,MR
          LDN    0           CLEAR LONG TERM INTERLOCK
          STM    LOCK
          LDC    DAMP        603 - CH17 PARITY ERROR
          STML   MRFE
          LJM    *           JUMP TO ERROR TERMINATION PROCESSOR
 MRFA     EQU    *-1         NON-FATAL ERROR EXIT ADDRESS

 RMEA     CON    5           RETRY COUNT FOR CHANNEL PARITY ERRORS
 MRRC     CON    0           MAINTENANCE REGISTER ERROR RETRY COUNT
 MRFE     CON    0           FATAL MAINTENACE ERROR

*         END    CTP$MR_RETRY_OPERATION_FOR_SCI
