fpu     1
    xdef    _cos
_cos
    fcos.d  4(sp),fp0
    rts