cc65/libsrc/common/isupper.s

;
; Ullrich von Bassewitz, 02.06.1998
;
; int isupper (int c);
;

	.export		_isupper
       	.include	"ctype.inc"

_isupper:
	cpx	#$00		; Char range ok?
	bne	@L1		; Jump if no
	tay
	lda	__ctype,y	; Get character classification
	and    	#CT_UPPER	; Mask upper char bit
	rts

@L1:	lda	#$00		; Return false
	tax
	rts
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 isupper (int c);`
			`;`

			`.export _isupper`
Use constants for the bits in the _ctype array. git-svn-id: svn://svn.cc65.org/cc65/trunk@865 b7a2c559-68d2-44c3-8de9-860c34a00d81 2001-09-08 14:00:41 +00:00			`.include "ctype.inc"`
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
			`_isupper:`
iscntrl was not mentioned in the Makefile and therefor not built. Change the isxxx functions to correctly handle values outside of character range. git-svn-id: svn://svn.cc65.org/cc65/trunk@33 b7a2c559-68d2-44c3-8de9-860c34a00d81 2000-06-08 18:35:04 +00:00			`cpx #$00 ; Char range ok?`
			`bne @L1 ; Jump if no`
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			`tay`
			`lda __ctype,y ; Get character classification`
Use constants for the bits in the _ctype array. git-svn-id: svn://svn.cc65.org/cc65/trunk@865 b7a2c559-68d2-44c3-8de9-860c34a00d81 2001-09-08 14:00:41 +00:00			`and #CT_UPPER ; Mask upper char bit`
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			`rts`

iscntrl was not mentioned in the Makefile and therefor not built. Change the isxxx functions to correctly handle values outside of character range. git-svn-id: svn://svn.cc65.org/cc65/trunk@33 b7a2c559-68d2-44c3-8de9-860c34a00d81 2000-06-08 18:35:04 +00:00			`@L1: lda #$00 ; Return false`
			`tax`
			`rts`