UNIX 7th Ed. - /usr/src/libc/v6/lseek.c

   1: lseek(fd, off, ptr)
   2: int fd, ptr;
   3: long off;
   4: {
   5:     unsigned a;
   6: 
   7:     a = off;
   8: 
   9:     if (a == off)
  10:         return (syscall(19, fd, 0, a, ptr, 0));
  11:     a = off/512;
  12:     syscall(19, fd, 0, a, ptr+3, 0);
  13:     return(syscall(19, fd, 0, (int) (off%512), ptr, 0));
  14: }

Defined functions