ASMB
      HED "DBLEI" - FORTRAN CONVERSION FROM SINGLE TO DOUBLE INTEGER. 
      NAM DBLEI,7 92069-16283 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-18283
*     RELOC:     92069-16283
* 
* 
*****************************************************************:
* 
* 
* 
* 
* 
* 
      ENT DBLEI 
      EXT .ENTR 
* 
*     DBLEI CONVERTS A SINGLE INTEGER ARGUMENT TO A DOUBLE
*     INTEGER RESULT. 
* 
*     CALLING SEQUENCE: 
* 
*                   X = DBLEI(I)
* 
*     WHERE X IS DECLARED REAL BUT CONTAINS A DOUBLE INTEGER VALUE. 
      SPC 3 
DBLEA DEF *-* 
DBLEI NOP 
      JSB .ENTR     COPY ADDRESS. 
      DEF DBLEA 
      LDB DBLEA,I   GET SINGLE INTEGER. 
      ASR 16        CONVERT.
      SWP 
      JMP DBLEI,I   EXIT. (A,B) = RESULT. 
* 
      END 
                                                                                                