generally try to debug the FILE NOT FOUND situation

This commit is contained in:
Paul Gardner-Stephen committed 2019-05-04 17:00:40 +09:30
1 parent 49d5733246
commit 8994f3c608
3 files changed
+8 -1

No files matched your search

+2
View File
@@ -1,4 +1,6 @@
iec_assert_atn:
jsr printf
.byte "ASSERT ATN",$0d,0
lda $dd00
ora #$08
sta $dd00
+2
View File
@@ -1,4 +1,6 @@
iec_release_atn:
jsr printf
.byte "RELEASE ATN",$0d,0
lda $dd00
and #$f7
sta $dd00
+4 -1
View File
@@ -28,7 +28,7 @@ load:
jsr iec_release_atn
;; Send filename (p16)
lda #$24 ; $ = directory
lda #$21 ; $ = directory
jsr iec_tx_byte
;; Command device to unlisten to indicate end of file name. (p16)
@@ -61,6 +61,9 @@ load:
bcs load_error
inc $060b
jsr printf
.byte "READING DATA...",$0d,0
;; We are now ready to receive bytes
* jsr iec_rx_byte