fix various problems with LOAD taking a real filename. More to do.

This commit is contained in:
Paul Gardner-Stephen committed 2019-05-05 01:26:37 +09:30
1 parent f14cf20c92
commit e547b56003
4 files changed
+77 -10

No files matched your search

+16 -2
View File
@@ -31,7 +31,20 @@ load:
;; Display SEARCHING FOR
jsr printf
.byte "SEARCHING FOR <INSERT FILENAME HERE>",$0d,$0
.byte "SEARCHING FOR "
ldy #0
print_filename_loop:
cpy current_filename_length
beq +
lda (current_filename_ptr),y
jsr $ffd2
iny
jmp print_filename_loop
*
lda #$0d
jsr $ffd2
;; Begin sending under attention
jsr iec_assert_atn
@@ -79,7 +92,7 @@ send_filename:
tya
pha
txa
jsr iec_tx_byte
pla
@@ -191,6 +204,7 @@ load_error:
;; XXX - Indicate KERNAL (not BASIC) LOAD error condtion
sec
lda #$02
;; Re-enable interrupts and return
cli