;一個FIR濾波器源程序  fir.asm
			.mmregs
			.global start
			.def  	start,_c_int00
			     				
INDEX 		.set 	1
KS			.set  	256 					;模擬輸入數(shù)據(jù)緩沖區(qū)大小

N           .set    17 		            	
COFF_FIR	.sect  "COFF_FIR"				;FIR濾波器系數(shù)
			.word  0
			.word  158
			.word  264
			.word  -290
			.word  -1406
			.word  -951
			.word  3187
			.word  9287
			.word  12272
			.word  9287
			.word  3187
			.word  -951
			.word  -1406
			.word  -290
			.word  260
			.word  158
			.word  0
		    .data
INPUT	    .copy  	"firin.inc"            ;模擬輸入在數(shù)據(jù)存儲區(qū)0x2400
OUTPUT		.space	1024                   ;輸出數(shù)據(jù)在數(shù)據(jù)區(qū)0x2500
;FIR_DP		.usect	"FIR_VARS",0
;D_FIN		.usect	"FIR_VARS",1
;D_FOUT		.usect	"FIR_VARS",1          
COFFTAB	    .usect	"FIR_COFF",N
DATABUF		.usect	"FIR_BFR",N
BOS			.usect	"STACK",0Fh
TOS			.usect	"STACK",1 

			.text
			.asg	AR0,INDEX_P
			.asg	AR4,DATA_P	;輸入數(shù)據(jù)x(n)循環(huán)緩沖區(qū)指針
			.asg	AR5,COFF_P	;FIR系數(shù)表指針
			.asg 	AR6,INBUF_P ;模擬輸入數(shù)據(jù)指針
		 	.asg	AR7,OUTBUF_P;FIR濾波器輸出數(shù)據(jù)指針
_c_int00
		b start 
		nop
		nop
start:  ssbx  FRCT   
		STM 	#COFFTAB,COFF_P
		RPT 	#N-1 				;將FIR系數(shù)從程序存儲器移動
		MVPD	#COFF_FIR,*COFF_P+	;到數(shù)據(jù)存儲器
		
		STM		#INDEX,INDEX_P	
		STM		#DATABUF,DATA_P
		RPTZ	A,#N-1
		STL		A,*DATA_P+			;將數(shù)據(jù)循環(huán)緩沖區(qū)清零
		
		STM		#(DATABUF+N-1),DATA_P ;數(shù)據(jù)緩沖區(qū)指針指向x[n-(N-1)]
		STM		#COFFTAB,COFF_P		;
FIR_TASK:
        STM		#INPUT,INBUF_P		
        STM 	#OUTPUT,OUTBUF_P    
        STM		#KS-1,BRC
        RPTBD	LOOP-1
        STM		#N,BK				;FIR循環(huán)緩沖區(qū)大小
        LD		*INBUF_P+,A			;裝載輸入數(shù)據(jù)
FIR_FILTER:
 		STL		A,*DATA_P+%
 		RPTZ	A,N-1
 		MAC		*DATA_P+0%,*COFF_P+0%,A
 		STH		A,*OUTBUF_P+
LOOP:
EEND	B 	EEND
 		.end