*COMDECK     COMDEBUG  - CPU DEBUGGING PACKAGE. 
*IF DEF,DEBUG 
          LIST   F,X
          TITLE  DEBUG - CPU DEBUGGING PACKAGE. 
          COMMENT CPU DEBUGGING PACKAGE.
 DEBUG    SPACE  4,8
**        DEBUG - CPU DEBUGGING PACKAGE.
* 
*         R. H. GOODELL.     76/07/28.
* 
*         DEBUG PROVIDES ACCESS TO THE CPU DEBUGGING PACKAGE
*         FOR RELOCATABLE PROGRAMS. 
 DEBUG    SPACE  4,8
****      ENTRY POINTS. 
  
  
          ENTRY  CDB         PROGRAMMED BREAKPOINT ENTRY WITH LABEL ARG 
          ENTRY  CDC         PROGRAMMED COMMAND ENTRY 
          ENTRY  CDI         PROGRAMMED BREAKPT/COMMAND ENTRY (NO REGS) 
          ENTRY  CDP         INTERACTIVELY SELECTED BREAKPOINT ENTRY
          ENTRY  CDS         PROGRAMMED ENTRY TO DEFINE SYMBOLS 
****
  
  
 CDPS     BSS    0           CDP STARTING ADDRESS 
  
  
          IF     MAC,IPARAMS,1
          IPARAMS            INSTALLATION PARAMETERS
          IF     -MIC,OS.NAME,1 
 OS.NAME  MICRO  0           OPERATING SYSTEM TYPE NAME 
          IFC    EQ,*"OS.NAME"*KRONOS*,1
 .KRONOS  EQU    1           FOR *IF DEF* CONDITIONAL ASSEMBLY
  
  
*CALL     COMCCDM            CPU DEBUGGING MACROS.
  
  
*CALL     COMCCDP            CPU DEBUGGING PACKAGE. 
  
  
 COMMON   SPACE  4,8
**        COMMON DECKS. 
  
  
          LIST   -X 
  
*CALL     COMCCOD            CONVERT INTEGER TO OCTAL DISPLAY CODE. 
 KR       IF     DEF,.KRONOS
*CALL     COMCCPM            CONTROL POINT MANAGER PROCESSOR. 
 KR       ENDIF 
*CALL     COMCDXB            CONVERT DISPLAY CODE TO BINARY.
*CALL     COMCUPC            UNPACK CONTROL CARD. 
*CALL     COMCWOD            CONVERT WORD TO OCTAL DISPLAY CODE.
*CALL     COMCZTB            ZEROS TO BLANKS. 
  
  
          USE    END
 CDPE     BSS    0           CDP ENDING ADDRESS 
  
  
*ENDIF
          END 
