TEXT    cos(SB),$0
       FCOSD   a+0(FP),F0
       RTS