chiptune_player: add LOADING message

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
+
 
 
 	;=========================================================

chiptune_player/TODO

@@ -2,4 +2,4 @@
 + LZ4 decompression
 + Loop support
 + Right/Left arrows on screen
-+ "LOADING..." message while loading from disk
+

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