/ error	= access(name, mode);
/	  char *name;

.globl	_access
.globl	csv, cret
.comm	_errno,2

_access:
	jsr	r5,csv
	mov	4(r5),0f+2
	mov	6(r5),0f+4
	clr	r0
	sys	0; 0f
.data
0:
	sys	access; ..; ..
.text
	bec	1f
	mov	r0,_errno
	mov	$-1,r0
1:
	jmp	cret