From 7f74c733d84214bedf5498d94e6d28afb958b49d Mon Sep 17 00:00:00 2001
From: Oliver Schmidt <ol.sc@web.de>
Date: Tue, 16 Aug 2022 15:13:47 +0200
Subject: [PATCH] Added InputFlags check for consistency.

---
 Apple2/Shell.asm | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/Apple2/Shell.asm b/Apple2/Shell.asm
index 67cd253..8358849 100755
--- a/Apple2/Shell.asm
+++ b/Apple2/Shell.asm
@@ -211,6 +211,10 @@ waitRead:
  bit Keyboard ;keypress will abort waiting to read
  bpl waitRead
 keyPressed:
+ lda InputFlags,x
+ rol
+ rol
+ bcs keyPressed
  lda Keyboard ;send keypress to RPi
  and #$7f
  sta OutputByte,x