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