COMCCDM 
COMMON
          CTEXT  COMCCDM - CPU DEBUGGING MACROS.
          SPACE  4
*         COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992. 
          SPACE  4
***       COMCCDM - CPU DEBUGGING MACROS. 
*         J.C.BOHNHOFF. 75/08/18. 
          SPACE  4
***              COMCCDM CONTAINS MACRO DEFINITIONS THAT CALL ENTRY 
*         POINTS WITHIN THE COMMON DECK COMCCDP AND THEREFORE ENTRIES 
*         WITHIN RELOCATABLE SUBROUTINE DEBUG.
 DEBUG    SPACE  4
***       DEBUG - CALL DEBUGGER TO BREAKPOINT OR EXECUTE COMMAND. 
* 
*         DEBUG  TYPE,PARAM 
* 
*         WHERE  TYPE = B OR C. 
*                       B MEANS DO A BREAKPOINT HERE
*                       WITH BREAKPOINT LABEL PARAM.
*                       C MEANS CALL DEBUGGER TO
*                       EXECUTE THE COMMAND STORED
*                       AT ADDRESS PARAM. 
* 
*         A RETURN JUMP IS ASSEMBLED. NO REGISTERS ARE USED.
  
  
 DEBUG    MACRO  TYP,PAR
 .2       MICRO  1,, PAR
 .1       IFC    EQ,$TYP$B$ 
 .2       MICRO  1,,$5L".2"$
 .1       ELSE   2
          IFC    NE,$TYP$C$,1 
          ERR    UNKNOWN CALL TYPE - TYP
+         RJ     =XCDI
-         VFD    30/".2"
          ENDM
          SPACE  4
          ENDX
