fpu     1
    xdef    _atan
_atan
    fatan.d 4(sp),fp0
    rts