git.sur5r.net Git - cc65/blob - libsrc/apple2/kbhit.s

   1 ;
   2 ; Kevin Ruland
   3 ; Ullrich von Bassewitz, 2005-03-25
   4 ;
   5 ; unsigned char kbhit (void);
   6 ;
   7
   8         .export _kbhit
   9
  10         .include "apple2.inc"
  11
  12 _kbhit: lda     KBD             ; Reading KBD checks for keypress
  13         rol                     ; if high bit is set, key was pressed
  14         lda     #$00
  15         tax
  16         rol
  17         rts