added sleep() implementation

[cc65] / libsrc / common / ispunct.s

diff --git a/libsrc/common/ispunct.s b/libsrc/common/ispunct.s
index 71664f0d8616efcf4a49338da7c1b88174dbc5f1..380cf38ccc2dedbe3cdd84f454f9db91923283c8 100644 (file)
--- a/libsrc/common/ispunct.s
+++ b/libsrc/common/ispunct.s
@@ -5,12 +5,18 @@
 ;
 
        .export         _ispunct
-       .import         __ctype
+               .include        "ctype.inc"
 
 _ispunct:
+       cpx     #$00            ; Char range ok?
+       bne     @L1             ; Jump if no
        tay
        lda     __ctype,y       ; Get character classification
-               eor     #$37            ; NOT (space | control | digit | char)
-               and     #$37            ; Mask relevant bits
+               eor     #CT_NOT_PUNCT   ; NOT (space | control | digit | alpha)
+               and     #CT_NOT_PUNCT   ; Mask relevant bits
+       rts
+
+@L1:   lda     #$00            ; Return false
+       tax
        rts