-- Hello -- Hello example in Ada
-- Copyright (C) 2002, 2003 Free Software Foundation, Inc.
-- Written by Stephane Carrez (email@example.com)
-- 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.
procedure Hello is
LT : constant Character := Character'Val (16#0A#);
-- Setup the serial line.
-- 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;
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