csub.asm

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

;=================================================
;AR0,ACC,ACCB
;E0[60]
;=================================================
;=================================================
;=================================================
CSUB
;=================================================
;  setr(l, 0.0, e0);
;=================================================
	CLR0 E0,60
;=================================================
;  confg(s, l, d1a, d2a, d3a, d4a, 0, 1, 1, 1);
;=================================================
	ZAP
	CALLD CONFG
	  SUB #1
	  SACL CONFG_FLAG
;=================================================
;  movefr(no + 1, d2b, d2a);
;  movefr(no + 1, d3b, d3a);
;  movefr(no + 1, d4b, d4a);
;=================================================
	MOVEFR 11,D2B,D2A
	MOVEFR 11,D3B,D3A
	MOVEFR 11,D4B,D4A
;=================================================
	;  impulse(l);
;=================================================
	CALL IMPULSE
;=================================================
;  psearch(l);
;=================================================
	CALL PSEARCH
;=================================================
;  setr(l, 0.0, e0);
;=================================================
	CLR0 E0,60
;=================================================
;  confg(s, l, d1a, d2a, d3a, d4a, 0, 1, 1, 1);
;=================================================
	CALLD CONFG
	  ZAP
	  SACL CONFG_FLAG
;=================================================
;  cbsearch(l, v);
;=================================================
	CALL CBSEARCH
;=================================================
;  movefr(l, v, e0);
;  confg(s, l, d1b, d2b, d3b, d4b, 1, 1, 1, 1);
;=================================================
	MOVEFR 60,V,E0
	ZAP
	CALLD CONFG
	  ADD #1
	  SACL CONFG_FLAG
;=================================================
;  movefr(idb, d1b, d1a);
;  movefr(no + 1, d2b, d2a);
;  movefr(no + 1, d3b, d3a);
;  movefr(no + 1, d4b, d4a);
;=================================================
	MOVEFR IDB,D1B,D1A
	MOVEFR 11,D2B,D2A
	MOVEFR 11,D3B,D3A
	MOVEFR 11,D4B,D4A
;=================================================
	;s[i+60]
;=================================================
;=================================================
	RET
;=================================================
;setr(l, 0.0, e0);
;  confg(s, l, d1a, d2a, d3a, d4a, 0, 1, 1, 1);
;  movefr(no + 1, d2b, d2a);
;  movefr(no + 1, d3b, d3a);
;  movefr(no + 1, d4b, d4a);
;  impulse(l);
;  psearch(l);
;  setr(l, 0.0, e0);
;  confg(s, l, d1a, d2a, d3a, d4a, 1, 1, 1, 1);
;  cbsearch(l, v);
;  movefr(l, v, e0);
;  confg(s, l, d1b, d2b, d3b, d4b, 1, 1, 1, 1);
;  movefr(idb, d1b, d1a);
;  movefr(no + 1, d2b, d2a);
;  movefr(no + 1, d3b, d3a);
;  movefr(no + 1, d4b, d4a);
;=================================================