Common COMCCDM

1 Modification

Source

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

Line S00003 Modification History
`M01` (Added by)	`comccdm`
`M02` (Updated by)	`281l803`

Seq #  *Modification Id* Act 
----------------------------+
00003  M02S00003.281l803 ---|*         COMMENT COPYRIGHT CONTROL DATA CORP. 1975.
00004  M01S00001.281l803 +++|*         COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
00005  M01S00004.comccdm +++|          SPACE  4
00006  M01S00005.comccdm +++|***       COMCCDM - CPU DEBUGGING MACROS.
00007  M01S00006.comccdm +++|*         J.C.BOHNHOFF. 75/08/18.
00008  M01S00007.comccdm +++|          SPACE  4
00009  M01S00008.comccdm +++|***              COMCCDM CONTAINS MACRO DEFINITIONS THAT CALL ENTRY
00010  M01S00009.comccdm +++|*         POINTS WITHIN THE COMMON DECK COMCCDP AND THEREFORE ENTRIES
00011  M01S00010.comccdm +++|*         WITHIN RELOCATABLE SUBROUTINE DEBUG.
00012  M01S00011.comccdm +++| DEBUG    SPACE  4
00013  M01S00012.comccdm +++|***       DEBUG - CALL DEBUGGER TO BREAKPOINT OR EXECUTE COMMAND.
00014  M01S00013.comccdm +++|*
00015  M01S00014.comccdm +++|*         DEBUG  TYPE,PARAM
00016  M01S00015.comccdm +++|*
00017  M01S00016.comccdm +++|*         WHERE  TYPE = B OR C.
00018  M01S00017.comccdm +++|*                       B MEANS DO A BREAKPOINT HERE
00019  M01S00018.comccdm +++|*                       WITH BREAKPOINT LABEL PARAM.
00020  M01S00019.comccdm +++|*                       C MEANS CALL DEBUGGER TO
00021  M01S00020.comccdm +++|*                       EXECUTE THE COMMAND STORED
00022  M01S00021.comccdm +++|*                       AT ADDRESS PARAM.
00023  M01S00022.comccdm +++|*
00024  M01S00023.comccdm +++|*         A RETURN JUMP IS ASSEMBLED. NO REGISTERS ARE USED.
00025  M01S00024.comccdm +++|
00026  M01S00025.comccdm +++|
00027  M01S00026.comccdm +++| DEBUG    MACRO  TYP,PAR
00028  M01S00027.comccdm +++| .2       MICRO  1,, PAR
00029  M01S00028.comccdm +++| .1       IFC    EQ,$TYP$B$
00030  M01S00029.comccdm +++| .2       MICRO  1,,$5L".2"$
00031  M01S00030.comccdm +++| .1       ELSE   2
00032  M01S00031.comccdm +++|          IFC    NE,$TYP$C$,1
00033  M01S00032.comccdm +++|          ERR    UNKNOWN CALL TYPE - TYP
00034  M01S00033.comccdm +++|+         RJ     =XCDI
00035  M01S00034.comccdm +++|-         VFD    30/".2"
00036  M01S00035.comccdm +++|          ENDM
00037  M01S00036.comccdm +++|          SPACE  4
00038  M01S00037.comccdm +++|          ENDX