ack/lang/cem/libcc.ansi/pure/math/modf.e

23 lines
373 B
Plaintext
Raw Normal View History

1989-05-10 16:08:14 +00:00
#
/*
* (c) copyright 1987 by the Vrije Universiteit, Amsterdam, The Netherlands.
* See the copyright notice in the ACK home directory, in the file "Copyright".
*/
1994-06-24 14:02:31 +00:00
/* $Id$ */
1989-05-10 16:08:14 +00:00
mes 2,_EM_WSIZE,_EM_PSIZE
1989-05-10 16:08:14 +00:00
exp $modf
pro $modf,0
lal 0
loi _EM_DSIZE
1989-05-10 16:08:14 +00:00
loc 1
loc _EM_WSIZE
loc _EM_DSIZE
1989-05-10 16:08:14 +00:00
cif
fif _EM_DSIZE
lal _EM_DSIZE
loi _EM_PSIZE
sti _EM_DSIZE
ret _EM_DSIZE
1989-05-10 16:08:14 +00:00
end