From 5940292bb6e3344f85660cf5f0d02b74200acf59 Mon Sep 17 00:00:00 2001
From: b1ackmai1er <difficultylevelhigh@gmail.com>
Date: Sun, 1 Dec 2019 22:40:44 +0800
Subject: [PATCH] Update Tune.asm

Default to .PT3 file extension if non given.
---
 Source/Apps/Tune/Tune.asm | 13 ++++++++++++-
 1 file changed, 12 insertions(+), 1 deletion(-)

diff --git a/Source/Apps/Tune/Tune.asm b/Source/Apps/Tune/Tune.asm
index 2aec55fc..54429c23 100644
--- a/Source/Apps/Tune/Tune.asm
+++ b/Source/Apps/Tune/Tune.asm
@@ -184,7 +184,18 @@ NOSCG:
 	LD	A,(FCB+1)		; Get first char of filename
 	CP	' '			; Compare to blank
 	JP	Z,ERRCMD		; If so, missing filename
-	LD	A,(FCB+9)		; Extension char 1
+	LD	A,(FCB+9)		; If the filetype
+	CP	' '			; is blanks
+	JR	NZ,HASEXT		; then assume
+	LD	A,'P'			; type PT3.
+	LD	(FCB+9),A	
+	LD	A,'T'			; Fill in
+	LD	(FCB+10),A		; the file
+	LD	A,'3'			; extension
+	LD	(FCB+11),A		; and the
+	LD	C,TYPPT3		; file type
+	JR	_SET
+HASEXT	LD	A,(FCB+9)		; Extension char 1
 	CP	'P'			; Check for 'P'
 	JP	NZ,CHKMYM		; If not, check for MYM extension
 	LD	A,(FCB+10)		; Extension char 2