PRESERVE8
	THUMB   
	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
		
index dcd 5512
SortieSon dcw 0
		
	export index 	
	export SortieSon
	export Callbackson
		
	extern Son 
	extern LongueurSon
	
; ===============================================================================================
	


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

	;r0 Son
	;r1 Index
	;r2 Adresse index
	;r3 Pour les calculs

Callbackson

	ldr r2, =index
	ldr r1, [r2]
	
	ldr r0, =Son
	
	ldr r3, =LongueurSon
	
	cmp r1, r3
	bne Conversion
	 
	mov r0, #0
	 
	 
Conversion
	
	add r0, #32768
	mov r3, #719
	mul r0, r3
	mov r3, #65535
	udiv r0, r3
	
	
	add r1, #1
	str r1, [r2]
	
	ldr r3, =SortieSon
	str r3,[r0]


	END