;
; common rtn for read, write
;
	.globl	__rwsetup
__rwsetup:
	ldy	#4
	jsr	ldaxysp		; get iocb
	sta	tmp3		; save it
	ldy	#0
	jsr	ldaxysp		; get size
	php			; save cond codes, for zero-ness
	stx	tmp2
	ldx	tmp3		; iocb
	sta	icbll,x
	lda	tmp2		; size hi
	sta	icblh,x
	ldy	#2		; get buf addr
	jsr	ldaxysp
	stx	tmp2
	ldx	tmp3
	sta	icbal,x
	lda	tmp2
	sta	icbah,x
	jsr	incsp6		; pop args
	plp
	rts
;