/ B library -- getchar

.globl	.getcha, .fin
.globl n7

.getcha:
	.+2
	.+2
	mov	r4,r5
	cmp	(r5)+,(r5)+
	mov	.fin,r0		/ get default fd
	sys	read; ch; 1
	bcs	1f		/ error
	tst	r0
	bne	2f		/ not EOF
1:	clr	ch		/ return EOF
2:	mov	ch,(r5)+
	jmp	n7		/ return with value

ch:	0
.fin:	0