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

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