begriffs open source - freertos/blob - Demo/PIC18_WizC/ParTest/ParTest.c

   1 /*\r
   2         FreeRTOS.org V5.1.2 - 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\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     * Get the FreeRTOS eBook!  See http://www.FreeRTOS.org/Documentation      *\r
  30         *                                                                         *\r
  31         * This is a concise, step by step, 'hands on' guide that describes both   *\r
  32         * general multitasking concepts and FreeRTOS specifics. It presents and   *\r
  33         * explains numerous examples that are written using the FreeRTOS API.     *\r
  34         * Full source code for all the examples is provided in an accompanying    *\r
  35         * .zip file.                                                              *\r
  36     *                                                                         *\r
  37     ***************************************************************************\r
  38     ***************************************************************************\r
  39 \r
  40         Please ensure to read the configuration and relevant port sections of the\r
  41         online documentation.\r
  42 \r
  43         http://www.FreeRTOS.org - Documentation, latest information, license and \r
  44         contact details.\r
  45 \r
  46         http://www.SafeRTOS.com - A version that is certified for use in safety \r
  47         critical systems.\r
  48 \r
  49         http://www.OpenRTOS.com - Commercial support, development, porting, \r
  50         licensing and training services.\r
  51 */\r
  52 \r
  53 /* \r
  54 Changes from V3.0.0\r
  55 \r
  56 Changes from V3.0.1\r
  57 */\r
  58 \r
  59 /* Scheduler include files. */\r
  60 #include "FreeRTOS.h"\r
  61 #include <task.h>\r
  62 \r
  63 #include "partest.h"\r
  64 \r
  65 /*-----------------------------------------------------------\r
  66  * Simple parallel port IO routines for the FED 40pin demo board.\r
  67  * The four LED's are connected to D4 to D7.\r
  68  *-----------------------------------------------------------*/\r
  69 \r
  70 #define partstBIT_AS_OUTPUT                     ( ( unsigned portSHORT ) 0 )\r
  71 #define partstSET_OUTPUT                        ( ( unsigned portSHORT ) 1 )\r
  72 #define partstCLEAR_OUTPUT                      ( ( unsigned portSHORT ) 0 )\r
  73 \r
  74 #define partstENABLE_GENERAL_IO         ( ( unsigned portCHAR ) 7 )\r
  75 \r
  76 /*-----------------------------------------------------------*/\r
  77 \r
  78 void vParTestInitialise( void )\r
  79 {\r
  80         /* Set the top four bits of port D to output. */\r
  81         bTRD7           = partstBIT_AS_OUTPUT;\r
  82         bTRD6           = partstBIT_AS_OUTPUT;\r
  83         bTRD5           = partstBIT_AS_OUTPUT;\r
  84         bTRD4           = partstBIT_AS_OUTPUT;\r
  85 \r
  86         /* Start with all bits off. */\r
  87         bRD7            = partstCLEAR_OUTPUT;\r
  88         bRD6            = partstCLEAR_OUTPUT;\r
  89         bRD5            = partstCLEAR_OUTPUT;\r
  90         bRD4            = partstCLEAR_OUTPUT;\r
  91 \r
  92         /* Enable the driver. */\r
  93         ADCON1          = partstENABLE_GENERAL_IO;\r
  94         bTRE2           = partstBIT_AS_OUTPUT;\r
  95         bRE2            = partstSET_OUTPUT;     \r
  96 }\r
  97 /*-----------------------------------------------------------*/\r
  98 \r
  99 void vParTestSetLED( unsigned portCHAR ucLED, portCHAR cValue )\r
 100 {\r
 101         /* We are only using the top nibble, so LED 0 corresponds to bit 4. */  \r
 102         vTaskSuspendAll();\r
 103         {\r
 104                 switch( ucLED )\r
 105                 {\r
 106                         case 3  :       bRD7 = ( portSHORT ) cValue;\r
 107                                                 break;\r
 108                         case 2  :       bRD6 = ( portSHORT ) cValue;\r
 109                                                 break;\r
 110                         case 1  :       bRD5 = ( portSHORT ) cValue;\r
 111                                                 break;\r
 112                         case 0  :       bRD4 = ( portSHORT ) cValue;\r
 113                                                 break;\r
 114                         default :       /* There are only 4 LED's. */\r
 115                                                 break;\r
 116                 }\r
 117         }\r
 118         xTaskResumeAll();\r
 119 }\r
 120 /*-----------------------------------------------------------*/\r
 121 \r
 122 void vParTestToggleLED( unsigned portCHAR ucLED )\r
 123 {\r
 124         /* We are only using the top nibble, so LED 0 corresponds to bit 4. */  \r
 125         vTaskSuspendAll();\r
 126         {\r
 127                 switch( ucLED )\r
 128                 {\r
 129                         case 3  :       bRD7 = !bRD7;\r
 130                                                 break;\r
 131                         case 2  :       bRD6 = !bRD6;\r
 132                                                 break;\r
 133                         case 1  :       bRD5 = !bRD5;\r
 134                                                 break;\r
 135                         case 0  :       bRD4 = !bRD4 );\r
 136                                                 break;\r
 137                         default :       /* There are only 4 LED's. */\r
 138                                                 break;\r
 139                 }\r
 140         }\r
 141         xTaskResumeAll();\r
 142 }\r
 143 \r
 144 \r
 145 \r