Apple-2-SW/Applecorn
1
0
Fork 0
mirror of https://github.com/bobbimanners/Applecorn.git synced 2025-08-12 03:25:09 +00:00
Code Issues Projects Releases Wiki Activity

More tidy up.

Browse Source
This commit is contained in:
Bobbi Webber-Manners
2022-12-11 18:11:19 -05:00
parent a339ce1bd5
commit 222bcc307d
2 changed files with 3 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

BIN
applecorn.po
View File

Binary file not shown.

9
auxmem.chario.s
View File

@@ -320,6 +320,7 @@ ERRKEYUSED BRK
* 20/21 -> pointer to end of all strings * 20/21 -> pointer to end of all strings
* *
* Bobbi's initial scheme: * Bobbi's initial scheme:
* NOTE - THIS WRITES TO AUX MEM AT THE MOMENT. SHOULD BE MAIN!!
KEYBUF EQU $400 ; *KEY buffer from $400-$7FF KEYBUF EQU $400 ; *KEY buffer from $400-$7FF
; Beware of the screen holes! ; Beware of the screen holes!
KEYBUFFREE EQU KEYBUF + $20 ; Free space word KEYBUFFREE EQU KEYBUF + $20 ; Free space word
@@ -381,9 +382,7 @@ BYTE12 LDX #120 ; 120 bytes in each half page
STX FXSOFTOK ; Soft keys being updated STX FXSOFTOK ; Soft keys being updated
* Bobbi's initial scheme * Bobbi's initial scheme
PHP >>> WRTMAIN
SEI ; Prevent IRQs while writing
STZ WRMAINRAM ; Write to main mem
BYTE12LP STZ $0400-1,X ; Could be more efficient BYTE12LP STZ $0400-1,X ; Could be more efficient
STZ $0480-1,X STZ $0480-1,X
STZ $0500-1,X STZ $0500-1,X
@@ -396,10 +395,8 @@ BYTE12LP STZ $0400-1,X ; Could be more efficient
BNE BYTE12LP BNE BYTE12LP
LDA #<KEYBUFFREE+2 ; Initialize start of *KEY free-space LDA #<KEYBUFFREE+2 ; Initialize start of *KEY free-space
STA KEYBUFFREE+0 STA KEYBUFFREE+0
LDA #>KEYBUFFREE
STA KEYBUFFREE+1 STA KEYBUFFREE+1
STA WRCARDRAM ; Restore writing to aux >>> WRTAUX
PLP ; And restore IRQs
* *
STX FXSOFTOK ; Soft keys updated STX FXSOFTOK ; Soft keys updated
BYTE12OK RTS BYTE12OK RTS