26 lines
618 B
HolyC
26 lines
618 B
HolyC
// This script will clean up non-existent removable drives when booting in QEMU
|
|
|
|
U0 BootHelper() {
|
|
I64 i;
|
|
Bool is_qemu = FALSE;
|
|
U8 *drv_model = DrvModelNum(':');
|
|
if (!MemCmp("QEMU", drv_model, 4))
|
|
is_qemu = TRUE;
|
|
Free(drv_model);
|
|
if (is_qemu) {
|
|
// Remove non-existent removable drives
|
|
for (i = 'T'; i < 'X'; i++) {
|
|
if (Let2Drv(i, 0))
|
|
DrvDel(Let2Drv(i));
|
|
}
|
|
// Add default QEMU CDROM
|
|
CBlkDev *bd = CAlloc(sizeof(CBlkDev));
|
|
bd = BlkDevNextFreeSlot('T', 5);
|
|
bd->unit = 0;
|
|
bd->base0 = 0x170;
|
|
bd->base1 = 0x374;
|
|
BlkDevAdd(bd, , 0, 0);
|
|
}
|
|
}
|
|
|
|
BootHelper;
|