amiro-blt / Target / Source / ARMCM3_STM32 / can.c @ 93933a75
History | View | Annotate | Download (24.573 KB)
1 | 69661903 | Thomas Schöpping | /************************************************************************************//** |
---|---|---|---|
2 | * \file Source\ARMCM3_STM32\can.c
|
||
3 | * \brief Bootloader CAN communication interface source file.
|
||
4 | * \ingroup Target_ARMCM3_STM32
|
||
5 | * \internal
|
||
6 | *----------------------------------------------------------------------------------------
|
||
7 | * C O P Y R I G H T
|
||
8 | *----------------------------------------------------------------------------------------
|
||
9 | * Copyright (c) 2011 by Feaser http://www.feaser.com All rights reserved
|
||
10 | *
|
||
11 | *----------------------------------------------------------------------------------------
|
||
12 | * L I C E N S E
|
||
13 | *----------------------------------------------------------------------------------------
|
||
14 | * This file is part of OpenBLT. OpenBLT is free software: you can redistribute it and/or
|
||
15 | * modify it under the terms of the GNU General Public License as published by the Free
|
||
16 | * Software Foundation, either version 3 of the License, or (at your option) any later
|
||
17 | * version.
|
||
18 | *
|
||
19 | * OpenBLT is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY;
|
||
20 | * without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR
|
||
21 | * PURPOSE. See the GNU General Public License for more details.
|
||
22 | *
|
||
23 | * You should have received a copy of the GNU General Public License along with OpenBLT.
|
||
24 | * If not, see <http://www.gnu.org/licenses/>.
|
||
25 | *
|
||
26 | d54d2f07 | Thomas Schöpping | * A special exception to the GPL is included to allow you to distribute a combined work
|
27 | * that includes OpenBLT without being obliged to provide the source code for any
|
||
28 | 69661903 | Thomas Schöpping | * proprietary components. The exception text is included at the bottom of the license
|
29 | * file <license.html>.
|
||
30 | d54d2f07 | Thomas Schöpping | *
|
31 | 69661903 | Thomas Schöpping | * \endinternal
|
32 | ****************************************************************************************/
|
||
33 | |||
34 | d54d2f07 | Thomas Schöpping | #define CAN_DEBUG (0) |
35 | 69661903 | Thomas Schöpping | |
36 | /****************************************************************************************
|
||
37 | * Include files
|
||
38 | ****************************************************************************************/
|
||
39 | #include "boot.h" /* bootloader generic header */ |
||
40 | |||
41 | d54d2f07 | Thomas Schöpping | #if (CAN_DEBUG > 0) |
42 | #include <helper.h> |
||
43 | #endif
|
||
44 | |||
45 | 69661903 | Thomas Schöpping | |
46 | #if (BOOT_COM_CAN_ENABLE > 0 || BOOT_GATE_CAN_ENABLE > 0) |
||
47 | /****************************************************************************************
|
||
48 | * Type definitions
|
||
49 | ****************************************************************************************/
|
||
50 | /** \brief CAN transmission mailbox layout. */
|
||
51 | typedef struct |
||
52 | { |
||
53 | volatile blt_int32u TIR;
|
||
54 | volatile blt_int32u TDTR;
|
||
55 | volatile blt_int32u TDLR;
|
||
56 | volatile blt_int32u TDHR;
|
||
57 | } tCanTxMailBox; |
||
58 | |||
59 | /** \brief CAN reception FIFO mailbox layout. */
|
||
60 | typedef struct |
||
61 | { |
||
62 | volatile blt_int32u RIR;
|
||
63 | volatile blt_int32u RDTR;
|
||
64 | volatile blt_int32u RDLR;
|
||
65 | volatile blt_int32u RDHR;
|
||
66 | d54d2f07 | Thomas Schöpping | } tCanRxFIFOMailBox; |
67 | 69661903 | Thomas Schöpping | |
68 | /** \brief CAN filter register layout. */
|
||
69 | typedef struct |
||
70 | { |
||
71 | volatile blt_int32u FR1;
|
||
72 | volatile blt_int32u FR2;
|
||
73 | } tCanFilter; |
||
74 | |||
75 | /** \brief CAN controller register layout. */
|
||
76 | typedef struct |
||
77 | { |
||
78 | volatile blt_int32u MCR;
|
||
79 | volatile blt_int32u MSR;
|
||
80 | volatile blt_int32u TSR;
|
||
81 | volatile blt_int32u RF0R;
|
||
82 | volatile blt_int32u RF1R;
|
||
83 | volatile blt_int32u IER;
|
||
84 | volatile blt_int32u ESR;
|
||
85 | volatile blt_int32u BTR;
|
||
86 | blt_int32u RESERVED0[88];
|
||
87 | tCanTxMailBox sTxMailBox[3];
|
||
88 | tCanRxFIFOMailBox sFIFOMailBox[2];
|
||
89 | blt_int32u RESERVED1[12];
|
||
90 | volatile blt_int32u FMR;
|
||
91 | volatile blt_int32u FM1R;
|
||
92 | blt_int32u RESERVED2; |
||
93 | volatile blt_int32u FS1R;
|
||
94 | blt_int32u RESERVED3; |
||
95 | volatile blt_int32u FFA1R;
|
||
96 | blt_int32u RESERVED4; |
||
97 | volatile blt_int32u FA1R;
|
||
98 | blt_int32u RESERVED5[8];
|
||
99 | tCanFilter sFilterRegister[14];
|
||
100 | d54d2f07 | Thomas Schöpping | } tCanRegs; |
101 | 69661903 | Thomas Schöpping | |
102 | |||
103 | /****************************************************************************************
|
||
104 | * Macro definitions
|
||
105 | ****************************************************************************************/
|
||
106 | /** \brief Reset request bit. */
|
||
107 | #define CAN_BIT_RESET ((blt_int32u)0x00008000) |
||
108 | /** \brief Initialization request bit. */
|
||
109 | #define CAN_BIT_INRQ ((blt_int32u)0x00000001) |
||
110 | /** \brief Initialization acknowledge bit. */
|
||
111 | #define CAN_BIT_INAK ((blt_int32u)0x00000001) |
||
112 | /** \brief Sleep mode request bit. */
|
||
113 | #define CAN_BIT_SLEEP ((blt_int32u)0x00000002) |
||
114 | /** \brief Filter 0 selection bit. */
|
||
115 | #define CAN_BIT_FILTER0 ((blt_int32u)0x00000001) |
||
116 | /** \brief Filter init mode bit. */
|
||
117 | #define CAN_BIT_FINIT ((blt_int32u)0x00000001) |
||
118 | /** \brief Transmit mailbox 0 empty bit. */
|
||
119 | #define CAN_BIT_TME0 ((blt_int32u)0x04000000) |
||
120 | /** \brief Transmit mailbox request bit. */
|
||
121 | #define CAN_BIT_TXRQ ((blt_int32u)0x00000001) |
||
122 | /** \brief Release FIFO 0 mailbox bit. */
|
||
123 | #define CAN_BIT_RFOM0 ((blt_int32u)0x00000020) |
||
124 | |||
125 | #if (BOOT_GATE_CAN_ENABLE > 0) |
||
126 | blt_bool commandSend; |
||
127 | #endif /* BOOT_GATE_CAN_ENABLE > 0 */ |
||
128 | |||
129 | |||
130 | /****************************************************************************************
|
||
131 | * Register definitions
|
||
132 | ****************************************************************************************/
|
||
133 | /** \brief Macro for accessing CAN controller registers. */
|
||
134 | #define CANx ((tCanRegs *) (blt_int32u)0x40006400) |
||
135 | |||
136 | |||
137 | /****************************************************************************************
|
||
138 | * Type definitions
|
||
139 | ****************************************************************************************/
|
||
140 | /** \brief Structure type for grouping CAN bus timing related information. */
|
||
141 | typedef struct t_can_bus_timing |
||
142 | { |
||
143 | blt_int8u tseg1; /**< CAN time segment 1 */
|
||
144 | blt_int8u tseg2; /**< CAN time segment 2 */
|
||
145 | } tCanBusTiming; |
||
146 | |||
147 | |||
148 | /****************************************************************************************
|
||
149 | * Local constant declarations
|
||
150 | ****************************************************************************************/
|
||
151 | /** \brief CAN bittiming table for dynamically calculating the bittiming settings.
|
||
152 | d54d2f07 | Thomas Schöpping | * \details According to the CAN protocol 1 bit-time can be made up of between 8..25
|
153 | * time quanta (TQ). The total TQ in a bit is SYNC + TSEG1 + TSEG2 with SYNC
|
||
154 | * always being 1. The sample point is (SYNC + TSEG1) / (SYNC + TSEG1 + SEG2) *
|
||
155 | 69661903 | Thomas Schöpping | * 100%. This array contains possible and valid time quanta configurations with
|
156 | * a sample point between 68..78%.
|
||
157 | */
|
||
158 | static const tCanBusTiming canTiming[] = |
||
159 | { /* TQ | TSEG1 | TSEG2 | SP */
|
||
160 | /* ------------------------- */
|
||
161 | { 5, 2 }, /* 8 | 5 | 2 | 75% */ |
||
162 | { 6, 2 }, /* 9 | 6 | 2 | 78% */ |
||
163 | { 6, 3 }, /* 10 | 6 | 3 | 70% */ |
||
164 | { 7, 3 }, /* 11 | 7 | 3 | 73% */ |
||
165 | { 8, 3 }, /* 12 | 8 | 3 | 75% */ |
||
166 | { 9, 3 }, /* 13 | 9 | 3 | 77% */ |
||
167 | { 9, 4 }, /* 14 | 9 | 4 | 71% */ |
||
168 | { 10, 4 }, /* 15 | 10 | 4 | 73% */ |
||
169 | { 11, 4 }, /* 16 | 11 | 4 | 75% */ |
||
170 | { 12, 4 }, /* 17 | 12 | 4 | 76% */ |
||
171 | { 12, 5 }, /* 18 | 12 | 5 | 72% */ |
||
172 | { 13, 5 }, /* 19 | 13 | 5 | 74% */ |
||
173 | { 14, 5 }, /* 20 | 14 | 5 | 75% */ |
||
174 | { 15, 5 }, /* 21 | 15 | 5 | 76% */ |
||
175 | { 15, 6 }, /* 22 | 15 | 6 | 73% */ |
||
176 | { 16, 6 }, /* 23 | 16 | 6 | 74% */ |
||
177 | { 16, 7 }, /* 24 | 16 | 7 | 71% */ |
||
178 | { 16, 8 } /* 25 | 16 | 8 | 68% */ |
||
179 | }; |
||
180 | |||
181 | |||
182 | /************************************************************************************//** |
||
183 | d54d2f07 | Thomas Schöpping | ** \brief Search algorithm to match the desired baudrate to a possible bus
|
184 | 69661903 | Thomas Schöpping | ** timing configuration.
|
185 | ** \param baud The desired baudrate in kbps. Valid values are 10..1000.
|
||
186 | ** \param prescaler Pointer to where the value for the prescaler will be stored.
|
||
187 | ** \param tseg1 Pointer to where the value for TSEG2 will be stored.
|
||
188 | ** \param tseg2 Pointer to where the value for TSEG2 will be stored.
|
||
189 | d54d2f07 | Thomas Schöpping | ** \return BLT_TRUE if the CAN bustiming register values were found, BLT_FALSE
|
190 | 69661903 | Thomas Schöpping | ** otherwise.
|
191 | **
|
||
192 | ****************************************************************************************/
|
||
193 | d54d2f07 | Thomas Schöpping | static blt_bool CanGetSpeedConfig(blt_int16u baud, blt_int16u *prescaler,
|
194 | 69661903 | Thomas Schöpping | blt_int8u *tseg1, blt_int8u *tseg2) |
195 | { |
||
196 | blt_int8u cnt; |
||
197 | |||
198 | /* loop through all possible time quanta configurations to find a match */
|
||
199 | for (cnt=0; cnt < sizeof(canTiming)/sizeof(canTiming[0]); cnt++) |
||
200 | { |
||
201 | if (((BOOT_CPU_SYSTEM_SPEED_KHZ/2) % (baud*(canTiming[cnt].tseg1+canTiming[cnt].tseg2+1))) == 0) |
||
202 | { |
||
203 | /* compute the prescaler that goes with this TQ configuration */
|
||
204 | *prescaler = (BOOT_CPU_SYSTEM_SPEED_KHZ/2)/(baud*(canTiming[cnt].tseg1+canTiming[cnt].tseg2+1)); |
||
205 | |||
206 | /* make sure the prescaler is valid */
|
||
207 | if ( (*prescaler > 0) && (*prescaler <= 1024) ) |
||
208 | { |
||
209 | /* store the bustiming configuration */
|
||
210 | *tseg1 = canTiming[cnt].tseg1; |
||
211 | *tseg2 = canTiming[cnt].tseg2; |
||
212 | /* found a good bus timing configuration */
|
||
213 | return BLT_TRUE;
|
||
214 | } |
||
215 | } |
||
216 | } |
||
217 | /* could not find a good bus timing configuration */
|
||
218 | return BLT_FALSE;
|
||
219 | } /*** end of CanGetSpeedConfig ***/
|
||
220 | |||
221 | |||
222 | /************************************************************************************//** |
||
223 | ** \brief Initializes the CAN controller and synchronizes it to the CAN bus.
|
||
224 | ** \return none.
|
||
225 | **
|
||
226 | ****************************************************************************************/
|
||
227 | void CanInit(void) |
||
228 | { |
||
229 | blt_int16u prescaler; |
||
230 | blt_int8u tseg1, tseg2; |
||
231 | blt_bool result; |
||
232 | |||
233 | #if (BOOT_GATE_CAN_ENABLE > 0) |
||
234 | commandSend = BLT_FALSE; |
||
235 | #endif /* BOOT_GATE_CAN_ENABLE > 0 */ |
||
236 | |||
237 | d54d2f07 | Thomas Schöpping | /* the current implementation supports CAN1. throw an assertion error in case a
|
238 | * different CAN channel is configured.
|
||
239 | 69661903 | Thomas Schöpping | */
|
240 | d54d2f07 | Thomas Schöpping | ASSERT_CT(BOOT_COM_CAN_CHANNEL_INDEX == 0);
|
241 | 69661903 | Thomas Schöpping | /* obtain bittiming configuration information */
|
242 | result = CanGetSpeedConfig(BOOT_COM_CAN_BAUDRATE/1000, &prescaler, &tseg1, &tseg2);
|
||
243 | ASSERT_RT(result == BLT_TRUE); |
||
244 | /* disable all can interrupt. this driver works in polling mode */
|
||
245 | CANx->IER = (blt_int32u)0;
|
||
246 | /* set request to reset the can controller */
|
||
247 | CANx->MCR |= CAN_BIT_RESET ; |
||
248 | /* wait for acknowledge that the can controller was reset */
|
||
249 | while ((CANx->MCR & CAN_BIT_RESET) != 0) |
||
250 | { |
||
251 | /* keep the watchdog happy */
|
||
252 | CopService(); |
||
253 | } |
||
254 | /* exit from sleep mode, which is the default mode after reset */
|
||
255 | CANx->MCR &= ~CAN_BIT_SLEEP; |
||
256 | /* set request to enter initialisation mode */
|
||
257 | CANx->MCR |= CAN_BIT_INRQ ; |
||
258 | /* wait for acknowledge that initialization mode was entered */
|
||
259 | while ((CANx->MSR & CAN_BIT_INAK) == 0) |
||
260 | { |
||
261 | /* keep the watchdog happy */
|
||
262 | CopService(); |
||
263 | } |
||
264 | /* configure the bittming */
|
||
265 | CANx->BTR = (blt_int32u)((blt_int32u)(tseg1 - 1) << 16) | \ |
||
266 | (blt_int32u)((blt_int32u)(tseg2 - 1) << 20) | \ |
||
267 | (blt_int32u)(prescaler - 1);
|
||
268 | /* set request to leave initialisation mode */
|
||
269 | CANx->MCR &= ~CAN_BIT_INRQ; |
||
270 | /* wait for acknowledge that initialization mode was exited */
|
||
271 | while ((CANx->MSR & CAN_BIT_INAK) != 0) |
||
272 | { |
||
273 | /* keep the watchdog happy */
|
||
274 | CopService(); |
||
275 | } |
||
276 | /* enter initialisation mode for the acceptance filter */
|
||
277 | CANx->FMR |= CAN_BIT_FINIT; |
||
278 | /* deactivate filter 0 */
|
||
279 | CANx->FA1R &= ~CAN_BIT_FILTER0; |
||
280 | /* 32-bit scale for the filter */
|
||
281 | CANx->FS1R |= CAN_BIT_FILTER0; |
||
282 | /* open up the acceptance filter to receive all messages */
|
||
283 | d54d2f07 | Thomas Schöpping | CANx->sFilterRegister[0].FR1 = 0; |
284 | CANx->sFilterRegister[0].FR2 = 0; |
||
285 | 69661903 | Thomas Schöpping | /* select id/mask mode for the filter */
|
286 | CANx->FM1R &= ~CAN_BIT_FILTER0; |
||
287 | /* FIFO 0 assignation for the filter */
|
||
288 | CANx->FFA1R &= ~CAN_BIT_FILTER0; |
||
289 | /* filter activation */
|
||
290 | CANx->FA1R |= CAN_BIT_FILTER0; |
||
291 | /* leave initialisation mode for the acceptance filter */
|
||
292 | CANx->FMR &= ~CAN_BIT_FINIT; |
||
293 | } /*** end of CanInit ***/
|
||
294 | |||
295 | |||
296 | /************************************************************************************//** |
||
297 | ** \brief Transmits a packet formatted for the communication interface.
|
||
298 | ** \param data Pointer to byte array with data that it to be transmitted.
|
||
299 | ** \param len Number of bytes that are to be transmitted.
|
||
300 | ** \param deviceID ID of the device the data has to be sent to.
|
||
301 | ** \return none.
|
||
302 | **
|
||
303 | ****************************************************************************************/
|
||
304 | d54d2f07 | Thomas Schöpping | void CanTransmitPacket(blt_int8u *data, blt_int8u len, blt_int32u deviceID)
|
305 | 69661903 | Thomas Schöpping | { |
306 | /* make sure that transmit mailbox 0 is available */
|
||
307 | ASSERT_RT((CANx->TSR&CAN_BIT_TME0) == CAN_BIT_TME0); |
||
308 | |||
309 | blt_int32u address; |
||
310 | #if (BOOT_GATE_CAN_ENABLE > 0) |
||
311 | if (deviceID == 0) { |
||
312 | #endif /* BOOT_GATE_CAN_ENABLE > 0 */ |
||
313 | address = (blt_int32u)BOOT_COM_CAN_TX_MSG_ID; |
||
314 | #if (BOOT_GATE_CAN_ENABLE > 0) |
||
315 | commandSend = BLT_FALSE; |
||
316 | } else {
|
||
317 | d54d2f07 | Thomas Schöpping | address = (blt_int32u)BOOT_COM_CAN_RX_MSG_ID; |
318 | 69661903 | Thomas Schöpping | commandSend = BLT_TRUE; |
319 | } |
||
320 | #endif /* BOOT_GATE_CAN_ENABLE > 0 */ |
||
321 | |||
322 | /* init variables */
|
||
323 | blt_int8u canData[8];
|
||
324 | blt_int8u restLen = len; |
||
325 | blt_int8u canIdx = 0;
|
||
326 | d54d2f07 | Thomas Schöpping | blt_int32u ackMsgId; |
327 | blt_int8u ackMsgLen; |
||
328 | 69661903 | Thomas Schöpping | |
329 | /* send the given package in 8 byte packages */
|
||
330 | while (restLen > 0) { |
||
331 | d54d2f07 | Thomas Schöpping | /* build the message identifier */
|
332 | CANx->sTxMailBox[0].TIR &= CAN_BIT_TXRQ;
|
||
333 | 69661903 | Thomas Schöpping | CANx->sTxMailBox[0].TIR |= (address << 21); |
334 | d54d2f07 | Thomas Schöpping | |
335 | /* if this is the first transmission of this packet */
|
||
336 | if (restLen == len) {
|
||
337 | |||
338 | /* store the message date length code (DLC) */
|
||
339 | CANx->sTxMailBox[0].TDTR = (restLen > 4) ? 8 : restLen+1+4; |
||
340 | |||
341 | /* store the device ID */
|
||
342 | canData[0] = (blt_int8u)(0xFF & (deviceID >> 0)); |
||
343 | canData[1] = (blt_int8u)(0xFF & (deviceID >> 8)); |
||
344 | canData[2] = (blt_int8u)(0xFF & (deviceID >> 16)); |
||
345 | canData[3] = (blt_int8u)(0xFF & (deviceID >> 24)); |
||
346 | |||
347 | /* store the remaining packet length */
|
||
348 | canData[4] = restLen;
|
||
349 | |||
350 | canIdx = 5;
|
||
351 | } |
||
352 | /* if this is a succeeding transmission of this packet */
|
||
353 | else {
|
||
354 | |||
355 | /* store the message date length code (DLC) */
|
||
356 | CANx->sTxMailBox[0].TDTR = (restLen > 7) ? 8 : restLen+1; |
||
357 | |||
358 | /* store the remaining packet length */
|
||
359 | canData[0] = restLen;
|
||
360 | |||
361 | canIdx = 1;
|
||
362 | 69661903 | Thomas Schöpping | } |
363 | d54d2f07 | Thomas Schöpping | |
364 | /* store the packet payload */
|
||
365 | 69661903 | Thomas Schöpping | while (restLen > 0 && canIdx < 8) { |
366 | canData[canIdx] = data[len-restLen]; |
||
367 | canIdx++; |
||
368 | restLen--; |
||
369 | } |
||
370 | /* fill rest with nulls */
|
||
371 | while (canIdx < 8) { |
||
372 | canData[canIdx] = 0;
|
||
373 | canIdx++; |
||
374 | } |
||
375 | d54d2f07 | Thomas Schöpping | |
376 | 69661903 | Thomas Schöpping | /* store the message data bytes */
|
377 | CANx->sTxMailBox[0].TDLR = (((blt_int32u)canData[3] << 24) | \ |
||
378 | ((blt_int32u)canData[2] << 16) | \ |
||
379 | ((blt_int32u)canData[1] << 8) | \ |
||
380 | ((blt_int32u)canData[0]));
|
||
381 | CANx->sTxMailBox[0].TDHR = (((blt_int32u)canData[7] << 24) | \ |
||
382 | ((blt_int32u)canData[6] << 16) | \ |
||
383 | ((blt_int32u)canData[5] << 8) | \ |
||
384 | ((blt_int32u)canData[4]));
|
||
385 | d54d2f07 | Thomas Schöpping | |
386 | 69661903 | Thomas Schöpping | /* request the start of message transmission */
|
387 | CANx->sTxMailBox[0].TIR |= CAN_BIT_TXRQ;
|
||
388 | /* wait for transmit completion */
|
||
389 | while ((CANx->TSR&CAN_BIT_TME0) == 0) |
||
390 | { |
||
391 | /* keep the watchdog happy */
|
||
392 | CopService(); |
||
393 | } |
||
394 | |||
395 | d54d2f07 | Thomas Schöpping | /* wait for the acknowledgement transmission */
|
396 | while ((CANx->RF0R&(blt_int32u)0x00000003) == 0) { |
||
397 | /* keep the watchdog happy */
|
||
398 | CopService(); |
||
399 | } |
||
400 | |||
401 | /* read out the message identifier, length and payload */
|
||
402 | ackMsgId = (blt_int32u)0x000007FF & (CANx->sFIFOMailBox[0].RIR >> 21); |
||
403 | ackMsgLen = (blt_int8u)0x0F & CANx->sFIFOMailBox[0].RDTR; |
||
404 | canData[0] = (blt_int8u)0xFF & CANx->sFIFOMailBox[0].RDLR; |
||
405 | canData[1] = (blt_int8u)0xFF & (CANx->sFIFOMailBox[0].RDLR >> 8); |
||
406 | canData[2] = (blt_int8u)0xFF & (CANx->sFIFOMailBox[0].RDLR >> 16); |
||
407 | canData[3] = (blt_int8u)0xFF & (CANx->sFIFOMailBox[0].RDLR >> 24); |
||
408 | canData[4] = (blt_int8u)0xFF & CANx->sFIFOMailBox[0].RDHR; |
||
409 | canData[5] = (blt_int8u)0xFF & (CANx->sFIFOMailBox[0].RDHR >> 8); |
||
410 | canData[6] = (blt_int8u)0xFF & (CANx->sFIFOMailBox[0].RDHR >> 16); |
||
411 | canData[7] = (blt_int8u)0xFF & (CANx->sFIFOMailBox[0].RDHR >> 24); |
||
412 | |||
413 | #if (CAN_DEBUG > 0) |
||
414 | /* verification:
|
||
415 | * - ID must be "address & BOOT_COM_CAN_MSG_ACK"
|
||
416 | * - length must be 1
|
||
417 | * - canData[0] must b equal to restLen
|
||
418 | */
|
||
419 | if (ackMsgId != (address | (blt_int32u)BOOT_COM_CAN_MSG_ACK) ||
|
||
420 | ackMsgLen != 1 ||
|
||
421 | canData[0] != restLen) {
|
||
422 | /* some error occurred */
|
||
423 | blinkSOS(1);
|
||
424 | msleep(500);
|
||
425 | visualizeData((blt_int8u*)&ackMsgId, 2, 1); |
||
426 | msleep(500);
|
||
427 | visualizeByte(ackMsgLen, 1);
|
||
428 | msleep(500);
|
||
429 | visualizeByte(canData[0], 1); |
||
430 | msleep(500);
|
||
431 | visualizeByte(restLen, 1);
|
||
432 | blinkSOSinf(); |
||
433 | } |
||
434 | #endif /* CAN_DEBUG > 0 */ |
||
435 | |||
436 | /* release FIFO0 */
|
||
437 | CANx->RF0R |= CAN_BIT_RFOM0; |
||
438 | |||
439 | /* modify address so that receivers can filter */
|
||
440 | address |= (blt_int32u)BOOT_COM_CAN_MSG_SUBSEQUENT; |
||
441 | 69661903 | Thomas Schöpping | } |
442 | } /*** end of CanTransmitPacket ***/
|
||
443 | |||
444 | |||
445 | /************************************************************************************//** |
||
446 | ** \brief Receives a communication interface packet if one is present.
|
||
447 | ** \param data Pointer to byte array where the data is to be stored.
|
||
448 | ** \return Length of message (if the message is invalid, the length will be 0).
|
||
449 | **
|
||
450 | ****************************************************************************************/
|
||
451 | blt_int8u CanReceivePacket(blt_int8u *data) |
||
452 | { |
||
453 | blt_int32u rxMsgId; |
||
454 | blt_bool result = BLT_FALSE; |
||
455 | blt_int8u length = 0;
|
||
456 | |||
457 | static blt_int8u readData[BOOT_COM_RX_MAX_DATA];
|
||
458 | 470d0567 | Thomas Schöpping | static blt_int8u receivedLen = 0; |
459 | static blt_int8u lastLen = 0; |
||
460 | static blt_int8u toReceive = 0; |
||
461 | 69661903 | Thomas Schöpping | blt_int8u canData[8];
|
462 | blt_int8u restLen; |
||
463 | blt_int8u canLength; |
||
464 | d54d2f07 | Thomas Schöpping | blt_int8u idx; |
465 | 69661903 | Thomas Schöpping | |
466 | d54d2f07 | Thomas Schöpping | blt_int32u compID; |
467 | 69661903 | Thomas Schöpping | #if (BOOT_GATE_CAN_ENABLE > 0) |
468 | d54d2f07 | Thomas Schöpping | if (commandSend == BLT_TRUE) {
|
469 | compID = (blt_int32u)BOOT_COM_CAN_TX_MSG_ID; |
||
470 | } else {
|
||
471 | 69661903 | Thomas Schöpping | #endif /* BOOT_GATE_CAN_ENABLE > 0 */ |
472 | d54d2f07 | Thomas Schöpping | compID = (blt_int32u)BOOT_COM_CAN_RX_MSG_ID; |
473 | 69661903 | Thomas Schöpping | #if (BOOT_GATE_CAN_ENABLE > 0) |
474 | d54d2f07 | Thomas Schöpping | } |
475 | 69661903 | Thomas Schöpping | #endif /* BOOT_GATE_CAN_ENABLE > 0 */ |
476 | |||
477 | d54d2f07 | Thomas Schöpping | /* check if a new message was received or is more to come */
|
478 | while ((CANx->RF0R&(blt_int32u)0x00000003) > 0 || receivedLen < toReceive) |
||
479 | { |
||
480 | /* wait for a transmission if required */
|
||
481 | while (receivedLen < toReceive && (CANx->RF0R&(blt_int32u)0x00000003) == 0) { |
||
482 | /* keep the watchdog happy */
|
||
483 | CopService(); |
||
484 | } |
||
485 | |||
486 | /* read out the message identifier */
|
||
487 | rxMsgId = (blt_int32u)0x000007FF & (CANx->sFIFOMailBox[0].RIR >> 21); |
||
488 | /* is this the packet identifier */
|
||
489 | 69661903 | Thomas Schöpping | if (rxMsgId == compID)
|
490 | { |
||
491 | result = BLT_TRUE; |
||
492 | |||
493 | /* save length */
|
||
494 | canLength = (blt_int8u)0x0F & CANx->sFIFOMailBox[0].RDTR; |
||
495 | /* store the received packet data */
|
||
496 | canData[0] = (blt_int8u)0xFF & CANx->sFIFOMailBox[0].RDLR; |
||
497 | canData[1] = (blt_int8u)0xFF & (CANx->sFIFOMailBox[0].RDLR >> 8); |
||
498 | canData[2] = (blt_int8u)0xFF & (CANx->sFIFOMailBox[0].RDLR >> 16); |
||
499 | canData[3] = (blt_int8u)0xFF & (CANx->sFIFOMailBox[0].RDLR >> 24); |
||
500 | canData[4] = (blt_int8u)0xFF & CANx->sFIFOMailBox[0].RDHR; |
||
501 | canData[5] = (blt_int8u)0xFF & (CANx->sFIFOMailBox[0].RDHR >> 8); |
||
502 | canData[6] = (blt_int8u)0xFF & (CANx->sFIFOMailBox[0].RDHR >> 16); |
||
503 | canData[7] = (blt_int8u)0xFF & (CANx->sFIFOMailBox[0].RDHR >> 24); |
||
504 | |||
505 | d54d2f07 | Thomas Schöpping | #if (CAN_DEBUG > 0) |
506 | if ((receivedLen == 0 && (rxMsgId & (blt_int32u)BOOT_COM_CAN_MSG_SUBSEQUENT) != 0) || |
||
507 | (receivedLen > 0 && (rxMsgId & (blt_int32u)BOOT_COM_CAN_MSG_SUBSEQUENT) == 0)) { |
||
508 | blinkSOS(4);
|
||
509 | msleep(500);
|
||
510 | visualizeByte(toReceive, 1);
|
||
511 | msleep(500);
|
||
512 | visualizeByte(receivedLen, 1);
|
||
513 | msleep(500);
|
||
514 | visualizeData((blt_int8u*)&rxMsgId, 2, 1); |
||
515 | msleep(500);
|
||
516 | blinkSOSinf(); |
||
517 | } |
||
518 | #endif /* CAN_DEBUG > 0 */ |
||
519 | |||
520 | /* if this is the first transmission of this packet */
|
||
521 | 69661903 | Thomas Schöpping | if (receivedLen == 0) { |
522 | d54d2f07 | Thomas Schöpping | /* abort if the message was meant for someone else */
|
523 | blt_int32u deviceID = (((blt_int32u)canData[3]) << 24) | \ |
||
524 | (((blt_int32u)canData[2]) << 16) | \ |
||
525 | (((blt_int32u)canData[1]) << 8) | \ |
||
526 | (((blt_int32u)canData[0]));
|
||
527 | #if (BOOT_GATE_ENABLE > 0) |
||
528 | f7d2c786 | Thomas Schöpping | #if defined(BOOT_COM_DEVICE_LEGACY_ID)
|
529 | d54d2f07 | Thomas Schöpping | if ((commandSend == BLT_TRUE && deviceID == 0) || |
530 | f7d2c786 | Thomas Schöpping | (commandSend != BLT_TRUE && (deviceID == (blt_int32u)BOOT_COM_DEVICE_ID || deviceID == (blt_int32u)BOOT_COM_DEVICE_LEGACY_ID))) { |
531 | d54d2f07 | Thomas Schöpping | #else
|
532 | f7d2c786 | Thomas Schöpping | if ((commandSend == BLT_TRUE && deviceID == 0) || |
533 | (commandSend != BLT_TRUE && (deviceID == (blt_int32u)BOOT_COM_DEVICE_ID))) { |
||
534 | #endif
|
||
535 | #else
|
||
536 | #if defined(BOOT_COM_DEVICE_LEGACY_ID)
|
||
537 | d54d2f07 | Thomas Schöpping | if (deviceID == (blt_int32u)BOOT_COM_DEVICE_ID ||
|
538 | deviceID == (blt_int32u)BOOT_COM_DEVICE_LEGACY_ID) { |
||
539 | f7d2c786 | Thomas Schöpping | #else
|
540 | if (deviceID == (blt_int32u)BOOT_COM_DEVICE_ID) {
|
||
541 | #endif
|
||
542 | d54d2f07 | Thomas Schöpping | #endif
|
543 | /* store length of the packet */
|
||
544 | toReceive = canData[4];
|
||
545 | lastLen = canData[4];
|
||
546 | idx = 5;
|
||
547 | |||
548 | /* modify the listening address for filtering of subsequent transmissions */
|
||
549 | compID |= (blt_int32u)BOOT_COM_CAN_MSG_SUBSEQUENT; |
||
550 | } else {
|
||
551 | /* release FIFO0 */
|
||
552 | CANx->RF0R |= CAN_BIT_RFOM0; |
||
553 | break;
|
||
554 | } |
||
555 | } |
||
556 | /* if this is a subsequent transmission of a packet */
|
||
557 | else {
|
||
558 | /* store rest length and check if possible */
|
||
559 | 69661903 | Thomas Schöpping | restLen = canData[0];
|
560 | d54d2f07 | Thomas Schöpping | #if (CAN_DEBUG > 0) |
561 | if (restLen != toReceive-receivedLen ||
|
||
562 | canLength > restLen+1 ||
|
||
563 | lastLen-restLen != ((lastLen==toReceive) ? 3 : 7)) { |
||
564 | /* transmission has been lost */
|
||
565 | blinkSOS(2);
|
||
566 | msleep(500);
|
||
567 | visualizeData((blt_int8u*)&rxMsgId, 4, 1); |
||
568 | msleep(500);
|
||
569 | visualizeByte(toReceive, 1);
|
||
570 | msleep(500);
|
||
571 | visualizeByte(receivedLen, 1);
|
||
572 | msleep(500);
|
||
573 | visualizeByte(lastLen, 1);
|
||
574 | msleep(500);
|
||
575 | visualizeByte(restLen, 1);
|
||
576 | msleep(500);
|
||
577 | visualizeByte(canLength, 1);
|
||
578 | msleep(500);
|
||
579 | visualizeData(readData, receivedLen, 1);
|
||
580 | blinkSOSinf(); |
||
581 | 69661903 | Thomas Schöpping | } |
582 | d54d2f07 | Thomas Schöpping | #endif /* CAN_DEBUG > 0 */ |
583 | 69661903 | Thomas Schöpping | lastLen = restLen; |
584 | d54d2f07 | Thomas Schöpping | idx = 1;
|
585 | 69661903 | Thomas Schöpping | } |
586 | |||
587 | d54d2f07 | Thomas Schöpping | /* store the payload */
|
588 | for (; idx < canLength; idx++) {
|
||
589 | 69661903 | Thomas Schöpping | readData[receivedLen] = canData[idx]; |
590 | receivedLen++; |
||
591 | } |
||
592 | |||
593 | d54d2f07 | Thomas Schöpping | /* release FIFO0 */
|
594 | CANx->RF0R |= CAN_BIT_RFOM0; |
||
595 | |||
596 | /* send acknowledgement */
|
||
597 | CANx->sTxMailBox[0].TIR &= CAN_BIT_TXRQ;
|
||
598 | CANx->sTxMailBox[0].TIR |= ((rxMsgId | (blt_int32u)BOOT_COM_CAN_MSG_ACK) << 21); |
||
599 | CANx->sTxMailBox[0].TDTR = 1; |
||
600 | CANx->sTxMailBox[0].TDLR = (((blt_int32u)0 << 24) | \ |
||
601 | ((blt_int32u)0 << 16) | \ |
||
602 | ((blt_int32u)0 << 8) | \ |
||
603 | ((blt_int32u)(toReceive-receivedLen))); |
||
604 | CANx->sTxMailBox[0].TDHR = (((blt_int32u)0 << 24) | \ |
||
605 | ((blt_int32u)0 << 16) | \ |
||
606 | ((blt_int32u)0 << 8) | \ |
||
607 | ((blt_int32u)0));
|
||
608 | |||
609 | /* request the start of message transmission */
|
||
610 | CANx->sTxMailBox[0].TIR |= CAN_BIT_TXRQ;
|
||
611 | /* wait for transmit completion */
|
||
612 | while ((CANx->TSR&CAN_BIT_TME0) == 0) |
||
613 | { |
||
614 | /* keep the watchdog happy */
|
||
615 | CopService(); |
||
616 | } |
||
617 | |||
618 | 69661903 | Thomas Schöpping | /* check if full package has been received */
|
619 | d54d2f07 | Thomas Schöpping | if (receivedLen == toReceive) {
|
620 | #if (BOOT_GATE_CAN_ENABLE > 0) |
||
621 | commandSend = BLT_FALSE; |
||
622 | #endif /* BOOT_GATE_CAN_ENABLE > 0 */ |
||
623 | 69661903 | Thomas Schöpping | for (idx = 0; idx < toReceive; idx++) { |
624 | data[idx] = readData[idx]; |
||
625 | } |
||
626 | length = toReceive; |
||
627 | d54d2f07 | Thomas Schöpping | /* reset static variables */
|
628 | receivedLen = 0;
|
||
629 | toReceive = 0;
|
||
630 | break;
|
||
631 | 69661903 | Thomas Schöpping | } else {
|
632 | d54d2f07 | Thomas Schöpping | #if (CAN_DEBUG > 0) |
633 | if (receivedLen > toReceive) {
|
||
634 | /* something strange happened */
|
||
635 | blinkSOS(3);
|
||
636 | msleep(500);
|
||
637 | visualizeByte(toReceive, 1);
|
||
638 | msleep(500);
|
||
639 | visualizeByte(receivedLen, 1);
|
||
640 | blinkSOSinf(); |
||
641 | } |
||
642 | #endif /* CAN_DEBUG > 0 */ |
||
643 | 69661903 | Thomas Schöpping | length = 0;
|
644 | } |
||
645 | d54d2f07 | Thomas Schöpping | } else {
|
646 | /* release FIFO0 */
|
||
647 | CANx->RF0R |= CAN_BIT_RFOM0; |
||
648 | 69661903 | Thomas Schöpping | } |
649 | } |
||
650 | d54d2f07 | Thomas Schöpping | |
651 | 69661903 | Thomas Schöpping | return length;
|
652 | } /*** end of CanReceivePacket ***/
|
||
653 | #endif /* BOOT_COM_CAN_ENABLE > 0 || BOOT_GATE_CAN_ENABLE > 0 */ |
||
654 | |||
655 | |||
656 | /*********************************** end of can.c **************************************/
|