fpu     1
    xdef    _log10
_log10
    flog10.d 4(sp),fp0
    rts