Set _oserror only on error.

git-svn-id: svn://svn.cc65.org/cc65/trunk@4679 b7a2c559-68d2-44c3-8de9-860c34a00d81
2010-06-01 21:01:59 +00:00 · 2010-06-01 21:01:59 +00:00 · 2e0ab6f863
commit 2e0ab6f863
parent 5b2de2d9f0
1 changed files with 7 additions and 3 deletions
--- 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