Add files to repository

Src/BootHelper.HC

@@ -0,0 +1,26 @@
+// 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;