Apple-2-SW/Applecorn
1
0
Fork 0
mirror of https://github.com/bobbimanners/Applecorn.git synced 2024-06-25 15:29:37 +00:00
Code Issues Projects Releases Wiki Activity

Other minor cherrypicked changes from JGH's repo

Browse Source
This commit is contained in:
Bobbi Webber-Manners 2021-08-20 19:33:03 -04:00
parent 81a2cdc7df
commit 77215e1566
3 changed files with 6 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.

1
auxmem.init.s
View File

@ -109,6 +109,7 @@ MOSINIT LDX #$FF ; Initialize Alt SP to $1FF
:S8 STA $C00D ; 80 col on
STA $C003 ; Alt charset off
STA $C055 ; PAGE2
JMP MOSHIGH ; Ensure running in high mem
MOSHIGH SEI
LDX #$FF

6
mainmem.s
View File

@ -409,6 +409,7 @@ LOADFILE >>> ENTMAIN
LDA FBEXEC ; If FBEXEC is zero, use addr
CMP #$00 ; in the control block
BEQ :CBADDR
* TODOL Load file (without addr) needs to fill in CB
LDA #<MOSFILE ; Otherwise use file addr
STA GINFOPL+1
LDA #>MOSFILE
@ -418,9 +419,11 @@ LOADFILE >>> ENTMAIN
DW GINFOPL
BCS :READERR
LDX GINFOPL+5 ; Aux type LSB
STX FBLOAD
STX FBLOAD+0
STX FBEXEC+0 ; Default EXEC=LOAD
LDY GINFOPL+6 ; Aux type MSB
STY FBLOAD+1
STY FBEXEC+1
:CBADDR JSR PASSADDR ; Load addr -> code in aux bank
LDA FBLOAD
STA A4L
@ -590,6 +593,7 @@ SAVEFILE >>> ENTMAIN
JSR CLSFILE
LDA #$00 ; Success!
BCC :EXIT ; If close OK
* TODO: After SAVE CB XY+10..XY+17 needs updating
LDA #$02 ; Write error
:EXIT >>> XF2AUX,OSFILERET
:LEN DW $0000