1234567891011121314151617181920212223242526272829303132333435363738394041 |
- #
- ; $Id$
- ;
- ; (c) copyright 1983 by the Vrije Universiteit, Amsterdam, The Netherlands.
- ;
- ; This product is part of the Amsterdam Compiler Kit.
- ;
- ; Permission to use, sell, duplicate or disclose this software must be
- ; obtained in writing. Requests for such permissions may be sent to
- ;
- ; Dr. Andrew S. Tanenbaum
- ; Wiskundig Seminarium
- ; Vrije Universiteit
- ; Postbox 7161
- ; 1007 MC Amsterdam
- ; The Netherlands
- ;
- ;
- mes 2,EM_WSIZE,EM_PSIZE
- #define ARG1 0
- #define ARG2 EM_DSIZE
- #define IRES 2*EM_DSIZE
- ; _fif is called with three parameters:
- ; - address of integer part result (IRES)
- ; - float two (ARG2)
- ; - float one (ARG1)
- ; and returns an EM_DSIZE-byte floating point number
- exp $_fif
- pro $_fif,0
- lal 0
- loi 2*EM_DSIZE
- fif EM_DSIZE
- lal IRES
- loi EM_PSIZE
- sti EM_DSIZE
- ret EM_DSIZE
- end ?
|