Common COMCCDM

Library Member Format: MODIFY

Source

Seq #  *Modification Id* Act 
----------------------------+
00001  M00S00001.comccdm +++|          CTEXT  COMCCDM - CPU DEBUGGING MACROS.
00002  M00S00002.comccdm +++|          SPACE  4

Line S00003 Modification History
`M01` (Removed by)	`281l803`

Seq #  *Modification Id* Act 
----------------------------+
00003  M01S00003.281l803 ---|*         COMMENT COPYRIGHT CONTROL DATA CORP. 1975.

Line S00001 Modification History
`M01` (Added by)	`281l803`

Seq #  *Modification Id* Act 
----------------------------+
00004  M01S00001.281l803 +++|*         COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
00005  M00S00004.comccdm +++|          SPACE  4
00006  M00S00005.comccdm +++|***       COMCCDM - CPU DEBUGGING MACROS.
00007  M00S00006.comccdm +++|*         J.C.BOHNHOFF. 75/08/18.
00008  M00S00007.comccdm +++|          SPACE  4
00009  M00S00008.comccdm +++|***              COMCCDM CONTAINS MACRO DEFINITIONS THAT CALL ENTRY
00010  M00S00009.comccdm +++|*         POINTS WITHIN THE COMMON DECK COMCCDP AND THEREFORE ENTRIES
00011  M00S00010.comccdm +++|*         WITHIN RELOCATABLE SUBROUTINE DEBUG.
00012  M00S00011.comccdm +++| DEBUG    SPACE  4
00013  M00S00012.comccdm +++|***       DEBUG - CALL DEBUGGER TO BREAKPOINT OR EXECUTE COMMAND.
00014  M00S00013.comccdm +++|*
00015  M00S00014.comccdm +++|*         DEBUG  TYPE,PARAM
00016  M00S00015.comccdm +++|*
00017  M00S00016.comccdm +++|*         WHERE  TYPE = B OR C.
00018  M00S00017.comccdm +++|*                       B MEANS DO A BREAKPOINT HERE
00019  M00S00018.comccdm +++|*                       WITH BREAKPOINT LABEL PARAM.
00020  M00S00019.comccdm +++|*                       C MEANS CALL DEBUGGER TO
00021  M00S00020.comccdm +++|*                       EXECUTE THE COMMAND STORED
00022  M00S00021.comccdm +++|*                       AT ADDRESS PARAM.
00023  M00S00022.comccdm +++|*
00024  M00S00023.comccdm +++|*         A RETURN JUMP IS ASSEMBLED. NO REGISTERS ARE USED.
00025  M00S00024.comccdm +++|
00026  M00S00025.comccdm +++|
00027  M00S00026.comccdm +++| DEBUG    MACRO  TYP,PAR
00028  M00S00027.comccdm +++| .2       MICRO  1,, PAR
00029  M00S00028.comccdm +++| .1       IFC    EQ,$TYP$B$
00030  M00S00029.comccdm +++| .2       MICRO  1,,$5L".2"$
00031  M00S00030.comccdm +++| .1       ELSE   2
00032  M00S00031.comccdm +++|          IFC    NE,$TYP$C$,1
00033  M00S00032.comccdm +++|          ERR    UNKNOWN CALL TYPE - TYP
00034  M00S00033.comccdm +++|+         RJ     =XCDI
00035  M00S00034.comccdm +++|-         VFD    30/".2"
00036  M00S00035.comccdm +++|          ENDM
00037  M00S00036.comccdm +++|          SPACE  4
00038  M00S00037.comccdm +++|          ENDX