Better keyboart handling

This commit is contained in:
Pecusx
2025-12-20 16:31:51 +01:00
parent adaaf2ffbf
commit cff106297d
4 changed files with 8 additions and 2 deletions
+6
View File
@@ -82,6 +82,8 @@ OptionsMainLoop
bit escFlag
spl:rts
and #$3f ;CTRL and SHIFT ellimination
cmp #@kbcode._down ; $f ;cursor down
bne OptionsNoDown
ldx OptionsY
@@ -136,6 +138,10 @@ EndOfOptions
rts ; options selected
OptionsNoReturn
.IF TARGET = 800
cmp #@kbcode._G ; $61 ; G
beq TabPressed
.ENDIF
cmp #@kbcode._tab ; Tab key
bne OptionsNoTab
TabPressed
+1 -1
View File
@@ -41,7 +41,7 @@
;---------------------------------------------------
.macro build
dta d"1.52" ; number of this build (4 bytes)
dta d"1.55" ; number of this build (4 bytes)
.endm
.macro RMTSong
BIN
View File
Binary file not shown.
+1 -1
View File
@@ -1406,7 +1406,7 @@ NoVdebugSwitch
cmp #@kbcode._S ; $3e ; S
jeq pressedS
.IF TARGET = 800
cmp #61 ; G
cmp #@kbcode._G ; $61 ; G
bne EndKeys
jsr SelectNextGradient.NotWind
jmp ReleaseAndLoop