driven: make some common defines

demos/driven/Makefile

@@ -172,7 +172,9 @@ clean:
 	rm -f *~ *.o *.lst HELLO SECOND QBOOT QLOAD MUSIC START
 	rm -f qload.inc qload2.inc music.inc music2.inc
 	cd part00_intro && make clean
+	cd part01_dni && make clean
 	cd part05_atrus && make clean
+	cd part07_maglev && make clean
 	cd part10_graphics && make clean
 	cd part20_credits && make clean
 

demos/driven/common_defines.inc

@@ -2,3 +2,12 @@
 ;div7_table      = $1d00
 hposn_low       = $1e00
 hposn_high      = $1f00
+
+
+PART_MUSIC	=	1
+PART_INTRO	=	2
+PART_CREDITS	=	3
+PART_DNI	=	4
+PART_ATRUS	=	5
+PART_GRAPHICS	=	6
+PART_MAGLEV	=	7

demos/driven/start.s

@@ -28,19 +28,6 @@ restart:
 	sta	DRAW_PAGE
 
 
-	;========================
-	; fake BIOS
-	;========================
-
-;	lda	#13			; load FAKE_BIOS
-;	sta	WHICH_LOAD
-
-;	jsr	load_file
-
-	; run fake boot / fake bios
-
-;	jsr	$6000
-
 	;==================================
 	; load music into the language card
 	;       into $D000 set 1
@@ -50,7 +37,7 @@ restart:
 	bit	$C083
 	bit	$C083
 
-	lda	#1			; load MUSIC from disk
+	lda	#PART_MUSIC		; load MUSIC from disk
 	sta	WHICH_LOAD
 
 	jsr	load_file
@@ -100,6 +87,7 @@ skip_all_checks:
 	; Pre-Load some programs into AUX MEM
 	;====================================
 	;====================================
+	; TODO: do d'ni countdown
 	; 4 - 9
 
 	sta	$C008		; use MAIN zero-page/stack/language card
@@ -142,26 +130,49 @@ load_program_loop:
 .endif
 	;=======================
 	;=======================
-	; Load intro
+	; Run intro
 	;=======================
 	;=======================
 
 	; load from disk
 
-	lda     #2		; INTRO
+	lda     #PART_INTRO		; INTRO
 	sta     WHICH_LOAD
 	jsr     load_file
 
-	;=======================
-	;=======================
 	; Run intro
-	;=======================
-	;=======================
 
 	cli			; start music
 
 	jsr	$8000
 
+
+	;=======================
+	;=======================
+	; Run Maglev
+	;=======================
+	;=======================
+
+	sei				; stop music interrupts
+	jsr	mute_ay_both
+	jsr	clear_ay_both		; stop from making noise
+
+	; load maglev
+
+	lda	#PART_MAGLEV		; Maglev
+	sta	WHICH_LOAD
+	jsr	load_file
+
+
+	; restart music
+
+	cli		; start interrupts (music)
+
+	; run maglev
+
+	jsr	$4000
+
+
 	;=======================
 	;=======================
 	; Run Atrus
@@ -172,9 +183,9 @@ load_program_loop:
 	jsr	mute_ay_both
 	jsr	clear_ay_both		; stop from making noise
 
-	; load dni
+	; load atrus
 
-	lda	#5			; Atrus
+	lda	#PART_ATRUS		; Atrus
 	sta	WHICH_LOAD
 	jsr	load_file
 
@@ -200,7 +211,7 @@ load_program_loop:
 
 	; load dni
 
-	lda	#6			; GRAPHICS
+	lda	#PART_GRAPHICS		; GRAPHICS
 	sta	WHICH_LOAD
 	jsr	load_file
 
@@ -225,7 +236,7 @@ load_program_loop:
 
 	; load credits
 
-	lda	#3			; CREDITS
+	lda	#PART_CREDITS			; CREDITS
 	sta	WHICH_LOAD
 	jsr	load_file