6502/cc65
1
0
Fork 0
mirror of https://github.com/cc65/cc65.git synced 2024-12-23 04:30:10 +00:00
Code Issues Projects Releases Wiki Activity

Allow file names up to 16 chars

Browse Source 
git-svn-id: svn://svn.cc65.org/cc65/trunk@1814 b7a2c559-68d2-44c3-8de9-860c34a00d81
This commit is contained in:
cuz 2002-12-21 00:06:41 +00:00
parent d0c237bcd8
commit 9227123e16
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
libsrc/cbm/filename.s
View File

@ -91,7 +91,7 @@ namecheck:
; Check the maximum length, store the character ; Check the maximum length, store the character
nameok: ldx fnlen nameok: ldx fnlen
cpx #16 ; Maximum length reached? cpx #18 ; Maximum length reached?
bcs invalidname bcs invalidname
lda (ptr1),y ; Reload char lda (ptr1),y ; Reload char
sta fnbuf,x ; Store into buffer sta fnbuf,x ; Store into buffer
@ -130,7 +130,7 @@ namedone:
.proc fncomplete .proc fncomplete
pha ; Save mode pha ; Save mode
ldx fnlen ldx fnlen
lda #',' lda #','
sta fnbuf,x sta fnbuf,x
@ -167,3 +167,4 @@ fnchars:.byte ".,-_+()"
fncharcount = *-fnchars fncharcount = *-fnchars