//////////////////////////////////////////////////////////////////////////////
//【関数名称】long xsb_change_jtob(char *jis,long keta)
//【処理名称】JISのデータをバイナリコードに変換する
//【機能】桁数回ループし、JISのデータをバイナリコードに変換する
//【引数】変換前のデータ(1byte)、変換後のデータ(2byte)
//【戻値】long型の値
//【備考】なし
//////////////////////////////////////////////////////////////////////////////
long xsb_change_jtob(char *jis,long keta)
{
long i,ans=0;
long return_bin;

for(i=0;i<keta;i++){
ans=jis[i]-0x30;

if(ans<0x40){
return_bin=ans;
}else if(ans>16){
return_bin=ans+16;
}
}
return(return_bin);
}
/*******************************************************************************
*問題点
*○現状では最後にreturn_binに格納された値しか返らない(格桁数毎に戻り値を返したい)
*○JISコード表の3,4,5の列のみを対象としている。
* 0〜9行の場合は正常に変換。A〜F行の場合は変換処理が異常値を返す（変換に失敗している）
*JISコード参照:http://www.fellow-ship.com/tech/jisebc.html
*******************************************************************************/