UNIX 6th Ed. - /usr/source/s3/fmod.s

   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

Defined functions