MACHINE	68030
	FPU
	IDNT	pow.s
	SECTION	text,code
	CNOP	0,2
	XDEF	_pow
	XREF	_errno
_pow:
	FMOVEM FP3-FP2,-(SP)
	MOVE.L D2,-(SP)
	FMOVE.D 32(SP),FP2
	FMOVE.D 40(SP),FP1
	FMOVECR #$F,FP3
	FCMP.X FP3,FP2
	FBNGT L75
	FLOGN.X FP2,FP0
	BRA L91
L75:
	FMOVECR #$F,FP3
	FCMP.X FP3,FP2
	FBNE L79
	FCMP.X FP3,FP1
	FBNGT L80
	FMOVECR #$F,FP0
	BRA L74
L80:
	MOVEQ #8,D2
	MOVE.L D2,_errno
	FMOVE.D #$7FFFFFFFFFFFFFFF,FP0
	BRA L74
L79:
	FINTRZ.X FP1,FP0
	FCMP.X FP0,FP1
	FBNE L83
	FINTRZ.X FP1,FP0
	FMOVE.L FP0,D0
	BTST #0,D0
	BNE L84
	FNEG.X FP2,FP0
	FLOGN.X FP0,FP0
L91:
	FMUL.X FP1,FP0
	FETOX.X FP0,FP0
	BRA L74
L84:
	FNEG.X FP2,FP0
	FLOGN.X FP0,FP0
	FMUL.X FP1,FP0
	FETOX.X FP0,FP0
	FNEG.X FP0,FP0
	BRA L74
L83:
	MOVEQ #8,D2
	MOVE.L D2,_errno
	FMOVE.D #$7FFFFFFFFFFFFFFF,FP0
L74:
	MOVE.L (SP)+,D2
	FMOVEM (SP)+,FP2-FP3
	RTS

	END