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