EMILE/second/main.c
2004-05-11 23:09:45 +00:00

177 lines
4.1 KiB
C

/*
*
* (c) 2004 Laurent Vivier <LaurentVivier@wanadoo.fr>
*
*/
#include <stdio.h>
#include <malloc.h>
#include <string.h>
#include "lowmem.h"
#include "bank.h"
#include "memory.h"
#include "uncompress.h"
#include "bootinfo.h"
#include "console.h"
#include "arch.h"
#include "misc.h"
typedef void (*entry_t) (unsigned long , unsigned long , unsigned long );
extern char _kernel_start;
extern char _kernel_end;
extern char _KERNEL_SIZE;
extern void enter_kernel030(unsigned long addr, unsigned long size, unsigned long dest);
extern char end_enter_kernel030;
extern void enter_kernel040(unsigned long addr, unsigned long size, unsigned long dest);
extern char end_enter_kernel040;
#define PAGE_SHIFT 12
#define PAGE_SIZE (1UL << PAGE_SHIFT)
#define PAGE_MASK (~(PAGE_SIZE-1))
#define BI_ALLOC_SIZE (4096L) // Allocate 4K for bootinfo
#define KERNEL_ALIGN (256L * 1024L) // Kernel alignment, on 256K boundary
int main(int argc, char** argv)
{
#ifdef TARGET_M68K
char * kernel;
char* kernel_image_start = &_kernel_start;
unsigned long kernel_image_size = &_kernel_end - &_kernel_start;
unsigned long kernel_size = (unsigned long)&_KERNEL_SIZE;
unsigned long physImage;
entry_t entry;
int ret;
unsigned long start_mem;
unsigned long aligned_size;
unsigned long aligned_addr;
unsigned long enter_kernel;
unsigned long end_enter_kernel;
#endif
printf("Early Macintosh Image LoadEr\n");
printf("EMILE v"VERSION" (c) 2004 Laurent Vivier\n");
printf("This is free software, redistribute it under GPL\n");
#ifdef TARGET_PPC
if (arch_type == gestalt68k)
{
error("You're trying to boot a powerPC kernel on 680x0 Machine\n");
}
/* FIX ME: add some stuff to start 3rd level (powerPC) */
while(1);
return 0;
#elif defined(TARGET_M68K)
if (arch_type == gestaltPowerPC)
{
error("You're trying to boot a m68k kernel on powerPC Machine\n");
}
printf("Available Memory: %ld kB\n", bank_mem_avail() / 1024);
printf("Kernel image found at %p\n", kernel_image_start);
printf("Kernel image size is %ld Bytes\n", kernel_image_size);
if (kernel_image_size != 0)
{
/* add KERNEL_ALIGN if we have to align
* and BI_ALLOC_SIZE for bootinfo
*/
kernel = (char*)malloc(kernel_size + 4 + BI_ALLOC_SIZE);
if (kernel == 0)
{
printf("cannot allocate %ld bytes\n", kernel_size);
while(1);
}
/* align kernel address to a 4 byte word */
kernel = (unsigned char*)(((unsigned long)kernel + 3) & 0xFFFFFFFC);
uncompress(kernel);
}
else
{
error("Kernel is missing !!!!\n");
return 1; /* to make gcc happy */
}
ret = logical2physical((unsigned long)kernel, &physImage);
/* compute final address of kernel */
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;
}
/* set bootinfo at end of kernel image */
set_kernel_bootinfo(kernel + kernel_size);
/* disable interrupt */
asm("ori.w #0x0700,%sr");
/* disable and flush cache */
asm("lea 0x0808, %%a1; movec %%a1, %%cacr"::: "%a1");
/* where is mapped my boot function ? */
if (mmu_type == gestalt68040MMU)
{
enter_kernel = (unsigned long)enter_kernel040;
end_enter_kernel = (unsigned long)&end_enter_kernel040;
}
else
{
enter_kernel = (unsigned long)enter_kernel030;
end_enter_kernel = (unsigned long)&end_enter_kernel030;
}
ret = logical2physical(enter_kernel, (unsigned long*)&entry);
if ( (ret == 0) && (enter_kernel != (unsigned long)entry) )
{
unsigned long logi;
unsigned long size = end_enter_kernel - enter_kernel;
logi = console_get_video();
ret = logical2physical(logi, (unsigned long*)&entry);
memcpy((char*)logi, (char*)enter_kernel, size);
memcpy((char*)entry, (char*)enter_kernel, size);
}
start_mem = boot_info.memory[0].addr + PAGE_SIZE;
printf("\n");
printf("Physical address of kernel will be 0x%08lx\n", start_mem);
printf("Ok, booting the kernel.\n");
entry(physImage, kernel_size + BI_ALLOC_SIZE, start_mem);
return 0;
#endif /* TARGET_M68K */
}