1 .global fmodl
2 .type fmodl,@function
3 fmodl:
4 	fldt 24(%esp)
5 	fldt 8(%esp)
6 1:	fprem
7 	fnstsw %ax
8 	testb $4,%ah
9 	jnz 1b
10 	fstp %st(1)
11 	ret
12