home *** CD-ROM | disk | FTP | other *** search
/ minnie.tuhs.org / unixen.tar / unixen / PDP-11 / Trees / V7 / usr / src / libc / gen / modf11.s < prev    next >
Encoding:
Text File  |  1979-01-10  |  221 b   |  16 lines
  1. / double modf(x, *fp)
  2. / double x, *fp;
  3. / return fractional part
  4. / stash integer part (as double)
  5.  
  6. .globl    _modf
  7. .globl    csv, cret
  8. one    = 040200
  9.  
  10. _modf:
  11.     jsr    r5,csv
  12.     movf    4(r5),fr0
  13.     modf    $one,fr0
  14.     movf    fr1,*12.(r5)
  15.     jmp    cret
  16.