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

   1 /*\r
   2  * FreeRTOS Kernel V10.2.1\r
   3  * Copyright (C) 2019 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 GPIO (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 /* Standard demo include. */\r
  37 #include "partest.h"\r
  38 \r
  39 /* Freescale includes. */\r
  40 #include "common.h"\r
  41 \r
  42 /* Only the LEDs on one of the two seven segment displays are used. */\r
  43 #define partstMAX_LEDS          4\r
  44 \r
  45 /* The bits used to control the LEDs on the TWR-K60N512. */\r
  46 const unsigned long ulLEDs[ partstMAX_LEDS ] = { ( 1UL << 10UL ), ( 1UL << 29UL ), ( 1UL << 28UL ), ( 1UL << 11UL ) };\r
  47 \r
  48 /*-----------------------------------------------------------*/\r
  49 \r
  50 void vParTestInitialise( void )\r
  51 {\r
  52         /* Set PTA10, PTA11, PTA28, and PTA29 (connected to LED's) for GPIO\r
  53         functionality. */\r
  54         PORTA_PCR10 = ( 0 | PORT_PCR_MUX( 1 ) );\r
  55         PORTA_PCR11 = ( 0 | PORT_PCR_MUX( 1 ) );\r
  56         PORTA_PCR28 = ( 0 | PORT_PCR_MUX( 1 ) );\r
  57         PORTA_PCR29 = ( 0 | PORT_PCR_MUX( 1 ) );\r
  58         \r
  59         /* Change PTA10, PTA11, PTA28, PTA29 to outputs. */\r
  60         GPIOA_PDDR=GPIO_PDDR_PDD( ulLEDs[ 0 ] | ulLEDs[ 1 ] | ulLEDs[ 2 ] | ulLEDs[ 3 ] );      \r
  61 \r
  62         /* Start with LEDs off. */\r
  63         GPIOA_PTOR = ~0U;       \r
  64 }\r
  65 /*-----------------------------------------------------------*/\r
  66 \r
  67 void vParTestSetLED( unsigned long ulLED, signed portBASE_TYPE xValue )\r
  68 {\r
  69         if( ulLED < partstMAX_LEDS )\r
  70         {\r
  71                 if( xValue == pdTRUE )\r
  72                 {\r
  73                         GPIOA_PCOR = ulLEDs[ ulLED ];\r
  74                 }\r
  75                 else\r
  76                 {\r
  77                         GPIOA_PSOR = ulLEDs[ ulLED ];\r
  78                 }\r
  79         }\r
  80 }\r
  81 /*-----------------------------------------------------------*/\r
  82 \r
  83 void vParTestToggleLED( unsigned long ulLED )\r
  84 {\r
  85         if( ulLED < partstMAX_LEDS )\r
  86         {\r
  87                 GPIOA_PTOR = ulLEDs[ ulLED ];\r
  88         }\r
  89 }\r
  90 /*-----------------------------------------------------------*/\r
  91 \r
  92 long lParTestGetLEDState( unsigned long ulLED )\r
  93 {\r
  94 long lReturn = pdFALSE;\r
  95 \r
  96         if( ulLED < partstMAX_LEDS )\r
  97         {\r
  98                 lReturn = GPIOA_PDOR & ulLEDs[ ulLED ];\r
  99                 \r
 100                 if( lReturn == 0 )\r
 101                 {\r
 102                         lReturn = pdTRUE;\r
 103                 }\r
 104                 else\r
 105                 {\r
 106                         lReturn = pdFALSE;\r
 107                 }\r
 108         }\r
 109 \r
 110         return lReturn;\r
 111 }\r