tan.s 91 B

12345
  1. TEXT tan(SB), $0
  2. FMOVD a+0(FP), F0
  3. FPTAN
  4. FMOVDP F0, F0 /* get rid of extra 1.0 */
  5. RET