1/* Ksfp_exp.s 1.3 86/01/05 */ 2 3#include "../tahoemath/fp.h" 4#include "../tahoemath/Kfp.h" 5#include "../tahoe/SYS.h" 6 7ENTRY(Ksfpover, 0) 8 movl $HUGE0,r0 9 movl $HUGE1,r1 10 ret 11 12ENTRY(Ksfpunder, 0) 13 clrl r0 14 clrl r1 15 ret 16 17ENTRY(Ksfpzdiv, 0) 18 divl2 $0,r1 # force divission by zero. 19 ret 20