From 92ac67d6a73cc5d0031238277044272518788a1d Mon Sep 17 00:00:00 2001
From: Paul Gardner-Stephen <paul@servalproject.org>
Date: Sat, 4 May 2019 11:22:02 +0930
Subject: [PATCH] fix the bits we are setting and checking in IEC turn around
 to listen.

---
 c64/kernal/iec_turnaround_to_listen.s | 10 ++++++----
 1 file changed, 6 insertions(+), 4 deletions(-)

diff --git a/c64/kernal/iec_turnaround_to_listen.s b/c64/kernal/iec_turnaround_to_listen.s
index 5b2b5593..b863dcf3 100644
--- a/c64/kernal/iec_turnaround_to_listen.s
+++ b/c64/kernal/iec_turnaround_to_listen.s
@@ -4,14 +4,16 @@
 iec_turnaround_to_listen:
 	;; Assert data and release clock
 	lda $dd00
-	and #$ef
-	ora #$08
+	sta $0420
+	and #$ef		; release clock (bit 4)
+	ora #$20     		; assert data (bit 5)
 	sta $dd00
 
 	;; Wait for clock line to be asserted by the drive
 *	lda $dd00
-	and #$10
-	beq -
+	sta $0421
+	and #$80
+	bne -
 	
 	rts