[unix-history] / misc / access.s

/ access(file, request)
/  test ability to access file in all indicated ways
/  4 - read
/  2 - write
/  1 - 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
Commit	Line	Data
ddcb4516 BJ	1	/ access(file, request)
	2	/ test ability to access file in all indicated ways
	3	/ 4 - read
	4	/ 2 - write
	5	/ 1 - execute
	6
	7	.globl _access
	8	.globl csv, cret
	9	.comm _errno,2
	10
	11	access = 33.
	12
	13	_access:
	14	jsr r5,csv
	15	mov 4(r5),0f+2
	16	mov 6(r5),0f+4
	17	clr r0
	18	sys 0; 0f
	19	.data
	20	0: sys access; ..; ..
	21	.text
	22	bec 1f
	23	mov r0,_errno
	24	mov $-1,r0
	25	1:
	26	jmp cret