cc65/libsrc/common/tolower.s

;
; 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
	lsr	a
	lsr	a		; Get bit 1 (upper case char) into carry
	tya			; Get char back into A
       	bcc    	L9		; Jump if no upper case char
   	sbc	__cdiff		; make lower case char (carry already set)
L9:    	rts	  		; CC are set
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 2000-05-28 13:40:48 +00:00			`;`
			`; 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`
Squeezed a few cycles/bytes out of tolower and toupper. git-svn-id: svn://svn.cc65.org/cc65/trunk@690 b7a2c559-68d2-44c3-8de9-860c34a00d81 2001-04-19 06:46:01 +00:00			`lsr a`
			`lsr a ; Get bit 1 (upper case char) into carry`
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 2000-05-28 13:40:48 +00:00			`tya ; Get char back into A`
Squeezed a few cycles/bytes out of tolower and toupper. git-svn-id: svn://svn.cc65.org/cc65/trunk@690 b7a2c559-68d2-44c3-8de9-860c34a00d81 2001-04-19 06:46:01 +00:00			`bcc L9 ; Jump if no upper case char`
			`sbc __cdiff ; make lower case char (carry already set)`
			`L9: rts ; CC are set`
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 2000-05-28 13:40:48 +00:00