152 lines
3.9 KiB
NASM
152 lines
3.9 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,#8
|
|
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, #8 ;if(Switchstate == 8)
|
|
BEQ ResetSwitchState
|
|
B SetLED
|
|
ResetSwitchState ;Switchstate = 0
|
|
MOV R3, #0;
|
|
B GoToDriverReg
|
|
SetLED
|
|
LDR R0,=mire ;tempMire
|
|
MOV R1,#48
|
|
MLA R0,R1,R3,R0 ;tempMire += (48*Switchstate)
|
|
GoToDriverReg
|
|
ADD R3, R3, #1 ;Switchstate++
|
|
STRB R3,[R2] ;On remet la donnée
|
|
BL DriverReg ;DriverReg(mire+Switchstate)
|
|
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
|