ASMB,R,L,C
      HED "FLOAT" CONVERT INTEGER TO REAL 
* 
*     NAME:  FLOAT
*     SOURCE: 92068-18040 
*     RELOC:  PART OF 92067-16268 AND 92067-16035 
*     PGMR:   R.A.G.
* 
*  ***************************************************************
*  * (C) COPYRIGHT HEWLETT-PACKARD COMPANY 1980.  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.       *
*  ***************************************************************
* 
      NAM FLOAT,6 92068-1X040 REV.2013 750701 
      ENT FLOAT 
      EXT .PACK 
      EXT .ZPRV 
* 
* 
* CALL WITH INTEGER IN A. 
* RETURN WITH FLOATING POINT EQUIVALENT IN A & B. 
FLOAT NOP 
      JSB .ZPRV 
      DEF LIBX
      CLB           SET UP AS FLOATING POINT UNNOR- 
      JSB .PACK 
      DEC 15
LIBX  JMP FLOAT,I 
      DEF FLOAT 
      END 
* 
                                                  