From bc77fe24db44b23995983cc6077c99dee5c95b33 Mon Sep 17 00:00:00 2001
From: Vince Weaver <vince@deater.net>
Date: Wed, 16 Dec 2020 14:48:40 -0500
Subject: [PATCH] duke: add laser noise

---
 duke/keyboard.s      |  2 ++
 duke/sound_effects.s | 17 +++++++++++++++++
 2 files changed, 19 insertions(+)

diff --git a/duke/keyboard.s b/duke/keyboard.s
index 4d56beeb..6374f42a 100644
--- a/duke/keyboard.s
+++ b/duke/keyboard.s
@@ -201,6 +201,8 @@ return_pressed:
 	lda	LASER_OUT
 	bne	done_return
 
+	jsr	laser_noise
+
 	lda	DUKE_DIRECTION
 	sta	LASER_DIRECTION
 
diff --git a/duke/sound_effects.s b/duke/sound_effects.s
index 4360c55e..27027b42 100644
--- a/duke/sound_effects.s
+++ b/duke/sound_effects.s
@@ -123,3 +123,20 @@ enemy_noise:
 
 done_enemy_noise:
 	rts
+
+	;======================
+	; laser noise
+laser_noise:
+
+	lda	SOUND_STATUS
+	bmi	done_enemy_noise
+
+	lda	#NOTE_D4
+	sta	speaker_frequency
+	lda	#15
+	sta	speaker_duration
+	jsr	speaker_tone
+
+done_laser_noise:
+	rts
+