Add UART at J6 connector to STM32.Board package

Author: reznikmm

boards/stm32_f4ve/src/stm32-board.adb

@@ -146,4 +146,40 @@ package body STM32.Board is
           AF             => STM32.Device.GPIO_AF_FMC_12));
    end Initialize_FSMC;
 
+   ---------------------
+   -- Initialize_UART --
+   ---------------------
+
+   procedure Initialize_UART
+     (Speed  : STM32.USARTs.Baud_Rates := 115_200;
+      Stop   : STM32.USARTs.Stop_Bits := STM32.USARTs.Stopbits_1;
+      Parity : STM32.USARTs.Parities := STM32.USARTs.No_Parity;
+      Flow   : STM32.USARTs.Flow_Control := STM32.USARTs.No_Flow_Control)
+   is
+      TX_Pin : GPIO_Point renames STM32.Device.PA9;
+      RX_Pin : GPIO_Point renames STM32.Device.PA10;
+   begin
+      Enable_Clock (UART);
+      Enable_Clock (RX_Pin & TX_Pin);
+
+      Configure_IO
+        (TX_Pin & RX_Pin,
+         (Mode           => Mode_AF,
+          AF             => GPIO_AF_USART1_7,
+          Resistors      => Pull_Up,
+          AF_Speed       => Speed_50MHz,
+          AF_Output_Type => Push_Pull));
+
+      UART.Disable;
+
+      UART.Set_Baud_Rate    (Speed);
+      UART.Set_Mode         (STM32.USARTs.Tx_Rx_Mode);
+      UART.Set_Stop_Bits    (Stop);
+      UART.Set_Word_Length  (STM32.USARTs.Word_Length_8);
+      UART.Set_Parity       (Parity);
+      UART.Set_Flow_Control (Flow);
+
+      UART.Enable;
+   end Initialize_UART;
+
 end STM32.Board;

boards/stm32_f4ve/src/stm32-board.ads

@@ -40,6 +40,7 @@ with STM32.Device;            use STM32.Device;
 with STM32.DMA;               use STM32.DMA;
 with STM32.DMA.Interrupts;    use STM32.DMA.Interrupts;
 with STM32.GPIO;              use STM32.GPIO;
+with STM32.USARTs;
 
 with SDCard;
 with W25Q16;
@@ -173,4 +174,16 @@ package STM32.Board is
    procedure Initialize_Flash_Memory;
    --  MUST be called prior to any use of the Flash
 
+   ----------
+   -- UART --
+   ----------
+
+   UART : STM32.USARTs.USART renames STM32.Device.USART_1;
+
+   procedure Initialize_UART
+     (Speed  : STM32.USARTs.Baud_Rates := 115_200;
+      Stop   : STM32.USARTs.Stop_Bits := STM32.USARTs.Stopbits_1;
+      Parity : STM32.USARTs.Parities := STM32.USARTs.No_Parity;
+      Flow   : STM32.USARTs.Flow_Control := STM32.USARTs.No_Flow_Control);
+
 end STM32.Board;