s_finite.S revision 1.3 
11.1Sjtc/*
21.3Sjtc * Written by J.T. Conklin <jtc@netbsd.org>.
31.3Sjtc * Public domain.
41.1Sjtc */
51.1Sjtc
61.1Sjtc#include <machine/asm.h>
71.1Sjtc
81.3SjtcRCSID("$Id: s_finite.S,v 1.3 1995/04/28 22:44:00 jtc Exp $")
91.2Sjtc
101.1SjtcENTRY(finite)
111.1Sjtc	movl	8(%esp),%eax
121.1Sjtc	andl	$0x7ff00000, %eax
131.1Sjtc	cmpl	$0x7ff00000, %eax
141.1Sjtc	setnel	%al
151.1Sjtc	andl	$0x000000ff, %eax
161.1Sjtc	ret
17