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

	area  moncode, code, readonly
	export reelle

reelle	proc
	
	mov	r2, #0
	mov r3,	#0
	
	
boucle	push	{r3}
	push	{r0}
	mul	r0,r0,r2
	and r0,#0x3F
	ldrsh	r3, [r1, r0, LSL #0x01]
	pop	{r0}
	;push	{r1}
	;ldr	r1,=TabSig
	ldrsh	r12, [r9,r2, LSL #0x01]
	;pop	{r1}
	mul	r12,r12,r3
	pop	{r3}
	add	r3,r3,r12
	add r2,#1
	cmp r2,#64
	bne boucle

	mov	r0,r3
	

	endp
	bx lr
	
	end