📄 os_core.s
字号:
.module os_core.c
.area lit(rom, con, rel)
_OSUnMapTbl::
.byte 0,0
.byte 1,0
.byte 2,0
.byte 1,0
.byte 3,0
.byte 1,0
.byte 2,0
.byte 1,0
.byte 4,0
.byte 1,0
.byte 2,0
.byte 1,0
.byte 3,0
.byte 1,0
.byte 2,0
.byte 1,0
.byte 5,0
.byte 1,0
.byte 2,0
.byte 1,0
.byte 3,0
.byte 1,0
.byte 2,0
.byte 1,0
.byte 4,0
.byte 1,0
.byte 2,0
.byte 1,0
.byte 3,0
.byte 1,0
.byte 2,0
.byte 1,0
.byte 6,0
.byte 1,0
.byte 2,0
.byte 1,0
.byte 3,0
.byte 1,0
.byte 2,0
.byte 1,0
.byte 4,0
.byte 1,0
.byte 2,0
.byte 1,0
.byte 3,0
.byte 1,0
.byte 2,0
.byte 1,0
.byte 5,0
.byte 1,0
.byte 2,0
.byte 1,0
.byte 3,0
.byte 1,0
.byte 2,0
.byte 1,0
.byte 4,0
.byte 1,0
.byte 2,0
.byte 1,0
.byte 3,0
.byte 1,0
.byte 2,0
.byte 1,0
.byte 7,0
.byte 1,0
.byte 2,0
.byte 1,0
.byte 3,0
.byte 1,0
.byte 2,0
.byte 1,0
.byte 4,0
.byte 1,0
.byte 2,0
.byte 1,0
.byte 3,0
.byte 1,0
.byte 2,0
.byte 1,0
.byte 5,0
.byte 1,0
.byte 2,0
.byte 1,0
.byte 3,0
.byte 1,0
.byte 2,0
.byte 1,0
.byte 4,0
.byte 1,0
.byte 2,0
.byte 1,0
.byte 3,0
.byte 1,0
.byte 2,0
.byte 1,0
.byte 6,0
.byte 1,0
.byte 2,0
.byte 1,0
.byte 3,0
.byte 1,0
.byte 2,0
.byte 1,0
.byte 4,0
.byte 1,0
.byte 2,0
.byte 1,0
.byte 3,0
.byte 1,0
.byte 2,0
.byte 1,0
.byte 5,0
.byte 1,0
.byte 2,0
.byte 1,0
.byte 3,0
.byte 1,0
.byte 2,0
.byte 1,0
.byte 4,0
.byte 1,0
.byte 2,0
.byte 1,0
.byte 3,0
.byte 1,0
.byte 2,0
.byte 1,0
.dbfile E:\ypt050912\XIAZAI\xinzai\UCOSAVR128\Source\os_core.c
.dbsym e OSUnMapTbl _OSUnMapTbl A[256:256]kc
.area text(rom, con, rel)
.dbfile E:\ypt050912\XIAZAI\xinzai\UCOSAVR128\Source\os_core.c
.dbfunc e OSInit _OSInit fV
.even
_OSInit::
.dbline -1
.dbline 224
; /*
; *********************************************************************************************************
; * uC/OS-II
; * The Real-Time Kernel
; * CORE FUNCTIONS
; *
; * (c) Copyright 1992-2005, Jean J. Labrosse, Weston, FL
; * All Rights Reserved
; *
; * File : OS_CORE.C
; * By : Jean J. Labrosse
; * Version : V2.80
; *********************************************************************************************************
; */
;
; #ifndef OS_MASTER_FILE
; #define OS_GLOBALS
; #include <ucos_ii.h>
; #endif
;
; /*
; *********************************************************************************************************
; * PRIORITY RESOLUTION TABLE
; *
; * Note: Index into table is bit pattern to resolve highest priority
; * Indexed value corresponds to highest priority bit position (i.e. 0..7)
; *********************************************************************************************************
; */
;
; INT8U const OSUnMapTbl[256] = {
; 0, 0, 1, 0, 2, 0, 1, 0, 3, 0, 1, 0, 2, 0, 1, 0, /* 0x00 to 0x0F */
; 4, 0, 1, 0, 2, 0, 1, 0, 3, 0, 1, 0, 2, 0, 1, 0, /* 0x10 to 0x1F */
; 5, 0, 1, 0, 2, 0, 1, 0, 3, 0, 1, 0, 2, 0, 1, 0, /* 0x20 to 0x2F */
; 4, 0, 1, 0, 2, 0, 1, 0, 3, 0, 1, 0, 2, 0, 1, 0, /* 0x30 to 0x3F */
; 6, 0, 1, 0, 2, 0, 1, 0, 3, 0, 1, 0, 2, 0, 1, 0, /* 0x40 to 0x4F */
; 4, 0, 1, 0, 2, 0, 1, 0, 3, 0, 1, 0, 2, 0, 1, 0, /* 0x50 to 0x5F */
; 5, 0, 1, 0, 2, 0, 1, 0, 3, 0, 1, 0, 2, 0, 1, 0, /* 0x60 to 0x6F */
; 4, 0, 1, 0, 2, 0, 1, 0, 3, 0, 1, 0, 2, 0, 1, 0, /* 0x70 to 0x7F */
; 7, 0, 1, 0, 2, 0, 1, 0, 3, 0, 1, 0, 2, 0, 1, 0, /* 0x80 to 0x8F */
; 4, 0, 1, 0, 2, 0, 1, 0, 3, 0, 1, 0, 2, 0, 1, 0, /* 0x90 to 0x9F */
; 5, 0, 1, 0, 2, 0, 1, 0, 3, 0, 1, 0, 2, 0, 1, 0, /* 0xA0 to 0xAF */
; 4, 0, 1, 0, 2, 0, 1, 0, 3, 0, 1, 0, 2, 0, 1, 0, /* 0xB0 to 0xBF */
; 6, 0, 1, 0, 2, 0, 1, 0, 3, 0, 1, 0, 2, 0, 1, 0, /* 0xC0 to 0xCF */
; 4, 0, 1, 0, 2, 0, 1, 0, 3, 0, 1, 0, 2, 0, 1, 0, /* 0xD0 to 0xDF */
; 5, 0, 1, 0, 2, 0, 1, 0, 3, 0, 1, 0, 2, 0, 1, 0, /* 0xE0 to 0xEF */
; 4, 0, 1, 0, 2, 0, 1, 0, 3, 0, 1, 0, 2, 0, 1, 0 /* 0xF0 to 0xFF */
; };
;
; /*$PAGE*/
; /*
; *********************************************************************************************************
; * FUNCTION PROTOTYPES
; *********************************************************************************************************
; */
; static void OS_InitEventList(void);
; static void OS_InitMisc(void);
; static void OS_InitRdyList(void);
; static void OS_InitTaskIdle(void);
; #if OS_TASK_STAT_EN > 0
; static void OS_InitTaskStat(void);
; #endif
; static void OS_InitTCBList(void);
;
; static void OS_SchedNew(void);
;
; /*$PAGE*/
; /*
; *********************************************************************************************************
; * GET THE NAME OF A SEMAPHORE, MUTEX, MAILBOX or QUEUE
; *
; * Description: This function is used to obtain the name assigned to a semaphore, mutex, mailbox or queue.
; *
; * Arguments : pevent is a pointer to the event group. 'pevent' can point either to a semaphore,
; * a mutex, a mailbox or a queue. Where this function is concerned, the actual
; * type is irrelevant.
; *
; * pname is a pointer to an ASCII string that will receive the name of the semaphore,
; * mutex, mailbox or queue. The string must be able to hold at least
; * OS_EVENT_NAME_SIZE characters.
; *
; * err is a pointer to an error code that can contain one of the following values:
; *
; * OS_NO_ERR if the name was copied to 'pname'
; * OS_ERR_EVENT_TYPE if 'pevent' is not pointing to the proper event
; * control block type.
; * OS_ERR_PNAME_NULL You passed a NULL pointer for 'pname'
; * OS_ERR_PEVENT_NULL if you passed a NULL pointer for 'pevent'
; *
; * Returns : The length of the string or 0 if the 'pevent' is a NULL pointer.
; *********************************************************************************************************
; */
;
; #if OS_EVENT_EN && (OS_EVENT_NAME_SIZE > 1)
; INT8U OSEventNameGet (OS_EVENT *pevent, INT8U *pname, INT8U *err)
; {
; INT8U len;
; #if OS_CRITICAL_METHOD == 3 /* Allocate storage for CPU status register */
; OS_CPU_SR cpu_sr = 0;
; #endif
;
;
;
; #if OS_ARG_CHK_EN > 0
; if (err == (INT8U *)0) { /* Validate 'err' */
; return (0);
; }
; if (pevent == (OS_EVENT *)0) { /* Is 'pevent' a NULL pointer? */
; *err = OS_ERR_PEVENT_NULL;
; return (0);
; }
; if (pname == (INT8U *)0) { /* Is 'pname' a NULL pointer? */
; *err = OS_ERR_PNAME_NULL;
; return (0);
; }
; #endif
; switch (pevent->OSEventType) {
; case OS_EVENT_TYPE_SEM:
; case OS_EVENT_TYPE_MUTEX:
; case OS_EVENT_TYPE_MBOX:
; case OS_EVENT_TYPE_Q:
; break;
;
; default:
; *err = OS_ERR_EVENT_TYPE;
; return (0);
; }
; OS_ENTER_CRITICAL();
; len = OS_StrCopy(pname, pevent->OSEventName); /* Copy name from OS_EVENT */
; OS_EXIT_CRITICAL();
; *err = OS_NO_ERR;
; return (len);
; }
; #endif
;
; /*$PAGE*/
; /*
; *********************************************************************************************************
; * ASSIGN A NAME TO A SEMAPHORE, MUTEX, MAILBOX or QUEUE
; *
; * Description: This function assigns a name to a semaphore, mutex, mailbox or queue.
; *
; * Arguments : pevent is a pointer to the event group. 'pevent' can point either to a semaphore,
; * a mutex, a mailbox or a queue. Where this function is concerned, it doesn't
; * matter the actual type.
; *
; * pname is a pointer to an ASCII string that will be used as the name of the semaphore,
; * mutex, mailbox or queue. The string must be able to hold at least
; * OS_EVENT_NAME_SIZE characters.
; *
; * err is a pointer to an error code that can contain one of the following values:
; *
; * OS_NO_ERR if the requested task is resumed
; * OS_ERR_EVENT_TYPE if 'pevent' is not pointing to the proper event
; * control block type.
; * OS_ERR_PNAME_NULL You passed a NULL pointer for 'pname'
; * OS_ERR_PEVENT_NULL if you passed a NULL pointer for 'pevent'
; *
; * Returns : None
; *********************************************************************************************************
; */
;
; #if OS_EVENT_EN && (OS_EVENT_NAME_SIZE > 1)
; void OSEventNameSet (OS_EVENT *pevent, INT8U *pname, INT8U *err)
; {
; INT8U len;
; #if OS_CRITICAL_METHOD == 3 /* Allocate storage for CPU status register */
; OS_CPU_SR cpu_sr = 0;
; #endif
;
;
;
; #if OS_ARG_CHK_EN > 0
; if (err == (INT8U *)0) { /* Validate 'err' */
; return;
; }
; if (pevent == (OS_EVENT *)0) { /* Is 'pevent' a NULL pointer? */
; *err = OS_ERR_PEVENT_NULL;
; return;
; }
; if (pname == (INT8U *)0) { /* Is 'pname' a NULL pointer? */
; *err = OS_ERR_PNAME_NULL;
; return;
; }
; #endif
; switch (pevent->OSEventType) {
; case OS_EVENT_TYPE_SEM:
; case OS_EVENT_TYPE_MUTEX:
; case OS_EVENT_TYPE_MBOX:
; case OS_EVENT_TYPE_Q:
; break;
;
; default:
; *err = OS_ERR_EVENT_TYPE;
; return;
; }
; OS_ENTER_CRITICAL();
; len = OS_StrLen(pname); /* Can we fit the string in the storage area? */
; if (len > (OS_EVENT_NAME_SIZE - 1)) { /* No */
; OS_EXIT_CRITICAL();
; *err = OS_ERR_EVENT_NAME_TOO_LONG;
; return;
; }
; (void)OS_StrCopy(pevent->OSEventName, pname); /* Yes, copy name to the event control block */
; OS_EXIT_CRITICAL();
; *err = OS_NO_ERR;
; }
; #endif
;
; /*$PAGE*/
; /*
; *********************************************************************************************************
; * INITIALIZATION
; *
; * Description: This function is used to initialize the internals of uC/OS-II and MUST be called prior to
; * creating any uC/OS-II object and, prior to calling OSStart().
; *
; * Arguments : none
; *
; * Returns : none
; *********************************************************************************************************
; */
;
; void OSInit (void)
; {
.dbline 226
; #if OS_VERSION >= 204
; OSInitHookBegin(); /* Call port specific initialization code */
xcall _OSInitHookBegin
.dbline 229
; #endif
;
; OS_InitMisc(); /* Initialize miscellaneous variables */
xcall _OS_InitMisc
.dbline 231
;
; OS_InitRdyList(); /* Initialize the Ready List */
xcall _OS_InitRdyList
.dbline 233
;
; OS_InitTCBList(); /* Initialize the free list of OS_TCBs */
xcall _OS_InitTCBList
.dbline 235
;
; OS_InitEventList(); /* Initialize the free list of OS_EVENTs */
xcall _OS_InitEventList
.dbline 249
;
; #if (OS_VERSION >= 251) && (OS_FLAG_EN > 0) && (OS_MAX_FLAGS > 0)
; OS_FlagInit(); /* Initialize the event flag structures */
; #endif
;
; #if (OS_MEM_EN > 0) && (OS_MAX_MEM_PART > 0)
; OS_MemInit(); /* Initialize the memory manager */
; #endif
;
; #if (OS_Q_EN > 0) && (OS_MAX_QS > 0)
; OS_QInit(); /* Initialize the message queue structures */
; #endif
;
; OS_InitTaskIdle(); /* Create the Idle Task */
xcall _OS_InitTaskIdle
.dbline 255
; #if OS_TASK_STAT_EN > 0
; OS_InitTaskStat(); /* Create the Statistic Task */
; #endif
;
; #if OS_VERSION >= 204
; OSInitHookEnd(); /* Call port specific init. code */
xcall _OSInitHookEnd
.dbline 259
; #endif
;
; #if OS_VERSION >= 270 && OS_DEBUG_EN > 0
; OSDebugInit();
xcall _OSDebugInit
.dbline -2
L1:
.dbline 0 ; func end
ret
.dbend
.dbfunc e OSIntEnter _OSIntEnter fV
.even
_OSIntEnter::
.dbline -1
.dbline 289
; #endif
; }
; /*$PAGE*/
; /*
; *********************************************************************************************************
; * ENTER ISR
; *
; * Description: This function is used to notify uC/OS-II that you are about to service an interrupt
; * service routine (ISR). This allows uC/OS-II to keep track of interrupt nesting and thus
; * only perform rescheduling at the last nested ISR.
; *
; * Arguments : none
; *
; * Returns : none
; *
; * Notes : 1) This function should be called ith interrupts already disabled
; * 2) Your ISR can directly increment OSIntNesting without calling this function because
; * OSIntNesting has been declared 'global'.
; * 3) You MUST still call OSIntExit() even though you increment OSIntNesting directly.
; * 4) You MUST invoke OSIntEnter() and OSIntExit() in pair. In other words, for every call
; * to OSIntEnter() at the beginning of the ISR you MUST have a call to OSIntExit() at the
; * end of the ISR.
; * 5) You are allowed to nest interrupts up to 255 levels deep.
; * 6) I removed the OS_ENTER_CRITICAL() and OS_EXIT_CRITICAL() around the increment because
; * OSIntEnter() is always called with interrupts disabled.
; *********************************************************************************************************
; */
;
; void OSIntEnter (void)
; {
.dbline 290
; if (OSRunning == TRUE) {
lds R24,_OSRunning
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -