From: Christian Groessler <chris@groessler.org>
Date: Mon, 6 Jun 2016 20:45:20 +0000 (+0200)
Subject: Some Atari runtime library fixes.
X-Git-Tag: V2.16~113^2
X-Git-Url: https://git.sur5r.net/?a=commitdiff_plain;h=refs%2Fpull%2F306%2Fhead;p=cc65

Some Atari runtime library fixes.

* libsrc/atari/ucase_fn.s: Fix handling if input parameter 'tmp2' is 0.
* libsrc/atari/open.s: Set 'tmp2' parameter for 'ucase_fn' if DEFAULT_DEVICE
  is not defined.
---

diff --git a/libsrc/atari/open.s b/libsrc/atari/open.s
index 2188257cb..d5ff4ca52 100644
--- a/libsrc/atari/open.s
+++ b/libsrc/atari/open.s
@@ -93,8 +93,10 @@ cont:   ldy     #3
 .ifdef  UCASE_FILENAME
 .ifdef  DEFAULT_DEVICE
         ldy     #$80
-        sty     tmp2            ; set flag for ucase_fn
+.else
+        ldy     #$00
 .endif
+        sty     tmp2            ; set flag for ucase_fn
         jsr     ucase_fn
         bcc     ucok1
 invret: lda     #<EINVAL        ; file name is too long
diff --git a/libsrc/atari/ucase_fn.s b/libsrc/atari/ucase_fn.s
index e53750e29..f7f03915d 100644
--- a/libsrc/atari/ucase_fn.s
+++ b/libsrc/atari/ucase_fn.s
@@ -40,7 +40,9 @@
         stx     ptr4+1
 
 .ifdef  DEFAULT_DEVICE
-        ; bit #0 of tmp2 is used as a flag whether device name is present in passed string (1 = present, 0 = not present)
+        lda     tmp2
+        beq     hasdev          ; don't fiddle with device part
+        ; bit #0 of tmp2 is used as an additional flag whether device name is present in passed string (1 = present, 0 = not present)
         ldy     #1
         inc     tmp2            ; initialize flag: device present
         lda     #':'
@@ -81,11 +83,11 @@ copy_end:
 
 .ifdef  DEFAULT_DEVICE
         lda     #1
-        bit     tmp2
+        bit     tmp2            ; is a device present in the string?
         bne     hasdev2         ; yes, don't prepend something
-        bpl     hasdev2
+        bpl     hasdev2         ; check input parameter (tmp2 != $80)
 
-        ldy     #128+3          ; no, prepend "D:" (or other device)
+        ldy     #128+3          ; no, prepend "Dn:" (__defdev)
         sty     tmp3            ; adjust stack size used
         ldy     #3
         jsr     subysp          ; adjust stack pointer