From e3e37956449ece7134b0386a3f67c304a159373b Mon Sep 17 00:00:00 2001
From: Mike Stirling <opensource@mikestirling.co.uk>
Date: Thu, 4 Aug 2011 22:24:36 +0100
Subject: Added cursor support and teletext pass-through to video ULA.  Fixed a
 couple of cursor bugs in the CRTC.

---
 mc6845.vhd | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

(limited to 'mc6845.vhd')

diff --git a/mc6845.vhd b/mc6845.vhd
index 30cf333..90c1108 100644
--- a/mc6845.vhd
+++ b/mc6845.vhd
@@ -395,7 +395,11 @@ begin
 			cursor_i <= '0';
 			cursor_line := '0';
 		elsif rising_edge(CLOCK) and CLKEN = '1' then
-			if ma_i = r14_cursor_h & r15_cursor_l then
+			if h_display = '1' and v_display = '1' and ma_i = r14_cursor_h & r15_cursor_l then
+				if line_counter = 0 then
+					-- Suppress wrap around if last line is > max scan line
+					cursor_line := '0';
+				end if;
 				if line_counter = r10_cursor_start then
 					-- First cursor scanline
 					cursor_line := '1';
-- 
cgit v1.2.3