Better keyboard handling

This commit is contained in:
Pecusx
2025-01-20 09:10:43 +01:00
parent 201a22d489
commit e8af94ba5d
3 changed files with 6 additions and 10 deletions
+6 -10
View File
@@ -23,10 +23,8 @@ getKeyAfterWait
;-------------------------------------------------- ;--------------------------------------------------
.IF TARGET = 800 .IF TARGET = 800
lda SKSTAT lda SKSTAT
cmp #$ff and #%00000100 ; any key
beq checkJoyGetKey ; key not pressed, check Joy bne checkJoyGetKey ; key not pressed, check Joy
cmp #$f7 ; SHIFT
beq checkJoyGetKey
.ELIF TARGET = 5200 .ELIF TARGET = 5200
lda SkStatSimulator lda SkStatSimulator
and #%11111110 and #%11111110
@@ -137,8 +135,8 @@ StillWait
beq StillWait beq StillWait
.IF TARGET = 800 .IF TARGET = 800
lda SKSTAT lda SKSTAT
cmp #$ff and #%00000100 ; any key
bne StillWait beq StillWait
lda CONSOL lda CONSOL
and #%00000110 ; Select and Option only and #%00000110 ; Select and Option only
cmp #%00000110 cmp #%00000110
@@ -186,10 +184,8 @@ KeyAutoReleased ; autorepeat
and #%00000101 ; Start + Option and #%00000101 ; Start + Option
beq QuitToGameover beq QuitToGameover
lda SKSTAT lda SKSTAT
cmp #$ff and #%00000100 ; any key
jeq nokeys jne nokeys
cmp #$f7 ; SHIFT
jeq nokeys
lda kbcode lda kbcode
and #%10111111 ; SHIFT elimination and #%10111111 ; SHIFT elimination
BIN
View File
Binary file not shown.
BIN
View File
Binary file not shown.