home *** CD-ROM | disk | FTP | other *** search
/ minnie.tuhs.org / unixen.tar / unixen / PDP-11 / Trees / V6 / usr / source / fort / rt2 / ctime.s next >
Encoding:
Text File  |  1975-07-17  |  196 b   |  16 lines
  1. .globl    ctime., retrn, temp
  2. ctime.:    temp
  3.     .+2
  4.     sys    time
  5.     clr    temp
  6.     mov    r0,temp+2
  7.     setd
  8.     setl
  9.     movif    temp,fr0
  10.     mulf    $44200,fr0
  11.     mov    r1,temp+2
  12.     movif    temp,fr1
  13.     addf    fr1,fr0
  14.     movf    fr0,temp
  15.     jmp    retrn
  16.