cos.asm

基于C2000的余旋函数发生器

	.mmregs
	.def	_c_int0
	.sect	"vectors"
	b	_c_int0  
	b	_c_int0
	b	_c_int0
	b	_c_int0
	b	_c_int0
	b	_c_int0
	b	_c_int0
	b	_c_int0
	b	_c_int0

	.text
_c_int0:
	LAR		AR1,#60H
	MAR		*,AR1
	LAR	    AR2,#8000H
	LACC	#0000H
	SACL	*
	
RELOOP:
	DMOV	*+
	CALL	COS
	MAR		*,AR2
	SACL	*+,AR1
	LAR		AR1,#60H
	LACC	#2
	ADD		*
	SACL	*,AR2
	BANZ	RELOOP,*,AR1
	B		$
	
COS
	MAR		*+
	LT		*+
	
	LACC	#64H
	SACL	*
	MPYU	*
	PAC
	SACH	*+
	
	SACL	*
	LACC	*,15
	AND		#0FFFFH,15
	SACH	*-
	BCND	equal_cos,EQ
	LACC	#Table_cos
	ADD		*-
	
	TBLR	*+
	ADD		#1
	TBLR	*
	
	LACC    *-
	SUB		*+
	
	SACL	*+
	LT		*-
	MPY     *
	SPH		*-
	
	LACC	*+
	ADD		*,1
	RET
	
equal_cos
	LACC	#Table_cos
	ADD		*-
	TBLR	*
	LACC	*+
end_interp_cos	
	RET      
	
Table_cos	.include	"cos.tab"
Table_cos_end
	.word 0
	.end