Add support for append mode

git-svn-id: svn://svn.cc65.org/cc65/trunk@1542 b7a2c559-68d2-44c3-8de9-860c34a00d81
This commit is contained in:
cuz
2002-11-19 14:27:06 +00:00
parent ca905a8705
commit b2a06ab041
2 changed files with 18 additions and 24 deletions

View File

@@ -85,13 +85,13 @@ namecheck:
bpl namecheck
tax
lda __ctype,x
and #(CT_LOWER|CT_DIGIT)
and #CT_ALNUM
beq invalidname
; Check the maximum length, store the character
nameok: ldx fnlen
cpx #14 ; Maximum length reached?
cpx #16 ; Maximum length reached?
bcs invalidname
lda (ptr1),y ; Reload char
sta fnbuf,x ; Store into buffer
@@ -158,8 +158,8 @@ fnunit: .res 1
fnlen: .res 1
.data
fncmd: .byte 's' ; Use as scratch command
fnbuf: .res 20
fncmd: .byte 's' ; Use as scratch command
fnbuf: .res 22 ; 0:0123456789012345,t,m
.rodata
; Characters that are ok in filenames besides digits and letters