begriffs open source - cmsis-freertos/blob - Demo/RX100-RSK

1 /*

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 * Simple IO routines to control the LEDs.

72 *-----------------------------------------------------------*/

73

74 /* Scheduler includes. */

75 #include "FreeRTOS.h"

76 #include "task.h"

77

78 /* Demo includes. */

79 #include "partest.h"

80

81 #define partestNUM_LEDS ( 4 )

82

83 long lParTestGetLEDState( unsigned long ulLED );

84

85 /*-----------------------------------------------------------*/

86

87 void vParTestInitialise( void )

88 {

89 /* Port pin configuration is done by the low level set up prior to this

90 function being called. */

91 }

92 /*-----------------------------------------------------------*/

93

94 void vParTestSetLED( unsigned long ulLED, signed long xValue )

95 {

96 if( ulLED < partestNUM_LEDS )

97 {

98 if( xValue != 0 )

99 {

100 /* Turn the LED on. */

101 taskENTER_CRITICAL();

102 {

103 switch( ulLED )

104 {

105 case 0: LED0 = LED_ON;

106 break;

107 case 1: LED1 = LED_ON;

108 break;

109 case 2: LED2 = LED_ON;

110 break;

111 case 3: LED3 = LED_ON;

112 break;

113 }

114 }

115 taskEXIT_CRITICAL();

116 }

117 else

118 {

119 /* Turn the LED off. */

120 taskENTER_CRITICAL();

121 {

122 switch( ulLED )

123 {

124 case 0: LED0 = LED_OFF;

125 break;

126 case 1: LED1 = LED_OFF;

127 break;

128 case 2: LED2 = LED_OFF;

129 break;

130 case 3: LED3 = LED_OFF;

131 break;

132 }

133

134 }

135 taskEXIT_CRITICAL();

136 }

137 }

138 }

139 /*-----------------------------------------------------------*/

140

141 void vParTestToggleLED( unsigned long ulLED )

142 {

143 if( ulLED < partestNUM_LEDS )

144 {

145 taskENTER_CRITICAL();

146 {

147 if( lParTestGetLEDState( ulLED ) != 0x00 )

148 {

149 vParTestSetLED( ulLED, 0 );

150 }

151 else

152 {

153 vParTestSetLED( ulLED, 1 );

154 }

155 }

156 taskEXIT_CRITICAL();

157 }

158 }

159 /*-----------------------------------------------------------*/

160

161 long lParTestGetLEDState( unsigned long ulLED )

162 {

163 long lReturn = pdTRUE;

164

165 if( ulLED < partestNUM_LEDS )

166 {

167 switch( ulLED )

168 {

169 case 0 : if( LED0 != 0 )

170 {

171 lReturn = pdFALSE;

172 }

173 break;

174 case 1 : if( LED1 != 0 )

175 {

176 lReturn = pdFALSE;

177 }

178 break;

179 case 2 : if( LED2 != 0 )

180 {

181 lReturn = pdFALSE;

182 }

183 break;

184 case 3 : if( LED3 != 0 )

185 {

186 lReturn = pdFALSE;

187 }

188 break;

189 }

190 }

191

192 return lReturn;

193 }

194 /*-----------------------------------------------------------*/

195