; ce programme est pour l'assembleur RealView (Keil)
	thumb
	
	import TabCos
	import TabSin
	import TabSig

	area  moncode, code, readonly
	export module
	
module	proc
	ldr	r1,=TabCos
	bx	boucle
	push	{r0}
	ldr	r1,=TabSin
	bx	boucle
	pop	{r1}
	mla	r0,r0,#1,r1
	
	

	endp
	bx lr
	
	end