git.sur5r.net Git - freertos/blob - FreeRTOS/Demo/ARM7_LPC2368_Eclipse/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 /* FreeRTOS.org includes. */\r
  30 #include "FreeRTOS.h"\r
  31 \r
  32 /* Demo application includes. */\r
  33 #include "partest.h"\r
  34 \r
  35 #define partstFIRST_IO                  ( ( unsigned long ) 0x01 )\r
  36 #define partstNUM_LEDS                  ( 8 )\r
  37 #define partstALL_OUTPUTS_OFF   ( ( unsigned long ) 0xff )\r
  38 \r
  39 /*-----------------------------------------------------------\r
  40  * Simple parallel port IO routines.\r
  41  *-----------------------------------------------------------*/\r
  42 \r
  43 void vParTestInitialise( void )\r
  44 {\r
  45         PINSEL10 = 0;\r
  46         FIO2DIR  = 0x000000FF;\r
  47         FIO2MASK = 0x00000000;\r
  48         FIO2CLR  = 0xFF;\r
  49         SCS |= (1<<0); //fast mode for port 0 and 1\r
  50 \r
  51     FIO2CLR = partstALL_OUTPUTS_OFF;\r
  52 }\r
  53 /*-----------------------------------------------------------*/\r
  54 \r
  55 void vParTestSetLED( unsigned portBASE_TYPE uxLED, signed portBASE_TYPE xValue )\r
  56 {\r
  57 unsigned long ulLED = partstFIRST_IO;\r
  58 \r
  59         if( uxLED < partstNUM_LEDS )\r
  60         {\r
  61                 /* Rotate to the wanted bit of port */\r
  62                 ulLED <<= ( unsigned long ) uxLED;\r
  63 \r
  64                 /* Set of clear the output. */\r
  65                 if( xValue )\r
  66                 {\r
  67                         FIO2CLR = ulLED;\r
  68                 }\r
  69                 else\r
  70                 {\r
  71                         FIO2SET = ulLED;\r
  72                 }\r
  73         }\r
  74 }\r
  75 /*-----------------------------------------------------------*/\r
  76 \r
  77 void vParTestToggleLED( unsigned portBASE_TYPE uxLED )\r
  78 {\r
  79 unsigned long ulLED = partstFIRST_IO, ulCurrentState;\r
  80 \r
  81         if( uxLED < partstNUM_LEDS )\r
  82         {\r
  83                 /* Rotate to the wanted bit of port 0.  Only P10 to P13 have an LED\r
  84                 attached. */\r
  85                 ulLED <<= ( unsigned long ) uxLED;\r
  86 \r
  87                 /* If this bit is already set, clear it, and vice versa. */\r
  88                 ulCurrentState = FIO2PIN;\r
  89                 if( ulCurrentState & ulLED )\r
  90                 {\r
  91                         FIO2CLR = ulLED;\r
  92                 }\r
  93                 else\r
  94                 {\r
  95                         FIO2SET = ulLED;                        \r
  96                 }\r
  97         }       \r
  98 }\r
  99 \r
 100 /*-----------------------------------------------------------*/\r
 101 unsigned portBASE_TYPE uxParTextGetLED( unsigned portBASE_TYPE uxLED )\r
 102 {\r
 103 unsigned long ulLED = partstFIRST_IO;\r
 104     \r
 105     ulLED <<= ( unsigned long ) uxLED;\r
 106 \r
 107     return ( FIO2PIN & ulLED );\r
 108 }\r
 109 \r
 110 \r