/.PW--COMMON POWER ROUTINE
	.GLOBL	.PW,.ZS,.DE,.DF,.ER
.PW	0
	DAC	ARG	/GET EX ADD.
	JMS*	.ZS	/GET FAC SIGN & L
	SZL!SPA
	JMP	PW0	/0 OR -
	JMS*	.DE	/LOG
	XCT*	.PW	/.AS OR .AK
ARG		0
	JMS*	.DF	/DEXP( )
PWX	ISZ	.PW
	JMP*	.PW
/
PW0	SPA
	JMS*	.ER	/-BASE
	SKP	+13	/OTS 13 OR SKP
	JMP	.	/IDLE
	ISZ	ARG	/GET EX SIGN
	LAC*	ARG
	SNA!SPA
	JMP	PW0+1	/EX= 0 OR -
	JMP	PWX	/ANS=0
	.END