	.TITLE	POWR
;.MACRO	.POWR	X,Y,Z	;REAL EXPONENTIATION
;Z = X**Y = EXP(Y*LN(X)); BY JOSE DIAZ
	.GLOBL	.POWR,.CALL,.LN,.EXP
	.MCALL	.TLQ,.MOVF
A0=R0
ZZZ:	.BLKW	2
YYY:	.BLKW	2
XXX:	.BLKW	2
.POWR:	TSTF	XXX
	CFCC
	BLT	NEGX
	BGT	VV
	CLRF	ZZZ		;ZERO TO ANY POWER = 0
	RETURN
VV:	STF	A0,-(SP)
	.MOVF	XXX,.LN-4
	CALL	.LN
	LDF	.LN-10,A0
	MULF	YYY,A0
	STF	A0,.EXP-4
	CALL	.EXP
	.MOVF	.EXP-10,ZZZ
	LDF	(SP)+,A0
	RETURN
NEGX:	.TLQ	<.POWR: POWER OF NEG NUMBER>
	JMP	.CALL
	.END
                    