cc65/libsrc/geos-cbm/conio/kbhit.s


;
; Maciej 'YTM/Elysium' Witkowiak
;
; 27.10.2001

; unsigned char kbhit (void);

	    .export _kbhit

	    .include "../inc/geossym.inc"

.proc   _kbhit

        ldx     #0              ; High byte of result
        lda     pressFlag
        rol                     ; Bit 7 is new key flag
        txa                     ; A = 0
        rol
        rts

.endproc
simple conio support for GEOS git-svn-id: svn://svn.cc65.org/cc65/trunk@1093 b7a2c559-68d2-44c3-8de9-860c34a00d81 2001-10-27 17:13:22 +00:00
			`;`
			`; Maciej 'YTM/Elysium' Witkowiak`
			`;`
			`; 27.10.2001`

			`; unsigned char kbhit (void);`

			`.export _kbhit`

			`.include "../inc/geossym.inc"`

Squeezed bytes and cycles out of the kbhit functions for almost all platforms. git-svn-id: svn://svn.cc65.org/cc65/trunk@4480 b7a2c559-68d2-44c3-8de9-860c34a00d81 2009-11-24 18:31:16 +00:00			`.proc _kbhit`

			`ldx #0 ; High byte of result`
			`lda pressFlag`
			`rol ; Bit 7 is new key flag`
			`txa ; A = 0`
			`rol`
			`rts`

			`.endproc`