/.BF,.BH--R**D,D**D
	.GLOBL .BF,.BH,.CB,.PW,.AS
.BF	0
	LAC*	.BF
	JMS*	.CB
	JMS*	.PW	/POWER RTN
	JMS*	.AS
	JMP*	.BF
.BH=.BF
	.END