modf.e 671 B

1234567891011121314151617181920212223242526272829303132333435
  1. #
  2. /*
  3. * (c) copyright 1983 by the Vrije Universiteit, Amsterdam, The Netherlands.
  4. *
  5. * This product is part of the Amsterdam Compiler Kit.
  6. *
  7. * Permission to use, sell, duplicate or disclose this software must be
  8. * obtained in writing. Requests for such permissions may be sent to
  9. *
  10. * Dr. Andrew S. Tanenbaum
  11. * Wiskundig Seminarium
  12. * Vrije Universiteit
  13. * Postbox 7161
  14. * 1007 MC Amsterdam
  15. * The Netherlands
  16. *
  17. */
  18. mes 2,EM_WSIZE,EM_PSIZE
  19. #ifndef NOFLOAT
  20. exp $modf
  21. pro $modf,0
  22. lal 0
  23. loi EM_DSIZE
  24. loc 1
  25. loc EM_WSIZE
  26. loc EM_DSIZE
  27. cif
  28. fif EM_DSIZE
  29. lal EM_DSIZE
  30. loi EM_PSIZE
  31. sti EM_DSIZE
  32. ret EM_DSIZE
  33. end
  34. #endif