breakout:
	clr	token2		/initialize tokens
	clr	token3
	clr	token4
	mov	$bline,r0
0:
	cmpb	(r0),$'\n
	beq	5f
	cmpb	(r0),$'/
	beq	2f
1:				/inc to next char
	inc	r0
	br	0b
2:				/control here if "/"
	mov	r0,token2
	inc	r0
	cmpb	(r0),$'*	/"*" after "/"?
	bne	4f
	mov	r0,token3
	inc	r0
4:
	cmpb	(r0),$'\n
	beq	5f
	inc	r0
	br	4b
5:				/control here when <nl>
	mov	r0,token4
	rts	r5		/return
