MACHINE	68030
	FPU
	IDNT	frexp.s
	SECTION	text,code

	CNOP	0,2
	XDEF	_frexp
_frexp:
	FMOVEM FP2,-(SP)
	FMOVE.D 16(sp),FP1
	MOVE.L 24(sp),A0
	FGETEXP.X FP1,FP0
	FINTRZ.X FP0,FP0
	FMOVE.L FP0,D0
	FGETMAN.X FP1,FP0
	FMOVECR #$F,FP2
	FCMP.X FP2,FP0
	FBEQ L75
	FSCALE.B #-1,FP0
	ADDQ.L #1,D0
L75:
	MOVE.L D0,(A0)
	FMOVEM (SP)+,FP2
	RTS

	END