From: ol.sc <ol.sc@b7a2c559-68d2-44c3-8de9-860c34a00d81>
Date: Tue, 1 Jun 2010 21:01:59 +0000 (+0000)
Subject: Set _oserror only on error.
X-Git-Tag: V2.13.3~751
X-Git-Url: https://git.sur5r.net/?a=commitdiff_plain;h=2e0ab6f8632ddc849bcdf38b8ca44a29b12a8e5c;p=cc65

Set _oserror only on error.

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

diff --git a/libsrc/apple2/rootdir.s b/libsrc/apple2/rootdir.s
index a64bf75bb..baa4b445d 100644
--- a/libsrc/apple2/rootdir.s
+++ b/libsrc/apple2/rootdir.s
@@ -28,7 +28,7 @@ _rootdir:
         lda	#ON_LINE_CALL
         ldx	#ON_LINE_COUNT
         jsr	callmli
-        bcs	:+
+        bcs	oserr
 
         ; Get volume name length
         ldy	#$00
@@ -46,7 +46,11 @@ _rootdir:
         lda	#$00
         sta	(ptr1),y
         
-        ; Return success or error
-:       sta	__oserror
+        ; Return success
+        tax
+        rts
+        
+        ; Return error
+oserr:  sta	__oserror
         ldx	#$00
         rts