/.BB--I**I
	.GLOBL .BB,.AD,.ER
.BB	0
	DAC	BASE	/ST BASE
	DZM	ANS
	ISZ	ANS	/INIT. ANS
	SAD	ANS
	JMP	BB10+1	/BASE=1,ANS=1
	XCT*	.BB	/GET EX
	GSM
	DAC	EXP
	SZL!SNA		/SIGN OF EX IN L
	JMP	BB00	/EX=0, OR -
BB06	LAC	EXP
	RCR		/SHIFT EXP
	DAC	EXP	/R1
	SNL
	JMP	BB07
	LAC	BASE
	JMS*	.AD	/BASE*ANS
	LAC	ANS
	DAC	ANS
BB07	LAC	EXP
	SNA		/EX=0?
	JMP	BB10	/YES,EXIT
	LAC	BASE
	JMS*	.AD	/BASE*BASE
	LAC	BASE
	DAC	BASE
	JMP	BB06
BB10	LAC	ANS
	ISZ	.BB
	JMP*	.BB
BASE	0
EXP	0
ANS	0
/
BB00	LAC	BASE
	SNA!CML!RAR
	JMS*	.ER	/BASE=0,EX=0 OR -
	SKP	13	/OTS 13, OR
			/SKP!CMA!CML!RAL
			/L=SIGN OF EX
			/A=0 IF BASE=-1
	JMP	.	/IDLE
	SNL
	JMP	BB10	/ANS=1 IF EX=0
	SZA!CLA		/ANS=0
	JMP	BB10+1
	ISZ	EXP	/2'S C(EXP)
	JMP	BB06
	.END