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

   1 /*\r
   2  * FreeRTOS Kernel V10.3.0\r
   3  * Copyright (C) 2020 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.\r
  14  *\r
  15  * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR\r
  16  * IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, FITNESS\r
  17  * FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR\r
  18  * COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER\r
  19  * IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN\r
  20  * CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.\r
  21  *\r
  22  * http://www.FreeRTOS.org\r
  23  * http://aws.amazon.com/freertos\r
  24  *\r
  25  * 1 tab == 4 spaces!\r
  26  */\r
  27 \r
  28 /*-----------------------------------------------------------\r
  29  * Simple parallel port IO routines.\r
  30  *-----------------------------------------------------------*/\r
  31 \r
  32 /* Kernel includes. */\r
  33 #include "FreeRTOS.h"\r
  34 #include "task.h"\r
  35 \r
  36 /* Library includes. */\r
  37 #include "mss_gpio.h"\r
  38 \r
  39 #define partstMAX_LEDS          8\r
  40 \r
  41 static volatile unsigned long ulGPIOState = 0UL;\r
  42 \r
  43 /*-----------------------------------------------------------*/\r
  44 \r
  45 void vParTestInitialise( void )\r
  46 {\r
  47 long x;\r
  48 \r
  49         /* Initialise the GPIO */\r
  50         MSS_GPIO_init();\r
  51 \r
  52         /* Set up GPIO for the LEDs. */\r
  53         for( x = 0; x < partstMAX_LEDS; x++ )\r
  54         {\r
  55                 MSS_GPIO_config( ( mss_gpio_id_t ) x , MSS_GPIO_OUTPUT_MODE );\r
  56         }\r
  57 \r
  58         /* All LEDs start off. */\r
  59         ulGPIOState = 0xffffffffUL;\r
  60         MSS_GPIO_set_outputs( ulGPIOState );\r
  61 }\r
  62 /*-----------------------------------------------------------*/\r
  63 \r
  64 void vParTestSetLED( unsigned portBASE_TYPE uxLED, signed portBASE_TYPE xValue )\r
  65 {\r
  66         if( uxLED < partstMAX_LEDS )\r
  67         {\r
  68                 /* A critical section is used as the LEDs are also accessed from an\r
  69                 interrupt. */\r
  70                 taskENTER_CRITICAL();\r
  71                 {\r
  72                         if( xValue == pdTRUE )\r
  73                         {\r
  74                                 ulGPIOState &= ~( 1UL << uxLED );\r
  75                         }\r
  76                         else\r
  77                         {\r
  78                                 ulGPIOState |= ( 1UL << uxLED );\r
  79                         }\r
  80                         \r
  81                         MSS_GPIO_set_outputs( ulGPIOState );\r
  82                 }\r
  83                 taskEXIT_CRITICAL();\r
  84         }\r
  85 }\r
  86 /*-----------------------------------------------------------*/\r
  87 \r
  88 void vParTestSetLEDFromISR( unsigned portBASE_TYPE uxLED, signed portBASE_TYPE xValue )\r
  89 {\r
  90 unsigned portBASE_TYPE uxInterruptFlags;\r
  91 \r
  92         uxInterruptFlags = portSET_INTERRUPT_MASK_FROM_ISR();\r
  93         {\r
  94                 if( uxLED < partstMAX_LEDS )\r
  95                 {\r
  96                         if( xValue == pdTRUE )\r
  97                         {\r
  98                                 ulGPIOState &= ~( 1UL << uxLED );\r
  99                         }\r
 100                         else\r
 101                         {\r
 102                                 ulGPIOState |= ( 1UL << uxLED );\r
 103                         }\r
 104 \r
 105                         MSS_GPIO_set_outputs( ulGPIOState );\r
 106                 }\r
 107         }\r
 108         portCLEAR_INTERRUPT_MASK_FROM_ISR( uxInterruptFlags );\r
 109 }\r
 110 /*-----------------------------------------------------------*/\r
 111 \r
 112 void vParTestToggleLED( unsigned portBASE_TYPE uxLED )\r
 113 {\r
 114         if( uxLED < partstMAX_LEDS )\r
 115         {\r
 116                 /* A critical section is used as the LEDs are also accessed from an\r
 117                 interrupt. */\r
 118                 taskENTER_CRITICAL();\r
 119                 {\r
 120                         if( ( ulGPIOState & ( 1UL << uxLED ) ) != 0UL )\r
 121                         {\r
 122                                 ulGPIOState &= ~( 1UL << uxLED );\r
 123                         }\r
 124                         else\r
 125                         {\r
 126                                 ulGPIOState |= ( 1UL << uxLED );\r
 127                         }\r
 128                         \r
 129                         MSS_GPIO_set_outputs( ulGPIOState );\r
 130                 }\r
 131                 taskEXIT_CRITICAL();\r
 132         }\r
 133 }\r
 134 /*-----------------------------------------------------------*/\r
 135 \r
 136 long lParTestGetLEDState( unsigned long ulLED )\r
 137 {\r
 138 long lReturn = pdFALSE;\r
 139 \r
 140         if( ulLED < partstMAX_LEDS )\r
 141         {\r
 142                 taskENTER_CRITICAL();\r
 143                 {\r
 144                         if( ( ulGPIOState & ( 1UL << ulLED ) ) == 0UL )\r
 145                         {\r
 146                                 lReturn = pdTRUE;\r
 147                         }\r
 148                 }\r
 149                 taskEXIT_CRITICAL();\r
 150         }\r
 151 \r
 152         return lReturn;\r
 153 }\r
 154 /*-----------------------------------------------------------*/\r