C - U-netSURF
C - U-netSURF
C - U-netSURF
- No tags were found...
You also want an ePaper? Increase the reach of your titles
YUMPU automatically turns print PDFs into web optimized ePapers that Google loves.
#include "binary.h"<br />
/* メ゜ンル 関 数 */<br />
int main()<br />
{<br />
/* SCIの 初 期 化 */<br />
// Sci_Initialize(SCI_19200);<br />
Sci_Initialize(SCI_38400);<br />
//Cで2 進 数 表 示 をを 使 う(00000000<br />
(00000000-11111111)<br />
C で 2 進 数 表 現 を 使 え<br />
るように, 東朁 洋泒 リンクス<br />
作 成 の 定 義 ファイルを<br />
インクルードする。<br />
/* 開 始 メッセセーヴジ */<br />
Sci_PutChar('H');<br />
Sci_PutChar('O');<br />
Sci_PutChar('S');<br />
Sci_PutChar('\r');<br />
Sci_PutChar('\n');<br />
ボーレートを 38400 ボー<br />
に 変 更暬 する。<br />
sta_hos();<br />
}<br />
return 0;<br />
/* 初 期 化 デンルチラ */<br />
void Initialize(VP_INT exinf)<br />
{<br />
/* act_tsk(TSKID_SAMPLE1);*/<br />
}<br />
/* サキンルハルタスク */<br />
void Task1(VP_INT exinf)<br />
{<br />
SYSTIM st;<br />
for ( ; ; )<br />
{<br />
/* タ゜マ 値 取 得 */<br />
get_tim(&st);<br />
/* タ゜マ 値 出 力 */<br />
Sci_PutChar('0' + (st.ltime / 10000) % 10);<br />
Sci_PutChar('0' + (st.ltime / 1000) % 10);<br />
Sci_PutChar('0' + (st.ltime / 100) % 10);<br />
Sci_PutChar('0' + (st.ltime / 10) % 10);<br />
Sci_PutChar('0' + (st.ltime / 1) % 10);<br />
Sci_PutChar(':');<br />
/* タスクメッセセーヴジ */<br />
Sci_PutChar('T');<br />
Sci_PutChar('a');<br />
Sci_PutChar('s');<br />
Sci_PutChar('k');<br />
Sci_PutChar('1');<br />
Sci_PutChar('\r');<br />
Sci_PutChar('\n');<br />
134<br />
TK-3687mini ユーザーズマニュアル C 言 語 版