#include <btron/btron.h>
#include <btron/hmi.h>
#include <errcode.h>
#include <bstdio.h>
#include <bstdlib.h>
#include <bsys/bms.h>		// _Monitor()

/* main */
EXPORT	ERR	main(W ac, TC *av[])
{
	W	err, i, rec, size, asize;
	TRAYREC	*data;

	/* レコード全体のサイズ・レコード数の取得 */
	err = tpop_dat(NULL, 0, &size, -1, NULL);
	if (err < ER_OK || !size) goto fin0;
	rec = err;

	/* メモリ確保 */
	data = malloc(size);
	if (data == NULL) {
		err = ER_NOMEM;
		goto fin0;
	}
	memset(data, size, 0);

	/* レコード全体の読み出し */
	err = tpop_dat(data, size, &asize, -1, NULL);
	if (err < ER_OK) goto fin1;

	/* TAD主レコードとして出力したいんだけど…まずはデータの観察から */
	for (i = 0; i < rec; i++) {
		printf("id %08x len %08x dt %08x\n",
		       data[i].id, data[i].len, data[i].dt);
	}
	err = 0;
	wai_prc(100);
	_Monitor();

 fin1:
	free(data);
 fin0:
	return err;
}