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

   1         ;;
   2         ;; Kevin Ruland
   3         ;;
   4         ;; int kbhit (void);
   5         ;;
   6
   7         .export _kbhit
   8
   9         .import return0, return1
  10
  11         .include "apple2.inc"
  12
  13 _kbhit:
  14         bit     KEY_STROBE      ; Reading strobe checks for keypress
  15         bmi     L1              ; if KEY_STROBE > 127 key was pressed
  16         jmp     return0
  17 L1:
  18         jmp     return1