cc65/libsrc/atari/kbhit.s

;
; Christian Groessler, 19-Feb-2000
;
; unsigned char kbhit (void);
;

	.export		_kbhit
	.import	       	return1

	.include	"atari.inc"

.proc   _kbhit

	ldx   	CH		; last pressed key
	inx   			; 255 means "no key"
	bne   	L1
        txa                     ; X = A = 0
        rts
L1:	jmp   	return1

.endproc
This commit was generated by cvs2svn to compensate for changes in r2, which included commits to RCS files with non-trunk default branches. git-svn-id: svn://svn.cc65.org/cc65/trunk@3 b7a2c559-68d2-44c3-8de9-860c34a00d81 2000-05-28 13:40:48 +00:00			`;`
fixed it and saved 1 byte git-svn-id: svn://svn.cc65.org/cc65/trunk@27 b7a2c559-68d2-44c3-8de9-860c34a00d81 2000-06-07 22:10:45 +00:00			`; Christian Groessler, 19-Feb-2000`
This commit was generated by cvs2svn to compensate for changes in r2, which included commits to RCS files with non-trunk default branches. git-svn-id: svn://svn.cc65.org/cc65/trunk@3 b7a2c559-68d2-44c3-8de9-860c34a00d81 2000-05-28 13:40:48 +00:00			`;`
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			`; unsigned char kbhit (void);`
This commit was generated by cvs2svn to compensate for changes in r2, which included commits to RCS files with non-trunk default branches. git-svn-id: svn://svn.cc65.org/cc65/trunk@3 b7a2c559-68d2-44c3-8de9-860c34a00d81 2000-05-28 13:40:48 +00:00			`;`

			`.export _kbhit`
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			`.import return1`
This commit was generated by cvs2svn to compensate for changes in r2, which included commits to RCS files with non-trunk default branches. git-svn-id: svn://svn.cc65.org/cc65/trunk@3 b7a2c559-68d2-44c3-8de9-860c34a00d81 2000-05-28 13:40:48 +00:00
			`.include "atari.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 CH ; last pressed key`
			`inx ; 255 means "no key"`
			`bne L1`
			`txa ; X = A = 0`
			`rts`
			`L1: jmp return1`

			`.endproc`