From e0d796a09629441f41a40664da2cfb6981f7c4c3 Mon Sep 17 00:00:00 2001
From: "B. Watson" <yalhcru@gmail.com>
Date: Sun, 31 Jan 2016 01:36:22 -0500
Subject: tweaking new explosion look

---
 explosion.s | 19 ++++++++++++++-----
 1 file changed, 14 insertions(+), 5 deletions(-)

(limited to 'explosion.s')

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
-- 
cgit v1.2.3