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

auxmem.bytwrd.s/auxmem.gfx.s: Removed PHP/SEI ... PLP.

Browse Source
This commit is contained in:
Bobbi Webber-Manners 2022-09-20 15:48:36 -04:00
parent 0adf054973
commit cd29d9e30c
3 changed files with 2 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
applecorn.po
View File

Binary file not shown.

6
auxmem.bytwrd.s
View File

@ -124,7 +124,6 @@ WORDMAX EQU WORDSZ/2-1
* *
WORDHND PHA WORDHND PHA
PHP PHP
SEI
STA OSAREG ; Store registers STA OSAREG ; Store registers
STX OSCTRL+0 ; Point to control block STX OSCTRL+0 ; Point to control block
STY OSCTRL+1 STY OSCTRL+1
@ -149,7 +148,6 @@ WORDGO1 LDA #WORDOFF+WORDMAX+1
* *
BYTEHND PHA BYTEHND PHA
PHP PHP
SEI
STA OSAREG ; Store registers STA OSAREG ; Store registers
STX OSXREG STX OSXREG
STY OSYREG STY OSYREG
@ -201,7 +199,7 @@ BYTWRDGO JSR JMPADDR ; Call the routine
* X,Y,Cy from routine returned to caller * X,Y,Cy from routine returned to caller
BYTWRDEXIT ROR A ; Move Carry to A BYTWRDEXIT ROR A ; Move Carry to A
PLP ; Restore original flags and IRQs PLP ; Restore original flags
ROL A ; Move Carry back to flags ROL A ; Move Carry back to flags
PLA ; Restore A PLA ; Restore A
CLV ; Clear V = Actioned CLV ; Clear V = Actioned
@ -217,7 +215,7 @@ BYTWRDFAIL PHX ; *DEBUG*
BVC BYTEFAIL1 ; Debug turned off BVC BYTEFAIL1 ; Debug turned off
JSR UNSUPBYTWRD ; *DEBUG* JSR UNSUPBYTWRD ; *DEBUG*
BYTEFAIL1 LDX #$FF ; X=&FF if unclaimed BYTEFAIL1 LDX #$FF ; X=&FF if unclaimed
PLP ; Restore original flags and IRQs PLP ; Restore original flags
PLA ; Restore A PLA ; Restore A
BIT SETV ; Set V = Not actioned BIT SETV ; Set V = Not actioned
RTS RTS

3
auxmem.gfx.s
View File

@ -21,15 +21,12 @@ PRCHRSOFT CMP #$A0 ; Convert to screen code
TAX TAX
:B1 PHX :B1 PHX
JSR HCHARADDR ; Addr in VDUADDR JSR HCHARADDR ; Addr in VDUADDR
PHP ; Disable IRQs while
SEI ; toggling memory
>>> WRTMAIN >>> 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
>>> WRTAUX >>> WRTAUX
PLP ; Restore IRQs
PLA ; Recover character PLA ; Recover character
>>> XF2MAIN,DRAWCHAR ; Plot char on HGR screen >>> XF2MAIN,DRAWCHAR ; Plot char on HGR screen
PUTCHRET >>> ENTAUX PUTCHRET >>> ENTAUX