git.sur5r.net Git - cc65/blob - libsrc/geos-common/conio/kbhit.s

   1 ;
   2 ; Maciej 'YTM/Elysium' Witkowiak
   3 ;
   4 ; 27.10.2001
   5
   6 ; unsigned char kbhit (void);
   7
   8             .export _kbhit
   9
  10             .include "geossym.inc"
  11
  12 _kbhit:
  13         ldx #0                  ; High byte of result
  14         lda pressFlag
  15         rol                     ; Bit 7 is new key flag
  16         txa                     ; A = 0
  17         rol
  18         rts