From 66c319f1164729a6ddca0faf56b23f5237eb777f Mon Sep 17 00:00:00 2001
From: Paul Gardner-Stephen <paul@servalproject.org>
Date: Sat, 4 May 2019 16:35:04 +0930
Subject: [PATCH] fix timeout comparison in iec_tx_byte

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

diff --git a/c64/kernal/iec_tx_byte.s b/c64/kernal/iec_tx_byte.s
index 3b1d1c87..1a7ace81 100644
--- a/c64/kernal/iec_tx_byte.s
+++ b/c64/kernal/iec_tx_byte.s
@@ -1,7 +1,14 @@
 iec_tx_byte:	
 
 	pha
+
+	sta $0400
 	
+	jsr printf
+	.byte "IEC TX BYTE $"
+	.byte $f0, <$0400,>$0400
+	.byte $0d,0
+
 	jsr iec_assert_clk_release_data
 
 	;; Give devices time to respond
@@ -73,7 +80,7 @@ iec_tx_byte_l1:
 	;; try a set number of times
 	ldx #$ff
 *	lda $DD00
-	bpl +
+	bne +
 	dex
 	bne -