git.sur5r.net Git - freertos/blob - FreeRTOS/Source/portable/RVDS/ARM7_LPC21xx/portmacro.inc

   1 ;/*\r
   2 ;    FreeRTOS V8.1.2 - Copyright (C) 2014 Real Time Engineers Ltd.\r
   3 ;    All rights reserved\r
   4 ;       \r
   5 ;\r
   6 ;    ***************************************************************************\r
   7 ;     *                                                                       *\r
   8 ;     *    FreeRTOS tutorial books are available in pdf and paperback.        *\r
   9 ;     *    Complete, revised, and edited pdf reference manuals are also       *\r
  10 ;     *    available.                                                         *\r
  11 ;     *                                                                       *\r
  12 ;     *    Purchasing FreeRTOS documentation will not only help you, by       *\r
  13 ;     *    ensuring you get running as quickly as possible and with an        *\r
  14 ;     *    in-depth knowledge of how to use FreeRTOS, it will also help       *\r
  15 ;     *    the FreeRTOS project to continue with its mission of providing     *\r
  16 ;     *    professional grade, cross platform, de facto standard solutions    *\r
  17 ;     *    for microcontrollers - completely free of charge!                  *\r
  18 ;     *                                                                       *\r
  19 ;     *    >>> See http://www.FreeRTOS.org/Documentation for details. <<<     *\r
  20 ;     *                                                                       *\r
  21 ;     *    Thank you for using FreeRTOS, and thank you for your support!      *\r
  22 ;     *                                                                       *\r
  23 ;    ***************************************************************************\r
  24 ;\r
  25 ;\r
  26 ;    This file is part of the FreeRTOS distribution.\r
  27 ;\r
  28 ;    FreeRTOS is free software; you can redistribute it and/or modify it under\r
  29 ;    the terms of the GNU General Public License (version 2) as published by the\r
  30 ;    Free Software Foundation AND MODIFIED BY the FreeRTOS exception.\r
  31 ;    >>>NOTE<<< The modification to the GPL is included to allow you to\r
  32 ;    distribute a combined work that includes FreeRTOS without being obliged to\r
  33 ;    provide the source code for proprietary components outside of the FreeRTOS\r
  34 ;    kernel.  FreeRTOS is distributed in the hope that it will be useful, but\r
  35 ;    WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY\r
  36 ;    or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public License for\r
  37 ;    more details. You should have received a copy of the GNU General Public\r
  38 ;    License and the FreeRTOS license exception along with FreeRTOS; if not it\r
  39 ;    can be viewed here: http://www.freertos.org/a00114.html and also obtained\r
  40 ;    by writing to Richard Barry, contact details for whom are available on the\r
  41 ;    FreeRTOS WEB site.\r
  42 ;\r
  43 ;    1 tab == 4 spaces!\r
  44 ;\r
  45 ;    http://www.FreeRTOS.org - Documentation, latest information, license and\r
  46 ;    contact details.\r
  47 ;\r
  48 ;    http://www.SafeRTOS.com - A version that is certified for use in safety\r
  49 ;    critical systems.\r
  50 ;\r
  51 ;    http://www.OpenRTOS.com - Commercial support, development, porting,\r
  52 ;    licensing and training services.\r
  53 ;*/\r
  54 \r
  55         IMPORT  ulCriticalNesting               ;\r
  56         IMPORT  pxCurrentTCB                    ;\r
  57 \r
  58 \r
  59         MACRO\r
  60         portRESTORE_CONTEXT\r
  61 \r
  62 \r
  63         LDR             R0, =pxCurrentTCB               ; Set the LR to the task stack.  The location was...\r
  64         LDR             R0, [R0]                                ; ... stored in pxCurrentTCB\r
  65         LDR             LR, [R0]\r
  66 \r
  67         LDR             R0, =ulCriticalNesting  ; The critical nesting depth is the first item on... \r
  68         LDMFD   LR!, {R1}                               ; ...the stack.  Load it into the ulCriticalNesting var.\r
  69         STR             R1, [R0]                                ;\r
  70 \r
  71         LDMFD   LR!, {R0}                               ; Get the SPSR from the stack.\r
  72         MSR             SPSR_cxsf, R0                   ;\r
  73 \r
  74         LDMFD   LR, {R0-R14}^                   ; Restore all system mode registers for the task.\r
  75         NOP                                                             ;\r
  76 \r
  77         LDR             LR, [LR, #+60]                  ; Restore the return address\r
  78 \r
  79                                                                         ; And return - correcting the offset in the LR to obtain ...\r
  80         SUBS    PC, LR, #4                              ; ...the correct address.\r
  81 \r
  82         MEND\r
  83 \r
  84 ; /**********************************************************************/\r
  85 \r
  86         MACRO\r
  87         portSAVE_CONTEXT\r
  88 \r
  89 \r
  90         STMDB   SP!, {R0}                               ; Store R0 first as we need to use it.\r
  91 \r
  92         STMDB   SP,{SP}^                                ; Set R0 to point to the task stack pointer.\r
  93         NOP                                                             ;\r
  94         SUB             SP, SP, #4                              ;\r
  95         LDMIA   SP!,{R0}                                ;\r
  96 \r
  97         STMDB   R0!, {LR}                               ; Push the return address onto the stack.\r
  98         MOV             LR, R0                                  ; Now we have saved LR we can use it instead of R0.\r
  99         LDMIA   SP!, {R0}                               ; Pop R0 so we can save it onto the system mode stack.\r
 100 \r
 101         STMDB   LR,{R0-LR}^                             ; Push all the system mode registers onto the task stack.\r
 102         NOP                                                             ;\r
 103         SUB             LR, LR, #60                             ;\r
 104 \r
 105         MRS             R0, SPSR                                ; Push the SPSR onto the task stack.\r
 106         STMDB   LR!, {R0}                               ;\r
 107 \r
 108         LDR             R0, =ulCriticalNesting  ;\r
 109         LDR             R0, [R0]                                ;\r
 110         STMDB   LR!, {R0}                               ;\r
 111 \r
 112         LDR             R0, =pxCurrentTCB               ; Store the new top of stack for the task.\r
 113         LDR             R1, [R0]                                ;                \r
 114         STR             LR, [R1]                                ;\r
 115         \r
 116         MEND\r
 117         \r
 118         END\r