/ B library -- write

.globl	.write, n7

.write:
	.+2
	.+2
	mov	r4,r5
	cmp	(r5)+,(r5)+
	mov	(r5)+,r0	/ fd
	asl	(r5)
	mov	(r5)+,0f	/ buffer
	mov	(r5)+,1f	/ len
	sys	write; 0:..; 1:..
	bcc	2f
	mov	$-1,r0
2:	mov	r0,(r5)+
	jmp	n7