mirror of
https://github.com/cc65/cc65.git
synced 2024-06-24 18:28:53 +00:00
more space improvements by Daniel Serpell
git-svn-id: svn://svn.cc65.org/cc65/trunk@4503 b7a2c559-68d2-44c3-8de9-860c34a00d81
This commit is contained in:
parent
a467095216
commit
2bca737f57
|
@ -79,6 +79,7 @@ OBJS = _scrsize.o \
|
||||||
do_oserr.o \
|
do_oserr.o \
|
||||||
dosdetect.o \
|
dosdetect.o \
|
||||||
fdtable.o \
|
fdtable.o \
|
||||||
|
fdtab.o \
|
||||||
fdtoiocb.o \
|
fdtoiocb.o \
|
||||||
getargs.o \
|
getargs.o \
|
||||||
getdefdev.o \
|
getdefdev.o \
|
||||||
|
|
30
libsrc/atari/fdtab.s
Normal file
30
libsrc/atari/fdtab.s
Normal file
|
@ -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
|
||||||
|
|
|
@ -26,10 +26,6 @@
|
||||||
|
|
||||||
__getdefdev:
|
__getdefdev:
|
||||||
|
|
||||||
.ifdef DEFAULT_DEVICE
|
|
||||||
lda #'0'+DEFAULT_DEVICE
|
|
||||||
sta __defdev+1
|
|
||||||
.endif
|
|
||||||
lda __dos_type ; which DOS?
|
lda __dos_type ; which DOS?
|
||||||
cmp #ATARIDOS
|
cmp #ATARIDOS
|
||||||
beq finish
|
beq finish
|
||||||
|
@ -86,5 +82,9 @@ finish: lda #<__defdev
|
||||||
; Default device
|
; Default device
|
||||||
|
|
||||||
__defdev:
|
__defdev:
|
||||||
|
.ifdef DEFAULT_DEVICE
|
||||||
|
.byte 'D', '0'+DEFAULT_DEVICE, ':', 0
|
||||||
|
.else
|
||||||
.byte "D1:", 0
|
.byte "D1:", 0
|
||||||
|
.endif
|
||||||
|
|
||||||
|
|
|
@ -2,56 +2,18 @@
|
||||||
; Christian Groessler, Oct-2000
|
; Christian Groessler, Oct-2000
|
||||||
;
|
;
|
||||||
; allocates a new fd in the indirection table
|
; allocates a new fd in the indirection table
|
||||||
; the fdtable itself is defined here
|
|
||||||
;
|
;
|
||||||
|
|
||||||
.include "atari.inc"
|
.include "atari.inc"
|
||||||
.include "fd.inc"
|
.include "fd.inc"
|
||||||
.include "_file.inc"
|
.include "_file.inc"
|
||||||
.importzp tmp1
|
.importzp tmp1
|
||||||
|
.import fd_table, fd_index
|
||||||
|
|
||||||
.export fdt_to_fdi,getfd
|
.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
|
.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
|
; fdt_to_fdi
|
||||||
; returns a fd_index entry pointing to the given ft_table entry
|
; returns a fd_index entry pointing to the given ft_table entry
|
||||||
; get fd_table entry in A
|
; get fd_table entry in A
|
||||||
|
|
|
@ -23,7 +23,7 @@
|
||||||
.import __defdev
|
.import __defdev
|
||||||
.endif
|
.endif
|
||||||
.importzp tmp3,ptr4,sp
|
.importzp tmp3,ptr4,sp
|
||||||
.import _strupr,subysp
|
.import subysp,addysp
|
||||||
.export ucase_fn
|
.export ucase_fn
|
||||||
|
|
||||||
.proc ucase_fn
|
.proc ucase_fn
|
||||||
|
@ -50,56 +50,48 @@
|
||||||
hasdev:
|
hasdev:
|
||||||
.endif
|
.endif
|
||||||
|
|
||||||
; now we need the length of the name
|
ldy #128
|
||||||
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
|
|
||||||
sty tmp3 ; save size
|
sty tmp3 ; save size
|
||||||
jsr subysp ; make room on the stack
|
jsr subysp ; make room on the stack
|
||||||
|
|
||||||
; copy filename to the temp. place on the stack
|
; copy filename to the temp. place on the stack, also uppercasing it
|
||||||
lda #0 ; end-of-string
|
ldy #0
|
||||||
sta (sp),y ; Y still contains length + 1
|
|
||||||
dey
|
|
||||||
loop2: lda (ptr4),y
|
loop2: lda (ptr4),y
|
||||||
sta (sp),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
|
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
|
.ifdef DEFAULT_DEVICE
|
||||||
lda tmp2
|
lda tmp2
|
||||||
cmp #1 ; was device present in passed string?
|
cmp #1 ; was device present in passed string?
|
||||||
beq hasdev2 ; yes, don't prepend something
|
beq hasdev2 ; yes, don't prepend something
|
||||||
|
|
||||||
inc tmp3 ; no, prepend "D:" (or other device)
|
ldy #128+3 ; no, prepend "D:" (or other device)
|
||||||
inc tmp3 ; adjust stack size used
|
sty tmp3 ; adjust stack size used
|
||||||
inc tmp3
|
|
||||||
ldy #3
|
ldy #3
|
||||||
jsr subysp ; adjust stack pointer
|
jsr subysp ; adjust stack pointer
|
||||||
ldy #2
|
|
||||||
lda #':'
|
|
||||||
sta (sp),y ; insert ':'
|
|
||||||
dey
|
dey
|
||||||
lda __defdev+1
|
cpdev: lda __defdev,y
|
||||||
sta (sp),y ; insert device number
|
sta (sp),y ; insert device name, number and ':'
|
||||||
dey
|
dey
|
||||||
lda __defdev
|
bpl cpdev
|
||||||
sta (sp),y ; insert device name (normally 'D' or 'H')
|
|
||||||
hasdev2:
|
hasdev2:
|
||||||
.endif
|
.endif
|
||||||
; uppercase the temp. filename
|
|
||||||
ldx sp+1
|
|
||||||
lda sp
|
|
||||||
jsr _strupr
|
|
||||||
|
|
||||||
; leave A and X pointing to the modified filename
|
; leave A and X pointing to the modified filename
|
||||||
lda sp
|
lda sp
|
||||||
|
|
Loading…
Reference in New Issue
Block a user