Austin Blackstone / Mbed 2 deprecated client-lwip-lightswitch-demo-expanded

mbed client lightswitch demo

Dependencies:   mbed Socket lwip-eth lwip-sys lwip

Fork of mbed-client-classic-example-lwip by Austin Blackstone

mbed-rtos/rtx/TARGET_CORTEX_M/TARGET_M3/TOOLCHAIN_IAR/HAL_CM3.S@11:cada08fc8a70, 2016-06-09 (annotated)

Committer:
mbedAustin
Date:
Thu Jun 09 17:08:36 2016 +0000
Revision:
11:cada08fc8a70
Commit for public Consumption

Who changed what in which revision?

UserRevisionLine numberNew contents of line
mbedAustin 11:cada08fc8a70 1 /*----------------------------------------------------------------------------
mbedAustin 11:cada08fc8a70 2 * RL-ARM - RTX
mbedAustin 11:cada08fc8a70 3 *----------------------------------------------------------------------------
mbedAustin 11:cada08fc8a70 4 * Name: HAL_CM3.S
mbedAustin 11:cada08fc8a70 5 * Purpose: Hardware Abstraction Layer for Cortex-M3
mbedAustin 11:cada08fc8a70 6 * Rev.: V4.70
mbedAustin 11:cada08fc8a70 7 *----------------------------------------------------------------------------
mbedAustin 11:cada08fc8a70 8 *
mbedAustin 11:cada08fc8a70 9 * Copyright (c) 1999-2009 KEIL, 2009-2013 ARM Germany GmbH
mbedAustin 11:cada08fc8a70 10 * All rights reserved.
mbedAustin 11:cada08fc8a70 11 * Redistribution and use in source and binary forms, with or without
mbedAustin 11:cada08fc8a70 12 * modification, are permitted provided that the following conditions are met:
mbedAustin 11:cada08fc8a70 13 * - Redistributions of source code must retain the above copyright
mbedAustin 11:cada08fc8a70 14 * notice, this list of conditions and the following disclaimer.
mbedAustin 11:cada08fc8a70 15 * - Redistributions in binary form must reproduce the above copyright
mbedAustin 11:cada08fc8a70 16 * notice, this list of conditions and the following disclaimer in the
mbedAustin 11:cada08fc8a70 17 * documentation and/or other materials provided with the distribution.
mbedAustin 11:cada08fc8a70 18 * - Neither the name of ARM nor the names of its contributors may be used
mbedAustin 11:cada08fc8a70 19 * to endorse or promote products derived from this software without
mbedAustin 11:cada08fc8a70 20 * specific prior written permission.
mbedAustin 11:cada08fc8a70 21 *
mbedAustin 11:cada08fc8a70 22 * THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
mbedAustin 11:cada08fc8a70 23 * AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
mbedAustin 11:cada08fc8a70 24 * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
mbedAustin 11:cada08fc8a70 25 * ARE DISCLAIMED. IN NO EVENT SHALL COPYRIGHT HOLDERS AND CONTRIBUTORS BE
mbedAustin 11:cada08fc8a70 26 * LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
mbedAustin 11:cada08fc8a70 27 * CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
mbedAustin 11:cada08fc8a70 28 * SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
mbedAustin 11:cada08fc8a70 29 * INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
mbedAustin 11:cada08fc8a70 30 * CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
mbedAustin 11:cada08fc8a70 31 * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
mbedAustin 11:cada08fc8a70 32 * POSSIBILITY OF SUCH DAMAGE.
mbedAustin 11:cada08fc8a70 33 *---------------------------------------------------------------------------*/
mbedAustin 11:cada08fc8a70 34
mbedAustin 11:cada08fc8a70 35 NAME HAL_CM3.S
mbedAustin 11:cada08fc8a70 36
mbedAustin 11:cada08fc8a70 37 #define TCB_TSTACK 40
mbedAustin 11:cada08fc8a70 38
mbedAustin 11:cada08fc8a70 39 EXTERN os_flags
mbedAustin 11:cada08fc8a70 40 EXTERN os_tsk
mbedAustin 11:cada08fc8a70 41 EXTERN rt_alloc_box
mbedAustin 11:cada08fc8a70 42 EXTERN rt_free_box
mbedAustin 11:cada08fc8a70 43 EXTERN rt_stk_check
mbedAustin 11:cada08fc8a70 44 EXTERN rt_pop_req
mbedAustin 11:cada08fc8a70 45 EXTERN rt_systick
mbedAustin 11:cada08fc8a70 46 EXTERN os_tick_irqack
mbedAustin 11:cada08fc8a70 47 EXTERN SVC_Table
mbedAustin 11:cada08fc8a70 48 EXTERN SVC_Count
mbedAustin 11:cada08fc8a70 49
mbedAustin 11:cada08fc8a70 50 /*----------------------------------------------------------------------------
mbedAustin 11:cada08fc8a70 51 * Functions
mbedAustin 11:cada08fc8a70 52 *---------------------------------------------------------------------------*/
mbedAustin 11:cada08fc8a70 53
mbedAustin 11:cada08fc8a70 54 SECTION .text:CODE:NOROOT(2)
mbedAustin 11:cada08fc8a70 55 THUMB
mbedAustin 11:cada08fc8a70 56
mbedAustin 11:cada08fc8a70 57 /*--------------------------- rt_set_PSP ------------------------------------*/
mbedAustin 11:cada08fc8a70 58
mbedAustin 11:cada08fc8a70 59 ; void rt_set_PSP (U32 stack);
mbedAustin 11:cada08fc8a70 60
mbedAustin 11:cada08fc8a70 61 PUBLIC rt_set_PSP
mbedAustin 11:cada08fc8a70 62 rt_set_PSP:
mbedAustin 11:cada08fc8a70 63
mbedAustin 11:cada08fc8a70 64 MSR PSP,R0
mbedAustin 11:cada08fc8a70 65 BX LR
mbedAustin 11:cada08fc8a70 66
mbedAustin 11:cada08fc8a70 67
mbedAustin 11:cada08fc8a70 68 /*--------------------------- rt_get_PSP ------------------------------------*/
mbedAustin 11:cada08fc8a70 69
mbedAustin 11:cada08fc8a70 70 ; U32 rt_get_PSP (void);
mbedAustin 11:cada08fc8a70 71
mbedAustin 11:cada08fc8a70 72 PUBLIC rt_get_PSP
mbedAustin 11:cada08fc8a70 73 rt_get_PSP:
mbedAustin 11:cada08fc8a70 74
mbedAustin 11:cada08fc8a70 75 MRS R0,PSP
mbedAustin 11:cada08fc8a70 76 BX LR
mbedAustin 11:cada08fc8a70 77
mbedAustin 11:cada08fc8a70 78
mbedAustin 11:cada08fc8a70 79 /*--------------------------- os_set_env ------------------------------------*/
mbedAustin 11:cada08fc8a70 80
mbedAustin 11:cada08fc8a70 81 ; void os_set_env (void);
mbedAustin 11:cada08fc8a70 82 /* Switch to Unprivileged/Privileged Thread mode, use PSP. */
mbedAustin 11:cada08fc8a70 83
mbedAustin 11:cada08fc8a70 84 PUBLIC os_set_env
mbedAustin 11:cada08fc8a70 85 os_set_env:
mbedAustin 11:cada08fc8a70 86
mbedAustin 11:cada08fc8a70 87 MOV R0,SP /* PSP = MSP */
mbedAustin 11:cada08fc8a70 88 MSR PSP,R0
mbedAustin 11:cada08fc8a70 89 LDR R0,=os_flags
mbedAustin 11:cada08fc8a70 90 LDRB R0,[R0]
mbedAustin 11:cada08fc8a70 91 LSLS R0,#31
mbedAustin 11:cada08fc8a70 92 ITE NE
mbedAustin 11:cada08fc8a70 93 MOVNE R0,#0x02 /* Privileged Thread mode, use PSP */
mbedAustin 11:cada08fc8a70 94 MOVEQ R0,#0x03 /* Unprivileged Thread mode, use PSP */
mbedAustin 11:cada08fc8a70 95 MSR CONTROL,R0
mbedAustin 11:cada08fc8a70 96 BX LR
mbedAustin 11:cada08fc8a70 97
mbedAustin 11:cada08fc8a70 98
mbedAustin 11:cada08fc8a70 99 /*--------------------------- _alloc_box ------------------------------------*/
mbedAustin 11:cada08fc8a70 100
mbedAustin 11:cada08fc8a70 101 ; void *_alloc_box (void *box_mem);
mbedAustin 11:cada08fc8a70 102 /* Function wrapper for Unprivileged/Privileged mode. */
mbedAustin 11:cada08fc8a70 103
mbedAustin 11:cada08fc8a70 104 PUBLIC _alloc_box
mbedAustin 11:cada08fc8a70 105 _alloc_box:
mbedAustin 11:cada08fc8a70 106
mbedAustin 11:cada08fc8a70 107 LDR R12,=rt_alloc_box
mbedAustin 11:cada08fc8a70 108 MRS R3,IPSR
mbedAustin 11:cada08fc8a70 109 LSLS R3,#24
mbedAustin 11:cada08fc8a70 110 IT NE
mbedAustin 11:cada08fc8a70 111 BXNE R12
mbedAustin 11:cada08fc8a70 112 MRS R3,CONTROL
mbedAustin 11:cada08fc8a70 113 LSLS R3,#31
mbedAustin 11:cada08fc8a70 114 IT EQ
mbedAustin 11:cada08fc8a70 115 BXEQ R12
mbedAustin 11:cada08fc8a70 116 SVC 0
mbedAustin 11:cada08fc8a70 117 BX LR
mbedAustin 11:cada08fc8a70 118
mbedAustin 11:cada08fc8a70 119
mbedAustin 11:cada08fc8a70 120 /*--------------------------- _free_box -------------------------------------*/
mbedAustin 11:cada08fc8a70 121
mbedAustin 11:cada08fc8a70 122 ; int _free_box (void *box_mem, void *box);
mbedAustin 11:cada08fc8a70 123 /* Function wrapper for Unprivileged/Privileged mode. */
mbedAustin 11:cada08fc8a70 124
mbedAustin 11:cada08fc8a70 125 PUBLIC _free_box
mbedAustin 11:cada08fc8a70 126 _free_box:
mbedAustin 11:cada08fc8a70 127
mbedAustin 11:cada08fc8a70 128 LDR R12,=rt_free_box
mbedAustin 11:cada08fc8a70 129 MRS R3,IPSR
mbedAustin 11:cada08fc8a70 130 LSLS R3,#24
mbedAustin 11:cada08fc8a70 131 IT NE
mbedAustin 11:cada08fc8a70 132 BXNE R12
mbedAustin 11:cada08fc8a70 133 MRS R3,CONTROL
mbedAustin 11:cada08fc8a70 134 LSLS R3,#31
mbedAustin 11:cada08fc8a70 135 IT EQ
mbedAustin 11:cada08fc8a70 136 BXEQ R12
mbedAustin 11:cada08fc8a70 137 SVC 0
mbedAustin 11:cada08fc8a70 138 BX LR
mbedAustin 11:cada08fc8a70 139
mbedAustin 11:cada08fc8a70 140
mbedAustin 11:cada08fc8a70 141 /*-------------------------- SVC_Handler ------------------------------------*/
mbedAustin 11:cada08fc8a70 142
mbedAustin 11:cada08fc8a70 143 ; void SVC_Handler (void);
mbedAustin 11:cada08fc8a70 144
mbedAustin 11:cada08fc8a70 145 PUBLIC SVC_Handler
mbedAustin 11:cada08fc8a70 146 SVC_Handler:
mbedAustin 11:cada08fc8a70 147
mbedAustin 11:cada08fc8a70 148 MRS R0,PSP /* Read PSP */
mbedAustin 11:cada08fc8a70 149 LDR R1,[R0,#24] /* Read Saved PC from Stack */
mbedAustin 11:cada08fc8a70 150 LDRB R1,[R1,#-2] /* Load SVC Number */
mbedAustin 11:cada08fc8a70 151 CBNZ R1,SVC_User
mbedAustin 11:cada08fc8a70 152
mbedAustin 11:cada08fc8a70 153 LDM R0,{R0-R3,R12} /* Read R0-R3,R12 from stack */
mbedAustin 11:cada08fc8a70 154 BLX R12 /* Call SVC Function */
mbedAustin 11:cada08fc8a70 155
mbedAustin 11:cada08fc8a70 156 MRS R12,PSP /* Read PSP */
mbedAustin 11:cada08fc8a70 157 STM R12,{R0-R2} /* Store return values */
mbedAustin 11:cada08fc8a70 158
mbedAustin 11:cada08fc8a70 159 LDR R3,=os_tsk
mbedAustin 11:cada08fc8a70 160 LDM R3,{R1,R2} /* os_tsk.run, os_tsk.new */
mbedAustin 11:cada08fc8a70 161 CMP R1,R2
mbedAustin 11:cada08fc8a70 162 BEQ SVC_Exit /* no task switch */
mbedAustin 11:cada08fc8a70 163
mbedAustin 11:cada08fc8a70 164 CBZ R1,SVC_Next /* Runtask deleted? */
mbedAustin 11:cada08fc8a70 165 STMDB R12!,{R4-R11} /* Save Old context */
mbedAustin 11:cada08fc8a70 166 STR R12,[R1,#TCB_TSTACK] /* Update os_tsk.run->tsk_stack */
mbedAustin 11:cada08fc8a70 167
mbedAustin 11:cada08fc8a70 168 PUSH {R2,R3}
mbedAustin 11:cada08fc8a70 169 BL rt_stk_check /* Check for Stack overflow */
mbedAustin 11:cada08fc8a70 170 POP {R2,R3}
mbedAustin 11:cada08fc8a70 171
mbedAustin 11:cada08fc8a70 172 SVC_Next:
mbedAustin 11:cada08fc8a70 173 STR R2,[R3] /* os_tsk.run = os_tsk.new */
mbedAustin 11:cada08fc8a70 174
mbedAustin 11:cada08fc8a70 175 LDR R12,[R2,#TCB_TSTACK] /* os_tsk.new->tsk_stack */
mbedAustin 11:cada08fc8a70 176 LDMIA R12!,{R4-R11} /* Restore New Context */
mbedAustin 11:cada08fc8a70 177 MSR PSP,R12 /* Write PSP */
mbedAustin 11:cada08fc8a70 178
mbedAustin 11:cada08fc8a70 179 SVC_Exit:
mbedAustin 11:cada08fc8a70 180 MVN LR,#~0xFFFFFFFD /* set EXC_RETURN value */
mbedAustin 11:cada08fc8a70 181 BX LR
mbedAustin 11:cada08fc8a70 182
mbedAustin 11:cada08fc8a70 183 /*------------------- User SVC ------------------------------*/
mbedAustin 11:cada08fc8a70 184
mbedAustin 11:cada08fc8a70 185 SVC_User:
mbedAustin 11:cada08fc8a70 186 PUSH {R4,LR} /* Save Registers */
mbedAustin 11:cada08fc8a70 187 LDR R2,=SVC_Count
mbedAustin 11:cada08fc8a70 188 LDR R2,[R2]
mbedAustin 11:cada08fc8a70 189 CMP R1,R2
mbedAustin 11:cada08fc8a70 190 BHI SVC_Done /* Overflow */
mbedAustin 11:cada08fc8a70 191
mbedAustin 11:cada08fc8a70 192 LDR R4,=SVC_Table-4
mbedAustin 11:cada08fc8a70 193 LDR R4,[R4,R1,LSL #2] /* Load SVC Function Address */
mbedAustin 11:cada08fc8a70 194
mbedAustin 11:cada08fc8a70 195 LDM R0,{R0-R3,R12} /* Read R0-R3,R12 from stack */
mbedAustin 11:cada08fc8a70 196 BLX R4 /* Call SVC Function */
mbedAustin 11:cada08fc8a70 197
mbedAustin 11:cada08fc8a70 198 MRS R12,PSP
mbedAustin 11:cada08fc8a70 199 STM R12,{R0-R3} /* Function return values */
mbedAustin 11:cada08fc8a70 200 SVC_Done:
mbedAustin 11:cada08fc8a70 201 POP {R4,PC} /* RETI */
mbedAustin 11:cada08fc8a70 202
mbedAustin 11:cada08fc8a70 203
mbedAustin 11:cada08fc8a70 204 /*-------------------------- PendSV_Handler ---------------------------------*/
mbedAustin 11:cada08fc8a70 205
mbedAustin 11:cada08fc8a70 206 ; void PendSV_Handler (void);
mbedAustin 11:cada08fc8a70 207
mbedAustin 11:cada08fc8a70 208 PUBLIC PendSV_Handler
mbedAustin 11:cada08fc8a70 209 PendSV_Handler:
mbedAustin 11:cada08fc8a70 210
mbedAustin 11:cada08fc8a70 211 BL rt_pop_req
mbedAustin 11:cada08fc8a70 212
mbedAustin 11:cada08fc8a70 213 Sys_Switch:
mbedAustin 11:cada08fc8a70 214 LDR R3,=os_tsk
mbedAustin 11:cada08fc8a70 215 LDM R3,{R1,R2} /* os_tsk.run, os_tsk.new */
mbedAustin 11:cada08fc8a70 216 CMP R1,R2
mbedAustin 11:cada08fc8a70 217 BEQ Sys_Exit
mbedAustin 11:cada08fc8a70 218
mbedAustin 11:cada08fc8a70 219 MRS R12,PSP /* Read PSP */
mbedAustin 11:cada08fc8a70 220 STMDB R12!,{R4-R11} /* Save Old context */
mbedAustin 11:cada08fc8a70 221 STR R12,[R1,#TCB_TSTACK] /* Update os_tsk.run->tsk_stack */
mbedAustin 11:cada08fc8a70 222
mbedAustin 11:cada08fc8a70 223 PUSH {R2,R3}
mbedAustin 11:cada08fc8a70 224 BL rt_stk_check /* Check for Stack overflow */
mbedAustin 11:cada08fc8a70 225 POP {R2,R3}
mbedAustin 11:cada08fc8a70 226
mbedAustin 11:cada08fc8a70 227 STR R2,[R3] /* os_tsk.run = os_tsk.new */
mbedAustin 11:cada08fc8a70 228
mbedAustin 11:cada08fc8a70 229 LDR R12,[R2,#TCB_TSTACK] /* os_tsk.new->tsk_stack */
mbedAustin 11:cada08fc8a70 230 LDMIA R12!,{R4-R11} /* Restore New Context */
mbedAustin 11:cada08fc8a70 231 MSR PSP,R12 /* Write PSP */
mbedAustin 11:cada08fc8a70 232
mbedAustin 11:cada08fc8a70 233 Sys_Exit:
mbedAustin 11:cada08fc8a70 234 MVN LR,#~0xFFFFFFFD /* set EXC_RETURN value */
mbedAustin 11:cada08fc8a70 235 BX LR /* Return to Thread Mode */
mbedAustin 11:cada08fc8a70 236
mbedAustin 11:cada08fc8a70 237
mbedAustin 11:cada08fc8a70 238 /*-------------------------- SysTick_Handler --------------------------------*/
mbedAustin 11:cada08fc8a70 239
mbedAustin 11:cada08fc8a70 240 ; void SysTick_Handler (void);
mbedAustin 11:cada08fc8a70 241
mbedAustin 11:cada08fc8a70 242 PUBLIC SysTick_Handler
mbedAustin 11:cada08fc8a70 243 SysTick_Handler:
mbedAustin 11:cada08fc8a70 244
mbedAustin 11:cada08fc8a70 245 BL rt_systick
mbedAustin 11:cada08fc8a70 246 B Sys_Switch
mbedAustin 11:cada08fc8a70 247
mbedAustin 11:cada08fc8a70 248
mbedAustin 11:cada08fc8a70 249 /*-------------------------- OS_Tick_Handler --------------------------------*/
mbedAustin 11:cada08fc8a70 250
mbedAustin 11:cada08fc8a70 251 ; void OS_Tick_Handler (void);
mbedAustin 11:cada08fc8a70 252
mbedAustin 11:cada08fc8a70 253 PUBLIC OS_Tick_Handler
mbedAustin 11:cada08fc8a70 254 OS_Tick_Handler:
mbedAustin 11:cada08fc8a70 255
mbedAustin 11:cada08fc8a70 256 BL os_tick_irqack
mbedAustin 11:cada08fc8a70 257 BL rt_systick
mbedAustin 11:cada08fc8a70 258 B Sys_Switch
mbedAustin 11:cada08fc8a70 259
mbedAustin 11:cada08fc8a70 260
mbedAustin 11:cada08fc8a70 261 END
mbedAustin 11:cada08fc8a70 262
mbedAustin 11:cada08fc8a70 263 /*----------------------------------------------------------------------------
mbedAustin 11:cada08fc8a70 264 * end of file
mbedAustin 11:cada08fc8a70 265 *---------------------------------------------------------------------------*/