ack/lang/cem/libcc.ansi/core/math/frexp.e

19 lines
333 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 $frexp
pro $frexp,0
lal 0
loi _EM_DSIZE
fef _EM_DSIZE
lal _EM_DSIZE
loi _EM_PSIZE
sti _EM_WSIZE
ret _EM_DSIZE
1989-05-10 16:08:14 +00:00
end