kbhit variant for CBM PET
This commit is contained in:
parent
4fce263228
commit
fd02382d38
|
@ -268,11 +268,20 @@ char getpch(void)
|
||||||
|
|
||||||
char kbhit(void)
|
char kbhit(void)
|
||||||
{
|
{
|
||||||
|
#if defined(__CBMPET__)
|
||||||
|
return __asm
|
||||||
|
{
|
||||||
|
ldx $97
|
||||||
|
inx
|
||||||
|
stx accu
|
||||||
|
};
|
||||||
|
#else
|
||||||
return __asm
|
return __asm
|
||||||
{
|
{
|
||||||
lda $c6
|
lda $c6
|
||||||
sta accu
|
sta accu
|
||||||
};
|
};
|
||||||
|
#endif
|
||||||
}
|
}
|
||||||
|
|
||||||
char getche(void)
|
char getche(void)
|
||||||
|
|
Loading…
Reference in New Issue