From 987a5dbfbf8487bf1d8656d4f84bcaeecc4c6bf7 Mon Sep 17 00:00:00 2001
From: Thomas Harte <thomas.harte@gmail.com>
Date: Wed, 6 Dec 2023 13:15:17 -0500
Subject: [PATCH] Honour monochrome flag.

---
 Machines/PCCompatible/CGA.hpp | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/Machines/PCCompatible/CGA.hpp b/Machines/PCCompatible/CGA.hpp
index 65b20730d..cf7d820a3 100644
--- a/Machines/PCCompatible/CGA.hpp
+++ b/Machines/PCCompatible/CGA.hpp
@@ -151,7 +151,9 @@ class CGA {
 				} else if(!state.display_enable || !(control_&0x08)) {
 					new_state = OutputState::Border;
 
-					if(cycles_since_hsync <= 4) {
+					// TODO: I'm pretty sure this isn't correct for colour burst positioning, though
+					// it happens to fool the particular CRT I've implemented.
+					if(!(control_&4) && cycles_since_hsync <= 4) {
 						new_state = OutputState::ColourBurst;
 					}
 				} else {