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

   1 ;
   2 ; Ullrich von Bassewitz, 06.08.1998
   3 ;
   4 ; unsigned char kbhit (void);
   5 ;
   6
   7         .export         _kbhit
   8
   9         .include        "vic20.inc"
  10
  11
  12 .proc   _kbhit
  13
  14         ldx     #0              ; High byte of return is always zero
  15         lda     KEY_COUNT       ; Get number of characters
  16         beq     L9
  17         lda     #1
  18 L9:     rts
  19
  20 .endproc
  21
  22
  23