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 *