starred/scorch_src
1
0
Fork 0
mirror of https://github.com/pkali/scorch_src.git synced 2026-05-21 21:35:16 +02:00
Code Issues 37 Packages Projects Releases 10 Wiki Activity

Keyboard autorepeat added #141

Browse Source
This commit is contained in:
Pecusx
2022-10-30 12:51:38 +01:00
parent cd70e8c1ec
commit 4bf6b33528
6 changed files with 14 additions and 9 deletions
Download Patch File Download Diff File Expand all files Collapse all files
scorch.asm
+11 -6
View File
@@ -26,7 +26,7 @@
;---------------------------------------------------
icl 'definitions.asm'
;---------------------------------------------------
.zpvar DliColorBack .byte = $63
.zpvar xdraw .word = $64 ;variable X for plot
.zpvar ydraw .word ;variable Y for plot (like in Atari Basic - Y=0 in upper right corner of the screen)
.zpvar xbyte .word
@@ -1674,22 +1674,27 @@ getkeyend
;--------------------------------------------------
.proc WaitForKeyRelease
;--------------------------------------------------
mva #128-KeyRepeatSpeed pressTimer ; tricky
StillWait
bit pressTimer
bmi KeyReleased
lda STICK0
and #$0f
cmp #$0f
bne WaitForKeyRelease
bne StillWait
lda STRIG0
beq WaitForKeyRelease
beq StillWait
.IF TARGET = 800
lda SKSTAT
cmp #$ff
bne WaitForKeyRelease
bne StillWait
lda CONSOL
and #%00000110 ; Select and Option only
cmp #%00000110
bne WaitForKeyRelease
rts
bne StillWait
.ENDIF
KeyReleased
rts
.endp
;--------------------------------------------------
.proc IsKeyPressed ; A=0 - yes , A>0 - no