P8000/WEGA/src/lib/libc/gen/stfl.s

.code
__stfl::
{
	fldd	@r7,f3
	inc	r7,#8
	fldd	@r7,f2
	inc	r7,#8
	fldd	@r7,f1
	inc	r7,#8
	fldd	@r7,f0
	ret
}