31 lines
523 B
Ada
31 lines
523 B
Ada
with Board; use Board;
|
|
with Board.UART.IO;
|
|
|
|
with Ada.Real_Time; use Ada.Real_Time;
|
|
--with ASCII;
|
|
|
|
procedure Hello_World is
|
|
|
|
Baud : constant := 115_200;
|
|
|
|
Period: constant Time_Span := Milliseconds(1000);
|
|
Now: Time := Clock;
|
|
|
|
begin
|
|
Board.UART.IO.Set_Speed (Speed => Baud);
|
|
|
|
loop
|
|
|
|
UART.IO.Transmit ("Hello World!" & ASCII.CR & ASCII.LF);
|
|
|
|
Now := Now + Period;
|
|
delay until Now;
|
|
|
|
UART.IO.Transmit ("Goodbye World!" & ASCII.CR & ASCII.LF);
|
|
|
|
Now := Now + Period;
|
|
delay until Now;
|
|
end loop;
|
|
|
|
end Hello_World;
|