cpu_support.src

嵌入式系统开发 TOPPERS and JSP Kernel Release 1.3 TOPPERS = Toyohashi Open Platform for Embedded Real-Tim

 ;/*
 ;*  TOPPERS/JSP Kernel
 ;*      Toyohashi Open Platform for Embedded Real-Time Systems/
 ;*      Just Standard Profile Kernel
 ;*
 ;*  Copyright (C) 2000-2002 by Embedded and Real-Time Systems Laboratory
 ;*                              Toyohashi Univ. of Technology, JAPAN
 ;*  Copyright (C) 2001,2002 by Dep. of Computer Science and Engineering
 ;*                   Tomakomai National College of Technology, JAPAN
 ;*  Copyright (C) 2001,2002 by Industrial Technology Institute,
 ;*                              Miyagi Prefectural Government, JAPAN
 ;*
 ;*  惧淡螟侯涪荚は·Free Software Foundation によって给山されている
 ;*  GNU General Public License の Version 2 に淡揭されている掘凤か·笆
 ;*  布の(1)×(4)の掘凤を塔たす眷圭に嘎り·塑ソフトウェア∈塑ソフトウェ
 ;*  アを猖恃したものを崔むˉ笆布票じ∷を蝗脱ˇ剩澜ˇ猖恃ˇ浩芹邵∈笆布·
 ;*  网脱と钙ぶ∷することを痰浸で钓满するˉ
 ;*  (1) 塑ソフトウェアをソ〖スコ〖ドの妨で网脱する眷圭には·惧淡の螟侯
 ;*      涪山绩·この网脱掘凤および布淡の痰瘦沮惮年が·そのままの妨でソ〖
 ;*      スコ〖ド面に崔まれていることˉ
 ;*  (2) 塑ソフトウェアを浩网脱材墙なバイナリコ〖ド∈リロケ〖タブルオブ
 ;*      ジェクトファイルやライブラリなど∷の妨で网脱する眷圭には·网脱
 ;*      に燃うドキュメント∈网脱荚マニュアルなど∷に·惧淡の螟侯涪山绩·
 ;*      この网脱掘凤および布淡の痰瘦沮惮年を非很することˉ
 ;*  (3) 塑ソフトウェアを浩网脱稍材墙なバイナリコ〖ドの妨または怠达に寥
 ;*      み哈んだ妨で网脱する眷圭には·肌のいずれかの掘凤を塔たすことˉ
 ;*    (a) 网脱に燃うドキュメント∈网脱荚マニュアルなど∷に·惧淡の螟侯
 ;*        涪山绩·この网脱掘凤および布淡の痰瘦沮惮年を非很することˉ
 ;*    (b) 网脱の妨轮を·侍に年める数恕によって·惧淡螟侯涪荚に鼠桂する
 ;*        ことˉ
 ;*  (4) 塑ソフトウェアの网脱により木儡弄または粗儡弄に栏じるいかなる禄
 ;*      巢からも·惧淡螟侯涪荚を倘勒することˉ
 ;*
 ;*  塑ソフトウェアは·痰瘦沮で捏丁されているものであるˉ惧淡螟侯涪荚は·
 ;*  塑ソフトウェアに簇して·その努脱材墙拉も崔めて·いかなる瘦沮も乖わ
 ;*  ないˉまた·塑ソフトウェアの网脱により木儡弄または粗儡弄に栏じたい
 ;*  かなる禄巢に簇しても·その勒扦を砷わないˉ
 ;*
 ;*  @(#) $Id: cpu_support.src,v 1.2 2002/04/13 13:14:45 imai Exp $
 ;*/

;/*  泣惟姐赖Cコンパイラ脱アセンブラソ〖ス  */
        .CPU 2000A:24
	.SECTION P, CODE, ALIGN=2

_MACRO_ONLY: .DEFINE  ""

	.INCLUDE "sys_config_asm.h"
	.INCLUDE "cpu_config_asm.h"
	.INCLUDE "offset.h"
;/*  妥澄千(cpu_config_asm.hにて年盗すべきである。) */
_runtsk:		.DEFINE 	"__kernel_runtsk"
_call_texrtn		.DEFINE		"__kernel_call_texrtn"
_enadsp:		.DEFINE 	"__kernel_enadsp"
_task_intmask:		.DEFINE 	"__kernel_task_intmask"
_schedtsk:		.DEFINE 	"__kernel_schedtsk"
_exit_and_dispatch:	.DEFINE 	"__kernel_exit_and_dispatch"
_activate_r:	        .DEFINE		"__kernel_activate_r"
_dispatch: 		.DEFINE		"__kernel_dispatch"



;/*                                                                      */
;/*  タスクディスパッチャ                                                */
;/*                                                                      */
;/*    　_dispatch は、充哈み嘲ネストカウンタ = 0,充哈み敦贿觉轮         */
;/*    で钙び叫さなければならないˉ_exit_and_dispatch も·充哈みネスト   */
;/*    カウンタ = 0ˇ充哈み敦贿觉轮で钙び叫すのが付搂であるが·カ〖ネル  */
;/*    弹瓢箕に滦炳するため·充哈みネストカウンタ = 1で钙び叫した眷圭に  */
;/*    も滦炳しているˉ                                                  */

	.GLOBAL _dispatch
        .IMPORT _runtsk
_dispatch:
	push.l	er6			;/* er2×6を瘦赂 */
	push.l	er5
	push.l	er4
	push.l	er3
	push.l	er2
	mov.l	@_runtsk, er0		;/* er0 <- runtsk		*/
	mov.l	sp, @(TCB_sp, er0)	;/* タスクスタックポインタを瘦赂	*/
	mov.l	#dispatch_r, er1	;/* 悸乖浩倡戎孟			*/
	mov.l	er1, @(TCB_pc, er0)
	bra     dispatcher_1


;/* Relse1.2での恃构爬 */

        .IMPORT _call_texrtn
	.IMPORT _intnest
dispatch_r:
	pop.l	er2			;/* er2×6を牲傅 */
	pop.l	er3
	pop.l	er4
	pop.l	er5
	pop.l	er6
                              ;/* タスク毋嘲钓材觉轮のチェック */
        mov.l   @_runtsk, er0   ;/* er0