ASMB
      HED "ISNGL" - FORTRAN CONVERSION FROM DOUBLE TO SINGLE INTEGER. 
      NAM ISNGL,7 92069-16282 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-18282
*     RELOC:     92069-16282
* 
* 
*****************************************************************:
* 
* 
* 
* 
* 
* 
      ENT ISNGL 
      EXT .ENTR 
* 
*     ISNGL CONVERTS A DOUBLE INTEGER ARGUMENT TO A SINGLE
*     INTEGER RESULT.  OVERFLOW IS SET IFF THE CONVERSION 
*     OVERFLOWS.
* 
*     CALLING SEQUENCE: 
* 
*                   I = ISNGL(X)
* 
*     WHERE X IS DECLARED REAL BUT CONTAINS A DOUBLE INTEGER VALUE. 
      SPC 3 
ISNGA DEF *-* 
ISNGL NOP 
      JSB .ENTR     COPY ADDRESS. 
      DEF ISNGA 
      DLD ISNGA,I   GET DOUBLE INTEGER. 
      SWP           CONVERT.
      ASL 16
      LDA 1 
      JMP ISNGL,I   EXIT. A = RESULT. 
* 
      END 
                              