2004-02-15 20:46:45 +00:00
|
|
|
/*
|
|
|
|
*
|
|
|
|
* (c) 2004 Laurent Vivier <LaurentVivier@wanadoo.fr>
|
|
|
|
*
|
|
|
|
*/
|
|
|
|
|
|
|
|
#include <stdio.h>
|
|
|
|
#include <malloc.h>
|
2004-02-21 01:43:51 +00:00
|
|
|
#include <string.h>
|
2004-06-22 21:28:36 +00:00
|
|
|
#include <unistd.h>
|
2004-02-15 20:46:45 +00:00
|
|
|
|
2004-02-17 22:52:33 +00:00
|
|
|
#include "lowmem.h"
|
2004-02-19 11:34:18 +00:00
|
|
|
#include "bank.h"
|
2004-02-15 20:46:45 +00:00
|
|
|
#include "memory.h"
|
|
|
|
#include "uncompress.h"
|
2005-05-12 05:48:27 +00:00
|
|
|
#ifdef ARCH_M68K
|
2004-02-15 20:46:45 +00:00
|
|
|
#include "bootinfo.h"
|
2005-05-12 05:48:27 +00:00
|
|
|
#endif
|
|
|
|
#ifdef ARCH_PPC
|
|
|
|
#include "bootx.h"
|
|
|
|
#endif
|
2004-02-26 22:51:37 +00:00
|
|
|
#include "arch.h"
|
|
|
|
#include "misc.h"
|
2004-06-01 22:00:21 +00:00
|
|
|
#include "glue.h"
|
|
|
|
#include "load.h"
|
2004-06-22 21:28:36 +00:00
|
|
|
#include "console.h"
|
|
|
|
#include "vga.h"
|
2004-02-15 20:46:45 +00:00
|
|
|
|
2004-02-24 21:27:48 +00:00
|
|
|
typedef void (*entry_t) (unsigned long , unsigned long , unsigned long );
|
2004-06-09 17:34:40 +00:00
|
|
|
typedef void (*disable_cache_t) (void);
|
2004-02-24 21:27:48 +00:00
|
|
|
|
2005-05-10 21:49:28 +00:00
|
|
|
#ifdef ARCH_M68K
|
2004-03-04 22:46:24 +00:00
|
|
|
extern void enter_kernel030(unsigned long addr, unsigned long size, unsigned long dest);
|
2004-03-06 01:10:31 +00:00
|
|
|
extern char end_enter_kernel030;
|
2004-06-09 17:34:40 +00:00
|
|
|
extern void MMU030_disable_cache(void);
|
2004-03-06 01:10:31 +00:00
|
|
|
extern void enter_kernel040(unsigned long addr, unsigned long size, unsigned long dest);
|
|
|
|
extern char end_enter_kernel040;
|
2004-06-09 17:34:40 +00:00
|
|
|
extern void MMU040_disable_cache(void);
|
2005-05-10 21:49:28 +00:00
|
|
|
#endif
|
|
|
|
#ifdef ARCH_PPC
|
|
|
|
extern void enter_kernelPPC(unsigned long addr, unsigned long size, unsigned long dest);
|
|
|
|
extern char end_enter_kernelPPC;
|
|
|
|
#endif
|
2004-02-15 20:46:45 +00:00
|
|
|
|
2004-02-24 21:27:48 +00:00
|
|
|
#define PAGE_SHIFT 12
|
|
|
|
#define PAGE_SIZE (1UL << PAGE_SHIFT)
|
|
|
|
#define PAGE_MASK (~(PAGE_SIZE-1))
|
|
|
|
|
2004-02-15 20:46:45 +00:00
|
|
|
#define BI_ALLOC_SIZE (4096L) // Allocate 4K for bootinfo
|
2004-02-24 21:27:48 +00:00
|
|
|
#define KERNEL_ALIGN (256L * 1024L) // Kernel alignment, on 256K boundary
|
2004-02-15 20:46:45 +00:00
|
|
|
|
2004-06-22 21:28:36 +00:00
|
|
|
int start(emile_l2_header_t* info)
|
2004-02-15 20:46:45 +00:00
|
|
|
{
|
|
|
|
char * kernel;
|
2004-02-23 23:34:39 +00:00
|
|
|
unsigned long physImage;
|
2004-02-21 01:43:51 +00:00
|
|
|
entry_t entry;
|
2005-05-12 05:48:27 +00:00
|
|
|
#ifdef ARCH_M68K
|
2004-06-09 17:34:40 +00:00
|
|
|
disable_cache_t disable_cache;
|
2005-05-12 05:48:27 +00:00
|
|
|
#endif
|
2004-02-21 01:43:51 +00:00
|
|
|
int ret;
|
2004-02-23 23:34:39 +00:00
|
|
|
unsigned long start_mem;
|
|
|
|
unsigned long aligned_size;
|
|
|
|
unsigned long aligned_addr;
|
2004-03-06 01:10:31 +00:00
|
|
|
unsigned long enter_kernel;
|
|
|
|
unsigned long end_enter_kernel;
|
2004-06-03 22:39:38 +00:00
|
|
|
unsigned long kernel_image_start;
|
|
|
|
unsigned long ramdisk_start;
|
|
|
|
int uncompressed_size;
|
2004-02-15 20:46:45 +00:00
|
|
|
|
2005-05-10 21:49:28 +00:00
|
|
|
printf("Early Macintosh Image LoadEr");
|
|
|
|
#if defined(ARCH_M68K)
|
|
|
|
printf(" for Motorola 680x0\n");
|
|
|
|
#elif defined(ARCH_PPC)
|
|
|
|
printf(" for PowerPC\n");
|
|
|
|
#else
|
|
|
|
printf(" (unknown processor)\n");
|
|
|
|
#endif
|
|
|
|
printf("EMILE v"VERSION" (c) 2004,2005 Laurent Vivier\n");
|
2004-02-15 20:46:45 +00:00
|
|
|
printf("This is free software, redistribute it under GPL\n");
|
|
|
|
|
2004-10-07 19:52:44 +00:00
|
|
|
if (!EMILE_COMPAT(EMILE_03_SIGNATURE, info->signature))
|
2004-06-22 21:28:36 +00:00
|
|
|
error("Bad header signature !\n");
|
|
|
|
|
2004-05-26 18:32:49 +00:00
|
|
|
arch_init();
|
|
|
|
|
|
|
|
init_memory_map();
|
|
|
|
|
2004-06-04 22:29:43 +00:00
|
|
|
#ifdef BANK_DUMP
|
|
|
|
bank_dump();
|
|
|
|
#endif
|
|
|
|
|
2004-12-25 00:53:59 +00:00
|
|
|
printf("Available Memory: %ld kB\n", bank_mem_avail() / 1024);
|
|
|
|
|
2004-10-07 09:09:58 +00:00
|
|
|
if (info->gestaltID != 0) {
|
|
|
|
machine_id = info->gestaltID;
|
|
|
|
printf("User forces gestalt ID to %ld\n", machine_id);
|
|
|
|
}
|
|
|
|
|
2004-12-25 01:35:31 +00:00
|
|
|
/* where is mapped my boot function ? */
|
|
|
|
|
2005-05-10 21:49:28 +00:00
|
|
|
#ifdef ARCH_M68K
|
2005-05-12 05:48:27 +00:00
|
|
|
if (arch_type == gestalt68k)
|
2004-12-25 01:35:31 +00:00
|
|
|
{
|
2005-05-12 05:48:27 +00:00
|
|
|
if (mmu_type == gestalt68040MMU)
|
|
|
|
{
|
|
|
|
enter_kernel = (unsigned long)enter_kernel040;
|
|
|
|
end_enter_kernel = (unsigned long)&end_enter_kernel040;
|
|
|
|
disable_cache = MMU040_disable_cache;
|
|
|
|
}
|
|
|
|
else if (mmu_type == gestalt68030MMU)
|
|
|
|
{
|
|
|
|
enter_kernel = (unsigned long)enter_kernel030;
|
|
|
|
end_enter_kernel = (unsigned long)&end_enter_kernel030;
|
|
|
|
disable_cache = MMU030_disable_cache;
|
|
|
|
}
|
|
|
|
else if (mmu_type == gestalt68851)
|
|
|
|
{
|
|
|
|
error("MMU 68851 is not supported");
|
|
|
|
}
|
|
|
|
else if (mmu_type == gestaltNoMMU)
|
|
|
|
{
|
|
|
|
error("CPU without MMU is not supported");
|
|
|
|
}
|
|
|
|
else
|
|
|
|
error("Unknown MMU");
|
2004-12-25 01:35:31 +00:00
|
|
|
}
|
2005-05-10 21:49:28 +00:00
|
|
|
#endif
|
|
|
|
#ifdef ARCH_PPC
|
2005-05-12 05:48:27 +00:00
|
|
|
if (arch_type == gestaltPowerPC)
|
|
|
|
{
|
|
|
|
enter_kernel = (unsigned long)enter_kernelPPC;
|
|
|
|
end_enter_kernel = (unsigned long)&end_enter_kernelPPC;
|
|
|
|
}
|
2005-05-10 21:49:28 +00:00
|
|
|
#endif
|
2004-12-25 01:35:31 +00:00
|
|
|
|
2004-06-01 22:00:21 +00:00
|
|
|
/* load kernel */
|
|
|
|
|
2004-06-04 22:29:43 +00:00
|
|
|
printf("vmlinux %s\n", info->command_line);
|
2004-12-03 00:16:30 +00:00
|
|
|
#ifdef SCSI_SUPPORT
|
|
|
|
info->kernel_image_offset = (unsigned long)info->kernel_image_offset + (unsigned long)info;
|
|
|
|
#endif
|
2004-06-22 21:28:36 +00:00
|
|
|
printf("Kernel image size is %d Bytes\n", info->kernel_image_size);
|
2004-12-25 01:35:31 +00:00
|
|
|
|
|
|
|
/* allocate memory for kernel */
|
|
|
|
|
|
|
|
if (info->kernel_size == 0) /* means uncompressed */
|
|
|
|
kernel_image_start = (unsigned long)malloc_contiguous(
|
|
|
|
info->kernel_image_size +
|
|
|
|
BI_ALLOC_SIZE +
|
|
|
|
end_enter_kernel - enter_kernel + 4);
|
|
|
|
else
|
2004-12-29 23:43:53 +00:00
|
|
|
kernel_image_start = (unsigned long)malloc(
|
2004-12-25 00:53:59 +00:00
|
|
|
info->kernel_image_size + 4);
|
2004-12-25 01:35:31 +00:00
|
|
|
|
2004-12-25 00:53:59 +00:00
|
|
|
kernel_image_start = (kernel_image_start + 3) & 0xFFFFFFFC;
|
|
|
|
printf("Kernel image base at 0x%lx\n", kernel_image_start);
|
2004-12-29 23:43:53 +00:00
|
|
|
if (kernel_image_start == 0)
|
|
|
|
error("Cannot allocate memory\n");
|
2004-12-25 00:53:59 +00:00
|
|
|
|
2004-12-25 01:35:31 +00:00
|
|
|
/* load kernel */
|
|
|
|
|
2004-12-25 00:53:59 +00:00
|
|
|
printf("Loading kernel...\n");
|
|
|
|
ret = load_image((unsigned long)info->kernel_image_offset,
|
|
|
|
info->kernel_image_size, (char*)kernel_image_start);
|
|
|
|
if (ret == -1)
|
|
|
|
error("Cannot load kernel image\n");
|
2004-06-01 22:00:21 +00:00
|
|
|
|
2004-12-25 01:35:31 +00:00
|
|
|
/* uncompress kernel if needed */
|
2004-02-26 22:51:37 +00:00
|
|
|
|
2004-12-24 22:36:45 +00:00
|
|
|
if (info->kernel_image_size == 0)
|
|
|
|
error("Kernel is missing !!!!\n");
|
2004-12-25 01:35:31 +00:00
|
|
|
else if (info->kernel_size == 0)
|
2004-02-15 20:46:45 +00:00
|
|
|
{
|
2004-12-25 01:35:31 +00:00
|
|
|
/* kernel is not compressed, execute in place */
|
2004-06-01 22:00:21 +00:00
|
|
|
|
2004-12-25 01:35:31 +00:00
|
|
|
kernel = (char*)kernel_image_start;
|
|
|
|
uncompressed_size = info->kernel_image_size;
|
|
|
|
}
|
|
|
|
else
|
|
|
|
{
|
2004-02-15 20:46:45 +00:00
|
|
|
/* add KERNEL_ALIGN if we have to align
|
|
|
|
* and BI_ALLOC_SIZE for bootinfo
|
|
|
|
*/
|
|
|
|
|
2004-06-22 21:28:36 +00:00
|
|
|
printf("Allocating %d bytes for kernel\n", info->kernel_size);
|
2004-07-12 21:32:44 +00:00
|
|
|
kernel = (char*)malloc_contiguous(info->kernel_size + 4 + BI_ALLOC_SIZE +
|
2004-06-07 18:52:31 +00:00
|
|
|
end_enter_kernel - enter_kernel);
|
2004-02-15 20:46:45 +00:00
|
|
|
if (kernel == 0)
|
|
|
|
{
|
2004-06-22 21:28:36 +00:00
|
|
|
printf("cannot allocate %d bytes\n", info->kernel_size);
|
2004-02-26 22:51:37 +00:00
|
|
|
while(1);
|
2004-02-15 20:46:45 +00:00
|
|
|
}
|
|
|
|
|
|
|
|
/* align kernel address to a 4 byte word */
|
|
|
|
|
|
|
|
kernel = (unsigned char*)(((unsigned long)kernel + 3) & 0xFFFFFFFC);
|
2004-06-03 22:39:38 +00:00
|
|
|
uncompressed_size = uncompress(kernel, (char*)kernel_image_start);
|
2004-06-01 22:00:21 +00:00
|
|
|
printf("\n");
|
2004-06-07 18:52:31 +00:00
|
|
|
|
2004-12-24 22:36:45 +00:00
|
|
|
/* free kernel image */
|
2004-06-16 17:22:22 +00:00
|
|
|
|
2004-12-24 22:36:45 +00:00
|
|
|
free((void*)kernel_image_start);
|
|
|
|
}
|
2004-06-07 18:52:31 +00:00
|
|
|
|
2004-12-24 22:36:45 +00:00
|
|
|
if (!check_full_in_bank((unsigned long)kernel, uncompressed_size))
|
|
|
|
error("Kernel between two banks, contact maintainer\n");
|
2004-06-07 18:52:31 +00:00
|
|
|
|
2004-12-24 22:36:45 +00:00
|
|
|
/* copy enter_kernel at end of kernel */
|
2004-02-15 20:46:45 +00:00
|
|
|
|
2004-12-24 22:36:45 +00:00
|
|
|
memcpy((char*)kernel + uncompressed_size + BI_ALLOC_SIZE,
|
|
|
|
(char*)enter_kernel, end_enter_kernel - enter_kernel);
|
2004-06-01 22:00:21 +00:00
|
|
|
|
2004-12-24 22:36:45 +00:00
|
|
|
end_enter_kernel = (unsigned long)kernel + uncompressed_size
|
|
|
|
+ BI_ALLOC_SIZE + (end_enter_kernel - enter_kernel);
|
|
|
|
enter_kernel = (unsigned long)kernel + BI_ALLOC_SIZE
|
|
|
|
+ uncompressed_size;
|
2004-06-01 22:00:21 +00:00
|
|
|
|
|
|
|
/* load ramdisk if needed */
|
|
|
|
|
2004-06-04 22:29:43 +00:00
|
|
|
if (info->ramdisk_size != 0)
|
2004-06-01 22:00:21 +00:00
|
|
|
{
|
2004-06-22 21:28:36 +00:00
|
|
|
printf("RAMDISK size is %d Bytes\n", info->ramdisk_size);
|
2004-12-25 00:53:59 +00:00
|
|
|
ramdisk_start = (unsigned long)malloc_contiguous(
|
|
|
|
info->ramdisk_size + 4);
|
|
|
|
ramdisk_start = (ramdisk_start + 3) & 0xFFFFFFFC;
|
|
|
|
printf("RAMDISK base at 0x%lx\n", ramdisk_start);
|
|
|
|
|
|
|
|
printf("Loading RAMDISK...\n");
|
|
|
|
ret = load_image((unsigned long)info->ramdisk_offset,
|
|
|
|
info->ramdisk_size, (char*)ramdisk_start);
|
|
|
|
if (ret == -1)
|
|
|
|
error("Cannot load ramdisk\n");
|
|
|
|
|
2004-07-12 21:32:44 +00:00
|
|
|
if (!check_full_in_bank(ramdisk_start, info->ramdisk_size))
|
2004-12-24 22:36:45 +00:00
|
|
|
error("ramdisk between two banks, contact maintainer\n");
|
2004-06-01 22:00:21 +00:00
|
|
|
}
|
2004-06-03 08:11:23 +00:00
|
|
|
else
|
|
|
|
{
|
|
|
|
ramdisk_start = 0;
|
|
|
|
printf("no RAMDISK\n");
|
|
|
|
}
|
2004-06-16 17:22:22 +00:00
|
|
|
|
2005-05-12 05:48:27 +00:00
|
|
|
#ifdef ARCH_M68K
|
2004-02-23 23:34:39 +00:00
|
|
|
ret = logical2physical((unsigned long)kernel, &physImage);
|
|
|
|
|
2005-05-12 05:48:27 +00:00
|
|
|
if (arch_type == gestalt68k)
|
|
|
|
{
|
|
|
|
/* disable and flush cache */
|
2004-06-09 20:52:14 +00:00
|
|
|
|
2005-05-12 05:48:27 +00:00
|
|
|
disable_cache();
|
2004-06-09 20:52:14 +00:00
|
|
|
|
2005-05-12 05:48:27 +00:00
|
|
|
/* initialize bootinfo structure */
|
2004-06-03 22:39:38 +00:00
|
|
|
|
2005-05-12 05:48:27 +00:00
|
|
|
bootinfo_init(info->command_line,
|
|
|
|
(char*)ramdisk_start, info->ramdisk_size);
|
2004-06-03 22:39:38 +00:00
|
|
|
|
2005-05-12 05:48:27 +00:00
|
|
|
/* compute final address of kernel */
|
2004-02-24 21:27:48 +00:00
|
|
|
|
2005-05-12 05:48:27 +00:00
|
|
|
aligned_size = boot_info.memory[0].addr & (KERNEL_ALIGN - 1);
|
|
|
|
if ( aligned_size > 0 )
|
|
|
|
{
|
|
|
|
aligned_size = KERNEL_ALIGN - aligned_size;
|
|
|
|
aligned_addr = boot_info.memory[0].addr + aligned_size;
|
|
|
|
aligned_size = boot_info.memory[0].size - aligned_size;
|
|
|
|
boot_info.memory[0].addr = aligned_addr;
|
|
|
|
boot_info.memory[0].size = aligned_size;
|
|
|
|
}
|
2004-02-15 20:46:45 +00:00
|
|
|
|
2005-05-12 05:48:27 +00:00
|
|
|
/* set bootinfo at end of kernel image */
|
2004-02-23 00:20:11 +00:00
|
|
|
|
2005-05-12 05:48:27 +00:00
|
|
|
set_kernel_bootinfo(kernel + uncompressed_size);
|
2004-02-23 00:20:11 +00:00
|
|
|
|
2005-05-12 05:48:27 +00:00
|
|
|
start_mem = boot_info.memory[0].addr + PAGE_SIZE;
|
2004-02-23 00:20:11 +00:00
|
|
|
|
2005-05-12 05:48:27 +00:00
|
|
|
ret = logical2physical(enter_kernel, (unsigned long*)&entry);
|
2004-02-23 00:20:11 +00:00
|
|
|
|
2005-05-12 05:48:27 +00:00
|
|
|
if ( (ret == 0) && (enter_kernel != (unsigned long)entry) )
|
|
|
|
{
|
|
|
|
unsigned long logi;
|
|
|
|
unsigned long size = end_enter_kernel - enter_kernel;
|
2004-02-21 01:43:51 +00:00
|
|
|
|
2005-05-12 05:48:27 +00:00
|
|
|
logi = vga_get_video();
|
|
|
|
ret = logical2physical(logi, (unsigned long*)&entry);
|
2004-02-21 01:43:51 +00:00
|
|
|
|
2005-05-12 05:48:27 +00:00
|
|
|
memcpy((char*)logi, (char*)enter_kernel, size);
|
|
|
|
memcpy((char*)entry, (char*)enter_kernel, size);
|
|
|
|
}
|
|
|
|
}
|
|
|
|
#endif /* ARCH_M68K */
|
|
|
|
#ifdef ARCH_PPC
|
|
|
|
if (arch_type == gestaltPowerPC)
|
|
|
|
{
|
|
|
|
bootx_init(info->command_line,
|
|
|
|
(char*)ramdisk_start, info->ramdisk_size);
|
|
|
|
physImage = kernel;
|
|
|
|
start_mem = 0x200000;
|
2004-02-21 01:43:51 +00:00
|
|
|
}
|
2005-05-12 05:48:27 +00:00
|
|
|
#endif
|
|
|
|
|
|
|
|
printf("\n");
|
|
|
|
printf("Physical address of kernel will be 0x%08lx\n",
|
|
|
|
start_mem);
|
|
|
|
printf("Ok, booting the kernel.\n");
|
2004-02-21 01:43:51 +00:00
|
|
|
|
2004-06-23 19:09:11 +00:00
|
|
|
/* disable interrupt */
|
2004-02-23 23:34:39 +00:00
|
|
|
|
2004-06-23 19:09:11 +00:00
|
|
|
asm("ori.w #0x0700,%sr");
|
2004-06-09 17:34:40 +00:00
|
|
|
|
|
|
|
/* kick off */
|
|
|
|
|
2004-06-03 22:39:38 +00:00
|
|
|
entry(physImage, uncompressed_size + BI_ALLOC_SIZE, start_mem);
|
2004-02-15 20:46:45 +00:00
|
|
|
|
|
|
|
return 0;
|
|
|
|
}
|