#include <basic.h>			/* 型などの基本的な定義		*/
#include <tk/tkernel.h>			/* T-Kernel関連の定義		*/
#include <tm/tmonitor.h>		/* モニタ機能を使う場合の定義	*/

void	taskA( INT stacd, VP exinf )	/* タスクＡ(関数名は任意)	*/
{
	while(1){
		tm_putstring( (UB*)"I'm Task A.\n" );
		tk_dly_tsk( 1000 );	/* 処理を１秒間保留		*/
	}
	tk_ext_tsk();			/* タスクの終了			*/
}

void	taskB( INT stacd, VP exinf )	/* タスクＢ(関数名は任意)	*/
{
	while(1){
		tm_putstring( (UB*)"I'm Task B.\n" );
		tk_dly_tsk( 2000 );	/* 処理を２秒間保留		*/
	}
	tk_ext_tsk();			/* タスクの終了			*/
}

EXPORT	INT	usermain( void )	/* 初期タスクから呼ばれる関数	*/
{
	T_CTSK	ctskA = { NULL, TA_HLNG|TA_RNG0, taskA, 1, 4*1024 };
	T_CTSK	ctskB = { NULL, TA_HLNG|TA_RNG0, taskB, 1, 4*1024 };
	ID	tskIdA;			/* タスクＡの識別子		*/
	ID	tskIdB;			/* タスクＢの識別子		*/

	tskIdA = tk_cre_tsk( &ctskA );	/* T-KernelにタスクＡを登録	*/
	tk_sta_tsk( tskIdA, 0 );	/* タスクＡの実行を開始		*/

	tskIdB = tk_cre_tsk( &ctskB );	/* T-KernelにタスクＢを登録	*/
	tk_sta_tsk( tskIdB, 0 );	/* タスクＢの実行を開始		*/

	tk_slp_tsk(TMO_FEVR);		/* 起床待ち状態に移行		*/
	return 0;
}