lib/ack/libp/fif.e

   1 #
   2 ; $Header$
   3 ;
   4 ; (c) copyright 1983 by the Vrije Universiteit, Amsterdam, The Netherlands.
   5 ;
   6 ;          This product is part of the Amsterdam Compiler Kit.
   7 ;
   8 ; Permission to use, sell, duplicate or disclose this software must be
   9 ; obtained in writing. Requests for such permissions may be sent to
  10 ;
  11 ;      Dr. Andrew S. Tanenbaum
  12 ;      Wiskundig Seminarium
  13 ;      Vrije Universiteit
  14 ;      Postbox 7161
  15 ;      1007 MC Amsterdam
  16 ;      The Netherlands
  17 ;
  18 ;
  19
  20  mes 2,_EM_WSIZE,_EM_PSIZE
  21
  22 #define ARG1    0
  23 #define ARG2    _EM_DSIZE
  24 #define IRES    2*_EM_DSIZE
  25
  26 ; _fif is called with three parameters:
  27 ;       - address of integer part result (IRES)
  28 ;       - float two (ARG2)
  29 ;       - float one (ARG1)
  30 ; and returns an _EM_DSIZE-byte floating point number
  31
  32  exp $_fif
  33  pro $_fif,0
  34  lal 0
  35  loi 2*_EM_DSIZE
  36  fif _EM_DSIZE
  37  lal IRES
  38  loi _EM_PSIZE
  39  sti _EM_DSIZE
  40  ret _EM_DSIZE
  41  end ?