# ; $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 ?