;======================================
;FUNCTION POWER(X,Y :REAL) :REAL;
	NAME POWER
	ENTRY POWER
POWER:
	ENTR	D,2,0
;  POWER := EXP( LN(X) * Y)
	STMT	D,1
	LXI	H,-4
	DADD	S
	SPHL
	LXI	H,-4
	DADD	S
	SPHL
	LXI	H,-4
	DADD	S
	SPHL
	XCHG
	PUSH	IX
	POP	H
	LXI	B,12
	DADD	B
	LXI	B,4
	LDIR
	CALL	L134
	STMT	M,1
	LXI	H,-4
	DADD	S
	SPHL
	XCHG
	PUSH	IX
	POP	H
	LXI	B,8
	DADD	B
	LXI	B,4
	LDIR
	MULT	D,-4
;END;
	CALL	L133
	STMT	M,1
	LXI	H,3
	DADD	S
	XCHG
	PUSH	IX
	POP	H
	LXI	B,19
	DADD	B
	XCHG
	LXI	B,4
	LDDR
	POP	H
	POP	H
	EXIT	D,8
;
TMT	M,1
	LXI	H,3
	DADD	S
	XCHG
	PUSH	IX
	POP	H
	LXI	B,1