From 4fdf1f88640fa6eb9eccffb3f6f909b47211d96f Mon Sep 17 00:00:00 2001
From: Vince Weaver <vincent.weaver@maine.edu>
Date: Wed, 21 Feb 2018 16:56:56 -0500
Subject: [PATCH] chiptune_player: add LOADING message

---
 asm_routines/gr_fast_clear.s      | 20 +++++++++++++++++++-
 chiptune_player/TODO              |  2 +-
 chiptune_player/chiptune_player.s | 21 ++++++++++++++++++++-
 3 files changed, 40 insertions(+), 3 deletions(-)

diff --git a/asm_routines/gr_fast_clear.s b/asm_routines/gr_fast_clear.s
index 12bc78b7..796b985a 100644
--- a/asm_routines/gr_fast_clear.s
+++ b/asm_routines/gr_fast_clear.s
@@ -1,4 +1,3 @@
-
 clear_screens:
 	;===================================
 	; Clear top/bottom of page 0
@@ -20,6 +19,25 @@ clear_screens:
 
         rts
 
+clear_bottoms:
+	;===================================
+	; Clear bottom of page 0
+	;===================================
+
+	lda	#$0
+	sta	DRAW_PAGE
+	jsr	clear_bottom
+
+	;===================================
+	; Clear bottom of page 1
+	;===================================
+
+	lda	#$4
+	sta	DRAW_PAGE
+	jsr	clear_bottom
+
+        rts
+
 
 
 	;=========================================================
diff --git a/chiptune_player/TODO b/chiptune_player/TODO
index 7f683706..0941b767 100644
--- a/chiptune_player/TODO
+++ b/chiptune_player/TODO
@@ -2,4 +2,4 @@
 + LZ4 decompression
 + Loop support
 + Right/Left arrows on screen
-+ "LOADING..." message while loading from disk
+
diff --git a/chiptune_player/chiptune_player.s b/chiptune_player/chiptune_player.s
index 5e10e8aa..042cbdb1 100644
--- a/chiptune_player/chiptune_player.s
+++ b/chiptune_player/chiptune_player.s
@@ -316,6 +316,24 @@ new_song:
 	lda	#0
 	sta	C_VOLUME
 
+	;===========================
+	; Print loading message
+	;===========================
+
+	jsr	clear_bottoms		; clear bottom of page 0/1
+
+	lda	#0
+	sta	CH
+	lda	#21
+	sta	CV
+
+	lda	#<loading_message
+	sta	OUTL
+	lda	#>loading_message
+	sta	OUTH
+        jsr     print_both_pages
+
+
 	;===========================
 	; init pointer to the music
 	;===========================
@@ -338,7 +356,7 @@ new_song:
 	; Print Title/Author info
 	;=========================
 
-	jsr	clear_screens		; clear top/bottom of page 0/1
+	jsr	clear_bottoms		; clear bottom of page 0/1
 
 	lda     #<file_info
         sta     OUTL
@@ -440,6 +458,7 @@ mocking_message:	.asciiz "LOOKING FOR MOCKINGBOARD IN SLOT #4"
 not_message:		.byte   "NOT "
 found_message:		.asciiz "FOUND"
 done_message:		.asciiz "DONE PLAYING"
+loading_message:	.asciiz "LOADING..."
 
 ;============
 ; graphics