xdef	_FNeg

_FNeg:	move.l	a6,-(a7)
	move.l	fp0,d0
	move.l	fp0+4,d1
	movea.l	_MathIEEEDoubBasBase,a6
	jsr	(-60,a6)		; IEEEDPNeg
	move.l	d0,fp0
	move.l	d1,fp0+4
	move.l	(a7)+,a6
	rts

	xref	_MathIEEEDoubBasBase
	xref	fp0