; d0 - character

	xdef	_IsAlpha

_IsAlpha	cmp.b	#"A",d0
	blt.s	.false
	cmp.b	#"Z",d0
	ble.s	.true
	cmp.b	#"a",d0
	blt.s	.false
	cmp.b	#"z",d0
	bgt.s	.false
.true	moveq	#-1,d0
	rts
.false	moveq	#0,d0
	rts