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