simplify and fix iec_turnaround_to_listen based on 1541-III documentation

This commit is contained in:
Paul Gardner-Stephen committed 2019-05-04 22:13:59 +09:30
1 parent 37277ba5a3
commit acbac9e5f8
1 file changed
+18 -14
+18 -14
View File
@@ -16,21 +16,25 @@ iec_turnaround_to_listen:
and #$40 and #$40
bne - bne -
ldx #$ff ;; http://www.zimmers.net/anonftp/pub/cbm/programming/serial-bus.pdf
* lda $dd00 ;; page 8 tells us we should not do anything here after waiting for
and #$40 ;; the clock line to assert.
bne +
dex
bne -
jsr printf
.byte "TURNAROUND FAILED - FILE NOT FOUND?",$0d,$00
;; Timeout = file not found error ;; ldx #$ff
;; (https://www.pagetable.com/?p=1023) ;; * lda $dd00
lda #4 ;; and #$40
sec ;; bne +
rts ;; dex
;; bne -
;; jsr printf
;; .byte "TURNAROUND FAILED - FILE NOT FOUND?",$0d,$00
;; ;; Timeout = file not found error
;; ;; (https://www.pagetable.com/?p=1023)
;; lda #4
;; sec
;; rts
* *
jsr printf jsr printf
.byte "TURNAROUND SUCEEDED",$0d,$00 .byte "TURNAROUND SUCEEDED",$0d,$00