; --------------------------------------------------------------------------- ;  Hyper Operating System V4  μITRON4.0慌屯 Real-Time OS                     ;    プロセッサ藐據步コンポ〖ネント (泣惟 H8/300HN脫)                         ;    コンテキスト擴告                                                         ;                                                                             ;                                     Copyright (C) 1998-2002 by Project HOS  ;                                     http://sourceforge.jp/projects/hos/     ; --------------------------------------------------------------------------- 		.CPU     300HN		.EXPORT	_hospac_dis_int		; 充り哈み敦賄		.EXPORT	_hospac_ena_int		; 充り哈み釣材		.EXPORT	_hospac_cre_ctx_asm	; 悸乖コンテキストの侯喇		.EXPORT	_hospac_swi_ctx		; 悸乖コンテキストの磊侖		.IMPORT	_kernel_h83_imsk	; 充り哈みマスク		.SECTION  P, CODE, ALIGN=2; -----------------------------------------------;  充り哈み敦賄;  void hospac_dis_int(void); -----------------------------------------------_hospac_dis_int:		orc	#h'c0, 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	er2, er0	; 悸乖箕パラメ〖タを媽辦苞眶に肋年		jmp	@er3		; 悸乖アドレスにジャンプ; -----------------------------------------------;  悸乖コンテキストの侯喇;  void hospac_cre_ctx_asm(;	T_HOSPAC_CTXINF *pk_ctxinf,	/* 侯喇するコンテキスト */;	void            (*task)(VP_INT),/* 悸乖アドレス */;	VP              sp,		/* スタックポインタ */;	VP_INT          exinf		/* 悸乖箕パラメ〖タ */;	); -----------------------------------------------_hospac_cre_ctx_asm:		push.l	er2		mov.w	#ctx_entry, r2	; 悸乖エントリ〖ポイントの肋年		mov.w	r2, @-er1		mov.l	@(6, er7), er2	; 悸乖箕パラメ〖タの艱り叫し		mov.l	er2, @-er1	; 悸乖箕パラメ〖タ呈羌 (er2の鑼閏尸)		mov.w	e0, @-er1					; 悸乖ドレスを呈羌 (er3 の鑼閏尸)		sub.w	#14, r1		; er4×er6 までの鑼閏尸		mov.w	r1, @(0, er0)	; スタックポインタの呈羌		pop.l	er2		rts; -----------------------------------------------;  悸乖コンテキストの磊侖;  void hospac_swi_ctx(;	T_HOSPAC_CTXINF *pk_pre_ctxinf,	/* 附哼のコンテキストの瘦賂黎 */;	T_HOSPAC_CTXINF *pk_nxt_ctxinf	/* 磊り侖えるコンテキスト */;	); -----------------------------------------------_hospac_swi_ctx:		push.l	er2		push.l	er3		push.l	er4		push.l	er5		push.l	er6		mov.w   r7,@(0, er0)   ; スタックポインタ瘦賂		mov.w   e0,r0		mov.w   @(0, er0), r7  ; スタックポインタ牲耽		pop.l	er6		pop.l	er5		pop.l	er4		pop.l	er3		pop.l	er2		rts		.END; --------------------------------------------------------------------------- ;  Copyright (C) 1998-2003 by Project HOS                                     ; ---------------------------------------------------------------------------