From d0932029bbada576c05d0dee7d8457b0933995a4 Mon Sep 17 00:00:00 2001 From: Paul Gardner-Stephen Date: Sat, 4 May 2019 22:09:19 +0930 Subject: [PATCH] actually try 255 times before giving up when waiting for talker turnaround. --- c64/kernal/iec_turnaround_to_listen.s | 10 +++------- 1 file changed, 3 insertions(+), 7 deletions(-) diff --git a/c64/kernal/iec_turnaround_to_listen.s b/c64/kernal/iec_turnaround_to_listen.s index 418ae31c..94bf9ed9 100644 --- a/c64/kernal/iec_turnaround_to_listen.s +++ b/c64/kernal/iec_turnaround_to_listen.s @@ -3,29 +3,25 @@ iec_turnaround_to_listen: - jsr printf - .byte "DOING TURNAROUND",$0d,0 - ;; Assert data and release clock lda $dd00 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 sta $0421 and #$40 bne - - - ;; Wait for clk to be released by the drive to mark ready to talk + ldx #$ff * lda $dd00 and #$40 bne + dex - beq - + bne - jsr printf .byte "TURNAROUND FAILED - FILE NOT FOUND?",$0d,$00