152 lines
4 KiB
NASM
152 lines
4 KiB
NASM
;***************************************************************************
|
|
THUMB
|
|
REQUIRE8
|
|
PRESERVE8
|
|
|
|
;**************************************************************************
|
|
; Fichier Vierge.asm
|
|
; Auteur : V.MAHOUT
|
|
; Date : 12/11/2013
|
|
;**************************************************************************
|
|
|
|
;***************IMPORT/EXPORT**********************************************
|
|
|
|
IMPORT DataSend
|
|
EXPORT Init_TVI
|
|
IMPORT Stop_Timer4
|
|
IMPORT Run_Timer4
|
|
IMPORT mire
|
|
EXPORT Timer1_IRQHandler
|
|
EXPORT Timer1Up_IRQHandler
|
|
EXPORT setIRQFunction
|
|
EXPORT Timer4_IRQHandler
|
|
|
|
IMPORT DriverReg
|
|
IMPORT Tempo
|
|
|
|
;**************************************************************************
|
|
|
|
|
|
|
|
;***************CONSTANTES*************************************************
|
|
|
|
include REG_UTILES.inc
|
|
include LUMIERES.inc
|
|
|
|
;**************************************************************************
|
|
|
|
|
|
;***************VARIABLES**************************************************
|
|
AREA MesDonnees, data, readwrite
|
|
;**************************************************************************
|
|
|
|
MAX_Interrupt EQU 256
|
|
TVI_Flash EQU 0x0
|
|
|
|
;**************************************************************************
|
|
|
|
|
|
|
|
;***************CODE*******************************************************
|
|
AREA moncode, code, readonly
|
|
;**************************************************************************
|
|
|
|
Timer1_IRQHandler PROC
|
|
PUSH {LR}
|
|
;On récupère le CNT, on le divise par le nombre de jeu de leds -> on affect le ARR du timer4
|
|
LDR R0,=TIM1_CNT
|
|
LDR R0,[R0]
|
|
MOV R1,#2
|
|
UDIV R0, R0, R1
|
|
LDR R1,=TIM4_ARR
|
|
STR R0,[R1]
|
|
|
|
LDR R0,=TIM1_CNT
|
|
MOV R1,#0
|
|
STR R1,[R0]
|
|
|
|
LDR R0,=TIM1_SR ;On charge l'adresse du flag
|
|
LDR R1, [R0] ;On lit le flag dans SR
|
|
AND R1, #~(1<<1) ;Reset le flag de CC1IF
|
|
STR R1, [R0] ;On le stock
|
|
BL Run_Timer4
|
|
POP {LR}
|
|
BX LR
|
|
ENDP
|
|
|
|
Timer1Up_IRQHandler PROC
|
|
PUSH {LR}
|
|
BL Stop_Timer4
|
|
LDR R0,=TIM1_SR ;On charge l'adresse du flag
|
|
LDR R1, [R0] ;On lit le flag dans SR
|
|
AND R1, #~(1<<0) ;Reset le flag de UIF
|
|
STR R1, [R0] ;On le stock
|
|
POP {LR}
|
|
BX LR
|
|
ENDP
|
|
|
|
Timer4_IRQHandler PROC
|
|
; SwitchState;
|
|
PUSH {LR}
|
|
|
|
LDR R2,=SwitchState ;On lit l'adresse de switch state
|
|
LDRB R3,[R2] ;On charge la donnée
|
|
CMP R3, #0 ;if(Switchstate == 0)
|
|
BEQ SETBarrette1 ; {DriverReg(Barette1)}
|
|
SETBarrette2
|
|
LDR R0, =Barette2 ;else {DriverReg(Barette2)} Adresse Jeu de led 2 : Argument
|
|
MOV R3, #0;
|
|
STRB R3,[R2] ;On remet la donnée
|
|
B GoToDriverReg
|
|
SETBarrette1
|
|
LDR R0, =Barette1 ;Adresse Jeu de led 1 : Argument
|
|
MOV R3, #1;
|
|
STRB R3,[R2] ;On remet la donnée
|
|
GoToDriverReg
|
|
BL DriverReg ;DriverReg(Barette3)
|
|
|
|
LDR R0,=TIM4_SR ;On charge l'adresse du flag
|
|
LDR R1, [R0] ;On lit le flag dans SR
|
|
AND R1, #~(1<<0) ;Reset le flag de UIF
|
|
STR R1, [R0] ;On le stock
|
|
POP {LR}
|
|
BX LR
|
|
ENDP
|
|
|
|
;On copie toute la TVI dans la RAM (0x2....)
|
|
;On modifie les interruptions Up et CC pour pointer sur nos fonctions rien qu'à nous
|
|
;On fait pointer à SCB_VTOR l'adresse de la TVI que nous avons copié
|
|
Init_TVI PROC
|
|
LDR R0,=TVI_Flash ;On Lit le premier TVI
|
|
LDR R1,=TVI_Pile ;Nouvelle TVI
|
|
MOV R2,#0 ;i
|
|
for_tvi ;for(int i=0;i<MAX_Interrupt;i++)
|
|
LDR R3,[R0] ;temp = TVI_Flash[i]
|
|
STR R3, [R1] ;TVI_Pile[i] = temp
|
|
ADD R1,R1,#4 ;TVI_Pile++
|
|
ADD R0,R0,#4 ;TVI_Flash++
|
|
ADD R2,R2,#1 ;i++
|
|
CMP R2,#MAX_Interrupt ;is i == MAX_Interrupt?
|
|
BNE for_tvi
|
|
scbvector_link
|
|
LDR R1,=TVI_Pile ;On relit l'adresse de TVIPile
|
|
LDR R0,=SCB_VTOR ;ON lit l'adresse de SCB_VTOR
|
|
STR R1,[R0] ;On met l'adresse de TVI_Pile dans le SCB_VTOR
|
|
BX LR
|
|
ENDP
|
|
|
|
;*******************************************************************
|
|
;Arguments :
|
|
;R0 -> Interruption
|
|
;R1 -> Adresse de la fonction
|
|
;*******************************************************************
|
|
setIRQFunction PROC
|
|
LDR R3,=TVI_Pile
|
|
ADD R0,R0,R3
|
|
STR R1, [R0]
|
|
BX LR
|
|
ENDP
|
|
|
|
|
|
;**************************************************************************
|
|
END
|