Commit | Line | Data |
---|---|---|
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 |