From: cuz <cuz@b7a2c559-68d2-44c3-8de9-860c34a00d81>
Date: Mon, 18 Nov 2002 19:37:02 +0000 (+0000)
Subject: Allow more chars in filenames
X-Git-Tag: V2.12.0~2091
X-Git-Url: https://git.sur5r.net/?a=commitdiff_plain;h=ca905a870553c9def665801727ab07479762a2e0;p=cc65

Allow more chars in filenames


git-svn-id: svn://svn.cc65.org/cc65/trunk@1541 b7a2c559-68d2-44c3-8de9-860c34a00d81
---

diff --git a/libsrc/cbm/filename.s b/libsrc/cbm/filename.s
index 360c6d796..8d00d35be 100644
--- a/libsrc/cbm/filename.s
+++ b/libsrc/cbm/filename.s
@@ -74,16 +74,23 @@ nameloop:
         lda     (ptr1),y        ; Get next char from filename
         beq     namedone        ; Jump if end of name reached
 
-; Check for valid chars in the file name
-
+; Check for valid chars in the file name. We allow letters, digits, plus some
+; additional chars from a table.
+
+        ldx     #fncharcount-1
+namecheck:
+        cmp     fnchars,x
+        beq     nameok
+        dex
+        bpl     namecheck
         tax
         lda     __ctype,x
-        and     #CT_ALNUM       ; Letters and digits are allowed
+        and     #(CT_LOWER|CT_DIGIT)
         beq     invalidname
 
 ; Check the maximum length, store the character
 
-        ldx     fnlen
+nameok: ldx     fnlen
         cpx     #14             ; Maximum length reached?
         bcs     invalidname
         lda     (ptr1),y        ; Reload char
@@ -154,5 +161,9 @@ fnlen:  .res    1
 fncmd:  .byte   's'             ; Use as scratch command
 fnbuf:  .res    20
 
+.rodata
+; Characters that are ok in filenames besides digits and letters
+fnchars:.byte   ".,-_+()"
+fncharcount = *-fnchars