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 ".IDBL" - INTEGER TO EXTENDED PRECISION CONVERSION. 
      NAM .IDBL,7 24998-1X053 REV.2001 780921 
      ENT .IDBL,.XFTS 
      EXT FLOAT,DBLE
.IDBL NOP 
.XFTS EQU .IDBL 
      JSB FLOAT     CONVERT INT. TO FLOATING POINT
      DST .TEMP     STORE RESULT IN TEMP CELL 
      LDA .IDBL,I   TRANSFER IN ADDRESS OF 3 WORDS
      STA *+3       TO HOLD DOUBLE PREC RESULT
      JSB DBLE      CONVERT REAL TO DOUBLE
      DEF *+3 
      NOP 
      DEF .TEMP 
      ISZ .IDBL 
      JMP .IDBL,I   RETURN
.TEMP REP 2 
      NOP 
      END 
                                                                                                                                    