Fixed redefining/undefining of function keys

2022-12-18 23:09:57 -05:00 · 2022-12-18 23:09:57 -05:00 · 53ce6fd25f
parent 17014c4b33
commit 53ce6fd25f
2 changed files with 2 additions and 1 deletions
--- a/applecorn.po
+++ b/applecorn.po
--- a/auxmem.chario.s
+++ b/auxmem.chario.s
@ -359,6 +359,7 @@ KEYOPENGAP   PHA
             PHX
             PHY
             LDX   FKEYNUM            ; Key being defined
+             INX
             JSR   KEYSUMLENS         ; Len of defs 0..X exclusive
             STA   MOVESRC            ; Source offset for move
             LDX   #16                ; Sum keys 0..15 (ie: all)
@ -392,7 +393,7 @@ KEYCLSGAP    PHA
             STA   MOVESRC            ; ... is new source
             LDX   FKEYNUM            ; Key being defined
             INX
-             JSR   KEYSUMLENS         ; Len of defs 0..X INclusive
+             JSR   KEYSUMLENS         ; Len of defs 0..X exclusive
             STA   MOVEDST            ; New dest
             JSR   MOVEKEYS           ; Close the gap
             PLY