fpu     1
    xdef    _fabs
_fabs
    fabs.d  4(sp),fp0
    rts