1: / error = access(name, mode); 2: / char *name; 3: 4: .globl _access 5: .globl csv, cret 6: .comm _errno,2 7: 8: _access: 9: jsr r5,csv 10: mov 4(r5),0f+2 11: mov 6(r5),0f+4 12: clr r0 13: sys 0; 0f 14: .data 15: 0: 16: sys access; ..; .. 17: .text 18: bec 1f 19: mov r0,_errno 20: mov $-1,r0 21: 1: 22: jmp cret