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

   1 /*\r
   2  * FreeRTOS Kernel V10.0.0\r
   3  * Copyright (C) 2017 Amazon.com, Inc. or its affiliates.  All Rights Reserved.\r
   4  *\r
   5  * Permission is hereby granted, free of charge, to any person obtaining a copy of\r
   6  * this software and associated documentation files (the "Software"), to deal in\r
   7  * the Software without restriction, including without limitation the rights to\r
   8  * use, copy, modify, merge, publish, distribute, sublicense, and/or sell copies of\r
   9  * the Software, and to permit persons to whom the Software is furnished to do so,\r
  10  * subject to the following conditions:\r
  11  *\r
  12  * The above copyright notice and this permission notice shall be included in all\r
  13  * copies or substantial portions of the Software. If you wish to use our Amazon\r
  14  * FreeRTOS name, please do so in a fair use way that does not cause confusion.\r
  15  *\r
  16  * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR\r
  17  * IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, FITNESS\r
  18  * FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR\r
  19  * COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER\r
  20  * IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN\r
  21  * CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.\r
  22  *\r
  23  * http://www.FreeRTOS.org\r
  24  * http://aws.amazon.com/freertos\r
  25  *\r
  26  * 1 tab == 4 spaces!\r
  27  */\r
  28 \r
  29 /*-----------------------------------------------------------\r
  30  * Simple IO routines to control the LEDs.\r
  31  *-----------------------------------------------------------*/\r
  32 \r
  33 /* Scheduler includes. */\r
  34 #include "FreeRTOS.h"\r
  35 #include "task.h"\r
  36 \r
  37 /* Demo includes. */\r
  38 #include "partest.h"\r
  39 \r
  40 #define partestNUM_LEDS ( 6 )\r
  41 #define partestALL_LEDS ( usLEDMasks[ 0 ] | usLEDMasks[ 1 ] | usLEDMasks[ 2 ] | usLEDMasks[ 3 ] | usLEDMasks[ 4 ] | usLEDMasks[ 5 ] )\r
  42 \r
  43 static const unsigned short usLEDMasks[ partestNUM_LEDS ] = { ( 1 << 9 ), ( 1 << 11 ), ( 1 << 12 ), ( 1 << 13 ), ( 1 << 14 ), ( 1 << 15 ) };\r
  44 /*-----------------------------------------------------------*/\r
  45 \r
  46 void vParTestInitialise( void )\r
  47 {\r
  48         /* Select port functions for PE9 to PE15. */\r
  49         PFC.PECRL3.WORD &= ( unsigned short ) ~partestALL_LEDS;\r
  50 \r
  51         /* Turn all LEDs off. */\r
  52         PE.DR.WORD &= ( unsigned short ) ~partestALL_LEDS;\r
  53         \r
  54         /* Set all LEDs to output. */\r
  55         PFC.PEIORL.WORD |= ( unsigned short ) partestALL_LEDS;\r
  56 }\r
  57 /*-----------------------------------------------------------*/\r
  58 \r
  59 void vParTestSetLED( unsigned portBASE_TYPE uxLED, signed portBASE_TYPE xValue )\r
  60 {\r
  61         if( uxLED < partestNUM_LEDS )\r
  62         {\r
  63                 if( xValue )\r
  64                 {\r
  65                         /* Turn the LED on. */\r
  66                         taskENTER_CRITICAL();\r
  67                         {\r
  68                                 PE.DR.WORD |= usLEDMasks[ uxLED ];\r
  69                         }\r
  70                         taskEXIT_CRITICAL();\r
  71                 }\r
  72                 else\r
  73                 {\r
  74                         /* Turn the LED off. */\r
  75                         taskENTER_CRITICAL();\r
  76                         {\r
  77                                 PE.DR.WORD &= ( unsigned short ) ~usLEDMasks[ uxLED ];\r
  78                         }\r
  79                         taskEXIT_CRITICAL();\r
  80                 }\r
  81         }\r
  82 }\r
  83 /*-----------------------------------------------------------*/\r
  84 \r
  85 void vParTestToggleLED( unsigned portBASE_TYPE uxLED )\r
  86 {\r
  87         if( uxLED < partestNUM_LEDS )\r
  88         {\r
  89                 taskENTER_CRITICAL();\r
  90                 {\r
  91                         if( ( PE.DR.WORD & usLEDMasks[ uxLED ] ) != 0x00 )\r
  92                         {\r
  93                                 PE.DR.WORD &= ( unsigned short ) ~usLEDMasks[ uxLED ];\r
  94                         }\r
  95                         else\r
  96                         {\r
  97                                 PE.DR.WORD |= usLEDMasks[ uxLED ];\r
  98                         }\r
  99                 }\r
 100                 taskEXIT_CRITICAL();\r
 101         }\r
 102 }\r
 103 /*-----------------------------------------------------------*/\r
 104                                                         \r
 105 long lParTestGetLEDState( void )\r
 106 {\r
 107         /* Returns the state of the fifth LED. */\r
 108         return !( PE.DR.WORD & usLEDMasks[ 4 ] );\r
 109 }\r
 110 /*-----------------------------------------------------------*/\r
 111 \r
 112 \r
 113 \r
 114 \r
 115