6502/millfork
1
0
Fork 0
mirror of https://github.com/KarolS/millfork.git synced 2025-01-26 05:30:18 +00:00
Code Issues Projects Releases Wiki Activity

Fix keyboard.mfk

Browse Source
This commit is contained in:
Karol Stasiak 2020-03-31 18:50:31 +02:00
parent ceef57ed18
commit 1f626b0666
1 changed files with 7 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
include/keyboard.mfk
View File

@ -66,9 +66,12 @@ __read_key__start:
#endif #endif
noinline asm byte readkey() { noinline asm byte readkey() {
#if PET2001_SUPPORT #if PET2001_SUPPORT && (PET3000_SUPPORT || PET4000_SUPPORT)
JSR is_pet2000 JSR is_pet2000
BNE __read_key__start_new BNE __read_key__start_new
#endif
#if PET2001_SUPPORT
// ROM 1.0: // ROM 1.0:
LDA #0 LDA #0
STA $20D STA $20D
@ -77,7 +80,9 @@ __read_key__start1:
BEQ __read_key__start1 BEQ __read_key__start1
LDA $20F LDA $20F
RTS RTS
#endif
#if PET3000_SUPPORT || PET4000_SUPPORT
// ROM 2.0 and above: // ROM 2.0 and above:
__read_key__start_new: __read_key__start_new:
LDA #0 LDA #0
@ -87,6 +92,7 @@ __read_key__start2:
BEQ __read_key__start2 BEQ __read_key__start2
LDA $026F LDA $026F
RTS RTS
#endif
} }
#define OK = 1 #define OK = 1
#endif #endif