TEXT	fscale(SB), $0
	FMOVED	a+0(FP), F0
	FSCALEL	x+8(FP), F0
	RTS