X-Git-Url: https://git.sur5r.net/?a=blobdiff_plain;f=libsrc%2Fcommon%2Fstrupper.s;h=b330ab8c1c7e0db94532faaf8a86ed0573cb7b31;hb=ea75fef1bf99fabff9c9eaa804468ee40339f87f;hp=80019ac9a6eef83b5f6e6fdcc59f77949d001e20;hpb=53dd513176425872128ef26031d00952ef7a0628;p=cc65

diff --git a/libsrc/common/strupper.s b/libsrc/common/strupper.s
index 80019ac9a..b330ab8c1 100644
--- a/libsrc/common/strupper.s
+++ b/libsrc/common/strupper.s
@@ -9,13 +9,13 @@
 
  	.export		_strupper, _strupr
 	.import		popax
-	.import		__ctype, __cdiff
+	.import		__ctype
 	.importzp	ptr1, ptr2
 
 _strupper:
 _strupr:
 	sta	ptr1		; Save s (working copy)
-	stx	ptr1+1		
+	stx	ptr1+1
 	sta	ptr2
 	sta	ptr2+2		; save function result
 	ldy	#0
@@ -28,7 +28,7 @@ loop:	lda    	(ptr1),y	; get character
 	beq	L1		; jump if no
 	txa			; get character back into accu
 	clc
-	adc	__cdiff		; make upper case char
+       	adc    	#<('A'-'a')     ; make upper case char
 	sta	(ptr1),y	; store back
 L1:	iny	    		; next char
 	bne	loop