DONE must set an error code

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

diff --git a/libsrc/c64/c64-320-200-2.s b/libsrc/c64/c64-320-200-2.s
index ff19f1ba6247c3b1e6ed05f3d6c884ed6cb6f0d9..ee6ab2e20ef4f17172f961cd3a845c681274af7e 100644 (file)
--- a/libsrc/c64/c64-320-200-2.s
+++ b/libsrc/c64/c64-320-200-2.s
@@ -193,7 +193,7 @@ INIT:
 
         lda     $D011          ; And turn on bitmap
         ora     #$20
-        sta     $D011
+DONE1:  sta     $D011
 
 ; Done, reset the error code
 
@@ -221,8 +221,7 @@ DONE:   lda     $DD02           ; Set the data direction regs
 
         lda     $D011
         and     #<~$20
-        sta     $D011
-        rts
+        jmp     DONE1
 
 ; ------------------------------------------------------------------------
 ; GETERROR: Return the error code in A and clear it.