TEXT    acos(SB),$0
       FACOSD  a+0(FP),F0
       RTS