電子牛:我自己最近作的:uCOS-II的移植代碼 for 8051 [絕對原著]！！！

時間：2005-05-15 05:00:00

關(guān)鍵字： FOR UCOS-II 代碼電子

手機(jī)看文章

掃描二維碼
隨時隨地手機(jī)看文章

[導(dǎo)讀]電子牛:我自己最近作的:uCOS-II的移植代碼 for 8051 [絕對原著]?。?！

移植說明：

我沒有移植uCOS前，再網(wǎng)上下了一些案例可是大部分都不能直接運(yùn)行，而且有好多還都有錯誤。

還發(fā)現(xiàn)很多"移植者"是忠實的操洗者，并且還操錯了。這個移植代碼是我領(lǐng)會不少代碼的長短根據(jù)自己的經(jīng)驗編制，絕對原著!!!因為有好多與大多數(shù)移植代碼不同之處，故帖出來共享，希望能對將要移植uCOS的人以啟發(fā)和幫助。

由于我個人時間不多，所以沒有寫什么移植的"前因后果"

但：
移植的詳細(xì)細(xì)節(jié)在程序中的注釋部分已經(jīng)非常詳盡了，這里就不多說了。
如果那位大蝦，能更有好的建議，請跟我聯(lián)系，不勝感激！

也可以跟我索要全部移植代碼，我將給你一個keil工程，你只需電擊一下編譯按扭，在軟件仿真運(yùn)行即可在串口1窗口里看到uCOS-II的風(fēng)采!(不需任何編程,當(dāng)然除了你以后要添加應(yīng)用任務(wù))

注意不要將本移植代碼應(yīng)用于商業(yè)!!!

如果那位大蝦，能更有好的建議，請跟我聯(lián)系，不勝感激！

我的聯(lián)系方式:

QQ: 75011221 呢稱:電子牛
EMAIL: niuyimail@126.com

OS_CPU_C.C

/*
********************************************************************************
*************************
*                                        INITIALIZE A TASK'S STACK
*
* Description: This function is called by either OSTaskCreate() or
OSTaskCreateExt() to initialize the
*              stack frame of the task being created. This function is highly
processor specific.
*
* Arguments : task          is a pointer to the task code
*
*              os_pdata         is a pointer to a user supplied data area that
will be passed to the task
*                            when the task first executes.
*
*              ptos          is a pointer to the top of stack. It is assumed
that 'ptos' points to
*                            a 'free' entry on the task stack. If
OS_STK_GROWTH is set to 1 then
*                            'ptos' will contain the HIGHEST valid address of
the stack. Similarly, if
*                            OS_STK_GROWTH is set to 0, the 'ptos' will
contains the LOWEST valid address
*                            of the stack.
*
*              opt           specifies options that can be used to alter the
behavior of OSTaskStkInit().
*                            (see uCOS_II.H for OS_TASK_OPT_???).
*
* Returns    : Always returns the location of the new top-of-stack' once the
processor registers have
*              been placed on the stack in the proper order.
*
* Note(s)    : Interrupts are enabled when your task starts executing. You can
change this by setting the
*              PSW to 0x0002 instead. In this case, interrupts would be
disabled upon task startup. The
*              application code would be responsible for enabling interrupts at
the beginning of the task
*              code. You will need to modify OSTaskIdle() and OSTaskStat() so
that they enable
*              interrupts. Failure to do this will make your system crash!
********************************************************************************
*************************
*/
/*
at89c55wd PDL(sp form LOW to HIGH)：        (堆棧指針?biāo)傅臈ｍ敂?shù)據(jù)為有效數(shù)
據(jù))
                            裝入堆棧指
針ptos到stk

                stk-->        入棧：task底高
                    (高內(nèi)存)
                入    ||        入棧：ACC
                棧    ||        入棧：B
                順    ||        入棧：DPH
    //暫時忽略第二指針
                序    ||         入棧：DPL
                 | /    |     入棧：PSW
                 |        |     入棧：R7-
R4
                 |______|    入棧：os_pdata(R3,R2,R1)用寄存
器傳遞os_pdata
                            入棧：R0
                        (底內(nèi)存)

            //                入棧：
DPS??        //雙數(shù)據(jù)指針選擇寄存器??
            //                入棧：PC
自己應(yīng)該參照編譯器定義入棧/出棧順序，寫出來備以后查閱
*/
OS_STK *OSTaskStkInit (void (*task)(void *pd)LG_REENTRANT, void *os_pdata,
OS_STK *ptos, INT16U opt) LG_REENTRANT
{
    //INT16U *stk;
    OS_STK    *stk;

    opt    = opt;                           /* 'opt' is not used, prevent
warning                      */
    stk    = (OS_STK *)ptos;                /* Load stack
pointer                                      */

            //裝入堆棧指針ptos到stk

    *stk = 0;
    //入棧：R0
    stk               -= sizeof(void *);
    *(void **)stk   = (void *)os_pdata;        //用寄存器傳遞
os_pdata
    *--stk = 4;
        //入棧：R4-R7
    *--stk = 5;
    *--stk = 6;
    *--stk = 7;

    *--stk = PSW;
    //入棧：PSW
    *--stk = 'L';
    //入棧：DPL
    *--stk = 'H';
    //入棧：DPH        //暫時忽略第二指針
    *--stk = 'B';
    //入棧：B
    *--stk = 'A';
    //入棧：ACC

*--stk = ((INT16U)task & 0xff00) >> 8; //保存任務(wù)地址
*--stk = (INT16U)task & 0x00ff;

    *--stk = 15;
    //入棧個數(shù)

            //END
    return ((OS_STK *)stk);
}

/*$PAGE*/
/*
********************************************************************************
*************************
* INITIALIZE A TASK'S STACK FOR FLOATING POINT EMULATION
*
********************************************************************************
*************************
*/

/*$PAGE*/
//void OSTaskStkInit_FPE_x86 (OS_STK **pptos, OS_STK **ppbos, INT32U *psize)
//{
//}

/*$PAGE*/
/*
********************************************************************************
*************************
*                                           TASK SWITCH HOOK
*
* Description: This function is called when a task switch is performed. This
allows you to perform other
*              operations during a context switch.
*
* Arguments : none
*
* Note(s)    : 1) Interrupts are disabled during this call.
*              2) It is assumed that the global pointer 'OSTCBHighRdy' points
to the TCB of the task that
*                 will be 'switched in' (i.e. the highest priority task)
and, 'OSTCBCur' points to the
*                 task being switched out (i.e. the preempted task).
********************************************************************************
*************************
*/
#if OS_CPU_HOOKS_EN > 0
void OSTaskSwHook (void) LG_REENTRANT
{
}
#endif

/*
********************************************************************************
*************************
*                                           OSTCBInit() HOOK
*
* Description: This function is called by OS_TCBInit() after setting up most of
the TCB.
*
* Arguments : ptcb    is a pointer to the TCB of the task being created.
*
* Note(s)    : 1) Interrupts may or may not be ENABLED during this call.
********************************************************************************
*************************
*/
#if OS_CPU_HOOKS_EN > 0 && OS_VERSION > 203
void OSTCBInitHook (OS_TCB *ptcb) LG_REENTRANT
{
    ptcb = ptcb;                                           /* Prevent Compiler
warning                 */
}
#endif

/*
********************************************************************************
*************************
* TICK HOOK
*
* Description: This function is called every tick.
*
* Arguments : none
*
* Note(s) : 1) Interrupts may or may not be ENABLED during this call.
********************************************************************************
*************************
*/
#if OS_CPU_HOOKS_EN > 0
void OSTimeTickHook (void) LG_REENTRANT
{
}
#endif

/*
********************************************************************************
*************************
*
                中斷服務(wù)程序外掛
*        NOTE : 注意:所有中斷外掛都在臨界區(qū)之外,用戶可以自行控制進(jìn)/退
臨界區(qū)
********************************************************************************
*************************
*/
#if OS_ISR_T1_EN > 0
void    OSISR_T1HOOK (void) LG_REENTRANT
{

/* 請在這里輸入中斷服務(wù)程序
*/

}
#endif

#if OS_ISR_INT0_EN > 0
void OSISR_INT0HOOK (void) LG_REENTRANT
{

/* 請在這里輸入中斷服務(wù)程序
*/

}
#endif

#if OS_ISR_INT1_EN > 0
void OSISR_INT1HOOK (void) LG_REENTRANT
{

/* 請在這里輸入中斷服務(wù)程序
*/

}
#endif

#if OS_ISR_S0_EN > 0
void OSISR_S0HOOK (void) LG_REENTRANT
{

/* 請在這里輸入中斷服務(wù)程序
*/

}
#endif

----------------

[dvnews_page=OS_CPU_A.ASM之的中斷管理部分]

;*******************************************************************************
*************************
;                                               uC/OS-II
;                                         The Real-Time Kernel
;
;                          (c) Copyright 1992-2002, Jean J. Labrosse, Weston, FL
;                                          All Rights Reserved
;
;
;                                       at89c55wd Specific code
;                                          LARGE MEMORY MODEL
;
;                                           keil C/C++ V7.2
;                                       (at89c55wd Compatible Target)
;
; File         : OS_CPU_A.ASM
; By           : Jean J. Labrosse
; Port by      : 牛毅    2005-04-25->2005-04-28
    QQ:75011221    niuyimail@126.com
;        修補(bǔ) :  2005-05-02-01:30  (增加了中斷管理和臨界區(qū)宏)
;        修補(bǔ) :  2005-05-16-13:00  (修補(bǔ)_CopySPtoC_XBP的漏洞, 有標(biāo)記
處%%%%????%%%%%%)
;*******************************************************************************
*************************
#include    "OS_CFG.H"

            NAME    OS_CPU_A

;*******************************************************************************
*************************
;                                      要使用的外部函數(shù)和公共數(shù)據(jù)
;*******************************************************************************
*************************
            EXTRN CODE  (_?OSIntExit)
            EXTRN CODE  (_?OSTimeTick)
            EXTRN CODE  (_?OSTaskSwHook)

IF    OS_ISR_T1_EN <> 0
        EXTRN CODE    (_?OSISR_T1HOOK)
ENDIF
IF    OS_ISR_INT0_EN <> 0
        EXTRN CODE    (_?OSISR_INT0HOOK)
ENDIF
IF    OS_ISR_INT1_EN <> 0
        EXTRN CODE    (_?OSISR_INT1HOOK)
ENDIF
IF    OS_ISR_S0_EN <> 0
        EXTRN CODE    (_?OSISR_S0HOOK)
ENDIF

        EXTRN DATA    (?C_XBP)
;DT?C_XBP    SEGMENT    DATA
;        RSEG    DT?C_XBP
;?C_XBP:
;C_XBP:
;    DS    1
        ?STACK    SEGMENT IDATA
        RSEG    ?STACK
        ;?STACK:
        Stack:
        DS    40

            EXTRN BIT     (OSRunning)
            EXTRN XDATA (OSIntNesting)
;            EXTRN XDATA (OSTickDOSCtr)
            EXTRN XDATA (OSPrioHighRdy)
            EXTRN XDATA (OSPrioCur)
        EXTRN XDATA (OSTCBCur)
            EXTRN XDATA (OSTCBHighRdy)

;*******************************************************************************
*************************
;                                               MACRO DEFINE
;*******************************************************************************
*************************
PUSHALL    MACRO
    ;PUSH    PC
    PUSH    ACC
    PUSH    B
    PUSH    DPH
    PUSH    DPL
    PUSH    PSW
    IRP    REG,
    MOV    A,    REG
    PUSH    ACC
    ENDM
    ENDM

POPALL     MACRO
    IRP    REG,
    POP    ACC
    MOV    REG,    A
    ENDM
    POP    PSW
    POP    DPL
    POP    DPH
    POP    B
    POP    ACC
    ;RET/RETI
    ENDM

OS_ENTER_CRITICAL    MACRO
    MOV    B,IE                ;因為所有程序沒有使用
B寄存器,所以使用了B寄存器作為IE暫存
    CLR    EA
    ENDM
OS_EXIT_CRITICAL    MACRO
    MOV    IE,B                ;因為所有程序沒有使用
B寄存器,所以使用了B寄存器作為IE暫存
    ENDM
;*******************************************************************************
*************************
;                                            供外部使用的函數(shù)
;*******************************************************************************
*************************
             PUBLIC    _?OSTickISR
             PUBLIC     _?OSStartHighRdy
             PUBLIC     _?OSCtxSw
             PUBLIC     _?OSIntCtxSw
/*$PAGE*/
;*******************************************************************************
*************************
;                                    函數(shù)體段
;*******************************************************************************
*************************
;*******************************************************************************
**************************
;                        用戶中斷程序區(qū)        之    定時器中斷
1 OSISR_T1()
;*******************************************************************************
**************************
IF OS_ISR_T1_EN <> 0
        CSEG    AT     001BH        ;設(shè)置T0中斷向量
        LJMP    _OSISR_T1

    ?PR?_OSISR_T1?OS_CPU_A             SEGMENT CODE
    RSEG    ?PR?_OSISR_T1?OS_CPU_A
_OSISR_T1:
    OS_ENTER_CRITICAL
    ;(1)保存處理器寄存器  先PUSH到SP在COPY到?C_XBP
    PUSHALL
    LCALL    _CopySPtoC_XBP            ;COPY SP 的內(nèi)容到?
C_XBP

    ;(2)記憶中斷的嵌套層OSIntNesting++    進(jìn)入中斷
    ;(3) if (OSIntNesting == 1)
    ;    OSTCBCur->OSTCBStkPtr <= ?C_XBP
    LCALL    _Enter_INT
    OS_EXIT_CRITICAL

    ;(4)調(diào)用中斷服務(wù)外掛
    LCALL    _?OSISR_T1HOOK            ;在這里進(jìn)行中斷服務(wù)

    OS_ENTER_CRITICAL
    ;(5) Call OSTimeTick();
    LCALL    _?OSTimeTick

    ;(6) Call OSIntExit();
    LCALL    _?OSIntExit

    ;(7) 恢復(fù)處理器寄存器            ;沒有高優(yōu)先級任務(wù)在就
緒隊列中
    ;LCALL    _ComCtxSw2
    LCALL    _CopyC_XBPtoSP
    POPALL

    OS_EXIT_CRITICAL
    RETI
ENDIF
;*******************************************************************************
**************************
;                        用戶中斷程序區(qū)        之    外部中斷0
OSISR_INT0()
;*******************************************************************************
**************************
IF OS_ISR_INT0_EN <> 0
        CSEG    AT     0003H        ;設(shè)置T0中斷向量
        LJMP    _OSISR_INT0

    ?PR?_OSISR_INT0?OS_CPU_A             SEGMENT CODE
    RSEG    ?PR?_OSISR_INT0?OS_CPU_A
_OSISR_INT0:
    OS_ENTER_CRITICAL
    ;(1)保存處理器寄存器  先PUSH到SP在COPY到?C_XBP
    PUSHALL
    LCALL    _CopySPtoC_XBP            ;COPY SP 的內(nèi)容到?
C_XBP

    ;(2)記憶中斷的嵌套層OSIntNesting++    進(jìn)入中斷
    ;(3) if (OSIntNesting == 1)
    ;    OSTCBCur->OSTCBStkPtr <= ?C_XBP
    LCALL    _Enter_INT
    OS_EXIT_CRITICAL

    ;(4)調(diào)用中斷服務(wù)外掛
    LCALL    _?OSISR_INT0HOOK            ;在這里進(jìn)行中斷服務(wù)

    OS_ENTER_CRITICAL
    ;(5) Call OSTimeTick();
    LCALL    _?OSTimeTick

    ;(6) Call OSIntExit();
    LCALL    _?OSIntExit

    ;(7) 恢復(fù)處理器寄存器        ;沒有高優(yōu)先級任務(wù)在就緒隊列中
    ;LCALL    _ComCtxSw2
    LCALL    _CopyC_XBPtoSP
    POPALL
    OS_EXIT_CRITICAL
    RETI
ENDIF
;*******************************************************************************
**************************
;                        用戶中斷程序區(qū)        之    外部中斷1
OSISR_INT1()
;*******************************************************************************
**************************
IF OS_ISR_INT1_EN <> 0
        CSEG    AT     0013H        ;設(shè)置T0中斷向量
        LJMP    _OSISR_INT1

    ?PR?_OSISR_INT1?OS_CPU_A             SEGMENT CODE
    RSEG    ?PR?_OSISR_INT1?OS_CPU_A
_OSISR_INT1:
    OS_ENTER_CRITICAL
    ;(1)保存處理器寄存器  先PUSH到SP在COPY到?C_XBP
    PUSHALL
    LCALL    _CopySPtoC_XBP            ;COPY SP 的內(nèi)容到?
C_XBP

    ;(2)記憶中斷的嵌套層OSIntNesting++    進(jìn)入中斷
    ;(3) if (OSIntNesting == 1)
    ;    OSTCBCur->OSTCBStkPtr <= ?C_XBP
    LCALL    _Enter_INT
    OS_EXIT_CRITICAL

    ;(4)調(diào)用中斷服務(wù)外掛
    LCALL    _?OSISR_INT1HOOK            ;在這里進(jìn)行中斷服務(wù)

    OS_ENTER_CRITICAL
    ;(5) Call OSTimeTick();
    LCALL    _?OSTimeTick

    ;(6) Call OSIntExit();
    LCALL    _?OSIntExit

    ;(7) 恢復(fù)處理器寄存器        ;沒有高優(yōu)先級任務(wù)在就緒隊列中
    ;LCALL    _ComCtxSw2
    LCALL    _CopyC_XBPtoSP
    POPALL
    OS_EXIT_CRITICAL
    RETI
ENDIF
;*******************************************************************************
**************************
;                        用戶中斷程序區(qū)        之    串口中斷0
OSISR_S0()
;*******************************************************************************
**************************
IF OS_ISR_S0_EN <> 0
        CSEG    AT     0023H        ;設(shè)置T0中斷向量
        LJMP    _OSISR_S0

    ?PR?_OSISR_S0?OS_CPU_A             SEGMENT CODE
    RSEG    ?PR?_OSISR_S0?OS_CPU_A
_OSISR_S0:
    OS_ENTER_CRITICAL
    ;(1)保存處理器寄存器  先PUSH到SP在COPY到?C_XBP
    PUSHALL
    LCALL    _CopySPtoC_XBP            ;COPY SP 的內(nèi)容到?
C_XBP

    ;(2)記憶中斷的嵌套層OSIntNesting++    進(jìn)入中斷
    ;(3) if (OSIntNesting == 1)
    ;    OSTCBCur->OSTCBStkPtr <= ?C_XBP
    LCALL    _Enter_INT
    OS_EXIT_CRITICAL

    ;(4)調(diào)用中斷服務(wù)外掛
    LCALL    _?OSISR_S0HOOK            ;在這里進(jìn)行中斷服務(wù)

    OS_ENTER_CRITICAL
    ;(5) Call OSTimeTick();
    LCALL    _?OSTimeTick

    ;(6) Call OSIntExit();
    LCALL    _?OSIntExit

    ;(7) 恢復(fù)處理器寄存器        ;沒有高優(yōu)先級任務(wù)在就緒隊列中
    ;LCALL    _ComCtxSw2
    LCALL    _CopyC_XBPtoSP
    POPALL

    OS_EXIT_CRITICAL
    RETI
ENDIF

[dvnews_page=OS_CPU_A.ASM之的內(nèi)核代碼部分1]

;*******************************************************************************
**************************
;                                          START MULTITASKING
;                                       void OSStartHighRdy(void) LG_REENTRANT
;出棧后就意味著啟動了第一個任務(wù)
; The stack frame is assumed to look as follows:
;
;            出    /            出棧：task
底高         (高內(nèi)存)
;            棧    ||            出棧：ACC
;            順    ||            出棧：B
;            序    ||            出棧：DPH
    //暫時忽略第二指針
;             |    ||    |        出棧：DPL
;             |         |        出棧：PSW
;             |______________|        出棧：R7-R4
;                            出棧：
os_pdata(R3,R2,R1)用寄存器傳遞os_pdata
;            OSTCBHighRdy->OSTCBStkPtr -->    出棧：R0
    (底內(nèi)存)
;
; Note : OSStartHighRdy() MUST:
;           a) Call OSTaskSwHook() then,
;           b) Set OSRunning to TRUE,
;           c) Switch to the highest priority task.
;*******************************************************************************
**************************
    ?PR?_?OSStartHighRdy?OS_CPU_A      SEGMENT CODE
                        ;第3個問號表示重入函
數(shù)
    RSEG    ?PR?_?OSStartHighRdy?OS_CPU_A    ;函數(shù)體段

_?OSStartHighRdy:
    USING    0
    ;OS_ENTER_CRITICAL
    LCALL     _?OSTaskSwHook            ;調(diào)用OSTaskSwHook();
    SETB     OSRunning            ;OSRunning= TRUE;
    ;切換到最高優(yōu)先級的任務(wù)
    JMP    CtxSw                ;MOV     ?C_XBP,0

;*******************************************************************************
**************************
;                                PERFORM A CONTEXT SWITCH (From task level)
;                                           void OSCtxSw(void)
;
; Note(s): 1) Upon entry,
;             OSTCBCur     points to the OS_TCB of the task to suspend
;             OSTCBHighRdy points to the OS_TCB of the task to resume
;
;          2) The stack frame of the task to suspend looks as follows:
;
;                 SP -> OFFSET  of task to suspend    (Low memory)
;                       SEGMENT of task to suspend
;                       PSW     of task to suspend    (High memory)
;
;          3) The stack frame of the task to resume looks as follows:
;
;        出    /    用RET       出棧：task底高地址     (高內(nèi)存)
;        棧    ||            出棧：ACC
;        順    ||            出棧：B
;        序    ||            出棧：DPH
    //暫時忽略第二指針
;         |    ||    |        出棧：DPL
;         |         |        出棧：PSW
;         |______________|        出棧：R0
;                        出棧：os_pdata
(R1,R2,R3)用寄存器傳遞os_pdata
;        OSTCBHighRdy->OSTCBStkPtr -->    出棧：R4-R7
    (底內(nèi)存)
;                                               Flags to load in
PSW             (High memory)
;任務(wù)級切換：
;1:PUSHALL
;2:?C_BXP<=(SP)
;3:OSTCBCur->OSTCBStkPtr<=?C_BXP
;4:   ...
;5:?C_BXP<=OSTCBHighRdy->OSTCBStkPtr
;6:(SP)<=?C_BXP
;7:POPALL
;8:RET
;*******************************************************************************
**************************
    ?PR?_?OSCtxSw?OS_CPU_A             SEGMENT CODE
    RSEG    ?PR?_?OSCtxSw?OS_CPU_A
_?OSCtxSw:
    USING    0
    ;OS_ENTER_CRITICAL
    ;(1)保存處理器的寄存器
    PUSHALL

    ;(2)拷貝SP(系統(tǒng))堆棧中的內(nèi)容到?C_XBP，        SP    滿向上
        ;然后清空它(即MOV SP,#?STACK-1)            ?C_XBP    滿向下
    LCALL    _CopySPtoC_XBP            ;COPY SP 的內(nèi)容到?
C_XBP

    ;(3)在當(dāng)前任務(wù)的任務(wù)控制塊中保存當(dāng)前任務(wù)(舊任務(wù))的堆棧指針
        ;OSTCBCur->OSTCBStkPtr=?C_XBP
    MOV     DPH,#HIGH(OSTCBCur)
    MOV     DPL, #LOW(OSTCBCur)

    INC    DPTR                ;指針是3字節(jié)的
把我害死了
    MOVX    A,@DPTR
    MOV    R1,A
    INC    DPTR
    MOVX    A,@DPTR
    MOV    DPH,R1
    MOV    DPL,A

    INC    DPTR                ;指針是3字節(jié)的
把我害死了
    MOV    A,?C_XBP
    MOVX    @DPTR,A
    INC    DPTR
    MOV    A,?C_XBP+1
    MOVX    @DPTR,A
    IntCtxSw:
    ;(4)調(diào)用OSTaskSwHook();
    ;(5)OSTCBCur    = OSTCBHighRdy;
           ;(6)OSPrioCur    = OSPrioHighRdy;
        LCALL    _ComCtxSw1

    ;(7)得到將要重新開始運(yùn)行的任務(wù)(新任務(wù))的堆棧指針
    ;?C_XBP    = OSTCBHighRdy->OSTCBStkPtr;(0x0217)
    ;(8)拷貝原任務(wù)(新任務(wù))中的?C_XBP到SP(系統(tǒng))堆棧中    SP    滿向上
        ;然后清空它(即?C_XBP中的原堆棧內(nèi)容)            ?C_XBP
    滿向下
    CtxSw:
        LCALL    _ComCtxSw2
    LCALL    _CopyC_XBPtoSP

           ;(9)從新任務(wù)堆棧中恢復(fù)處理器所有寄存器的值
    POPALL
    ;OS_EXIT_CRITICAL
    ;(10)執(zhí)行返回指令
    SETB     EA            ;強(qiáng)行開中斷!!!!!!
    RET
/*$PAGE*/
;*******************************************************************************
**************************
;                                PERFORM A CONTEXT SWITCH (From an ISR)
;                                        void OSIntCtxSw(void)
;    ;中斷級切換:在OSInExit()中已判斷了有高優(yōu)先級的任務(wù)在就緒隊列中,所以直接切
換到高優(yōu)先級任務(wù)
;*******************************************************************************
**************************

    ?PR?_?OSIntCtxSw?OS_CPU_A             SEGMENT CODE
    RSEG    ?PR?_?OSIntCtxSw?OS_CPU_A
_?OSIntCtxSw:
    USING    0
    ;OS_ENTER_CRITICAL
    ACALL    _IntRETI
    JMP    IntCtxSw
_IntRETI:
    RETI
;*******************************************************************************
**************************
;                                            HANDLE TICK ISR
;*******************************************************************************
**************************
        CSEG    AT     000BH        ;設(shè)置T0中斷向量
        LJMP    _?OSTickISR

    ?PR?_?OSTickISR?OS_CPU_A             SEGMENT CODE
    RSEG    ?PR?_?OSTickISR?OS_CPU_A
_?OSTickISR:
    USING    0
    CLR    EA
    ;(1)保存處理器寄存器  先PUSH到SP在COPY到?C_XBP  OSTCBHighRdy
    PUSHALL
    LCALL    _CopySPtoC_XBP            ;COPY SP 的內(nèi)容到?
C_XBP

    ;(2)記憶中斷的嵌套層OSIntNesting++    進(jìn)入中斷
    ;(3) if (OSIntNesting == 1)
    ;    OSTCBCur->OSTCBStkPtr <= ?C_XBP
    LCALL    _Enter_INT

    ;(4)Clear inter
    CLR    TR0                ;TR0;清中斷
    ;(5)[TH0,TL0]<= New Value
    MOV    TH0,#3CH            ;TH0=0x3ch;
    MOV    TL0,#0B0H            ;TL0=0x0b0h;
    SETB     TR0
    ;MOV    P1,0

    ;(6) Call OSTimeTick();
    LCALL    _?OSTimeTick

    ;(7) Call OSIntExit();
    LCALL    _?OSIntExit

    ;(8) 恢復(fù)處理器寄存器        ;沒有高優(yōu)先級任務(wù)在就緒隊列中
    ;LCALL    _ComCtxSw2
    LCALL    _CopyC_XBPtoSP
    POPALL
    SETB    EA
    ;(9) 執(zhí)行中斷返回指令
    RETI

;*******************************************************************************
***************************
;                    內(nèi)部函數(shù) : ComCtxSw1()
;    ;(4)調(diào)用OSTaskSwHook();
;    ;(5)OSTCBCur    = OSTCBHighRdy;
;          ;(6)OSPrioCur    = OSPrioHighRdy;
;*******************************************************************************
***************************
    ?PR?_ComCtxSw1?OS_CPU_A             SEGMENT CODE
    RSEG    ?PR?_ComCtxSw1?OS_CPU_A
_ComCtxSw1:
    ;調(diào)用OSTaskSwHook();
        LCALL    _?OSTaskSwHook            ;中斷是關(guān)著的

    ;OSTCBCur    = OSTCBHighRdy;
    MOV     DPH,#HIGH(OSTCBHighRdy)
    MOV     DPL, #LOW(OSTCBHighRdy)
     MOVX     A,@DPTR
     MOV      R3,A
     INC      DPTR
     MOVX     A,@DPTR
     MOV      R2,A
     INC      DPTR
     MOVX     A,@DPTR
     MOV      R1,A

    MOV     DPH,#HIGH(OSTCBCur)
    MOV     DPL, #LOW(OSTCBCur)
    MOV      A,R3
     MOVX     @DPTR,A
     INC      DPTR
     MOV      A,R2
     MOVX     @DPTR,A
     INC      DPTR
     MOV      A,R1
     MOVX     @DPTR,A

           ;OSPrioCur    = OSPrioHighRdy;
    MOV     DPH,#HIGH(OSPrioHighRdy)
    MOV     DPL, #LOW(OSPrioHighRdy)
    MOVX     A,@DPTR
    MOV      R7,A

    MOV     DPH,#HIGH(OSPrioCur)
    MOV     DPL, #LOW(OSPrioCur)
    MOV      A,R7
     MOVX     @DPTR,A

    RET
;*******************************************************************************
***************************
;                    內(nèi)部函數(shù) : ComCtxSw2()
;    ;(7)得到將要重新開始運(yùn)行的任務(wù)(新任務(wù))的堆棧指針
;    ;?C_XBP    = OSTCBHighRdy->OSTCBStkPtr;(0x0217)
;*******************************************************************************
***************************
    ?PR?_ComCtxSw2?OS_CPU_A             SEGMENT CODE
    RSEG    ?PR?_ComCtxSw2?OS_CPU_A
_ComCtxSw2:

    POP    ACC                ;因為函數(shù)調(diào)用而調(diào)整
SP,并保存到R1,R2
    MOV    R1,ACC
    POP    ACC
    MOV    R2,ACC

    ;得到將要重新開始運(yùn)行的任務(wù)(新任務(wù))的堆棧指針
    ;C_XBP    = OSTCBHighRdy->OSTCBStkPtr;(0x0217)
    MOV     DPH,#HIGH(OSTCBCur)        ;結(jié)構(gòu):OSTCBHighRdy-
>OSTCBStkPtr{[][H][L]}->?C_XBP
    MOV     DPL, #LOW(OSTCBCur)
    INC    DPTR                ;跳過指針類型編號
    MOVX    A,@DPTR
    INC     DPTR
    MOV    R3,A                ;讀出高字節(jié)      為
了得到新任務(wù)的任務(wù)棧指針
    MOVX    A,@DPTR                ;讀出底字節(jié)
    MOV    DPH,R3
    MOV    DPL,A

    INC    DPTR
    MOVX    A,@DPTR
    MOV    ?C_XBP,A
    INC    DPTR
    MOVX    A,@DPTR
    MOV    ?C_XBP+1,A

    MOV    ACC,R2                ;從R1,R2中恢復(fù)SP
    PUSH    ACC
    MOV    ACC,R1
    PUSH    ACC

    RET

[dvnews_page=OS_CPU_A.ASM之的內(nèi)核代碼部分2]

;*******************************************************************************
***************************
;                    內(nèi)部函數(shù) : CopyC_XBPtoSP()
;    ?C_XBP => SP
;    ;拷貝原任務(wù)(新任務(wù))中的?C_XBP到SP(系統(tǒng))堆棧中    SP    滿向上
;       ;然后清空它(即?C_XBP中的原堆棧內(nèi)容)        ?C_XBP    滿向下
;*******************************************************************************
***************************
    ?PR?_CopyC_XBPtoSP?OS_CPU_A             SEGMENT CODE
    RSEG    ?PR?_CopyC_XBPtoSP?OS_CPU_A
_CopyC_XBPtoSP:
                        ;OSTCBHighRdy
    POP    ACC                ;因為函數(shù)調(diào)用而調(diào)整
SP,并保存到R1,R2
    MOV    R1,ACC
    POP    ACC
    MOV    R2,ACC

MOV DPH,?C_XBP
MOV DPL,?C_XBP+1

    MOVX    A,@DPTR
    MOV    R7,A                ;讀出SP棧元素的總數(shù)
    MOV    SP,#?STACK-1
    COPYCXBP_TO_SP:                ;拷貝?C_XBP的內(nèi)容到SP中
    INC    DPTR
    MOVX    A,@DPTR
    PUSH    ACC
    DJNZ    R7,COPYCXBP_TO_SP

    INC    DPTR

    MOV    A,DPH
    MOV    ?C_XBP,A
    MOV    A,DPL
    MOV    ?C_XBP+1,A

    MOV    ACC,R2                ;從R1,R2中恢復(fù)SP
    PUSH    ACC
    MOV    ACC,R1
    PUSH    ACC

    RET
;*******************************************************************************
***************************
;                    內(nèi)部函數(shù) : CopySPtoC_XBP()
;    ?C_XBP <= SP
;    ;(2)拷貝SP(系統(tǒng))堆棧中的內(nèi)容到?C_XBP，      SP            滿向上
;       ;然后清空它(即MOV SP,#?STACK-1)          ?C_XBP    滿向下
;
;*******************************************************************************
***************************
    ?PR?_CopySPtoC_XBP?OS_CPU_A             SEGMENT CODE
    RSEG    ?PR?_CopySPtoC_XBP?OS_CPU_A
_CopySPtoC_XBP:                    ;OSTCBHighRdy

    POP    ACC                ;因為函數(shù)調(diào)用而調(diào)整
SP,并保存到R1,R2
    MOV    R1,ACC
    POP    ACC
    MOV    R2,ACC

MOV DPH,?C_XBP
MOV DPL,?C_XBP+1

    MOV     R7,#?STACK-1
    MOV    A,SP
    SUBB    A,R7                ;因為SP-(?STACK-1)不
可能為零所以不用判斷0
    MOV    R7,A
    MOV    R6,A
    ;INC    DPTR;%%%%????%%%%%%        ;不用防止!!!    以前的注釋:防止
多減一個單元
    COPYSP_TO_CXBP:                ;拷貝SP的內(nèi)容到?C_XBP中
        MOV    A,DPL
    SUBB    A,0
    JNZ    NOZERO
    DEC    DPH
    NOZERO:
        DEC    DPL
    POP    ACC
    MOVX    @DPTR,A
    DJNZ    R7,COPYSP_TO_CXBP

        MOV    A,DPL
    SUBB    A,0
    JNZ    NOZERO2
    DEC    DPH
    NOZERO2:
        DEC    DPL
    MOV    A,R6
    MOVX    @DPTR,A                ;?C_XBP棧頂保存的是
SP棧元素的總數(shù)

    MOV    A,DPH                ;?C_XBP是滿向下不用
減了
    MOV    ?C_XBP,A
    MOV    A,DPL
    MOV    ?C_XBP+1,A

    MOV    ACC,R2                ;從R1,R2中恢復(fù)SP
    PUSH    ACC
    MOV    ACC,R1
    PUSH    ACC

    RET
;*******************************************************************************
***************************
;                        內(nèi)部函數(shù) : Enter_INT
()
;
;    ;(2)記憶中斷的嵌套層OSIntNesting++    進(jìn)入中斷
;    ;(3) if (OSIntNesting == 1)
;    ;    OSTCBCur->OSTCBStkPtr <= ?C_XBP
;*******************************************************************************
***************************
    ?PR?_Enter_INT?OS_CPU_A             SEGMENT CODE
    RSEG    ?PR?_Enter_INT?OS_CPU_A
_Enter_INT:

    ;(2)記憶中斷的嵌套層OSIntNesting++    進(jìn)入中斷
    MOV    DPH,#HIGH(OSIntNesting)
    MOV    DPL, #LOW(OSIntNesting)
    MOVX    A,@DPTR
    INC    A
    MOVX    @DPTR,A

    ;(3) if (OSIntNesting == 1)
    ;    OSTCBCur->OSTCBStkPtr <= C_XBP
    DEC    A
    JNZ    NOONE

MOV DPH,#HIGH(OSTCBCur)
MOV DPL, #LOW(OSTCBCur)

    INC    DPTR                ;指針是3字節(jié)的
把我害死了
    MOVX    A,@DPTR
    MOV    R1,A
    INC    DPTR
    MOVX    A,@DPTR
    MOV    DPH,R1
    MOV    DPL,A

    INC    DPTR                ;指針是3字節(jié)的
把我害死了
    MOV    A,?C_XBP
    MOVX    @DPTR,A
    INC    DPTR
    MOV    A,?C_XBP+1
    MOVX    @DPTR,A
    NOONE:

        RET
            END
;*******************************************************************************
***************************
;                    文件結(jié)束
;*******************************************************************************
***************************