git.sur5r.net Git - freertos/blob - FreeRTOS/Demo/CORTEX_A2F200_IAR_and_Keil/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 parallel port IO routines.\r
  31  *-----------------------------------------------------------*/\r
  32 \r
  33 /* Kernel includes. */\r
  34 #include "FreeRTOS.h"\r
  35 #include "task.h"\r
  36 \r
  37 /* Library includes. */\r
  38 #include "mss_gpio.h"\r
  39 \r
  40 #define partstMAX_LEDS          8\r
  41 \r
  42 static volatile unsigned long ulGPIOState = 0UL;\r
  43 \r
  44 /*-----------------------------------------------------------*/\r
  45 \r
  46 void vParTestInitialise( void )\r
  47 {\r
  48 long x;\r
  49 \r
  50         /* Initialise the GPIO */\r
  51         MSS_GPIO_init();\r
  52 \r
  53         /* Set up GPIO for the LEDs. */\r
  54         for( x = 0; x < partstMAX_LEDS; x++ )\r
  55         {\r
  56                 MSS_GPIO_config( ( mss_gpio_id_t ) x , MSS_GPIO_OUTPUT_MODE );\r
  57         }\r
  58 \r
  59         /* All LEDs start off. */\r
  60         ulGPIOState = 0xffffffffUL;\r
  61         MSS_GPIO_set_outputs( ulGPIOState );\r
  62 }\r
  63 /*-----------------------------------------------------------*/\r
  64 \r
  65 void vParTestSetLED( unsigned portBASE_TYPE uxLED, signed portBASE_TYPE xValue )\r
  66 {\r
  67         if( uxLED < partstMAX_LEDS )\r
  68         {\r
  69                 /* A critical section is used as the LEDs are also accessed from an\r
  70                 interrupt. */\r
  71                 taskENTER_CRITICAL();\r
  72                 {\r
  73                         if( xValue == pdTRUE )\r
  74                         {\r
  75                                 ulGPIOState &= ~( 1UL << uxLED );\r
  76                         }\r
  77                         else\r
  78                         {\r
  79                                 ulGPIOState |= ( 1UL << uxLED );\r
  80                         }\r
  81                         \r
  82                         MSS_GPIO_set_outputs( ulGPIOState );\r
  83                 }\r
  84                 taskEXIT_CRITICAL();\r
  85         }\r
  86 }\r
  87 /*-----------------------------------------------------------*/\r
  88 \r
  89 void vParTestSetLEDFromISR( unsigned portBASE_TYPE uxLED, signed portBASE_TYPE xValue )\r
  90 {\r
  91 unsigned portBASE_TYPE uxInterruptFlags;\r
  92 \r
  93         uxInterruptFlags = portSET_INTERRUPT_MASK_FROM_ISR();\r
  94         {\r
  95                 if( uxLED < partstMAX_LEDS )\r
  96                 {\r
  97                         if( xValue == pdTRUE )\r
  98                         {\r
  99                                 ulGPIOState &= ~( 1UL << uxLED );\r
 100                         }\r
 101                         else\r
 102                         {\r
 103                                 ulGPIOState |= ( 1UL << uxLED );\r
 104                         }\r
 105 \r
 106                         MSS_GPIO_set_outputs( ulGPIOState );\r
 107                 }\r
 108         }\r
 109         portCLEAR_INTERRUPT_MASK_FROM_ISR( uxInterruptFlags );\r
 110 }\r
 111 /*-----------------------------------------------------------*/\r
 112 \r
 113 void vParTestToggleLED( unsigned portBASE_TYPE uxLED )\r
 114 {\r
 115         if( uxLED < partstMAX_LEDS )\r
 116         {\r
 117                 /* A critical section is used as the LEDs are also accessed from an\r
 118                 interrupt. */\r
 119                 taskENTER_CRITICAL();\r
 120                 {\r
 121                         if( ( ulGPIOState & ( 1UL << uxLED ) ) != 0UL )\r
 122                         {\r
 123                                 ulGPIOState &= ~( 1UL << uxLED );\r
 124                         }\r
 125                         else\r
 126                         {\r
 127                                 ulGPIOState |= ( 1UL << uxLED );\r
 128                         }\r
 129                         \r
 130                         MSS_GPIO_set_outputs( ulGPIOState );\r
 131                 }\r
 132                 taskEXIT_CRITICAL();\r
 133         }\r
 134 }\r
 135 /*-----------------------------------------------------------*/\r
 136 \r
 137 long lParTestGetLEDState( unsigned long ulLED )\r
 138 {\r
 139 long lReturn = pdFALSE;\r
 140 \r
 141         if( ulLED < partstMAX_LEDS )\r
 142         {\r
 143                 taskENTER_CRITICAL();\r
 144                 {\r
 145                         if( ( ulGPIOState & ( 1UL << ulLED ) ) == 0UL )\r
 146                         {\r
 147                                 lReturn = pdTRUE;\r
 148                         }\r
 149                 }\r
 150                 taskEXIT_CRITICAL();\r
 151         }\r
 152 \r
 153         return lReturn;\r
 154 }\r
 155 /*-----------------------------------------------------------*/\r