From 663c86378fffe543e4737a210f922a657c5314e4 Mon Sep 17 00:00:00 2001
From: ripsaw8080 <ripsaw8080@users.sourceforge.net>
Date: Sun, 6 Mar 2016 13:04:58 +0000
Subject: [PATCH] Fix screen clearing when setting mode 0xA on PCjr machine
 type.

Imported-from: https://svn.code.sf.net/p/dosbox/code-0/dosbox/trunk@3970
---
 src/ints/int10_modes.cpp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/ints/int10_modes.cpp b/src/ints/int10_modes.cpp
index 79ef2772..65b80c48 100644
--- a/src/ints/int10_modes.cpp
+++ b/src/ints/int10_modes.cpp
@@ -386,6 +386,7 @@ static void FinishSetMode(bool clearmem) {
 	if (clearmem) {
 		switch (CurMode->type) {
 		case M_TANDY16:
+		case M_CGA4:
 			if ((machine==MCH_PCJR) && (CurMode->mode >= 9)) {
 				// PCJR cannot access the full 32k at 0xb800
 				for (Bit16u ct=0;ct<16*1024;ct++) {
@@ -395,7 +396,6 @@ static void FinishSetMode(bool clearmem) {
 				break;
 			}
 			// fall-through
-		case M_CGA4:
 		case M_CGA2:
 			for (Bit16u ct=0;ct<16*1024;ct++) {
 				real_writew( 0xb800,ct*2,0x0000);