ack/lang/cem/libcc/gen/frexp.e

32 lines
633 B
Plaintext
Raw Permalink Normal View History

1987-01-27 15:57:55 +00:00
#
/*
* (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
1987-10-15 12:59:03 +00:00
#ifndef NOFLOAT
1987-01-27 15:57:55 +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
end
1987-10-15 12:59:03 +00:00
#endif