* EX68で動いているかどうかをチェックする
* int ChkEX68()
* return : 0=X68上 , 1=EX68上

	.text
	.include	iocscall.mac
	.include	doscall.mac

ex68chk	equ	$e9f000
* $e9f000〜$e9ffff
* EX68でここをダンプするとずっと'W'が読める

	.xdef	_ChkEX68
_ChkEX68:
.if 0
	lea	ex68chk,a1
	IOCS	_B_BPEEK	(a1)->d0.b
	cmp.b	#'W',d0
	seq	d0
.else
* X68ではここのアクセスはバスエラーになるのでそれで判断する
	move.w	#1,-(sp)
	pea	work(pc)
	pea	ex68chk
	DOS	_BUS_ERR	* (ex68chk)->work 1ﾊﾞｲﾄ
	lea	10(sp),sp
	cmp.l	#2,d0		* ex68chkアクセスでバスエラーが発生しているか？
	sne	d0		* =2:X68 , !=2:EX68
.endif
	moveq.l	#1,d1
	and.l	d1,d0
	rts

work	.dc.b	0

	.end
