more I/O work in BASIC
This commit is contained in:
1 parent
524d532433
commit
e1d21e287f
10 files changed
+130
-29
No files matched your search
@@ -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
|
||||
@@ -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
|
||||
|
||||
Reference in new issue
Block a user