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

Fixed *KEY bug.

This commit is contained in:
Bobbi Webber-Manners 2022-12-19 20:30:34 -05:00
parent c8264a17b8
commit 179184d36c
3 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
applecorn.po
View File

Binary file not shown.

4
auxmem.chario.s
View File

@ -326,8 +326,9 @@ STARKEYLP1 JSR GSREAD
STA FKEYBUF,X ; Store char of definition
>>> WRTAUX ; Back to writing aux again
INX
CPX MOVEDST-1 ; See if we are out of space
CPX MOVEDST ; See if we are out of space
BNE STARKEYLP1
LDX FKEYNUM
>>> WRTMAIN ; Write main memory
STZ FKEYLENS,X ; Out of space. Set len=0
>>> WRTAUX ; Back to writing aux again
@ -367,7 +368,6 @@ KEYOPENGAP PHA
SEC
SBC MOVELEN ; Compute dest for move
STA MOVEDST ; Dest offset for move
LDX MOVESRC ; Source
JSR MOVEKEYS ; Open the gap
PLY
PLX

4
mainmem.misc.s
View File

@ -3,8 +3,8 @@
*
* Miscellaneous routines used by main memory code.
FKEYLENS DS $0F ; Length of f-key definitions 0..15
FKEYBUF DS $FF ; 256 bytes for f-key definitions
FKEYLENS DS 16 ; Length of f-key definitions 0..15
FKEYBUF DS 256 ; 256 bytes for f-key definitions
* Copy a block of main memory
* A1L/A1H: Start address