frexp.e 333 B

123456789101112131415161718
  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 $frexp
  9. pro $frexp,0
  10. lal 0
  11. loi _EM_DSIZE
  12. fef _EM_DSIZE
  13. lal _EM_DSIZE
  14. loi _EM_PSIZE
  15. sti _EM_WSIZE
  16. ret _EM_DSIZE
  17. end