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:
|
||||
jsr printf
|
||||
.byte "ASSERT ATN",$0d,0
|
||||
lda $dd00
|
||||
ora #$08
|
||||
sta $dd00
|
||||
|
||||
@@ -1,4 +1,6 @@
|
||||
iec_release_atn:
|
||||
jsr printf
|
||||
.byte "RELEASE ATN",$0d,0
|
||||
lda $dd00
|
||||
and #$f7
|
||||
sta $dd00
|
||||
|
||||
+4
-1
@@ -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
|
||||
|
||||
Reference in new issue
Block a user