git.sur5r.net Git - freertos/blob - FreeRTOS/Demo/Common/Minimal/TaskNotify.c

   1 /*\r
   2     FreeRTOS V8.2.0 - Copyright (C) 2015 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 \r
  71 /*\r
  72  * Tests the behaviour of direct task notifications.\r
  73  */\r
  74 \r
  75 /* Standard includes. */\r
  76 #include <limits.h>\r
  77 \r
  78 /* Scheduler include files. */\r
  79 #include "FreeRTOS.h"\r
  80 #include "task.h"\r
  81 #include "timers.h"\r
  82 \r
  83 /* Demo program include files. */\r
  84 #include "TaskNotify.h"\r
  85 \r
  86 #define notifyTASK_PRIORITY             ( tskIDLE_PRIORITY )\r
  87 \r
  88 /*-----------------------------------------------------------*/\r
  89 \r
  90 /*\r
  91  * Implementation of the task that gets notified.\r
  92  */\r
  93 static void prvNotifiedTask( void *pvParameters );\r
  94 \r
  95 /*\r
  96  * Performs a few initial tests that can be done prior to creating the second\r
  97  * task.\r
  98  */\r
  99 static void prvSingleTaskTests( void );\r
 100 \r
 101 /*\r
 102  * Software timer callback function from which xTaskNotify() is called.\r
 103  */\r
 104 static void prvNotifyingTimer( TimerHandle_t xTimer );\r
 105 \r
 106 /*\r
 107  * Utility function to create pseudo random numbers.\r
 108  */\r
 109 static UBaseType_t prvRand( void );\r
 110 \r
 111 /*-----------------------------------------------------------*/\r
 112 \r
 113 /* Used to latch errors during the test's execution. */\r
 114 static BaseType_t xErrorStatus = pdPASS;\r
 115 \r
 116 /* Used to ensure the task has not stalled. */\r
 117 static volatile uint32_t ulNotifyCycleCount = 0;\r
 118 \r
 119 /* The handle of the task that receives the notifications. */\r
 120 static TaskHandle_t xTaskToNotify = NULL;\r
 121 \r
 122 /* Used to count the notifications sent to the task from a software timer and\r
 123 the number of notifications received by the task from the software timer.  The\r
 124 two should stay synchronised. */\r
 125 static uint32_t ulTimerNotificationsReceived = 0UL, ulTimerNotificationsSent = 0UL;\r
 126 \r
 127 /* The timer used to notify the task. */\r
 128 static TimerHandle_t xTimer = NULL;\r
 129 \r
 130 /* Used by the pseudo random number generating function. */\r
 131 static uint32_t ulNextRand = 0;\r
 132 \r
 133 /*-----------------------------------------------------------*/\r
 134 \r
 135 void vStartTaskNotifyTask( void  )\r
 136 {\r
 137         /* Create the task that performs some tests by itself, then loops around\r
 138         being notified by both a software timer and an interrupt. */\r
 139         xTaskCreate( prvNotifiedTask, "Notified", configMINIMAL_STACK_SIZE, NULL, notifyTASK_PRIORITY, &xTaskToNotify );\r
 140 \r
 141         /* Pseudo seed the random number generator. */\r
 142         ulNextRand = ( uint32_t ) prvRand;\r
 143 }\r
 144 /*-----------------------------------------------------------*/\r
 145 \r
 146 static void prvSingleTaskTests( void )\r
 147 {\r
 148 const TickType_t xTicksToWait = pdMS_TO_TICKS( 100UL );\r
 149 BaseType_t xReturned;\r
 150 uint32_t ulNotifiedValue, ulLoop, ulNotifyingValue;\r
 151 TickType_t xTimeOnEntering;\r
 152 const uint32_t ulFirstNotifiedConst = 100001UL, ulSecondNotifiedValueConst = 5555UL, ulMaxLoops = 5UL;\r
 153 const uint32_t ulBit0 = 0x01UL, ulBit1 = 0x02UL;\r
 154 \r
 155         /* -------------------------------------------------------------------------\r
 156         Check blocking when there are no notifications. */\r
 157         xTimeOnEntering = xTaskGetTickCount();\r
 158         xReturned = xTaskNotifyWait( ULONG_MAX, 0, &ulNotifiedValue, xTicksToWait );\r
 159 \r
 160         /* Should have blocked for the entire block time. */\r
 161         if( ( xTaskGetTickCount() - xTimeOnEntering ) < xTicksToWait )\r
 162         {\r
 163                 xErrorStatus = pdFAIL;\r
 164         }\r
 165         configASSERT( xReturned == pdFAIL );\r
 166         configASSERT( ulNotifiedValue == 0UL );\r
 167 \r
 168 \r
 169 \r
 170 \r
 171         /* -------------------------------------------------------------------------\r
 172         Check no blocking when notifications are pending.  First notify itself -\r
 173         this would not be a normal thing to do and is done here for test purposes\r
 174         only. */\r
 175         xReturned = xTaskNotify( xTaskToNotify, ulFirstNotifiedConst, eSetValueWithoutOverwrite );\r
 176 \r
 177         /* Even through the 'without overwrite' action was used the update should\r
 178         have been successful. */\r
 179         configASSERT( xReturned == pdPASS );\r
 180 \r
 181         /* The task should now have a notification pending, and so not time out. */\r
 182         xTimeOnEntering = xTaskGetTickCount();\r
 183         xReturned = xTaskNotifyWait( ULONG_MAX, 0, &ulNotifiedValue, xTicksToWait );\r
 184 \r
 185         if( ( xTaskGetTickCount() - xTimeOnEntering ) >= xTicksToWait )\r
 186         {\r
 187                 xErrorStatus = pdFAIL;\r
 188         }\r
 189 \r
 190         /* The task should have been notified, and the notified value should\r
 191         be equal to ulFirstNotifiedConst. */\r
 192         configASSERT( xReturned == pdPASS );\r
 193         configASSERT( ulNotifiedValue == ulFirstNotifiedConst );\r
 194 \r
 195         /* Incremented to show the task is still running. */\r
 196         ulNotifyCycleCount++;\r
 197 \r
 198 \r
 199 \r
 200 \r
 201 \r
 202         /*--------------------------------------------------------------------------\r
 203         Check the non-overwriting functionality.  The notification is done twice\r
 204         using two different notification values.  The action says don't overwrite so\r
 205         only the first notification should pass and the value read back should also\r
 206         be that used with the first notification. */\r
 207         xReturned = xTaskNotify( xTaskToNotify, ulFirstNotifiedConst, eSetValueWithoutOverwrite );\r
 208         configASSERT( xReturned == pdPASS );\r
 209 \r
 210         xReturned = xTaskNotify( xTaskToNotify, ulSecondNotifiedValueConst, eSetValueWithoutOverwrite );\r
 211         configASSERT( xReturned == pdFAIL );\r
 212 \r
 213         /* Waiting for the notification should now return immediately so a block\r
 214         time of zero is used. */\r
 215         xReturned = xTaskNotifyWait( ULONG_MAX, 0, &ulNotifiedValue, 0 );\r
 216 \r
 217         configASSERT( xReturned == pdPASS );\r
 218         configASSERT( ulNotifiedValue == ulFirstNotifiedConst );\r
 219 \r
 220 \r
 221 \r
 222 \r
 223 \r
 224         /*--------------------------------------------------------------------------\r
 225         Do the same again, only this time use the overwriting version.  This time\r
 226         both notifications should pass, and the value written the second time should\r
 227         overwrite the value written the first time, and so be the value that is read\r
 228         back. */\r
 229         xReturned = xTaskNotify( xTaskToNotify, ulFirstNotifiedConst, eSetValueWithOverwrite );\r
 230         configASSERT( xReturned == pdPASS );\r
 231         xReturned = xTaskNotify( xTaskToNotify, ulSecondNotifiedValueConst, eSetValueWithOverwrite );\r
 232         configASSERT( xReturned == pdPASS );\r
 233         xReturned = xTaskNotifyWait( ULONG_MAX, 0, &ulNotifiedValue, 0 );\r
 234         configASSERT( xReturned == pdPASS );\r
 235         configASSERT( ulNotifiedValue == ulSecondNotifiedValueConst );\r
 236 \r
 237 \r
 238 \r
 239 \r
 240         /*--------------------------------------------------------------------------\r
 241         Check notifications with no action pass without updating the value.  Even\r
 242         though ulFirstNotifiedConst is used as the value the value read back should\r
 243         remain at ulSecondNotifiedConst. */\r
 244         xReturned = xTaskNotify( xTaskToNotify, ulFirstNotifiedConst, eNoAction );\r
 245         configASSERT( xReturned == pdPASS );\r
 246         xReturned = xTaskNotifyWait( ULONG_MAX, 0, &ulNotifiedValue, 0 );\r
 247         configASSERT( ulNotifiedValue == ulSecondNotifiedValueConst );\r
 248 \r
 249 \r
 250 \r
 251 \r
 252         /*--------------------------------------------------------------------------\r
 253         Check incrementing values.  Send ulMaxLoop increment notifications, then\r
 254         ensure the received value is as expected - which should be\r
 255         ulSecondNotificationValueConst plus how ever many times to loop iterated. */\r
 256         for( ulLoop = 0; ulLoop < ulMaxLoops; ulLoop++ )\r
 257         {\r
 258                 xReturned = xTaskNotify( xTaskToNotify, 0, eIncrement );\r
 259                 configASSERT( xReturned == pdPASS );\r
 260         }\r
 261 \r
 262         xReturned = xTaskNotifyWait( ULONG_MAX, 0, &ulNotifiedValue, 0 );\r
 263         configASSERT( xReturned == pdPASS );\r
 264         configASSERT( ulNotifiedValue == ( ulSecondNotifiedValueConst + ulMaxLoops ) );\r
 265 \r
 266         /* Should not be any notifications pending now. */\r
 267         xReturned = xTaskNotifyWait( 0, 0, &ulNotifiedValue, 0 );\r
 268         configASSERT( xReturned == pdFAIL );\r
 269 \r
 270 \r
 271 \r
 272 \r
 273         /*--------------------------------------------------------------------------\r
 274         Check all bits can be set by notifying the task with one additional bit set\r
 275         on each notification, and exiting the loop when all the bits are found to be\r
 276         set.  As there are 32-bits the loop should execute 32 times before all the\r
 277         bits are found to be set. */\r
 278         ulNotifyingValue = 0x01;\r
 279         ulLoop = 0;\r
 280 \r
 281         /* Start with all bits clear. */\r
 282         xTaskNotifyWait( ULONG_MAX, 0, &ulNotifiedValue, 0 );\r
 283 \r
 284         do\r
 285         {\r
 286                 /* Set the next bit in the task's notified value. */\r
 287                 xTaskNotify( xTaskToNotify, ulNotifyingValue, eSetBits );\r
 288 \r
 289                 /* Wait for the notified value - which of course will already be\r
 290                 available.  Don't clear the bits on entry or exit as this loop is exited\r
 291                 when all the bits are set. */\r
 292                 xReturned = xTaskNotifyWait( 0, 0, &ulNotifiedValue, 0 );\r
 293                 configASSERT( xReturned == pdPASS );\r
 294 \r
 295                 ulLoop++;\r
 296 \r
 297                 /* Use the next bit on the next iteration around this loop. */\r
 298                 ulNotifyingValue <<= 1UL;\r
 299 \r
 300         } while ( ulNotifiedValue != ULONG_MAX );\r
 301 \r
 302         /* As a 32-bit value was used the loop should have executed 32 times before\r
 303         all the bits were set. */\r
 304         configASSERT( ulLoop == 32 );\r
 305 \r
 306 \r
 307 \r
 308 \r
 309         /*--------------------------------------------------------------------------\r
 310         Check bits are cleared on entry but not on exit when a notification fails\r
 311         to arrive before timing out - both with and without a timeout value.  Wait\r
 312         for the notification again - but this time it is not given by anything and\r
 313         should return pdFAIL.  The parameters are set to clear bit zero on entry and\r
 314         bit one on exit.  As no notification was received only the bit cleared on\r
 315         entry should actually get cleared. */\r
 316         xReturned = xTaskNotifyWait( ulBit0, ulBit1, &ulNotifiedValue, xTicksToWait );\r
 317         configASSERT( xReturned == pdFAIL );\r
 318 \r
 319         /* Notify the task with no action so as not to update the bits even though\r
 320         ULONG_MAX is used as the notification value. */\r
 321         xTaskNotify( xTaskToNotify, ULONG_MAX, eNoAction );\r
 322 \r
 323         /* Reading back the value should should find bit 0 is clear, as this was\r
 324         cleared on entry, but bit 1 is not clear as it will not have been cleared on\r
 325         exit as no notification was received. */\r
 326         xReturned = xTaskNotifyWait( 0x00UL, 0x00UL, &ulNotifiedValue, 0 );\r
 327         configASSERT( xReturned == pdPASS );\r
 328         configASSERT( ulNotifiedValue == ( ULONG_MAX & ~ulBit0 ) );\r
 329 \r
 330 \r
 331 \r
 332 \r
 333 \r
 334         /*--------------------------------------------------------------------------\r
 335         Now try clearing the bit on exit.  For that to happen a notification must be\r
 336         received, so the task is notified first. */\r
 337         xTaskNotify( xTaskToNotify, 0, eNoAction );\r
 338         xTaskNotifyWait( 0x00, ulBit1, &ulNotifiedValue, 0 );\r
 339 \r
 340         /* However as the bit is cleared on exit, after the returned notification\r
 341         value is set, the returned notification value should not have the bit\r
 342         cleared... */\r
 343         configASSERT( ulNotifiedValue == ( ULONG_MAX & ~ulBit0 ) );\r
 344 \r
 345         /* ...but reading the value back again should find that the bit was indeed\r
 346         cleared internally.  The returned value should be pdFAIL however as nothing\r
 347         has notified the task in the mean time. */\r
 348         xReturned = xTaskNotifyWait( 0x00, 0x00, &ulNotifiedValue, 0 );\r
 349         configASSERT( xReturned == pdFAIL );\r
 350         configASSERT( ulNotifiedValue == ( ULONG_MAX & ~( ulBit0 | ulBit1 ) ) );\r
 351 \r
 352 \r
 353 \r
 354         /* Incremented to show the task is still running. */\r
 355         ulNotifyCycleCount++;\r
 356 \r
 357         /* Leave all bits cleared. */\r
 358         xTaskNotifyWait( ULONG_MAX, 0, NULL, 0 );\r
 359 }\r
 360 /*-----------------------------------------------------------*/\r
 361 \r
 362 static void prvNotifyingTimer( TimerHandle_t xNotUsed )\r
 363 {\r
 364         ( void ) xNotUsed;\r
 365 \r
 366         xTaskNotifyGive( xTaskToNotify );\r
 367 \r
 368         /* This value is also incremented from an interrupt. */\r
 369         taskENTER_CRITICAL();\r
 370         {\r
 371                 ulTimerNotificationsSent++;\r
 372         }\r
 373         taskEXIT_CRITICAL();\r
 374 }\r
 375 /*-----------------------------------------------------------*/\r
 376 \r
 377 static void prvNotifiedTask( void *pvParameters )\r
 378 {\r
 379 const TickType_t xMaxPeriod = pdMS_TO_TICKS( 90 ), xMinPeriod = pdMS_TO_TICKS( 10 ), xDontBlock = 0;\r
 380 TickType_t xPeriod;\r
 381 \r
 382         /* Remove compiler warnings about unused parameters. */\r
 383         ( void ) pvParameters;\r
 384 \r
 385         /* Run a few tests that can be done from a single task before entering the\r
 386         main loop. */\r
 387         prvSingleTaskTests();\r
 388 \r
 389         /* Create the software timer that is used to send notifications to this\r
 390         task.  Notifications are also received from an interrupt. */\r
 391         xTimer = xTimerCreate( "Notifier", xMaxPeriod, pdFALSE, NULL, prvNotifyingTimer );\r
 392 \r
 393         for( ;; )\r
 394         {\r
 395                 /* Start the timer again with a different period.  Sometimes the period\r
 396                 will be higher than the tasks block time, sometimes it will be lower\r
 397                 than the tasks block time. */\r
 398                 xPeriod = prvRand() % xMaxPeriod;\r
 399                 if( xPeriod < xMinPeriod )\r
 400                 {\r
 401                         xPeriod = xMinPeriod;\r
 402                 }\r
 403 \r
 404                 xTimerChangePeriod( xTimer, xPeriod, portMAX_DELAY );\r
 405                 xTimerStart( xTimer, portMAX_DELAY );\r
 406 \r
 407                 /* Block waiting for the notification again with a different period.\r
 408                 Sometimes the period will be higher than the tasks block time, sometimes\r
 409                 it will be lower than the tasks block time. */\r
 410                 xPeriod = prvRand() % xMaxPeriod;\r
 411                 if( xPeriod < xMinPeriod )\r
 412                 {\r
 413                         xPeriod = xMinPeriod;\r
 414                 }\r
 415 \r
 416                 /* Block to wait for a notification but without clearing the\r
 417                 notification count, so only add one to the count of received\r
 418                 notifications as any other notifications will remain pending. */\r
 419                 if( ulTaskNotifyTake( pdFALSE, xPeriod ) != 0 )\r
 420                 {\r
 421                         ulTimerNotificationsReceived++;\r
 422                 }\r
 423 \r
 424 \r
 425                 /* Take a notification without clearing again, but this time without a\r
 426                 block time specified. */\r
 427                 if( ulTaskNotifyTake( pdFALSE, xDontBlock ) != 0 )\r
 428                 {\r
 429                         ulTimerNotificationsReceived++;\r
 430                 }\r
 431 \r
 432                 /* Wait for the next notification from the timer, clearing all\r
 433                 notifications if one is received, so this time adding the total number\r
 434                 of notifications that were pending as none will be left pending after\r
 435                 the function call. */\r
 436                 ulTimerNotificationsReceived += ulTaskNotifyTake( pdTRUE, xPeriod );\r
 437 \r
 438                 /* Wait for the next notification again, clearing all notifications if\r
 439                 one is received, but this time blocking indefinitely. */\r
 440                 ulTimerNotificationsReceived += ulTaskNotifyTake( pdTRUE, portMAX_DELAY );\r
 441 \r
 442                 /* Incremented to show the task is still running. */\r
 443                 ulNotifyCycleCount++;\r
 444         }\r
 445 }\r
 446 /*-----------------------------------------------------------*/\r
 447 \r
 448 void xNotifyTaskFromISR( void )\r
 449 {\r
 450 static BaseType_t xCallCount = 0;\r
 451 const BaseType_t xCallInterval = pdMS_TO_TICKS( 50 );\r
 452 \r
 453         /* The task performs some tests before starting the timer that gives the\r
 454         notification from this interrupt.  If the timer has not been created yet\r
 455         then the initial tests have not yet completed and the notification should\r
 456         not be sent. */\r
 457         if( xTimer != NULL )\r
 458         {\r
 459                 xCallCount++;\r
 460 \r
 461                 if( xCallCount >= xCallInterval )\r
 462                 {\r
 463                         /* It is time to 'give' the notification again. */\r
 464                         xCallCount = 0;\r
 465 \r
 466                         vTaskNotifyGiveFromISR( xTaskToNotify, NULL );\r
 467                         ulTimerNotificationsSent++;\r
 468                 }\r
 469         }\r
 470 }\r
 471 /*-----------------------------------------------------------*/\r
 472 \r
 473 /* This is called to check the created tasks are still running and have not\r
 474 detected any errors. */\r
 475 BaseType_t xAreTaskNotificationTasksStillRunning( void )\r
 476 {\r
 477 static uint32_t ulLastNotifyCycleCount = 0;\r
 478 const uint32_t ulMaxSendReceiveDeviation = 5UL;\r
 479 \r
 480         /* Check the cycle count is still incrementing to ensure the task is still\r
 481         actually running. */\r
 482         if( ulLastNotifyCycleCount == ulNotifyCycleCount )\r
 483         {\r
 484                 xErrorStatus = pdFAIL;\r
 485         }\r
 486         else\r
 487         {\r
 488                 ulLastNotifyCycleCount = ulNotifyCycleCount;\r
 489         }\r
 490 \r
 491         /* Check the count of 'takes' from the software timer is keeping track with\r
 492         the amount of 'gives'. */\r
 493         if( ulTimerNotificationsSent > ulTimerNotificationsSent )\r
 494         {\r
 495                 if( ( ulTimerNotificationsSent - ulTimerNotificationsReceived ) > ulMaxSendReceiveDeviation )\r
 496                 {\r
 497                         xErrorStatus = pdFAIL;\r
 498                 }\r
 499         }\r
 500 \r
 501         return xErrorStatus;\r
 502 }\r
 503 /*-----------------------------------------------------------*/\r
 504 \r
 505 static UBaseType_t prvRand( void )\r
 506 {\r
 507 const uint32_t ulMultiplier = 0x015a4e35UL, ulIncrement = 1UL;\r
 508 \r
 509         /* Utility function to generate a pseudo random number. */\r
 510         ulNextRand = ( ulMultiplier * ulNextRand ) + ulIncrement;\r
 511         return( ( int ) ( ulNextRand >> 16UL ) & 0x7fffUL );\r
 512 }\r
 513 /*-----------------------------------------------------------*/\r