X-Git-Url: https://git.sur5r.net/?a=blobdiff_plain;f=libsrc%2Fatari%2Fopen.s;h=8aeff9ed4d24ba4fabe3def1ddc9d151c9686225;hb=619b215260ccb2db384df6a6c4a6ccaace2a77cb;hp=e45f7813fc83a89ac0b0228f3ac03c5d7430b28f;hpb=70bc1777140d9ad7a81f60521b1c981aea195165;p=cc65

diff --git a/libsrc/atari/open.s b/libsrc/atari/open.s
index e45f7813f..8aeff9ed4 100644
--- a/libsrc/atari/open.s
+++ b/libsrc/atari/open.s
@@ -1,151 +1,169 @@
 ;
-; Christian Groessler, May-2002
+; Christian Groessler, Jan-2003
 ;
 ; int open(const char *name,int flags,...);
 ;
 
-	.include "atari.inc"
-	.include "fcntl.inc"
-	.include "errno.inc"
-	.export	_open
-	.import	clriocb
-	.import	fddecusage,newfd
-	.import	findfreeiocb
-	.import	__do_oserror,__seterrno,incsp4
-	.import	ldaxysp,addysp
-	.import	__oserror
-	.importzp tmp4,tmp2
-.ifdef	UCASE_FILENAME
-	.importzp tmp3
-	.import	ucase_fn
+        .include "atari.inc"
+        .include "fcntl.inc"
+        .include "errno.inc"
+        .include "fd.inc"
+
+        .export _open
+        .destructor     closeallfiles, 5
+
+        .import _close
+        .import clriocb
+        .import fddecusage,newfd
+        .import findfreeiocb
+        .import incsp4
+        .import ldaxysp,addysp
+        .import __oserror
+        .importzp tmp4,tmp2
+.ifdef  UCASE_FILENAME
+        .importzp tmp3
+        .import ucase_fn
 .endif
 
-.proc	_open
-
-	cpy	#4		; correct # of arguments (bytes)?
-	beq	parmok		; parameter count ok
-	tya			; parm count < 4 shouldn't be needed to be checked
-	sec			;	(it generates a c compiler warning)
-	sbc	#4
-	tay
-	jsr	addysp		; fix stack, throw away unused parameters
-
-parmok:	jsr	findfreeiocb
-	beq	iocbok		; we found one
-
-	lda	#<EMFILE	; "too many open files"
-	ldx	#>EMFILE
-seterr:	jsr	__seterrno
-	jsr	incsp4		; clean up stack
-	lda	#$FF
-	tax
-	rts			; return -1
-
-	; process the mode argument
-
-iocbok:	stx	tmp4
-	jsr	clriocb		; init with zero
-	ldy	#1
-	jsr	ldaxysp		; get mode
-	;brk
-	ldx	tmp4
-	pha
-	and	#O_APPEND
-	beq	no_app
-	pla
-	and	#15
-	cmp	#O_RDONLY	; DOS supports append with write-only only
-	beq	invret
-	cmp	#O_RDWR
-	beq	invret
-	lda	#OPNOT|APPEND
-	bne	set
-
-.ifndef	UCASE_FILENAME
-invret:	lda	#<EINVAL	; file name is too long
-	ldx	#>EINVAL
-	jmp	seterr
+.proc   _open
+
+        dey                     ; parm count < 4 shouldn't be needed to be checked
+        dey                     ;       (it generates a c compiler warning)
+        dey
+        dey
+        beq     parmok          ; parameter count ok
+        jsr     addysp          ; fix stack, throw away unused parameters
+
+parmok: jsr     findfreeiocb
+        beq     iocbok          ; we found one
+
+        lda     #<EMFILE        ; "too many open files"
+seterr: jsr     __directerrno
+        jsr     incsp4          ; clean up stack
+        lda     #$FF
+        tax
+        rts                     ; return -1
+
+        ; process the mode argument
+
+iocbok: stx     tmp4
+        jsr     clriocb         ; init with zero
+        ldy     #1
+        jsr     ldaxysp         ; get mode
+        ldx     tmp4
+        pha
+        and     #O_APPEND
+        beq     no_app
+        pla
+        and     #15
+        cmp     #O_RDONLY       ; DOS supports append with write-only only
+        beq     invret
+        cmp     #O_RDWR
+        beq     invret
+        lda     #OPNOT|APPEND
+        bne     set
+
+.ifndef UCASE_FILENAME
+invret: lda     #<EINVAL        ; file name is too long
+        jmp     seterr
 .endif
 
-no_app:	pla
-	and	#15
-	cmp	#O_RDONLY
-	bne	l1
-	lda	#OPNIN
-set:	sta	ICAX1,x
-	bne	cont
+no_app: pla
+        and     #15
+        cmp     #O_RDONLY
+        bne     l1
+        lda     #OPNIN
+set:    sta     ICAX1,x
+        bne     cont
 
-l1:	cmp	#O_WRONLY
-	bne	l2
-	lda	#OPNOT
-	bne	set
+l1:     cmp     #O_WRONLY
+        bne     l2
+        lda     #OPNOT
+        bne     set
 
-l2:	; O_RDWR
-	lda	#OPNOT|OPNIN
-	bne	set
+l2:     ; O_RDWR
+        lda     #OPNOT|OPNIN
+        bne     set
 
-	; process the filename argument
+        ; process the filename argument
 
-cont:	ldy	#3
-	jsr	ldaxysp
+cont:   ldy     #3
+        jsr     ldaxysp
 
-.ifdef	UCASE_FILENAME
+.ifdef  UCASE_FILENAME
 
-	jsr	ucase_fn
-	bcc	ucok1
-invret:	lda	#<EINVAL	; file name is too long
-	ldx	#>EINVAL
-	jmp	seterr
+        jsr     ucase_fn
+        bcc     ucok1
+invret: lda     #<EINVAL        ; file name is too long
+        jmp     seterr
 ucok1:
 
-.endif	; defined UCASE_FILENAME
-
-	ldy	tmp4
-
-	;AX - points to filename
-	;Y  - iocb to use, if open needed
-	jsr	newfd		; maybe we don't need to open and can reuse an iocb
-				; returns fd num to use in tmp2, all regs unchanged
-	bcs	doopen		; C set: open needed
-	lda	#0		; clears N flag
-	beq	finish
-
-doopen:	sta	ICBAL,y
-	txa
-	sta	ICBAH,y
-	ldx	tmp4
-	lda	#OPEN
-	sta	ICCOM,x
-	jsr	CIOV
-
-	; clean up the stack
-
-finish:	php
-	txa
-	pha
-	tya
-	pha
-
-.ifdef	UCASE_FILENAME
-	ldy	tmp3		; get size
-	jsr	addysp		; free used space on the stack
-.endif	; defined UCASE_FILENAME
-
-	jsr	incsp4		; clean up stack
-
-	pla
-	tay
-	pla
-	tax
-	plp
-
-	bpl	ok
-	jsr	fddecusage	; decrement usage counter of fd as open failed
-	jmp	__do_oserror
-
-ok:	lda	tmp2		; get fd
-	ldx	#0
-	stx	__oserror
-	rts
+.endif  ; defined UCASE_FILENAME
+
+        ldy     tmp4
+
+        ;AX - points to filename
+        ;Y  - iocb to use, if open needed
+        jsr     newfd           ; maybe we don't need to open and can reuse an iocb
+                                ; returns fd num to use in tmp2, all regs unchanged
+        bcs     doopen          ; C set: open needed
+        lda     #0              ; clears N flag
+        beq     finish
+
+doopen: sta     ICBAL,y
+        txa
+        sta     ICBAH,y
+        ldx     tmp4
+        lda     #OPEN
+        sta     ICCOM,x
+        jsr     CIOV
+
+        ; clean up the stack
+
+finish: php
+        txa
+        pha
+        tya
+        pha
+
+.ifdef  UCASE_FILENAME
+        ldy     tmp3            ; get size
+        jsr     addysp          ; free used space on the stack
+.endif  ; defined UCASE_FILENAME
+
+        jsr     incsp4          ; clean up stack
+
+        pla
+        tay
+        pla
+        tax
+        plp
+
+        bpl     ok
+        jsr     fddecusage      ; decrement usage counter of fd as open failed
+        tya                     ; put error code into A
+        jmp     __mappederrno
+
+ok:     lda     tmp2            ; get fd
+        ldx     #0
+        stx     __oserror
+        rts
+
+.endproc
+
+
+; closeallfiles: Close all files opened by the program.
+
+.proc   closeallfiles
+
+        lda     #MAX_FD_INDEX-1
+loop:   ldx     #0
+        pha
+        jsr     _close
+        pla
+        clc
+        sbc     #0
+        bpl     loop
+        rts
 
 .endproc