megamusic: stable language card code

megamusic/falling_apple.s

@@ -150,20 +150,17 @@ page1_loop:			; delay 115+(7 loop)+4 (bit)+4(extra)
 	;   -1 (+1-2) from above
 	;  -25 inc framecount
 	;   -7 see if timeout
-	;-1031 play_music
+	;-1038 play_music
 	;  -10 keypress
 	;================
-	; 3476
+	; 3469
 
-	jsr	play_music	; 6+1025
+	jsr	play_music	; 6+1032
 
+	; Try X=9 Y=68 cycles=3469
 
-	; Try X=29 Y=23 cycles=3474 R2
-
-	nop
-
-	ldy	#23							; 2
-faloop1:ldx	#29							; 2
+	ldy	#68							; 2
+faloop1:ldx	#9							; 2
 faloop2:dex								; 2
 	bne	faloop2							; 2nt/3
 	dey								; 2

megamusic/music_1000.s

@@ -75,22 +75,35 @@ MB_FRAME = $94
 MB_PATTERN = $95
 
 	; takes
-	; 4 +
-	; 3 + 79 +
-	; 80 + 82 + 88 +
-	; 80 + 82 + 88 +
-	; 80 + 82 + 88 +
-	; 80 + 80 +
-	; 25 = 1025
+	;   7 load pattern
+	;  11 lang card setup
+	;  76 smc
+	;   3 loop init
+	; 910 play music 80 + 82 + 88 + 80 + 82 + 88 + 80 + 82 + 88 + 80 + 80
+	;  25 end
+	;==========
+	;      = 1032
 play_music:
-	; turn on language card
-	lda	$C088		; 4
 
 	; self-modify the code
 	lda	MB_PATTERN	; 3
 	and	#$1f		; 2
 	tay			; 2
 
+	; if > 16 use $D000 PAGE2 of language card
+	cpy	#16		; 2
+	bcs	use_page2	; 3
+use_page1:
+	; turn on language card	; -1
+	lda	$C088		; 4
+	jmp	done_lang_card	; 3
+use_page2:
+	lda	$C080		; 4
+	nop			; 2
+done_lang_card:
+
+
+
 	lda	mal_pattern,Y	; 4
 	sta	mb_smc1+2	; 4
 	lda	mah_pattern,Y	; 4
@@ -115,7 +128,7 @@ play_music:
 	lda	mnh_pattern,Y	; 4
 	sta	mb_smc11+2	; 4
 				;=======
-				; 79
+				; 76