Vovanium
/
stm32-ada
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

* example generalization

This commit is contained in:
Vovanium 2021-08-03 19:15:58 +03:00
parent 57adae9420
commit 3e01c9b7dc
2 changed files with 8 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
examples/common/429disco/board.ads
View File

@ -15,6 +15,11 @@ package Board is
UART_TX_Bit : constant Port_Bit_Number := 9;
UART_RX_Bit : constant Port_Bit_Number := 10;
UART_Port_RCC_EN : Boolean renames RCC.AHB1ENR(Index.GPIOA);
UART_Port_RCC_RST : Boolean renames RCC.AHB1RSTR(Index.GPIOA);
UART_AF : Alternate_Function renames Alternate_Functions.USART1;
UART_Module : USART_Registers renames USART1;
UART_RCC_EN : Boolean renames RCC.APB2ENR(Index.USART1);

6
examples/uart/uart.adb
View File

@ -32,20 +32,20 @@ procedure UART_429Disco is
Now: Time := Clock;
begin
RCC.AHB1ENR(Index.GPIOA) := True;
UART_Port_RCC_EN := True;
UART_RCC_EN := True;
UART_RCC_RST := True;
UART_RCC_RST := False;
UART_Port.AFR(UART_TX_Bit) := Alternate_Functions.USART1;
UART_Port.AFR(UART_TX_Bit) := UART_AF;
UART_Port.MODER(UART_TX_Bit) := Alternate_Mode;
UART_Port.OSPEEDR(UART_TX_Bit) := Low_Speed;
UART_Port.OTYPER(UART_TX_Bit) := Push_Pull_Type;
UART_Port.PUPDR(UART_TX_Bit) := Pull_Down;
UART_Port.AFR(UART_RX_Bit) := Alternate_Functions.USART1;
UART_Port.AFR(UART_RX_Bit) := UART_AF;
UART_Port.MODER(UART_RX_Bit) := Alternate_Mode;
UART_Port.OSPEEDR(UART_RX_Bit) := Low_Speed;
UART_Port.OTYPER(UART_RX_Bit) := Push_Pull_Type;