]> git.sur5r.net Git - cc65/blobdiff - libsrc/common/isdigit.s
The spans do now contain the size of a span, no longer the end offset.
[cc65] / libsrc / common / isdigit.s
index d8cc6d52214785c9d13d9df2983aa6f15bf423c4..339fef61f9308f39b24bd7ad45e702d84d316d2c 100644 (file)
@@ -5,11 +5,17 @@
 ;
 
        .export         _isdigit
-       .import         __ctype
+               .include        "ctype.inc"
 
 _isdigit:
+       cpx     #$00            ; Char range ok?
+       bne     @L1             ; Jump if no
        tay
        lda     __ctype,y       ; Get character classification
-       and     #$04            ; Mask digit bit
+               and     #CT_DIGIT       ; Mask digit bit
+       rts
+
+@L1:   lda     #$00            ; Return false
+       tax
        rts