generally try to debug the FILE NOT FOUND situation
This commit is contained in:
1 parent
49d5733246
commit
8994f3c608
3 files changed
+8
-1
No files matched your search
@@ -1,4 +1,6 @@
|
|||||||
iec_assert_atn:
|
iec_assert_atn:
|
||||||
|
jsr printf
|
||||||
|
.byte "ASSERT ATN",$0d,0
|
||||||
lda $dd00
|
lda $dd00
|
||||||
ora #$08
|
ora #$08
|
||||||
sta $dd00
|
sta $dd00
|
||||||
|
|||||||
@@ -1,4 +1,6 @@
|
|||||||
iec_release_atn:
|
iec_release_atn:
|
||||||
|
jsr printf
|
||||||
|
.byte "RELEASE ATN",$0d,0
|
||||||
lda $dd00
|
lda $dd00
|
||||||
and #$f7
|
and #$f7
|
||||||
sta $dd00
|
sta $dd00
|
||||||
|
|||||||
+4
-1
@@ -28,7 +28,7 @@ load:
|
|||||||
jsr iec_release_atn
|
jsr iec_release_atn
|
||||||
|
|
||||||
;; Send filename (p16)
|
;; Send filename (p16)
|
||||||
lda #$24 ; $ = directory
|
lda #$21 ; $ = directory
|
||||||
jsr iec_tx_byte
|
jsr iec_tx_byte
|
||||||
|
|
||||||
;; Command device to unlisten to indicate end of file name. (p16)
|
;; Command device to unlisten to indicate end of file name. (p16)
|
||||||
@@ -62,6 +62,9 @@ load:
|
|||||||
|
|
||||||
inc $060b
|
inc $060b
|
||||||
|
|
||||||
|
jsr printf
|
||||||
|
.byte "READING DATA...",$0d,0
|
||||||
|
|
||||||
;; We are now ready to receive bytes
|
;; We are now ready to receive bytes
|
||||||
* jsr iec_rx_byte
|
* jsr iec_rx_byte
|
||||||
php
|
php
|
||||||
|
|||||||
Reference in new issue
Block a user