impulse.asm

文件为美军4800bps语音压缩编码标准在TI的DSP芯片TMS320C5X上的实时实现源代码。

IMP_DEBUG	.SET 0
	.IF IMP_DEBUG
	.version        50
	.mmregs
	.MLIB "MAC.LIB"
	.BSS ACCBUF,2
	.BSS SIGNFLAG,1
IMP_D5	.USECT "WARRAY",11*2
IMP_H	.USECT "WARRAY",60
TEMPLPC .USECT "WARRAY",10
	.DATA
LPC	.INT 0d63aH,0d25H,0fce3H,358H,15fH,0fbe8H,4efH,0fd9eH,0fd4bH,3b6H
BWPOW_80 .INT 6666H,51ecH,4189H,346eH,29f1H,218eH,1ad8H,157aH,112eH,0dbeH
	.TEXT
	CALL C50_INIT
	LDP #ACCBUF
	CALL IMPULSE
HERE	B $
	.ENDIF
	;--------------IMPULSE
;IMP_D5	.USECT "WARRAY",11*2
;IMP_H	.USECT "WARRAY",60

IMPULSE
;===========================================
;  setr(l, 0.0, h);
;  setr(no + 1, 0.0, d5);
;==========================================
	CLR0 IMP_H,60
	CLR0 IMP_D5,22
;===========================================
;  bwexp_con(gamma2, fc, fctemp, no);
;==========================================
	CALL BWEXP_CON
;===========================================
;  h[0] = 0x2000;
;  pole_con(fctemp, no, d5, h, l);
;==========================================
	LACC #2000H
	LAR AR0,#IMP_H
	SACL *
	LACC #TEMPLPC
	SACL POLE_A
	LACC #IMP_H
	SACL POLE_XY
	LACC #IMP_D5
	SACL POLE_Z
	CALL POLE_CON
;===========================================
	RET
;==========================================
;impulse(60)
;{ float d5[MAXNO+1], fctemp[MAXNO + 1];
;  setr(l, 0.0, h);
;  setr(no + 1, 0.0, d5);
;  bwexp_con(gamma2, fc, fctemp, no);
;  h[0] = 0x2000;
;  pole_con(fctemp, no, d5, h, l);
;}
;=============================================
	.IF IMP_DEBUG
	.INCLUDE "C50_INIT.ASM"
	.INCLUDE "POLE_CON.ASM"
	.INCLUDE "BWEX_CON.ASM"
	.INCLUDE "MPY16_32.ASM"
	.ENDIF