;
; write(iocb, buf, nbytes)->nbytes written
;
	.globl	_write
_write:
	jsr	__rwsetup	; do common setup
	beq	write9		; if size 0, it's a no-op
	lda	#putchr
	sta	iccom,x
	jsr	ciov
	bpl	write9
	jmp	ioreturn	; do common error vector stuff
write9:
	lda	icbll,x		; get buf len lo
	pha
	lda	icblh,x		; buf len hi
	tax
	pla
	rts
;