setviewpage was never assembled

[cc65] / libsrc / common / isupper.s

diff --git a/libsrc/common/isupper.s b/libsrc/common/isupper.s
index bb5ad07a2873f4e88f8ca588369059a5298cba69..b9d53a61470bee6de5b2a6c7bf465dc89be3433e 100644 (file)
--- a/libsrc/common/isupper.s
+++ b/libsrc/common/isupper.s
@@ -5,11 +5,17 @@
 ;
 
        .export         _isupper
-       .import         __ctype
+               .include        "ctype.inc"
 
 _isupper:
+       cpx     #$00            ; Char range ok?
+       bne     @L1             ; Jump if no
        tay
        lda     __ctype,y       ; Get character classification
-       and     #$02            ; Mask upper char bit
+       and     #CT_UPPER       ; Mask upper char bit
+       rts
+
+@L1:   lda     #$00            ; Return false
+       tax
        rts