]> begriffs open source - cmsis-freertos/blob - Demo/ColdFire_MCF52221_CodeWarrior/sources/ParTest/ParTest.c
Update cmsis_os2.c
[cmsis-freertos] / Demo / ColdFire_MCF52221_CodeWarrior / sources / ParTest / ParTest.c
1 /*
2     FreeRTOS V9.0.0 - Copyright (C) 2016 Real Time Engineers Ltd.
3     All rights reserved
4
5     VISIT http://www.FreeRTOS.org TO ENSURE YOU ARE USING THE LATEST VERSION.
6
7     This file is part of the FreeRTOS distribution.
8
9     FreeRTOS is free software; you can redistribute it and/or modify it under
10     the terms of the GNU General Public License (version 2) as published by the
11     Free Software Foundation >>>> AND MODIFIED BY <<<< the FreeRTOS exception.
12
13     ***************************************************************************
14     >>!   NOTE: The modification to the GPL is included to allow you to     !<<
15     >>!   distribute a combined work that includes FreeRTOS without being   !<<
16     >>!   obliged to provide the source code for proprietary components     !<<
17     >>!   outside of the FreeRTOS kernel.                                   !<<
18     ***************************************************************************
19
20     FreeRTOS is distributed in the hope that it will be useful, but WITHOUT ANY
21     WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS
22     FOR A PARTICULAR PURPOSE.  Full license text is available on the following
23     link: http://www.freertos.org/a00114.html
24
25     ***************************************************************************
26      *                                                                       *
27      *    FreeRTOS provides completely free yet professionally developed,    *
28      *    robust, strictly quality controlled, supported, and cross          *
29      *    platform software that is more than just the market leader, it     *
30      *    is the industry's de facto standard.                               *
31      *                                                                       *
32      *    Help yourself get started quickly while simultaneously helping     *
33      *    to support the FreeRTOS project by purchasing a FreeRTOS           *
34      *    tutorial book, reference manual, or both:                          *
35      *    http://www.FreeRTOS.org/Documentation                              *
36      *                                                                       *
37     ***************************************************************************
38
39     http://www.FreeRTOS.org/FAQHelp.html - Having a problem?  Start by reading
40     the FAQ page "My application does not run, what could be wrong?".  Have you
41     defined configASSERT()?
42
43     http://www.FreeRTOS.org/support - In return for receiving this top quality
44     embedded software for free we request you assist our global community by
45     participating in the support forum.
46
47     http://www.FreeRTOS.org/training - Investing in training allows your team to
48     be as productive as possible as early as possible.  Now you can receive
49     FreeRTOS training directly from Richard Barry, CEO of Real Time Engineers
50     Ltd, and the world's leading authority on the world's leading RTOS.
51
52     http://www.FreeRTOS.org/plus - A selection of FreeRTOS ecosystem products,
53     including FreeRTOS+Trace - an indispensable productivity tool, a DOS
54     compatible FAT file system, and our tiny thread aware UDP/IP stack.
55
56     http://www.FreeRTOS.org/labs - Where new FreeRTOS products go to incubate.
57     Come and try FreeRTOS+TCP, our new open source TCP/IP stack for FreeRTOS.
58
59     http://www.OpenRTOS.com - Real Time Engineers ltd. license FreeRTOS to High
60     Integrity Systems ltd. to sell under the OpenRTOS brand.  Low cost OpenRTOS
61     licenses offer ticketed support, indemnification and commercial middleware.
62
63     http://www.SafeRTOS.com - High Integrity Systems also provide a safety
64     engineered and independently SIL3 certified version for use in safety and
65     mission critical applications that require provable dependability.
66
67     1 tab == 4 spaces!
68 */
69
70 /*
71         Changes from V2.5.2
72
73         + All LED's are turned off to start.
74 */
75
76
77 #include "FreeRTOS.h"
78 #include "task.h"
79 #include "partest.h"
80
81 #define partstNUM_LEDs  4
82
83 /*-----------------------------------------------------------
84  * Simple parallel port IO routines.
85  *-----------------------------------------------------------*/
86
87 void vParTestInitialise( void )
88 {
89     /* Enable signals as GPIO */
90     MCF_GPIO_PTCPAR = 0
91         | MCF_GPIO_PTCPAR_DTIN3_GPIO
92         | MCF_GPIO_PTCPAR_DTIN2_GPIO
93         | MCF_GPIO_PTCPAR_DTIN1_GPIO
94         | MCF_GPIO_PTCPAR_DTIN0_GPIO;
95     
96     /* Enable signals as digital outputs */
97     MCF_GPIO_DDRTC = 0
98         | MCF_GPIO_DDRTC_DDRTC3
99         | MCF_GPIO_DDRTC_DDRTC2
100         | MCF_GPIO_DDRTC_DDRTC1
101         | MCF_GPIO_DDRTC_DDRTC0;
102
103         MCF_GPIO_PORTTC = 0x00; // TURN LEDS OFF
104 }
105 /*-----------------------------------------------------------*/
106
107 void vParTestSetLED( unsigned portBASE_TYPE uxLED, signed portBASE_TYPE xValue )
108 {
109 unsigned portBASE_TYPE uxLEDMask;
110
111         if( uxLED < partstNUM_LEDs )
112         {
113                 uxLEDMask = 1UL << uxLED;
114                 
115                 taskENTER_CRITICAL();
116                 {
117                         if( xValue )
118                         {
119                                 MCF_GPIO_PORTTC |= uxLEDMask;
120                         }
121                         else
122                         {
123                                 MCF_GPIO_PORTTC &= ~uxLEDMask;
124                         }
125                 }
126                 taskEXIT_CRITICAL();
127         }
128 }
129 /*-----------------------------------------------------------*/
130
131 void vParTestToggleLED( unsigned portBASE_TYPE uxLED )
132 {
133 unsigned portBASE_TYPE uxLEDMask;
134
135         if( uxLED < partstNUM_LEDs )
136         {
137                 uxLEDMask = 1UL << uxLED;
138                 
139                 taskENTER_CRITICAL();
140                 {
141                         if( MCF_GPIO_PORTTC & uxLEDMask )
142                         {
143                                 MCF_GPIO_PORTTC &= ~uxLEDMask;
144                         }
145                         else
146                         {
147                                 MCF_GPIO_PORTTC |= uxLEDMask;
148                         }
149                 }
150                 taskEXIT_CRITICAL();
151         }
152 }
153