home *** CD-ROM | disk | FTP | other *** search
/ minnie.tuhs.org / unixen.tar / unixen / PDP-11 / Trees / V7 / usr / src / libc / sys / open.s < prev    next >
Encoding:
Text File  |  1979-01-10  |  263 b   |  24 lines

  1. / C library -- open
  2.  
  3. / file = open(string, mode)
  4. / file == -1 means error
  5.  
  6. .globl    _open,
  7. .globl    cerror
  8. .open = 5.
  9.  
  10. _open:
  11.     mov    r5,-(sp)
  12.     mov    sp,r5
  13.     mov    4(r5),0f
  14.     mov    6(r5),0f+2
  15.     sys    0; 9f
  16.     bec    1f
  17.     jmp    cerror
  18. 1:
  19.     mov    (sp)+,r5
  20.     rts    pc
  21. .data
  22. 9:
  23.     sys    .open; 0:..; ..
  24.