home *** CD-ROM | disk | FTP | other *** search
/ CD Shareware Magazine 1996 December / CD_shareware_12-96.iso / DOS / Programa / CCDL122.ZIP / CLIBS / MATH / 68K / MODF.SRC < prev    next >
Encoding:
Text File  |  1996-06-13  |  138 b   |  9 lines
  1.     XDEF _modf
  2.     section code
  3. _modf:
  4.     FINTRZ.d    (a0),FP0
  5.     fmove.d        (a0),FP1
  6.     fsub.x        FP0,FP1
  7.     move.l        (8,a0),a0
  8.     fmove.d        fp1,(a0)
  9.     rts