usr/src/sys/tahoe/math/Ksfp_exp.s

/*      Ksfp_exp.s      1.4     90/12/04        */

#include "../math/fp.h"
#include "../math/Kfp.h"
#include "../tahoe/SYS.h"

ENTRY(Ksfpover, 0)
        movl    $HUGE0,r0
        movl    $HUGE1,r1
        ret

ENTRY(Ksfpunder, 0)
        clrl    r0
        clrl    r1
        ret

ENTRY(Ksfpzdiv, 0)
        divl2   $0,r1           # force divission by zero.
        ret