move debug code for testing IEC bus
This commit is contained in:
1 parent
9f0880ed7e
commit
7caae74955
4 files changed
+11
-3
No files matched your search
@@ -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,5 +1,6 @@
|
||||
iec_wait_for_data_release:
|
||||
LDA $DD00
|
||||
sta $0419
|
||||
and #$40
|
||||
beq iec_wait_for_data_release
|
||||
rts
|
||||
+1
-1
@@ -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).
|
||||
|
||||
@@ -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)
|
||||
Reference in new issue
Block a user