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

Cleanup use of memory macros in auxmem (part 1/2)

Browse Source
This commit is contained in:
Bobbi Webber-Manners 2022-09-20 00:06:14 -04:00
parent 9da8399e6a
commit e783f41c9b
4 changed files with 12 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
applecorn.po
View File

Binary file not shown.

4
auxmem.bytwrd.s
View File

@ -361,9 +361,9 @@ WORD06 JSR GETADDR ; Point to address, set Y=>data
LDA (OSCTRL),Y ; Get byte
PLP
BNE WORD06A
STA $C004 ; Switch to main memory
>>> WRTMAIN
WORD06A STA (OSINTWS) ; Store it
STA $C005 ; Back to aux memory
>>> WRTAUX
RTS
GETADDR STA OSINTWS+0 ; (OSINTWS)=>byte to read/write

4
auxmem.gfx.s
View File

@ -23,12 +23,12 @@ PRCHRSOFT CMP #$A0 ; Convert to screen code
JSR HCHARADDR ; Addr in VDUADDR
PHP ; Disable IRQs while
SEI ; toggling memory
STA $C004 ; Write to main
>>> WRTMAIN
LDA VDUADDR+0
STA HGRADDR+0
LDA VDUADDR+1
STA HGRADDR+1
STA $C005 ; Write to aux
>>> WRTAUX
PLP ; Restore IRQs
PLA ; Recover character
>>> XF2MAIN,DRAWCHAR ; Plot char on HGR screen

16
auxmem.hostfs.s
View File

@ -850,17 +850,17 @@ PARSLPTR CLC ; Means parsing a filename
LDX #$00 ; Length
:L1 JSR GSREAD ; Handle next char
BCS :DONE
STA $C004 ; Write to main mem
>>> WRTMAIN
STA MOSFILE+1,X
STA $C005 ; Write to aux mem
>>> WRTAUX
INX
CPX #$40
BNE :L1 ; Name not too long
TXA ; $40=Bad filename
JMP MKERROR
:DONE STA $C004 ; Write to main mem
:DONE >>> WRTMAIN
STX MOSFILE ; Length byte (Pascal)
STA $C005 ; Back to aux
>>> WRTAUX
PLP ; IRQs back as they were
TXA ; Return len in A
RTS
@ -876,17 +876,17 @@ PARSLPTR2 CLC ; Means parsing a filename
LDX #$00 ; Length
:L1 JSR GSREAD ; Handle next char
BCS :DONE
STA $C004 ; Write to main mem
>>> WRTMAIN
STA MOSFILE2+1,X
STA $C005 ; Write to aux mem
>>> WRTAUX
INX
CPX #$40
BNE :L1 ; Name not too long
TXA ; $40=Bad filename
JMP MKERROR
:DONE STA $C004 ; Write to main mem
:DONE >>> WRTMAIN
STX MOSFILE2 ; Length byte (Pascal)
STA $C005 ; Back to aux
>>> WRTAUX
PLP ; IRQs back as they were
TXA ; Return len in A
NOTERROR RTS