fif.e 866 B

1234567891011121314151617181920212223242526272829303132333435363738394041
  1. #
  2. ; $Id$
  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. mes 2,EM_WSIZE,EM_PSIZE
  20. #define ARG1 0
  21. #define ARG2 EM_DSIZE
  22. #define IRES 2*EM_DSIZE
  23. ; _fif is called with three parameters:
  24. ; - address of integer part result (IRES)
  25. ; - float two (ARG2)
  26. ; - float one (ARG1)
  27. ; and returns an EM_DSIZE-byte floating point number
  28. exp $_fif
  29. pro $_fif,0
  30. lal 0
  31. loi 2*EM_DSIZE
  32. fif EM_DSIZE
  33. lal IRES
  34. loi EM_PSIZE
  35. sti EM_DSIZE
  36. ret EM_DSIZE
  37. end ?