Apple-2-SW/Applecorn
1
0
Fork 0
mirror of https://github.com/bobbimanners/Applecorn.git synced 2024-11-05 02:08:07 +00:00
Code Issues Projects Releases Wiki Activity

Even more code cleanup!

Browse Source
This commit is contained in:
Bobbi Webber-Manners 2021-07-31 20:19:15 -04:00
parent 9552ae0d29
commit 81fb379a01
4 changed files with 13 additions and 32 deletions
Show Stats 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

@ -98,6 +98,8 @@ XFADDR MAC
* Macro to backup STRTL/STRTH then load XFADDR
* Called by code running in aux mem
XFADDRAUX MAC
TSX
STX $0101 ; Save alt SP
PHA
LDA STRTL
STA STRTBCKL

26
auxmem.s
View File

@ -286,11 +286,6 @@ FINDHND PHX
STX ZP1 ; Points to filename
STY ZP1+1
TSX ; Stash alt ZP
STX $0101
PLA
PHA
CMP #$00 ; A=$00 = close
BEQ :CLOSE
@ -311,8 +306,8 @@ FINDHND PHX
STA $C004 ; Write main
STY MOSFILE ; Length (Pascal string)
STA $C005 ; Write aux
>>> XFADDRAUX,OFILE
PLA ; Recover options
>>> XFADDRAUX,OFILE
:S1 >>> XFMAIN
:CLOSE STA $C004 ; Write main
@ -353,8 +348,6 @@ BPUTHND PHX
STA $C004 ; Write to main memory
STY MOSFILE ; File reference number
STA $C005 ; Write to aux memory
TSX ; Stash alt SP in $0101
STX $0101
>>> XFADDRAUX,FILEPUT
PLA ; Char to write
PHA
@ -373,8 +366,6 @@ BGETHND PHX
STA $C004 ; Write to main memory
STY MOSFILE ; File ref number
STA $C005 ; Write to aux memory
TSX ; Stash alt SP in $0101
STX $0101
>>> XFADDRAUX,FILEGET
>>> XFMAIN
OSBGETRET
@ -493,9 +484,6 @@ FILEHND PHX
STY MOSFILE ; Length (Pascal string)
STA $C005 ; Write aux
TSX
STX $0101 ; Store alt SP in $0101
PLA ; Get action back
PHA
BEQ :S1 ; A=00 -> SAVE
@ -1231,9 +1219,7 @@ STARHELP LDA #<:MSG
STARQUIT >>> XFADDRAUX,QUIT
>>> XFMAIN
STARCAT TSX
STX $0101 ; Stash alt SP
>>> XFADDRAUX,CATALOG
STARCAT >>> XFADDRAUX,CATALOG
>>> XFMAIN
STARCATRET
>>> ENTAUX
@ -1241,9 +1227,7 @@ STARCATRET
* Print one block of a catalog. Called by CATALOG
* Block is in AUXBLK
PRONEBLK LDX $0101 ; Recover alt SP
TXS
PRONEBLK >>> ENTAUX
LDA AUXBLK+4 ; Get storage type
AND #$E0 ; Mask 3 MSBs
CMP #$E0
@ -1334,8 +1318,6 @@ STARDIR LDA ZP1 ; Move ZP1->ZP3 (OSWRCH uses ZP1)
STA $C004 ; Write main
STX MOSFILE ; Length byte
STA $C005 ; Write aux
TSX
STX $0101 ; Stash alt SP
>>> XFADDRAUX,SETPFX
>>> XFMAIN
STARDIRRET
@ -1368,8 +1350,6 @@ CHKEOF STA $C004 ; Write main mem
STX MOSFILE ; File reference number
STA $C005 ; Write aux mem
>>> XFADDRAUX,FILEEOF
TSX ; Stash alt SP in $0101
STX $0101
>>> XFMAIN
CHKEOFRET
>>> ENTAUX

17
loader.s
View File

@ -3,6 +3,10 @@
*
* Applecorn loader code
* Loads Acorn ROM file (16KB) from disk and writes it
* to aux memory starting at $08000. Copies Applecorn MOS
* to aux memory starting at AUXMOS1 and jumps to it.
* (Note that the MOS code will relocate itself to $D000.)
START STZ :BLOCKS
LDX #$00
:L1 LDA HELLO,X ; Signon message
@ -100,15 +104,10 @@ START STZ :BLOCKS
EOR #$A5 ; Checksum
STA RSTV+2
TSX
STX $0100 ; Store SP at $0100
LDA #<AUXMOS1 ; Start address in aux, for XFER
STA STRTL
LDA #>AUXMOS1
STA STRTH
SEC ; Main -> Aux
BIT $FF58 ; Set V; Use page zero and stack in aux
JMP XFER ; Jump to copied MOS code in Aux
TSX ; Save SP at $0100
STX $0100
>>> XFADDR,AUXMOS1
>>> XFAUX
:BLOCKS DB 0 ; Counter for blocks read