/ B library -- char

.globl	.char, n7

.char:
	.+2
	.+2
	mov	r4,r5
	cmp	(r5)+,(r5)+
	mov	(r5)+,r1	/ string
	asl	r1
	add	(r5),r1		/ add index
	movb	(r1),r0		/ get char
	mov	r0,(r5)+	/ return
	jmp	n7