packages/hal/arm/at91/eb40/v2_0/src/eb40_misc.c

   1 //==========================================================================
   2 //
   3 //      eb40_misc.c
   4 //
   5 //      HAL misc board support code for Atmel EB40 eval board
   6 //
   7 //==========================================================================
   8 //####ECOSGPLCOPYRIGHTBEGIN####
   9 // -------------------------------------------
  10 // This file is part of eCos, the Embedded Configurable Operating System.
  11 // Copyright (C) 1998, 1999, 2000, 2001, 2002 Red Hat, Inc.
  12 // Copyright (C) 2003 Nick Garnett <nickg@calivar.com>
  13 //
  14 // eCos is free software; you can redistribute it and/or modify it under
  15 // the terms of the GNU General Public License as published by the Free
  16 // Software Foundation; either version 2 or (at your option) any later version.
  17 //
  18 // eCos is distributed in the hope that it will be useful, but WITHOUT ANY
  19 // WARRANTY; without even the implied warranty of MERCHANTABILITY or
  20 // FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public License
  21 // for more details.
  22 //
  23 // You should have received a copy of the GNU General Public License along
  24 // with eCos; if not, write to the Free Software Foundation, Inc.,
  25 // 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA.
  26 //
  27 // As a special exception, if other files instantiate templates or use macros
  28 // or inline functions from this file, or you compile this file and link it
  29 // with other works to produce a work based on this file, this file does not
  30 // by itself cause the resulting work to be covered by the GNU General Public
  31 // License. However the source code for this file must still be made available
  32 // in accordance with section (3) of the GNU General Public License.
  33 //
  34 // This exception does not invalidate any other reasons why a work based on
  35 // this file might be covered by the GNU General Public License.
  36 //
  37 // Alternative licenses for eCos may be arranged by contacting Red Hat, Inc.
  38 // at http://sources.redhat.com/ecos/ecos-license/
  39 // -------------------------------------------
  40 //####ECOSGPLCOPYRIGHTEND####
  41 //==========================================================================
  42 //#####DESCRIPTIONBEGIN####
  43 //
  44 // Author(s):    gthomas
  45 // Contributors: gthomas, jskov, tkoeller, nickg
  46 // Date:         2002-05-30
  47 // Purpose:      HAL board support
  48 // Description:  Implementations of HAL board interfaces
  49 //
  50 //####DESCRIPTIONEND####
  51 //
  52 //========================================================================*/
  53
  54 #include <pkgconf/hal.h>
  55
  56 #include <cyg/infra/cyg_type.h>         // base types
  57 #include <cyg/hal/hal_io.h>
  58 #include <cyg/hal/var_io.h>             // platform registers
  59
  60 //
  61 // Diagnostic LEDs - there are three colored LEDs which can be used
  62 // to send a simple diagnostic value (8 bits)
  63 //
  64
  65 void
  66 hal_at91_led(int val)
  67 {
  68     int i, to;
  69
  70     HAL_WRITE_UINT32(AT91_PIO+AT91_PIO_CODR, 0x06);  // DATA+CLOCK LEDs off
  71     for (to = 0;  to < 0x200000; to++) ;
  72     for (i = 0;  i < 8;  i++) {
  73         HAL_WRITE_UINT32(AT91_PIO+AT91_PIO_SODR, ((val>>(7-i)) & 0x01)<<2);  // DATA LED
  74         HAL_WRITE_UINT32(AT91_PIO+AT91_PIO_SODR, 0x02);  // CLOCK LED on
  75         for (to = 0;  to < 0x80000; to++) ;
  76         HAL_WRITE_UINT32(AT91_PIO+AT91_PIO_CODR, 0x02);  // CLOCK LED off
  77         for (to = 0;  to < 0x40000; to++) ;
  78         HAL_WRITE_UINT32(AT91_PIO+AT91_PIO_CODR, 0x04);  // DATA LED off
  79     }
  80 }
  81
  82 void
  83 hal_at91_set_leds(int val)
  84 {
  85     hal_at91_led(val);
  86 }
  87
  88
  89
  90 //--------------------------------------------------------------------------
  91 // EOF eb40_misc.c