RET
cosx:
.def d_xc,d_cosx
d_coef_c .usect "coef_c",4
.data
table_c .word 0249h
.word 0444h
.word 0aabh
.word 4000h
d_xc .usect "cos_vars",1 d_squr_xc .usect "cos_vars",1 d_temp_c .usect "cos_vars",1 d_cosx .usect "cos_vars",1 c_l_c .usect "cos_vars",1 .text
SSBX FRCT
STM #d_coef_c,AR5 RPT #3
MVPD #table_c,*AR5+ STM #d_coef_c,AR3 STM #d_xc,AR2
STM #c_l_c,AR4
ST #7FFFh,c_l_c SQUR *AR2+,A
ST A,*AR2
||LD *AR4,B
MASR *AR2+,*AR3+,B,A MPYA A