duke: add laser noise

2020-12-16 14:48:40 -05:00 · 2020-12-16 14:48:40 -05:00 · bc77fe24db
parent 9b898272f2
commit bc77fe24db
2 changed files with 19 additions and 0 deletions
--- 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

--- 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
+