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

Further code cleanup.

This commit is contained in:
Bobbi Webber-Manners 2021-07-31 20:37:18 -04:00
parent d801dfff58
commit db3bb4e6fd
4 changed files with 18 additions and 34 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
applecorn.po
View File

Binary file not shown.

16
applecorn.s
View File

@ -68,13 +68,6 @@ AUXMOS1 EQU $2000 ; Temp staging area in Aux
EAUXMOS1 EQU $3000 ; End of staging area
AUXMOS EQU $D000 ; Final location in aux LC
* Macro for calls from main memory to aux memory
XFAUX MAC
SEC ; Use aux memory
BIT $FF58 ; Set V: use alt ZP and LC
JMP XFER
EOM
* Macro for calls from aux memory to main memory
XFMAIN MAC
CLC ; Use main memory
@ -82,9 +75,9 @@ XFMAIN MAC
JMP XFER
EOM
* Macro to load addr into STRTL/STRTH
* Called by code running in main mem
XFADDR MAC
* Called by code running in main mem to invoke a
* routine in aux memory
XF2AUX MAC
PHA
LDA $C08B ; R/W LC RAM, bank 1
LDA $C08B
@ -93,6 +86,9 @@ XFADDR MAC
LDA #>]1
STA STRTH
PLA
SEC ; Use aux memory
BIT $FF58 ; Set V: use alt ZP and LC
JMP XFER
EOM
* Macro to backup STRTL/STRTH then load XFADDR

3
loader.s
View File

@ -106,8 +106,7 @@ START STZ :BLOCKS
TSX ; Save SP at $0100
STX $0100
>>> XFADDR,AUXMOS1
>>> XFAUX
>>> XF2AUX,AUXMOS1
:BLOCKS DB 0 ; Counter for blocks read

33
mainmem.s
View File

@ -71,8 +71,7 @@ DISCONN LDA $BF98
* XFER to AUXMOS ($C000) in aux, AuxZP on, LC on
RESET TSX
STX $0100
>>> XFADDR,AUXMOS
>>> XFAUX
>>> XF2AUX,AUXMOS
RTS
* Copy 512 bytes from BLKBUF to AUXBLK in aux LC
@ -188,8 +187,7 @@ OFILE >>> ENTMAIN
STA FILEREFS,X ; Record the ref number
BRA FINDEXIT
:NOTFND LDA #$00
FINDEXIT >>> XFADDR,OSFINDRET
>>> XFAUX
FINDEXIT >>> XF2AUX,OSFINDRET
BUFIDX DB $00
* ProDOS file handling for MOS OSFIND CLOSE call
@ -231,8 +229,7 @@ FILEGET >>> ENTMAIN
BRA :EXIT
:NOERR LDX #$00
LDA BLKBUF
:EXIT >>> XFADDR,OSBGETRET
>>> XFAUX
:EXIT >>> XF2AUX,OSBGETRET
* ProDOS file handling for MOS OSBPUT call
* Enters with char to write in A
@ -246,8 +243,7 @@ FILEPUT >>> ENTMAIN
LDA #$00
STA WRITEPL+5
JSR WRTFILE
>>> XFADDR,OSBPUTRET
>>> XFAUX
>>> XF2AUX,OSBPUTRET
* ProDOS file handling for OSBYTE $7F EOF
* Returns EOF status in A ($FF for EOF, $00 otherwise)
@ -286,8 +282,7 @@ FILEEOF >>> ENTMAIN
:ISEOF LDA #$FF
BRA :EXIT
:NOTEOF LDA #$00
:EXIT >>> XFADDR,CHKEOFRET
>>> XFAUX
:EXIT >>> XF2AUX,CHKEOFRET
:REMAIN DS 3 ; Remaining bytes
* ProDOS file handling for OSARGS flush commands
@ -297,8 +292,7 @@ FLUSH >>> ENTMAIN
JSR MLI
DB FLSHCMD
DW FLSHPL
>>> XFADDR,OSARGSRET
>>> XFAUX
>>> XF2AUX,OSARGSRET
* ProDOS file handling for MOS OSFILE LOAD call
* Return A=0 if successful
@ -351,8 +345,7 @@ LOADFILE >>> ENTMAIN
:EOF2 LDA OPENPL+5 ; File ref num
STA CLSPL+1
JSR CLSFILE
:EXIT >>> XFADDR,OSFILERET
>>> XFAUX
:EXIT >>> XF2AUX,OSFILERET
:BLOCKS DB $00
* ProDOS file handling for MOS OSFILE SAVE call
@ -490,8 +483,7 @@ SAVEFILE >>> ENTMAIN
LDA #$00 ; Success!
BCC :EXIT ; If close OK
LDA #$02 ; Write error
:EXIT >>> XFADDR,OSFILERET
>>> XFAUX
:EXIT >>> XF2AUX,OSFILERET
:LEN DW $0000
:BLOCKS DB $00
@ -527,14 +519,12 @@ CATREENTRY
BEQ :EOF
BRA :READERR
:S1 JSR COPYAUXBLK
>>> XFADDR,PRONEBLK
>>> XFAUX
>>> XF2AUX,PRONEBLK
:READERR
:EOF LDA OPENPL+5 ; File ref num
STA CLSPL+1
JSR CLSFILE
CATEXIT >>> XFADDR,STARCATRET
>>> XFAUX
CATEXIT >>> XF2AUX,STARCATRET
* PRONEBLK call returns here ...
CATALOGRET
@ -548,8 +538,7 @@ SETPFX >>> ENTMAIN
DW SPFXPL
BCC :S1
JSR BELL ; Beep on error
:S1 >>> XFADDR,STARDIRRET
>>> XFAUX
:S1 >>> XF2AUX,STARDIRRET
* Create disk file
CRTFILE JSR MLI