ASMB,R,L,C
* 
*  **************************************************************** 
*  * (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.        * 
*  **************************************************************** 
* 
*   NAME: PART OF MATH LIBRARY
*   SOURCE:  24998-18XXX  SEE NAM FOR LAST THREE DIGITS 
*   RELOC: PART OF 24998-12001
*   PGMR: BG & JTS
* 
      HED "..DLC" DOUBLE LOAD REAL AND COMPLEMENT 
      NAM ..DLC,6 24998-1X117 REV.2001 750701 
      ENT ..DLC 
      EXT .ZPRV 
* 
* 
..DLC NOP 
      JSB .ZPRV 
      DEF LIBX
      LDA ..DLC,I   GET ADDRESS OF ARGUMENT 
      ISZ ..DLC     BUMP RETURN ADDRESS 
      STA ARG 
      CLA           SUBTRACT
      CLB            FROM 
      FSB ARG,I       ZERO
LIBX  JMP ..DLC,I 
      DEF ..DLC 
ARG   NOP 
      END 
* 
* 
* 
                                                                                                                                                                                                                                                