grpe_Magana_Brunetto/soft/PjtKEIL_StepDeb_1/Src/Delay.s

	PRESERVE8
	THUMB   
		

; ====================== zone de r<>servation de donn<6E>es,  ======================================
;Section RAM (read only) :
	area    mesdata,data,readonly


;Section RAM (read write):
	area    maram,data,readwrite
		
VarTime	dcd 0

	
; ===============================================================================================
	
;constantes (<28>quivalent du #define en C)
TimeValue	equ 800000


	EXPORT Delay_100ms ; la fonction Delay_100ms est rendue publique donc utilisable par d'autres modules.
	EXPORT VarTime ; Permet la lecture de VarTime dans le debuggeur
		
;Section ROM code (read only) :		
	area    moncode,code,readonly
		


; REMARQUE IMPORTANTE 
; Cette mani<6E>re de cr<63>er une temporisation n'est clairement pas la bonne mani<6E>re de proc<6F>der :
; - elle est peu pr<70>cise
; - la fonction prend tout le temps CPU pour... ne rien faire...
;
; Pour autant, la fonction montre :
; - les boucles en ASM
; - l'acc<63>s <20>cr/lec de variable en RAM
; - le m<>canisme d'appel / retour sous programme
;
; et donc poss<73>de un int<6E>r<EFBFBD>t pour d<>buter en ASM pur

Delay_100ms proc
	
	    ldr r0,=VarTime   		  
						  
		ldr r1,=TimeValue
		str r1,[r0]     ;VarTime = TimeValue 
		
BoucleTempo	
		ldr r1,[r0]   ;r1 = Vartime  				
						
		subs r1,#1
 		str  r1,[r0]
		bne	 BoucleTempo ; si R1 != 0, va a BoucleTempo
			
		bx lr
		endp
		
		
	END