home *** CD-ROM | disk | FTP | other *** search
/ minnie.tuhs.org / 2014.11.minnie.tuhs.org.tar / minnie.tuhs.org / UnixArchive / PDP-11 / Trees / V6 / usr / source / s5 / open.s < prev    next >
Text File  |  1975-05-14  |  246b  |  23 lines
  1. / C library -- open
  2.  
  3. / file = open(string, mode)
  4. /
  5. / file == -1 means error
  6.  
  7. .globl    _open, cerror
  8.  
  9. _open:
  10.     mov    r5,-(sp)
  11.     mov    sp,r5
  12.     mov    4(r5),0f
  13.     mov    6(r5),0f+2
  14.     sys    0; 9f
  15.     bec    1f
  16.     jmp    cerror
  17. 1:
  18.     mov    (sp)+,r5
  19.     rts    pc
  20. .data
  21. 9:
  22.     sys    open; 0:..; ..
  23.