; fp0:=fp0^fp1
	fpu	1

	xdef	_Pow

_Pow	move.l	a6,-(a7)
	move.l	fp1,d2
	move.l	fp1+4,d3
	tst.l	d2
	bne.s	.next
	bra.s	.cont
.next	tst.l	d3
	beq.s	.retone
.cont	move.l	fp0,d0
	move.l	fp0+4,d1
	movea.l	_MathIEEEDoubTransBase,a6
	jsr	(-90,a6)		; IEEEDPPow
	move.l	d0,fp0
	move.l	d1,fp0+4
	move.l	(a7)+,a6
	rts
.retone	move.l	#$3ff00000,fp0	; 1.0
	move.l	#$00000000,fp0+4
	move.l	(a7)+,a6
	rts

	xref	fp0
	xref	fp1
	xref	_MathIEEEDoubTransBase