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