74 lines
No EOL
1.5 KiB
ArmAsm
74 lines
No EOL
1.5 KiB
ArmAsm
PRESERVE8
|
|
THUMB
|
|
|
|
export CallbackSon
|
|
import Son
|
|
import LongueurSon
|
|
|
|
|
|
; ====================== zone de réservation de données, ======================================
|
|
;Section RAM (read only) :
|
|
area mesdata,data,readonly
|
|
|
|
|
|
;Section RAM (read write):
|
|
area maram,data,readwrite
|
|
|
|
SortieSon dcw 0 ; reserve seulement 2 octet de memoire
|
|
Index dcw 0
|
|
|
|
; ===============================================================================================
|
|
|
|
|
|
|
|
|
|
;Section ROM code (read only) :
|
|
area moncode,code,readonly
|
|
; écrire le code ici
|
|
;
|
|
;if (i<LongueurSon) {
|
|
;
|
|
; sample = Son[i];
|
|
; SortieSon = sample * (720/65536) + 360
|
|
; i++;
|
|
;}else {
|
|
; i=0;
|
|
;}
|
|
|
|
CallbackSon proc
|
|
push {lr}
|
|
|
|
ldr r0, = Index; ; On charge la valeur d'index
|
|
ldr r1, [r0] ;
|
|
ldr r2, = LongueurSon; ; On charge la valeur de la longueur son
|
|
ldr r3, [r2] ;
|
|
|
|
cmp r3, r1 ; On regarde si on est arrivé au bout du tableau
|
|
ble Sinon
|
|
|
|
ldr r2, = Son; ; On charge la valeur de la bonne
|
|
ldrsh r3, [r2, r1, LSL #1] ; ligne de son
|
|
|
|
add r1, r1, #1 ; On store l'index et on l'incrémente de 1
|
|
strh r1, [r0]
|
|
|
|
;add r3, #32768 ; On ajoute 32768
|
|
mov r1, #360 ; On multiplie par 720
|
|
mul r3, r1, r3 ;
|
|
asr r3, #15 ; On divise par 65536
|
|
add r3, r1
|
|
|
|
ldr r2, = SortieSon
|
|
strh r3, [r2] ; On sauvegarde la valeur dans SortieSon
|
|
b fin
|
|
|
|
Sinon
|
|
mov r1, #0 ; On remet l'index à 0
|
|
str r0, [r1] ; On store l'index
|
|
|
|
fin
|
|
EXPORT SortieSon
|
|
pop {pc}
|
|
endp
|
|
|
|
END
|