home *** CD-ROM | disk | FTP | other *** search
/ minnie.tuhs.org / unixen.tar / unixen / PDP-11 / Trees / V7 / usr / src / libc / sys / stime.s < prev    next >
Encoding:
Text File  |  1979-01-10  |  205 b   |  20 lines
  1. / error = stime(&long)
  2.  
  3. .globl    _stime
  4. .globl    cerror
  5. .stime = 25.
  6.  
  7. _stime:
  8.     mov    r5,-(sp)
  9.     mov    sp,r5
  10.     mov    4(sp),r1
  11.     mov    (r1)+,r0
  12.     mov    (r1),r1
  13.     sys    .stime
  14.     bec    1f
  15.     jmp    cerror
  16. 1:
  17.     clr    r0
  18.     mov    (sp)+,r5
  19.     rts    pc
  20.