git.sur5r.net Git - freertos/blob - FreeRTOS/Demo/CORTEX_LPC1768_GCC_RedSuite/src/webserver/emac.c

   1 /*\r
   2     FreeRTOS V9.0.0rc2 - Copyright (C) 2016 Real Time Engineers Ltd.\r
   3     All rights reserved\r
   4 \r
   5     VISIT http://www.FreeRTOS.org TO ENSURE YOU ARE USING THE LATEST VERSION.\r
   6 \r
   7     This file is part of the FreeRTOS distribution.\r
   8 \r
   9     FreeRTOS is free software; you can redistribute it and/or modify it under\r
  10     the terms of the GNU General Public License (version 2) as published by the\r
  11     Free Software Foundation >>>> AND MODIFIED BY <<<< the FreeRTOS exception.\r
  12 \r
  13     ***************************************************************************\r
  14     >>!   NOTE: The modification to the GPL is included to allow you to     !<<\r
  15     >>!   distribute a combined work that includes FreeRTOS without being   !<<\r
  16     >>!   obliged to provide the source code for proprietary components     !<<\r
  17     >>!   outside of the FreeRTOS kernel.                                   !<<\r
  18     ***************************************************************************\r
  19 \r
  20     FreeRTOS is distributed in the hope that it will be useful, but WITHOUT ANY\r
  21     WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS\r
  22     FOR A PARTICULAR PURPOSE.  Full license text is available on the following\r
  23     link: http://www.freertos.org/a00114.html\r
  24 \r
  25     ***************************************************************************\r
  26      *                                                                       *\r
  27      *    FreeRTOS provides completely free yet professionally developed,    *\r
  28      *    robust, strictly quality controlled, supported, and cross          *\r
  29      *    platform software that is more than just the market leader, it     *\r
  30      *    is the industry's de facto standard.                               *\r
  31      *                                                                       *\r
  32      *    Help yourself get started quickly while simultaneously helping     *\r
  33      *    to support the FreeRTOS project by purchasing a FreeRTOS           *\r
  34      *    tutorial book, reference manual, or both:                          *\r
  35      *    http://www.FreeRTOS.org/Documentation                              *\r
  36      *                                                                       *\r
  37     ***************************************************************************\r
  38 \r
  39     http://www.FreeRTOS.org/FAQHelp.html - Having a problem?  Start by reading\r
  40     the FAQ page "My application does not run, what could be wrong?".  Have you\r
  41     defined configASSERT()?\r
  42 \r
  43     http://www.FreeRTOS.org/support - In return for receiving this top quality\r
  44     embedded software for free we request you assist our global community by\r
  45     participating in the support forum.\r
  46 \r
  47     http://www.FreeRTOS.org/training - Investing in training allows your team to\r
  48     be as productive as possible as early as possible.  Now you can receive\r
  49     FreeRTOS training directly from Richard Barry, CEO of Real Time Engineers\r
  50     Ltd, and the world's leading authority on the world's leading RTOS.\r
  51 \r
  52     http://www.FreeRTOS.org/plus - A selection of FreeRTOS ecosystem products,\r
  53     including FreeRTOS+Trace - an indispensable productivity tool, a DOS\r
  54     compatible FAT file system, and our tiny thread aware UDP/IP stack.\r
  55 \r
  56     http://www.FreeRTOS.org/labs - Where new FreeRTOS products go to incubate.\r
  57     Come and try FreeRTOS+TCP, our new open source TCP/IP stack for FreeRTOS.\r
  58 \r
  59     http://www.OpenRTOS.com - Real Time Engineers ltd. license FreeRTOS to High\r
  60     Integrity Systems ltd. to sell under the OpenRTOS brand.  Low cost OpenRTOS\r
  61     licenses offer ticketed support, indemnification and commercial middleware.\r
  62 \r
  63     http://www.SafeRTOS.com - High Integrity Systems also provide a safety\r
  64     engineered and independently SIL3 certified version for use in safety and\r
  65     mission critical applications that require provable dependability.\r
  66 \r
  67     1 tab == 4 spaces!\r
  68 */\r
  69 \r
  70 /* Originally adapted from file written by Andreas Dannenberg.  Supplied with permission. */\r
  71 \r
  72 /* Kernel includes. */\r
  73 #include "FreeRTOS.h"\r
  74 #include "task.h"\r
  75 #include "semphr.h"\r
  76 \r
  77 /* Hardware specific includes. */\r
  78 #include "EthDev_LPC17xx.h"\r
  79 \r
  80 /* Time to wait between each inspection of the link status. */\r
  81 #define emacWAIT_FOR_LINK_TO_ESTABLISH ( 500 / portTICK_PERIOD_MS )\r
  82 \r
  83 /* Short delay used in several places during the initialisation process. */\r
  84 #define emacSHORT_DELAY                            ( 2 )\r
  85 \r
  86 /* Hardware specific bit definitions. */\r
  87 #define emacLINK_ESTABLISHED            ( 0x0001 )\r
  88 #define emacFULL_DUPLEX_ENABLED         ( 0x0004 )\r
  89 #define emac10BASE_T_MODE                       ( 0x0002 )\r
  90 #define emacPINSEL2_VALUE 0x50150105\r
  91 \r
  92 /* If no buffers are available, then wait this long before looking again.... */\r
  93 #define emacBUFFER_WAIT_DELAY   ( 3 / portTICK_PERIOD_MS )\r
  94 \r
  95 /* ...and don't look more than this many times. */\r
  96 #define emacBUFFER_WAIT_ATTEMPTS        ( 30 )\r
  97 \r
  98 /* Index to the Tx descriptor that is always used first for every Tx.  The second\r
  99 descriptor is then used to re-send in order to speed up the uIP Tx process. */\r
 100 #define emacTX_DESC_INDEX                       ( 0 )\r
 101 \r
 102 #define PCONP_PCENET    0x40000000\r
 103 /*-----------------------------------------------------------*/\r
 104 \r
 105 /*\r
 106  * Configure both the Rx and Tx descriptors during the init process.\r
 107  */\r
 108 static void prvInitDescriptors( void );\r
 109 \r
 110 /*\r
 111  * Setup the IO and peripherals required for Ethernet communication.\r
 112  */\r
 113 static void prvSetupEMACHardware( void );\r
 114 \r
 115 /*\r
 116  * Control the auto negotiate process.\r
 117  */\r
 118 static void prvConfigurePHY( void );\r
 119 \r
 120 /*\r
 121  * Wait for a link to be established, then setup the PHY according to the link\r
 122  * parameters.\r
 123  */\r
 124 static long prvSetupLinkStatus( void );\r
 125 \r
 126 /*\r
 127  * Search the pool of buffers to find one that is free.  If a buffer is found\r
 128  * mark it as in use before returning its address.\r
 129  */\r
 130 static unsigned char *prvGetNextBuffer( void );\r
 131 \r
 132 /*\r
 133  * Return an allocated buffer to the pool of free buffers.\r
 134  */\r
 135 static void prvReturnBuffer( unsigned char *pucBuffer );\r
 136 \r
 137 /*\r
 138  * Send lValue to the lPhyReg within the PHY.\r
 139  */\r
 140 static long prvWritePHY( long lPhyReg, long lValue );\r
 141 \r
 142 /*\r
 143  * Read a value from ucPhyReg within the PHY.  *plStatus will be set to\r
 144  * pdFALSE if there is an error.\r
 145  */\r
 146 static unsigned short prvReadPHY( unsigned char ucPhyReg, long *plStatus );\r
 147 \r
 148 /*-----------------------------------------------------------*/\r
 149 \r
 150 /* The semaphore used to wake the uIP task when data arrives. */\r
 151 extern SemaphoreHandle_t xEMACSemaphore;\r
 152 \r
 153 /* Each ucBufferInUse index corresponds to a position in the pool of buffers.\r
 154 If the index contains a 1 then the buffer within pool is in use, if it\r
 155 contains a 0 then the buffer is free. */\r
 156 static unsigned char ucBufferInUse[ ETH_NUM_BUFFERS ] = { pdFALSE };\r
 157 \r
 158 /* The uip_buffer is not a fixed array, but instead gets pointed to the buffers\r
 159 allocated within this file. */\r
 160 unsigned char * uip_buf;\r
 161 \r
 162 /* Store the length of the data being sent so the data can be sent twice.  The\r
 163 value will be set back to 0 once the data has been sent twice. */\r
 164 static unsigned short usSendLen = 0;\r
 165 \r
 166 /*-----------------------------------------------------------*/\r
 167 \r
 168 long lEMACInit( void )\r
 169 {\r
 170 long lReturn = pdPASS;\r
 171 unsigned long ulID1, ulID2;\r
 172 \r
 173         /* Reset peripherals, configure port pins and registers. */\r
 174         prvSetupEMACHardware();\r
 175 \r
 176         /* Check the PHY part number is as expected. */\r
 177         ulID1 = prvReadPHY( PHY_REG_IDR1, &lReturn );\r
 178         ulID2 = prvReadPHY( PHY_REG_IDR2, &lReturn );\r
 179         if( ( (ulID1 << 16UL ) | ( ulID2 & 0xFFF0UL ) ) == DP83848C_ID )\r
 180         {\r
 181                 /* Set the Ethernet MAC Address registers */\r
 182                 LPC_EMAC->SA0 = ( configMAC_ADDR0 << 8 ) | configMAC_ADDR1;\r
 183                 LPC_EMAC->SA1 = ( configMAC_ADDR2 << 8 ) | configMAC_ADDR3;\r
 184                 LPC_EMAC->SA2 = ( configMAC_ADDR4 << 8 ) | configMAC_ADDR5;\r
 185 \r
 186                 /* Initialize Tx and Rx DMA Descriptors */\r
 187                 prvInitDescriptors();\r
 188 \r
 189                 /* Receive broadcast and perfect match packets */\r
 190                 LPC_EMAC->RxFilterCtrl = RFC_UCAST_EN | RFC_BCAST_EN | RFC_PERFECT_EN;\r
 191 \r
 192                 /* Setup the PHY. */\r
 193                 prvConfigurePHY();\r
 194         }\r
 195         else\r
 196         {\r
 197                 lReturn = pdFAIL;\r
 198         }\r
 199 \r
 200         /* Check the link status. */\r
 201         if( lReturn == pdPASS )\r
 202         {\r
 203                 lReturn = prvSetupLinkStatus();\r
 204         }\r
 205 \r
 206         if( lReturn == pdPASS )\r
 207         {\r
 208                 /* Initialise uip_buf to ensure it points somewhere valid. */\r
 209                 uip_buf = prvGetNextBuffer();\r
 210 \r
 211                 /* Reset all interrupts */\r
 212                 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
 213 \r
 214                 /* Enable receive and transmit mode of MAC Ethernet core */\r
 215                 LPC_EMAC->Command |= ( CR_RX_EN | CR_TX_EN );\r
 216                 LPC_EMAC->MAC1 |= MAC1_REC_EN;\r
 217         }\r
 218 \r
 219         return lReturn;\r
 220 }\r
 221 /*-----------------------------------------------------------*/\r
 222 \r
 223 static unsigned char *prvGetNextBuffer( void )\r
 224 {\r
 225 long x;\r
 226 unsigned char *pucReturn = NULL;\r
 227 unsigned long ulAttempts = 0;\r
 228 \r
 229         while( pucReturn == NULL )\r
 230         {\r
 231                 /* Look through the buffers to find one that is not in use by\r
 232                 anything else. */\r
 233                 for( x = 0; x < ETH_NUM_BUFFERS; x++ )\r
 234                 {\r
 235                         if( ucBufferInUse[ x ] == pdFALSE )\r
 236                         {\r
 237                                 ucBufferInUse[ x ] = pdTRUE;\r
 238                                 pucReturn = ( unsigned char * ) ETH_BUF( x );\r
 239                                 break;\r
 240                         }\r
 241                 }\r
 242 \r
 243                 /* Was a buffer found? */\r
 244                 if( pucReturn == NULL )\r
 245                 {\r
 246                         ulAttempts++;\r
 247 \r
 248                         if( ulAttempts >= emacBUFFER_WAIT_ATTEMPTS )\r
 249                         {\r
 250                                 break;\r
 251                         }\r
 252 \r
 253                         /* Wait then look again. */\r
 254                         vTaskDelay( emacBUFFER_WAIT_DELAY );\r
 255                 }\r
 256         }\r
 257 \r
 258         return pucReturn;\r
 259 }\r
 260 /*-----------------------------------------------------------*/\r
 261 \r
 262 static void prvInitDescriptors( void )\r
 263 {\r
 264 long x, lNextBuffer = 0;\r
 265 \r
 266         for( x = 0; x < NUM_RX_FRAG; x++ )\r
 267         {\r
 268                 /* Allocate the next Ethernet buffer to this descriptor. */\r
 269                 RX_DESC_PACKET( x ) = ETH_BUF( lNextBuffer );\r
 270                 RX_DESC_CTRL( x ) = RCTRL_INT | ( ETH_FRAG_SIZE - 1 );\r
 271                 RX_STAT_INFO( x ) = 0;\r
 272                 RX_STAT_HASHCRC( x ) = 0;\r
 273 \r
 274                 /* The Ethernet buffer is now in use. */\r
 275                 ucBufferInUse[ lNextBuffer ] = pdTRUE;\r
 276                 lNextBuffer++;\r
 277         }\r
 278 \r
 279         /* Set EMAC Receive Descriptor Registers. */\r
 280         LPC_EMAC->RxDescriptor = RX_DESC_BASE;\r
 281         LPC_EMAC->RxStatus = RX_STAT_BASE;\r
 282         LPC_EMAC->RxDescriptorNumber = NUM_RX_FRAG - 1;\r
 283 \r
 284         /* Rx Descriptors Point to 0 */\r
 285         LPC_EMAC->RxConsumeIndex = 0;\r
 286 \r
 287         /* A buffer is not allocated to the Tx descriptors until they are actually\r
 288         used. */\r
 289         for( x = 0; x < NUM_TX_FRAG; x++ )\r
 290         {\r
 291                 TX_DESC_PACKET( x ) = ( unsigned long ) NULL;\r
 292                 TX_DESC_CTRL( x ) = 0;\r
 293                 TX_STAT_INFO( x ) = 0;\r
 294         }\r
 295 \r
 296         /* Set EMAC Transmit Descriptor Registers. */\r
 297         LPC_EMAC->TxDescriptor = TX_DESC_BASE;\r
 298         LPC_EMAC->TxStatus = TX_STAT_BASE;\r
 299         LPC_EMAC->TxDescriptorNumber = NUM_TX_FRAG - 1;\r
 300 \r
 301         /* Tx Descriptors Point to 0 */\r
 302         LPC_EMAC->TxProduceIndex = 0;\r
 303 }\r
 304 /*-----------------------------------------------------------*/\r
 305 \r
 306 static void prvSetupEMACHardware( void )\r
 307 {\r
 308 unsigned short us;\r
 309 long x, lDummy;\r
 310 \r
 311         /* Enable P1 Ethernet Pins. */\r
 312         LPC_PINCON->PINSEL2 = emacPINSEL2_VALUE;\r
 313         LPC_PINCON->PINSEL3 = ( LPC_PINCON->PINSEL3 & ~0x0000000F ) | 0x00000005;\r
 314 \r
 315         /* Power Up the EMAC controller. */\r
 316         LPC_SC->PCONP |= PCONP_PCENET;\r
 317         vTaskDelay( emacSHORT_DELAY );\r
 318 \r
 319         /* Reset all EMAC internal modules. */\r
 320         LPC_EMAC->MAC1 = MAC1_RES_TX | MAC1_RES_MCS_TX | MAC1_RES_RX | MAC1_RES_MCS_RX | MAC1_SIM_RES | MAC1_SOFT_RES;\r
 321         LPC_EMAC->Command = CR_REG_RES | CR_TX_RES | CR_RX_RES | CR_PASS_RUNT_FRM;\r
 322 \r
 323         /* A short delay after reset. */\r
 324         vTaskDelay( emacSHORT_DELAY );\r
 325 \r
 326         /* Initialize MAC control registers. */\r
 327         LPC_EMAC->MAC1 = MAC1_PASS_ALL;\r
 328         LPC_EMAC->MAC2 = MAC2_CRC_EN | MAC2_PAD_EN;\r
 329         LPC_EMAC->MAXF = ETH_MAX_FLEN;\r
 330         LPC_EMAC->CLRT = CLRT_DEF;\r
 331         LPC_EMAC->IPGR = IPGR_DEF;\r
 332 \r
 333         /* Enable Reduced MII interface. */\r
 334         LPC_EMAC->Command = CR_RMII | CR_PASS_RUNT_FRM;\r
 335 \r
 336         /* Reset Reduced MII Logic. */\r
 337         LPC_EMAC->SUPP = SUPP_RES_RMII;\r
 338         vTaskDelay( emacSHORT_DELAY );\r
 339         LPC_EMAC->SUPP = 0;\r
 340 \r
 341         /* Put the PHY in reset mode */\r
 342         prvWritePHY( PHY_REG_BMCR, MCFG_RES_MII );\r
 343         prvWritePHY( PHY_REG_BMCR, MCFG_RES_MII );\r
 344 \r
 345         /* Wait for hardware reset to end. */\r
 346         for( x = 0; x < 100; x++ )\r
 347         {\r
 348                 vTaskDelay( emacSHORT_DELAY * 5 );\r
 349                 us = prvReadPHY( PHY_REG_BMCR, &lDummy );\r
 350                 if( !( us & MCFG_RES_MII ) )\r
 351                 {\r
 352                         /* Reset complete */\r
 353                         break;\r
 354                 }\r
 355         }\r
 356 }\r
 357 /*-----------------------------------------------------------*/\r
 358 \r
 359 static void prvConfigurePHY( void )\r
 360 {\r
 361 unsigned short us;\r
 362 long x, lDummy;\r
 363 \r
 364         /* Auto negotiate the configuration. */\r
 365         if( prvWritePHY( PHY_REG_BMCR, PHY_AUTO_NEG ) )\r
 366         {\r
 367                 vTaskDelay( emacSHORT_DELAY * 5 );\r
 368 \r
 369                 for( x = 0; x < 10; x++ )\r
 370                 {\r
 371                         us = prvReadPHY( PHY_REG_BMSR, &lDummy );\r
 372 \r
 373                         if( us & PHY_AUTO_NEG_COMPLETE )\r
 374                         {\r
 375                                 break;\r
 376                         }\r
 377 \r
 378                         vTaskDelay( emacWAIT_FOR_LINK_TO_ESTABLISH );\r
 379                 }\r
 380         }\r
 381 }\r
 382 /*-----------------------------------------------------------*/\r
 383 \r
 384 static long prvSetupLinkStatus( void )\r
 385 {\r
 386 long lReturn = pdFAIL, x;\r
 387 unsigned short usLinkStatus;\r
 388 \r
 389         /* Wait with timeout for the link to be established. */\r
 390         for( x = 0; x < 10; x++ )\r
 391         {\r
 392                 usLinkStatus = prvReadPHY( PHY_REG_STS, &lReturn );\r
 393                 if( usLinkStatus & emacLINK_ESTABLISHED )\r
 394                 {\r
 395                         /* Link is established. */\r
 396                         lReturn = pdPASS;\r
 397                         break;\r
 398                 }\r
 399 \r
 400         vTaskDelay( emacWAIT_FOR_LINK_TO_ESTABLISH );\r
 401         }\r
 402 \r
 403         if( lReturn == pdPASS )\r
 404         {\r
 405                 /* Configure Full/Half Duplex mode. */\r
 406                 if( usLinkStatus & emacFULL_DUPLEX_ENABLED )\r
 407                 {\r
 408                         /* Full duplex is enabled. */\r
 409                         LPC_EMAC->MAC2 |= MAC2_FULL_DUP;\r
 410                         LPC_EMAC->Command |= CR_FULL_DUP;\r
 411                         LPC_EMAC->IPGT = IPGT_FULL_DUP;\r
 412                 }\r
 413                 else\r
 414                 {\r
 415                         /* Half duplex mode. */\r
 416                         LPC_EMAC->IPGT = IPGT_HALF_DUP;\r
 417                 }\r
 418 \r
 419                 /* Configure 100MBit/10MBit mode. */\r
 420                 if( usLinkStatus & emac10BASE_T_MODE )\r
 421                 {\r
 422                         /* 10MBit mode. */\r
 423                         LPC_EMAC->SUPP = 0;\r
 424                 }\r
 425                 else\r
 426                 {\r
 427                         /* 100MBit mode. */\r
 428                         LPC_EMAC->SUPP = SUPP_SPEED;\r
 429                 }\r
 430         }\r
 431 \r
 432         return lReturn;\r
 433 }\r
 434 /*-----------------------------------------------------------*/\r
 435 \r
 436 static void prvReturnBuffer( unsigned char *pucBuffer )\r
 437 {\r
 438 unsigned long ul;\r
 439 \r
 440         /* Return a buffer to the pool of free buffers. */\r
 441         for( ul = 0; ul < ETH_NUM_BUFFERS; ul++ )\r
 442         {\r
 443                 if( ETH_BUF( ul ) == ( unsigned long ) pucBuffer )\r
 444                 {\r
 445                         ucBufferInUse[ ul ] = pdFALSE;\r
 446                         break;\r
 447                 }\r
 448         }\r
 449 }\r
 450 /*-----------------------------------------------------------*/\r
 451 \r
 452 unsigned long ulGetEMACRxData( void )\r
 453 {\r
 454 unsigned long ulLen = 0;\r
 455 long lIndex;\r
 456 \r
 457         if( LPC_EMAC->RxProduceIndex != LPC_EMAC->RxConsumeIndex )\r
 458         {\r
 459                 /* Mark the current buffer as free as uip_buf is going to be set to\r
 460                 the buffer that contains the received data. */\r
 461                 prvReturnBuffer( uip_buf );\r
 462 \r
 463                 ulLen = ( RX_STAT_INFO( LPC_EMAC->RxConsumeIndex ) & RINFO_SIZE ) - 3;\r
 464                 uip_buf = ( unsigned char * ) RX_DESC_PACKET( LPC_EMAC->RxConsumeIndex );\r
 465 \r
 466                 /* Allocate a new buffer to the descriptor. */\r
 467         RX_DESC_PACKET( LPC_EMAC->RxConsumeIndex ) = ( unsigned long ) prvGetNextBuffer();\r
 468 \r
 469                 /* Move the consume index onto the next position, ensuring it wraps to\r
 470                 the beginning at the appropriate place. */\r
 471                 lIndex = LPC_EMAC->RxConsumeIndex;\r
 472 \r
 473                 lIndex++;\r
 474                 if( lIndex >= NUM_RX_FRAG )\r
 475                 {\r
 476                         lIndex = 0;\r
 477                 }\r
 478 \r
 479                 LPC_EMAC->RxConsumeIndex = lIndex;\r
 480         }\r
 481 \r
 482         return ulLen;\r
 483 }\r
 484 /*-----------------------------------------------------------*/\r
 485 \r
 486 void vSendEMACTxData( unsigned short usTxDataLen )\r
 487 {\r
 488 unsigned long ulAttempts = 0UL;\r
 489 \r
 490         /* Check to see if the Tx descriptor is free, indicated by its buffer being\r
 491         NULL. */\r
 492         while( TX_DESC_PACKET( emacTX_DESC_INDEX ) != ( unsigned long ) NULL )\r
 493         {\r
 494                 /* Wait for the Tx descriptor to become available. */\r
 495                 vTaskDelay( emacBUFFER_WAIT_DELAY );\r
 496 \r
 497                 ulAttempts++;\r
 498                 if( ulAttempts > emacBUFFER_WAIT_ATTEMPTS )\r
 499                 {\r
 500                         /* Something has gone wrong as the Tx descriptor is still in use.\r
 501                         Clear it down manually, the data it was sending will probably be\r
 502                         lost. */\r
 503                         prvReturnBuffer( ( unsigned char * ) TX_DESC_PACKET( emacTX_DESC_INDEX ) );\r
 504                         break;\r
 505                 }\r
 506         }\r
 507 \r
 508         /* Setup the Tx descriptor for transmission.  Remember the length of the\r
 509         data being sent so the second descriptor can be used to send it again from\r
 510         within the ISR. */\r
 511         usSendLen = usTxDataLen;\r
 512         TX_DESC_PACKET( emacTX_DESC_INDEX ) = ( unsigned long ) uip_buf;\r
 513         TX_DESC_CTRL( emacTX_DESC_INDEX ) = ( usTxDataLen | TCTRL_LAST | TCTRL_INT );\r
 514         LPC_EMAC->TxProduceIndex = ( emacTX_DESC_INDEX + 1 );\r
 515 \r
 516         /* uip_buf is being sent by the Tx descriptor.  Allocate a new buffer. */\r
 517         uip_buf = prvGetNextBuffer();\r
 518 }\r
 519 /*-----------------------------------------------------------*/\r
 520 \r
 521 static long prvWritePHY( long lPhyReg, long lValue )\r
 522 {\r
 523 const long lMaxTime = 10;\r
 524 long x;\r
 525 \r
 526         LPC_EMAC->MADR = DP83848C_DEF_ADR | lPhyReg;\r
 527         LPC_EMAC->MWTD = lValue;\r
 528 \r
 529         x = 0;\r
 530         for( x = 0; x < lMaxTime; x++ )\r
 531         {\r
 532                 if( ( LPC_EMAC->MIND & MIND_BUSY ) == 0 )\r
 533                 {\r
 534                         /* Operation has finished. */\r
 535                         break;\r
 536                 }\r
 537 \r
 538                 vTaskDelay( emacSHORT_DELAY );\r
 539         }\r
 540 \r
 541         if( x < lMaxTime )\r
 542         {\r
 543                 return pdPASS;\r
 544         }\r
 545         else\r
 546         {\r
 547                 return pdFAIL;\r
 548         }\r
 549 }\r
 550 /*-----------------------------------------------------------*/\r
 551 \r
 552 static unsigned short prvReadPHY( unsigned char ucPhyReg, long *plStatus )\r
 553 {\r
 554 long x;\r
 555 const long lMaxTime = 10;\r
 556 \r
 557         LPC_EMAC->MADR = DP83848C_DEF_ADR | ucPhyReg;\r
 558         LPC_EMAC->MCMD = MCMD_READ;\r
 559 \r
 560         for( x = 0; x < lMaxTime; x++ )\r
 561         {\r
 562                 /* Operation has finished. */\r
 563                 if( ( LPC_EMAC->MIND & MIND_BUSY ) == 0 )\r
 564                 {\r
 565                         break;\r
 566                 }\r
 567 \r
 568                 vTaskDelay( emacSHORT_DELAY );\r
 569         }\r
 570 \r
 571         LPC_EMAC->MCMD = 0;\r
 572 \r
 573         if( x >= lMaxTime )\r
 574         {\r
 575                 *plStatus = pdFAIL;\r
 576         }\r
 577 \r
 578         return( LPC_EMAC->MRDD );\r
 579 }\r
 580 /*-----------------------------------------------------------*/\r
 581 \r
 582 void vEMAC_ISR( void )\r
 583 {\r
 584 unsigned long ulStatus;\r
 585 long lHigherPriorityTaskWoken = pdFALSE;\r
 586 \r
 587         ulStatus = LPC_EMAC->IntStatus;\r
 588 \r
 589         /* Clear the interrupt. */\r
 590         LPC_EMAC->IntClear = ulStatus;\r
 591 \r
 592         if( ulStatus & INT_RX_DONE )\r
 593         {\r
 594                 /* Ensure the uIP task is not blocked as data has arrived. */\r
 595                 xSemaphoreGiveFromISR( xEMACSemaphore, &lHigherPriorityTaskWoken );\r
 596         }\r
 597 \r
 598         if( ulStatus & INT_TX_DONE )\r
 599         {\r
 600                 if( usSendLen > 0 )\r
 601                 {\r
 602                         /* Send the data again, using the second descriptor.  As there are\r
 603                         only two descriptors the index is set back to 0. */\r
 604                         TX_DESC_PACKET( ( emacTX_DESC_INDEX + 1 ) ) = TX_DESC_PACKET( emacTX_DESC_INDEX );\r
 605                         TX_DESC_CTRL( ( emacTX_DESC_INDEX + 1 ) ) = ( usSendLen | TCTRL_LAST | TCTRL_INT );\r
 606                         LPC_EMAC->TxProduceIndex = ( emacTX_DESC_INDEX );\r
 607 \r
 608                         /* This is the second Tx so set usSendLen to 0 to indicate that the\r
 609                         Tx descriptors will be free again. */\r
 610                         usSendLen = 0UL;\r
 611                 }\r
 612                 else\r
 613                 {\r
 614                         /* The Tx buffer is no longer required. */\r
 615                         prvReturnBuffer( ( unsigned char * ) TX_DESC_PACKET( emacTX_DESC_INDEX ) );\r
 616             TX_DESC_PACKET( emacTX_DESC_INDEX ) = ( unsigned long ) NULL;\r
 617                 }\r
 618         }\r
 619 \r
 620         portEND_SWITCHING_ISR( lHigherPriorityTaskWoken );\r
 621 }\r