ASMB,R,Q,C
*     NAME:   .FLT
*     SOURCE: 92070-18223 
*     RELOC:  92070-1X223 
*     PGMR:   HLC 
* 
* 
*  **************************************************************** 
*  * (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.        * 
*  **************************************************************** 
* 
* 
      NAM .FLT,6  92070-1X223  REV.1941  790228 
      ENT .FLT,FLOAT
      EXT .PACK 
      EXT .ZPRV 
* 
* 
* CALL WITH INTEGER IN A. 
* RETURN WITH FLOATING POINT EQUIVALENT IN A & B. 
FLOAT EQU * 
.FLT  NOP 
      JSB .ZPRV 
      DEF LIBX
      CLB           SET UP AS FLOATING POINT UNNOR- 
      JSB .PACK 
      DEC 15
LIBX  JMP .FLT,I  
      DEF .FLT  
      END 
* 
                                                                                    