git.sur5r.net Git - cc65/blob - libsrc/common/isblank.s

   1 ;
   2 ; Ullrich von Bassewitz, 02.06.1998
   3 ;
   4 ; int isblank (int c);
   5 ;
   6 ; cc65 (and GNU) extension.
   7 ;
   8
   9         .export         _isblank
  10         .include        "ctype.inc"
  11
  12 _isblank:
  13         cpx     #$00            ; Char range ok?
  14         bne     @L1             ; Jump if no
  15         tay
  16         lda     __ctype,y       ; Get character classification
  17         and     #CT_SPACE_TAB   ; Mask blank bit
  18         rts
  19
  20 @L1:    lda     #$00            ; Return false
  21         tax
  22         rts
  23