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

   1 ;
   2 ; Ullrich von Bassewitz, 02.06.1998
   3 ;
   4 ; int iscntrl (int c);
   5 ;
   6
   7         .export         _iscntrl
   8         .import         __ctype
   9
  10 _iscntrl:
  11         tay
  12         lda     __ctype,y       ; Get character classification
  13         and     #$10            ; Mask control character bit
  14         rts
  15
  16