/.BC,.BD-- R**I,D**I
	.GLOBL .BC,.BD,.FS,.DF,.DE,.AW
	.GLOBL .AP,.AS,.T1,.ZS,.ER
.BC	0
	XCT*	.BC
	SZL
	JMP	BC0	/BASE=0
	AND*	.FS	/FAC SIGN.AND.I
	DAC	SIGN
	DZM*	.FS	/ABS VALUE
	JMS*	.ZS
	JMS*	.DE	/LOG
	JMS*	.AP
		.T1+400000
	XCT*	.BC
	JMS*	.AW	/FLOAT EX
	JMS*	.AS
		.T1+400000
	JMS*	.DF	/EXP( )
	LAC	SIGN
	DAC*	.FS
	JMS*	.ZS	/PUT SIGN IN .AB
BCEX	ISZ	.BC
	JMP*	.BC
.BD=.BC
/
BC0	SPA!SNA		/SKP IF > 0
	JMS*	.ER	/EX= 0 OR -
	SKP	+13	/OTS 13 OR SKP
	JMP	.	/IDLE
	JMP	BCEX	/ANS=0
SIGN	0
	.END