os_cpu_c.c

uCOS-II的移植代码 for 8051 [绝对原著]

    PUSH    PSW
    IRP    REG,    <R7, R6, R5, R4, R3, R2, R1, R0>
    MOV    A,    REG
    PUSH    ACC
    ENDM
    ENDM

POPALL     MACRO
    IRP    REG,    <R0, R1, R2, R3, R4, R5, R6, R7>
    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
;*******************************************************************************
*************************
;                                            供外部使用的函数
;*******************************************************************************
*************************
             PUBLIC    _?OSTickISR
             PUBLIC     _?OSStartHighRdy
             PUBLIC     _?OSCtxSw
             PUBLIC     _?OSIntCtxSw
/*$PAGE*/
;*******************************************************************************
*************************
;                                    函数体段
;*******************************************************************************
*************************
;*******************************************************************************
**************************
;                        用户中断程序区        之    定时器中断
1 OSISR_T1()
;*******************************************************************************
**************************
IF OS_ISR_T1_EN <> 0
        CSEG    AT     001BH        ;设置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 的内容到?
C_XBP

    ;(2)记忆中断的嵌套层OSIntNesting++    进入中断
    ;(3) if (OSIntNesting == 1)
    ;    OSTCBCur->OSTCBStkPtr <= ?C_XBP
    LCALL    _Enter_INT
    OS_EXIT_CRITICAL    

    ;(4)调用中断服务外挂
    LCALL    _?OSISR_T1HOOK            ;在这里进行中断服务

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

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

    ;(7) 恢复处理器寄存器            ;没有高优先级任务在就
绪队列中
    ;LCALL    _ComCtxSw2
    LCALL    _CopyC_XBPtoSP
    POPALL
    
    OS_EXIT_CRITICAL
    RETI
ENDIF
;*******************************************************************************
**************************
;                        用户中断程序区        之    外部中断0 
OSISR_INT0()
;*******************************************************************************
**************************
IF OS_ISR_INT0_EN <> 0
        CSEG    AT     0003H        ;设置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 的内容到?
C_XBP

    ;(2)记忆中断的嵌套层OSIntNesting++    进入中断
    ;(3) if (OSIntNesting == 1)
    ;    OSTCBCur->OSTCBStkPtr <= ?C_XBP
    LCALL    _Enter_INT    
    OS_EXIT_CRITICAL
    
    ;(4)调用中断服务外挂
    LCALL    _?OSISR_INT0HOOK            ;在这里进行中断服务

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

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

    ;(7) 恢复处理器寄存器        ;没有高优先级任务在就绪队列中
    ;LCALL    _ComCtxSw2
    LCALL    _CopyC_XBPtoSP
    POPALL
    OS_EXIT_CRITICAL
    RETI
ENDIF
;*******************************************************************************
**************************
;                        用户中断程序区        之    外部中断1 
OSISR_INT1()
;*******************************************************************************
**************************
IF OS_ISR_INT1_EN <> 0
        CSEG    AT     0013H        ;设置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 的内容到?
C_XBP

    ;(2)记忆中断的嵌套层OSIntNesting++    进入中断
    ;(3) if (OSIntNesting == 1)
    ;    OSTCBCur->OSTCBStkPtr <= ?C_XBP
    LCALL    _Enter_INT
    OS_EXIT_CRITICAL
    
    ;(4)调用中断服务外挂
    LCALL    _?OSISR_INT1HOOK            ;在这里进行中断服务

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

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

    ;(7) 恢复处理器寄存器        ;没有高优先级任务在就绪队列中
    ;LCALL    _ComCtxSw2
    LCALL    _CopyC_XBPtoSP
    POPALL
    OS_EXIT_CRITICAL
    RETI
ENDIF
;*******************************************************************************
**************************
;                        用户中断程序区        之    串口中断0 
OSISR_S0()
;*******************************************************************************
**************************
IF OS_ISR_S0_EN <> 0
        CSEG    AT     0023H        ;设置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 的内容到?
C_XBP

    ;(2)记忆中断的嵌套层OSIntNesting++    进入中断
    ;(3) if (OSIntNesting == 1)
    ;    OSTCBCur->OSTCBStkPtr <= ?C_XBP
    LCALL    _Enter_INT
    OS_EXIT_CRITICAL
    
    ;(4)调用中断服务外挂
    LCALL    _?OSISR_S0HOOK            ;在这里进行中断服务

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

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

    ;(7) 恢复处理器寄存器        ;没有高优先级任务在就绪队列中
    ;LCALL    _ComCtxSw2
    LCALL    _CopyC_XBPtoSP
    POPALL

    OS_EXIT_CRITICAL
    RETI
ENDIF


;*******************************************************************************
**************************
;                                          START MULTITASKING
;                                       void OSStartHighRdy(void) LG_REENTRANT
;出栈后就意味着启动了第一个任务
; The stack frame is assumed to look as follows:
;
;            出    /\            出栈：task
底\高         (高内存)
;            栈    ||            出栈：ACC
;            顺    ||            出栈：B
;            序    ||            出栈：DPH    
    //暂时忽略第二指针
;             |    ||    |        出栈：DPL
;             |         |        出栈：PSW
;             |______________|        出栈：R7-R4
;                            出栈：
os_pdata(R3,R2,R1)用寄存器传递os_pdata
;            OSTCBHighRdy->OSTCBStkPtr -->    出栈：R0    
    (底内存)
;
; 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个问号表示重入函
数 
    RSEG    ?PR?_?OSStartHighRdy?OS_CPU_A    ;函数体段

_?OSStartHighRdy:
    USING    0
    ;OS_ENTER_CRITICAL
    LCALL     _?OSTaskSwHook            ;调用OSTaskSwHook();
    SETB     OSRunning            ;OSRunning= TRUE;
    ;切换到最高优先级的任务
    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底\高地址     (高内存)
;        栈    ||            出栈：ACC
;        顺    ||            出栈：B
;        序    ||            出栈：DPH    
    //暂时忽略第二指针
;         |    ||    |        出栈：DPL
;         |         |        出栈：PSW
;         |______________|        出栈：R0
;                        出栈：os_pdata
(R1,R2,R3)用寄存器传递os_pdata
;        OSTCBHighRdy->OSTCBStkPtr -->    出栈：R4-R7    
    (底内存)
;                                               Flags to load in 
PSW             (High memory)
;任务级切换：
;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(系统)堆栈中的内容到?C_XBP，        SP    满向上
        ;然后清空它(即MOV SP,#?STACK-1)            ?C_XBP    满向下
    LCALL    _CopySPtoC_XBP            ;COPY SP 的内容到?
C_XBP

    ;(3)在当前任务的任务控制块中保存当前任务(旧任务)的堆栈指针
        ;OSTCBCur->OSTCBStkPtr=?C_XBP
    MOV     DPH,#HIGH(OSTCBCur)
    MOV     DPL, #LOW(OSTCBCur)

    INC    DPTR                ;指针是3字节的
把我害死了
    MOVX    A,@DPTR
    MOV    R1,A
    INC    DPTR
    MOVX    A,@DPTR
    MOV    DPH,R1
    MOV    DPL,A
    
    INC    DPTR                ;指针是3字节的
把我害死了
    MOV    A,?C_XBP
    MOVX    @DPTR,A
    INC    DPTR
    MOV    A,?C_XBP+1
    MOVX    @DPTR,A
    IntCtxSw:
    ;(4)调用OSTaskSwHook();
    ;(5)OSTCBCur    = OSTCBHighRdy;
           ;(6)OSPrioCur    = OSPrioHighRdy;
        LCALL    _ComCtxSw1