Apple-2-SW/Applecorn
1
0
Fork 0
mirror of https://github.com/bobbimanners/Applecorn.git synced 2025-01-10 06:29:35 +00:00
Code Issues Projects Releases Wiki Activity

Fixed redefining/undefining of function keys

Browse Source
This commit is contained in:
Bobbi Webber-Manners 2022-12-18 23:09:57 -05:00
parent 17014c4b33
commit 53ce6fd25f
2 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
applecorn.po
View File

Binary file not shown.

3
auxmem.chario.s
View File

@ -359,6 +359,7 @@ KEYOPENGAP PHA
PHX PHX
PHY PHY
LDX FKEYNUM ; Key being defined LDX FKEYNUM ; Key being defined
INX
JSR KEYSUMLENS ; Len of defs 0..X exclusive JSR KEYSUMLENS ; Len of defs 0..X exclusive
STA MOVESRC ; Source offset for move STA MOVESRC ; Source offset for move
LDX #16 ; Sum keys 0..15 (ie: all) LDX #16 ; Sum keys 0..15 (ie: all)
@ -392,7 +393,7 @@ KEYCLSGAP PHA
STA MOVESRC ; ... is new source STA MOVESRC ; ... is new source
LDX FKEYNUM ; Key being defined LDX FKEYNUM ; Key being defined
INX INX
JSR KEYSUMLENS ; Len of defs 0..X INclusive JSR KEYSUMLENS ; Len of defs 0..X exclusive
STA MOVEDST ; New dest STA MOVEDST ; New dest
JSR MOVEKEYS ; Close the gap JSR MOVEKEYS ; Close the gap
PLY PLY