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
		

SortieSon dcw 0
	EXPORT SortieSon
		
Offset equ 32768
Intervalle equ 360
Index equ 0
		
    EXPORT CallbackSon
	
; ===============================================================================================
	

		
;Section ROM code (read only) :		
	area    moncode,code,readonly
; écrire le code ici		

;short int SortieSon;
;int LongueurSon 5512
;int i;
;if not i == LongueurSon
;lire[i] str
;i++
;
;360*(SortieSon+32768)/32768

    import son
	import LongueurSon
		
CallbackSon proc
	push {lr}
	
	ldr r0,=son ; tableau de données
	ldr r1,=SortieSon ; resultat
	
	ldr r2,[r1,#LongueurSon] ; point fini
	ldr r3,[r1,#Index] ; position actuelle
	
	add r3,#1
	cmp r2,r3 ;if on n'arrive pas la fin de tableau, on continue
	beq FIN ; if oui on quitte le prog
	
;	ldr r4,
;	ldrsh []	
		
		


FIN
    mov r3,#0
			
	ENDP
	
	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 ; 
	ldr r3, =Son
	ldrsh r0, [r3, r1, lsl #1]; 
	add r0, #32768
	mov r3, #720
	mul r0, r3 
	lsr r0, #16 ;
	ldr r3, =Sortie_son
	str r0, [r3]  ; 
	add r1, r1, #1
	str r1, [r2]  ; 
	b PWM_Set_Value_TIM3_Ch3
EndOfSound
	bx lr
	endp
	END