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

   1 ;
   2 ; Ullrich von Bassewitz, 18.08.1998
   3 ;
   4 ; unsigned char kbhit (void);
   5 ;
   6
   7         .export         _kbhit
   8
   9         .include        "c128.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 ;       ora     FKEY_COUNT      ; Or with number of chars from function keys
  17         beq     L9
  18         lda     #1
  19 L9:     rts
  20
  21 .endproc
  22
  23
  24
  25