From cac4e5859e7f1344d51e728697e53c473ab9d4a4 Mon Sep 17 00:00:00 2001
From: FeralChild64 <you@example.com>
Date: Fri, 14 Jun 2019 21:23:02 +0200
Subject: [PATCH] implemented SETNAM routine

---
 c64/kernal/setnam.s | 9 +++++++++
 1 file changed, 9 insertions(+)

diff --git a/c64/kernal/setnam.s b/c64/kernal/setnam.s
index 8c2d0b86..55ae5b7f 100644
--- a/c64/kernal/setnam.s
+++ b/c64/kernal/setnam.s
@@ -1,3 +1,12 @@
 ; Function defined on pp272-273 of C64 Programmers Reference Guide
+
 setnam:
+
+	;; There are 6 sane ways to implement this routine,
+	;; I hope this one won't cause similarity to CBM code
+
+	sta current_filename_length
+	sty current_filename_ptr + 1
+	stx current_filename_ptr + 0
+
 	rts