moved code to convert filename to uppercase into its own file/object

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

libsrc/atari/open.s

@@ -4,8 +4,6 @@
 ; int open(const char *name,int flags,...);
 ;
 
-UCASE_FILENAME	= 1		; comment it out if filename shouldn't be uppercased
-
 	.include "atari.inc"
 	.include "../common/fmode.inc"
 	.include "../common/errno.inc"
@@ -14,11 +12,12 @@ UCASE_FILENAME	= 1		; comment it out if filename shouldn't be uppercased
 	.import	fddecusage,newfd
 	.import	findfreeiocb
 	.import	__do_oserror,__seterrno,incsp4
-	.import	ldaxysp,addysp,subysp
-	.import	_strupr,__oserror
-	.importzp tmp4,tmp2,sp
+	.import	ldaxysp,addysp
+	.import	__oserror
+	.importzp tmp4,tmp2
 .ifdef	UCASE_FILENAME
-	.importzp tmp3,ptr4
+	.importzp tmp3
+	.import	ucase_fn
 .endif
 
 .proc	_open
@@ -71,50 +70,13 @@ cont:	ldy	#3
 	jsr	ldaxysp
 
 .ifdef	UCASE_FILENAME
-	; we make sure that the filename doesn't contain lowercase letters
-	; we copy the filename we got onto the stack, uppercase it and use this
-	; one to open the iocb
-	; we're using tmp3, ptr4
 
-	; save the original pointer
-	sta	ptr4
-	stx	ptr4+1
-
-	; now we need the length of the name
-	ldy	#0
-loop:	lda	(ptr4),y
-	beq	str_end
-	cmp	#ATEOL		; we also accept Atari EOF char as end of string
-	beq	str_end
-	iny
-	bne	loop		; not longer than 255 chars (127 real limit)
-toolong:lda	#<EINVAL	; file name is too long
+	jsr	ucase_fn
+	bcc	ucok1
+	lda	#<EINVAL	; file name is too long
 	ldx	#>EINVAL
 	jmp	seterr
-
-str_end:iny			; room for terminating zero
-	cpy	#128		; we only can handle lenght < 128
-	bcs	toolong
-	sty	tmp3		; save size
-	jsr	subysp		; make room on the stack
-
-	; copy filename to the temp. place on the stack
-	lda	#0		; end-of-string
-	sta	(sp),y		; Y still contains length + 1
-	dey
-loop2:	lda	(ptr4),y
-	sta	(sp),y
-	dey
-	bpl	loop2		; bpl: this way we only support a max. length of 127
-
-	; uppercase the temp. filename
-	ldx	sp+1
-	lda	sp
-	jsr	_strupr
-
-	; leave X and Y pointing to the modified filename
-	lda	sp
-	ldx	sp+1
+ucok1:
 
 .endif	; defined UCASE_FILENAME