/* ------------------------------------------------------------------------ *//*  Hyper Operating System V4  μITRON4.0慌屯 Real-Time OS                  *//*    プロセッサ藐據步コンポ〖ネント (泣惟 H8/300H 脫)                      *//*    コンテキスト擴告                                                      *//*                                                                          *//*                                  Copyright (C) 1998-2002 by Project HOS  *//*                                  http://sourceforge.jp/projects/hos/     *//* ------------------------------------------------------------------------ */				.h8300h				.text				.align 2				.global	_hospac_dis_int		/* 充り哈み敦賄 */				.global	_hospac_ena_int		/* 充り哈み釣材 */				.global	_hospac_cre_ctx_asm	/* 悸乖コンテキストの侯喇 */				.global	_hospac_swi_ctx		/* 悸乖コンテキストの磊侖 */				.global	_hospac_set_tex		/* 毋嘲借妄悸乖肋年 *//************************************************  充り哈み敦賄  void hospac_dis_int(void)*************************************************/_hospac_dis_int:				orc	#0xc0, ccr			/* 充り哈みの敦賄 */				rts/************************************************  充り哈み釣材  void hospac_ena_int(void)*************************************************/_hospac_ena_int:				mov.b	@_kernel_h83_imsk, r0l				ldc.b	r0l, ccr		/* 充り哈みの釣材 */				rts/************************************************  悸乖コンテキストエントリ〖アドレス*************************************************/ctx_entry:					mov.l	er4, er0		/* 悸乖箕パラメ〖タを媽辦苞眶に肋年 */				jmp		@er5			/* 悸乖アドレスにジャンプ *//************************************************  悸乖コンテキストの侯喇  void hospac_cre_ctx_asm(			T_HOSPAC_CTXINF *pk_ctxinf,			侯喇するコンテキスト			VP              sp,					スタックポインタ			void            (*task)(VP_INT),	悸乖アドレス			VP_INT          exinf				悸乖箕パラメ〖タ		)*************************************************/_hospac_cre_ctx_asm:				mov.l   #ctx_entry, er3	/* 悸乖エントリ〖ポイントの肋年 */				mov.l   er3, @-er1				mov.l   @(4,er7), er3	/* 悸乖箕パラメ〖タの艱り叫し */				mov.l   er3, @-er1		/* 悸乖箕パラメ〖タ呈羌 (er4の鑼閏尸) */				mov.l   er2, @-er1		/* 悸乖ドレスを呈羌 (er5 の鑼閏尸) */				sub.l   #4, er1			/* er6の鑼閏尸 */				mov.l   er1, @(0, er0)	/* スタックポインタの呈羌 */				rts/************************************************  悸乖コンテキストの磊侖  void hospac_swi_ctx(			T_HOSPAC_CTXINF *pk_pre_ctxinf,		附哼のコンテキストの瘦賂黎			T_HOSPAC_CTXINF *pk_nxt_ctxinf		磊り侖えるコンテキスト		)*************************************************/_hospac_swi_ctx:				push.l	er4				push.l	er5				push.l	er6				mov.l	er7,@(0, er0)	/* スタックポインタ瘦賂 */				mov.l	@(0, er1), er7	/* スタックポインタ牲耽 */				pop.l	er6				pop.l	er5				pop.l	er4				rts				.end/* -------------------------------------------------------------------------*//*  Copyright (C) 1998-2002 by Project HOS                                  *//* -------------------------------------------------------------------------*/