xdef	_Sqrt

_Sqrt:	move.l	a6,-(a7)
	move.l	fp0,d0
	move.l	fp0+4,d1
	movea.l	_MathIEEEDoubTransBase,a6
	jsr	(-96,a6)		; IEEEDPSqrt
	move.l	d0,fp0
	move.l	d1,fp0+4
	move.l	(a7)+,a6
	rts

	xref	_MathIEEEDoubTransBase
	xref	fp0