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

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