fir.asm

fir的c语言程序

******************************************************
*			fir.asm		                             *
******************************************************

			.title "fir.asm"
			.mmregs
		
			.def _c_int00
			
K_FIR_INDEX	 .SET 	1
K_FIR_BFFR	 .SET	37
K_FRAME_SIZE .SET   256
			 .data
			
output      .space  K_FRAME_SIZE*16
;input		.copy 	fir_impulse_input
input		.copy 	fir_1k_25k_input
;input		.copy 	fir_1k_3k_input
COFF		.sect  "COEF_FIR"
			.word  -32
			.word  -117
			.word  0
			.word  212
			.word  104
			.word  -228
			.word  -304
			.word  294
			.word  602
			.word  -154
			.word  -973
			.word  -232
			.word  1366
			.word  1035
			.word  -1717
			.word  -2778
			.word  1959
			.word  10184
			.word  14336
			.word  10184
			.word  1959
			.word  -2778
			.word  -1717
			.word  1035
			.word  1366
			.word  -232
			.word  -973
			.word  -154
			.word  602
			.word  294
			.word  -304
			.word  -288
			.word  104
			.word  212
			.word  0
			.word  -117
			.word  -32			
COFF_END


coff_table  .USECT "FIR_COFF",20
data_buffer .USECT "FIR_BFR",40

			.text
_c_int00:
			STM  #coff_table ,AR5
			RPT  #K_FIR_BFFR-1
			MVPD #COFF,*AR5+
			STM  #K_FIR_INDEX, AR0
			STM  #data_buffer,AR4
			RPTZ A,#K_FIR_BFFR
			STL	 A,*AR4+
			
			STM #(data_buffer+K_FIR_BFFR-1),AR4
			STM #coff_table,AR5
			
FIR_TASK	STM #input,AR6
			STM #output,AR7
			STM K_FRAME_SIZE-1,BRC
			RPTBD FIR_FILTER_LOOP-1
			STM #K_FIR_BFFR,BK
			LD  *AR6+,A
FIR_FILTER: 
			STL A,*AR4+%
			RPTZ A,(K_FIR_BFFR-1)
			MAC *AR4+0%,*AR5+0%,A
			STH A,*AR7+
FIR_FILTER_LOOP

END:	B 	END
		.end