2 ; FreeRTOS V6.0.2 - Copyright (C) 2009 Real Time Engineers Ltd.
\r
4 ; ***************************************************************************
\r
8 ; * + New to FreeRTOS, *
\r
9 ; * + Wanting to learn FreeRTOS or multitasking in general quickly *
\r
10 ; * + Looking for basic training, *
\r
11 ; * + Wanting to improve your FreeRTOS skills and productivity *
\r
13 ; * then take a look at the FreeRTOS eBook *
\r
15 ; * "Using the FreeRTOS Real Time Kernel - a Practical Guide" *
\r
16 ; * http://www.FreeRTOS.org/Documentation *
\r
18 ; * A pdf reference manual is also available. Both are usually delivered *
\r
19 ; * to your inbox within 20 minutes to two hours when purchased between 8am *
\r
20 ; * and 8pm GMT (although please allow up to 24 hours in case of *
\r
21 ; * exceptional circumstances). Thank you for your support! *
\r
23 ; ***************************************************************************
\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 exception to the GPL is included to allow you to distribute
\r
31 ; a combined work that includes FreeRTOS without being obliged to provide the
\r
32 ; source code for proprietary components outside of the FreeRTOS kernel.
\r
33 ; FreeRTOS is distributed in the hope that it will be useful, but WITHOUT
\r
34 ; ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
\r
35 ; 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
40 ; FreeRTOS WEB site.
\r
42 ; 1 tab == 4 spaces!
\r
44 ; http://www.FreeRTOS.org - Documentation, latest information, license and
\r
47 ; http://www.SafeRTOS.com - A version that is certified for use in safety
\r
50 ; http://www.OpenRTOS.com - Commercial support, development, porting,
\r
51 ; licensing and training services.
\r
54 .import _pxCurrentTCB
\r
55 .import _vTaskSwitchContext
\r
56 .import _ulRegTest1CycleCount
\r
57 .import _ulRegTest2CycleCount
\r
59 .export _vRegTest1Task
\r
60 .export _vRegTest2Task
\r
62 .section P, code, align=4
\r
68 ; Fill the registers with known values.
\r
91 ; Also fill the flop registers with known values.
\r
123 ; Set FPUL to a known value before the yield.
\r
127 ; Perform a yield, just for extra test coverage.
\r
130 ; Check fpul still contains the expected value.
\r
135 ; Reset r1 which was used in the tests.
\r
138 ; Test that the registers still contain the expected values. If not, jump to
\r
139 ; vRegTestError, which will stop this function looping and so cause it to stop
\r
140 ; incrementing its loop counter. Both the standard and flop registers are
\r
269 ; Increment the loop counter to indicate that this task is still running and
\r
271 mov.l #_ulRegTest1CycleCount, r0
\r
276 ; Jump back to test all the registers again.
\r
280 ;-----------------------------------------------------------
\r
283 bra _vRegTest1Error
\r
286 ;-----------------------------------------------------------
\r
290 ; Fill the standard registers with known values.
\r
312 ; Also fill the flop registers with known values.
\r
344 ; Reset r1 which was used in the tests.
\r
347 ; Test that the registers still contain the expected values. If not, jump to
\r
348 ; vRegTestError, which will stop this function looping and so cause it to stop
\r
349 ; incrementing its loop counter. Both the standard and flop registers are
\r
470 ; Increment the loop counter to indicate that this task is still running and
\r
472 mov.l #_ulRegTest2CycleCount, r0
\r
477 ; Jump back to test all the registers again.
\r
481 ;-----------------------------------------------------------
\r
485 bra _vRegTest2Error
\r
projects / freertos / blob