/* * iecrom.c * * Written by * Andreas Boose * * This file is part of VICE, the Versatile Commodore Emulator. * See README for copyright notice. * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU General Public License as published by * the Free Software Foundation; either version 2 of the License, or * (at your option) any later version. * * This program is distributed in the hope that it will be useful, * but WITHOUT ANY WARRANTY; without even the implied warranty of * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the * GNU General Public License for more details. * * You should have received a copy of the GNU General Public License * along with this program; if not, write to the Free Software * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA * 02111-1307 USA. * */ #include "vice.h" #include #include #include "drive.h" #include "driverom.h" #include "drivetypes.h" #include "iecrom.h" #include "log.h" #include "resources.h" #include "sysfile.h" /* #define DEBUG_IECROM */ #ifdef DEBUG_IECROM #define DBG(x) log_printf x #else #define DBG(x) #endif #define DRIVE_ROM1541_CHECKSUM 1991711 /* NOTE: 1571CR is handled in iec128dcr/iec128dcrrom.c */ /* Logging goes here. */ static log_t iecrom_log; /* If nonzero, the ROM image is available */ static unsigned int rom1540_loaded = 0; static unsigned int rom1541_loaded = 0; static unsigned int rom1541ii_loaded = 0; static unsigned int rom1570_loaded = 0; static unsigned int rom1571_loaded = 0; static unsigned int rom1581_loaded = 0; static unsigned int rom2000_loaded = 0; static unsigned int rom4000_loaded = 0; static unsigned int romCMDHD_loaded = 0; static unsigned int drive_rom1540_size = 0; static unsigned int drive_rom1541_size = 0; static unsigned int drive_rom1541ii_size = 0; static int iecrom_do_1541_checksum(diskunit_context_t *unit) { unsigned int i; unsigned long s; DBG(("iecrom_do_1541_checksum type: %04x", unit->type)); /* Calculate ROM checksum. */ for (i = DRIVE_ROM1541_SIZE_EXPANDED - drive_rom1541_size, s = 0; i < DRIVE_ROM1541_SIZE_EXPANDED; i++) { s += unit->rom[i]; } if (s != DRIVE_ROM1541_CHECKSUM) { log_warning(iecrom_log, "Unknown 1541 ROM image. Sum: %lu.", s); } return 0; } /* test ROM for existence, size */ int iecrom_load_1540(void) { return driverom_test_load("DosName1540", &rom1540_loaded, DRIVE_ROM1540_SIZE, DRIVE_ROM1540_SIZE_EXPANDED, "1540", DRIVE_TYPE_1540, &drive_rom1540_size); } int iecrom_load_1541(void) { return driverom_test_load("DosName1541", &rom1541_loaded, DRIVE_ROM1541_SIZE, DRIVE_ROM1541_SIZE_EXPANDED, "1541", DRIVE_TYPE_1541, &drive_rom1541_size); } int iecrom_load_1541ii(void) { return driverom_test_load("DosName1541ii", &rom1541ii_loaded, DRIVE_ROM1541II_SIZE, DRIVE_ROM1541II_SIZE_EXPANDED, "1541-II", DRIVE_TYPE_1541II, &drive_rom1541ii_size); } int iecrom_load_1570(void) { return driverom_test_load("DosName1570", &rom1570_loaded, DRIVE_ROM1570_SIZE, DRIVE_ROM1570_SIZE, "1570", DRIVE_TYPE_1570, NULL); } int iecrom_load_1571(void) { return driverom_test_load("DosName1571", &rom1571_loaded, DRIVE_ROM1571_SIZE, DRIVE_ROM1571_SIZE, "1571", DRIVE_TYPE_1571, NULL); } int iecrom_load_1581(void) { return driverom_test_load("DosName1581", &rom1581_loaded, DRIVE_ROM1581_SIZE, DRIVE_ROM1581_SIZE, "1581", DRIVE_TYPE_1581, NULL); } int iecrom_load_2000(void) { return driverom_test_load("DosName2000", &rom2000_loaded, DRIVE_ROM2000_SIZE, DRIVE_ROM2000_SIZE, "2000", DRIVE_TYPE_2000, NULL); } int iecrom_load_4000(void) { return driverom_test_load("DosName4000", &rom4000_loaded, DRIVE_ROM4000_SIZE, DRIVE_ROM4000_SIZE, "4000", DRIVE_TYPE_4000, NULL); } int iecrom_load_CMDHD(void) { return driverom_test_load("DosNameCMDHD", &romCMDHD_loaded, DRIVE_ROMCMDHD_SIZE, DRIVE_ROMCMDHD_SIZE, "CMDHD", DRIVE_TYPE_CMDHD, NULL); } /* setup (=load) the ROM for a given disk unit */ void iecrom_setup_image(diskunit_context_t *unit) { unsigned int loaded = 0; DBG(("iecrom_setup_image type %04x rom_loaded:%d rom_type: %04x", unit->type, rom_loaded, unit->rom_type)); if (rom_loaded) { if (unit->rom_type != unit->type) { /* set this here to avoid recursion */ unit->rom_type = unit->type; switch (unit->type) { case DRIVE_TYPE_1540: driverom_load("DosName1540", unit->rom, &loaded, DRIVE_ROM1540_SIZE, DRIVE_ROM1540_SIZE_EXPANDED, "1540", DRIVE_TYPE_1540, &drive_rom1540_size); if (drive_rom1540_size <= DRIVE_ROM1540_SIZE) { /* ROM was loaded to the upper part of the buffer */ memcpy(unit->rom, &unit->rom[DRIVE_ROM1540_SIZE], DRIVE_ROM1540_SIZE); } break; case DRIVE_TYPE_1541: driverom_load("DosName1541", unit->rom, &loaded, DRIVE_ROM1541_SIZE, DRIVE_ROM1541_SIZE_EXPANDED, "1541", DRIVE_TYPE_1541, &drive_rom1541_size); if (drive_rom1541_size <= DRIVE_ROM1541_SIZE) { /* ROM was loaded to the upper part of the buffer */ memcpy(unit->rom, &unit->rom[DRIVE_ROM1541_SIZE], DRIVE_ROM1541_SIZE); } break; case DRIVE_TYPE_1541II: driverom_load("DosName1541ii", unit->rom, &loaded, DRIVE_ROM1541II_SIZE, DRIVE_ROM1541II_SIZE_EXPANDED, "1541-II", DRIVE_TYPE_1541II, &drive_rom1541ii_size); if (drive_rom1541ii_size <= DRIVE_ROM1541II_SIZE) { /* ROM was loaded to the upper part of the buffer */ memcpy(unit->rom, &unit->rom[DRIVE_ROM1541II_SIZE], DRIVE_ROM1541II_SIZE); } break; case DRIVE_TYPE_1570: driverom_load("DosName1570", unit->rom, &loaded, DRIVE_ROM1570_SIZE, DRIVE_ROM1570_SIZE, "1570", DRIVE_TYPE_1570, NULL); break; case DRIVE_TYPE_1571: driverom_load("DosName1571", unit->rom, &loaded, DRIVE_ROM1571_SIZE, DRIVE_ROM1571_SIZE, "1571", DRIVE_TYPE_1571, NULL); break; case DRIVE_TYPE_1581: driverom_load("DosName1581", unit->rom, &loaded, DRIVE_ROM1581_SIZE, DRIVE_ROM1581_SIZE, "1581", DRIVE_TYPE_1581, NULL); break; case DRIVE_TYPE_2000: driverom_load("DosName2000", unit->rom, &loaded, DRIVE_ROM2000_SIZE, DRIVE_ROM2000_SIZE, "2000", DRIVE_TYPE_2000, NULL); break; case DRIVE_TYPE_4000: driverom_load("DosName4000", unit->rom, &loaded, DRIVE_ROM4000_SIZE, DRIVE_ROM4000_SIZE, "4000", DRIVE_TYPE_4000, NULL); break; case DRIVE_TYPE_CMDHD: driverom_load("DosNameCMDHD", unit->rom, &loaded, DRIVE_ROMCMDHD_SIZE, DRIVE_ROMCMDHD_SIZE, "CMDHD", DRIVE_TYPE_CMDHD, NULL); break; default: /* NOP */ break; } /* if loading failed, set rom type to 0 */ if (!loaded) { unit->rom_type = 0; } } } } /* check if the drive ROM is available for a given drive type, returns -1 on error */ int iecrom_check_loaded(unsigned int type) { switch (type) { case DRIVE_TYPE_NONE: return 0; case DRIVE_TYPE_1540: if (rom1540_loaded < 1 && rom_loaded) { return -1; } break; case DRIVE_TYPE_1541: if (rom1541_loaded < 1 && rom_loaded) { return -1; } break; case DRIVE_TYPE_1541II: if (rom1541ii_loaded < 1 && rom_loaded) { return -1; } break; case DRIVE_TYPE_1570: if (rom1570_loaded < 1 && rom_loaded) { return -1; } break; case DRIVE_TYPE_1571: if (rom1571_loaded < 1 && rom_loaded) { return -1; } break; case DRIVE_TYPE_1581: if (rom1581_loaded < 1 && rom_loaded) { return -1; } break; case DRIVE_TYPE_2000: if (rom2000_loaded < 1 && rom_loaded) { return -1; } break; case DRIVE_TYPE_4000: if (rom4000_loaded < 1 && rom_loaded) { return -1; } break; case DRIVE_TYPE_CMDHD: if (romCMDHD_loaded < 1 && rom_loaded) { return -1; } break; case DRIVE_TYPE_ANY: if ((!rom1540_loaded && !rom1541_loaded && !rom1541ii_loaded && !rom1570_loaded && !rom1571_loaded && !rom1581_loaded && !rom2000_loaded) && !rom4000_loaded && !romCMDHD_loaded && rom_loaded) { return -1; } break; default: return -1; } return 0; } /* perform checksum check on ROM for given disk unit nr */ void iecrom_do_checksum(diskunit_context_t *unit) { DBG(("iecrom_do_checksum type: %04x", unit->type)); if (unit->type == DRIVE_TYPE_1541) { iecrom_do_1541_checksum(unit); } } void iecrom_init(void) { iecrom_log = log_open("IECDriveROM"); }