Apple-2gs-SW/iigs-game-engine
1
0
Fork 0
mirror of https://github.com/lscharen/iigs-game-engine.git synced 2024-06-03 14:29:33 +00:00
Code Issues Projects Releases Wiki Activity

Fix stack initialization bug

Browse Source
This commit is contained in:
Lucas Scharenbroich 2021-07-07 16:55:41 -05:00
parent 92611281a4
commit 39f61087ce
1 changed files with 10 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
src/blitter/PEISlammer.s
View File

@ -9,7 +9,10 @@ PEISlam
stx :screen_width ; save the width
phd ; save the current direct page and assign the base
tcd ; creen address to the direct page register
tcd ; screen address to the direct page register
clc
adc :screen_width ; screen address of the right edge (will go in stack)
tax ; but cache in x register for a bit....
tsc
sta :stk_save ; save the stack pointer to restore later
@ -37,14 +40,16 @@ PEISlam
dex ; decrement the inner counter
bne :inner ; if not zero, no break; go to the next line
tsx ; save the current stack
_R0W0 ; restore the execution environment and
lda :stk_save ; give a few cycles to catch some interrupts
tcs
cli ; fall through here -- saves a BRA instruction
:outer
ldx #8 ; Enable interrupts at least once every 8 lines
sei
txs ; set the stack address to the right edge
ldx #8 ; Enable interrupts at least once every 8 lines
_R1W1
:inner jmp $0000
@ -110,6 +115,9 @@ PEISlam