setviewpage was never assembled

[cc65] / libsrc / common / isupper.s

diff --git a/libsrc/common/isupper.s b/libsrc/common/isupper.s
index 0eb4915c639d9781e53a7f8fb3556c56060954db..b9d53a61470bee6de5b2a6c7bf465dc89be3433e 100644 (file)
--- a/libsrc/common/isupper.s
+++ b/libsrc/common/isupper.s
@@ -5,14 +5,14 @@
 ;
 
        .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