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

Some more code cleanup

Browse Source
This commit is contained in:
Bobbi Webber-Manners 2021-07-31 16:10:12 -04:00
parent 3f94c48bcc
commit e8dda24e6c
3 changed files with 26 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
applecorn.po
View File

Binary file not shown.

18
applecorn.s
View File

@ -83,31 +83,41 @@ XFMAIN MAC
EOM
* Macro to load addr into STRTL/STRTH
* Called by code running in main mem
XFADDR MAC
PHA
LDA #<]1
STA STRTL
LDA #>]1
STA STRTH
PLA
EOM
* Macro to backup STRTL/STRTH then load XFADDR
* Callers running with AltZP should call this one
ALXFADDR MAC
* Called by code running in aux mem
XFADDRAUX MAC
PHA
LDA STRTL
STA STRTBCKL
LDA STRTH
STA STRTBCKH
>>> XFADDR,]1
LDA #<]1
STA STRTL
LDA #>]1
STA STRTH
PLA
EOM
* Macro to recover STRTL/STRTH
* Used by callers running with AltZP to recover
* STRTL and STRTH after XFER returns
* Called by code running in aux mem
XFRECVR MAC
PHA
LDA STRTBCKL
STA STRTL
LDA STRTBCKH
STA STRTH
PLA
EOM
* Code is all included from PUT files below ...

24
auxmem.s
View File

@ -311,14 +311,14 @@ FINDHND PHX
STA $C004 ; Write main
STY MOSFILE ; Length (Pascal string)
STA $C005 ; Write aux
>>> ALXFADDR,OFILE
>>> XFADDRAUX,OFILE
PLA ; Recover options
:S1 >>> XFMAIN
:CLOSE STA $C004 ; Write main
STY MOSFILE ; Write file number
STA $C005 ; Write aux
>>> ALXFADDR,CFILE
>>> XFADDRAUX,CFILE
BRA :S1
OSFINDRET
@ -359,7 +359,7 @@ BPUTHND PHX
STA $C005 ; Write to aux memory
TSX ; Stash alt SP in $0101
STX $0101
>>> ALXFADDR,FILEPUT
>>> XFADDRAUX,FILEPUT
PLA ; Char to write
PHA
>>> XFMAIN
@ -381,7 +381,7 @@ BGETHND PHX
STA $C005 ; Write to aux memory
TSX ; Stash alt SP in $0101
STX $0101
>>> ALXFADDR,FILEGET
>>> XFADDRAUX,FILEGET
>>> XFMAIN
OSBGETRET
LDX $0101 ; Recover alt SP from $0101
@ -439,7 +439,7 @@ ARGSHND PHA
STA $C004 ; Write main memory
STY MOSFILE ; File ref num
STA $C005 ; Write aux memory
:FLUSH >>> ALXFADDR,FLUSH
:FLUSH >>> XFADDRAUX,FLUSH
>>> XFMAIN
:EXIT PLY
PLX
@ -528,9 +528,9 @@ FILEHND PHX
PLX
RTS
:S1 >>> ALXFADDR,SAVEFILE
:S1 >>> XFADDRAUX,SAVEFILE
BRA :S3
:S2 >>> ALXFADDR,LOADFILE
:S2 >>> XFADDRAUX,LOADFILE
:S3 >>> XFMAIN
OSFILERET
@ -1244,12 +1244,12 @@ STARHELP LDA #<:MSG
DB $0D,$0D,$00
:MSG2 DB $0D,$00
STARQUIT >>> ALXFADDR,QUIT
STARQUIT >>> XFADDRAUX,QUIT
>>> XFMAIN
STARCAT TSX
STX $0101 ; Stash alt SP
>>> ALXFADDR,CATALOG
>>> XFADDRAUX,CATALOG
>>> XFMAIN
STARCATRET
LDX $0101 ; Recover alt SP
@ -1278,7 +1278,7 @@ PRONEBLK LDX $0101 ; Recover alt SP
BNE :L1
BRA :END
:END >>> ALXFADDR,CATALOGRET
:END >>> XFADDRAUX,CATALOGRET
>>> XFMAIN
:DIRM ASC 'Directory: '
DB $00
@ -1354,7 +1354,7 @@ STARDIR LDA ZP1 ; Move ZP1->ZP3 (OSWRCH uses ZP1)
STA $C005 ; Write aux
TSX
STX $0101 ; Stash alt SP
>>> ALXFADDR,SETPFX
>>> XFADDRAUX,SETPFX
>>> XFMAIN
STARDIRRET
LDX $0101 ; Recover Alt SP
@ -1387,7 +1387,7 @@ OSBYTE80 CPX #$00 ; X=0 Last ADC channel
CHKEOF STA $C004 ; Write main mem
STX MOSFILE ; File reference number
STA $C005 ; Write aux mem
>>> ALXFADDR,FILEEOF
>>> XFADDRAUX,FILEEOF
TSX ; Stash alt SP in $0101
STX $0101
>>> XFMAIN