access.s

来自「unix v7是最后一个广泛发布的研究型UNIX版本」· S 代码 · 共 27 行

/ access(file, request)
/  test ability to access file in all indicated ways
/  1 - read
/  2 - write
/  4 - execute

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

.access = 33.

_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