;
;   This software is copyright 1989 by John Dunning.  See the file
;   'COPYLEFT.JRD' for the full copyright notice.
;
;
; close an iocb
;
	.globl	_cclose
_cclose:
	.globl	_close
_close:
	jsr	popax		; get iocb num
	tax
	lda	#close
	sta	iccom,x
	jsr	ciov
	tya
	bmi	*+5
	ldx	#0
	rts
	ldx	#$FF
	rts