This commit was generated by cvs2svn to compensate for changes in r2,

which included commits to RCS files with non-trunk default branches.


git-svn-id: svn://svn.cc65.org/cc65/trunk@3 b7a2c559-68d2-44c3-8de9-860c34a00d81

libsrc/common/toupper.s

@@ -0,0 +1,22 @@
+;
+; Ullrich von Bassewitz, 02.06.1998
+;
+; int toupper (int c);
+;
+
+	.export		_toupper
+	.import		__ctype, __cdiff
+
+_toupper:
+	tay			; Get c into Y
+	lda	__ctype,y	; Get character classification
+	and	#$01		; Mask lower char bit
+	beq	L1		; Jump if not lower char
+	tya			; Get C back into A
+       	clc
+	adc	__cdiff		; make upper case char
+	rts			; CC are set
+
+L1:	tya	     		; Get C back
+	rts			; CC are set
+