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