megademo: use interrupt audio in the gaps

megademo/c64_opener.s

@@ -348,6 +348,8 @@ no_c64_keypress:
 
 done_c64:
 	bit	KEYRESET
+	;jsr	mockingboard_mute
+	cli
 	rts						; 6
 
 

megademo/check_email.s

@@ -80,6 +80,8 @@ init_email_letters:
 	; GR part
 	bit	PAGE0
 
+	; disable interrupt music
+	sei
 
 	;==============================
 	; setup graphics for vapor lock

megademo/falling_apple.s

@@ -65,6 +65,7 @@ falling_apple:
 	; GR part
 	bit	PAGE0
 
+	sei
 
 	;==============================
 	; setup graphics for vapor lock
@@ -212,6 +213,8 @@ fa_no_keypress:
 
 fa_done:
 	bit	KEYRESET	; clear keypress	; 4
+;	jsr	mockingboard_mute
+	cli
 	rts						; 6
 
 

megademo/megademo.s

@@ -9,6 +9,7 @@
 
 play_music=$1000
 mockingboard_init=$1100
+mockingboard_mute=$11a1
 
 
 megademo_start:				; this should end up at $4000

megademo/mockingboard.s

@@ -202,5 +202,8 @@ write_ay_both:
 								;===========
 								;       65
 
-
+mockingboard_mute:
-
+	ldx	#7
+	lda	#$ff
+	sta	MB_VALUE
+	jmp	write_ay_both

megademo/starring.s

@@ -89,6 +89,7 @@ starring:
 	; GR part
 	bit	PAGE0
 
+	sei
 
 	;==============================
 	; setup graphics for vapor lock
@@ -271,6 +272,8 @@ st_no_keypress:
 
 st_done:
 	bit	KEYRESET	; clear keypress	; 4
+	;jsr	mockingboard_mute
+	cli
 	rts						; 6
 
 ;.include "starring1.inc"

megademo/starring_people.s

@@ -85,6 +85,7 @@ sp_smc6:
 	; GR part
 	bit	PAGE0
 
+	sei
 
 	;==============================
 	; setup graphics for vapor lock
@@ -299,6 +300,8 @@ sp_no_keypress:
 
 sp_done:
 	bit	KEYRESET	; clear keypress	; 4
+	; jsr	mockingboard_mute
+	cli
 	rts						; 6