tweaking new explosion look

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