ASMB
      NAM DBUGR,8 92082-16008 REV.2001 791119 
      ENT DBUGR,.DBUG,.SDBG 
      EXT $LIBR,$LIBX 
* 
* 
*     DATE: 11-19-79
*     NAME: DBUGR 
*     SOURCE: 92082-18008 
*     RELOC:  92082-16008 
*     PGMR:   C.M.M.
* 
*  ***************************************************************
*  * (C) COPYRIGHT HEWLETT-PACKARD COMPANY 1980.  ALL RIGHTS     *
*  * RESERVED.  NO PART OF THIS PROGRAM MAY BE PHOTOCOPIED,      *
*  * REPRODUCED OR TRANSLATED TO ANOTHER PROGRAM LANGUAGE WITHOUT*
*  * THE PRIOR WRITTEN CONSENT OF HEWLETT-PACKARD COMPANY.       *
*  ***************************************************************
* 
* 
* 
* THIS IS A DUMMY ROUTINE TO ALLOW SEGMENTED PROGRAMS TO POST 
* INFORMATION ON BASE PAGE ABOUT WHICH SEGMENT IS CURRENTLY 
* ACTIVE. 
* 
* 
DBUGR CLA 
      JSB $LIBR 
      NOP           GO PRIV 
* 
      STA B1740     CLEAR OUT 2 BASE PAGE WORDS 
      STA B1741     FOR THE FUTURE .
      JSB $LIBX 
      DEF *+1 
      DEF *+1 
* 
      JMP .DBUG,I 
* 
* 
*     THE .SDBG ROUTINE IS CALLED BY THE SEGMENT UPON EACH SEGMENT LOAD 
*     THE LOADR WILL SET THE PRIMARY ENTRY POINT OF THE SEGMENT TO A
*     MODULE WHICH CALL THIS MODULE.  THIS MODULE SETS THE ID SEG ADDR
*     OF THE SEGMENT ON BASE PAGE AND BUMPS THE TOTAL SEGMENT LOAD
*     COUNT WHICH IS ALSO ON BASE PAGE. 
* 
.SDBG NOP 
      STA SAVEA     A-REG HAS THE ID ADDRESS OF THE CALLED SEG
* 
      JSB $LIBR     GO PRIV 
      NOP 
* 
      STA B1740     SAVE ADDRESS OF CURRENTLY ACTIVE SEG
      ISZ B1741     BUMP SEG LOAD COUNT 
* 
      JSB $LIBX 
      DEF *+1 
      DEF *+1 
* 
      LDA .SDBG,I   GET THE RETURN ADDRESS
      STA .SDBG 
      LDA SAVEA     RESTORE A-REG AND 
      JMP .SDBG,I     RETURN
* 
* 
A     EQU 0 
B     EQU 1 
B1740 EQU 1740B 
B1741 EQU 1741B 
SAVEA NOP 
.DBUG NOP 
* 
* 
      END DBUGR 
                                                                                                                                            