|
|
1.1 root 1: /* Kfp_exp.s 1.3 86/01/05 */
2:
3: #include "../tahoemath/fp.h"
4: #include "../tahoemath/Kfp.h"
5: #include "../tahoe/SYS.h"
6:
7: ENTRY(Kfpover, 0)
8: movl $HUGE0,r0
9: movl $HUGE1,r1
10: ret
11:
12: ENTRY(Kfpunder, 0)
13: clrl r0
14: clrl r1
15: ret
16:
17: ENTRY(Kfpzdiv, 0)
18: divl2 $0,r1 # force division by zero.
19: ret
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.