From: izydorst <izydorst@b7a2c559-68d2-44c3-8de9-860c34a00d81>
Date: Fri, 3 Jan 2003 12:56:38 +0000 (+0000)
Subject: DONE must set an error code
X-Git-Tag: V2.12.0~1798
X-Git-Url: https://git.sur5r.net/?a=commitdiff_plain;h=b22030dbc73f234e869576c1c599a1e145123c94;p=cc65

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 703dfd418..d48a4eeb1 100644
--- 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 409c7d5d5..d3c27f0de 100644
--- 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.