Опыт есть Код /* Project: * Target: 1892ВМ3Т (MC-12) Date: * Author: * */ .globl dsp_window .text .set n,R10 .set j,R12 .set ww,R14 ;R16 used in loop .set data,R18 .set cos_tab,R20 .set len,R22 ;parameters: ;R10 = a[0]; ;R12 = a[1]; ;R14 = a[2]; ;R16 = a[3]; ;R18 = TO_DSP(dspXRAM->data); ;R20 = TO_DSP(dspXRAM->cos_tab); ;R22 = len; dsp_window: MOVE dsp_window_a,A7 MOVE 1,I7 MOVE 0xffff,M7 MOVE R10,(A7)+ MOVE R12,(A7)+ MOVE R14,(A7)+ MOVE R16,(A7)+ MOVE data,A0 MOVE 1,I0 MOVE 0xffff,M0 MOVE cos_tab,A1 MOVE 1,I1 MOVE 0xffff,M1 ;for (n=0; n<len; n++) CLRL n do len, dsp_window1 ;float ww = 0; CLRL ww ;for (j=0; j<4; j++) CLRL j MOVE 4,R16 MOVE dsp_window_a,A7 do R16, dsp_window2 ; ww += a[j] * cos(j * 2.0f * (float)M_PI * n /(len-1)); MOVE cos_tab,A1; A1 = cos_tab; MPUU j,n,R0; R0 = j * n; ;while(R0>=len) R0 -= len; DECL len,R2 CMP R0,R2 SUBL.le R2,R0,R0 CMP R0,R2 SUBL.le R2,R0,R0 CMP R0,R2 SUBL.le R2,R0,R0 CMP R0,R2 SUBL.le R2,R0,R0 MOVE R0,I1; I1 = R0; MOVE (A1+I1),R0; R0 = cos(...); MOVE (A7)+,R2; R2=a[j]; FMPY R0,R2,R0 FADD ww,R0,ww; ww += a[j] * cos(...); INCL j,j dsp_window2: nop MOVE (A0),R0 FMPY R0,ww,R0 MOVE R0,(A0)+ INCL n,n dsp_window1: nop stop nop nop .data dsp_window_a: .space 4*4,0; a0...a3
