;************************************************************************
	THUMB	
	REQUIRE8
	PRESERVE8
;************************************************************************

	include REG_UTILES.inc
	include LUMIERES.inc

;************************************************************************
; 					IMPORT/EXPORT Système
;************************************************************************

	IMPORT ||Lib$$Request$$armlib|| [CODE,WEAK]




; IMPORT/EXPORT de procédure           

	IMPORT Init_Cible
	IMPORT Run_Timer3
	IMPORT Run_Timer1
		
;******ETAPE 1*********
		
	IMPORT Eteint_LED
	IMPORT Allume_LED
	IMPORT Inverse_LED

;******ETAPE 2*********

	IMPORT Set_SCLK
	IMPORT Reset_SCLK
	IMPORT DriverGlobal
	IMPORT DriverReg
	IMPORT Tempo

;******ETAPE 3*********

	IMPORT Init_TVI
	IMPORT Timer1_IRQHandler
	IMPORT setIRQFunction

	EXPORT main
	
;***************VARIABLES*******************************************************
	AREA  mesdonnees, data, readwrite
;*******************************************************************************
		
M						EQU 20
Timer_Up_Reg			EQU	(25*4)+0x40
Timer_Cc_Reg			EQU	(27*4)+0x40

;***************CODE************************************************************
   	AREA  moncode, code, readonly
; 	Procédure principale et point d'entrée du projet
;*******************************************************************************	
main   PROC 
;*******************************************************************************
		MOV R0,#2
		BL Init_Cible;
;*******************************************************************************
; ETAPE 3
;*******************************************************************************
		BL Init_TVI;
		MOV R0, #Timer_Cc_Reg
		LDR R1,=Timer1_IRQHandler
		BL setIRQFunction
		BL Run_Timer3			;Allumage du Timer 3
		BL Run_Timer1
;*******************************************************************************
; ETAPE 2
;*******************************************************************************
;		MOV R7,#0
;Etape2								;for(int=0;i<M;i++)
;		LDR R0, =Barette3			;Adresse Jeu de led 1 : Argument
;		BL DriverReg				;*******************
;		MOV R0, #500					;Argument : 500ms
;		BL Tempo;					:Tempo(10)
;		LDR R0, =Barette2			;Adresse Jeu de led 2 : Argument
;		BL DriverReg				;*******************
;		MOV R0, #500					;Argument : 500ms
;		BL Tempo;					:Tempo(10)
;		
;		LDR R6,=GPIOBASEA			;On récup l'adresse	du GPIOA
;		LDR R6,[R6,#OffsetInput]	;On lit le GPIOA_IDR
;		AND R6, R6, #(0x01<<8)		;On masque pour n'avoir que le 9ème bit (Capteur)
;		CMP R6, #(0x01<<8)			;On vérifie que ce dernier bit est bien à 1.
;		BNE TheEnd					;if capteur = true -> on sort de la boucle
;		ADD R7,R7,#1				;i++
;		CMP R7, #M					;i==M ?
;		BNE Etape2					;if i!=10 -> on continue la boucle (Au final : R7 == M || R6)
;*******************************************************************************
; ETAPE 1
;*******************************************************************************
;		MOV R0,#0;
;		MOV R1,#0;
;		MOV R3,#0;
;Boucle
;		LDR R12,=GPIOBASEA			;On récup l'adresse	du GPIOA		
;		LDR R0,[R12,#OffsetInput]	;On charge sa valeur avec l'OffsetInput
;		AND R0, R0, #(0x01 << 8)	;R0 est masqué pour n'avoir que le bit de l'offset input
;		CMP R0, #(0x01 << 8)		;On compare R0 doit etre egal à 1 pour le front montant
;		BNE Is_detect				;On allume
;		MOV R1,R0					;R1 possède la valeur de R0 avant
;		BL Boucle					;Sinon on boucle
;				
;Is_detect
;		CMP R1, #(0x01 << 8)		;R1 doit etre egal à 0 pour le front montant
;		BNE Boucle
;
;T_Oui
;		BL Inverse_LED				;On inverse le status de la led grace a R3
;		B Boucle
;		
;*******************************************************************************
TheEnd
		B .			 ; boucle inifinie terminale...
		ENDP

	END

;*******************************************************************************