X-Git-Url: https://git.sur5r.net/?a=blobdiff_plain;f=libsrc%2Fcommon%2Fisalnum.s;h=26fd7a24c83a6c2c5eeae2511d0bc7776af6f802;hb=ea75fef1bf99fabff9c9eaa804468ee40339f87f;hp=e8654ad9fbd0c26e4722d2de8360359ff4a28c32;hpb=53dd513176425872128ef26031d00952ef7a0628;p=cc65

diff --git a/libsrc/common/isalnum.s b/libsrc/common/isalnum.s
index e8654ad9f..26fd7a24c 100644
--- a/libsrc/common/isalnum.s
+++ b/libsrc/common/isalnum.s
@@ -5,11 +5,17 @@
 ;
 
 	.export		_isalnum
-	.import		__ctype
+	.include	"ctype.inc"
 
 _isalnum:
+	cpx	#$00		; Char range ok?
+	bne	@L1		; Jump if no
 	tay
 	lda	__ctype,y	; Get character classification
-	and    	#$07		; Mask character/digit bits
+	and    	#CT_ALNUM	; Mask character/digit bits
+	rts
+
+@L1:	lda	#$00		; Return false
+	tax
 	rts