PRESERVE8
	THUMB   

	import LongueurSon 
	import PeriodeSonMicroSec
	import Son
		
	include Driver/DriverJeuLaser.inc

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


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

Son_index dcd 0
SortieSon dcw 0
	
; ===============================================================================================
	

	EXPORT Son_index
	EXPORT SortieSon

		
;Section ROM code (read only) :		
	area    moncode,code,readonly
; écrire le code ici	
    EXPORT StartSon
	EXPORT CallbackSon
		
StartSon proc
    mov r0, #0 ; Charger la valeur 0 dans le registre r0
    ldr r1, =Son_index ; Charger l'adresse de la variable Son_index dans le registre r1
    str r0, [r1] ; Stocker la valeur de r0 dans la variable Son_index
    bx lr ; Retourner à l'appelant
    endp; Fin de la procédure StartSon

CallbackSon proc
	ldr r1, =LongueurSon ; Charger l'adresse de la variable LongueurSon dans le registre r1
	ldr r0, [r1] ; Charger la valeur de LongueurSon dans le registre r0
	ldr r1, =Son_index ; ; Charger l'adresse de la variable Son_index dans le registre r1
	ldr r2, [r1] ; Charger la valeur de Son_index dans le registre r2
	cmp r0, r2 ; Comparer LongueurSon et Son_index
	bls fin ; Sauter à l'étiquette "fin" si LongueurSon <= Son_index ;
	ldr r3, =Son ; Charger l'adresse du tableau Son dans le registre r3
	ldrsh r0, [r3, r1, lsl #1] ; r0 = Son[Son_index] ; Charger la valeur Son[Son_index] dans le registre r0
	add r0, #32768 ; Ajouter 32768 à r0
	mov r3, #720 ; Charger la valeur 720 dans le registre r3
	mul r0, r3 ; Multiplication de r0 par r3
	lsr r0, #16 ;x in [-32768; 32767] -> x in [0; 719] // Décalage logique à droite de r0 de 16 bits (division par 65536)
	ldr r3, =SortieSon ; Charger l'adresse de la variable SortieSon dans le registre r3
	str r0, [r3]  ; ; Stocker la valeur de r0 dans la variable SortieSon "Sortie_son = x"
	add r2, r2, #1 ; Incrémenter la valeur de Son_index
	str r2, [r1]  ; Son_index++; 
	b PWM_Set_Value_TIM3_Ch3 ; ; Appel de la fonction PWM_Set_Value_TIM3_Ch3
fin
	bx lr
	endp
    END