fpu     1
    xdef    _frexp
_frexp
    fmove.d 4(sp),fp1
    fgetman.x   fp1,fp0
    fgetexp.x   fp1
    fmove.l     fp1,d0
    addq.l  #1,d0
    move.l  12(sp),a0
    move.l  d0,(a0)
    fdiv.l  #2,fp0
    rts