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:	fld %st(0)
14	fmul %st(1)
15	fstps 4(%esp)
16	ret
17