home *** CD-ROM | disk | FTP | other *** search
/ minnie.tuhs.org / unixen.tar / unixen / PDP-11 / Trees / V7 / usr / src / libc / sys / lseek.s < prev    next >
Encoding:
Text File  |  1979-01-10  |  321 b   |  27 lines
  1. / C library -- lseek
  2.  
  3. / error = lseek(file, offset, ptr);
  4. / long offset
  5. / long lseek()
  6.  
  7. .globl    _lseek, cerror
  8. .lseek    = 19.
  9.  
  10. _lseek:
  11.     mov    r5,-(sp)
  12.     mov    sp,r5
  13.     mov    4(r5),r0
  14.     mov    6(r5),0f
  15.     mov    8(r5),0f+2
  16.     mov    10.(r5),0f+4
  17.     sys    0; 9f
  18.     bec    1f
  19.     mov    $1,r1
  20.     jmp    cerror
  21. 1:
  22.     mov    (sp)+,r5
  23.     rts    pc
  24. .data
  25. 9:
  26.     sys    .lseek; 0:..; ..; ..
  27.