git.sur5r.net Git - freertos/blob - FreeRTOS/Demo/CORTEX_M0_STM32F0518_IAR/RegTest.s

   1 /*\r
   2     FreeRTOS V7.4.2 - Copyright (C) 2013 Real Time Engineers Ltd.\r
   3 \r
   4     FEATURES AND PORTS ARE ADDED TO FREERTOS ALL THE TIME.  PLEASE VISIT\r
   5     http://www.FreeRTOS.org TO ENSURE YOU ARE USING THE LATEST VERSION.\r
   6 \r
   7     ***************************************************************************\r
   8      *                                                                       *\r
   9      *    FreeRTOS tutorial books are available in pdf and paperback.        *\r
  10      *    Complete, revised, and edited pdf reference manuals are also       *\r
  11      *    available.                                                         *\r
  12      *                                                                       *\r
  13      *    Purchasing FreeRTOS documentation will not only help you, by       *\r
  14      *    ensuring you get running as quickly as possible and with an        *\r
  15      *    in-depth knowledge of how to use FreeRTOS, it will also help       *\r
  16      *    the FreeRTOS project to continue with its mission of providing     *\r
  17      *    professional grade, cross platform, de facto standard solutions    *\r
  18      *    for microcontrollers - completely free of charge!                  *\r
  19      *                                                                       *\r
  20      *    >>> See http://www.FreeRTOS.org/Documentation for details. <<<     *\r
  21      *                                                                       *\r
  22      *    Thank you for using FreeRTOS, and thank you for your support!      *\r
  23      *                                                                       *\r
  24     ***************************************************************************\r
  25 \r
  26 \r
  27     This file is part of the FreeRTOS distribution.\r
  28 \r
  29     FreeRTOS is free software; you can redistribute it and/or modify it under\r
  30     the terms of the GNU General Public License (version 2) as published by the\r
  31     Free Software Foundation AND MODIFIED BY the FreeRTOS exception.\r
  32 \r
  33     >>>>>>NOTE<<<<<< The modification to the GPL is included to allow you to\r
  34     distribute a combined work that includes FreeRTOS without being obliged to\r
  35     provide the source code for proprietary components outside of the FreeRTOS\r
  36     kernel.\r
  37 \r
  38     FreeRTOS is distributed in the hope that it will be useful, but WITHOUT ANY\r
  39     WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS\r
  40     FOR A PARTICULAR PURPOSE.  See the GNU General Public License for more\r
  41     details. You should have received a copy of the GNU General Public License\r
  42     and the FreeRTOS license exception along with FreeRTOS; if not it can be\r
  43     viewed here: http://www.freertos.org/a00114.html and also obtained by\r
  44     writing to Real Time Engineers Ltd., contact details for whom are available\r
  45     on the FreeRTOS WEB site.\r
  46 \r
  47     1 tab == 4 spaces!\r
  48 \r
  49     ***************************************************************************\r
  50      *                                                                       *\r
  51      *    Having a problem?  Start by reading the FAQ "My application does   *\r
  52      *    not run, what could be wrong?"                                     *\r
  53      *                                                                       *\r
  54      *    http://www.FreeRTOS.org/FAQHelp.html                               *\r
  55      *                                                                       *\r
  56     ***************************************************************************\r
  57 \r
  58 \r
  59     http://www.FreeRTOS.org - Documentation, books, training, latest versions, \r
  60     license and Real Time Engineers Ltd. contact details.\r
  61 \r
  62     http://www.FreeRTOS.org/plus - A selection of FreeRTOS ecosystem products,\r
  63     including FreeRTOS+Trace - an indispensable productivity tool, and our new\r
  64     fully thread aware and reentrant UDP/IP stack.\r
  65 \r
  66     http://www.OpenRTOS.com - Real Time Engineers ltd license FreeRTOS to High \r
  67     Integrity Systems, who sell the code with commercial support, \r
  68     indemnification and middleware, under the OpenRTOS brand.\r
  69     \r
  70     http://www.SafeRTOS.com - High Integrity Systems also provide a safety \r
  71     engineered and independently SIL3 certified version for use in safety and \r
  72     mission critical applications that require provable dependability.\r
  73 */\r
  74 \r
  75         RSEG    CODE:CODE(2)\r
  76         thumb\r
  77 \r
  78         EXTERN ulRegTest1LoopCounter\r
  79         EXTERN ulRegTest2LoopCounter\r
  80 \r
  81         PUBLIC vRegTest1Task\r
  82         PUBLIC vRegTest2Task\r
  83 \r
  84 /*-----------------------------------------------------------*/\r
  85 vRegTest1Task\r
  86 \r
  87         /* Fill the core registers with known values.  This is only done once. */\r
  88         movs r1, #101\r
  89         movs r2, #102\r
  90         movs r3, #103\r
  91         movs r4, #104\r
  92         movs r5, #105\r
  93         movs r6, #106\r
  94         movs r7, #107\r
  95         movs r0, #108\r
  96         mov      r8, r0\r
  97         movs r0, #109\r
  98         mov  r9, r0\r
  99         movs r0, #110\r
 100         mov      r10, r0\r
 101         movs r0, #111\r
 102         mov      r11, r0\r
 103         movs r0, #112\r
 104         mov  r12, r0\r
 105         movs r0, #100\r
 106 \r
 107 reg1_loop\r
 108         /* Repeatedly check that each register still contains the value written to\r
 109         it when the task started. */\r
 110         cmp     r0, #100\r
 111         bne     reg1_error_loop\r
 112         cmp     r1, #101\r
 113         bne     reg1_error_loop\r
 114         cmp     r2, #102\r
 115         bne     reg1_error_loop\r
 116         cmp r3, #103\r
 117         bne     reg1_error_loop\r
 118         cmp     r4, #104\r
 119         bne     reg1_error_loop\r
 120         cmp     r5, #105\r
 121         bne     reg1_error_loop\r
 122         cmp     r6, #106\r
 123         bne     reg1_error_loop\r
 124         cmp     r7, #107\r
 125         bne     reg1_error_loop\r
 126         movs r0, #108\r
 127         cmp     r8, r0\r
 128         bne     reg1_error_loop\r
 129         movs r0, #109\r
 130         cmp     r9, r0\r
 131         bne     reg1_error_loop\r
 132         movs r0, #110\r
 133         cmp     r10, r0\r
 134         bne     reg1_error_loop\r
 135         movs r0, #111\r
 136         cmp     r11, r0\r
 137         bne     reg1_error_loop\r
 138         movs r0, #112\r
 139         cmp     r12, r0\r
 140         bne     reg1_error_loop\r
 141 \r
 142         /* Everything passed, increment the loop counter. */\r
 143         push { r1 }\r
 144         ldr     r0, =ulRegTest1LoopCounter\r
 145         ldr r1, [r0]\r
 146         adds r1, r1, #1\r
 147         str r1, [r0]\r
 148         pop { r1 }\r
 149 \r
 150         /* Start again. */\r
 151         movs r0, #100\r
 152         b reg1_loop\r
 153 \r
 154 reg1_error_loop\r
 155         /* If this line is hit then there was an error in a core register value.\r
 156         The loop ensures the loop counter stops incrementing. */\r
 157         b reg1_error_loop\r
 158         nop\r
 159 \r
 160 \r
 161 \r
 162 vRegTest2Task\r
 163 \r
 164         /* Fill the core registers with known values.  This is only done once. */\r
 165         movs r1, #1\r
 166         movs r2, #2\r
 167         movs r3, #3\r
 168         movs r4, #4\r
 169         movs r5, #5\r
 170         movs r6, #6\r
 171         movs r7, #7\r
 172         movs r0, #8\r
 173         mov     r8, r0\r
 174         movs r0, #9\r
 175         mov r9, r0\r
 176         movs r0, #10\r
 177         mov     r10, r0\r
 178         movs r0, #11\r
 179         mov     r11, r0\r
 180         movs r0, #12\r
 181         mov r12, r0\r
 182         movs r0, #10\r
 183 \r
 184 reg2_loop\r
 185         /* Repeatedly check that each register still contains the value written to\r
 186         it when the task started. */\r
 187         cmp     r0, #10\r
 188         bne     reg2_error_loop\r
 189         cmp     r1, #1\r
 190         bne     reg2_error_loop\r
 191         cmp     r2, #2\r
 192         bne     reg2_error_loop\r
 193         cmp r3, #3\r
 194         bne     reg2_error_loop\r
 195         cmp     r4, #4\r
 196         bne     reg2_error_loop\r
 197         cmp     r5, #5\r
 198         bne     reg2_error_loop\r
 199         cmp     r6, #6\r
 200         bne     reg2_error_loop\r
 201         cmp     r7, #7\r
 202         bne     reg2_error_loop\r
 203         movs r0, #8\r
 204         cmp     r8, r0\r
 205         bne     reg2_error_loop\r
 206         movs r0, #9\r
 207         cmp     r9, r0\r
 208         bne     reg2_error_loop\r
 209         movs r0, #10\r
 210         cmp     r10, r0\r
 211         bne     reg2_error_loop\r
 212         movs r0, #11\r
 213         cmp     r11, r0\r
 214         bne     reg2_error_loop\r
 215         movs r0, #12\r
 216         cmp     r12, r0\r
 217         bne     reg2_error_loop\r
 218 \r
 219         /* Everything passed, increment the loop counter. */\r
 220         push { r1 }\r
 221         ldr     r0, =ulRegTest2LoopCounter\r
 222         ldr r1, [r0]\r
 223         adds r1, r1, #1\r
 224         str r1, [r0]\r
 225         pop { r1 }\r
 226 \r
 227         /* Start again. */\r
 228         movs r0, #10\r
 229         b reg2_loop\r
 230 \r
 231 reg2_error_loop\r
 232         /* If this line is hit then there was an error in a core register value.\r
 233         The loop ensures the loop counter stops incrementing. */\r
 234         b reg2_error_loop\r
 235         nop\r
 236 \r
 237         END\r