e的x次方.doc

.def e_start,e_x,e_n STACK: .usect \"STACK\start: STM #STACK+10,SP LD #e_x,DP ST #4000H,e_x CALL e_start end: B end e_start:

.def e_start e_coeff .usect \"coeff\ .data

table: .word 2000H .word 2AAAH .word 4000H .word 7FFFH e_x .usect \"e_vars\e_temp .usect \"e_vars\e_n .usect \"e_vars\c_1 .usect \"e_vars\ .text

SSBX FRCT

STM #e_coeff,AR5 RPT #3

MVPD #table,*AR5+ STM #e_coeff,AR3 STM #e_x,AR2 STM #c_1,AR4 ST #7FFFH,c_1

||LD *AR4,B

MASR *AR2+,*AR3+,B,A MPYA A STH A,*AR2

MASR *AR2-,*AR3+,B,A MPYA *AR2+ ST B,*AR2 ||LD *AR4,B

MASR *AR2-,*AR3+,B,A MPYA *AR2+ ST B,*AR2 ||LD *AR4,B

MASR *AR2-,*AR3+,B,A STH A,e_n RET .end 结

果：