97 lines
2.8 KiB
NASM
97 lines
2.8 KiB
NASM
|
|
|
|
;************************************************************************
|
|
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 Eteint_LED
|
|
IMPORT Allume_LED
|
|
IMPORT Inverse_LED
|
|
|
|
IMPORT Set_SCLK
|
|
IMPORT Reset_SCLK
|
|
IMPORT DriverGlobal
|
|
IMPORT DriverReg
|
|
IMPORT Tempo
|
|
|
|
EXPORT main
|
|
|
|
;*******************************************************************************
|
|
|
|
|
|
;*******************************************************************************
|
|
AREA mesdonnees, data, readwrite
|
|
;*******************************************************************************
|
|
|
|
AREA moncode, code, readonly
|
|
|
|
|
|
|
|
;*******************************************************************************
|
|
; Procédure principale et point d'entrée du projet
|
|
;*******************************************************************************
|
|
main PROC
|
|
;*******************************************************************************
|
|
|
|
LDR R4, [pc,#-2124] ;***********************************************
|
|
MOV R5, #1 ;RetroEngineering : 0x40021000 << 18 -> Argument ?
|
|
STR R5,[R4,#0x18] ;***********************************************
|
|
BL Init_Cible;
|
|
;*******************************************************************************
|
|
; ETAPE 2
|
|
;*******************************************************************************
|
|
LDR R0, =Barette1
|
|
BL DriverReg ;*******************
|
|
MOV R0, #10 ;Argument : 10ms
|
|
BL Tempo; :Tempo(10)
|
|
LDR R0, =Barette2
|
|
BL DriverReg ;*******************
|
|
|
|
;*******************************************************************************
|
|
; 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
|
|
;
|
|
;*******************************************************************************
|
|
B . ; boucle inifinie terminale...
|
|
ENDP
|
|
|
|
END
|
|
|
|
;*******************************************************************************
|