| /* | |
| FreeRTOS V7.2.0 - Copyright (C) 2012 Real Time Engineers Ltd. | |
| *************************************************************************** | |
| * * | |
| * FreeRTOS tutorial books are available in pdf and paperback. * | |
| * Complete, revised, and edited pdf reference manuals are also * | |
| * available. * | |
| * * | |
| * Purchasing FreeRTOS documentation will not only help you, by * | |
| * ensuring you get running as quickly as possible and with an * | |
| * in-depth knowledge of how to use FreeRTOS, it will also help * | |
| * the FreeRTOS project to continue with its mission of providing * | |
| * professional grade, cross platform, de facto standard solutions * | |
| * for microcontrollers - completely free of charge! * | |
| * * | |
| * >>> See http://www.FreeRTOS.org/Documentation for details. <<< * | |
| * * | |
| * Thank you for using FreeRTOS, and thank you for your support! * | |
| * * | |
| *************************************************************************** | |
| This file is part of the FreeRTOS distribution. | |
| FreeRTOS is free software; you can redistribute it and/or modify it under | |
| the terms of the GNU General Public License (version 2) as published by the | |
| Free Software Foundation AND MODIFIED BY the FreeRTOS exception. | |
| >>>NOTE<<< The modification to the GPL is included to allow you to | |
| distribute a combined work that includes FreeRTOS without being obliged to | |
| provide the source code for proprietary components outside of the FreeRTOS | |
| kernel. FreeRTOS is distributed in the hope that it will be useful, but | |
| WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY | |
| or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for | |
| more details. You should have received a copy of the GNU General Public | |
| License and the FreeRTOS license exception along with FreeRTOS; if not it | |
| can be viewed here: http://www.freertos.org/a00114.html and also obtained | |
| by writing to Richard Barry, contact details for whom are available on the | |
| FreeRTOS WEB site. | |
| 1 tab == 4 spaces! | |
| *************************************************************************** | |
| * * | |
| * Having a problem? Start by reading the FAQ "My application does * | |
| * not run, what could be wrong? * | |
| * * | |
| * http://www.FreeRTOS.org/FAQHelp.html * | |
| * * | |
| *************************************************************************** | |
| http://www.FreeRTOS.org - Documentation, training, latest information, | |
| license and contact details. | |
| http://www.FreeRTOS.org/plus - A selection of FreeRTOS ecosystem products, | |
| including FreeRTOS+Trace - an indispensable productivity tool. | |
| Real Time Engineers ltd license FreeRTOS to High Integrity Systems, who sell | |
| the code with commercial support, indemnification, and middleware, under | |
| the OpenRTOS brand: http://www.OpenRTOS.com. High Integrity Systems also | |
| provide a safety engineered and independently SIL3 certified version under | |
| the SafeRTOS brand: http://www.SafeRTOS.com. | |
| */ | |
| /* FreeRTOS.org includes. */ | |
| #include "FreeRTOS.h" | |
| /* Demo application includes. */ | |
| #include "partest.h" | |
| #define partstFIRST_IO ( ( unsigned long ) 0x04 ) | |
| #define partstFIO2_BITS ( ( unsigned long ) 0x0000007C ) | |
| #define partstFIO1_BITS ( ( unsigned long ) 0xB0000000 ) | |
| #define partstNUM_LEDS ( 5 ) | |
| #define partstALL_OUTPUTS_OFF ( ( unsigned long ) 0xff ) | |
| /*----------------------------------------------------------- | |
| * Simple parallel port IO routines. | |
| *-----------------------------------------------------------*/ | |
| void vParTestInitialise( void ) | |
| { | |
| /* LEDs on ports 1 and 2 to output. */ | |
| GPIO2->FIODIR = partstFIO2_BITS; | |
| GPIO1->FIODIR = partstFIO1_BITS; | |
| /* Start will all LEDs off. */ | |
| GPIO2->FIOCLR = partstFIO2_BITS; | |
| GPIO1->FIOCLR = partstFIO1_BITS; | |
| } | |
| /*-----------------------------------------------------------*/ | |
| void vParTestSetLED( unsigned long ulLEDIn, signed long xValue ) | |
| { | |
| unsigned long ulLED = partstFIRST_IO; | |
| /* Used to set and clear LEDs on FIO2. */ | |
| if( ulLEDIn < partstNUM_LEDS ) | |
| { | |
| /* Rotate to the wanted bit of port */ | |
| ulLED <<= ( unsigned long ) ulLEDIn; | |
| /* Set of clear the output. */ | |
| if( xValue ) | |
| { | |
| GPIO2->FIOCLR = ulLED; | |
| } | |
| else | |
| { | |
| GPIO2->FIOSET = ulLED; | |
| } | |
| } | |
| } | |
| /*-----------------------------------------------------------*/ | |
| void vParTestToggleLED( unsigned long ulLEDIn ) | |
| { | |
| unsigned long ulLED = partstFIRST_IO, ulCurrentState; | |
| /* Used to toggle LEDs on FIO2. */ | |
| if( ulLEDIn < partstNUM_LEDS ) | |
| { | |
| /* Rotate to the wanted bit of port 0. Only P10 to P13 have an LED | |
| attached. */ | |
| ulLED <<= ( unsigned long ) ulLEDIn; | |
| /* If this bit is already set, clear it, and visa versa. */ | |
| ulCurrentState = GPIO2->FIOPIN; | |
| if( ulCurrentState & ulLED ) | |
| { | |
| GPIO2->FIOCLR = ulLED; | |
| } | |
| else | |
| { | |
| GPIO2->FIOSET = ulLED; | |
| } | |
| } | |
| } | |
| /*-----------------------------------------------------------*/ | |
| long lParTestGetLEDState( void ) | |
| { | |
| /* Returns the state of the LEDs on FIO1. */ | |
| if( ( GPIO1->FIOPIN & partstFIO1_BITS ) != 0 ) | |
| { | |
| return pdFALSE; | |
| } | |
| else | |
| { | |
| return pdTRUE; | |
| } | |
| } | |
| /*-----------------------------------------------------------*/ | |
| void vParTestSetLEDState( long lState ) | |
| { | |
| /* Used to set and clear the LEDs on FIO1. */ | |
| if( lState != pdFALSE ) | |
| { | |
| GPIO1->FIOSET = partstFIO1_BITS; | |
| } | |
| else | |
| { | |
| GPIO1->FIOCLR = partstFIO1_BITS; | |
| } | |
| } | |
| /*-----------------------------------------------------------*/ | |