fpu     1
    xdef    _tan
_tan
    ftan.d  4(sp),fp0
    rts