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

   1 ;
   2 ; Ullrich von Bassewitz, 18.08.1998
   3 ;
   4 ; int kbhit (void);
   5 ;
   6
   7         .export         _kbhit
   8         .import         return0, return1
   9
  10         .include        "c128.inc"
  11
  12 _kbhit:
  13         lda     KEY_COUNT       ; Get number of characters
  14 ;       ora     FKEY_COUNT      ; Or with number of chars from function keys
  15         bne     L1
  16         jmp     return0
  17 L1:     jmp     return1
  18
  19
  20
  21