2 FreeRTOS V7.1.1 - Copyright (C) 2012 Real Time Engineers Ltd.
\r
5 ***************************************************************************
\r
7 * FreeRTOS tutorial books are available in pdf and paperback. *
\r
8 * Complete, revised, and edited pdf reference manuals are also *
\r
11 * Purchasing FreeRTOS documentation will not only help you, by *
\r
12 * ensuring you get running as quickly as possible and with an *
\r
13 * in-depth knowledge of how to use FreeRTOS, it will also help *
\r
14 * the FreeRTOS project to continue with its mission of providing *
\r
15 * professional grade, cross platform, de facto standard solutions *
\r
16 * for microcontrollers - completely free of charge! *
\r
18 * >>> See http://www.FreeRTOS.org/Documentation for details. <<< *
\r
20 * Thank you for using FreeRTOS, and thank you for your support! *
\r
22 ***************************************************************************
\r
25 This file is part of the FreeRTOS distribution.
\r
27 FreeRTOS is free software; you can redistribute it and/or modify it under
\r
28 the terms of the GNU General Public License (version 2) as published by the
\r
29 Free Software Foundation AND MODIFIED BY the FreeRTOS exception.
\r
30 >>>NOTE<<< The modification to the GPL is included to allow you to
\r
31 distribute a combined work that includes FreeRTOS without being obliged to
\r
32 provide the source code for proprietary components outside of the FreeRTOS
\r
33 kernel. FreeRTOS is distributed in the hope that it will be useful, but
\r
34 WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY
\r
35 or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for
\r
36 more details. You should have received a copy of the GNU General Public
\r
37 License and the FreeRTOS license exception along with FreeRTOS; if not it
\r
38 can be viewed here: http://www.freertos.org/a00114.html and also obtained
\r
39 by writing to Richard Barry, contact details for whom are available on the
\r
44 ***************************************************************************
\r
46 * Having a problem? Start by reading the FAQ "My application does *
\r
47 * not run, what could be wrong? *
\r
49 * http://www.FreeRTOS.org/FAQHelp.html *
\r
51 ***************************************************************************
\r
54 http://www.FreeRTOS.org - Documentation, training, latest information,
\r
55 license and contact details.
\r
57 http://www.FreeRTOS.org/plus - A selection of FreeRTOS ecosystem products,
\r
58 including FreeRTOS+Trace - an indispensable productivity tool.
\r
60 Real Time Engineers ltd license FreeRTOS to High Integrity Systems, who sell
\r
61 the code with commercial support, indemnification, and middleware, under
\r
62 the OpenRTOS brand: http://www.OpenRTOS.com. High Integrity Systems also
\r
63 provide a safety engineered and independently SIL3 certified version under
\r
64 the SafeRTOS brand: http://www.SafeRTOS.com.
\r
67 /* Originally adapted from file written by Andreas Dannenberg. Supplied with permission. */
\r
69 /* Kernel includes. */
\r
70 #include "FreeRTOS.h"
\r
74 /* Hardware specific includes. */
\r
75 #include "EthDev_LPC17xx.h"
\r
77 /* Time to wait between each inspection of the link status. */
\r
78 #define emacWAIT_FOR_LINK_TO_ESTABLISH ( 500 / portTICK_RATE_MS )
\r
80 /* Short delay used in several places during the initialisation process. */
\r
81 #define emacSHORT_DELAY ( 2 )
\r
83 /* Hardware specific bit definitions. */
\r
84 #define emacLINK_ESTABLISHED ( 0x0001 )
\r
85 #define emacFULL_DUPLEX_ENABLED ( 0x0004 )
\r
86 #define emac10BASE_T_MODE ( 0x0002 )
\r
87 #define emacPINSEL2_VALUE 0x50150105
\r
89 /* If no buffers are available, then wait this long before looking again.... */
\r
90 #define emacBUFFER_WAIT_DELAY ( 3 / portTICK_RATE_MS )
\r
92 /* ...and don't look more than this many times. */
\r
93 #define emacBUFFER_WAIT_ATTEMPTS ( 30 )
\r
95 /* Index to the Tx descriptor that is always used first for every Tx. The second
\r
96 descriptor is then used to re-send in order to speed up the uIP Tx process. */
\r
97 #define emacTX_DESC_INDEX ( 0 )
\r
99 #define PCONP_PCENET 0x40000000
\r
100 /*-----------------------------------------------------------*/
\r
103 * Configure both the Rx and Tx descriptors during the init process.
\r
105 static void prvInitDescriptors( void );
\r
108 * Setup the IO and peripherals required for Ethernet communication.
\r
110 static void prvSetupEMACHardware( void );
\r
113 * Control the auto negotiate process.
\r
115 static void prvConfigurePHY( void );
\r
118 * Wait for a link to be established, then setup the PHY according to the link
\r
121 static long prvSetupLinkStatus( void );
\r
124 * Search the pool of buffers to find one that is free. If a buffer is found
\r
125 * mark it as in use before returning its address.
\r
127 static unsigned char *prvGetNextBuffer( void );
\r
130 * Return an allocated buffer to the pool of free buffers.
\r
132 static void prvReturnBuffer( unsigned char *pucBuffer );
\r
135 * Send lValue to the lPhyReg within the PHY.
\r
137 static long prvWritePHY( long lPhyReg, long lValue );
\r
140 * Read a value from ucPhyReg within the PHY. *plStatus will be set to
\r
141 * pdFALSE if there is an error.
\r
143 static unsigned short prvReadPHY( unsigned char ucPhyReg, long *plStatus );
\r
145 /*-----------------------------------------------------------*/
\r
147 /* The semaphore used to wake the uIP task when data arrives. */
\r
148 extern xSemaphoreHandle xEMACSemaphore;
\r
150 /* Each ucBufferInUse index corresponds to a position in the pool of buffers.
\r
151 If the index contains a 1 then the buffer within pool is in use, if it
\r
152 contains a 0 then the buffer is free. */
\r
153 static unsigned char ucBufferInUse[ ETH_NUM_BUFFERS ] = { pdFALSE };
\r
155 /* The uip_buffer is not a fixed array, but instead gets pointed to the buffers
\r
156 allocated within this file. */
\r
157 unsigned char * uip_buf;
\r
159 /* Store the length of the data being sent so the data can be sent twice. The
\r
160 value will be set back to 0 once the data has been sent twice. */
\r
161 static unsigned short usSendLen = 0;
\r
163 /*-----------------------------------------------------------*/
\r
165 long lEMACInit( void )
\r
167 long lReturn = pdPASS;
\r
168 unsigned long ulID1, ulID2;
\r
170 /* Reset peripherals, configure port pins and registers. */
\r
171 prvSetupEMACHardware();
\r
173 /* Check the PHY part number is as expected. */
\r
174 ulID1 = prvReadPHY( PHY_REG_IDR1, &lReturn );
\r
175 ulID2 = prvReadPHY( PHY_REG_IDR2, &lReturn );
\r
176 if( ( (ulID1 << 16UL ) | ( ulID2 & 0xFFF0UL ) ) == DP83848C_ID )
\r
178 /* Set the Ethernet MAC Address registers */
\r
179 LPC_EMAC->SA0 = ( configMAC_ADDR0 << 8 ) | configMAC_ADDR1;
\r
180 LPC_EMAC->SA1 = ( configMAC_ADDR2 << 8 ) | configMAC_ADDR3;
\r
181 LPC_EMAC->SA2 = ( configMAC_ADDR4 << 8 ) | configMAC_ADDR5;
\r
183 /* Initialize Tx and Rx DMA Descriptors */
\r
184 prvInitDescriptors();
\r
186 /* Receive broadcast and perfect match packets */
\r
187 LPC_EMAC->RxFilterCtrl = RFC_UCAST_EN | RFC_BCAST_EN | RFC_PERFECT_EN;
\r
189 /* Setup the PHY. */
\r
197 /* Check the link status. */
\r
198 if( lReturn == pdPASS )
\r
200 lReturn = prvSetupLinkStatus();
\r
203 if( lReturn == pdPASS )
\r
205 /* Initialise uip_buf to ensure it points somewhere valid. */
\r
206 uip_buf = prvGetNextBuffer();
\r
208 /* Reset all interrupts */
\r
209 LPC_EMAC->IntClear = ( INT_RX_OVERRUN | INT_RX_ERR | INT_RX_FIN | INT_RX_DONE | INT_TX_UNDERRUN | INT_TX_ERR | INT_TX_FIN | INT_TX_DONE | INT_SOFT_INT | INT_WAKEUP );
\r
211 /* Enable receive and transmit mode of MAC Ethernet core */
\r
212 LPC_EMAC->Command |= ( CR_RX_EN | CR_TX_EN );
\r
213 LPC_EMAC->MAC1 |= MAC1_REC_EN;
\r
218 /*-----------------------------------------------------------*/
\r
220 static unsigned char *prvGetNextBuffer( void )
\r
223 unsigned char *pucReturn = NULL;
\r
224 unsigned long ulAttempts = 0;
\r
226 while( pucReturn == NULL )
\r
228 /* Look through the buffers to find one that is not in use by
\r
230 for( x = 0; x < ETH_NUM_BUFFERS; x++ )
\r
232 if( ucBufferInUse[ x ] == pdFALSE )
\r
234 ucBufferInUse[ x ] = pdTRUE;
\r
235 pucReturn = ( unsigned char * ) ETH_BUF( x );
\r
240 /* Was a buffer found? */
\r
241 if( pucReturn == NULL )
\r
245 if( ulAttempts >= emacBUFFER_WAIT_ATTEMPTS )
\r
250 /* Wait then look again. */
\r
251 vTaskDelay( emacBUFFER_WAIT_DELAY );
\r
257 /*-----------------------------------------------------------*/
\r
259 static void prvInitDescriptors( void )
\r
261 long x, lNextBuffer = 0;
\r
263 for( x = 0; x < NUM_RX_FRAG; x++ )
\r
265 /* Allocate the next Ethernet buffer to this descriptor. */
\r
266 RX_DESC_PACKET( x ) = ETH_BUF( lNextBuffer );
\r
267 RX_DESC_CTRL( x ) = RCTRL_INT | ( ETH_FRAG_SIZE - 1 );
\r
268 RX_STAT_INFO( x ) = 0;
\r
269 RX_STAT_HASHCRC( x ) = 0;
\r
271 /* The Ethernet buffer is now in use. */
\r
272 ucBufferInUse[ lNextBuffer ] = pdTRUE;
\r
276 /* Set EMAC Receive Descriptor Registers. */
\r
277 LPC_EMAC->RxDescriptor = RX_DESC_BASE;
\r
278 LPC_EMAC->RxStatus = RX_STAT_BASE;
\r
279 LPC_EMAC->RxDescriptorNumber = NUM_RX_FRAG - 1;
\r
281 /* Rx Descriptors Point to 0 */
\r
282 LPC_EMAC->RxConsumeIndex = 0;
\r
284 /* A buffer is not allocated to the Tx descriptors until they are actually
\r
286 for( x = 0; x < NUM_TX_FRAG; x++ )
\r
288 TX_DESC_PACKET( x ) = ( unsigned long ) NULL;
\r
289 TX_DESC_CTRL( x ) = 0;
\r
290 TX_STAT_INFO( x ) = 0;
\r
293 /* Set EMAC Transmit Descriptor Registers. */
\r
294 LPC_EMAC->TxDescriptor = TX_DESC_BASE;
\r
295 LPC_EMAC->TxStatus = TX_STAT_BASE;
\r
296 LPC_EMAC->TxDescriptorNumber = NUM_TX_FRAG - 1;
\r
298 /* Tx Descriptors Point to 0 */
\r
299 LPC_EMAC->TxProduceIndex = 0;
\r
301 /*-----------------------------------------------------------*/
\r
303 static void prvSetupEMACHardware( void )
\r
308 /* Enable P1 Ethernet Pins. */
\r
309 LPC_PINCON->PINSEL2 = emacPINSEL2_VALUE;
\r
310 LPC_PINCON->PINSEL3 = ( LPC_PINCON->PINSEL3 & ~0x0000000F ) | 0x00000005;
\r
312 /* Power Up the EMAC controller. */
\r
313 LPC_SC->PCONP |= PCONP_PCENET;
\r
314 vTaskDelay( emacSHORT_DELAY );
\r
316 /* Reset all EMAC internal modules. */
\r
317 LPC_EMAC->MAC1 = MAC1_RES_TX | MAC1_RES_MCS_TX | MAC1_RES_RX | MAC1_RES_MCS_RX | MAC1_SIM_RES | MAC1_SOFT_RES;
\r
318 LPC_EMAC->Command = CR_REG_RES | CR_TX_RES | CR_RX_RES | CR_PASS_RUNT_FRM;
\r
320 /* A short delay after reset. */
\r
321 vTaskDelay( emacSHORT_DELAY );
\r
323 /* Initialize MAC control registers. */
\r
324 LPC_EMAC->MAC1 = MAC1_PASS_ALL;
\r
325 LPC_EMAC->MAC2 = MAC2_CRC_EN | MAC2_PAD_EN;
\r
326 LPC_EMAC->MAXF = ETH_MAX_FLEN;
\r
327 LPC_EMAC->CLRT = CLRT_DEF;
\r
328 LPC_EMAC->IPGR = IPGR_DEF;
\r
330 /* Enable Reduced MII interface. */
\r
331 LPC_EMAC->Command = CR_RMII | CR_PASS_RUNT_FRM;
\r
333 /* Reset Reduced MII Logic. */
\r
334 LPC_EMAC->SUPP = SUPP_RES_RMII;
\r
335 vTaskDelay( emacSHORT_DELAY );
\r
336 LPC_EMAC->SUPP = 0;
\r
338 /* Put the PHY in reset mode */
\r
339 prvWritePHY( PHY_REG_BMCR, MCFG_RES_MII );
\r
340 prvWritePHY( PHY_REG_BMCR, MCFG_RES_MII );
\r
342 /* Wait for hardware reset to end. */
\r
343 for( x = 0; x < 100; x++ )
\r
345 vTaskDelay( emacSHORT_DELAY * 5 );
\r
346 us = prvReadPHY( PHY_REG_BMCR, &lDummy );
\r
347 if( !( us & MCFG_RES_MII ) )
\r
349 /* Reset complete */
\r
354 /*-----------------------------------------------------------*/
\r
356 static void prvConfigurePHY( void )
\r
361 /* Auto negotiate the configuration. */
\r
362 if( prvWritePHY( PHY_REG_BMCR, PHY_AUTO_NEG ) )
\r
364 vTaskDelay( emacSHORT_DELAY * 5 );
\r
366 for( x = 0; x < 10; x++ )
\r
368 us = prvReadPHY( PHY_REG_BMSR, &lDummy );
\r
370 if( us & PHY_AUTO_NEG_COMPLETE )
\r
375 vTaskDelay( emacWAIT_FOR_LINK_TO_ESTABLISH );
\r
379 /*-----------------------------------------------------------*/
\r
381 static long prvSetupLinkStatus( void )
\r
383 long lReturn = pdFAIL, x;
\r
384 unsigned short usLinkStatus;
\r
386 /* Wait with timeout for the link to be established. */
\r
387 for( x = 0; x < 10; x++ )
\r
389 usLinkStatus = prvReadPHY( PHY_REG_STS, &lReturn );
\r
390 if( usLinkStatus & emacLINK_ESTABLISHED )
\r
392 /* Link is established. */
\r
397 vTaskDelay( emacWAIT_FOR_LINK_TO_ESTABLISH );
\r
400 if( lReturn == pdPASS )
\r
402 /* Configure Full/Half Duplex mode. */
\r
403 if( usLinkStatus & emacFULL_DUPLEX_ENABLED )
\r
405 /* Full duplex is enabled. */
\r
406 LPC_EMAC->MAC2 |= MAC2_FULL_DUP;
\r
407 LPC_EMAC->Command |= CR_FULL_DUP;
\r
408 LPC_EMAC->IPGT = IPGT_FULL_DUP;
\r
412 /* Half duplex mode. */
\r
413 LPC_EMAC->IPGT = IPGT_HALF_DUP;
\r
416 /* Configure 100MBit/10MBit mode. */
\r
417 if( usLinkStatus & emac10BASE_T_MODE )
\r
420 LPC_EMAC->SUPP = 0;
\r
424 /* 100MBit mode. */
\r
425 LPC_EMAC->SUPP = SUPP_SPEED;
\r
431 /*-----------------------------------------------------------*/
\r
433 static void prvReturnBuffer( unsigned char *pucBuffer )
\r
437 /* Return a buffer to the pool of free buffers. */
\r
438 for( ul = 0; ul < ETH_NUM_BUFFERS; ul++ )
\r
440 if( ETH_BUF( ul ) == ( unsigned long ) pucBuffer )
\r
442 ucBufferInUse[ ul ] = pdFALSE;
\r
447 /*-----------------------------------------------------------*/
\r
449 unsigned long ulGetEMACRxData( void )
\r
451 unsigned long ulLen = 0;
\r
454 if( LPC_EMAC->RxProduceIndex != LPC_EMAC->RxConsumeIndex )
\r
456 /* Mark the current buffer as free as uip_buf is going to be set to
\r
457 the buffer that contains the received data. */
\r
458 prvReturnBuffer( uip_buf );
\r
460 ulLen = ( RX_STAT_INFO( LPC_EMAC->RxConsumeIndex ) & RINFO_SIZE ) - 3;
\r
461 uip_buf = ( unsigned char * ) RX_DESC_PACKET( LPC_EMAC->RxConsumeIndex );
\r
463 /* Allocate a new buffer to the descriptor. */
\r
464 RX_DESC_PACKET( LPC_EMAC->RxConsumeIndex ) = ( unsigned long ) prvGetNextBuffer();
\r
466 /* Move the consume index onto the next position, ensuring it wraps to
\r
467 the beginning at the appropriate place. */
\r
468 lIndex = LPC_EMAC->RxConsumeIndex;
\r
471 if( lIndex >= NUM_RX_FRAG )
\r
476 LPC_EMAC->RxConsumeIndex = lIndex;
\r
481 /*-----------------------------------------------------------*/
\r
483 void vSendEMACTxData( unsigned short usTxDataLen )
\r
485 unsigned long ulAttempts = 0UL;
\r
487 /* Check to see if the Tx descriptor is free, indicated by its buffer being
\r
489 while( TX_DESC_PACKET( emacTX_DESC_INDEX ) != ( unsigned long ) NULL )
\r
491 /* Wait for the Tx descriptor to become available. */
\r
492 vTaskDelay( emacBUFFER_WAIT_DELAY );
\r
495 if( ulAttempts > emacBUFFER_WAIT_ATTEMPTS )
\r
497 /* Something has gone wrong as the Tx descriptor is still in use.
\r
498 Clear it down manually, the data it was sending will probably be
\r
500 prvReturnBuffer( ( unsigned char * ) TX_DESC_PACKET( emacTX_DESC_INDEX ) );
\r
505 /* Setup the Tx descriptor for transmission. Remember the length of the
\r
506 data being sent so the second descriptor can be used to send it again from
\r
508 usSendLen = usTxDataLen;
\r
509 TX_DESC_PACKET( emacTX_DESC_INDEX ) = ( unsigned long ) uip_buf;
\r
510 TX_DESC_CTRL( emacTX_DESC_INDEX ) = ( usTxDataLen | TCTRL_LAST | TCTRL_INT );
\r
511 LPC_EMAC->TxProduceIndex = ( emacTX_DESC_INDEX + 1 );
\r
513 /* uip_buf is being sent by the Tx descriptor. Allocate a new buffer. */
\r
514 uip_buf = prvGetNextBuffer();
\r
516 /*-----------------------------------------------------------*/
\r
518 static long prvWritePHY( long lPhyReg, long lValue )
\r
520 const long lMaxTime = 10;
\r
523 LPC_EMAC->MADR = DP83848C_DEF_ADR | lPhyReg;
\r
524 LPC_EMAC->MWTD = lValue;
\r
527 for( x = 0; x < lMaxTime; x++ )
\r
529 if( ( LPC_EMAC->MIND & MIND_BUSY ) == 0 )
\r
531 /* Operation has finished. */
\r
535 vTaskDelay( emacSHORT_DELAY );
\r
547 /*-----------------------------------------------------------*/
\r
549 static unsigned short prvReadPHY( unsigned char ucPhyReg, long *plStatus )
\r
552 const long lMaxTime = 10;
\r
554 LPC_EMAC->MADR = DP83848C_DEF_ADR | ucPhyReg;
\r
555 LPC_EMAC->MCMD = MCMD_READ;
\r
557 for( x = 0; x < lMaxTime; x++ )
\r
559 /* Operation has finished. */
\r
560 if( ( LPC_EMAC->MIND & MIND_BUSY ) == 0 )
\r
565 vTaskDelay( emacSHORT_DELAY );
\r
568 LPC_EMAC->MCMD = 0;
\r
570 if( x >= lMaxTime )
\r
572 *plStatus = pdFAIL;
\r
575 return( LPC_EMAC->MRDD );
\r
577 /*-----------------------------------------------------------*/
\r
579 void vEMAC_ISR( void )
\r
581 unsigned long ulStatus;
\r
582 long lHigherPriorityTaskWoken = pdFALSE;
\r
584 ulStatus = LPC_EMAC->IntStatus;
\r
586 /* Clear the interrupt. */
\r
587 LPC_EMAC->IntClear = ulStatus;
\r
589 if( ulStatus & INT_RX_DONE )
\r
591 /* Ensure the uIP task is not blocked as data has arrived. */
\r
592 xSemaphoreGiveFromISR( xEMACSemaphore, &lHigherPriorityTaskWoken );
\r
595 if( ulStatus & INT_TX_DONE )
\r
597 if( usSendLen > 0 )
\r
599 /* Send the data again, using the second descriptor. As there are
\r
600 only two descriptors the index is set back to 0. */
\r
601 TX_DESC_PACKET( ( emacTX_DESC_INDEX + 1 ) ) = TX_DESC_PACKET( emacTX_DESC_INDEX );
\r
602 TX_DESC_CTRL( ( emacTX_DESC_INDEX + 1 ) ) = ( usSendLen | TCTRL_LAST | TCTRL_INT );
\r
603 LPC_EMAC->TxProduceIndex = ( emacTX_DESC_INDEX );
\r
605 /* This is the second Tx so set usSendLen to 0 to indicate that the
\r
606 Tx descriptors will be free again. */
\r
611 /* The Tx buffer is no longer required. */
\r
612 prvReturnBuffer( ( unsigned char * ) TX_DESC_PACKET( emacTX_DESC_INDEX ) );
\r
613 TX_DESC_PACKET( emacTX_DESC_INDEX ) = ( unsigned long ) NULL;
\r
617 portEND_SWITCHING_ISR( lHigherPriorityTaskWoken );
\r