static int set_drive_true_emulation(int val, void *param)
{
unsigned int dnr;
drive_t *drive;
drive_true_emulation = val;
machine_bus_status_truedrive_set((unsigned int)drive_true_emulation);
if (val) {
for (dnr = 0; dnr < DRIVE_NUM; dnr++) {
drive = drive_context[dnr]->drive;
if (drive->type != DRIVE_TYPE_NONE) {
drive->enable = 1;
if (drive->type == DRIVE_TYPE_2000 || drive->type == DRIVE_TYPE_4000) {
drivecpu65c02_reset_clk(drive_context[dnr]);
} else {
drivecpu_reset_clk(drive_context[dnr]);
}
}
}
for (dnr = 0; dnr < DRIVE_NUM; dnr++) {
drive_enable(drive_context[dnr]);
}
} else {
for (dnr = 0; dnr < DRIVE_NUM; dnr++) {
drive = drive_context[dnr]->drive;
drive_disable(drive_context[dnr]);
if (drive->image != NULL) {
vdrive_bam_reread_bam(dnr + 8);
}
}
}
return 0;
}
static int drive_snapshot_read_image_module(snapshot_t *s, unsigned int dnr)
{
BYTE major_version, minor_version;
snapshot_module_t *m;
char snap_module_name[10];
WORD word;
char *filename = NULL;
char *request_str;
int len = 0;
FILE *fp;
BYTE sector_data[0x100];
disk_addr_t dadr;
int rc;
drive_t *drive;
drive = drive_context[dnr]->drive;
sprintf(snap_module_name, "NOIMAGE%i", dnr);
m = snapshot_module_open(s, snap_module_name,
&major_version, &minor_version);
if (m != NULL) {
file_system_detach_disk(dnr + 8);
snapshot_module_close(m);
return 0;
}
sprintf(snap_module_name, "IMAGE%i", dnr);
m = snapshot_module_open(s, snap_module_name,
&major_version, &minor_version);
if (m == NULL) {
return 0;
}
if (major_version > IMAGE_SNAP_MAJOR || minor_version > IMAGE_SNAP_MINOR) {
log_error(drive_snapshot_log,
"Snapshot module version (%d.%d) newer than %d.%d.",
major_version, minor_version,
IMAGE_SNAP_MAJOR, IMAGE_SNAP_MINOR);
}
if (SMR_W(m, &word) < 0) {
snapshot_module_close(m);
return -1;
}
switch (word) {
case 1581:
len = D81_FILE_SIZE;
break;
case 8050:
len = D80_FILE_SIZE;
break;
case 8250:
len = D82_FILE_SIZE;
break;
default:
log_error(drive_snapshot_log,
"Snapshot of disk image unknown (type %d)",
(int)word);
snapshot_module_close(m);
return -1;
}
/* create temporary file of the right size */
fp = archdep_mkstemp_fd(&filename, MODE_WRITE);
if (fp == NULL) {
log_error(drive_snapshot_log, "Could not create temporary file!");
snapshot_module_close(m);
return -1;
}
/* blow up the file to needed size */
if (fseek(fp, len - 1, SEEK_SET) < 0
|| (fputc(0, fp) == EOF)) {
log_error(drive_snapshot_log, "Could not create large temporary file");
fclose(fp);
lib_free(filename);
snapshot_module_close(m);
return -1;
}
fclose(fp);
lib_free(filename);
if (file_system_attach_disk(dnr + 8, filename) < 0) {
log_error(drive_snapshot_log, "Invalid Disk Image");
lib_free(filename);
snapshot_module_close(m);
return -1;
}
request_str = lib_msprintf("Disk image unit #%d imported from snapshot",
dnr + 8);
zfile_close_action(filename, ZFILE_REQUEST, request_str);
lib_free(request_str);
/* we use the return code to step through the tracks. So we do not
need any geometry info. */
SMR_BA(m, sector_data, 0x100);
for (dadr.track = 1;; dadr.track++) {
rc = 0;
for (dadr.sector = 0;; dadr.sector++) {
rc = disk_image_write_sector(drive->image, sector_data, &dadr);
if (rc == 0) {
SMR_BA(m, sector_data, 0x100);
} else {
break;
}
}
if (dadr.sector == 0) {
break;
}
}
vdrive_bam_reread_bam(dnr + 8);
snapshot_module_close(m);
m = NULL;
return 0;
}