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
parent 579491e8a4
commit 53dd513176
847 changed files with 91345 additions and 0 deletions
--- a/libsrc/common/ispunct.s
+++ b/libsrc/common/ispunct.s
@@ -0,0 +1,16 @@
+;
+; Ullrich von Bassewitz, 02.06.1998
+;
+; int ispunct (int c);
+;
+
+	.export		_ispunct
+	.import		__ctype
+
+_ispunct:
+	tay
+	lda	__ctype,y	; Get character classification
+       	eor    	#$37   	       	; NOT (space | control | digit | char)
+       	and    	#$37		; Mask relevant bits
+	rts
+