
	beq	4f
	cmp	r0,holquo
	beq	2f
	bis	$200,r0
	movb	r0,(r1)+
	cmp	r1,$eline-1
	blo	2b
4:
	tst	(sp)+
	br	err1
2:
	mov	(sp)+,r3
	mov	r1,-(sp)
	sub	r3,r1
	movb	$'h,-(r3)
	clr	r0
	div	$10.,r0