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

   1 ;
   2 ; Ullrich von Bassewitz, 2003-04-13
   3 ;
   4 ; int kbhit (void);
   5 ;
   6
   7         .export         _kbhit
   8
   9         .include        "atmos.inc"
  10
  11 _kbhit:
  12         ldx     #$00            ; Load high byte
  13         lda     KEYBUF          ; Flag for new char in bit 7
  14         asl     a               ; Shift bit 7 into carry
  15         txa                     ; A = 0
  16         rol     a               ; Move old bit 7 into bit 0
  17         rts
  18