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

More core cleanup

Browse Source
This commit is contained in:
Bobbi Webber-Manners
2021-07-31 16:26:32 -04:00
parent e8dda24e6c
commit aa992200c0
3 changed files with 7 additions and 27 deletions
Download Patch File Download Diff File Expand all files Collapse all files

BIN
applecorn.po
View File

Binary file not shown.

2
applecorn.s
View File

@@ -86,6 +86,8 @@ XFMAIN MAC
* Called by code running in main mem * Called by code running in main mem
XFADDR MAC XFADDR MAC
PHA PHA
LDA $C08B ; R/W LC RAM, bank 1
LDA $C08B
LDA #<]1 LDA #<]1
STA STRTL STA STRTL
LDA #>]1 LDA #>]1

32
mainmem.s
View File

@@ -70,8 +70,6 @@ DISCONN LDA $BF98
* XFER to AUXMOS ($C000) in aux, AuxZP on, LC on * XFER to AUXMOS ($C000) in aux, AuxZP on, LC on
RESET TSX RESET TSX
STX $0100 STX $0100
LDA $C08B ; Rd/Wt LC, bank one
LDA $C08B
>>> XFADDR,AUXMOS >>> XFADDR,AUXMOS
>>> XFAUX >>> XFAUX
RTS RTS
@@ -197,9 +195,7 @@ OFILE LDX $0100 ; Recover SP
BRA FINDEXIT BRA FINDEXIT
:NOTFND LDA #$00 :NOTFND LDA #$00
PHA PHA
FINDEXIT LDA $C08B ; R/W RAM, LC bank 1 FINDEXIT >>> XFADDR,OSFINDRET
LDA $C08B
>>> XFADDR,OSFINDRET
PLA PLA
>>> XFAUX >>> XFAUX
BUFIDX DB $00 BUFIDX DB $00
@@ -255,9 +251,7 @@ FILEGET LDX $0100 ; Recover SP
:NOERR LDX #$00 :NOERR LDX #$00
LDA BLKBUF LDA BLKBUF
PHA PHA
GETEXIT LDA $C08B ; R/W RAM, LC bank 1 GETEXIT >>> XFADDR,OSBGETRET
LDA $C08B
>>> XFADDR,OSBGETRET
PLA PLA
>>> XFAUX >>> XFAUX
@@ -279,8 +273,6 @@ FILEPUT LDX $0100 ; Recover SP
* There is no way to report an error it seems! * There is no way to report an error it seems!
LDA $C08B ; R/W RAM, LC bank 1
LDA $C08B
>>> XFADDR,OSBPUTRET >>> XFADDR,OSBPUTRET
>>> XFAUX >>> XFAUX
@@ -325,8 +317,6 @@ FILEEOF LDX $0100 ; Recover SP
BRA :EXIT BRA :EXIT
:NOTEOF LDA #$00 :NOTEOF LDA #$00
:EXIT PHA ; Preserve return code :EXIT PHA ; Preserve return code
LDA $C08B ; R/W RAM, LC bank 1
LDA $C08B
>>> XFADDR,CHKEOFRET >>> XFADDR,CHKEOFRET
PLA ; Recover return code PLA ; Recover return code
>>> XFAUX >>> XFAUX
@@ -344,8 +334,6 @@ FLUSH LDX $0100 ; Recover SP
DB FLSHCMD DB FLSHCMD
DW FLSHPL DW FLSHPL
LDA $C08B ; R/W RAM, LC bank 1
LDA $C08B
>>> XFADDR,OSARGSRET >>> XFADDR,OSARGSRET
>>> XFAUX >>> XFAUX
@@ -412,9 +400,7 @@ LOADFILE LDX $0100 ; Recover SP
:EOF2 LDA OPENPL+5 ; File ref num :EOF2 LDA OPENPL+5 ; File ref num
STA CLSPL+1 STA CLSPL+1
JSR CLSFILE JSR CLSFILE
:EXIT LDA $C08B ; R/W RAM, bank 1 :EXIT >>> XFADDR,OSFILERET
LDA $C08B
>>> XFADDR,OSFILERET
PLA PLA
>>> XFAUX >>> XFAUX
:BLOCKS DB $00 :BLOCKS DB $00
@@ -563,8 +549,6 @@ SAVEFILE LDX $0100 ; Recover SP
BCC :EXIT ; If close OK BCC :EXIT ; If close OK
LDA #$02 ; Write error LDA #$02 ; Write error
:EXIT PHA :EXIT PHA
LDA $C08B ; R/W RAM, bank 1
LDA $C08B
>>> XFADDR,OSFILERET >>> XFADDR,OSFILERET
PLA PLA
>>> XFAUX >>> XFAUX
@@ -608,8 +592,6 @@ CATREENTRY
:S1 JSR COPYAUXBLK :S1 JSR COPYAUXBLK
LDA $C08B ; R/W RAM, bank 1
LDA $C08B
>>> XFADDR,PRONEBLK >>> XFADDR,PRONEBLK
>>> XFAUX >>> XFAUX
@@ -618,9 +600,7 @@ CATREENTRY
STA CLSPL+1 STA CLSPL+1
JSR CLSFILE JSR CLSFILE
CATEXIT LDA $C08B ; R/W LC RAM, bank 1 CATEXIT >>> XFADDR,STARCATRET
LDA $C08B
>>> XFADDR,STARCATRET
PLA PLA
>>> XFAUX >>> XFAUX
@@ -643,9 +623,7 @@ SETPFX LDX $0100 ; Recover SP
BCC :S1 BCC :S1
JSR BELL ; Beep on error JSR BELL ; Beep on error
:S1 LDA $C08B ; R/W LC RAM, bank 1 :S1 >>> XFADDR,STARDIRRET
LDA $C08B
>>> XFADDR,STARDIRRET
>>> XFAUX >>> XFAUX
* Create disk file * Create disk file