          CTEXT  CTP$DFT START MICROCODE.
 CTPDSM   SPACE  4,10
 QUAL$    IF     -DEF,QUAL$
          QUAL   CTPDSM
 QUAL$    ENDIF
          BASE   M
*         COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC. 1992
 CTPDSM   SPACE  4,10
***       CTP$DFT START MICROCODE.
*         D. K. ELDRED.      87/11/12.
 CTPDSM   SPACE  4,10
***       THIS COMMON DECK PROVIDES A UNIFORM INTERFACE TO START CPU MICROCODE
*         AT A SELECTED MICROCODE ADDRESS.
 SMC      SPACE  4,10
**        SMC - START MICRO CODE.
*
*         ENTRY  (A) = MICRO CODE ADDRESS.
*                (CSAR) = CPU *CSA* REGISTER NUMBER.
*                (HBUF) = PROCESSOR MRT ENTRY.
*
*         EXIT   PROCESSOR HAS BEEN -
*                  MASTER CLEARED.
*                  S-REGISTER WRITTEN.
*                  STARTED.
*
*         MACROS FUNCMR, WRITMR.


 SMC      SUBR               ENTRY/EXIT
          STM    SMCA+7
          SHN    -10
          STM    SMCA+6
          FUNCMR HBUF+CPRPC,MRMC  MASTER CLEAR PROCESSOR
          LDM    CSAR
          STD    RN
          WRITMR SMCA,HBUF+CPRPC
          FUNCMR HBUF+CPRPC,MRSP   START PROCESSOR
          LDC    200D        WAIT 100 MICROSECONDS
 SMC1     SBN    1
          NJN    SMC1        IF DELAY NOT COMPLETE
          LJM    SMCX        RETURN

 SMCA     BSSZ   10B
 CTPDSM   SPACE  4,10
          BASE   *
 QUAL$    IF     -DEF,QUAL$
          QUAL   *
 SMC      EQU    /CTPDSM/SMC
 QUAL$    ENDIF
          ENDX
