MACHINE 68030
	FPU
	IDNT floor.s
	SECTION text,code

	XDEF	_floor
_floor:
	MOVE.L D2,-(A7)
	FMOVE.D 8(A7),FP0
	FMOVE.L FPCR,D1
	MOVEQ #-17,D0
	AND.L D1,D0
	MOVEQ #32,D2
	OR.L D2,D0
	FMOVE.L D0,FPCR
	FINT.X FP0,FP0
	FMOVE.L D1,FPCR
	MOVE.L (A7)+,D2
	RTS

	END