26 lines
638 B
Ada
26 lines
638 B
Ada
with STM32.RCC; use STM32.RCC;
|
|
with STM32.GPIO; use STM32.GPIO;
|
|
with Chip.Units; use Chip.Units;
|
|
|
|
package Board is
|
|
pragma Preelaborate;
|
|
|
|
-- LED
|
|
|
|
LED_Port : GPIO_Registers renames GPIOG;
|
|
LED_Bit : constant Port_Bit_Number := 13;
|
|
LED_On : constant Boolean := True;
|
|
|
|
LED_RCC_EN : Boolean renames RCC.AHB1ENR(Index.GPIOG);
|
|
|
|
LED_2_Port : GPIO_Registers renames GPIOG;
|
|
LED_2_Bit : constant Port_Bit_Number := 14;
|
|
LED_2_On : constant Boolean := True;
|
|
|
|
LED_2_RCC_EN : Boolean renames RCC.AHB1ENR(Index.GPIOG);
|
|
|
|
-- More internals
|
|
|
|
APB2_Frequency : constant := 90_000_000; -- Set by board support
|
|
|
|
end Board; |