:
1 Ѳ?
2 Գ Ѳ-?
:
, n = 0, 1, 2,
:
, 4- :
1 DDR_A EQU 5000;
; ()
2 ADDR_B EQU 6000; bk
3 ADDR_C EQU 4000; n
4 ADDR_D EQU 3000; yn
5 ADDR_E EQU 2000; N
6 ORG Y:ADDR_B; Y-,
7 DC 0.9,0.8; 6000,
8 D 0.7,0.6; b
9 ORG X:ADDR_C; -,
; 4000,
; n
10 ORG X:ADDR_E; - 2000
11 D 4; N
12 ORG Y:ADDR_E; Y- 2000
13 DC 4;
14 ORG P:$100; ᒺ
; ,
; $100
15 MOVE #ADDR_E,R6; R6 N
16 MOVE #ADDR_D,R5; R5 Yn
17 MOVE #ADDR_B,R4; R4 bk
18 MOVE #ADDR_C,R1; R1 n
19 MOVE #ADDR_A,R0; R0
20 MOVE X:(RG),A; N
21 DEC A;
22 MOVE A,M0; N (0 = N 1)
23 CLR A;
24 REP X:(R6);
25 MOVE A,X(R0)+
26 MOVE M0,M4
27 MOVE X:(R1)+,X0; 0→0
28 D Y:(R6),loop
29 CLR A X0,X(R0)- Y:(R4)+,Y0; n→
; bk→Y0
30 REP M0
31 MAC X0,Y0,A X: (R0)-, X0 Y: (R4)+, Y0; -;
; bkn-k k = 0 k = N 2
32 D Y: (R6), loop; n→
33 CLR A X0, X: (R0)- Y: (R4)+, Y0; bk→Y0
34 RE M0
35 MAC X0, Y0, A X:(R0)-,X0 Y:(R4)+,Y0; bkn-k k = 0 k = N 2
36 MACR X0,Y0,A (R0)+; A yn, R0 n-N+1
37 MOVE X:(R1)+,X0 A,Y:(R5)+; n→X0,
; yn Y-
; 3000
loop;
() S 1, S 2, D : 24- S 1 S 2 / D; D.
MACR () S 1, S 2, D : 24- S 1 S 2, / D ; D.
:
1 ?
2 Ѳ-?
3 DSP 563 XX
MAC X0, Y0, A X: (R0)-, X0 Y: (R 4 )+, Y0?
|
|
:
1 5- .
2 , 5- , ?