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         .import         __ctype
  11
  12 _isblank:
  13         tay
  14         lda     __ctype,y       ; Get character classification
  15         and     #$80            ; Mask blank bit
  16         rts
  17