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

	area  moncode, code, readonly
	export module
	
module	proc
	push {lr}
	push	{r9}
	push	{r8}
	mov	r9,r1
	mov	r8,r0	;on garde la valeur k dans r8
	ldr	r1,=TabSin
	bl	reelle
	push	{r0}
	mov	r0,r8	;je remets la valeur k dans r8
	ldr	r1,=TabCos
	bl	reelle
	pop	{r1}
	SMULL	r1,r2,r1,r1
	SMLAL	r1,r2,r0,r0
	mov	r0,r2
	pop	{r8}
	pop	{r9}
	pop	{pc}
	

	endp
	bx lr
	
	end