home *** CD-ROM | disk | FTP | other *** search
/ minnie.tuhs.org / unixen.tar / unixen / PDP-11 / Trees / V7 / usr / src / libc / sys / time.s < prev    next >
Encoding:
Text File  |  1979-01-10  |  397 b   |  38 lines
  1. / C library -- time
  2.  
  3. / tvec = time(tvec);
  4. /
  5. / tvec[0], tvec[1] contain the time
  6.  
  7. .globl    _time
  8. .time = 13.
  9.  
  10.  
  11. _time:
  12.     mov    r5,-(sp)
  13.     mov    sp,r5
  14.     sys    .time
  15.     mov    r2,-(sp)
  16.     mov    4(r5),r2
  17.     beq    1f
  18.     mov    r0,(r2)+
  19.     mov    r1,(r2)+
  20. 1:
  21.     mov    (sp)+,r2
  22.     mov    (sp)+,r5
  23.     rts    pc
  24.  
  25. .globl    _ftime
  26. .ftime    = 35.
  27.  
  28. _ftime:
  29.     mov    r5,-(sp)
  30.     mov    sp,r5
  31.     mov    4(r5),0f
  32.     sys    0; 9f
  33.     .data
  34. 9:    sys    .ftime; 0:..
  35.     .text
  36.     mov    (sp)+,r5
  37.     rts    pc
  38.