pt3: start of visualization

yes, a thin grey line

pt3_player/pt3_player.s

@@ -19,6 +19,8 @@ pt3_setup:
 	bit	SET_GR
         bit	TEXTGR		; split text/graphics
 
+	jsr	clear_screens
+
 	; Init disk code
 
 	jsr	rts_init
@@ -135,6 +137,10 @@ mockingboard_found:
 	;============================
 main_loop:
 
+	; Do the visualization
+
+	jsr	draw_fire_frame
+	jsr	page_flip
 
 check_done:
 	lda	#$ff
@@ -160,13 +166,18 @@ done_play:
 	lda	#0
 	sta	DONE_PLAYING
 
-;	lda	#0
-;	sta	CH
+	; clear the flame for now
+	jsr	fire_setline
+
 
 ;	jsr	clear_bottoms
 
 	jsr	new_song
 
+	; clear the flame for now
+	lda	#7
+	jsr	fire_setline
+
 	cli				; re-enable interrupts
 
 	jmp	main_loop
@@ -192,13 +203,6 @@ new_song:
 ;	sta	B_VOLUME
 ;	sta	C_VOLUME
 ;	sta	COPY_OFFSET
-;	sta	DECOMPRESS_TIME
-;	sta	COPY_TIME
-;	sta	MB_CHUNK_OFFSET
-;	lda	#$20
-;	sta	DECODER_STATE
-;	lda	#3
-;	sta	CHUNKSIZE
 
 	;===========================
 	; Print loading message
@@ -352,7 +356,7 @@ done_name_loop:
 	jsr	pt3_init_song
 
 ;=================================
-; BLARCH
+; Calculate Length of Song
 ;=================================
 	lda	#$0
 	sta	current_line
@@ -576,7 +580,7 @@ song_list:
 .include	"text_print.s"
 .include	"mockingboard_a.s"
 .include	"gr_fast_clear.s"
-;.include	"../asm_routines/pageflip.s"
+.include	"pageflip.s"
 .include	"gr_setpage.s"
 .include	"qkumba_rts.s"
 ;.include	"../asm_routines/gr_hlin.s"

pt3_player/zp.inc

@@ -117,7 +117,9 @@ MB_CHUNK_OFFSET EQU $A2
 DONE_SONG	EQU $A3
 FIRE_FB_L	EQU $A4
 FIRE_FB_H	EQU $A5
-
+FIRE_FB2_L	EQU $A6
+FIRE_FB2_H	EQU $A7
+FIRE_FB_LINE	EQU $A8
 
 ; More zero-page addresses
 ; we try not to conflict with anything DOS, MONITOR or BASIC related