el-jid/CHti23
1
0
Fork 0
Code Issues Pull requests Releases Wiki Activity

introduction du StarSon et modification du CallbackSon

Browse source
This commit is contained in:
Oussama El-Jid 2023-04-11 18:00:06 +02:00
parent e243030bba
commit a6a090d347
1 changed files with 41 additions and 49 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

84
BE-chti C/soft/PjtKEIL_StepSon/Src/GestionSon.s
View file

@ -1,20 +1,11 @@
PRESERVE8 PRESERVE8
THUMB THUMB
EXPORT CallbackSon
EXPORT SortieSon
EXPORT i
IMPORT Son
IMPORT LongueurSon
INCLUDE DriverJeuLaser.inc
;void CallbackSon(void){
; static int i = 0;
; if(i < 5512){
;0 SortieSon = (Son[i] + 32768) * 719 / 65535;
; i++;
; }
;}
import LongueurSon
import PeriodeSonMicroSec
import Son
include Driver/DriverJeuLaser.inc
; ====================== zone de réservation de données, ====================================== ; ====================== zone de réservation de données, ======================================
;Section RAM (read only) : ;Section RAM (read only) :
@ -24,48 +15,49 @@
;Section RAM (read write): ;Section RAM (read write):
area maram,data,readwrite area maram,data,readwrite
i dcd 0
SortieSon dcw 0
Son_index dcd 0
SortieSon dcw 0
; =============================================================================================== ; ===============================================================================================
EXPORT Son_index
EXPORT SortieSon
;Section ROM code (read only) : ;Section ROM code (read only) :
area moncode,code,readonly area moncode,code,readonly
; écrire le code ici ; é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 CallbackSon proc
push {lr} ldr r1, =LongueurSon
ldr r0, [r1]
ldr r0,=i ldr r1, =Son_index
ldr r1, [r0] ldr r2, [r1]
ldr r2,LongueurSon cmp r0, r2
cmp r2, r1 bls fin ; if (LongeurSon <= Son_index) ;
; if(i < 5512) ldr r3, =Son
ble fin ldrsh r0, [r3, r1, lsl #1] ; r0 = Son[Son_index]
add r0, #32768
ldr r3,=Son mov r3, #720
ldrsh r2, [r3,r1, LSL#1] mul r0, r3
add r2, #32768 lsr r0, #16 ;x in [-32768; 32767] -> x in [0; 719] // divise r0 par 65536
mov r12, #719 ldr r3, =SortieSon
mul r2, r12 str r0, [r3] ; Sortie_son = x
mov r12, #65535 add r2, r2, #1
udiv r2, r12 str r2, [r1] ; Son_index++;
; i++; b PWM_Set_Value_TIM3_Ch3
add r1, #1
str r1, [r0]
; On stocke enfin la sortie son
ldr r0, =SortieSon
strh r2, [r0]
mov r0, r2
bl PWM_Set_Value_TIM3_Ch3
fin fin
pop {pc} bx lr
ENDFUNC endp
END
END