void op_save5(void)
{
unsigned i;
char filename[256];
unsigned length;
strid_t file = NULL;
offset end;
switch(numoperands) {
case 0:
op_save4();
return;
case 1:
n_show_error(E_INSTR, "call save with bad number of operands", numoperands);
mop_store_result(0);
return;
case 2:
file = n_file_prompt(fileusage_Data | fileusage_BinaryMode,
filemode_Write);
break;
default:
length = LOBYTE(operand[2]);
if(length > 13)
n_show_port(E_INSTR, "save with filename > 13 characters", length);
for(i = 0; i < length; i++)
filename[i] = glk_char_to_upper(LOBYTE(operand[2] + 1 + i));
filename[length] = 0;
file = n_file_name(fileusage_Data | fileusage_BinaryMode,
filemode_Write, filename);
break;
}
if(!file) {
mop_store_result(0);
return;
}
end = ((offset) operand[0]) + operand[1];
if(end > 65535 || end > total_size) {
n_show_error(E_MEMORY, "attempt to save data out of range", end);
mop_store_result(0);
return;
}
w_glk_put_buffer_stream(file, (char *) z_memory + operand[0], operand[1]);
glk_stream_close(file, NULL);
mop_store_result(1);
}
static strid_t startup_wopen(const char *name)
{
return n_file_name(fileusage_Data | fileusage_BinaryMode,
filemode_Write, name);
}