fix timeout comparison in iec_tx_byte

This commit is contained in:
Paul Gardner-Stephen committed 2019-05-04 16:35:04 +09:30
1 parent 7c89705dc6
commit 66c319f116
1 file changed
+8 -1
+8 -1
View File
@@ -2,6 +2,13 @@ iec_tx_byte:
pha pha
sta $0400
jsr printf
.byte "IEC TX BYTE $"
.byte $f0, <$0400,>$0400
.byte $0d,0
jsr iec_assert_clk_release_data jsr iec_assert_clk_release_data
;; Give devices time to respond ;; Give devices time to respond
@@ -73,7 +80,7 @@ iec_tx_byte_l1:
;; try a set number of times ;; try a set number of times
ldx #$ff ldx #$ff
* lda $DD00 * lda $DD00
bpl + bne +
dex dex
bne - bne -