iigs-game-engine/demos/shell/gen/App.TileSetAnim.s

66 lines
1.6 KiB
ArmAsm

TileAnimInit ENT
ldx #168
ldy #0
jsl CopyTileToDyn
ldx #169
ldy #1
jsl CopyTileToDyn
ldx #208
ldy #2
jsl CopyTileToDyn
ldx #209
ldy #3
jsl CopyTileToDyn
lda #TileAnim_168 ; low word of handler
ldx #^TileAnim_168 ; high word of handler
ldy #15 ; number of ticks
jsl StartScript
lda #TileAnim_169
ldx #^TileAnim_169
ldy #15
clc
jsl StartScript
lda #TileAnim_208
ldx #^TileAnim_208
ldy #15
clc
jsl StartScript
lda #TileAnim_209
ldx #^TileAnim_209
ldy #15
clc
jsl StartScript
rts
TileAnim_168
dw $8006,169,0,0
dw $8006,171,0,0
dw $8006,173,0,0
dw $cd06,175,0,0
TileAnim_169
dw $8006,170,1,0
dw $8006,172,1,0
dw $8006,174,1,0
dw $cd06,176,1,0
TileAnim_208
dw $8006,209,2,0
dw $8006,211,2,0
dw $8006,213,2,0
dw $cd06,215,2,0
TileAnim_209
dw $8006,210,3,0
dw $8006,212,3,0
dw $8006,214,3,0
dw $cd06,216,3,0