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