          CTEXT  DSI$MAINTENANCE REGISTER ACCESS.
 MRA      SPACE  4,10
**        THIS DECK IS A COMPOSITE OF FOUR MAINTENANCE
*         REGISTER PROCESSING DECKS
*         CTP$MR_PROTOCOL_PREPROCESS_S1 IS USED AS THE GENERIC PREPROCESSOR
*         CTP$MR_PROTOCOL_PROCESS IS USED AS THE MAIN PROCESSOR
*         CTP$MR_RETRY_OPERATION_FOR_SCI IS USED FOR RETRYING ERRORS
*         CTP$MR_PROTOCOL_POSTPROCESS_930 IS USED AS THE GENERIC POSTPROCESSOR
 QUAL$    IF     -DEF,QUAL$
          QUAL   DSIMRA
 QUAL$    ENDIF
          BASE   M
*         COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992
          SPACE  4,10
*COPY CTP$MR_PROTOCOL_PREPROCESS_S1
*COPY CTP$MR_RETRY_OPERATION_FOR_SCI
*COPY CTP$MR_PROTOCOL_PROCESS
*COPY CTP$MR_PROTOCOL_POSTPROCESS_930
          BASE   *
 QUAL$    IF     -DEF,QUAL$
          QUAL   *
 AMR      EQU    /DSIMRA/AMR
 CLI      EQU    /DSIMRA/CLI
 CMI      EQU    /DSIMRA/CMI
 LOCK     EQU    /DSIMRA/LOCK
 MRRC     EQU    /DSIMRA/SMIA
 MRFA     EQU    /DSIMRA/MRFA
 MRFN     EQU    /DSIMRA/MRFN
 RMR      EQU    /DSIMRA/RMR
 SLI      EQU    /DSIMRA/SLI
 SMI      EQU    /DSIMRA/SMI
 WCC      EQU    /DSIMRA/WCC
 QUAL$    ENDIF
          SPACE  4,10
          ENDX
