forked from acco/chti23
87 lines
No EOL
1.4 KiB
ArmAsm
87 lines
No EOL
1.4 KiB
ArmAsm
PRESERVE8
|
|
THUMB
|
|
|
|
|
|
; ====================== zone de réservation de données, ======================================
|
|
;Section RAM (read only) :
|
|
area mesdata,data,readonly
|
|
|
|
|
|
;Section RAM (read write):
|
|
area maram,data,readwrite
|
|
|
|
export SortieSon
|
|
export CallbackSon
|
|
export StartSon
|
|
export Index
|
|
|
|
import Son
|
|
import LongueurSon
|
|
import PeriodeSonMicroSec
|
|
import PWM_Set_Value_TIM3_Ch3
|
|
|
|
Index dcd 0
|
|
SortieSon dcw 0
|
|
|
|
; ===============================================================================================
|
|
|
|
;static short int SortieSon;
|
|
;static int i
|
|
;if (i<LongueurSon){
|
|
;SortieSon=(Son[i]+32768)*719/65535;
|
|
;i+=1
|
|
;}
|
|
|
|
;Section ROM code (read only) :
|
|
area moncode,code,readonly
|
|
|
|
|
|
; écrire le code ici
|
|
|
|
|
|
CallbackSon proc
|
|
push {lr,r3-r5}
|
|
;r0=&son
|
|
ldr r0,=Son
|
|
;static int i,r1=&index,r2=index
|
|
ldr r1,=Index
|
|
ldr r2,[r1]
|
|
;r3=LongueurSon
|
|
ldr r3,=LongueurSon
|
|
ldr r3,[r3]
|
|
;if (i<LongueurSon)
|
|
|
|
cmp r2, r3
|
|
beq arret
|
|
;SortieSon=(Son[i]+32768)*719/65535;
|
|
ldr r4,=SortieSon
|
|
;Lire le valeur de son avec r5
|
|
ldrsh r5, [r0, r2, lsl #1]
|
|
mov r3, #0x8000
|
|
add r5, r3
|
|
mov r3, #0x2CF
|
|
mul r5, r3
|
|
;on résoud le problem de division par asr, on fait la décalage de 16 bit vers le fort
|
|
mov r3, #16
|
|
asr r5, r3
|
|
|
|
str r5,[r4]
|
|
;i+=1
|
|
add r2, #1
|
|
str r2,[r1]
|
|
|
|
|
|
bl PWM_Set_Value_TIM3_Ch3 ;mis de la sortie PWM
|
|
|
|
|
|
arret
|
|
pop {lr,r3-r5}
|
|
bx lr
|
|
endp
|
|
|
|
StartSon proc
|
|
ldr r1,=Index
|
|
mov r3,#0;
|
|
str r3,[r1]
|
|
bx lr
|
|
END
|