geforkt von acco/chti23
64 Zeilen
Kein EOL
2,1 KiB
ArmAsm
64 Zeilen
Kein EOL
2,1 KiB
ArmAsm
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
|
|
;Charger la valeur 0 dans le registre r0
|
|
mov r0, #0
|
|
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 |