mboard: logo mockingboard demo is more or less working

logo/mboard/Makefile

@@ -8,7 +8,7 @@ LINKER_SCRIPTS = ../../linker_scripts
 
 all:	mboard_logo.dsk mboard_prodos.dsk
 
-mboard_logo.dsk:	LOGO3 MUSIC
+mboard_logo.dsk:	LOGO3 MUSIC DEMO
 	cp ../dsks/apple_logo_ii.dsk ./mboard_logo.dsk
 	$(PRODOS) -y mboard_logo.dsk -t BIN -a 0x2000 SAVE LOGO3
 	$(PRODOS) -y mboard_logo.dsk DELETE FORMAT
@@ -24,7 +24,7 @@ mboard_logo.dsk:	LOGO3 MUSIC
 #	$(PRODOS) -y mboard_logo.dsk DELETE SAMPLES/LOGO.SINGS
 	$(PRODOS) -y mboard_logo.dsk -t BIN -a 0x4C00 SAVE MUSIC
 	$(PRODOS) -y mboard_logo.dsk -t BIN -a 0x2000 SAVE ./music/Fret.pt3 FRET.PT3
-
+	$(PRODOS) -y mboard_logo.dsk SAVE -t TXT DEMO
 
 mboard_prodos.dsk:	MUSIC
 	cp ../dsks/ProDOS_2_4_2.dsk ./mboard_prodos.dsk
@@ -51,8 +51,8 @@ music.o:	music.s \
 
 ####
 
-#RR:	rr.logo
-#	$(TEXT_TO_PRODOS) < rr.logo > RR
+DEMO:	demo.logo
+	$(TEXT_TO_PRODOS) < demo.logo > DEMO
 
 ####
 

logo/mboard/demo.logo

@@ -0,0 +1,52 @@
+TO TTREE :N
+TPAIR :N
+RT 45
+TPAIR :N
+BK :N * 3
+END
+
+TO TPAIR :N
+TREE :N
+RT 180
+TREE :N
+SETH 0
+END
+
+TO TREE :LENGTH
+IF :LENGTH < 2 [STOP]
+LEFT 45
+FORWARD :LENGTH
+TREE :LENGTH / 2
+BACK :LENGTH
+RIGHT 90
+FORWARD :LENGTH
+TREE :LENGTH / 2
+BACK :LENGTH
+LEFT 45
+END
+
+TO SETUP :REF
+PU SETPOS :REF PD
+END
+
+TO CTREE
+PU
+MAKE "X ((RANDOM 200) - 100)
+MAKE "Y ((RANDOM 100) - 50)
+MAKE "XY SENTENCE :X :Y
+SETPOS :XY
+PD
+TTREE (RANDOM 7) + 4
+SETBG RANDOM 7
+END
+
+TO DEMO
+CS
+.BLOAD "FRET.PT3 4096
+.BLOAD "MUSIC 19456
+.CALL 19456
+REPEAT 100 [ CTREE ]
+END
+
+MAKE "STARTUP [DEMO]
+

logo/mboard/music.s

@@ -58,7 +58,8 @@ mockingboard_not_found:
 	.include "nozp.inc"
 
 
-PT3_LOC = $2000
+PT3_LOC = $1000
+;PT3_LOC = $2000
 ;.align	$100
 song:
 ;.incbin "../../demos/applebot_demo/music/mAZE_-_The_Upbeated_Eaten_Apple.pt3"

logo/mboard/pt3_lib_mockingboard_setup.s

@@ -254,6 +254,8 @@ done_apple_detect:
 ;	sta	$C005
 	sta	$C009		; return to main memory
 
+	; manually set IRQ vector as LOGO leaves this with empty AUX pages?
+
 	lda	#$C3
 	sta	$FFFF
 	lda	#$FA