ASMB,R,L,C * SOURCE: 92070-18091 * RELOC: 92070-16091 * PGMR: M.L.K. * * *************************************************************** * * (C) COPYRIGHT HEWLETT-PACKARD COMPANY 1979. 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. * * *************************************************************** * NAM IDDUP,7 92070-1X091 REV.1941 790709 * SKP * ENT IDDUP,IDRPD EXT .ENTR SUP * * IDDUP NOP LDA DUMMY SET UP FOR DEFAULT STA IER PARAMETERS LDA IDDUP GET RETURN ADDRESS STA DDUP AND SAVE JMP DDUP+1 GO TO .ENTR * IDNAM NOP GENERIC ID NAME NWNAM NOP NEW NAME FOR PROGRAM IER NOP ERROR PARAMETER * DDUP NOP DUMMY ENTRY JSB .ENTR DEF IDNAM CCE SET FAILURE FOR SPL LDA .14 GET NOT FOUND ERROR CODE STA IER,I PASS TO USER JMP DDUP,I RETURN * * DUMMY DEF DUMY DUMY NOP .14 DEC 14 SKP * DUMMY IDRPD ROUTINE * IDRPD NOP DUMMY ENTRY POINT LDA DUMMY SET UP FOR DEFAULT STA IERR PARAMETER LDA IDRPD GET RETURN ADDRESS STA DRPD AND MOVE IT JMP DRPD+1 GO TO .ENTR * NAME NOP IERR NOP * DRPD NOP JSB .ENTR DEF NAME CLA,CLE SET UP SUCCESS RETURN STA IERR,I PASS TO CALLER JMP DRPD,I END