aboutsummaryrefslogtreecommitdiff
path: root/explosion.s
diff options
context:
space:
mode:
authorB. Watson <yalhcru@gmail.com>2016-01-31 01:36:22 -0500
committerB. Watson <yalhcru@gmail.com>2016-01-31 01:36:22 -0500
commite0d796a09629441f41a40664da2cfb6981f7c4c3 (patch)
tree0c22d6de18b2bb14adbc498d335c71902e1a7b80 /explosion.s
parent9e512fdba658c9924c900c0ea67562f70c524e9a (diff)
downloadtaipan-e0d796a09629441f41a40664da2cfb6981f7c4c3.tar.gz
tweaking new explosion look
Diffstat (limited to 'explosion.s')
-rw-r--r--explosion.s19
1 files changed, 14 insertions, 5 deletions
diff --git a/explosion.s b/explosion.s
index dc72538..eebf3ab 100644
--- a/explosion.s
+++ b/explosion.s
@@ -31,27 +31,36 @@ _explosion:
; {
@loop:
- lda #$05
+ lda #$03
sta iloop_count
@iloop:
- lda RTCLOK+2
-@a:
-cmp RTCLOK+2
- beq @a
+ ldx #0 ; jsleep(2)
+ lda #$02
+ jsr _jsleep
+ ldx #2
@b:
lda VCOUNT
cmp #(4+8)*4
bne @b
+
+@d:
sta WSYNC
lda RANDOM
sta CHBASE
+ lda VCOUNT
+ cmp #(4+23)*4
+ bne @d
+ lda #$e0
+ sta CHBASE
lda RTCLOK+2
@c:
cmp RTCLOK+2
beq @c
+ dex
+ bne @b
dec iloop_count
bne @iloop