more I/O work in BASIC

This commit is contained in:
FeralChild64 committed 2020-06-22 21:25:23 +02:00
1 parent 524d532433
commit e1d21e287f
10 files changed
+130 -29

No files matched your search

+50 -1
View File
@@ -5,4 +5,53 @@
cmd_bsave:
jmp do_NOT_IMPLEMENTED_error // XXX implement the command
// Set default device and secondary address
jsr helper_load_init_params_no_VERCKB
// Fetch the file name
jsr helper_load_fetch_filename
bcs_16 do_MISSING_FILENAME_error
// Fetch device number
jsr injest_comma
bcs_16 do_SYNTAX_error
jsr helper_load_fetch_devnum
bcs_16 do_SYNTAX_error
// Fetch memory area start address
jsr injest_comma
bcs_16 do_SYNTAX_error
jsr basic_parse_line_number // XXX detect errors here
lda LINNUM+0
pha
lda LINNUM+1
pha
// Fetch memory area end address
jsr injest_comma
bcs_16 do_SYNTAX_error
jsr basic_parse_line_number // XXX detect errors here
// Setup start/end addresses
ldx LINNUM+0
ldy LINNUM+1
pla
sta LINNUM+1
pla
sta LINNUM+0
lda #LINNUM
// Perform SAVE - reuse regular command
jmp cmd_save_do
+1 -4
View File
@@ -24,11 +24,8 @@ cmd_merge:
!:
// Fetch device number
jsr fetch_coma_uint8
bcs !+
jsr helper_load_fetch_devnum
sta FA
!:
// Perform loading - just for a different address
sec