fpu     1
    xdef    _modf
_modf
    fmove.d 4(sp),fp0
    move.l  12(sp),a0
    fintrz.x    fp0,fp1
    fmove.d fp1,(a0)
    fsub.x  fp1,fp0
    rts