From: cpg <cpg@b7a2c559-68d2-44c3-8de9-860c34a00d81>
Date: Mon, 7 Dec 2009 18:58:32 +0000 (+0000)
Subject: more space improvements by Daniel Serpell
X-Git-Tag: V2.13.1~26
X-Git-Url: https://git.sur5r.net/?p=cc65;a=commitdiff_plain;h=2bca737f5720f3afe53ed0d67035878e099288b1

more space improvements by Daniel Serpell

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

diff --git a/libsrc/atari/Makefile b/libsrc/atari/Makefile
index 43644c686..349e6d9f5 100644
--- a/libsrc/atari/Makefile
+++ b/libsrc/atari/Makefile
@@ -79,6 +79,7 @@ OBJS = 	_scrsize.o      \
 	do_oserr.o      \
 	dosdetect.o     \
 	fdtable.o       \
+	fdtab.o         \
 	fdtoiocb.o      \
 	getargs.o       \
 	getdefdev.o     \
diff --git a/libsrc/atari/fdtab.s b/libsrc/atari/fdtab.s
new file mode 100644
index 000000000..57598b600
--- /dev/null
+++ b/libsrc/atari/fdtab.s
@@ -0,0 +1,30 @@
+;
+; Christian Groessler, Oct-2000
+; Daniel Serpell, Dec-2009
+;
+; the fdtable itself is defined here
+;
+
+	.include "fd.inc"
+
+	.export	fd_table,fd_index
+	.export	___fd_table,___fd_index	; for test(debug purposes only
+
+	.data
+
+___fd_index:
+fd_index:	; fd number is index into this table, entry's value specifies the fd_table entry
+	.byte	0,0,0		; at start, three first files are stdin/stdout/stderr.
+	.res	MAX_FD_INDEX-3,$ff
+
+___fd_table:
+fd_table:	; each entry represents an open iocb
+	.byte	3,0,'E',0	; system console, app starts with opened iocb #0 for E:
+	.byte	0,$ff,0,0
+	.byte	0,$ff,0,0
+	.byte	0,$ff,0,0
+	.byte	0,$ff,0,0
+	.byte	0,$ff,0,0
+	.byte	0,$ff,0,0
+	.byte	0,$ff,0,0
+
diff --git a/libsrc/atari/getdefdev.s b/libsrc/atari/getdefdev.s
index 9ccf31847..0465c07f7 100644
--- a/libsrc/atari/getdefdev.s
+++ b/libsrc/atari/getdefdev.s
@@ -26,10 +26,6 @@
 
 __getdefdev:
 
-.ifdef	DEFAULT_DEVICE
-	lda	#'0'+DEFAULT_DEVICE
-	sta	__defdev+1
-.endif
 	lda	__dos_type	; which DOS?
 	cmp	#ATARIDOS
 	beq	finish
@@ -86,5 +82,9 @@ finish:	lda	#<__defdev
 ; Default device
 
 __defdev:
+.ifdef	DEFAULT_DEVICE
+	.byte	'D', '0'+DEFAULT_DEVICE, ':', 0
+.else
 	.byte	"D1:", 0
+.endif
 
diff --git a/libsrc/atari/getfd.s b/libsrc/atari/getfd.s
index a5457c5aa..8327e24ac 100644
--- a/libsrc/atari/getfd.s
+++ b/libsrc/atari/getfd.s
@@ -2,56 +2,18 @@
 ; Christian Groessler, Oct-2000
 ;
 ; allocates a new fd in the indirection table
-; the fdtable itself is defined here
 ;
 
 	.include "atari.inc"
 	.include "fd.inc"
 	.include "_file.inc"
 	.importzp tmp1
+	.import fd_table, fd_index
 
 	.export fdt_to_fdi,getfd
-	.export	fd_table,fd_index
-	.export	___fd_table,___fd_index	; for test(debug purposes only
-
-	.constructor	initfds,24
-
-	.data
-
-___fd_index:
-fd_index:	; fd number is index into this table, entry's value specifies the fd_table entry
-	.res	MAX_FD_INDEX,$ff
-
-___fd_table:
-fd_table:	; each entry represents an open iocb
-	.byte	0,0,'E',0	; system console, app starts with opened iocb #0 for E:
-	.byte	0,$ff,0,0
-	.byte	0,$ff,0,0
-	.byte	0,$ff,0,0
-	.byte	0,$ff,0,0
-	.byte	0,$ff,0,0
-	.byte	0,$ff,0,0
-	.byte	0,$ff,0,0
 
 	.code
 
-; set stdio stream handles
-
-.proc 	initfds
-
-	lda	#0
-	jsr	getfd
-	sta	__filetab + (0 * .sizeof(_FILE)); setup stdin
-	lda	#0
-	jsr	getfd
-	sta	__filetab + (1 * .sizeof(_FILE)); setup stdout
-	lda	#0
-	jsr	getfd
-	sta	__filetab + (2 * .sizeof(_FILE)); setup stderr
-	rts
-
-.endproc
-
 ; fdt_to_fdi
 ; returns a fd_index entry pointing to the given ft_table entry
 ; get fd_table entry in A
diff --git a/libsrc/atari/ucase_fn.s b/libsrc/atari/ucase_fn.s
index bbc6d1926..79f16167f 100644
--- a/libsrc/atari/ucase_fn.s
+++ b/libsrc/atari/ucase_fn.s
@@ -23,7 +23,7 @@
 	.import	__defdev
 .endif
 	.importzp tmp3,ptr4,sp
-	.import	_strupr,subysp
+	.import	subysp,addysp
 	.export	ucase_fn
 
 .proc   ucase_fn
@@ -50,56 +50,48 @@
 hasdev:
 .endif
 
-	; 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 (not!)
-;	beq	str_end
-	iny
-	bne	loop		; not longer than 255 chars (127 real limit)
-toolong:sec			; indicate error
-	rts
-
-str_end:iny			; room for terminating zero
-	bmi	toolong		; we only can handle lenght < 128
+	ldy	#128
 	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
+	; copy filename to the temp. place on the stack, also uppercasing it
+	ldy	#0
+
 loop2:	lda	(ptr4),y
 	sta	(sp),y
-	dey
+	beq	copy_end
+	bmi	L1		; Not lowercase (also, invalid, should reject)
+	cmp	#'a'
+	bcc	L1		; Not lowercase
+	and	#$DF		; make upper case char, assume ASCII chars
+	sta	(sp),y		; store back
+L1:
+	iny
 	bpl	loop2		; bpl: this way we only support a max. length of 127
 
+	; Filename too long
+	jsr	addysp		; restore the stack
+	sec			; indicate error
+	rts
+
+copy_end:
+
 .ifdef	DEFAULT_DEVICE
 	lda	tmp2
 	cmp	#1		; was device present in passed string?
 	beq	hasdev2		; yes, don't prepend something
 
-	inc	tmp3		; no, prepend "D:" (or other device)
-	inc	tmp3		; adjust stack size used
-	inc	tmp3
+	ldy	#128+3		; no, prepend "D:" (or other device)
+	sty	tmp3		; adjust stack size used
 	ldy	#3
 	jsr	subysp		; adjust stack pointer
-	ldy	#2
-	lda	#':'
-	sta	(sp),y		; insert ':'
 	dey
-	lda	__defdev+1
-	sta	(sp),y		; insert device number
+cpdev:	lda	__defdev,y
+	sta	(sp),y		; insert device name, number and ':'
 	dey
-	lda	__defdev
-	sta	(sp),y		; insert device name (normally 'D' or 'H')
+	bpl	cpdev
 hasdev2:
 .endif
-	; uppercase the temp. filename
-	ldx	sp+1
-	lda	sp
-	jsr	_strupr
 
 	; leave A and X pointing to the modified filename
 	lda	sp