Fix simple script handling

This commit is contained in:
Lucas Scharenbroich 2022-06-26 23:32:15 -05:00
parent 8aafd5812b
commit b7d061e666
4 changed files with 3 additions and 6 deletions

View File

@ -12,7 +12,6 @@ TileAnimInit
pea #170 pea #170
pea #3 pea #3
_GTECopyTileToDynamic _GTECopyTileToDynamic
rts
pea #15 pea #15
pea #^TileAnim pea #^TileAnim

View File

@ -20,8 +20,6 @@ SetBG1XPos EXT
SetBG1YPos EXT SetBG1YPos EXT
CopyBG0Tile EXT CopyBG0Tile EXT
CopyBG1Tile EXT CopyBG1Tile EXT
CopyTileToDyn EXT
Render EXT
; SCB/Palette binding (high bit of array point indicates whether to bind to BG0 Y position (0) ; SCB/Palette binding (high bit of array point indicates whether to bind to BG0 Y position (0)
; or BG1 Y position (1). ; or BG1 Y position (1).

View File

@ -47,7 +47,6 @@ _StartScript phx ; Save the script array address
sta Timers+8,x sta Timers+8,x
pla pla
sta Timers+10,x sta Timers+10,x
rts rts
:err :err
@ -84,6 +83,7 @@ _dss_loop phx ; Save the command address
txy ; Cache in the y-register txy ; Cache in the y-register
lda: 0,x ; Load the command word lda: 0,x ; Load the command word
pha ; Stash it pha ; Stash it
and #$001E ; Only have 16 built-in commands. Use the _UserCallback and #$001E ; Only have 16 built-in commands. Use the _UserCallback
@ -162,7 +162,7 @@ _SetDTile
ldx: ARG1,y ldx: ARG1,y
lda: ARG2,y lda: ARG2,y
tay tay
jsl CopyTileToDyn jsr CopyTileToDyn
brl _dss_cmd_rtn brl _dss_cmd_rtn
_UserCallback _UserCallback

View File

@ -70,7 +70,7 @@ _AddTimer
:oneshot txa ; return the slot ID and a success status :oneshot txa ; return the slot ID and a success status
clc clc
rtl rts
:notimers ply :notimers ply
pla pla