move debug code for testing IEC bus

This commit is contained in:
Paul Gardner-Stephen committed 2019-05-01 22:12:33 +09:30
1 parent 9f0880ed7e
commit 7caae74955
4 files changed
+11 -3

No files matched your search

+9
View File
@@ -82,4 +82,13 @@ cmd_go:
;; Undefined tokens
cmd_unimplemented:
;; Dummy action while testing IEC support
;; Try to open an IEC file
jsr $ffc0
sta $0427
lda #$00
ror
sta $0426
jmp do_NOT_IMPLEMENTED_error
+1
View File
@@ -1,5 +1,6 @@
iec_wait_for_data_release:
LDA $DD00
sta $0419
and #$40
beq iec_wait_for_data_release
rts
+1 -1
View File
@@ -21,7 +21,7 @@ open:
lda #$00
clc
open_error:
open_error:
;; Re-enable interrupts and return
;; (iec_tx_byte will have set/cleared C flag and put result code
;; in A if it was an error).
-2
View File
@@ -30,7 +30,5 @@ reset_entry:
; What do we do when finished? A C64 jumps into the BASIC ROM
cli ; Allow interrupts to happen
jsr open
; c64 prg p269
jmp ($a000)