lang/cem/libcc.ansi/math/frexp.e

   1 #
   2 /*
   3  * (c) copyright 1987 by the Vrije Universiteit, Amsterdam, The Netherlands.
   4  * See the copyright notice in the ACK home directory, in the file "Copyright".
   5  */
   6 /* $Id: frexp.e,v 1.4 1994/06/24 11:43:45 ceriel Exp $ */
   7
   8  mes 2,_EM_WSIZE,_EM_PSIZE
   9  exp $frexp
  10  pro $frexp,0
  11  lal 0
  12  loi _EM_DSIZE
  13  fef _EM_DSIZE
  14  lal _EM_DSIZE
  15  loi _EM_PSIZE
  16  sti _EM_WSIZE
  17  ret _EM_DSIZE
  18  end