| ;/*
|
| ; * FreeRTOS Kernel <DEVELOPMENT BRANCH>
|
| ; * Copyright (C) 2021 Amazon.com, Inc. or its affiliates. All Rights Reserved.
|
| ; *
|
| ; * SPDX-License-Identifier: MIT |
| ; * |
| ; * Permission is hereby granted, free of charge, to any person obtaining a copy of
|
| ; * this software and associated documentation files (the "Software"), to deal in
|
| ; * the Software without restriction, including without limitation the rights to
|
| ; * use, copy, modify, merge, publish, distribute, sublicense, and/or sell copies of
|
| ; * the Software, and to permit persons to whom the Software is furnished to do so,
|
| ; * subject to the following conditions:
|
| ; *
|
| ; * The above copyright notice and this permission notice shall be included in all
|
| ; * copies or substantial portions of the Software.
|
| ; *
|
| ; * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
|
| ; * IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, FITNESS
|
| ; * FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR
|
| ; * COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER
|
| ; * IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN
|
| ; * CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
|
| ; *
|
| ; * https://www.FreeRTOS.org
|
| ; * https://github.com/FreeRTOS
|
| ; *
|
| ; */
|
| ; Note: Select the correct include files for the device used by the application.
|
| #include "FreeRTOSConfig.h"
|
| ;------------------------------------------------------------------------------
|
|
|
| ; Functions used by scheduler
|
| ;------------------------------------------------------------------------------
|
| EXTERN vTaskSwitchContext
|
| EXTERN xTaskIncrementTick
|
|
|
| ; Variables used by scheduler
|
| ;------------------------------------------------------------------------------
|
| EXTERN pxCurrentTCB
|
| EXTERN usCriticalNesting
|
|
|
| ; Functions implemented in this file
|
| ;------------------------------------------------------------------------------
|
| PUBLIC vPortYield
|
| PUBLIC vPortStart
|
|
|
| ; Security ID definition
|
| ;------------------------------------------------------------------------------
|
| #define CG_SECURITY0 0FFH
|
| #define CG_SECURITY1 0FFH
|
| #define CG_SECURITY2 0FFH
|
| #define CG_SECURITY3 0FFH
|
| #define CG_SECURITY4 0FFH
|
| #define CG_SECURITY5 0FFH
|
| #define CG_SECURITY6 0FFH
|
| #define CG_SECURITY7 0FFH
|
| #define CG_SECURITY8 0FFH
|
| #define CG_SECURITY9 0FFH
|
|
|
| ; Tick ISR Prototype
|
| ;------------------------------------------------------------------------------
|
| PUBWEAK `??MD_INTTM0EQ0??INTVEC 640`
|
| PUBLIC MD_INTTM0EQ0
|
|
|
| MD_INTTM0EQ0 SYMBOL "MD_INTTM0EQ0"
|
| `??MD_INTTM0EQ0??INTVEC 640` SYMBOL "??INTVEC 640", MD_INTTM0EQ0
|
|
|
| ;------------------------------------------------------------------------------
|
| ; portSAVE_CONTEXT MACRO
|
| ; Saves the context of the remaining general purpose registers
|
| ; and the usCriticalNesting Value of the active Task onto the task stack
|
| ; saves stack pointer to the TCB
|
| ;------------------------------------------------------------------------------
|
| portSAVE_CONTEXT MACRO
|
| #if configDATA_MODE == 1 ; Using the Tiny data model
|
| prepare {r20,r21,r22,r23,r24,r25,r26,r27,r28,r29,r30},76,sp ; save general purpose registers
|
| sst.w r19,72[ep]
|
| sst.w r18,68[ep]
|
| sst.w r17,64[ep]
|
| sst.w r16,60[ep]
|
| sst.w r15,56[ep]
|
| sst.w r14,52[ep]
|
| sst.w r13,48[ep]
|
| sst.w r12,44[ep]
|
| sst.w r11,40[ep]
|
| sst.w r10,36[ep]
|
| sst.w r9,32[ep]
|
| sst.w r8,28[ep]
|
| sst.w r7,24[ep]
|
| sst.w r6,20[ep]
|
| sst.w r5,16[ep]
|
| sst.w r4,12[ep]
|
| #else ; Using the Small/Large data model
|
| prepare {r20,r21,r22,r23,r24,r26,r27,r28,r29,r30},72,sp ; save general purpose registers
|
| sst.w r19,68[ep]
|
| sst.w r18,64[ep]
|
| sst.w r17,60[ep]
|
| sst.w r16,56[ep]
|
| sst.w r15,52[ep]
|
| sst.w r14,48[ep]
|
| sst.w r13,44[ep]
|
| sst.w r12,40[ep]
|
| sst.w r11,36[ep]
|
| sst.w r10,32[ep]
|
| sst.w r9,28[ep]
|
| sst.w r8,24[ep]
|
| sst.w r7,20[ep]
|
| sst.w r6,16[ep]
|
| sst.w r5,12[ep]
|
| #endif /* configDATA_MODE */
|
| sst.w r2,8[ep]
|
| sst.w r1,4[ep]
|
| MOVHI hi1(usCriticalNesting),r0,r1 ; save usCriticalNesting value to stack
|
| ld.w lw1(usCriticalNesting)[r1],r2
|
| sst.w r2,0[ep]
|
| MOVHI hi1(pxCurrentTCB),r0,r1 ; save SP to top of current TCB
|
| ld.w lw1(pxCurrentTCB)[r1],r2
|
| st.w sp,0[r2]
|
| ENDM
|
| ;------------------------------------------------------------------------------
|
|
|
| ;------------------------------------------------------------------------------
|
| ; portRESTORE_CONTEXT MACRO
|
| ; Gets stack pointer from the current TCB
|
| ; Restores the context of the usCriticalNesting value and general purpose
|
| ; registers of the selected task from the task stack
|
| ;------------------------------------------------------------------------------
|
| portRESTORE_CONTEXT MACRO
|
| MOVHI hi1(pxCurrentTCB),r0,r1 ; get Stackpointer address
|
| ld.w lw1(pxCurrentTCB)[r1],sp
|
| MOV sp,r1
|
| ld.w 0[r1],sp ; load stackpointer
|
| MOV sp,ep ; set stack pointer to element pointer
|
| sld.w 0[ep],r1 ; load usCriticalNesting value from stack
|
| MOVHI hi1(usCriticalNesting),r0,r2
|
| st.w r1,lw1(usCriticalNesting)[r2]
|
| sld.w 4[ep],r1 ; restore general purpose registers
|
| sld.w 8[ep],r2
|
| #if configDATA_MODE == 1 ; Using Tiny data model
|
| sld.w 12[ep],r4
|
| sld.w 16[ep],r5
|
| sld.w 20[ep],r6
|
| sld.w 24[ep],r7
|
| sld.w 28[ep],r8
|
| sld.w 32[ep],r9
|
| sld.w 36[ep],r10
|
| sld.w 40[ep],r11
|
| sld.w 44[ep],r12
|
| sld.w 48[ep],r13
|
| sld.w 52[ep],r14
|
| sld.w 56[ep],r15
|
| sld.w 60[ep],r16
|
| sld.w 64[ep],r17
|
| sld.w 68[ep],r18
|
| sld.w 72[ep],r19
|
| dispose 76,{r20,r21,r22,r23,r24,r25,r26,r27,r28,r29,r30}
|
| #else ; Using Small/Large data model
|
| sld.w 12[ep],r5
|
| sld.w 16[ep],r6
|
| sld.w 20[ep],r7
|
| sld.w 24[ep],r8
|
| sld.w 28[ep],r9
|
| sld.w 32[ep],r10
|
| sld.w 36[ep],r11
|
| sld.w 40[ep],r12
|
| sld.w 44[ep],r13
|
| sld.w 48[ep],r14
|
| sld.w 52[ep],r15
|
| sld.w 56[ep],r16
|
| sld.w 60[ep],r17
|
| sld.w 64[ep],r18
|
| sld.w 68[ep],r19
|
| dispose 72,{r20,r21,r22,r23,r24,r26,r27,r28,r29,r30}
|
| #endif /* configDATA_MODE */
|
| ENDM
|
| ;------------------------------------------------------------------------------
|
|
|
| ;------------------------------------------------------------------------------
|
| ; Restore the context of the first task that is going to run.
|
| ;
|
| ; Input: NONE
|
| ;
|
| ; Call: CALL vPortStart
|
| ;
|
| ; Output: NONE
|
| ;------------------------------------------------------------------------------
|
| RSEG CODE:CODE
|
| vPortStart:
|
| portRESTORE_CONTEXT ; Restore the context of whichever task the ...
|
| ld.w 0[sp],lp
|
| ldsr lp,5 ; restore PSW
|
| DI
|
| ld.w 4[sp],lp ; restore LP
|
| ld.w 8[sp],lp ; restore LP
|
| ADD 0x0C,sp ; set SP to right position
|
| EI
|
| jmp [lp]
|
| ;------------------------------------------------------------------------------
|
|
|
| ;------------------------------------------------------------------------------
|
| ; Port Yield function to check for a Task switch in the cooperative and
|
| ; preemptive mode
|
| ;
|
| ; Input: NONE
|
| ;
|
| ; Call: CALL vPortYield
|
| ;
|
| ; Output: NONE
|
| ;------------------------------------------------------------------------------
|
|
|
| RSEG CODE:CODE
|
| vPortYield:
|
|
|
| add -0x0C,sp ; prepare stack to save necessary values
|
| st.w lp,8[sp] ; store LP to stack
|
| stsr 0,r31
|
| st.w lp,4[sp] ; store EIPC to stack
|
| stsr 1,lp
|
| st.w lp,0[sp] ; store EIPSW to stack
|
| portSAVE_CONTEXT ; Save the context of the current task.
|
| jarl vTaskSwitchContext,lp ; Call the scheduler.
|
| portRESTORE_CONTEXT ; Restore the context of whichever task the ...
|
| ; ... scheduler decided should run.
|
| ld.w 0[sp],lp ; restore EIPSW from stack
|
| ldsr lp,1
|
| ld.w 4[sp],lp ; restore EIPC from stack
|
| ldsr lp,0
|
| ld.w 8[sp],lp ; restore LP from stack
|
| add 0x0C,sp ; set SP to right position
|
|
|
| RETI
|
|
|
| ;------------------------------------------------------------------------------
|
|
|
| ;------------------------------------------------------------------------------
|
| ; Perform the necessary steps of the Tick Count Increment and Task Switch
|
| ; depending on the chosen kernel configuration
|
| ;
|
| ; Input: NONE
|
| ;
|
| ; Call: ISR
|
| ;
|
| ; Output: NONE
|
| ;------------------------------------------------------------------------------
|
| #if configUSE_PREEMPTION == 1 ; use preemptive kernel mode
|
|
|
| MD_INTTM0EQ0:
|
|
|
| add -0x0C,sp ; prepare stack to save necessary values
|
| st.w lp,8[sp] ; store LP to stack
|
| stsr 0,r31
|
| st.w lp,4[sp] ; store EIPC to stack
|
| stsr 1,lp
|
| st.w lp,0[sp] ; store EIPSW to stack
|
| portSAVE_CONTEXT ; Save the context of the current task.
|
| jarl xTaskIncrementTick,lp ; Call the timer tick function.
|
| jarl vTaskSwitchContext,lp ; Call the scheduler.
|
| portRESTORE_CONTEXT ; Restore the context of whichever task the ...
|
| ; ... scheduler decided should run.
|
| ld.w 0[sp],lp ; restore EIPSW from stack
|
| ldsr lp,1
|
| ld.w 4[sp],lp ; restore EIPC from stack
|
| ldsr lp,0
|
| ld.w 8[sp],lp ; restore LP from stack
|
| add 0x0C,sp ; set SP to right position
|
|
|
| RETI
|
| ;------------------------------------------------------------------------------
|
| #else ; use cooperative kernel mode
|
|
|
| MD_INTTM0EQ0:
|
| prepare {lp,ep},8,sp
|
| sst.w r1,4[ep]
|
| sst.w r5,0[ep]
|
| jarl xTaskIncrementTick,lp ; Call the timer tick function.
|
| sld.w 0[ep],r5
|
| sld.w 4[ep],r1
|
| dispose 8,{lp,ep}
|
| RETI
|
| #endif /* configUSE_PREEMPTION */
|
|
|
| ;------------------------------------------------------------------------------
|
| COMMON INTVEC:CODE:ROOT(2)
|
| ORG 640
|
| `??MD_INTTM0EQ0??INTVEC 640`:
|
| JR MD_INTTM0EQ0
|
|
|
| RSEG NEAR_ID:CONST:SORT:NOROOT(2)
|
| `?<Initializer for usCriticalNesting>`:
|
| DW 10
|
|
|
| COMMON INTVEC:CODE:ROOT(2)
|
| ORG 40H
|
| `??vPortYield??INTVEC 40`:
|
| JR vPortYield
|
|
|
| ;------------------------------------------------------------------------------
|
| ; set microcontroller security ID
|
|
|
| COMMON INTVEC:CODE:ROOT(2)
|
| ORG 70H
|
| `SECUID`:
|
| DB CG_SECURITY0
|
| DB CG_SECURITY1
|
| DB CG_SECURITY2
|
| DB CG_SECURITY3
|
| DB CG_SECURITY4
|
| DB CG_SECURITY5
|
| DB CG_SECURITY6
|
| DB CG_SECURITY7
|
| DB CG_SECURITY8
|
| DB CG_SECURITY9
|
|
|
|
|
| END
|
|
|