PRESERVE8
	THUMB
	include Driver/DriverJeuLaser.inc
	

; ====================== zone de réservation de données,  ======================================
;Section RAM (read only) :
	area    mesdata,data,readonly
	extern TabCos
	extern LeSignal

;Section RAM (read write):
	area    maram,data,readwrite
		


; ===============================================================================================
	


		
;Section ROM code (read only) :		
	area    moncode,code,readonly
; écrire le code ici		

	EXPORT DFT_ModuleAuCarre


DFT_ModuleAuCarre proc

	push {lr}
	ldr r0,=Son
	ldr r1,=LongueurSon
	ldr r1,[r1]

	
	ldr r3,=Index ;on met l'adr d'Index dans r3
	ldrh r2,[r3]
	
	cmp r1,r2
	ble Fin
	push{r4,r5}
	
	ldrsh r0,[r0,r2, LSL #1]; en C Son[Index]
	add r2, r2, #1
	strh r2,[r3] ; maj Index
	mov r1, #32768
	add r0, r0, r1
	mov r4, #719
	mul r0, r0, r4
	asr r0, r0, #16
	
	ldr r5,=SortieSon
	str r0,[r5]
	bl PWM_Set_Value_TIM3_Ch3
	
	pop{r4,r5}
	
Fin

	pop {pc}

	endp
		

			
	END