# double float sin(),cos()
#coefficients are from Hart & Cheney SIN3370 (18.80D)
emodd twoopi,twoopix,r0,r8,r6
bse: .word qda-bse,qdb-bse,qdc-bse,qdd-bse
qdb: subd3 r6,$0d1.0e+0,r6
twoopi:.double 0d6.36619772367581340000e-01
qcoef:.double 0d1.00000000000000000000e+00
.double 0d1.32653490878613630000e+02
.double 0d9.46309610153820810000e+03
.double 0d4.08179225234329970000e+05
.double 0d8.64455865292253430000e+06
pcoef:.double 0d1.45968840666576870000e+02
.double 0d-1.38472724998245280000e+04
.double 0d4.40103053537526640000e+05
.double 0d-4.94290810090284410000e+06
.double 0d1.35788409787737560000e+07