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

Defined functions

_modf declared in line 6; defined in line 10; used 13 times
one defined in line 8; used 1 times
  • in line 13
Last modified: 1979-01-10
Generated: 2016-12-26
Generated by src2html V0.67
page hit count: 365
Valid CSS Valid XHTML 1.0 Strict