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