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/tolower.s

@@ -0,0 +1,22 @@
+;
+; Ullrich von Bassewitz, 02.06.1998
+;
+; int tolower (int c);
+;
+
+	.export		_tolower
+	.import		__ctype, __cdiff
+
+_tolower:
+       	tay			; Get C into Y
+	lda	__ctype,y	; Get character classification
+	and	#$02		; Is this an upper case char?
+	beq	L1		; Jump if no
+	tya			; Get char back into A
+       	sec
+	sbc	__cdiff		; make lower case char
+       	rts			; CC are set
+
+L1:	tya			; Get char back into A
+	rts			; CC are set
+