X-Git-Url: https://git.sur5r.net/?a=blobdiff_plain;f=libsrc%2Fcommon%2Fisupper.s;h=b9d53a61470bee6de5b2a6c7bf465dc89be3433e;hb=6657214a18d41ce76e9ea1bc8b67977ee13d3645;hp=0eb4915c639d9781e53a7f8fb3556c56060954db;hpb=ca815af0775b89cfdb97957c69685157eacdbe51;p=cc65

diff --git a/libsrc/common/isupper.s b/libsrc/common/isupper.s
index 0eb4915c6..b9d53a614 100644
--- a/libsrc/common/isupper.s
+++ b/libsrc/common/isupper.s
@@ -5,14 +5,14 @@
 ;
 
 	.export		_isupper
-	.import		__ctype
+       	.include	"ctype.inc"
 
 _isupper:
 	cpx	#$00		; Char range ok?
 	bne	@L1		; Jump if no
 	tay
 	lda	__ctype,y	; Get character classification
-	and    	#$02   	       	; Mask upper char bit
+	and    	#CT_UPPER	; Mask upper char bit
 	rts
 
 @L1:	lda	#$00		; Return false