lang/cem/libcc.ansi/math/modf.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: modf.e,v 1.4 1994/06/24 11:44:05 ceriel Exp $ */
   7
   8  mes 2,_EM_WSIZE,_EM_PSIZE
   9  exp $modf
  10  pro $modf,0
  11  lal 0
  12  loi _EM_DSIZE
  13  loc 1
  14  loc _EM_WSIZE
  15  loc _EM_DSIZE
  16  cif
  17  fif _EM_DSIZE
  18  lal _EM_DSIZE
  19  loi _EM_PSIZE
  20  sti _EM_DSIZE
  21  ret _EM_DSIZE
  22  end