From 33512988fbf45fdb4c08be70d57a6a9baec9f718 Mon Sep 17 00:00:00 2001
From: Thomas Harte <thomas.harte@gmail.com>
Date: Sun, 30 Oct 2016 22:39:47 -0400
Subject: [PATCH] Added a basic cycle skipper plus some notes.

---
 Machines/Oric/Oric.cpp | 15 +++++++++++++++
 1 file changed, 15 insertions(+)

diff --git a/Machines/Oric/Oric.cpp b/Machines/Oric/Oric.cpp
index 67e84e892..f8d0c2f06 100644
--- a/Machines/Oric/Oric.cpp
+++ b/Machines/Oric/Oric.cpp
@@ -40,6 +40,21 @@ unsigned int Machine::perform_bus_operation(CPU6502::BusOperation operation, uin
 {
 	if(address >= 0xc000)
 	{
+//		// 024D = 0 => fast; otherwise slow
+//		// E6C9 = read byte: return byte in A
+//		if(address == 0xe6c9 && operation == CPU6502::BusOperation::ReadOpcode)
+//		{
+//			printf(".");
+//		}
+
+		if(address == 0xe720 && operation == CPU6502::BusOperation::ReadOpcode)
+		{
+			while(!_via.tape->get_input())
+			{
+				_via.run_for_cycles(1);
+				_via.tape->run_for_cycles(1);
+			}
+		}
 		if(isReadOperation(operation)) *value = _rom[address&16383];
 	}
 	else