1.global atanf
2.type atanf,@function
3atanf:
4	flds 4(%esp)
5	mov 4(%esp),%eax
6	add %eax,%eax
7	cmp $0x01000000,%eax
8	jb 1f
9	fld1
10	fpatan
11	ret
12		# subnormal x, return x with underflow
131:	fnstsw %ax
14	and $16,%ax
15	jnz 2f
16	fld %st(0)
17	fmul %st(1)
18	fstps 4(%esp)
192:	ret
20