; d0 - character

	xdef	_IsHex

_IsHex	cmp.b	#"0",d0
	blt.s	.false
	cmp.b	#"9",d0
	ble.s	.true
	cmp.b	#"A",d0
	blt.s	.false
	cmp.b	#"F",d0
	ble.s	.true
	cmp.b	#"a",d0
	blt.s	.false
	cmp.b	#"f",d0
	bgt.s	.false
.true	moveq	#-1,d0
	rts
.false	moveq	#0,d0
	rts