git.sur5r.net Git - freertos/blob - FreeRTOS/Demo/CORTEX_R4_RM48_TMS570_CCS5/Library/het.c

   1 /*\r
   2     FreeRTOS V7.4.2 - Copyright (C) 2013 Real Time Engineers Ltd.\r
   3 \r
   4     FEATURES AND PORTS ARE ADDED TO FREERTOS ALL THE TIME.  PLEASE VISIT\r
   5     http://www.FreeRTOS.org TO ENSURE YOU ARE USING THE LATEST VERSION.\r
   6 \r
   7     ***************************************************************************\r
   8      *                                                                       *\r
   9      *    FreeRTOS tutorial books are available in pdf and paperback.        *\r
  10      *    Complete, revised, and edited pdf reference manuals are also       *\r
  11      *    available.                                                         *\r
  12      *                                                                       *\r
  13      *    Purchasing FreeRTOS documentation will not only help you, by       *\r
  14      *    ensuring you get running as quickly as possible and with an        *\r
  15      *    in-depth knowledge of how to use FreeRTOS, it will also help       *\r
  16      *    the FreeRTOS project to continue with its mission of providing     *\r
  17      *    professional grade, cross platform, de facto standard solutions    *\r
  18      *    for microcontrollers - completely free of charge!                  *\r
  19      *                                                                       *\r
  20      *    >>> See http://www.FreeRTOS.org/Documentation for details. <<<     *\r
  21      *                                                                       *\r
  22      *    Thank you for using FreeRTOS, and thank you for your support!      *\r
  23      *                                                                       *\r
  24     ***************************************************************************\r
  25 \r
  26 \r
  27     This file is part of the FreeRTOS distribution.\r
  28 \r
  29     FreeRTOS is free software; you can redistribute it and/or modify it under\r
  30     the terms of the GNU General Public License (version 2) as published by the\r
  31     Free Software Foundation AND MODIFIED BY the FreeRTOS exception.\r
  32 \r
  33     >>>>>>NOTE<<<<<< The modification to the GPL is included to allow you to\r
  34     distribute a combined work that includes FreeRTOS without being obliged to\r
  35     provide the source code for proprietary components outside of the FreeRTOS\r
  36     kernel.\r
  37 \r
  38     FreeRTOS is distributed in the hope that it will be useful, but WITHOUT ANY\r
  39     WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS\r
  40     FOR A PARTICULAR PURPOSE.  See the GNU General Public License for more\r
  41     details. You should have received a copy of the GNU General Public License\r
  42     and the FreeRTOS license exception along with FreeRTOS; if not it can be\r
  43     viewed here: http://www.freertos.org/a00114.html and also obtained by\r
  44     writing to Real Time Engineers Ltd., contact details for whom are available\r
  45     on the FreeRTOS WEB site.\r
  46 \r
  47     1 tab == 4 spaces!\r
  48 \r
  49     ***************************************************************************\r
  50      *                                                                       *\r
  51      *    Having a problem?  Start by reading the FAQ "My application does   *\r
  52      *    not run, what could be wrong?"                                     *\r
  53      *                                                                       *\r
  54      *    http://www.FreeRTOS.org/FAQHelp.html                               *\r
  55      *                                                                       *\r
  56     ***************************************************************************\r
  57 \r
  58 \r
  59     http://www.FreeRTOS.org - Documentation, books, training, latest versions,\r
  60     license and Real Time Engineers Ltd. contact details.\r
  61 \r
  62     http://www.FreeRTOS.org/plus - A selection of FreeRTOS ecosystem products,\r
  63     including FreeRTOS+Trace - an indispensable productivity tool, and our new\r
  64     fully thread aware and reentrant UDP/IP stack.\r
  65 \r
  66     http://www.OpenRTOS.com - Real Time Engineers ltd license FreeRTOS to High\r
  67     Integrity Systems, who sell the code with commercial support,\r
  68     indemnification and middleware, under the OpenRTOS brand.\r
  69 \r
  70     http://www.SafeRTOS.com - High Integrity Systems also provide a safety\r
  71     engineered and independently SIL3 certified version for use in safety and\r
  72     mission critical applications that require provable dependability.\r
  73 */\r
  74 \r
  75 #include "FreeRTOS.h"\r
  76 #include "Task.h"\r
  77 #include "gio.h"\r
  78 #include "het.h"\r
  79 \r
  80 /*\r
  81  * Task that flashes the LEDS on the USB stick.\r
  82  *\r
  83  * This task is also run in Thumb mode to test the ARM/THUMB context switch\r
  84  */\r
  85 \r
  86 #pragma TASK(vLedTask)\r
  87 #pragma CODE_STATE(vLedTask, 16)\r
  88 \r
  89 void vLedTask(void *pvParameters)\r
  90 {\r
  91         unsigned led    = 0;\r
  92         unsigned count  = 0;\r
  93         unsigned colour = 0;\r
  94 \r
  95         /* Initalise the IO ports that drive the LEDs */\r
  96         gioSetDirection(hetPORT, 0xFFFFFFFF);\r
  97         /* switch all leds off */\r
  98         gioSetPort(hetPORT, 0x08110034);\r
  99 \r
 100         for(;;)\r
 101         {\r
 102                 /* toggle on/off */\r
 103                 led ^= 1;\r
 104                 /* switch TOP row */\r
 105                 gioSetBit(hetPORT, 25, led);\r
 106                 gioSetBit(hetPORT, 18, led);\r
 107                 gioSetBit(hetPORT, 29, led);\r
 108                 /* switch BOTTOM row */\r
 109                 gioSetBit(hetPORT, 17, led ^ 1);\r
 110                 gioSetBit(hetPORT, 31, led ^ 1);\r
 111                 gioSetBit(hetPORT,  0, led ^ 1);\r
 112                 vTaskDelay(500);\r
 113 \r
 114                 if (++count > 5)\r
 115                 {\r
 116                         count = 0;\r
 117                         /* both leds to off */\r
 118                         gioSetBit(hetPORT, 2, 1);  gioSetBit(hetPORT,  5, 1);  gioSetBit(hetPORT, 20, 1);\r
 119                         gioSetBit(hetPORT, 4, 1);  gioSetBit(hetPORT, 27, 1);  gioSetBit(hetPORT, 16, 1);\r
 120                         switch(colour)\r
 121                         {\r
 122                         case 0:\r
 123                                 gioSetBit(hetPORT, 2, 0);  /* red */\r
 124                                 gioSetBit(hetPORT, 4, 0);\r
 125                                 colour++;\r
 126                                 continue;\r
 127                         case 1:\r
 128                                 gioSetBit(hetPORT,  5, 0);  /* blue */\r
 129                                 gioSetBit(hetPORT, 27, 0);\r
 130                                 colour++;\r
 131                                 continue;\r
 132                         case 2:\r
 133                                 gioSetBit(hetPORT, 20, 0);  /* green */\r
 134                                 gioSetBit(hetPORT, 16, 0);\r
 135                                 colour++;\r
 136                                 continue;\r
 137                         }\r
 138                         colour = 0;\r
 139                 }\r
 140         }\r
 141 }\r
 142 \r