forked from acco/chti23
64 lines
No EOL
1.2 KiB
ArmAsm
64 lines
No EOL
1.2 KiB
ArmAsm
PRESERVE8
|
|
THUMB
|
|
|
|
import LongueurSon
|
|
import PeriodeSonMicroSec
|
|
import Son
|
|
|
|
include Driver/DriverJeuLaser.inc
|
|
|
|
; ====================== zone de réservation de données, ======================================
|
|
;Section RAM (read only) :
|
|
area mesdata,data,readonly
|
|
|
|
|
|
;Section RAM (read write):
|
|
area maram,data,readwrite
|
|
|
|
|
|
Son_index dcd 0
|
|
Sortie_son dcw 0
|
|
|
|
; ===============================================================================================
|
|
|
|
|
|
EXPORT Son_index
|
|
EXPORT Sortie_son
|
|
|
|
|
|
;Section ROM code (read only) :
|
|
area moncode,code,readonly
|
|
; écrire le code ici
|
|
|
|
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
|