mirror of
https://github.com/Pecusx/scorch_src.git
synced 2026-05-20 22:33:43 +02:00
Option key fix and opty
This commit is contained in:
@@ -484,6 +484,7 @@ checkSelectKey
|
|||||||
beq SelectPressed
|
beq SelectPressed
|
||||||
lda CONSOL
|
lda CONSOL
|
||||||
and #%00000100 ; Option
|
and #%00000100 ; Option
|
||||||
|
beq OptionPressed
|
||||||
.ENDIF
|
.ENDIF
|
||||||
lda #@kbcode._none
|
lda #@kbcode._none
|
||||||
bne getkeyend
|
bne getkeyend
|
||||||
|
|||||||
BIN
Binary file not shown.
+2
-8
@@ -1224,17 +1224,11 @@ notpressed
|
|||||||
spl:rts ; exit if pressed 'Exit keys'
|
spl:rts ; exit if pressed 'Exit keys'
|
||||||
|
|
||||||
ldx TankNr ; for optimize
|
ldx TankNr ; for optimize
|
||||||
; Select and Option
|
|
||||||
lda CONSOL
|
|
||||||
tay
|
|
||||||
and #%00000100
|
|
||||||
beq callActivation ; Option key
|
|
||||||
tya
|
|
||||||
and #%00000010
|
|
||||||
jeq pressedTAB ; Select key
|
|
||||||
jsr GetKeyFast
|
jsr GetKeyFast
|
||||||
and #%10111111 ; SHIFT elimination
|
and #%10111111 ; SHIFT elimination
|
||||||
|
|
||||||
|
cmp #@kbcode._atari ; Option key
|
||||||
|
beq callActivation
|
||||||
cmp #@kbcode._A ; $3f ; A
|
cmp #@kbcode._A ; $3f ; A
|
||||||
bne @+
|
bne @+
|
||||||
callActivation
|
callActivation
|
||||||
|
|||||||
Reference in New Issue
Block a user