2.9BSD - /usr/src/lib/c/gen/modf11.s

   1: /*	@(#)modf11.s	2.1	SCCS id keyword	*/
   2: / double modf(x, *fp)
   3: / double x, *fp;
   4: / return fractional part
   5: / stash integer part (as double)
   6: 
   7: .globl  _modf
   8: .globl  csv, cret
   9: one     = 040200
  10: 
  11: _modf:
  12:         jsr     r5,csv
  13:         movf    4(r5),fr0
  14:         modf    $one,fr0
  15:         movf    fr1,*12.(r5)
  16:         jmp     cret

Defined functions