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
		
Offset   	equ 32768
SortieSon   equ 0
Index       equ 0
    
    import LongueurSon
    import Son
    import PWM_Set_Value_TIM3_Ch3
    export CallBackSon
; ===============================================================================================
	
   
	

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


CallBackSon proc 
	ldr r0, =Index
	ldr r1, [r0]  
	
	ldr r2, =LongueurSon
	ldr r2, [r2]
		
	cmp r1, r2
	beq FIN_Son
	
	add r1, #1
	str r1, [r0]	
	sub r1, #1	
    ldr r3, =Son	
	ldrsh r3, [r3,r1,LSL #1]	
	
	add r3, #Offset	
	mov r0, #360
	mul r3,r0
	ldr r0,=Offset
	udiv r3, r0
	
	
	ldr r0, =SortieSon
	str r3, [r0] 
	mov r0, r3 
	
	bl PWM_Set_Value_TIM3_Ch3

	bx lr		

FIN_Son
    mov r0, #0
	ldr r2, =SortieSon
	str r0, [r2]
	bx lr
	
    endp	
		
	END