PRESERVE8
	THUMB   
		

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


;Section RAM (read write):
	area    maram,data,readwrite
		
	export SortieSon
	export CallbackSon
	export StartSon
	export Index
	
	import Son
	import LongueurSon
	import PeriodeSonMicroSec
	import PWM_Set_Value_TIM3_Ch3

Index dcd 0
SortieSon dcw 0
	
; ===============================================================================================
	
;static short int SortieSon;
;static int i
;if (i<LongueurSon){
;SortieSon=(Son[i]+32768)*719/65535;
;i+=1
;}
		
;Section ROM code (read only) :		
	area    moncode,code,readonly
	

; écrire le code ici		


CallbackSon proc
	push {lr,r3-r5}
;r0=&son
	ldr r0,=Son
;static int i,r1=&index,r2=index
	ldr r1,=Index
	ldr r2,[r1]
;r3=LongueurSon
	ldr r3,=LongueurSon
	ldr r3,[r3]
;if (i<LongueurSon)

	cmp r2, r3
	beq arret
;SortieSon=(Son[i]+32768)*719/65535;
	ldr r4,=SortieSon
	;Lire le valeur de son avec r5
	ldrsh r5, [r0, r2, lsl #1]        
	mov r3, #0x8000
	add r5, r3
	mov r3, #0x2CF
	mul	r5, r3
	;on résoud le problem de division par asr, on fait la décalage de 16 bit vers le fort
	mov	r3, #16
	asr r5, r3 
	
	str r5,[r4]
	;i+=1
	add r2, #1
	str	r2,[r1]
	
	
	bl PWM_Set_Value_TIM3_Ch3  ;mis  de la sortie PWM
	
	
arret
	pop {lr,r3-r5}
	bx lr
	endp
		
StartSon proc 
	ldr r1,=Index
	mov r3,#0;
	str r3,[r1]
	bx lr
END