fif.e 423 B

12345678910111213141516171819202122232425
  1. #
  2. mes 2,EM_WSIZE,EM_PSIZE
  3. ; $Id$
  4. #define ARG1 0
  5. #define ARG2 EM_DSIZE
  6. #define IRES 2*EM_DSIZE
  7. ; _fif is called with three parameters:
  8. ; - address of integer part result (IRES)
  9. ; - float two (ARG2)
  10. ; - float one (ARG1)
  11. ; and returns an EM_DSIZE-byte floating point number
  12. exp $_fif
  13. pro $_fif,0
  14. lal 0
  15. loi 2*EM_DSIZE
  16. fif EM_DSIZE
  17. lal IRES
  18. loi EM_PSIZE
  19. sti EM_DSIZE
  20. ret EM_DSIZE
  21. end ?