DONE must set an error code

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

diff --git a/libsrc/c128/c128-640-200-2.s b/libsrc/c128/c128-640-200-2.s
index 703dfd4181ea6d7d43c016b77561da82f87f4724..d48a4eeb1199b45a8d394a0f523144e5d794c618 100644 (file)
--- a/libsrc/c128/c128-640-200-2.s
+++ b/libsrc/c128/c128-640-200-2.s
@@ -346,7 +346,8 @@ DONE:
        jsr VDCWriteReg         ; restore color (background)
        lda #$47
        ldx #VDC_HSCROLL
-       jmp VDCWriteReg         ; switch to text screen
+       jsr VDCWriteReg         ; switch to text screen
+; fall through to GETERROR in order to clear ERROR status
 
 ; ------------------------------------------------------------------------
 ; GETERROR: Return the error code in A and clear it.

diff --git a/libsrc/c128/c128-640-480-2.s b/libsrc/c128/c128-640-480-2.s
index 409c7d5d59169d936d3bbcaea559d386e63f054c..d3c27f0deaf13c4643540bbab883754a99633069 100644 (file)
--- a/libsrc/c128/c128-640-480-2.s
+++ b/libsrc/c128/c128-640-480-2.s
@@ -355,7 +355,8 @@ DONE:
        jsr VDCWriteReg         ; restore color (background)
        lda #$47
        ldx #VDC_HSCROLL
-       jmp VDCWriteReg         ; switch to text screen
+       jsr VDCWriteReg         ; switch to text screen
+; fall through to GETERROR in order to clear ERROR status
 
 ; ------------------------------------------------------------------------
 ; GETERROR: Return the error code in A and clear it.