mirror of
https://github.com/bobbimanners/Applecorn.git
synced 2024-09-27 16:55:31 +00:00
Cleanup use of memory macros in auxmem (part 1/2)
This commit is contained in:
parent
9da8399e6a
commit
e783f41c9b
BIN
applecorn.po
BIN
applecorn.po
Binary file not shown.
@ -361,9 +361,9 @@ WORD06 JSR GETADDR ; Point to address, set Y=>data
|
|||||||
LDA (OSCTRL),Y ; Get byte
|
LDA (OSCTRL),Y ; Get byte
|
||||||
PLP
|
PLP
|
||||||
BNE WORD06A
|
BNE WORD06A
|
||||||
STA $C004 ; Switch to main memory
|
>>> WRTMAIN
|
||||||
WORD06A STA (OSINTWS) ; Store it
|
WORD06A STA (OSINTWS) ; Store it
|
||||||
STA $C005 ; Back to aux memory
|
>>> WRTAUX
|
||||||
RTS
|
RTS
|
||||||
|
|
||||||
GETADDR STA OSINTWS+0 ; (OSINTWS)=>byte to read/write
|
GETADDR STA OSINTWS+0 ; (OSINTWS)=>byte to read/write
|
||||||
|
@ -23,12 +23,12 @@ PRCHRSOFT CMP #$A0 ; Convert to screen code
|
|||||||
JSR HCHARADDR ; Addr in VDUADDR
|
JSR HCHARADDR ; Addr in VDUADDR
|
||||||
PHP ; Disable IRQs while
|
PHP ; Disable IRQs while
|
||||||
SEI ; toggling memory
|
SEI ; toggling memory
|
||||||
STA $C004 ; Write to main
|
>>> WRTMAIN
|
||||||
LDA VDUADDR+0
|
LDA VDUADDR+0
|
||||||
STA HGRADDR+0
|
STA HGRADDR+0
|
||||||
LDA VDUADDR+1
|
LDA VDUADDR+1
|
||||||
STA HGRADDR+1
|
STA HGRADDR+1
|
||||||
STA $C005 ; Write to aux
|
>>> WRTAUX
|
||||||
PLP ; Restore IRQs
|
PLP ; Restore IRQs
|
||||||
PLA ; Recover character
|
PLA ; Recover character
|
||||||
>>> XF2MAIN,DRAWCHAR ; Plot char on HGR screen
|
>>> XF2MAIN,DRAWCHAR ; Plot char on HGR screen
|
||||||
|
@ -850,17 +850,17 @@ PARSLPTR CLC ; Means parsing a filename
|
|||||||
LDX #$00 ; Length
|
LDX #$00 ; Length
|
||||||
:L1 JSR GSREAD ; Handle next char
|
:L1 JSR GSREAD ; Handle next char
|
||||||
BCS :DONE
|
BCS :DONE
|
||||||
STA $C004 ; Write to main mem
|
>>> WRTMAIN
|
||||||
STA MOSFILE+1,X
|
STA MOSFILE+1,X
|
||||||
STA $C005 ; Write to aux mem
|
>>> WRTAUX
|
||||||
INX
|
INX
|
||||||
CPX #$40
|
CPX #$40
|
||||||
BNE :L1 ; Name not too long
|
BNE :L1 ; Name not too long
|
||||||
TXA ; $40=Bad filename
|
TXA ; $40=Bad filename
|
||||||
JMP MKERROR
|
JMP MKERROR
|
||||||
:DONE STA $C004 ; Write to main mem
|
:DONE >>> WRTMAIN
|
||||||
STX MOSFILE ; Length byte (Pascal)
|
STX MOSFILE ; Length byte (Pascal)
|
||||||
STA $C005 ; Back to aux
|
>>> WRTAUX
|
||||||
PLP ; IRQs back as they were
|
PLP ; IRQs back as they were
|
||||||
TXA ; Return len in A
|
TXA ; Return len in A
|
||||||
RTS
|
RTS
|
||||||
@ -876,17 +876,17 @@ PARSLPTR2 CLC ; Means parsing a filename
|
|||||||
LDX #$00 ; Length
|
LDX #$00 ; Length
|
||||||
:L1 JSR GSREAD ; Handle next char
|
:L1 JSR GSREAD ; Handle next char
|
||||||
BCS :DONE
|
BCS :DONE
|
||||||
STA $C004 ; Write to main mem
|
>>> WRTMAIN
|
||||||
STA MOSFILE2+1,X
|
STA MOSFILE2+1,X
|
||||||
STA $C005 ; Write to aux mem
|
>>> WRTAUX
|
||||||
INX
|
INX
|
||||||
CPX #$40
|
CPX #$40
|
||||||
BNE :L1 ; Name not too long
|
BNE :L1 ; Name not too long
|
||||||
TXA ; $40=Bad filename
|
TXA ; $40=Bad filename
|
||||||
JMP MKERROR
|
JMP MKERROR
|
||||||
:DONE STA $C004 ; Write to main mem
|
:DONE >>> WRTMAIN
|
||||||
STX MOSFILE2 ; Length byte (Pascal)
|
STX MOSFILE2 ; Length byte (Pascal)
|
||||||
STA $C005 ; Back to aux
|
>>> WRTAUX
|
||||||
PLP ; IRQs back as they were
|
PLP ; IRQs back as they were
|
||||||
TXA ; Return len in A
|
TXA ; Return len in A
|
||||||
NOTERROR RTS
|
NOTERROR RTS
|
||||||
|
Loading…
Reference in New Issue
Block a user