modf.e 373 B

12345678910111213141516171819202122
  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$ */
  7. mes 2,_EM_WSIZE,_EM_PSIZE
  8. exp $modf
  9. pro $modf,0
  10. lal 0
  11. loi _EM_DSIZE
  12. loc 1
  13. loc _EM_WSIZE
  14. loc _EM_DSIZE
  15. cif
  16. fif _EM_DSIZE
  17. lal _EM_DSIZE
  18. loi _EM_PSIZE
  19. sti _EM_DSIZE
  20. ret _EM_DSIZE
  21. end