hannouch/grpC_Oussama_Boyu
0
0
Fork 0
Code Issues Pull requests Releases Wiki Activity

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

Browse source
This commit is contained in:
Oussama Hannouch 2023-04-10 23:55:47 +02:00
parent 351e5755d1
commit 0eb960b0e7
1 changed files with 34 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

35
soft/PjtKEIL_StepSon/Src/GestionSon.s
View file

@ -69,4 +69,37 @@ FIN
ENDP
END
END
EXPORT GestionSon
EXPORT StartSon
StartSon proc
eor r0, r0
ldr r1, =Son_index
str r0, [r1]
bx lr
endp
GestionSon proc
ldr r2, =LongueurSon
ldr r0, [r2]
ldr r2, =Son_index
ldr r1, [r2]
cmp r0, r1
bls EndOfSound ; if (LongeurSon <= Son_index) goto ResetGestionSon;
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]
ldr r3, =Sortie_son
str r0, [r3] ; Sortie_son = x
add r1, r1, #1
str r1, [r2] ; Son_index++;
b PWM_Set_Value_TIM3_Ch3
EndOfSound
bx lr
endp
END