Apple-2-SW
/
Applecorn
mirror of https://github.com/bobbimanners/Applecorn.git
1
0
Fork 0
Code Issues Projects Releases Wiki Activity

*KEY bugfix.

This commit is contained in:
Bobbi Webber-Manners 2022-12-19 00:14:50 -05:00
parent 53ce6fd25f
commit 287fa9fab3
2 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
applecorn.po
View File

Binary file not shown.

8
auxmem.chario.s
View File

@ -327,7 +327,7 @@ STARKEY1 STA FKEYNUM ; Key number being defined
JSR SKIPCOMMA
SEC
JSR GSINIT ; Initialise '*KEY-type string'
LDX MOVESRC ; Starting point to insert
LDX KEYINS ; Starting point to insert
STARKEYLP1 JSR GSREAD
BCS STARKEYEND
>>> WRTMAIN ; Write main memory
@ -342,7 +342,7 @@ STARKEYLP1 JSR GSREAD
BRA STARKEYCLS
STARKEYEND TXA ; Last idx+1
SEC ; Compute length
SBC MOVESRC
SBC KEYINS
LDX FKEYNUM
>>> WRTMAIN ; Write main memory
STA FKEYLENS,X ; Store length of new def
@ -350,6 +350,7 @@ STARKEYEND TXA ; Last idx+1
STARKEYCLS JSR KEYCLSGAP
RTS
FKEYNUM DB $00
KEYINS DB $00
* Open gap in FKEYBUF to allow new def to be inserted
@ -359,6 +360,9 @@ KEYOPENGAP PHA
PHX
PHY
LDX FKEYNUM ; Key being defined
JSR KEYSUMLENS ; Len of defs 0..X exclusive
STA KEYINS ; Offset for insert
LDX FKEYNUM ; Key being defined
INX
JSR KEYSUMLENS ; Len of defs 0..X exclusive
STA MOVESRC ; Source offset for move