From 84841ab283cbbfbc8cd6c972daf80b14e94b434b Mon Sep 17 00:00:00 2001
From: Paul Gardner-Stephen <paul@servalproject.org>
Date: Sat, 4 May 2019 22:01:36 +0930
Subject: [PATCH] fix bug in iec_tx_byte in acknowledgement check.

---
 c64/kernal/iec_tx_byte.s | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/c64/kernal/iec_tx_byte.s b/c64/kernal/iec_tx_byte.s
index 1a7ace81..3e1e53d9 100644
--- a/c64/kernal/iec_tx_byte.s
+++ b/c64/kernal/iec_tx_byte.s
@@ -80,7 +80,9 @@ iec_tx_byte_l1:
 	;; try a set number of times
 	ldx #$ff
 *	lda $DD00
-	bne +
+	;; BPL here is checking that bit 7 of $DD00 clears,
+	;; i.e, that the DATA line is asserted.
+	bpl +
 	dex
 	bne -