From 7caae74955ddf86f5840819ca48f15569e54d384 Mon Sep 17 00:00:00 2001 From: Paul Gardner-Stephen Date: Wed, 1 May 2019 22:12:33 +0930 Subject: [PATCH] move debug code for testing IEC bus --- c64/basic/cmd_unimplemented.s | 9 +++++++++ c64/kernal/iec_wait_for_data_release.s | 1 + c64/kernal/open.s | 2 +- c64/kernal/reset_entry.s | 2 -- 4 files changed, 11 insertions(+), 3 deletions(-) diff --git a/c64/basic/cmd_unimplemented.s b/c64/basic/cmd_unimplemented.s index 2133a60b..7331289c 100644 --- a/c64/basic/cmd_unimplemented.s +++ b/c64/basic/cmd_unimplemented.s @@ -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 diff --git a/c64/kernal/iec_wait_for_data_release.s b/c64/kernal/iec_wait_for_data_release.s index 36232975..86070bcb 100644 --- a/c64/kernal/iec_wait_for_data_release.s +++ b/c64/kernal/iec_wait_for_data_release.s @@ -1,5 +1,6 @@ iec_wait_for_data_release: LDA $DD00 + sta $0419 and #$40 beq iec_wait_for_data_release rts diff --git a/c64/kernal/open.s b/c64/kernal/open.s index 17df84f8..189e4227 100644 --- a/c64/kernal/open.s +++ b/c64/kernal/open.s @@ -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). diff --git a/c64/kernal/reset_entry.s b/c64/kernal/reset_entry.s index ef5fb2db..0febf335 100644 --- a/c64/kernal/reset_entry.s +++ b/c64/kernal/reset_entry.s @@ -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)