From 4f9351995295a53e1e434a55d92501e393b38b7c Mon Sep 17 00:00:00 2001
From: Vince Weaver <vince@deater.net>
Date: Sat, 27 Oct 2018 23:24:35 -0400
Subject: [PATCH] megamusic: working on making it fit

---
 linker_scripts/apple2_d000.inc |  12 ++
 megamusic/Makefile             |  30 ++-
 megamusic/music_1000.s         | 321 +++++++++++++++++++++++++++++++++
 megamusic/music_2nd_d000.s     |  38 ++++
 megamusic/music_d000.s         | 123 +++++++++++++
 5 files changed, 523 insertions(+), 1 deletion(-)
 create mode 100644 linker_scripts/apple2_d000.inc
 create mode 100644 megamusic/music_1000.s
 create mode 100644 megamusic/music_2nd_d000.s
 create mode 100644 megamusic/music_d000.s

diff --git a/linker_scripts/apple2_d000.inc b/linker_scripts/apple2_d000.inc
new file mode 100644
index 00000000..0bfe9be5
--- /dev/null
+++ b/linker_scripts/apple2_d000.inc
@@ -0,0 +1,12 @@
+MEMORY {
+       ZP: start = $00, size = $1A, type = rw;
+       RAM: start = $D000, size = $3000, file = %O;
+}
+
+SEGMENTS {
+CODE: load = RAM, type = ro;
+RODATA: load = RAM, type = ro;
+DATA: load = RAM, type = rw;
+BSS: load = RAM, type = bss, define = yes;
+ZEROPAGE: load = ZP, type = zp;
+}
diff --git a/megamusic/Makefile b/megamusic/Makefile
index 9fad4355..abeab175 100644
--- a/megamusic/Makefile
+++ b/megamusic/Makefile
@@ -7,11 +7,39 @@ PNG_TO_RLE = ../gr-utils/png2rle
 
 all:	megamusic.dsk
 
-megamusic.dsk:	MEGAMUSIC MEGALOAD HALFMUSIC
+megamusic.dsk:	MEGAMUSIC MEGALOAD HALFMUSIC MUSIC.D000X2 MUSIC.D000 MUSIC.1000
+	$(DOS33) -y megamusic.dsk BSAVE -a 0x1000 MUSIC.1000
+	$(DOS33) -y megamusic.dsk BSAVE -a 0xD000 MUSIC.D000
+	$(DOS33) -y megamusic.dsk BSAVE -a 0xD000 MUSIC.D000X2
 	$(DOS33) -y megamusic.dsk BSAVE -a 0x4000 MEGAMUSIC
 	$(DOS33) -y megamusic.dsk BSAVE -a 0x4000 HALFMUSIC
 	$(DOS33) -y megamusic.dsk BSAVE -a 0x800 MEGALOAD
 
+
+####
+
+MUSIC.1000:	music_1000.o
+	ld65 -o MUSIC.1000 music_1000.o -C ../linker_scripts/apple2_1000.inc
+
+music_1000.o:	music_1000.s
+	ca65 -o music_1000.o music_1000.s
+
+####
+
+MUSIC.D000:	music_d000.o
+	ld65 -o MUSIC.D000 music_d000.o -C ../linker_scripts/apple2_d000.inc
+
+music_d000.o:	music_d000.s
+	ca65 -o music_d000.o music_d000.s
+
+####
+
+MUSIC.D000X2:	music_2nd_d000.o
+	ld65 -o MUSIC.D000X2 music_2nd_d000.o -C ../linker_scripts/apple2_d000.inc
+
+music_2nd_d000.o:	music_2nd_d000.s
+	ca65 -o music_2nd_d000.o music_2nd_d000.s
+
 ####
 
 MEGAMUSIC:	megamusic.o
diff --git a/megamusic/music_1000.s b/megamusic/music_1000.s
new file mode 100644
index 00000000..86d88d16
--- /dev/null
+++ b/megamusic/music_1000.s
@@ -0,0 +1,321 @@
+;mal_pattern = $1100
+;mah_pattern = $1120
+;mbl_pattern = $1140
+;mbh_pattern = $1160
+;mcl_pattern = $1180
+;mch_pattern = $11a0
+;mnl_pattern = $11c0
+;mnh_pattern = $11e0
+
+
+mah03=$d000
+mbl02=$d100
+mbl07=$d200
+mbh07=$d300
+mcl03=$d400
+mch03=$d500
+mnl03=$d600
+mnh01=$d700
+mnh02=$d800
+mnh03=$d900
+mnh07=$da00
+mbh01=$e000
+mbh04=$e100
+mbh05=$e200
+mbh08=$e300
+mbh10=$e400
+mbh11=$e500
+mcl04=$e600
+mcl05=$e700
+mcl07=$e800
+mcl08=$e900
+mcl09=$ea00
+mcl10=$eb00
+mcl11=$ec00
+mch04=$ed00
+mch05=$ee00
+mch07=$ef00
+mch08=$f000
+mch09=$f100
+mch10=$f200
+mch11=$f300
+mnl04=$f400
+mnl05=$f500
+mnl07=$f600
+mnl10=$f700
+mnl11=$f800
+mnh00=$f900
+mnh04=$fa00
+mnh05=$fb00
+mnh08=$fc00
+mnh09=$fd00
+mnh10=$fe00
+mnh11=$ff00
+
+mah30=$d000
+mbh30=$d100
+mcl30=$d200
+mch30=$d300
+mnl30=$d400
+mnh30=$d500
+mcl22=$d600
+mcl23=$d700
+mch22=$d800
+mch23=$d900
+mnh23=$da00
+
+mbh22=$db00
+mbh23=$dc00
+mbl22=$dd00
+mbl23=$de00
+mah11=$df00
+
+MB_VALUE = $91
+MB_FRAME = $94
+MB_PATTERN = $95
+
+	; takes
+	; 3 + 79 +
+	; 80 + 82 + 88 +
+	; 80 + 82 + 88 +
+	; 80 + 82 + 88 +
+	; 80 + 80 +
+	; 21 = 1017
+play_music:
+
+	; self-modify the code
+	lda	MB_PATTERN	; 3
+	and	#$1f		; 2
+	tay			; 2
+
+	lda	mal_pattern,Y	; 4
+	sta	mb_smc1+2	; 4
+	lda	mah_pattern,Y	; 4
+	sta	mb_smc2+2	; 4
+	sta	mb_smc3+2	; 4
+
+	lda	mbl_pattern,Y	; 4
+	sta	mb_smc4+2	; 4
+	lda	mbh_pattern,Y	; 4
+	sta	mb_smc5+2	; 4
+	sta	mb_smc6+2	; 4
+
+	; mcl and mch patterns are the same
+	lda	mcl_pattern,Y	; 4
+	sta	mb_smc7+2	; 4
+	lda	mch_pattern,Y	; 4
+	sta	mb_smc8+2	; 4
+	sta	mb_smc9+2	; 4
+
+	lda	mnl_pattern,Y	; 4
+	sta	mb_smc10+2	; 4
+	lda	mnh_pattern,Y	; 4
+	sta	mb_smc11+2	; 4
+				;=======
+				; 79
+
+
+
+
+	; play the code
+
+	ldy	MB_FRAME	; 3
+				;=======
+
+	; mal
+mb_smc1:
+	lda	mal00,Y		; 4
+	sta	MB_VALUE	; 3
+	ldx	#0		; 2
+	jsr	write_ay_both	; 6+65
+				;=========
+				; 80
+
+	; mah
+mb_smc2:
+	lda	mal00,Y		; 4
+	and	#$f		; 2
+	sta	MB_VALUE	; 3
+	ldx	#1		; 2
+	jsr	write_ay_both	; 6+65
+				;========
+				; 82
+
+mb_smc3:
+	lda	mal00,Y		; 4
+	lsr			; 2
+	lsr			; 2
+	lsr			; 2
+	lsr			; 2
+	sta	MB_VALUE	; 3
+	ldx	#8		; 2
+	jsr	write_ay_both	; 6+65
+				;=======
+				; 88
+
+	; mbl
+mb_smc4:
+	lda	mbl00,Y		; 4
+	sta	MB_VALUE	; 3
+	ldx	#2		; 2
+	jsr	write_ay_both	; 6+65
+				;=======
+				; 80
+	; mbh
+mb_smc5:
+	lda	mbh00,Y		; 4
+	and	#$f		; 2
+	sta	MB_VALUE	; 3
+	ldx	#3		; 2
+	jsr	write_ay_both	; 6+65
+				;=======
+				; 82
+
+mb_smc6:
+	lda	mbh00,Y		; 4
+	lsr			; 2
+	lsr			; 2
+	lsr			; 2
+	lsr			; 2
+	sta	MB_VALUE	; 3
+	ldx	#9		; 2
+	jsr	write_ay_both	; 6+65
+				;======
+				; 88
+	; mcl
+mb_smc7:
+	lda	mal00,Y		; 4
+	sta	MB_VALUE	; 3
+	ldx	#4		; 2
+	jsr	write_ay_both	; 6+65
+				;======
+				; 80
+
+	; mch
+mb_smc8:
+	lda	mal00,Y		; 4
+	and	#$f		; 2
+	sta	MB_VALUE	; 3
+	ldx	#5		; 2
+	jsr	write_ay_both	; 6+65
+				;=======
+				; 82
+
+mb_smc9:
+	lda	mal00,Y		; 4
+	lsr			; 2
+	lsr			; 2
+	lsr			; 2
+	lsr			; 2
+	sta	MB_VALUE	; 3
+	ldx	#10		; 2
+	jsr	write_ay_both	; 6+65
+				;========
+				; 88
+	; mnl
+mb_smc10:
+	lda	mal00,Y		; 4
+	sta	MB_VALUE	; 3
+	ldx	#6		; 2
+	jsr	write_ay_both	; 6+65
+				;=======
+				; 80
+	; mnh
+mb_smc11:
+	lda	mnh00,Y		; 4
+	sta	MB_VALUE	; 3
+	ldx	#7		; 2
+	jsr	write_ay_both	; 6+65
+				;=======
+				; 80
+
+	inc	MB_FRAME	; 5
+
+	bne	mb_no_change	; 3
+				; -1
+	inc	MB_PATTERN	; 5
+	jmp	mb_done_change	; 3
+mb_no_change:
+	lda	$0		; 3
+	nop			; 2
+	nop			; 2
+mb_done_change:
+
+	rts			; 6
+				;=======
+				; 21
+
+.include "mockingboard.s"
+
+.align	$100
+
+; patterns 31 long
+mal_pattern:
+.byte	>mal00,>mal00,>mal02,>mal02,>mal02,>mal02,>mal02,>mal02
+.byte	>mal02,>mal02,>mal02,>mal02,>mal02,>mal02,>mal02,>mal02
+.byte	>mal02,>mal02,>mal02,>mal02,>mal02,>mal02,>mal02,>mal02
+.byte	>mal02,>mal02,>mal02,>mal02,>mal02,>mal02,>mal02,>mal00
+mah_pattern:
+.byte	>mal00,>mal00,>mah02,>mah03,>mah04,>mah05,>mah04,>mah07
+.byte	>mah04,>mah05,>mah10,>mah11,>mah04,>mah05,>mah04,>mah07
+.byte	>mah04,>mah05,>mah10,>mah11,>mah04,>mah05,>mah04,>mah07
+.byte	>mah04,>mah05,>mah10,>mah11,>mah10,>mah11,>mah30,>mal00
+mbl_pattern:
+.byte	>mbl00,>mbl01,>mbl02,>mbl01,>mbl00,>mbl01,>mbl00,>mbl07
+.byte	>mbl00,>mbl01,>mbl10,>mbl11,>mbl00,>mbl01,>mbl00,>mbl07
+.byte	>mbl00,>mbl01,>mbl10,>mbl11,>mbl00,>mbl01,>mbl22,>mbl23
+.byte	>mbl00,>mbl01,>mbl10,>mbl11,>mbl10,>mbl11,>mbl01,>mbl00
+mbh_pattern:
+.byte	>mbh00,>mbh01,>mbh00,>mbh01,>mbh04,>mbh05,>mbh04,>mbh07
+.byte	>mbh08,>mbh05,>mbh10,>mbh11,>mbh04,>mbh05,>mbh04,>mbh07
+.byte	>mbh08,>mbh05,>mbh10,>mbh11,>mbh04,>mbh05,>mbh22,>mbh23
+.byte	>mbh08,>mbh05,>mbh10,>mbh11,>mbh10,>mbh11,>mbh30,>mal00
+mcl_pattern:
+.byte	>mal00,>mal00,>mal00,>mcl03,>mcl04,>mcl05,>mcl04,>mcl07
+.byte	>mcl08,>mcl09,>mcl10,>mcl11,>mcl04,>mcl05,>mcl04,>mcl07
+.byte	>mcl08,>mcl09,>mcl10,>mcl11,>mcl04,>mcl05,>mcl22,>mcl23
+.byte	>mcl08,>mcl09,>mcl10,>mcl11,>mcl10,>mcl11,>mcl30,>mal00
+mch_pattern:
+.byte	>mal00,>mal00,>mal00,>mch03,>mch04,>mch05,>mch04,>mch07
+.byte	>mch08,>mch09,>mch10,>mch11,>mch04,>mch05,>mch04,>mch07
+.byte	>mch08,>mch09,>mch10,>mch11,>mch04,>mch05,>mch22,>mch23
+.byte	>mch08,>mch09,>mch10,>mch11,>mch10,>mch11,>mch30,>mal00
+mnl_pattern:
+.byte	>mal00,>mal00,>mal00,>mnl03,>mnl04,>mnl05,>mnl04,>mnl07
+.byte	>mnl04,>mnl05,>mnl10,>mnl11,>mnl04,>mnl05,>mnl04,>mnl07
+.byte	>mnl04,>mnl05,>mnl10,>mnl11,>mnl04,>mnl05,>mnl04,>mnl07
+.byte	>mnl04,>mnl05,>mnl10,>mnl11,>mnl10,>mnl11,>mnl30,>mal00
+mnh_pattern:
+.byte	>mnh00,>mnh01,>mnh02,>mnh03,>mnh04,>mnh05,>mnh04,>mnh07
+.byte	>mnh08,>mnh09,>mnh10,>mnh11,>mnh04,>mnh05,>mnh04,>mnh07
+.byte	>mnh08,>mnh09,>mnh10,>mnh11,>mnh04,>mnh05,>mnh04,>mnh23
+.byte	>mnh08,>mnh09,>mnh10,>mnh11,>mnh10,>mnh11,>mnh30,>mal00
+
+.align	$100
+
+; total = 2+8+8+11+11+11+7+13=71
+
+mal00:
+.incbin "music/mock.al.00"
+mal02:
+.incbin "music/mock.al.02"
+mah02:
+.incbin "music/mock.ah.02"
+mah04:
+.incbin "music/mock.ah.04"
+mah05:
+.incbin "music/mock.ah.05"
+mah07:
+.incbin "music/mock.ah.07"
+mah10:
+.incbin "music/mock.ah.10"
+mbl00:
+.incbin "music/mock.bl.00"
+mbl01:
+.incbin "music/mock.bl.01"
+mbl10:
+.incbin "music/mock.bl.10"
+mbl11:
+.incbin "music/mock.bl.11"
+mbh00:
+.incbin "music/mock.bh.00"
diff --git a/megamusic/music_2nd_d000.s b/megamusic/music_2nd_d000.s
new file mode 100644
index 00000000..a1766f2e
--- /dev/null
+++ b/megamusic/music_2nd_d000.s
@@ -0,0 +1,38 @@
+.align	$100
+
+;==================================
+; Second $D000 page, 4k of room
+; 11 that only happen in second half, plus dupes
+;mah30:
+.incbin "music/mock.ah.30"
+;mbh30:
+.incbin "music/mock.bh.30"
+;mcl30:
+.incbin "music/mock.cl.30"
+;mch30:
+.incbin "music/mock.ch.30"
+;mnl30:
+.incbin "music/mock.nl.30"
+;mnh30:
+.incbin "music/mock.nh.30"
+;mcl22:
+.incbin "music/mock.cl.22"
+;mcl23:
+.incbin "music/mock.cl.23"
+;mch22:
+.incbin "music/mock.ch.22"
+;mch23:
+.incbin "music/mock.ch.23"
+;mnh23:
+.incbin "music/mock.nh.23"
+;==============5 dupes follow
+;mbh22:
+.incbin "music/mock.bh.22"
+;mbh23:
+.incbin "music/mock.bh.23"
+;mbl22:
+.incbin "music/mock.bl.22"
+;mbl23:
+.incbin "music/mock.bl.23"
+;mah11:
+.incbin "music/mock.ah.11"
diff --git a/megamusic/music_d000.s b/megamusic/music_d000.s
new file mode 100644
index 00000000..279d051f
--- /dev/null
+++ b/megamusic/music_d000.s
@@ -0,0 +1,123 @@
+.align $100
+
+;==================================
+; First $D000 page, 4k of room, room for 16
+;		we dupe 5 of them as we don't have enough
+;		that only occur in 1st half
+
+;mah03:
+.incbin "music/mock.ah.03"
+;mbl02:
+.incbin "music/mock.bl.02"
+;mbl07:
+.incbin "music/mock.bl.07"
+;mbh07:
+.incbin "music/mock.bh.07"
+;mcl03:
+.incbin "music/mock.cl.03"
+;mch03:
+.incbin "music/mock.ch.03"
+;mnl03:
+.incbin "music/mock.nl.03"
+;mnh01:
+.incbin "music/mock.nh.01"
+;mnh02:
+.incbin "music/mock.nh.02"
+;mnh03:
+.incbin "music/mock.nh.03"
+;mnh07:
+.incbin "music/mock.nh.07"
+;==============5 dupes follow
+mbh22:
+.incbin "music/mock.bh.22"
+mbh23:
+.incbin "music/mock.bh.23"
+mbl22:
+.incbin "music/mock.bl.22"
+mbl23:
+.incbin "music/mock.bl.23"
+mah11:
+.incbin "music/mock.ah.11"
+
+
+
+
+
+;================================
+; 32 values to Load at $E000
+;mbh01:
+.incbin "music/mock.bh.01"
+;mbh04:
+.incbin "music/mock.bh.04"
+;mbh05:
+.incbin "music/mock.bh.05"
+;mbh08:
+.incbin "music/mock.bh.08"
+;mbh10:
+.incbin "music/mock.bh.10"
+;mbh11:
+.incbin "music/mock.bh.11"
+;mcl04:
+.incbin "music/mock.cl.04"
+;mcl05:
+.incbin "music/mock.cl.05"
+;mcl07:
+.incbin "music/mock.cl.07"
+;mcl08:
+.incbin "music/mock.cl.08"
+;mcl09:
+.incbin "music/mock.cl.09"
+;mcl10:
+.incbin "music/mock.cl.10"
+;mcl11:
+.incbin "music/mock.cl.11"
+
+
+
+
+;mch04:
+.incbin "music/mock.ch.04"
+;mch05:
+.incbin "music/mock.ch.05"
+;mch07:
+.incbin "music/mock.ch.07"
+;mch08:
+.incbin "music/mock.ch.08"
+;mch09:
+.incbin "music/mock.ch.09"
+;mch10:
+.incbin "music/mock.ch.10"
+;mch11:
+.incbin "music/mock.ch.11"
+
+
+
+;7
+;mnl04:
+.incbin "music/mock.nl.04"
+;mnl05:
+.incbin "music/mock.nl.05"
+;mnl07:
+.incbin "music/mock.nl.07"
+;mnl10:
+.incbin "music/mock.nl.10"
+;mnl11:
+.incbin "music/mock.nl.11"
+
+
+
+; 13
+;mnh00:
+.incbin "music/mock.nh.00"
+;mnh04:
+.incbin "music/mock.nh.04"
+;mnh05:
+.incbin "music/mock.nh.05"
+;mnh08:
+.incbin "music/mock.nh.08"
+;mnh09:
+.incbin "music/mock.nh.09"
+;mnh10:
+.incbin "music/mock.nh.10"
+;mnh11:
+.incbin "music/mock.nh.11"