Apple-2gs-SW/iigs-game-engine
1
0
Fork 0
mirror of https://github.com/lscharen/iigs-game-engine.git synced 2025-02-16 10:32:20 +00:00
Code Issues Projects Releases Wiki Activity

Fix argument handling in SetPalette

Browse Source
This commit is contained in:
Lucas Scharenbroich 2022-06-25 21:21:20 -05:00
parent 814a8c584b
commit c257d72060
1 changed files with 9 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
src/Tool.s
View File

@ -383,6 +383,7 @@ _TSCopyTileToDynamic
_TSExit #0;#4
; SetPalette(palNum, Pointer)
_TSSetPalette
:ptr equ FirstParam+0
:palNum equ FirstParam+4
@ -390,14 +391,15 @@ _TSSetPalette
_TSEntry
phb
lda :ptr+2
lda :ptr+3,s ; add one extra byte for the phb
xba
pha
plb
plb
lda :ptr
lda :ptr+1,s
tax
lda :palNum
lda :palNum+1,s
jsr _SetPalette
plb
@ -526,6 +528,9 @@ _TSSetBG0TileMapInfo
lda :ptr+2,s
sta TileMapPtr+2
lda #DIRTY_BIT_BG0_REFRESH ; force a refresh of the BG0 on the next Render
tsb DirtyBits
_TSExit #0;#8
; SetBG1TileMapInfo(width, height, ptr)
@ -553,6 +558,7 @@ _TSSetBG1TileMapInfo
put CoreImpl.s
put Memory.s
put Timer.s
put TileMap.s
put Graphics.s
put Tiles.s
put Sprite.s