home *** CD-ROM | disk | FTP | other *** search
/ minnie.tuhs.org / unixen.tar / unixen / PDP-11 / Trees / V6 / usr / source / s3 / fmod.s < prev    next >
Encoding:
Text File  |  1975-05-13  |  265 b   |  18 lines
  1. / C floating mod
  2. / fmod(a,b) returns a number n such that
  3. /    i*b + n is a and 0 <= n < b
  4.  
  5. .globl    _fmod
  6. _fmod:
  7.     mov    r5,-(sp)
  8.     mov    sp,r5
  9.     movf    4(r5),fr0
  10.     divf    12.(r5),fr0
  11.     modf    $one,fr0
  12.     mulf    12.(r5),fr1
  13.     movf    4(r5),fr0
  14.     subf    fr1,fr0
  15.     mov    (sp)+,r5
  16.     rts    pc
  17. one = 40200
  18.