Initial revision

1989-05-10 16:08:14 +00:00
parent f0cec58cf9
commit d2f7f252b2
20 changed files with 905 additions and 0 deletions
--- a/lang/cem/libcc.ansi/math/modf.e
+++ b/lang/cem/libcc.ansi/math/modf.e
@@ -0,0 +1,24 @@
+#
+/*
+ * (c) copyright 1987 by the Vrije Universiteit, Amsterdam, The Netherlands.
+ * See the copyright notice in the ACK home directory, in the file "Copyright".
+ */
+/* $Header$ */
+
+ mes 2,EM_WSIZE,EM_PSIZE
+#ifndef NOFLOAT
+ exp $modf
+ pro $modf,0
+ lal 0
+ loi EM_DSIZE
+ loc 1
+ loc EM_WSIZE
+ loc EM_DSIZE
+ cif
+ fif EM_DSIZE
+ lal EM_DSIZE
+ loi EM_PSIZE
+ sti EM_DSIZE
+ ret EM_DSIZE
+ end
+#endif