seppuku always kills

scorch.asm

@@ -430,12 +430,13 @@ ShootNow
     
     lda HitFlag ;0 if missed
     beq missed
-Seppuku
+    
     lda #0
     sta FallDown1
     sta FallDown2
     jsr Explosion
 
+continueMainRoundLoopAfterSeppuku
     ;here we clear offensive text (after a shoot)
     ldy TankNr
     mva #0 plot4x4color
@@ -562,6 +563,16 @@ NoPlayerNoDeath
     ; if processor is here it means there are no more explosions
     jmp MainRoundLoop
 	.endp
+	
+;---------------------------------
+.proc Seppuku
+    lda #0
+    sta FallDown1
+    sta FallDown2
+    lda #1
+    jsr ExplosionDirect
+    jmp continueMainRoundLoopAfterSeppuku
+.endp
 ;---------------------------------
 PlayerXdeath .proc
 

weapons.asm

@@ -2,7 +2,7 @@
 
     .IF *>0 ;this is a trick that prevents compiling this file alone
 ;--------------------------------------------------
-Explosion .proc
+.proc Explosion
 ;--------------------------------------------------
     ;cleanup of the soil fall down ranges (left and right)
     mwa #screenwidth RangeLeft