Update 'soft/PjtKEIL_StepSon/Src/GestionSon.s'

This commit is contained in:
Oussama Hannouch 2023-05-23 21:49:15 +02:00
parent e6d340948e
commit 1ec363fdcd

View file

@ -40,23 +40,23 @@ StartSon proc
endp; Fin de la procédure StartSon
CallbackSon proc
ldr r1, =LongueurSon
ldr r0, [r1]
ldr r1, =Son_index
ldr r2, [r1]
cmp r0, r2
bls fin ; if (LongeurSon <= Son_index) ;
ldr r3, =Son
ldrsh r0, [r3, r1, lsl #1] ; r0 = Son[Son_index]
add r0, #32768
mov r3, #720
mul r0, r3
lsr r0, #16 ;x in [-32768; 32767] -> x in [0; 719] // divise r0 par 65536
ldr r3, =SortieSon
str r0, [r3] ; Sortie_son = x
add r2, r2, #1
str r2, [r1] ; Son_index++;
b PWM_Set_Value_TIM3_Ch3
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