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 
                                                                                                                      