RUBEN ELISEO VAZQUEZ / Mbed 2 deprecated ds1302-bluetooth

the program have one sensor acs712 and moduleds1302

Dependencies:   FATFileSystem mbed

rtx/TARGET_CORTEX_M/TARGET_RTOS_M4_M7/TOOLCHAIN_GCC/HAL_CM4.S@0:b82abca089ac, 2017-06-08 (annotated)

Committer:
RUBENTEC
Date:
Thu Jun 08 20:17:34 2017 +0000
Revision:
0:b82abca089ac
ds1302-bluetooth-acs712

Who changed what in which revision?

UserRevisionLine numberNew contents of line
RUBENTEC 0:b82abca089ac 1 /*----------------------------------------------------------------------------
RUBENTEC 0:b82abca089ac 2 * RL-ARM - RTX
RUBENTEC 0:b82abca089ac 3 *----------------------------------------------------------------------------
RUBENTEC 0:b82abca089ac 4 * Name: HAL_CM4.S
RUBENTEC 0:b82abca089ac 5 * Purpose: Hardware Abstraction Layer for Cortex-M4
RUBENTEC 0:b82abca089ac 6 * Rev.: V4.70
RUBENTEC 0:b82abca089ac 7 *----------------------------------------------------------------------------
RUBENTEC 0:b82abca089ac 8 *
RUBENTEC 0:b82abca089ac 9 * Copyright (c) 1999-2009 KEIL, 2009-2013 ARM Germany GmbH
RUBENTEC 0:b82abca089ac 10 * All rights reserved.
RUBENTEC 0:b82abca089ac 11 * Redistribution and use in source and binary forms, with or without
RUBENTEC 0:b82abca089ac 12 * modification, are permitted provided that the following conditions are met:
RUBENTEC 0:b82abca089ac 13 * - Redistributions of source code must retain the above copyright
RUBENTEC 0:b82abca089ac 14 * notice, this list of conditions and the following disclaimer.
RUBENTEC 0:b82abca089ac 15 * - Redistributions in binary form must reproduce the above copyright
RUBENTEC 0:b82abca089ac 16 * notice, this list of conditions and the following disclaimer in the
RUBENTEC 0:b82abca089ac 17 * documentation and/or other materials provided with the distribution.
RUBENTEC 0:b82abca089ac 18 * - Neither the name of ARM nor the names of its contributors may be used
RUBENTEC 0:b82abca089ac 19 * to endorse or promote products derived from this software without
RUBENTEC 0:b82abca089ac 20 * specific prior written permission.
RUBENTEC 0:b82abca089ac 21 *
RUBENTEC 0:b82abca089ac 22 * THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
RUBENTEC 0:b82abca089ac 23 * AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
RUBENTEC 0:b82abca089ac 24 * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
RUBENTEC 0:b82abca089ac 25 * ARE DISCLAIMED. IN NO EVENT SHALL COPYRIGHT HOLDERS AND CONTRIBUTORS BE
RUBENTEC 0:b82abca089ac 26 * LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
RUBENTEC 0:b82abca089ac 27 * CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
RUBENTEC 0:b82abca089ac 28 * SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
RUBENTEC 0:b82abca089ac 29 * INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
RUBENTEC 0:b82abca089ac 30 * CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
RUBENTEC 0:b82abca089ac 31 * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
RUBENTEC 0:b82abca089ac 32 * POSSIBILITY OF SUCH DAMAGE.
RUBENTEC 0:b82abca089ac 33 *---------------------------------------------------------------------------*/
RUBENTEC 0:b82abca089ac 34
RUBENTEC 0:b82abca089ac 35 .file "HAL_CM4.S"
RUBENTEC 0:b82abca089ac 36 .syntax unified
RUBENTEC 0:b82abca089ac 37
RUBENTEC 0:b82abca089ac 38 .equ TCB_STACKF, 32
RUBENTEC 0:b82abca089ac 39 .equ TCB_TSTACK, 40
RUBENTEC 0:b82abca089ac 40
RUBENTEC 0:b82abca089ac 41
RUBENTEC 0:b82abca089ac 42 /*----------------------------------------------------------------------------
RUBENTEC 0:b82abca089ac 43 * Functions
RUBENTEC 0:b82abca089ac 44 *---------------------------------------------------------------------------*/
RUBENTEC 0:b82abca089ac 45
RUBENTEC 0:b82abca089ac 46 .thumb
RUBENTEC 0:b82abca089ac 47
RUBENTEC 0:b82abca089ac 48 .section ".text"
RUBENTEC 0:b82abca089ac 49 .align 2
RUBENTEC 0:b82abca089ac 50
RUBENTEC 0:b82abca089ac 51
RUBENTEC 0:b82abca089ac 52 /*--------------------------- rt_set_PSP ------------------------------------*/
RUBENTEC 0:b82abca089ac 53
RUBENTEC 0:b82abca089ac 54 # void rt_set_PSP (U32 stack);
RUBENTEC 0:b82abca089ac 55
RUBENTEC 0:b82abca089ac 56 .thumb_func
RUBENTEC 0:b82abca089ac 57 .type rt_set_PSP, %function
RUBENTEC 0:b82abca089ac 58 .global rt_set_PSP
RUBENTEC 0:b82abca089ac 59 rt_set_PSP:
RUBENTEC 0:b82abca089ac 60 .fnstart
RUBENTEC 0:b82abca089ac 61 .cantunwind
RUBENTEC 0:b82abca089ac 62
RUBENTEC 0:b82abca089ac 63 MSR PSP,R0
RUBENTEC 0:b82abca089ac 64 BX LR
RUBENTEC 0:b82abca089ac 65
RUBENTEC 0:b82abca089ac 66 .fnend
RUBENTEC 0:b82abca089ac 67 .size rt_set_PSP, .-rt_set_PSP
RUBENTEC 0:b82abca089ac 68
RUBENTEC 0:b82abca089ac 69
RUBENTEC 0:b82abca089ac 70 /*--------------------------- rt_get_PSP ------------------------------------*/
RUBENTEC 0:b82abca089ac 71
RUBENTEC 0:b82abca089ac 72 # U32 rt_get_PSP (void);
RUBENTEC 0:b82abca089ac 73
RUBENTEC 0:b82abca089ac 74 .thumb_func
RUBENTEC 0:b82abca089ac 75 .type rt_get_PSP, %function
RUBENTEC 0:b82abca089ac 76 .global rt_get_PSP
RUBENTEC 0:b82abca089ac 77 rt_get_PSP:
RUBENTEC 0:b82abca089ac 78 .fnstart
RUBENTEC 0:b82abca089ac 79 .cantunwind
RUBENTEC 0:b82abca089ac 80
RUBENTEC 0:b82abca089ac 81 MRS R0,PSP
RUBENTEC 0:b82abca089ac 82 BX LR
RUBENTEC 0:b82abca089ac 83
RUBENTEC 0:b82abca089ac 84 .fnend
RUBENTEC 0:b82abca089ac 85 .size rt_get_PSP, .-rt_get_PSP
RUBENTEC 0:b82abca089ac 86
RUBENTEC 0:b82abca089ac 87
RUBENTEC 0:b82abca089ac 88 /*--------------------------- os_set_env ------------------------------------*/
RUBENTEC 0:b82abca089ac 89
RUBENTEC 0:b82abca089ac 90 # void os_set_env (void);
RUBENTEC 0:b82abca089ac 91 /* Switch to Unprivileged/Privileged Thread mode, use PSP. */
RUBENTEC 0:b82abca089ac 92
RUBENTEC 0:b82abca089ac 93 .thumb_func
RUBENTEC 0:b82abca089ac 94 .type os_set_env, %function
RUBENTEC 0:b82abca089ac 95 .global os_set_env
RUBENTEC 0:b82abca089ac 96 os_set_env:
RUBENTEC 0:b82abca089ac 97 .fnstart
RUBENTEC 0:b82abca089ac 98 .cantunwind
RUBENTEC 0:b82abca089ac 99
RUBENTEC 0:b82abca089ac 100 MOV R0,SP /* PSP = MSP */
RUBENTEC 0:b82abca089ac 101 MSR PSP,R0
RUBENTEC 0:b82abca089ac 102 LDR R0,=os_flags
RUBENTEC 0:b82abca089ac 103 LDRB R0,[R0]
RUBENTEC 0:b82abca089ac 104 LSLS R0,#31
RUBENTEC 0:b82abca089ac 105 ITE NE
RUBENTEC 0:b82abca089ac 106 MOVNE R0,#0x02 /* Privileged Thread mode, use PSP */
RUBENTEC 0:b82abca089ac 107 MOVEQ R0,#0x03 /* Unprivileged Thread mode, use PSP */
RUBENTEC 0:b82abca089ac 108 MSR CONTROL,R0
RUBENTEC 0:b82abca089ac 109 BX LR
RUBENTEC 0:b82abca089ac 110
RUBENTEC 0:b82abca089ac 111 .fnend
RUBENTEC 0:b82abca089ac 112 .size os_set_env, .-os_set_env
RUBENTEC 0:b82abca089ac 113
RUBENTEC 0:b82abca089ac 114
RUBENTEC 0:b82abca089ac 115 /*--------------------------- _alloc_box ------------------------------------*/
RUBENTEC 0:b82abca089ac 116
RUBENTEC 0:b82abca089ac 117 # void *_alloc_box (void *box_mem);
RUBENTEC 0:b82abca089ac 118 /* Function wrapper for Unprivileged/Privileged mode. */
RUBENTEC 0:b82abca089ac 119
RUBENTEC 0:b82abca089ac 120 .thumb_func
RUBENTEC 0:b82abca089ac 121 .type _alloc_box, %function
RUBENTEC 0:b82abca089ac 122 .global _alloc_box
RUBENTEC 0:b82abca089ac 123 _alloc_box:
RUBENTEC 0:b82abca089ac 124 .fnstart
RUBENTEC 0:b82abca089ac 125 .cantunwind
RUBENTEC 0:b82abca089ac 126
RUBENTEC 0:b82abca089ac 127 LDR R12,=rt_alloc_box
RUBENTEC 0:b82abca089ac 128 MRS R3,IPSR
RUBENTEC 0:b82abca089ac 129 LSLS R3,#24
RUBENTEC 0:b82abca089ac 130 IT NE
RUBENTEC 0:b82abca089ac 131 BXNE R12
RUBENTEC 0:b82abca089ac 132 MRS R3,CONTROL
RUBENTEC 0:b82abca089ac 133 LSLS R3,#31
RUBENTEC 0:b82abca089ac 134 IT EQ
RUBENTEC 0:b82abca089ac 135 BXEQ R12
RUBENTEC 0:b82abca089ac 136 SVC 0
RUBENTEC 0:b82abca089ac 137 BX LR
RUBENTEC 0:b82abca089ac 138
RUBENTEC 0:b82abca089ac 139 .fnend
RUBENTEC 0:b82abca089ac 140 .size _alloc_box, .-_alloc_box
RUBENTEC 0:b82abca089ac 141
RUBENTEC 0:b82abca089ac 142
RUBENTEC 0:b82abca089ac 143 /*--------------------------- _free_box -------------------------------------*/
RUBENTEC 0:b82abca089ac 144
RUBENTEC 0:b82abca089ac 145 # int _free_box (void *box_mem, void *box);
RUBENTEC 0:b82abca089ac 146 /* Function wrapper for Unprivileged/Privileged mode. */
RUBENTEC 0:b82abca089ac 147
RUBENTEC 0:b82abca089ac 148 .thumb_func
RUBENTEC 0:b82abca089ac 149 .type _free_box, %function
RUBENTEC 0:b82abca089ac 150 .global _free_box
RUBENTEC 0:b82abca089ac 151 _free_box:
RUBENTEC 0:b82abca089ac 152 .fnstart
RUBENTEC 0:b82abca089ac 153 .cantunwind
RUBENTEC 0:b82abca089ac 154
RUBENTEC 0:b82abca089ac 155 LDR R12,=rt_free_box
RUBENTEC 0:b82abca089ac 156 MRS R3,IPSR
RUBENTEC 0:b82abca089ac 157 LSLS R3,#24
RUBENTEC 0:b82abca089ac 158 IT NE
RUBENTEC 0:b82abca089ac 159 BXNE R12
RUBENTEC 0:b82abca089ac 160 MRS R3,CONTROL
RUBENTEC 0:b82abca089ac 161 LSLS R3,#31
RUBENTEC 0:b82abca089ac 162 IT EQ
RUBENTEC 0:b82abca089ac 163 BXEQ R12
RUBENTEC 0:b82abca089ac 164 SVC 0
RUBENTEC 0:b82abca089ac 165 BX LR
RUBENTEC 0:b82abca089ac 166
RUBENTEC 0:b82abca089ac 167 .fnend
RUBENTEC 0:b82abca089ac 168 .size _free_box, .-_free_box
RUBENTEC 0:b82abca089ac 169
RUBENTEC 0:b82abca089ac 170
RUBENTEC 0:b82abca089ac 171 /*-------------------------- SVC_Handler ------------------------------------*/
RUBENTEC 0:b82abca089ac 172
RUBENTEC 0:b82abca089ac 173 # void SVC_Handler (void);
RUBENTEC 0:b82abca089ac 174
RUBENTEC 0:b82abca089ac 175 .thumb_func
RUBENTEC 0:b82abca089ac 176 .type SVC_Handler, %function
RUBENTEC 0:b82abca089ac 177 .global SVC_Handler
RUBENTEC 0:b82abca089ac 178 SVC_Handler:
RUBENTEC 0:b82abca089ac 179 .ifdef IFX_XMC4XXX
RUBENTEC 0:b82abca089ac 180 .global SVC_Handler_Veneer
RUBENTEC 0:b82abca089ac 181 SVC_Handler_Veneer:
RUBENTEC 0:b82abca089ac 182 .endif
RUBENTEC 0:b82abca089ac 183 .fnstart
RUBENTEC 0:b82abca089ac 184 .cantunwind
RUBENTEC 0:b82abca089ac 185
RUBENTEC 0:b82abca089ac 186 MRS R0,PSP /* Read PSP */
RUBENTEC 0:b82abca089ac 187 LDR R1,[R0,#24] /* Read Saved PC from Stack */
RUBENTEC 0:b82abca089ac 188 LDRB R1,[R1,#-2] /* Load SVC Number */
RUBENTEC 0:b82abca089ac 189 CBNZ R1,SVC_User
RUBENTEC 0:b82abca089ac 190
RUBENTEC 0:b82abca089ac 191 LDM R0,{R0-R3,R12} /* Read R0-R3,R12 from stack */
RUBENTEC 0:b82abca089ac 192 PUSH {R4,LR} /* Save EXC_RETURN */
RUBENTEC 0:b82abca089ac 193 BLX R12 /* Call SVC Function */
RUBENTEC 0:b82abca089ac 194 POP {R4,LR} /* Restore EXC_RETURN */
RUBENTEC 0:b82abca089ac 195
RUBENTEC 0:b82abca089ac 196 MRS R12,PSP /* Read PSP */
RUBENTEC 0:b82abca089ac 197 STM R12,{R0-R2} /* Store return values */
RUBENTEC 0:b82abca089ac 198
RUBENTEC 0:b82abca089ac 199 LDR R3,=os_tsk
RUBENTEC 0:b82abca089ac 200 LDM R3,{R1,R2} /* os_tsk.run, os_tsk.new */
RUBENTEC 0:b82abca089ac 201 CMP R1,R2
RUBENTEC 0:b82abca089ac 202 .ifdef IFX_XMC4XXX
RUBENTEC 0:b82abca089ac 203 ITT EQ
RUBENTEC 0:b82abca089ac 204 PUSHEQ {LR}
RUBENTEC 0:b82abca089ac 205 POPEQ {PC}
RUBENTEC 0:b82abca089ac 206 .else
RUBENTEC 0:b82abca089ac 207 IT EQ
RUBENTEC 0:b82abca089ac 208 BXEQ LR /* RETI, no task switch */
RUBENTEC 0:b82abca089ac 209 .endif
RUBENTEC 0:b82abca089ac 210
RUBENTEC 0:b82abca089ac 211 CBZ R1,SVC_Next /* Runtask deleted? */
RUBENTEC 0:b82abca089ac 212 TST LR,#0x10 /* is it extended frame? */
RUBENTEC 0:b82abca089ac 213 #ifdef __FPU_PRESENT
RUBENTEC 0:b82abca089ac 214 ITTE EQ
RUBENTEC 0:b82abca089ac 215 VSTMDBEQ R12!,{S16-S31} /* yes, stack also VFP hi-regs */
RUBENTEC 0:b82abca089ac 216 #else
RUBENTEC 0:b82abca089ac 217 ITE EQ
RUBENTEC 0:b82abca089ac 218 #endif
RUBENTEC 0:b82abca089ac 219 MOVEQ R0,#0x01 /* os_tsk->stack_frame val */
RUBENTEC 0:b82abca089ac 220 MOVNE R0,#0x00
RUBENTEC 0:b82abca089ac 221 STRB R0,[R1,#TCB_STACKF] /* os_tsk.run->stack_frame = val */
RUBENTEC 0:b82abca089ac 222 STMDB R12!,{R4-R11} /* Save Old context */
RUBENTEC 0:b82abca089ac 223 STR R12,[R1,#TCB_TSTACK] /* Update os_tsk.run->tsk_stack */
RUBENTEC 0:b82abca089ac 224
RUBENTEC 0:b82abca089ac 225 PUSH {R2,R3}
RUBENTEC 0:b82abca089ac 226 BL rt_stk_check /* Check for Stack overflow */
RUBENTEC 0:b82abca089ac 227 POP {R2,R3}
RUBENTEC 0:b82abca089ac 228
RUBENTEC 0:b82abca089ac 229 SVC_Next:
RUBENTEC 0:b82abca089ac 230 STR R2,[R3] /* os_tsk.run = os_tsk.new */
RUBENTEC 0:b82abca089ac 231
RUBENTEC 0:b82abca089ac 232 LDR R12,[R2,#TCB_TSTACK] /* os_tsk.new->tsk_stack */
RUBENTEC 0:b82abca089ac 233 LDMIA R12!,{R4-R11} /* Restore New Context */
RUBENTEC 0:b82abca089ac 234 LDRB R0,[R2,#TCB_STACKF] /* Stack Frame */
RUBENTEC 0:b82abca089ac 235 CMP R0,#0 /* Basic/Extended Stack Frame */
RUBENTEC 0:b82abca089ac 236 #ifdef __FPU_PRESENT
RUBENTEC 0:b82abca089ac 237 ITTE NE
RUBENTEC 0:b82abca089ac 238 VLDMIANE R12!,{S16-S31} /* restore VFP hi-registers */
RUBENTEC 0:b82abca089ac 239 #else
RUBENTEC 0:b82abca089ac 240 ITE NE
RUBENTEC 0:b82abca089ac 241 #endif
RUBENTEC 0:b82abca089ac 242 MVNNE LR,#~0xFFFFFFED /* set EXC_RETURN value */
RUBENTEC 0:b82abca089ac 243 MVNEQ LR,#~0xFFFFFFFD
RUBENTEC 0:b82abca089ac 244 MSR PSP,R12 /* Write PSP */
RUBENTEC 0:b82abca089ac 245
RUBENTEC 0:b82abca089ac 246 SVC_Exit:
RUBENTEC 0:b82abca089ac 247 .ifdef IFX_XMC4XXX
RUBENTEC 0:b82abca089ac 248 PUSH {LR}
RUBENTEC 0:b82abca089ac 249 POP {PC}
RUBENTEC 0:b82abca089ac 250 .else
RUBENTEC 0:b82abca089ac 251 BX LR
RUBENTEC 0:b82abca089ac 252 .endif
RUBENTEC 0:b82abca089ac 253
RUBENTEC 0:b82abca089ac 254 /*------------------- User SVC ------------------------------*/
RUBENTEC 0:b82abca089ac 255
RUBENTEC 0:b82abca089ac 256 SVC_User:
RUBENTEC 0:b82abca089ac 257 PUSH {R4,LR} /* Save Registers */
RUBENTEC 0:b82abca089ac 258 LDR R2,=SVC_Count
RUBENTEC 0:b82abca089ac 259 LDR R2,[R2]
RUBENTEC 0:b82abca089ac 260 CMP R1,R2
RUBENTEC 0:b82abca089ac 261 BHI SVC_Done /* Overflow */
RUBENTEC 0:b82abca089ac 262
RUBENTEC 0:b82abca089ac 263 LDR R4,=SVC_Table-4
RUBENTEC 0:b82abca089ac 264 LDR R4,[R4,R1,LSL #2] /* Load SVC Function Address */
RUBENTEC 0:b82abca089ac 265
RUBENTEC 0:b82abca089ac 266 LDM R0,{R0-R3,R12} /* Read R0-R3,R12 from stack */
RUBENTEC 0:b82abca089ac 267 BLX R4 /* Call SVC Function */
RUBENTEC 0:b82abca089ac 268
RUBENTEC 0:b82abca089ac 269 MRS R12,PSP
RUBENTEC 0:b82abca089ac 270 STM R12,{R0-R3} /* Function return values */
RUBENTEC 0:b82abca089ac 271 SVC_Done:
RUBENTEC 0:b82abca089ac 272 POP {R4,PC} /* RETI */
RUBENTEC 0:b82abca089ac 273
RUBENTEC 0:b82abca089ac 274 .fnend
RUBENTEC 0:b82abca089ac 275 .size SVC_Handler, .-SVC_Handler
RUBENTEC 0:b82abca089ac 276
RUBENTEC 0:b82abca089ac 277
RUBENTEC 0:b82abca089ac 278 /*-------------------------- PendSV_Handler ---------------------------------*/
RUBENTEC 0:b82abca089ac 279
RUBENTEC 0:b82abca089ac 280 # void PendSV_Handler (void);
RUBENTEC 0:b82abca089ac 281
RUBENTEC 0:b82abca089ac 282 .thumb_func
RUBENTEC 0:b82abca089ac 283 .type PendSV_Handler, %function
RUBENTEC 0:b82abca089ac 284 .global PendSV_Handler
RUBENTEC 0:b82abca089ac 285 .global Sys_Switch
RUBENTEC 0:b82abca089ac 286 PendSV_Handler:
RUBENTEC 0:b82abca089ac 287 .ifdef IFX_XMC4XXX
RUBENTEC 0:b82abca089ac 288 .global PendSV_Handler_Veneer
RUBENTEC 0:b82abca089ac 289 PendSV_Handler_Veneer:
RUBENTEC 0:b82abca089ac 290 .endif
RUBENTEC 0:b82abca089ac 291 .fnstart
RUBENTEC 0:b82abca089ac 292 .cantunwind
RUBENTEC 0:b82abca089ac 293
RUBENTEC 0:b82abca089ac 294 PUSH {R4,LR} /* Save EXC_RETURN */
RUBENTEC 0:b82abca089ac 295 BL rt_pop_req
RUBENTEC 0:b82abca089ac 296
RUBENTEC 0:b82abca089ac 297 Sys_Switch:
RUBENTEC 0:b82abca089ac 298 POP {R4,LR} /* Restore EXC_RETURN */
RUBENTEC 0:b82abca089ac 299
RUBENTEC 0:b82abca089ac 300 LDR R3,=os_tsk
RUBENTEC 0:b82abca089ac 301 LDM R3,{R1,R2} /* os_tsk.run, os_tsk.new */
RUBENTEC 0:b82abca089ac 302 CMP R1,R2
RUBENTEC 0:b82abca089ac 303 .ifdef IFX_XMC4XXX
RUBENTEC 0:b82abca089ac 304 ITT EQ
RUBENTEC 0:b82abca089ac 305 PUSHEQ {LR}
RUBENTEC 0:b82abca089ac 306 POPEQ {PC}
RUBENTEC 0:b82abca089ac 307 .else
RUBENTEC 0:b82abca089ac 308 IT EQ
RUBENTEC 0:b82abca089ac 309 BXEQ LR /* RETI, no task switch */
RUBENTEC 0:b82abca089ac 310 .endif
RUBENTEC 0:b82abca089ac 311
RUBENTEC 0:b82abca089ac 312 MRS R12,PSP /* Read PSP */
RUBENTEC 0:b82abca089ac 313 TST LR,#0x10 /* is it extended frame? */
RUBENTEC 0:b82abca089ac 314 #ifdef __FPU_PRESENT
RUBENTEC 0:b82abca089ac 315 ITTE EQ
RUBENTEC 0:b82abca089ac 316 VSTMDBEQ R12!,{S16-S31} /* yes, stack also VFP hi-regs */
RUBENTEC 0:b82abca089ac 317 #else
RUBENTEC 0:b82abca089ac 318 ITE EQ
RUBENTEC 0:b82abca089ac 319 #endif
RUBENTEC 0:b82abca089ac 320 MOVEQ R0,#0x01 /* os_tsk->stack_frame val */
RUBENTEC 0:b82abca089ac 321 MOVNE R0,#0x00
RUBENTEC 0:b82abca089ac 322 STRB R0,[R1,#TCB_STACKF] /* os_tsk.run->stack_frame = val */
RUBENTEC 0:b82abca089ac 323 STMDB R12!,{R4-R11} /* Save Old context */
RUBENTEC 0:b82abca089ac 324 STR R12,[R1,#TCB_TSTACK] /* Update os_tsk.run->tsk_stack */
RUBENTEC 0:b82abca089ac 325
RUBENTEC 0:b82abca089ac 326 PUSH {R2,R3}
RUBENTEC 0:b82abca089ac 327 BL rt_stk_check /* Check for Stack overflow */
RUBENTEC 0:b82abca089ac 328 POP {R2,R3}
RUBENTEC 0:b82abca089ac 329
RUBENTEC 0:b82abca089ac 330 STR R2,[R3] /* os_tsk.run = os_tsk.new */
RUBENTEC 0:b82abca089ac 331
RUBENTEC 0:b82abca089ac 332 LDR R12,[R2,#TCB_TSTACK] /* os_tsk.new->tsk_stack */
RUBENTEC 0:b82abca089ac 333 LDMIA R12!,{R4-R11} /* Restore New Context */
RUBENTEC 0:b82abca089ac 334 LDRB R0,[R2,#TCB_STACKF] /* Stack Frame */
RUBENTEC 0:b82abca089ac 335 CMP R0,#0 /* Basic/Extended Stack Frame */
RUBENTEC 0:b82abca089ac 336 #ifdef __FPU_PRESENT
RUBENTEC 0:b82abca089ac 337 ITTE NE
RUBENTEC 0:b82abca089ac 338 VLDMIANE R12!,{S16-S31} /* restore VFP hi-registers */
RUBENTEC 0:b82abca089ac 339 #else
RUBENTEC 0:b82abca089ac 340 ITE NE
RUBENTEC 0:b82abca089ac 341 #endif
RUBENTEC 0:b82abca089ac 342 MVNNE LR,#~0xFFFFFFED /* set EXC_RETURN value */
RUBENTEC 0:b82abca089ac 343 MVNEQ LR,#~0xFFFFFFFD
RUBENTEC 0:b82abca089ac 344 MSR PSP,R12 /* Write PSP */
RUBENTEC 0:b82abca089ac 345
RUBENTEC 0:b82abca089ac 346 Sys_Exit:
RUBENTEC 0:b82abca089ac 347 .ifdef IFX_XMC4XXX
RUBENTEC 0:b82abca089ac 348 PUSH {LR}
RUBENTEC 0:b82abca089ac 349 POP {PC}
RUBENTEC 0:b82abca089ac 350 .else
RUBENTEC 0:b82abca089ac 351 BX LR /* Return to Thread Mode */
RUBENTEC 0:b82abca089ac 352 .endif
RUBENTEC 0:b82abca089ac 353
RUBENTEC 0:b82abca089ac 354 .fnend
RUBENTEC 0:b82abca089ac 355 .size PendSV_Handler, .-PendSV_Handler
RUBENTEC 0:b82abca089ac 356
RUBENTEC 0:b82abca089ac 357
RUBENTEC 0:b82abca089ac 358 /*-------------------------- SysTick_Handler --------------------------------*/
RUBENTEC 0:b82abca089ac 359
RUBENTEC 0:b82abca089ac 360 # void SysTick_Handler (void);
RUBENTEC 0:b82abca089ac 361
RUBENTEC 0:b82abca089ac 362 .thumb_func
RUBENTEC 0:b82abca089ac 363 .type SysTick_Handler, %function
RUBENTEC 0:b82abca089ac 364 .global SysTick_Handler
RUBENTEC 0:b82abca089ac 365 SysTick_Handler:
RUBENTEC 0:b82abca089ac 366 .ifdef IFX_XMC4XXX
RUBENTEC 0:b82abca089ac 367 .global SysTick_Handler_Veneer
RUBENTEC 0:b82abca089ac 368 SysTick_Handler_Veneer:
RUBENTEC 0:b82abca089ac 369 .endif
RUBENTEC 0:b82abca089ac 370 .fnstart
RUBENTEC 0:b82abca089ac 371 .cantunwind
RUBENTEC 0:b82abca089ac 372
RUBENTEC 0:b82abca089ac 373 PUSH {R4,LR} /* Save EXC_RETURN */
RUBENTEC 0:b82abca089ac 374 BL rt_systick
RUBENTEC 0:b82abca089ac 375 B Sys_Switch
RUBENTEC 0:b82abca089ac 376
RUBENTEC 0:b82abca089ac 377 .fnend
RUBENTEC 0:b82abca089ac 378 .size SysTick_Handler, .-SysTick_Handler
RUBENTEC 0:b82abca089ac 379
RUBENTEC 0:b82abca089ac 380
RUBENTEC 0:b82abca089ac 381 /*-------------------------- OS_Tick_Handler --------------------------------*/
RUBENTEC 0:b82abca089ac 382
RUBENTEC 0:b82abca089ac 383 # void OS_Tick_Handler (void);
RUBENTEC 0:b82abca089ac 384
RUBENTEC 0:b82abca089ac 385 .thumb_func
RUBENTEC 0:b82abca089ac 386 .type OS_Tick_Handler, %function
RUBENTEC 0:b82abca089ac 387 .global OS_Tick_Handler
RUBENTEC 0:b82abca089ac 388 OS_Tick_Handler:
RUBENTEC 0:b82abca089ac 389 .fnstart
RUBENTEC 0:b82abca089ac 390 .cantunwind
RUBENTEC 0:b82abca089ac 391
RUBENTEC 0:b82abca089ac 392 PUSH {R4,LR} /* Save EXC_RETURN */
RUBENTEC 0:b82abca089ac 393 BL os_tick_irqack
RUBENTEC 0:b82abca089ac 394 BL rt_systick
RUBENTEC 0:b82abca089ac 395 B Sys_Switch
RUBENTEC 0:b82abca089ac 396
RUBENTEC 0:b82abca089ac 397 .fnend
RUBENTEC 0:b82abca089ac 398 .size OS_Tick_Handler, .-OS_Tick_Handler
RUBENTEC 0:b82abca089ac 399
RUBENTEC 0:b82abca089ac 400
RUBENTEC 0:b82abca089ac 401 .end
RUBENTEC 0:b82abca089ac 402
RUBENTEC 0:b82abca089ac 403 /*----------------------------------------------------------------------------
RUBENTEC 0:b82abca089ac 404 * end of file
RUBENTEC 0:b82abca089ac 405 *---------------------------------------------------------------------------*/