git.sur5r.net Git - freertos/blob - FreeRTOS/Demo/RX600_RX62N-RSK_Renesas/RTOSDemo/ParTest.c

   1 /*\r
   2     FreeRTOS V7.6.0 - Copyright (C) 2013 Real Time Engineers Ltd. \r
   3     All rights reserved\r
   4 \r
   5     VISIT http://www.FreeRTOS.org TO ENSURE YOU ARE USING THE LATEST VERSION.\r
   6 \r
   7     ***************************************************************************\r
   8      *                                                                       *\r
   9      *    FreeRTOS provides completely free yet professionally developed,    *\r
  10      *    robust, strictly quality controlled, supported, and cross          *\r
  11      *    platform software that has become a de facto standard.             *\r
  12      *                                                                       *\r
  13      *    Help yourself get started quickly and support the FreeRTOS         *\r
  14      *    project by purchasing a FreeRTOS tutorial book, reference          *\r
  15      *    manual, or both from: http://www.FreeRTOS.org/Documentation        *\r
  16      *                                                                       *\r
  17      *    Thank you!                                                         *\r
  18      *                                                                       *\r
  19     ***************************************************************************\r
  20 \r
  21     This file is part of the FreeRTOS distribution.\r
  22 \r
  23     FreeRTOS is free software; you can redistribute it and/or modify it under\r
  24     the terms of the GNU General Public License (version 2) as published by the\r
  25     Free Software Foundation >>!AND MODIFIED BY!<< the FreeRTOS exception.\r
  26 \r
  27     >>! NOTE: The modification to the GPL is included to allow you to distribute\r
  28     >>! a combined work that includes FreeRTOS without being obliged to provide\r
  29     >>! the source code for proprietary components outside of the FreeRTOS\r
  30     >>! kernel.\r
  31 \r
  32     FreeRTOS is distributed in the hope that it will be useful, but WITHOUT ANY\r
  33     WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS\r
  34     FOR A PARTICULAR PURPOSE.  Full license text is available from the following\r
  35     link: http://www.freertos.org/a00114.html\r
  36 \r
  37     1 tab == 4 spaces!\r
  38 \r
  39     ***************************************************************************\r
  40      *                                                                       *\r
  41      *    Having a problem?  Start by reading the FAQ "My application does   *\r
  42      *    not run, what could be wrong?"                                     *\r
  43      *                                                                       *\r
  44      *    http://www.FreeRTOS.org/FAQHelp.html                               *\r
  45      *                                                                       *\r
  46     ***************************************************************************\r
  47 \r
  48     http://www.FreeRTOS.org - Documentation, books, training, latest versions,\r
  49     license and Real Time Engineers Ltd. contact details.\r
  50 \r
  51     http://www.FreeRTOS.org/plus - A selection of FreeRTOS ecosystem products,\r
  52     including FreeRTOS+Trace - an indispensable productivity tool, a DOS\r
  53     compatible FAT file system, and our tiny thread aware UDP/IP stack.\r
  54 \r
  55     http://www.OpenRTOS.com - Real Time Engineers ltd license FreeRTOS to High\r
  56     Integrity Systems to sell under the OpenRTOS brand.  Low cost OpenRTOS\r
  57     licenses offer ticketed support, indemnification and middleware.\r
  58 \r
  59     http://www.SafeRTOS.com - High Integrity Systems also provide a safety\r
  60     engineered and independently SIL3 certified version for use in safety and\r
  61     mission critical applications that require provable dependability.\r
  62 \r
  63     1 tab == 4 spaces!\r
  64 */\r
  65 \r
  66 /*-----------------------------------------------------------\r
  67  * Simple IO routines to control the LEDs.\r
  68  *-----------------------------------------------------------*/\r
  69 \r
  70 /* Scheduler includes. */\r
  71 #include "FreeRTOS.h"\r
  72 #include "task.h"\r
  73 \r
  74 /* Demo includes. */\r
  75 #include "partest.h"\r
  76 \r
  77 /* Hardware specifics. */\r
  78 #include "iodefine.h"\r
  79 \r
  80 #define partestNUM_LEDS ( 6 )\r
  81 \r
  82 long lParTestGetLEDState( unsigned long ulLED );\r
  83 \r
  84 /*-----------------------------------------------------------*/\r
  85 \r
  86 void vParTestInitialise( void )\r
  87 {\r
  88         /* Port pin configuration is done by the low level set up prior to this \r
  89         function being called. */\r
  90 }\r
  91 /*-----------------------------------------------------------*/\r
  92 \r
  93 void vParTestSetLED( unsigned long ulLED, signed long xValue )\r
  94 {\r
  95         if( ulLED < partestNUM_LEDS )\r
  96         {\r
  97                 if( xValue != 0 )\r
  98                 {\r
  99                         /* Turn the LED on. */\r
 100                         taskENTER_CRITICAL();\r
 101                         {\r
 102                                 switch( ulLED )\r
 103                                 {\r
 104                                         case 0: LED0 = LED_ON;\r
 105                                                         break;\r
 106                                         case 1: LED1 = LED_ON;\r
 107                                                         break;\r
 108                                         case 2: LED2 = LED_ON;\r
 109                                                         break;\r
 110                                         case 3: LED3 = LED_ON;\r
 111                                                         break;\r
 112                                         case 4: LED4 = LED_ON;\r
 113                                                         break;\r
 114                                         case 5: LED5 = LED_ON;\r
 115                                                         break;\r
 116                                 }\r
 117                         }\r
 118                         taskEXIT_CRITICAL();\r
 119                 }\r
 120                 else\r
 121                 {\r
 122                         /* Turn the LED off. */\r
 123                         taskENTER_CRITICAL();\r
 124                         {\r
 125                                 switch( ulLED )\r
 126                                 {\r
 127                                         case 0: LED0 = LED_OFF;\r
 128                                                         break;\r
 129                                         case 1: LED1 = LED_OFF;\r
 130                                                         break;\r
 131                                         case 2: LED2 = LED_OFF;\r
 132                                                         break;\r
 133                                         case 3: LED3 = LED_OFF;\r
 134                                                         break;\r
 135                                         case 4: LED4 = LED_OFF;\r
 136                                                         break;\r
 137                                         case 5: LED5 = LED_OFF;\r
 138                                                         break;\r
 139                                 }\r
 140 \r
 141                         }\r
 142                         taskEXIT_CRITICAL();\r
 143                 }\r
 144         }\r
 145 }\r
 146 /*-----------------------------------------------------------*/\r
 147 \r
 148 void vParTestToggleLED( unsigned long ulLED )\r
 149 {\r
 150         if( ulLED < partestNUM_LEDS )\r
 151         {\r
 152                 taskENTER_CRITICAL();\r
 153                 {\r
 154                         if( lParTestGetLEDState( ulLED ) != 0x00 )\r
 155                         {\r
 156                                 vParTestSetLED( ulLED, 0 );\r
 157                         }\r
 158                         else\r
 159                         {\r
 160                                 vParTestSetLED( ulLED, 1 );\r
 161                         }\r
 162                 }\r
 163                 taskEXIT_CRITICAL();\r
 164         }\r
 165 }\r
 166 /*-----------------------------------------------------------*/\r
 167                                                         \r
 168 long lParTestGetLEDState( unsigned long ulLED )\r
 169 {\r
 170 long lReturn = pdTRUE;\r
 171 \r
 172         if( ulLED < partestNUM_LEDS )\r
 173         {\r
 174                 switch( ulLED )\r
 175                 {\r
 176                         case 0  :       if( LED0 != 0 )\r
 177                                                 {\r
 178                                                         lReturn =  pdFALSE;\r
 179                                                 }\r
 180                                                 break;                                  \r
 181                         case 1  :       if( LED1 != 0 )\r
 182                                                 {\r
 183                                                         lReturn =  pdFALSE;\r
 184                                                 }\r
 185                                                 break;                                  \r
 186                         case 2  :       if( LED2 != 0 )\r
 187                                                 {\r
 188                                                         lReturn =  pdFALSE;\r
 189                                                 }\r
 190                                                 break;                                  \r
 191                         case 3  :       if( LED3 != 0 )\r
 192                                                 {\r
 193                                                         lReturn =  pdFALSE;\r
 194                                                 }\r
 195                                                 break;                                  \r
 196                         case 4  :       if( LED4 != 0 )\r
 197                                                 {\r
 198                                                         lReturn =  pdFALSE;\r
 199                                                 }\r
 200                                                 break;                                  \r
 201                         case 5  :       if( LED5 != 0 )\r
 202                                                 {\r
 203                                                         lReturn =  pdFALSE;\r
 204                                                 }\r
 205                                                 break;                                  \r
 206                 }\r
 207         }\r
 208         \r
 209         return lReturn;\r
 210 }\r
 211 /*-----------------------------------------------------------*/\r
 212 \r
 213