try just reading error channel as a test

This commit is contained in:
Paul Gardner-Stephen committed 2019-05-04 22:09:42 +09:30
1 parent d0932029bb
commit 37277ba5a3
1 file changed
+22 -2
+22 -2
View File
@@ -15,9 +15,9 @@ load:
;; also p16 tells us this routine doesn't mess with the file table in the C64,
;; only in the drive.
;; Now command device to talk (p16)
;; Now command device to listen (p16)
jsr iec_assert_atn
lda #$48
lda #$28
jsr iec_tx_byte
bcs load_error
@@ -28,7 +28,27 @@ load:
bcs load_error
jsr iec_release_atn
;; Send "I" command to drive as test
lda #$49
jsr iec_tx_byte
bcs load_error
lda #$0d
jsr iec_tx_byte
bcs load_error
inc $060a
;; Now command device to talk (p16)
jsr iec_assert_atn
lda #$48
jsr iec_tx_byte
bcs load_error
lda #$6f ; open channel / data (p3) , required according to p13
jsr iec_tx_byte
bcs load_error
jsr iec_release_atn
;; We are currently talker, so do the IEC turn around so that we
;; are the listener (p16)