fef.e 388 B

1234567891011121314151617181920212223
  1. #
  2. mes 2,EM_WSIZE,EM_PSIZE
  3. ; $Id$
  4. #define FARG 0
  5. #define ERES EM_DSIZE
  6. ; _fef is called with two parameters:
  7. ; - address of exponent result (ERES)
  8. ; - floating point number to be split (FARG)
  9. ; and returns an EM_DSIZE-byte floating point number
  10. exp $_fef
  11. pro $_fef,0
  12. lal FARG
  13. loi EM_DSIZE
  14. fef EM_DSIZE
  15. lal ERES
  16. loi EM_PSIZE
  17. sti EM_WSIZE
  18. ret EM_DSIZE
  19. end ?