Apple-2gs-SW/iigs-game-engine
1
0
Fork 0
mirror of https://github.com/lscharen/iigs-game-engine.git synced 2024-06-04 05:29:33 +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 _TSExit #0;#4
; SetPalette(palNum, Pointer)
_TSSetPalette _TSSetPalette
:ptr equ FirstParam+0 :ptr equ FirstParam+0
:palNum equ FirstParam+4 :palNum equ FirstParam+4
@ -390,14 +391,15 @@ _TSSetPalette
_TSEntry _TSEntry
phb phb
lda :ptr+2 lda :ptr+3,s ; add one extra byte for the phb
xba
pha pha
plb plb
plb plb
lda :ptr lda :ptr+1,s
tax tax
lda :palNum lda :palNum+1,s
jsr _SetPalette jsr _SetPalette
plb plb
@ -526,6 +528,9 @@ _TSSetBG0TileMapInfo
lda :ptr+2,s lda :ptr+2,s
sta TileMapPtr+2 sta TileMapPtr+2
lda #DIRTY_BIT_BG0_REFRESH ; force a refresh of the BG0 on the next Render
tsb DirtyBits
_TSExit #0;#8 _TSExit #0;#8
; SetBG1TileMapInfo(width, height, ptr) ; SetBG1TileMapInfo(width, height, ptr)
@ -553,6 +558,7 @@ _TSSetBG1TileMapInfo
put CoreImpl.s put CoreImpl.s
put Memory.s put Memory.s
put Timer.s put Timer.s
put TileMap.s
put Graphics.s put Graphics.s
put Tiles.s put Tiles.s
put Sprite.s put Sprite.s