home *** CD-ROM | disk | FTP | other *** search
/ minnie.tuhs.org / unixen.tar / unixen / PDP-11 / Distributions / ucb / 2bsd.tar.gz / 2bsd.tar / misc / access.s < prev    next >
Text File  |  1979-04-19  |  334b  |  27 lines
  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
  27.