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
+17 -13
+17 -13
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 ;; ldx #$ff
.byte "TURNAROUND FAILED - FILE NOT FOUND?",$0d,$00 ;; * lda $dd00
;; and #$40
;; bne +
;; dex
;; bne -
;; Timeout = file not found error ;; jsr printf
;; (https://www.pagetable.com/?p=1023) ;; .byte "TURNAROUND FAILED - FILE NOT FOUND?",$0d,$00
lda #4
sec ;; ;; Timeout = file not found error
rts ;; ;; (https://www.pagetable.com/?p=1023)
;; lda #4
;; sec
;; rts
* *
jsr printf jsr printf
.byte "TURNAROUND SUCEEDED",$0d,$00 .byte "TURNAROUND SUCEEDED",$0d,$00