program UART1;
var uart_rd : byte;
procedure interrupt(); iv IVT_INT_USART1;
begin
GPIOB_ODR.B6 := not GPIOB_ODR.B6; // Toggle PORTB
IF RXNEIE_bit then // Received Data Ready to be Read
// if (UART1_Data_Ready() <> 0) then // If data is received
begin
uart_rd := UART1_Read(); // read the received data
GPIOB_ODR.B6 := not GPIOB_ODR.B6; // Toggle PORTB
RXNE_bit := 1; // ensure interrupt not pending
end;
IF TCIE_bit then // Transmission Complete
begin
GPIOB_ODR.B6 := not GPIOB_ODR.B6; // Toggle PORTB
TCIE_bit := 1;
end;
IF TXEIE_bit then // Transmit Data Register Empty
begin
GPIOB_ODR.B6 := not GPIOB_ODR.B6; // Toggle PORTB
TXEIE_bit := 1;
UART1_Write(uart_rd); // and send data via UART
end;
end;
begin
GPIO_Digital_Output(@GPIOB_BASE, _GPIO_PINMASK_ALL); // Set PORTB as digital output
UART1_Init(115200); // Initialize UART module at 56000 bps
GPIOB_ODR.B6 := not GPIOB_ODR.B6; // Toggle PORTB blue led
Delay_ms(100); // Wait for UART module to stabilize
GPIOB_ODR.B6 := not GPIOB_ODR.B6; // Toggle PORTB blue led
RXNEIE_bit := 1; // enable uart rx interrupt
TCIE_bit := 1; // enable uart Transmission Complete interrupt
TXEIE_bit := 1; // enable uart Transmit Data Register Empty
NVIC_IntEnable(IVT_INT_USART1); // enable interrupt vector
EnableInterrupts(); // enable core interrupts
UART1_Write_Text('Start');
UART1_Write(10);
UART1_Write(13);
UART1_Write(10);
while (TRUE) do // Endless loop
begin
GPIOB_ODR.B7 := not GPIOB_ODR.B7; // Toggle PORTB green led
Delay_ms(100); // Set flash rate
end;
end.
