blink.adb

-- Blink the internal LED of an Arduino (and others) using AVR-Ada
--
-- Code by Tero Koskinen
-- http://arduino.ada-language.com/blinking-led.html

with AVR;
with AVR.MCU;
with AVR.Real_Time.Delays;

use AVR;

procedure Blink is
   Led_On : Boolean := False;
   LED_PIN : constant := 5;
   
begin
   MCU.DDRB_Bits (LED_PIN) := DD_Output;
   loop
      Led_On := not Led_On;
      MCU.PORTB_Bits (LED_PIN) := Led_On;
      delay 8.0;
   end loop;
end Blink;