From e441cd442081f1bef80179a4f78252670e6d31d1 Mon Sep 17 00:00:00 2001
From: Vince Weaver <vincent.weaver@maine.edu>
Date: Mon, 19 Nov 2018 14:39:36 -0500
Subject: [PATCH] chiptune_player: got qkumba's code working.  Much faster

---
 chiptune_player/chiptune_player.s | 29 +++++++++++++++++++++++++----
 1 file changed, 25 insertions(+), 4 deletions(-)

diff --git a/chiptune_player/chiptune_player.s b/chiptune_player/chiptune_player.s
index 0f450b39..90ca0834 100644
--- a/chiptune_player/chiptune_player.s
+++ b/chiptune_player/chiptune_player.s
@@ -310,16 +310,37 @@ new_song:
 	sta	OUTH
 	jsr	print_both_pages
 
-;disk_buff	EQU	LZ4_BUFFER
-;read_size	EQU	$4000
 
-	; open and read a file
 	; needs to be space-padded $A0 30-byte filename
-	; loads to whatever it was BSAVED at (default is $1C00)
+
 	lda	#<readfile_filename
 	sta	namlo
 	lda	#>readfile_filename
 	sta	namhi
+
+	ldy	#0
+	ldx	#30		; 30 chars
+name_loop:
+	lda	(INL),Y
+	beq	space_loop
+	ora	#$80
+	sta	(namlo),Y
+	iny
+	dex
+	bne	name_loop
+	beq	done_name_loop
+space_loop:
+	lda	#$a0		; pad with ' '
+	sta	(namlo),Y
+	iny
+	dex
+	bne	space_loop
+
+done_name_loop:
+
+	; open and read a file
+	; loads to whatever it was BSAVED at (default is $1C00)
+
 	jsr	read_file		; read KRW file from disk