forked from acco/chti23
56 lines
No EOL
1.2 KiB
ArmAsm
56 lines
No EOL
1.2 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
|
|
|
|
|
|
SortieSon dcw 0
|
|
Index dcd 0x00000000
|
|
; ===============================================================================================
|
|
EXPORT CallbackSon
|
|
EXPORT SortieSon
|
|
EXTERN Son
|
|
EXTERN LongueurSon
|
|
|
|
|
|
|
|
;Section ROM code (read only) :
|
|
area moncode,code,readonly
|
|
; écrire le code ici
|
|
|
|
CallbackSon proc
|
|
push {lr}
|
|
ldr r0, =SortieSon
|
|
ldr r1, =Son
|
|
ldr r2, =Index
|
|
ldr r3, =LongueurSon
|
|
push {r4}
|
|
push {r5}
|
|
push {r6}
|
|
push {r7}
|
|
push {r8}
|
|
ldr r4, [r2] ;on stocke la valeur de l'index dans r2.
|
|
ldr r5, [r1, r4] ;on stocke la valeur de Son[index] dans r5;
|
|
ldr r6, [r0] ; on stocke la valeur de SortieSon dans r6
|
|
mov r7, #360
|
|
mov r8, #32768
|
|
mul r5, r7
|
|
sdiv r5, r8
|
|
adds r5, #360
|
|
str r5, [r0] ; on stocke la valeur calculee dans r0
|
|
adds r4, #1; on incremente r4 qui correspond à la valeur de l'index
|
|
ldr r2, [r4]; on stocke la nouvelle valeur de l'index à l'adresse de l'index
|
|
pop {r6}
|
|
pop {r5}
|
|
pop {r4}
|
|
pop {pc}
|
|
ENDFUNC
|
|
|
|
END
|