bslathi19/cc65
1
0
Fork 0
Code Issues Pull Requests Actions 1 Packages Projects Releases Wiki Activity

New version from Oliver Schmidt

Browse Source 
git-svn-id: svn://svn.cc65.org/cc65/trunk@3421 b7a2c559-68d2-44c3-8de9-860c34a00d81
This commit is contained in:
cuz
2005-03-26 17:03:30 +00:00
parent fe2d8f26ed
commit 071c58bda2
27 changed files with 512 additions and 598 deletions
Download Patch File Download Diff File Expand all files Collapse all files

29
libsrc/apple2/kbhit.s
View File

@@ -1,18 +1,17 @@
;;
;; Kevin Ruland
;;
;; int kbhit (void);
;;
;
; Kevin Ruland
; Ullrich von Bassewitz, 2005-03-25
;
; unsigned char kbhit (void);
;
.export _kbhit
.export _kbhit
.import return0, return1
.include "apple2.inc"
.include "apple2.inc"
_kbhit:
bit KBD ; Reading keyboard checks for keypress
bmi L1 ; if KBD > 127 key was pressed
jmp return0
L1:
jmp return1
_kbhit: lda KBD ; Reading KBD checks for keypress
rol ; if high bit is set, key was pressed
lda #$00
tax
rol
rts