ASMB
      HED "XFTD" - FORTRAN INTERFACE TO .XFTD . 
      NAM XFTD,7 92069-16280 REV.1912 790320
* 
* 
******************************************************************
* (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. 
******************************************************************* 
* 
* 
*     SOURCE:    92069-18280
*     RELOC:     92069-16280
* 
* 
*****************************************************************:
* 
* 
* 
* 
* 
* 
      ENT XFTD
      EXT .XFTD,.ENTR 
* 
*     XFTD PROVIDES A FORTRAN-CALLABLE CONVERSION FROM
*     DOUBLE INTEGER TO EXTENDED-PRECISION (48-BIT) 
*     FLOATING-POINT. 
* 
*     CALLING SEQUENCE: 
* 
*                   FTN,L 
*                     . 
*                     . 
*                   DOUBLE PRECISION DA,XFTD
*                     . 
*                     . 
*                   DA = XFTD(X)
* 
*     WHERE X IS DECLARED REAL BUT CONTAINS A DOUBLE
*     INTEGER VALUE.
* 
*     OVERFLOW CANNOT OCCUR.
      SPC 3 
XFTDA DEF *-* 
XFTDB DEF *-* 
XFTD  NOP 
      JSB .ENTR     COPY ADDRESSES. 
      DEF XFTDA 
      DLD XFTDB,I   DO OPERATION. 
      JSB .XFTD 
      DEF XFTDA,I 
      JMP XFTD,I    EXIT. 
* 
      END 
                                                                                                                