2000-05-28 13:40:48 +00:00
|
|
|
;;
|
|
|
|
|
;; Kevin Ruland
|
|
|
|
|
;;
|
|
|
|
|
;; int kbhit (void);
|
|
|
|
|
;;
|
|
|
|
|
|
|
|
|
|
.export _kbhit
|
|
|
|
|
|
|
|
|
|
.import return0, return1
|
|
|
|
|
|
|
|
|
|
.include "apple2.inc"
|
|
|
|
|
|
|
|
|
|
_kbhit:
|
2004-03-11 21:54:22 +00:00
|
|
|
bit KBD ; Reading keyboard checks for keypress
|
|
|
|
|
bmi L1 ; if KBD > 127 key was pressed
|
2000-05-28 13:40:48 +00:00
|
|
|
jmp return0
|
|
|
|
|
L1:
|
|
|
|
|
jmp return1
|
