/.BE,.BG--R**R,D**R
	.GLOBL .BE,.BG,.CB,.PW,.AK
.BE	0
	LAC*	.BE
	JMS*	.CB
	JMS*	.PW	/POWER RTN
	JMS*	.AK
	JMP*	.BE
.BG=.BE
	.END