; ce programme est pour l'assembleur RealView (Keil)
	thumb
	area  moncode, code, readonly
	export calcul_carre
	import TabCos
	import TabSin
;

calcul_carre proc
	
	push {r4}
	push {r5}
	
	ldr r4, =TabSin
	ldr	r5, =TabCos
	ldrh r2, [r4, r0, LSL #1]
	ldrh r0, [r5, r0, LSL #1]
	
	mul r0, r0 
	mul r2, r2
	
	add r0, r2
	
	pop {r5}
	pop {r4}
	
	bx lr
	endp
		
	end