Plan 9 from Bell Labs’s /usr/web/sources/plan9/sys/src/libc/386/387/tan.s
TEXT tan(SB), $0 FMOVD a+0(FP), F0 FPTAN FMOVDP F0, F0 /* get rid of extra 1.0 */ RET