cc65/libsrc/atmos/kbhit.s

;
; Ullrich von Bassewitz, 2003-04-13
;
; int kbhit (void);
;

        .export         _kbhit

        .include        "atmos.inc"

_kbhit:
        ldx     #$00            ; Load high byte
        lda     KEYBUF          ; Flag for new char in bit 7
        asl     a               ; Shift bit 7 into carry
        txa                     ; A = 0
        rol     a               ; Move old bit 7 into bit 0
        rts
Add basic support for ORIC Atmos git-svn-id: svn://svn.cc65.org/cc65/trunk@2046 b7a2c559-68d2-44c3-8de9-860c34a00d81 2003-04-13 22:12:09 +00:00			`;`
			`; Ullrich von Bassewitz, 2003-04-13`
			`;`
			`; int kbhit (void);`
			`;`

Removed (pretty inconsistently used) tab chars from source code base. 2013-05-09 11:56:54 +00:00			`.export _kbhit`
Add basic support for ORIC Atmos git-svn-id: svn://svn.cc65.org/cc65/trunk@2046 b7a2c559-68d2-44c3-8de9-860c34a00d81 2003-04-13 22:12:09 +00:00
Removed (pretty inconsistently used) tab chars from source code base. 2013-05-09 11:56:54 +00:00			`.include "atmos.inc"`
Add basic support for ORIC Atmos git-svn-id: svn://svn.cc65.org/cc65/trunk@2046 b7a2c559-68d2-44c3-8de9-860c34a00d81 2003-04-13 22:12:09 +00:00
			`_kbhit:`
			`ldx #$00 ; Load high byte`
			`lda KEYBUF ; Flag for new char in bit 7`
			`asl a ; Shift bit 7 into carry`
			`txa ; A = 0`
			`rol a ; Move old bit 7 into bit 0`
			`rts`