adb.s: keep events from messing up neighbor keys in the array
This commit is contained in:
parent
1b2f2d3eff
commit
83ad296ea3
11
asm/adb.s
11
asm/adb.s
|
@ -171,11 +171,12 @@ SRMerge1 phx ; Save 2nd
|
||||||
jsr ProcessReset
|
jsr ProcessReset
|
||||||
|
|
||||||
* Update the key states
|
* Update the key states
|
||||||
|
* sta >$400
|
||||||
jsr PostIt
|
jsr PostIt
|
||||||
plx ; Get 2nd
|
plx ; Get 2nd
|
||||||
pha ; save new #1
|
pha ; save new #1
|
||||||
txa
|
txa
|
||||||
|
* sta >$480
|
||||||
jsr PostIt
|
jsr PostIt
|
||||||
plx
|
plx
|
||||||
pha
|
pha
|
||||||
|
@ -200,8 +201,8 @@ SRMerge1 phx ; Save 2nd
|
||||||
longi on
|
longi on
|
||||||
|
|
||||||
PostIt pha ; Save Key
|
PostIt pha ; Save Key
|
||||||
* sep #$20
|
sep #$20
|
||||||
* longa off
|
longa off
|
||||||
cmp #$80 ; set/clear c
|
cmp #$80 ; set/clear c
|
||||||
and #$7f ; keycode idx
|
and #$7f ; keycode idx
|
||||||
tax
|
tax
|
||||||
|
@ -209,8 +210,8 @@ PostIt pha ; Save Key
|
||||||
rol a ; key state
|
rol a ; key state
|
||||||
eor #$01 ; 0 for key up
|
eor #$01 ; 0 for key up
|
||||||
sta KeyArray,x
|
sta KeyArray,x
|
||||||
* rep #$30
|
rep #$30
|
||||||
* longa on
|
longa on
|
||||||
pla
|
pla
|
||||||
rts
|
rts
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue