******************************************************
* 漢字１バイト目判定
******************************************************
* int check_kanji1(int code)

	.xdef	_check_kanji1	* Ｃインターフェース
_check_kanji1:
	move.l	4(sp),d1

	.xdef	kcheck1		* アセンブラーインターフェース
kcheck1:
* d1.l:文字１バイト目
* リターン：d0.l=0:漢字１バイト目ではない , 1=漢字１バイト目
	moveq.l	#0,d0
	cmp.l	#256,d1
	bge	nonkanji	* 256以上は非漢字扱い
	cmp.l	#$80-1,d1	* 0x00〜0x7fは漢字１バイト目でない
	bls	nonkanji
	cmp.l	#$a0-1,d1	* 0x80〜0x9fは漢字１バイト目
	bls	kanji
	cmp.l	#$e0-1,d1	* 0xa0〜0xdfは漢字１バイト目でない
	bls	nonkanji	* 本当は0xfe,0xffは漢字１バイト目ではない
kanji:
	moveq.l	#1,d0
nonkanji:
	tst.l	d0		* 漢字かどうかの判定をフラグに反映しておく
	rts

******************************************************

	.end
