git.sur5r.net Git - freertos/blob - Demo/ARM7_AT91FR40008_GCC/ParTest/ParTest.c

   1 /*\r
   2         FreeRTOS.org V5.0.3 - Copyright (C) 2003-2008 Richard Barry.\r
   3 \r
   4         This file is part of the FreeRTOS.org distribution.\r
   5 \r
   6         FreeRTOS.org is free software; you can redistribute it and/or modify\r
   7         it under the terms of the GNU General Public License as published by\r
   8         the Free Software Foundation; either version 2 of the License, or\r
   9         (at your option) any later version.\r
  10 \r
  11         FreeRTOS.org is distributed in the hope that it will be useful,\r
  12         but WITHOUT ANY WARRANTY; without even the implied warranty of\r
  13         MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the\r
  14         GNU General Public License for more details.\r
  15 \r
  16         You should have received a copy of the GNU General Public License\r
  17         along with FreeRTOS.org; if not, write to the Free Software\r
  18         Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA\r
  19 \r
  20         A special exception to the GPL can be applied should you wish to distribute\r
  21         a combined work that includes FreeRTOS.org, without being obliged to provide\r
  22         the source code for any proprietary components.  See the licensing section \r
  23         of http://www.FreeRTOS.org for full details of how and when the exception\r
  24         can be applied.\r
  25 \r
  26     ***************************************************************************\r
  27     ***************************************************************************\r
  28     *                                                                         *\r
  29     * SAVE TIME AND MONEY!  We can port FreeRTOS.org to your own hardware,    *\r
  30     * and even write all or part of your application on your behalf.          *\r
  31     * See http://www.OpenRTOS.com for details of the services we provide to   *\r
  32     * expedite your project.                                                  *\r
  33     *                                                                         *\r
  34     ***************************************************************************\r
  35     ***************************************************************************\r
  36 \r
  37         Please ensure to read the configuration and relevant port sections of the\r
  38         online documentation.\r
  39 \r
  40         http://www.FreeRTOS.org - Documentation, latest information, license and \r
  41         contact details.\r
  42 \r
  43         http://www.SafeRTOS.com - A version that is certified for use in safety \r
  44         critical systems.\r
  45 \r
  46         http://www.OpenRTOS.com - Commercial support, development, porting, \r
  47         licensing and training services.\r
  48 */\r
  49 \r
  50 /* Scheduler includes. */\r
  51 #include "FreeRTOS.h"\r
  52 #include "portable.h"\r
  53 \r
  54 /* Demo app includes. */\r
  55 #include "partest.h"\r
  56 \r
  57 /* Hardware specific definitions. */\r
  58 #include "AT91R40008.h"\r
  59 #include "pio.h"\r
  60 #include "aic.h"\r
  61 \r
  62 #define partstNUM_LEDS                  ( 8 )\r
  63 #define partstALL_OUTPUTS_OFF   ( ( unsigned portLONG ) ~(0xFFFFFFFF << partstNUM_LEDS) )\r
  64 \r
  65 static unsigned portLONG ulLEDReg;\r
  66 \r
  67 /*-----------------------------------------------------------\r
  68  * Simple parallel port IO routines.\r
  69  *-----------------------------------------------------------*/\r
  70 \r
  71 static void SetLeds (unsigned int leds)\r
  72 {\r
  73 unsigned portLONG ulPIOSetReg, ulPIOClearReg;\r
  74 \r
  75         /* LEDs are grouped in different port bits: P3-P6 and P16-P19.\r
  76         A port bit set to '0' turns an LED on, '1' turns it off. */\r
  77 \r
  78         ulPIOSetReg = ( (leds & 0xF) << 16 ) | ( (leds & 0xF0) >> 1 );\r
  79         ulPIOClearReg = (~ulPIOSetReg) & 0x000F0078;\r
  80 \r
  81         AT91C_BASE_PIO->PIO_SODR = ulPIOSetReg;\r
  82         AT91C_BASE_PIO->PIO_CODR = ulPIOClearReg;\r
  83 }\r
  84 /*-----------------------------------------------------------*/\r
  85 \r
  86 void vParTestInitialise( void )\r
  87 {\r
  88         /* This is performed from main() as the io bits are shared with other setup\r
  89         functions.  Ensure the outputs are off to start. */\r
  90         ulLEDReg = partstALL_OUTPUTS_OFF;  \r
  91 \r
  92         /* Enable clock to PIO... */\r
  93         AT91C_BASE_PS->PS_PCER = AT91C_PS_PIO;\r
  94 \r
  95         /* Enable all 8 LEDs and the four switches to be controlled by PIO... */\r
  96         AT91C_BASE_PIO->PIO_PER = P3 | P4 | P5 | P6 | P16 | P17 | P18 | P19 | P1 | P2 | P9 | P12;\r
  97 \r
  98         /* Configure all LED PIO lines for output... */\r
  99         AT91C_BASE_PIO->PIO_OER = P3 | P4 | P5 | P6 | P16 | P17 | P18 | P19;\r
 100 \r
 101         /* Configure all switch PIO lines for input... */\r
 102         AT91C_BASE_PIO->PIO_ODR = P1 | P2 | P9 | P12;\r
 103 \r
 104         /* Set initial state of LEDs. */\r
 105         SetLeds( ulLEDReg );\r
 106 }\r
 107 /*-----------------------------------------------------------*/\r
 108 \r
 109 void vParTestSetLED( unsigned portBASE_TYPE uxLED, signed portBASE_TYPE xValue )\r
 110 {\r
 111         /* Switch an LED on or off as requested. */\r
 112         if (uxLED < partstNUM_LEDS)\r
 113         {\r
 114                 if( xValue )\r
 115                 {\r
 116                         ulLEDReg &= ~(1 << uxLED);\r
 117                 }\r
 118                 else\r
 119                 {\r
 120                         ulLEDReg |= (1 << uxLED);\r
 121                 }\r
 122 \r
 123                 SetLeds( ulLEDReg );\r
 124         }\r
 125 }\r
 126 /*-----------------------------------------------------------*/\r
 127 \r
 128 void vParTestToggleLED( unsigned portBASE_TYPE uxLED )\r
 129 {\r
 130         /* Toggle the state of the requested LED. */\r
 131         if (uxLED < partstNUM_LEDS)\r
 132         {\r
 133                 ulLEDReg ^= ( 1 << uxLED );\r
 134                 SetLeds( ulLEDReg );\r
 135         }\r
 136 }\r
 137 \r