Apple-2-SW
/
Applecorn
mirror of https://github.com/bobbimanners/Applecorn.git
1
0
Fork 0
Code Issues Projects Releases Wiki Activity

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

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

3
auxmem.gfx.s
View File

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