/*
 *	HLS ドライバを呼ぶアプリケーション (プロセスベース)
 *
 *	Copyright (C) 2012 by Personal Media Corporation
 */

#include <stdio.h>
#include <btron/tkcall.h>
#include "mky36.h"

EXPORT	W	main( W ac, TC *av[] )
{
	INT	sa, dd, er, asize, i;
	UH	data_in, data_out;

	sa = 1;	// サテライトアドレス

	/* ドライバを排他オープンする */
	dd = tk_opn_dev( DEVNM_MKY36, TD_UPDATE | TD_EXCL );
	if (dd < 0) goto e2;

	for (i = 0; i < 100; i++) {
		/* ドライバから読み込む */
		er = tk_srea_dev( dd, sa, &data_in, 1, &asize );
		if (er < 0 || asize != 1) goto e1;

		/* ドライバに書き込む */
		data_out = (1 << (i & 15));
		er = tk_swri_dev( dd, sa, &data_out, 1, &asize );
		if (er < 0 || asize != 1) goto e1;

		printf( "SA:%d data_in:%04hx data_out:%04hx\n", sa, data_in, data_out );
		tk_dly_tsk( 500 );
	}

e1:	/* ドライバをクローズする */
	tk_cls_dev( dd, 0 );
e2:
	return 0;
}