--  Hello --  Hello example in Ada
--  Copyright (C) 2002, 2003 Free Software Foundation, Inc.
--  Written by Stephane Carrez (stcarrez@nerim.fr)
--
--  This file is free software; you can redistribute it and/or modify it
--  under the terms of the GNU General Public License as published by the
--  Free Software Foundation; either version 2, or (at your option) any
--  later version.
--
--  In addition to the permissions in the GNU General Public License, the
--  Free Software Foundation gives you unlimited permission to link the
--  compiled version of this file with other programs, and to distribute
--  those programs without any restriction coming from the use of this
--  file.  (The General Public License restrictions do apply in other
--  respects; for example, they cover modification of the file, and
--  distribution when not linked into another program.)
--
--  This file is distributed in the hope that it will be useful, but
--  WITHOUT ANY WARRANTY; without even the implied warranty of
--  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
--  General Public License for more details.
--
--  You should have received a copy of the GNU General Public License
--  along with this program; see the file COPYING.  If not, write to
--  the Free Software Foundation, 59 Temple Place - Suite 330,
--  Boston, MA 02111-1307, USA.

pragma No_Run_Time;

with BSP;
with BSP.Param;
with BSP.SIO;

procedure Hello is

   use BSP;

   LT : constant Character := Character'Val (16#0A#);
begin
   --  Setup the serial line.
   SIO.Initialize;
   loop
      --  Write the message (character by character, polling mode).
      SIO.Send ("Hello world!" & LT);

      --  We can stop if the BSP knows how to exit(), otherwise loop forever!
      exit when Param.BSP_CAN_EXIT = True;
   end loop;
end Hello;

---

You may also see the corresponding specification.

You may also see the list of program units.

This hypertext format was generated by David A. Wheeler's ada2html