home *** CD-ROM | disk | FTP | other *** search
/ CD Shareware Magazine 1996 December / CD_shareware_12-96.iso / DOS / Programa / CCDL122.ZIP / CLIBS / MATH / 68K / FREXP.SRC < prev    next >
Encoding:
Text File  |  1996-06-13  |  175 b   |  11 lines
  1.     XDEF _frexp
  2.     section code
  3. _frexp:
  4.     FMOVE.D        (a0),fp1
  5.     FGETMAN.x    FP1,FP0
  6.     FGETEXP.X    FP1,FP2
  7.     move.l        (a0),a0
  8.     FMOVE.L        FP2,(a0)
  9.     FDIV.x        #2,FP0
  10.     add.l         #1,(a0)
  11.     rts