          CTEXT  CTP$MR PROTOCOL POSTPROCESS 930.
          SPACE  4,10
*         COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992
          SPACE  4,10
***       CTP$MR_PROTOCOL_POSTPROCESS_930.
*         G. J. FALCONER.    87/09/16.
          SPACE  4,10
***       THIS DECK CONTAINS MAINTENANCE REGISTER POSTPROCESSING CODE
*         UNIQUE TO S0/S0E MAINFRAMES.
 WCC      SPACE  4,15
**        WCC - WAIT FOR COMPLETE AND CHECK *SS*.
*
*         DUE TO THE PECULIARITIES OF THE S0/S0E *MAC* IT IS NECESSARY TO
*         WAIT FOR THE CHANNEL TO GO EMPTY, THEN READ *SS* IN ORDER TO
*         ENSURE THAT A MAINTENANCE REGISTER WRITE HAS SUCCESSFULLY
*         COMPLETED.
*
*         EXIT   TO *FMN* IF CH17 INACTIVE.
*
*         CALLS  CMI.


 WCC1     DCN    MR          ENSURE MAINT CHAN INACTIVE
          FNC    MRSS,MR     READ SS TO INSURE WRITE WORKED
          ACN    MR
          IAN    MR
          RJM    CMI         CLEAR INTERLOCK

 WCC      SUBR               ENTRY/EXIT
          FJM    *,MR        INSURE LAST WORD TAKEN
          ZJN    WCC1        IF OUTPUT COMPLETE
          LDN    DACI-DANE   60F - CH17 INACTIVE
          UJN    SMI2        PROCESS FATAL MAINTENANCE ERROR
          SPACE  4,10
          ENDX
