From e5b30cdfbb4b633de78766e1daccc4fceda11520 Mon Sep 17 00:00:00 2001
From: Thomas Harte <thomas.harte@gmail.com>
Date: Sun, 11 Jun 2017 17:28:47 -0400
Subject: [PATCH] Attempted to ensure appropriate resumption of processing
 after quick-reading a tape byte.

---
 Machines/ZX8081/ZX8081.cpp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/Machines/ZX8081/ZX8081.cpp b/Machines/ZX8081/ZX8081.cpp
index d46b61506..429cd009c 100644
--- a/Machines/ZX8081/ZX8081.cpp
+++ b/Machines/ZX8081/ZX8081.cpp
@@ -82,7 +82,7 @@ int Machine::perform_machine_cycle(const CPU::Z80::MachineCycle &cycle) {
 					uint16_t hl = get_value_of_register(CPU::Z80::Register::HL);
 					ram_[hl & 1023] = (uint8_t)next_byte;
 					*cycle.value = 0x00;
-					set_value_of_register(CPU::Z80::Register::ProgramCounter, tape_return_address_);
+					set_value_of_register(CPU::Z80::Register::ProgramCounter, tape_return_address_ - 1);
 					return 0;
 				}
 			}