Add two additional functions

This commit is contained in:
Lucas Scharenbroich 2022-06-27 17:15:27 -05:00
parent 7f70a98a4d
commit d720f0ccac
2 changed files with 49 additions and 0 deletions

View File

@ -105,6 +105,12 @@ _GTEClearOverlay MAC
_GTEGetTileDataAddr MAC
UserTool $2400+GTEToolNum
<<<
_GTEFillTileStore MAC
UserTool $2500+GTEToolNum
<<<
_GTERefresh MAC
UserTool $2600+GTEToolNum
<<<
; EngineMode definitions
; Script definition

View File

@ -88,6 +88,8 @@ _CallTable
adrl _TSClearOverlay-1
adrl _TSGetTileDataAddr-1
adrl _TSFillTileStore-1
adrl _TSRefresh-1
_CTEnd
_GTEAddSprite MAC
UserTool $1000+GTEToolNum
@ -663,6 +665,47 @@ _TSGetTileDataAddr
_TSExit #0;#0
; FillTileStore(tileId)
_TSFillTileStore
:tileId equ FirstParam+0
_TSEntry
stz tmp0
:oloop
stz tmp1
:iloop
ldx tmp1
ldy tmp0
lda :tileId,s
jsr _SetTile
lda tmp1
inc
sta tmp1
cmp #TILE_STORE_WIDTH
bcc :iloop
lda tmp0
inc
sta tmp0
cmp #TILE_STORE_HEIGHT
bcc :oloop
_TSExit #0;#2
; _TSRefresh()
_TSRefresh
_TSEntry
ldx #TILE_STORE_SIZE-2
:loop jsr _PushDirtyTileX
dex
dex
bpl :loop
_TSExit #0;#0
; Insert the GTE code
put Math.s