Re-enabled use of AROS.Boot file due to lack of general enthusiasm for

[tangerine.git] / arch / i386-pc / exec / exec_init.c

/*
    Copyright © 1995-2001, The AROS Development Team. All rights reserved.
    $Id$

    Desc: Early bootup section
    Lang: english
*/

/*
    AROS MemoryMap:
     
    First 4KB of RAM (page 0x0000-0x0FFF) are READ ONLY!
          
    +------------+-----------+-------------------------------------------------+
    |    address |    length |                                     description |
    +------------+-----------+-------------------------------------------------+
    |   System page. Read only! Addresses undefined here are not allowed!!!!   |    
    +------------------------+-------------------------------------------------+
    | 0x00000004 | 0x0000004 |                               ExecBase pointer. |
    | 0x00000020 | 0x0000020 |                                 CPU information |
    | 0x00000040 | 0x0000068 |                      TSS structure. Do not use! |
    | 0x000000a8 | 0x0000004 | INT server!                     cached_irq_mask |
    | 0x000000ac | 0x0000004 | INT server!                        io_apic_irqs |
    | 0x00000100 | 0x0000800 |                           256 interrupt vectors |
    | 0x00000900 | 0x0000040 |                         Global Descriptor Table |<---- needs changed! - must have space for GDT x No CPUs (NicJA)
    | 0x00000940 | 0x0000001 | INT server!                           softblock |
    | 0x00000a00 | 0x0000200 | INT server!                          irq_desc[] |
    +------------+-----------+-------------------------------------------------+
    | 0x00001000 | 0x0001000 |                           MultiBoot information |
    | 0x00002000 | ......... |                                      System RAM |
    | .......... | ......... |        Temporary stack frame for bootup process |
......0x0009e000   0x0001000                                                            SMP Trampoline  (NicJA)
    | 0x000a0000 | 0x0060000 | Data reserved for BIOS, VGA and some MMIO cards |
......0x000f7070                                                                        ACPI<-
 1MB| 0x00100000 | ......... |                                     AROS KERNEL |
    | .......... | ......... |           System RAM divided into DMA and rest. |
    +------------+-----------+-------------------------------------------------+ 
        0fef7f80
    WARNING!

        AROS Kernel will not be placed in first 1MB of ram anymore. Instead it
        will be either somewhere in DMA memory (eg at 2nd MByte), at the end of
        available memory or placed at Virtual address. Don't trust its position.

        When ROM module called from loader, the ExecBase should be cleared.      

        This file has been completely rewritten from assembler source!
*/


#include <exec/resident.h>
#include <exec/types.h>
#include <exec/nodes.h>
#include <exec/execbase.h>
#include <exec/memory.h>
#include <hardware/intbits.h>
#include <asm/segments.h>
#include <asm/linkage.h>
#include <asm/ptrace.h>
#include <dos/dosextens.h>

#include <aros/arossupportbase.h>
#include <aros/asmcall.h>
#include <aros/config.h>

#ifndef DEBUG
#   define DEBUG    1
#endif

#include <aros/debug.h>
#include <aros/multiboot.h>

#include <hardware/custom.h>

#include <proto/exec.h>

#include <stddef.h>
#include <stdio.h>
#include <string.h>

#include LC_LIBDEFS_FILE

#include "etask.h"
#include "exec_util.h"
#include "traps.h"
#include "vesa.h"

#define SMP_SUPPORT 0

#if SMP_SUPPORT
    extern void prepare_primary_cpu(struct ExecBase *SysBase);      /* FUNCTION FROM "cpu.resource"!!!!!!! */
#endif

/* As long as we don't have CPU detection routine, assume FPU to be present */

#define ASSUME_FPU 1

/*
 * Some macro definitions. __text will place given structure in .text section.
 * __no_ret will force function type to be no-return function. __packed will
 * force any structure to be non-aligned (we don't need alignment in native
 * AROS).
 */

#define __text      __attribute__((section(".text")))
#define __no_ret    __attribute__((noreturn))
#define __packed    __attribute__((packed))

#define rdcr(reg) \
    ({ long val; asm volatile("mov %%" #reg ",%0":"=r"(val)); val; })

#define wrcr(reg, val) \
    do { asm volatile("mov %0,%%" #reg::"r"(val)); } while(0)

#define cpuid(num, eax, ebx, ecx, edx) \
    do { asm volatile("cpuid":"=a"(eax),"=b"(ebx),"=c"(ecx),"=d"(edx):"a"(num)); } while(0)


/*
 * Some declarations
 */
void    exec_init() __no_ret;       /* init NEVER returns */
void    exec_cinit() __no_ret;      /* c-style init NEVER returns */
int     exec_check_base();
void    exec_DefaultTrap();
void    exec_DefaultTaskExit();
//void    exec_CheckCPU();
int     exec_RamCheck_fast();
int     exec_RamCheck_dma();
unsigned char setupVesa(struct multiboot *mbinfo);


asmlinkage void Exec_SystemCall(struct pt_regs);
ULONG   **exec_RomTagScanner();
void    irqSetup(void);

extern const UBYTE LIBEND __text;             /* Somewhere in library */
extern ULONG _edata,_end;                       /* They are standard for ELF */
extern const APTR LIBFUNCTABLE[] __text;

extern struct Library * PrepareAROSSupportBase (void);
extern ULONG SoftIntDispatch();
extern void Exec_SerialRawIOInit();
extern void Exec_SerialRawPutChar(UBYTE chr);

extern void Exec_Switch_FPU();
extern void Exec_PrepareContext_FPU();
extern void Exec_Dispatch_FPU();

extern void Exec_Switch_SSE();
extern void Exec_PrepareContext_SSE();
extern void Exec_Dispatch_SSE();

extern ULONG Exec_MakeFunctions(APTR, APTR, APTR, APTR);

AROS_UFP5S(void, IntServer,
    AROS_UFPA(ULONG, intMask, D0),
    AROS_UFPA(struct Custom *, custom, A0),
    AROS_UFPA(struct List *, intList, A1),
    AROS_UFPA(APTR, intCode, A5),
    AROS_UFPA(struct ExecBase *, SysBase, A6));

#undef memcpy
#define memcpy(_d, _s, _len)                     \
{                                                \
    int len = _len;                              \
    while (len)                                  \
    {                                            \
       ((char *)_d)[len-1] = ((char *)_s)[len-1];\
       len--;                                    \
    }                                            \
}


/* Temporary information */

#if 1

void clr();
void scr_RawPutChars(char *, int);

char tab[127];

#ifdef rkprintf
# undef rkprintf
#endif
#define rkprintf(x...)  scr_RawPutChars(tab, snprintf(tab,126, x))

#else

#define clr() /* eps */
#define rkprintf(x...) /* eps */

#endif

/*
 * Make SysBase global. This way we will have no problems with all crapy modules
 * which rely on global SysBase. They will get what they want - they will access
 * it :)
 */

asm(        ".globl aros_intern\n\t"
            ".globl SysBase     \n\t"
            ".set   aros_intern,0\n\t"
            ".set   SysBase,4       ");

/*
 * Here the history starts. We are already in flat, 32bit mode. All protections
 * are off, CPU is working in Supervisor level (CPL0). This state can be emu-
 * lated by ColdReboot() routine as it may freely use Supervisor()
 *
 * kernel_startup can be executed only from CPL0 without vmm. Interrupts should
 * be disabled.
 *
 * Note that kernel_startup is declared as entry symbol for output ELF file.
 */

asm(                ".globl kernel_startup  \n\t"
                    ".type  kernel_startup,@function\n"
"kernel_startup:    jmp exec_init");

const char exec_core[] __text       = "Native/CORE v2.0.1";

/*
 * First, we will define exec.library (global) to make it usable outside this
 * file.
 */
const char exec_name[] __text       = "exec.library";

/* Now ID string as it will be used in a minute in resident structure. */
const char exec_idstring[] __text   = "$VER: exec 41.11 (16.12.2000)\r\n";

/* We would need also version and revision fields placed somewhere here. */
const short exec_Version __text     = 41;
const short exec_Revision __text    = 11;

/*
 * The RomTag structure. It has to be placed inside .text block as there will
 * be no public RomTagList. In future we may change RTC_MATCHWORD to be machine
 * specific.
 */
const struct Resident Exec_resident __text=
{
    RTC_MATCHWORD,          /* Magic value used to find resident */
    &Exec_resident,         /* Points to Resident itself */
    &LIBEND,                /* Where could we find next Resident? */
    0,                      /* There are no flags!! */
    41,                     /* Version */
    NT_LIBRARY,             /* Type */
    126,                    /* Very high startup priority. */
    (char *)exec_name,      /* Pointer to name string */
    (char *)exec_idstring,  /* Ditto */
    exec_init               /* Library initializer (for exec this value is irrelevant since we've jumped there at the begining to bring the system up */
};

struct view { unsigned char sign; unsigned char attr; };

/*
 * Init the exec.library and as well whole system. This routine has to prepare
 * all needed structures, GDT and IDT tables, TSS structure and many other.
 *
 * We have to use asm creature because there is no stack at the moment
 */
asm("\nexec_init:                \n\t"
                "movl    $0x93000,%esp\n\t"     /* Start with setting up a temporary stack */
                "pushl   %ebx        \n\t"      /* Then store the MultiBoot info pointer   */
                "pushl   %eax        \n\t"      /* Store multiboot magic cookie            */
                "pushl   $0x0        \n\t"      /* And fake a C code call                  */

            "cld                 \n\t"      /* At the startup it's very important   */
            "cli                 \n\t"      /* to lock all interrupts. Both on the  */
            "movb    $-1,%al     \n\t"      /* CPU side and hardware side. We don't  */
            "outb    %al,$0x21   \n\t"      /* have proper structures in RAM yet.   */
            "outb    %al,$0xa1 \n\n\t"

            "jmp     exec_cinit");          /* Jump to C function :))) */

/*
 * This routine is used by kernel to change all colors on the screen according
 * to R,G,B values passed here
 */
void exec_SetColors(char r, char g, char b)
{
    int     i;
    short   reg = 0x3c8;        /* IO reg to control PEL */

    asm("movb   $0,%%al\n\t"    /* Start with color 0 */
        "outb   %%al,%w0\n\t"
        : /* no output */
        : "Nd"(reg));

    reg++;                      /* Here we have to put R, G, B */

    for (i=0; i<256; i++)       /* Set whole palette */
    {
        asm("outb   %b0,%w1"::"a"(r),"Nd"(reg));
        asm("outb   %b0,%w1"::"a"(g),"Nd"(reg));
        asm("outb   %b0,%w1"::"a"(b),"Nd"(reg));
        asm("nop    \n\t"
            "nop    \n\t"
            "nop    \n\t"
            "nop");
    }
}

/*
 * Mixed stuff used to control TSS/GDT/IDT stuff. This is strictly machine
 * specific
 */

asm(".globl TSS\n\t"            /* Make this three global in case one would */
    ".globl SSP\n\t"            /* decide to use them directly */    
    ".globl EIP\n\t"
    ".set   TSS, 0x00000040\n\t"    /* See Memory Map at the top of the file */
    ".set   SSP, 0x00000044\n\t"
    ".set   EIP, 0x00000060");

/*
 * Two defines used to keep control over interrupt server
 */

asm(".globl cached_irq_mask\n\t"
    ".globl io_apic_irqs\n\t"
    ".globl softblock\n\t"
    ".globl irq_desc\n\t"
    ".set   cached_irq_mask, 0x000000a8\n\t"
    ".set   io_apic_irqs,    0x000000ac\n\t"
    ".set   softblock,       0x00000940\n\t"
    ".set   irq_desc,        0x00000a00");

/*
 * TaskStateStructure, defined only in matter of making life (setup)
 * more human-readable
 */
struct _tss {
    ULONG   link,               /* link to previous task        - UNUSED        */
            ssp,                /* Supervisor Stack Pointer                     */
            ssp_seg,            /* SSP descriptor                               */
            t0,t1,              /* Stack for CPL1 code          - USE IN FUTURE */
            t2,t3,              /* Stack for CPL2 code          - UNUSED        */
            cr3,                /* used in paging                               */
            eip,                /* Instruction pointer                          */
            eflags,             /* Flags for given task                         */
            r0,r1,r2,r3,        /* 8 general purpouse registers                 */
            r4,r5,r6,r7,
            es,cs,ss,ds,fs,gs,  /* segment descriptors                          */
            ldt;                /* LocalDescriptorTable         - UNUSED        */
    UWORD   trap,iomap;         /* trap flag and iomap pointer                  */
};

/*
 * Nice macro used for setting given gate to specified type.
 * dpl is used to control access of this gate - setting to something
 * lower than 3 makes gate impossible to use from User Mode
 */
#define set_gate(gate_addr,type,dpl,addr) \
do { \
  int __d0, __d1; \
  __asm__ __volatile__ ("movw %%dx,%%ax\n\t" \
    "movw %4,%%dx\n\t" \
    "movl %%eax,%0\n\t" \
    "movl %%edx,%1" \
    :"=m" (*((long *) (gate_addr))), \
     "=m" (*(1+(long *) (gate_addr))), "=&a" (__d0), "=&d" (__d1) \
    :"i" ((short) (0x8000+(dpl<<13)+(type<<8))), \
     "3" ((char *) (addr)),"2" (KERNEL_CS << 16)); \
} while (0)

/* Empty interrupt. Used for short while */
void exec_DummyInt();
asm("\nexec_DummyInt:   iret");

/*
 * RO copy of GlobalDescriptorTable. It's easyier to copy this table than
 * to generate completely new one
 */
const struct {UWORD l1, l2, l3, l4;}
    GDT_Table[] __text = {
        { 0x0000, 0x0000, 0x0000, 0x0000 },
        { 0xffff, 0x0000, 0x9a00, 0x00cf },
        { 0xffff, 0x0000, 0x9200, 0x00cf },
        { 0xffff, 0x0000, 0xfa00, 0x00cf },
        { 0xffff, 0x0000, 0xf200, 0x00cf },
        { 0x0000, 0x0000, 0x0000, 0x0000 },
        { 0x0067, 0x0040, 0x8900, 0x0000 },
        { 0x0000, 0x0000, 0x0000, 0x0000 }};

/* Two magic registers pointing to Global Descriptor Table and Interrupt
 * Descriptor Table */
const struct
{
    UWORD l1 __packed;
    ULONG l3 __packed;
}
GDT_reg __text = {0x3f,  0x900},
IDT_reg __text = {0x7ff, 0x100};

const char exec_chipname[] __text = "Chip Memory";
const char exec_fastname[] __text = "Fast Memory";

/*
 * C/ASM mixed initialization routine. Here the real game begins...
 */
void exec_cinit(unsigned long magic, unsigned long addr)
{
    struct ExecBase *ExecBase;
    struct multiboot *mbinfo;
    struct arosmb *arosmb;

    ULONG locmem, extmem;

    APTR KickMemPtr,
         KickTagPtr,
         KickCheckSum;

    struct _tss *tss = (struct _tss *)0x40; /* Dummy pointer making life easier */
    long long *idt = (long long *)0x100;    /* Ditto */

    int i;                                  /* Whatever? Counter? Erm... */

//    exec_SetColors(0x10,0x10,0x10);         /* Set screen to almost black */

    /* Check whether we have .bss block */
    if ((int)&_end - (int)&_edata)
    {
        /*
         * Damn! We have to GET RID OF THIS!!! But now the only thing I can do
         * is clearing it. GRUB have done it already but we have to repeat that
         * (it may NEED that as it might be ColdReboot())
         */
        bzero(&_edata,(int)&_end-(int)&_edata);
    }

    clr();
    rkprintf("AROS - The AROS Research OS\nCompiled %s\n\n",__DATE__);

    /* MultiBoot
     * This messy bit here will store away useful information we receive from
     * the bootloader. It will happen when we are loaded, and not on when we
     * are here from ColdReboot().
     * This is just the first stage of it. Later this information will be extracted
     * by bootloader.resource, but we do this here anyway. Both to keep the info
     * safe, and also since we will use some of it in here.
     */
    arosmb = (struct arosmb *)0x1000;
    if (magic == 0x2badb002)
    {
        mbinfo = (struct multiboot *)addr;
        if (mbinfo->flags & MB_FLAGS_CMDLINE)
            arosmb->vbe_palette_width = setupVesa(mbinfo);
        rkprintf("Copying multiboot information into storage\n");
        arosmb->magic = MBRAM_VALID;
        arosmb->flags = 0L;
        if (mbinfo->flags & MB_FLAGS_MEM)
        {
            arosmb->flags |= MB_FLAGS_MEM;
            arosmb->mem_lower = mbinfo->mem_lower;
            arosmb->mem_upper = mbinfo->mem_upper;
        }
        if (mbinfo->flags & MB_FLAGS_LDRNAME)
        {
            arosmb->flags |= MB_FLAGS_LDRNAME;
            snprintf(arosmb->ldrname,29,"%s",mbinfo->loader_name);
        }
        if (mbinfo->flags & MB_FLAGS_CMDLINE)
        {
            arosmb->flags |= MB_FLAGS_CMDLINE;
            snprintf(arosmb->cmdline,199,"%s",mbinfo->cmdline);
        }
        if (mbinfo->flags & MB_FLAGS_MMAP)
        {
            arosmb->flags |= MB_FLAGS_MMAP;
            arosmb->mmap_addr = (struct mb_mmap *)((ULONG)(0x1000 + sizeof(struct arosmb)));
            arosmb->mmap_len = mbinfo->mmap_length;
            memcpy((void *)arosmb->mmap_addr,(void *)mbinfo->mmap_addr,mbinfo->mmap_length);
        }
        if (mbinfo->flags & MB_FLAGS_DRIVES)
        {
            if (mbinfo->drives_length > 0)
            {
                arosmb->flags |= MB_FLAGS_DRIVES;
                arosmb->drives_addr = ((ULONG)(arosmb->mmap_addr + arosmb->mmap_len));
                arosmb->drives_len = mbinfo->drives_length;
                memcpy((void *)arosmb->drives_addr,(void *)mbinfo->drives_addr,mbinfo->drives_length);
            }
        }
        if (mbinfo->flags & MB_FLAGS_GFX)
        {
            arosmb->flags |= MB_FLAGS_GFX;
            arosmb->vbe_mode = mbinfo->vbe_mode;
            memcpy((void *)&arosmb->vmi,(void *)mbinfo->vbe_mode_info,sizeof(struct vbe_mode));
            memcpy((void *)&arosmb->vci,(void *)mbinfo->vbe_control_info,sizeof(struct vbe_controller));
        }
    }
    rkprintf("Done\n");

#warning "TODO: WE MUST PARSE THE BIOS MEMORY MAP HERE AND PROTECT NECESSARY STRUCTS (i.e ACPI stores its data in the last few meg of physical ram..)"

    rkprintf("Clearing system area...");

    /*
     * Well, if we all in clearing moode, then it's the best occasion to clear
     * some areas in AROS private 4KB ram area. Hmmm. If there would occur any
     * interrupt at this moment, AROS would be really dead as it is going to
     * destroy its private stuff (which is really needed to make CPU operate
     * properly)
     */
    bzero((void *)8, 4096-8);

    /*
     * Feel better? Now! Quick. We will have to build new tables for our CPU to
     * make it work nicely.
     */
    tss->ssp = 0x00090000;      /* temporary Supervisor Stack Pointer */
    tss->ssp_seg = KERNEL_DS;   /* SSP segment descriptor */
    tss->cs = USER_CS;
    tss->ds = USER_DS;
    tss->es = USER_DS;
    tss->ss = USER_DS;
    tss->iomap = 104;

    /* Restore IDT structure. */
    for (i=0; i<256; i++)
    {
        /* Feed all vectors with dummy interrupt */
        set_gate(idt + i, 14, 0, exec_DummyInt);
    }

    /*
     * Fix Global Descriptor Table. Because I'm too lazy I'll just copy one from
     * here. I've already prepared such a nice one :)
     */
    memcpy((void *)0x900, &GDT_Table, 64);

    /*
     * As we prepared all necessary stuff, we can hopefully load GDT and LDT
     * into CPU. We may also play a bit with TSS
     */
    asm("lgdt   %0\n\t"
        "lidt   %1"
        :
        :"m"(GDT_reg),"m"(IDT_reg));

    asm("mov    %0,%%ds\n\t"    /* Now it's high time to set segment   */
        "mov    %0,%%es\n\t"    /* registers (segment descriptors).    */
        "mov    %0,%%ss\n\t"    /* AROS uses only %CS %SS %DS and %ES  */
        "mov    %1,%%fs\n\t"    /* %FS and %GS are set to 0 so we can  */
        "mov    %1,%%gs"        /* generate GP if someone uses them.   */
        :
        :"a"(KERNEL_DS),"b"(0));

    asm("ltr    %%ax"::"ax"(0x30));

    rkprintf("OK\nSystem restored\n");

    /*
     * Wew have to do some stuff from setup.S due to remove of it.
     *
     * Remap IRQs. We really HAVE TO do that because IBM did it in a very bad
     * way - they've ignored what Intel said about interrupts. See intel manual
     * for further information.
     * For now all irq's are placed in range 0x20 - 0x30 as vectors 0x00 - 0x1f
     * are reserved by Intel
     */
    asm("outb   %b0,%b1\n\tcall delay"::"a"((char)0x11),"i"(0x20)); /* Initialization sequence for 8259A-1 */
    asm("outb   %b0,%b1\n\tcall delay"::"a"((char)0x11),"i"(0xa0)); /* Initialization sequence for 8259A-2 */
    asm("outb   %b0,%b1\n\tcall delay"::"a"((char)0x20),"i"(0x21)); /* IRQs at 0x20 - 0x27 */
    asm("outb   %b0,%b1\n\tcall delay"::"a"((char)0x28),"i"(0xa1)); /* IRQs at 0x28 - 0x2f */
    asm("outb   %b0,%b1\n\tcall delay"::"a"((char)0x04),"i"(0x21)); /* 8259A-1 is master */
    asm("outb   %b0,%b1\n\tcall delay"::"a"((char)0x02),"i"(0xa1)); /* 8259A-2 is slave */
    asm("outb   %b0,%b1\n\tcall delay"::"a"((char)0x01),"i"(0x21)); /* 8086 mode for both */
    asm("outb   %b0,%b1\n\tcall delay"::"a"((char)0x01),"i"(0xa1));
    asm("outb   %b0,%b1\n\tcall delay"::"a"((char)0xff),"i"(0x21)); /* Enable cascade int */
    asm("outb   %b0,%b1\n\tcall delay"::"a"((char)0xff),"i"(0xa1)); /* Mask all interrupts */

    rkprintf("Interrupts redirected\n");

    /*
     * Check for valid ExecBase. This is quite important part, because this way
     * we may determine whether to clear and reconfigure memory or whether we
     * already know everything and may continue further initialisation.
     */
    if (!exec_check_base())
    {
        ULONG   negsize = 0;             /* size of vector table */
        void  **fp      = LIBFUNCTABLE;  /* pointer to a function in the table */
        
        rkprintf("Reallocating ExecBase...");
        /*
         * If we managed to reach this point, it means that there was no ExecBase in
         * the memory. That means that we have to calculate amount of memory available.
         *
         * We will guess ExecBase pointer by taking the lowest possible address and
         * substrating from it the offset of lowet vector used by Exec. This way the ExecBase
         * Will be placed in the lowes address possible with fitting all functions :)
         */
        
        /* Calculate the size of the vector table */
        while (*fp++ != (VOID *) -1) negsize += LIB_VECTSIZE;

        ExecBase = (struct ExecBase *) 0x00002000; /* Got ExecBase at the lowest possible addr */
        ExecBase += negsize;   /* Substract lowest vector so jumpable would fit */

        /* Check whether we have some FAST memory,
         * If not, then use calculated ExecBase */
        if ((extmem = exec_RamCheck_fast(arosmb)))
        {
            rkprintf("%x Fastmem\n",extmem);
            /* We have found some FAST memory. Let's use it for ExecBase */
            ExecBase = (struct ExecBase *) 0x01000000;
            ExecBase += negsize;
            
            /* Now we will clear FAST memory. */
            /* Disabled due to taking to much time on P4 machines */
            rkprintf("Clearing FastMem...");

/************* NICJA - Fix this code so that only unused meory is flushed, and protect certain ares - ie acpi */
        
            /* Ogun - Disable cruddy attempt to save ACPI data for now */
            //bzero((void *)0x01000000, extmem - 0x01000000 - 0x500000);
            bzero((void *)0x01000000, extmem - 0x01000000);
        }

        /*
         * Now, the FAST memory is cleared, the ExecBase is reserved. We have only to
         * determine how much CHIP memory do we have.
         */

        locmem = exec_RamCheck_dma(arosmb);
        rkprintf("%x Chipmem\n",locmem);

        rkprintf("OK\nExecBase=%p\n", ExecBase);

        /* Clear chip ram. Do it carefully as we have kernel somewhere in chip! */

        /*
         * NOTE:
         * We will leave area 0x90000 - 0xa0000 uncleared as there is
         * temporary system stack!
         */
        rkprintf("Clearing ChipMem...\n");
        
        bzero((void *)0x2000, 0x90000-0x2000);
        bzero(&_end, locmem -(ULONG)&_end);
    }
    else
    {
        ExecBase = *(struct ExecBase **)4UL;

        locmem = ExecBase->MaxLocMem;
        extmem = (ULONG)ExecBase->MaxExtMem;

        rkprintf("Got old ExecBase = %p\n",ExecBase);
    }
    /*
     * We happend to be here with local ExecBase properly set as well as
     * local locmem and extmem
     */

//    exec_SetColors(0x20,0x20,0x20);

    /* Store this values as they may point to interesting stuff */
    KickMemPtr = ExecBase->KickMemPtr;
    KickTagPtr = ExecBase->KickTagPtr;
    KickCheckSum = ExecBase->KickCheckSum;

    rkprintf("Clearing ExecBase\n");

    /* How about clearing most of ExecBase structure? */
    bzero(&ExecBase->IntVects[0], sizeof(struct ExecBase) - offsetof(struct ExecBase, IntVects[0]));

    ExecBase->KickMemPtr = KickMemPtr;
    ExecBase->KickTagPtr = KickTagPtr;
    ExecBase->KickCheckSum = KickCheckSum;

    /*
     * Now everything is prepared to store ExecBase at the location 4UL and set
     * it complement in ExecBase structure
     */

    rkprintf("Initializing library...");

    *(struct ExecBase **)4 = ExecBase;
    ExecBase->ChkBase = ~(ULONG)ExecBase;

    /* Set up system stack */
    tss->ssp = (extmem) ? extmem : locmem;  /* Either in FAST or in CHIP */
    ExecBase->SysStkUpper = (APTR)tss->ssp;
    ExecBase->SysStkLower = (APTR)tss->ssp - 0x10000; /* 64KB of system stack */

    /* Store memory configuration */
    ExecBase->MaxLocMem = (IPTR)locmem;
    ExecBase->MaxExtMem = (APTR)extmem;

#warning "TODO: Write first step of alert.hook here!!!"

    /*
     * Initialize exec lists. This is done through information table which consist
     * of offset from begining of ExecBase and type of the list.
     */
    NEWLIST(&ExecBase->MemList);
    ExecBase->MemList.lh_Type = NT_MEMORY;
    NEWLIST(&ExecBase->ResourceList);
    ExecBase->ResourceList.lh_Type = NT_RESOURCE;
    NEWLIST(&ExecBase->DeviceList);
    ExecBase->DeviceList.lh_Type = NT_DEVICE;
    NEWLIST(&ExecBase->LibList);
    ExecBase->LibList.lh_Type = NT_LIBRARY;
    NEWLIST(&ExecBase->PortList);
    ExecBase->PortList.lh_Type = NT_MSGPORT;
    NEWLIST(&ExecBase->TaskReady);
    ExecBase->TaskReady.lh_Type = NT_TASK;
    NEWLIST(&ExecBase->TaskWait);
    ExecBase->TaskWait.lh_Type = NT_TASK;
    NEWLIST(&ExecBase->IntrList);
    ExecBase->IntrList.lh_Type = NT_INTERRUPT;
    NEWLIST(&ExecBase->SemaphoreList);
    ExecBase->SemaphoreList.lh_Type = NT_SIGNALSEM;
    NEWLIST(&ExecBase->ex_MemHandlers);

    for (i=0; i<5; i++)
    {
        NEWLIST(&ExecBase->SoftInts[i].sh_List);
        ExecBase->SoftInts[i].sh_List.lh_Type = NT_SOFTINT;
    }

    /*
     * Exec.library initializer. Prepares exec.library for future use. All
     * lists have to be initialized, some values from ROM are copied.
     */

    ExecBase->TaskTrapCode = exec_DefaultTrap;
    ExecBase->TaskExceptCode = exec_DefaultTrap;
    ExecBase->TaskExitCode = exec_DefaultTaskExit;
    ExecBase->TaskSigAlloc = 0x0000ffff;
    ExecBase->TaskTrapAlloc = 0x8000;

    /* Prepare values for execBase (like name, type, pri and other) */

    ExecBase->LibNode.lib_Node.ln_Type = NT_LIBRARY;
    ExecBase->LibNode.lib_Node.ln_Pri = 0;
    ExecBase->LibNode.lib_Node.ln_Name = (char *)exec_name;
    ExecBase->LibNode.lib_Flags = LIBF_CHANGED | LIBF_SUMUSED;
    ExecBase->LibNode.lib_PosSize = sizeof(struct ExecBase);
    ExecBase->LibNode.lib_OpenCnt = 1;
    ExecBase->LibNode.lib_IdString = (char *)exec_idstring;
    ExecBase->LibNode.lib_Version = exec_Version;
    ExecBase->LibNode.lib_Revision = exec_Revision;

    ExecBase->Quantum = 4;
    ExecBase->VBlankFrequency = 50;
    ExecBase->PowerSupplyFrequency = 1;
    
    rkprintf("OK\nBuilding JumpTable...");

    /* Build the jumptable */
    ExecBase->LibNode.lib_NegSize =
        Exec_MakeFunctions(ExecBase, LIBFUNCTABLE, NULL, ExecBase);

    rkprintf("OK\n");

    /* Add FAST memory at 0x01000000 to free memory lists */
    if (extmem)
    {
        ULONG base = ((ULONG)ExecBase + sizeof(struct ExecBase) + 15) & ~15;

        AddMemList(extmem - (base + 0x10000),
            MEMF_FAST | MEMF_PUBLIC | MEMF_KICK | MEMF_LOCAL,
            0,
            (APTR)base,
            (STRPTR)exec_fastname);

        AddMemList(locmem - 0x2000,
            MEMF_CHIP | MEMF_PUBLIC | MEMF_KICK | MEMF_LOCAL | MEMF_24BITDMA,
            -10,
            (APTR)0x2000,
            (STRPTR)exec_chipname);

        rkprintf("Chip Memory : %luMB\nFast Memory : %luMB\n",
                locmem >> 20, (extmem - locmem) >> 20);
    }
    else
    {
        ULONG base = ((ULONG)ExecBase + sizeof(struct ExecBase) + 15) & ~15;
        AddMemList(locmem - (base + 0x10000),
            MEMF_CHIP | MEMF_PUBLIC | MEMF_KICK | MEMF_LOCAL | MEMF_24BITDMA,
            -10,
            (APTR)base,
            (STRPTR)exec_chipname);

        rkprintf("Chip Memory : %luMB\n", locmem >> 20);
    }

    rkprintf("Memory added\n");

    /* Protect kernel and RO data from beeing allocated by software */
    AllocAbs((ULONG)&_end - 0x000a0000, (APTR)0x000a0000);

    /* Protect bootup stack from being allocated */
    AllocAbs(0x3000,0x90000);

    rkprintf("Kernel protected\n");

    rkprintf("Adding \"exec.library\"...");

    /* Add exec.library to system library list */
    SumLibrary((struct Library *)SysBase);
    Enqueue(&SysBase->LibList,&SysBase->LibNode.lib_Node);

    rkprintf("OK\n");

    ExecBase->DebugAROSBase = PrepareAROSSupportBase();

#if SMP_SUPPORT
    /* Early Boot CPU preperation.. */
    prepare_primary_cpu( ExecBase );
#endif

    rkprintf( "[CPU] Primary CPU Probed ..\n" );

    for (i=0; i<16; i++)
    {
        if( (1<<i) & (INTF_PORTS|INTF_COPER|INTF_VERTB|INTF_EXTER|INTF_SETCLR))
        {
            struct Interrupt *is;
            struct SoftIntList *sil;
            is = AllocMem
            (
                sizeof(struct Interrupt) + sizeof(struct SoftIntList),
                MEMF_CLEAR | MEMF_PUBLIC
            );
            if( is == NULL )
            {
                rkprintf("ERROR: Cannot install Interrupt Servers!\n");
            }
            sil = (struct SoftIntList *)((struct Interrupt *)is + 1);

            is->is_Code = &IntServer;
            is->is_Data = sil;
            NEWLIST((struct List *)sil);
            SetIntVector(i,is);
        }
        else
        {
            struct Interrupt *is;
            switch (i)
            {
                case INTB_SOFTINT :
                    is = AllocMem
                    (
                        sizeof(struct Interrupt), 
                        MEMF_CLEAR | MEMF_PUBLIC
                    );
                    if (is == NULL)
                    {
                        rkprintf("Error: Cannot install Interrupt Servers!\n");
                        // Alert(AT_DeadEnd | AN_IntrMem);
                    }
                    is->is_Node.ln_Type = NT_SOFTINT;   //INTERRUPT;
                    is->is_Node.ln_Pri = 0;
                    is->is_Node.ln_Name = "SW Interrupt Dispatcher";
                    is->is_Data = NULL;
                    is->is_Code = (void *)SoftIntDispatch;
                    SetIntVector(i,is);
                    break;
            }
        }
    }

#warning "TODO: Write CPU detailed detection scheme. Patch proper functions??"

    Init_Traps();
    irqSetup();
    rkprintf("IRQ services initialized\n");

    /* Create user interrupt used to enter supervisor mode */
    set_gate(idt + 0x80, 14, 3, Exec_SystemCall);

    /* Enable interrupts and set int disable level to -1 */
    asm("sti");
    ExecBase->TDNestCnt = -1;
    ExecBase->IDNestCnt = -1;

    /* Now it's time to calculate exec checksum. It will be used
     * in future to distinguish whether we'd had proper execBase
     * before restart */
    {
        UWORD sum=0, *ptr = &ExecBase->SoftVer;
        int i=((int)&ExecBase->IntVects[0] - (int)&ExecBase->SoftVer) / 2,
            j;

        /* Calculate sum for every static part from SoftVer to ChkSum */
        for (j=0;j < i;j++)
        {
            sum+=*(ptr++);
        }

        ExecBase->ChkSum = ~sum;
    }

    rkprintf("Creating the very first task...");

    /* Create boot task.  Sigh, we actually create a Process sized Task,
        since DOS needs to call things which think it has a Process and
        we don't want to overwrite memory with something strange do we?

        We do this until at least we can boot dos more cleanly.
    */
    {
        struct Task    *t;
        struct MemList *ml;

        ml = (struct MemList *)AllocMem(sizeof(struct MemList), MEMF_PUBLIC|MEMF_CLEAR);
        t  = (struct Task *)   AllocMem(sizeof(struct Process), MEMF_PUBLIC|MEMF_CLEAR);

        if( !ml || !t )
        {
            rkprintf("ERROR: Cannot create Boot Task!\n");
        }
        ml->ml_NumEntries = 1;
        ml->ml_ME[0].me_Addr = t;
        ml->ml_ME[0].me_Length = sizeof(struct Process);

        NEWLIST(&t->tc_MemEntry);
        NEWLIST(&((struct Process *)t)->pr_MsgPort.mp_MsgList);

        /* It's the boot process that RunCommand()s the boot shell, so we
           must have this list initialized */
        NEWLIST((struct List *)&((struct Process *)t)->pr_LocalVars);

        AddHead(&t->tc_MemEntry,&ml->ml_Node);

        t->tc_Node.ln_Name = exec_name;
        t->tc_Node.ln_Pri = 0;
        t->tc_Node.ln_Type = NT_TASK;
        t->tc_State = TS_RUN;
        t->tc_SigAlloc = 0xFFFF;
        t->tc_SPLower = 0;          /* This is the system's stack */
        t->tc_SPUpper = (APTR)~0UL;
        t->tc_Flags |= TF_ETASK;

        if (t->tc_Flags & TF_ETASK)
        {
            t->tc_UnionETask.tc_ETask = AllocVec
            (
                sizeof(struct IntETask), 
                MEMF_ANY|MEMF_CLEAR
            );

            if (!t->tc_UnionETask.tc_ETask)
            {
                rkprintf("Not enough memory for first task\n");
            }

            /* Initialise the ETask data. */
            InitETask(t, t->tc_UnionETask.tc_ETask);

            GetIntETask(t)->iet_Context = AllocTaskMem(t
                , SIZEOF_ALL_REGISTERS
                , MEMF_PUBLIC|MEMF_CLEAR
            );

            if (!GetIntETask(t)->iet_Context)
            {
                rkprintf("Not enough memory for first task\n");
            }
        }

        ExecBase->ThisTask = t;
    }

    rkprintf("Done\n");

    /*
        Check whether the CPU supports SSE and FXSAVE.
        
        Dirty check, without use of any defines and human readable constants. The
        cpuid instruction with %eax=1 will return some essential cpu informations in %edx back, 
        including:
        - bit 24: CPU does support FXSAVE and FXRSTOR for MMX/FPU/SSE context saving and restoring
        - bit 25: CPU supports SSE
        - bit 26: CPU supports SSE2
    
    */
    ULONG v1,v2,v3,v4;
    cpuid(1, v1,v2,v3,v4);

    rkprintf("cpuid 1 = %08x %08x %08x %08x\n", v1, v2, v3, v4);
    
    if (v4 & (1 << 24))
    {
        rkprintf("The CPU supports FXSAVE and FXRSTOR. Good.\n");
        rkprintf("CPU Supports ");
        
        switch ((v4 >> 25) & 3)
        {
            case 3:
            case 2:
                rkprintf("SSE2 ");
            case 1:
                rkprintf("SSE\n");
                /* Patch exec with SSE-aware CPU context functions */
                SetFunction(&ExecBase->LibNode, -6*LIB_VECTSIZE, AROS_SLIB_ENTRY(PrepareContext_SSE, Exec));
                SetFunction(&ExecBase->LibNode, -9*LIB_VECTSIZE, AROS_SLIB_ENTRY(Switch_SSE, Exec));
                SetFunction(&ExecBase->LibNode, -10*LIB_VECTSIZE, AROS_SLIB_ENTRY(Dispatch_SSE, Exec));
                /* tell the CPU that we will support SSE */
                wrcr(cr4, rdcr(cr4) | (3 << 9));
                /* Clear the EM and MP flags of CR0 */
                wrcr(cr0, rdcr(cr0) & ~6);      
                rkprintf("SSE enabled.\n");
                break;

            default:
                /* 
                    Ha! Bloody PentiumII does supports MMX/FPU/SSE saving instructions,
                    but it does not support SSE 
                */
                rkprintf("no SSE. Sorry :)\n");
                break;
        }       
    }
    else
    { 
#if ASSUME_FPU
        SetFunction(&ExecBase->LibNode, -6*LIB_VECTSIZE, AROS_SLIB_ENTRY(PrepareContext_FPU, Exec));
        SetFunction(&ExecBase->LibNode, -9*LIB_VECTSIZE, AROS_SLIB_ENTRY(Switch_FPU, Exec));
        SetFunction(&ExecBase->LibNode, -10*LIB_VECTSIZE, AROS_SLIB_ENTRY(Dispatch_FPU, Exec));

        rkprintf("FPU enabled.\n");
#endif
    }


    rkprintf("Jumping out from Supervisor mode...");

#if 0

    asm("mov %0,%%ds\n\t"   /* User DS */
        "mov %0,%%es\n\t"       /* User ES */
        "movl %%esp,%%ebx\n\t"  /* Hold the esp value before pushing! */
        "pushl %0\n\t"          /* User SS */
        "pushl %%ebx\n\t"       /* Stack frame */
        "pushl $0x3002\n\t"     /* IOPL:3 */
        "pushl %1\n\t"          /* User CS */
        "pushl $1f\n\t"         /* Entry address */
        "iret\n"                /* Go down to the user mode */
        "1:\tsti"               /* Enable interrupts */
        :
        : "eax"(USER_DS),"ecx"(USER_CS));
#else
#    define _stringify(x) #x
#    define stringify(x) _stringify(x)

    asm("movl $" stringify(USER_DS) ",%%eax\n\t"
        "mov %%eax,%%ds\n\t"                         /* User DS */
        "mov %%eax,%%es\n\t"                         /* User ES */
        "movl %%esp,%%ebx\n\t"                  /* Hold the esp value before pushing! */
        "pushl %%eax\n\t"                           /* User SS */
        "pushl %%ebx\n\t"                           /* Stack frame */
        "pushl $0x3002\n\t"                        /* IOPL:3 */
        "pushl $" stringify(USER_CS) "\n\t"        /* User CS */
        "pushl $1f\n\t"                            /* Entry address */
        "iret\n"                                   /* Go down to the user mode */
        "1:\tsti":::"eax","ebx");                                /* Enable interrupts */

#   undef stringify
#   undef _stringify
#endif

    rkprintf("Done\n");

    ExecBase->TDNestCnt++;
    Permit();
#if (AROS_SERIAL_DEBUG >0)
    SetFunction(&ExecBase->LibNode, -84*LIB_VECTSIZE, AROS_SLIB_ENTRY(SerialRawIOInit, Exec));
    SetFunction(&ExecBase->LibNode, -86*LIB_VECTSIZE, AROS_SLIB_ENTRY(SerialRawPutChar, Exec));
    RawIOInit();
#endif

    
    /* Scan for valid RomTags */
    ExecBase->ResModules = exec_RomTagScanner();

    if (ExecBase->CoolCapture)
    {
        void (*p)() = ExecBase->CoolCapture;
        (*p)();
    }

    InitCode(RTF_SINGLETASK, 0);
    InitCode(RTF_COLDSTART, 0);

    /*
     * We suppose that at this point dos.library has already taken over.
     * The last thing to do is to call WarmCapture vector. After that this
     * task has completely nothing to do so it may execute Debug() in
     * forever loop
     */

    if (ExecBase->WarmCapture)
    {
        void (*p)() = ExecBase->WarmCapture;
        (*p)();
    }

    do { Debug(0); } while(1);
}

/* Small delay routine used by exec_cinit initializer */
asm("\ndelay:\t.short   0x00eb\n\tret");

/* Exec default trap routine */
asm("\nexec_DefaultTrap:\n\t"
    "pushl  4\n\t"
    "pushl  $0\n\t"
    "pushl  $0\n\t"
    "jmp    Exec_Alert");

#warning "TODO: We should use info from BIOS here."
int exec_RamCheck_dma(struct arosmb *arosmb)
{
    ULONG   volatile *ptr,tmp;

    ptr = (ULONG *)(((int)&_end + 0x0FFF) &~0x0FFF);

    if(arosmb->flags & MB_FLAGS_MEM)
    {
        /* If there is upper memory, assume that lower is 1MB. Dirty hack++ */
        if(arosmb->mem_upper)
        {
            if ((arosmb->mem_upper<<10) & 0xff000000)
            {
                /* More than 16MB in total, return 16 */
                return 16<<20;
            }
            /* Lower 16MB is marked as DMA memory */
            tmp = (arosmb->mem_upper * 1024) & 0x00ffffff;
            tmp += 0x100000;
            return tmp;
        }
        else
        {
            /* No upper memory, return only lower mem.
             * Most likely fatal, can't see aros working with less than one MB of ram */
            return (arosmb->mem_lower * 1024);
        }
    }
    /* No memory info from bios, do a scan */
    do
    {
        tmp = *ptr;
        *ptr = 0xdeadbeef;
        if (*ptr != 0xdeadbeef)
            break;
        *ptr = tmp;
        ptr += 4;
    } while ((int)ptr < 0x01000000);

    return (int)ptr;
}

int exec_RamCheck_fast(struct arosmb *arosmb)
{
    ULONG volatile *ptr, tmp;

    ptr = (ULONG *)0x01000000;

    if(arosmb->flags & MB_FLAGS_MEM)
    {
        /* If less than 15MB upper, no fastmem here */
        if ((arosmb->mem_upper * 1024) <= 0xF00000)
        {
            return 0;
        }
        /* Found memory, so we need to do some quick math */
        tmp = (arosmb->mem_upper * 1024) + 0x100000;
        return tmp;
    }
    /* No memory info from bios, do a scan */
    do
    {
        tmp = *ptr;
        *ptr = 0xdeadbeef;
        if (*ptr != 0xdeadbeef)
            break;
        *ptr = tmp;
        ptr += 4;
    } while(1);

    return ((int)ptr > 0x01000000) ? (int)ptr : 0;
}

void exec_DefaultTaskExit()
{
    struct ExecBase *SysBase = *(struct ExecBase **)4UL;
    RemTask(SysBase->ThisTask);
}

/*
 * Check for valid ExecBase
 */
int exec_check_base()
{
    /* Get ExecBase from 0x00000004 */
    struct ExecBase *ExecBase=*(struct ExecBase **)4UL;

    /* Attempt first test. If ExecBase is not aligned to 4 byte boundary then
     * it is not proper ExecBase */
    if (!((ULONG)ExecBase & 0x3))
    {
        /*
         * Assume for a while, that it is ExecBase indeed. Check complement of
         * this pointer, which is stored in ExecBase->ChkBase
         */
        if (!~((LONG)ExecBase + ExecBase->ChkBase))
        {
            /*
             * Still here? Nice, let's check one more thing. Static part of
             * ExecBase has its checksum calculated. Verify it please...
             */
            UWORD sum=0, *ptr = &ExecBase->SoftVer;
            int i=((int)&ExecBase->IntVects[0] - (int)&ExecBase->SoftVer) / 2,
                j;

            /* Calculate sum for every static part from SoftVer to ChkSum */
            for (j=0;j < i;j++)
            {
                sum+=*(ptr++);
            }

            /* Do we have proper checksum? */
            if (!~sum)
            {
                /* Well well, almost sure that we have ExecBase here. Hey, it's
                 * time to execute ColdCapture code! */
                void (*p)() = ExecBase->ColdCapture;

                /* Only if there is ColdCapture code... */
                if (p)
                {
                    ExecBase->ColdCapture = NULL;
                    (*p)();
                }

                /*
                 * Let's check ExecBase last time. Compare library version and
                 * revision vs ones stored deep in the core. If they will differ
                 * then ExecBase is damaged
                 */

                if ((ExecBase->LibNode.lib_Version == exec_Version) &&
                    (ExecBase->LibNode.lib_Revision == exec_Revision))
                {
                    /*
                     * Really last thing. Check MaxLocMem and MaxExtMem fields
                     * in ExecBase. First cannot be grater than 16MB and smaller
                     * than 2MB, second, if is not zero then has to be grater
                     * than 16MB
                     */

                    if ((ExecBase->MaxLocMem >= 0x00200000) &&
                        (ExecBase->MaxLocMem <= 0x01000000))
                    {
                        if (ExecBase->MaxExtMem && ((ULONG)ExecBase->MaxExtMem < 0x01000000))
                        {
                            return 0;
                        }
                        return 1;
                    }
                }
            }
        }
    }
    return 0;
}

void _aros_not_implemented()
{
}

/*
 * RomTag scanner.
 *
 * This function scans kernel for existing Resident modules. If two modules
 * with the same name are found, the one with higher version or priority wins.
 *
 * After building list of kernel modules, the KickTagPtr and KickMemPtr are
 * checksummed. If checksum is proper and all memory pointed in KickMemPtr may
 * be allocated, then all modules from KickTagPtr are added to RT list
 *
 * Afterwards the proper RomTagList is created (see InitCode() for details) and
 * memory after list and nodes is freed.
 */

struct rt_node
{
    struct Node     node;
    struct Resident *module;
};

ULONG **exec_RomTagScanner()
{
    struct ExecBase *SysBase = *(struct ExecBase **)4UL;

    struct List     rtList;             /* List of modules */
    UWORD           *ptr = (UWORD*)0x00100000;  /* Start looking here */

    struct Resident *res;               /* module found */

    int     i;
    ULONG   **RomTag;

    /* Initialize list */
    NEWLIST(&rtList);

    kprintf("Resident modules (addr: pri version name):\n");
    
    /* Look in whole kernel for resident modules */
    do
    {
        /* Do we have RTC_MATCHWORD? */
        if (*ptr == RTC_MATCHWORD)
        {
            /* Yes, assume we have Resident */
            res = (struct Resident *)ptr;

            /* Does rt_MatchTag point to Resident? */
            if (res == res->rt_MatchTag)
            {
                /* Yes, it is Resident module */
                struct rt_node  *node;

                /* Check if there is module with such name already */
                node = (struct rt_node*)FindName(&rtList, res->rt_Name);
                if (node)
                {
                    /* Yes, there was such module. It it had lower pri then replace it */
                    if (node->node.ln_Pri <= res->rt_Pri)
                    {
                        /* If they have the same Pri but new one has higher Version, replace */
                        if ((node->node.ln_Pri == res->rt_Pri) &&
                            (node->module->rt_Version < res->rt_Version))
                        {
                            node->node.ln_Pri   = res->rt_Pri;
                            node->module        = res;
                        }
                    }
                }
                else
                {
                    /* New module. Allocate some memory for it */
                    node = (struct rt_node *)
                        AllocMem(sizeof(struct rt_node),MEMF_PUBLIC|MEMF_CLEAR);

                    if (node)
                    {
                        node->node.ln_Name  = res->rt_Name;
                        node->node.ln_Pri   = res->rt_Pri;
                        node->module        = res;

                        Enqueue(&rtList,(struct Node*)node);
                    }
                }

                /* Get address of EndOfResident from RomTag but only when it's
                 * higher then present one - this avoids strange locks when 
                 * not all modules have Resident structure in .text section */
                ptr = ((ULONG)res->rt_EndSkip > (ULONG)ptr) ? (UWORD *)res->rt_EndSkip : ptr + 2;
                if ((ULONG)ptr & 0x01)
                   ptr = (UWORD *)((ULONG)ptr+1);
                continue;
            }
        }

        /* Get next address... */
        ptr++;
    } while (ptr < (UWORD*)&_end);
    
    /*
     * By now we have valid (and sorted) list of kernel resident modules.
     *
     * Now, we will have to analyze used-defined RomTags (via KickTagPtr and
     * KickMemPtr)
     */
#warning "TODO: Implement external modules!"

    /*
     * Everything is done now. Allocate buffer for normal RomTag and convert
     * list to RomTag
     */
    
    ListLength(&rtList,i);      /* Get length of the list */

    RomTag = AllocMem((i+1)*4,MEMF_PUBLIC | MEMF_CLEAR);

    if (RomTag)
    {
        int             j;
        struct rt_node  *n;

        for (j=0; j<i; j++)
        {
            n = (struct rt_node *)RemHead(&rtList);
            kprintf("+ 0x%08.8lx: %4d %3d \"%s\"\n",
                n->module,
                n->node.ln_Pri,
                n->module->rt_Version,
                n->node.ln_Name);
            RomTag[j] = (ULONG*)n->module;

            FreeMem(n, sizeof(struct rt_node));
        }
        RomTag[i] = 0;
    }

    return RomTag;
}

struct vbe_controller my_vbe_control;
struct vbe_mode my_vbe_mode;

unsigned char setupVesa(struct multiboot *mbinfo)
{
    char *str = mbinfo->cmdline;
    char *vesa = strstr(str, "vesa=");
    short r;
    unsigned char palwidth = 0;

    if (vesa)
    {
        long x=0, y=0, d=0;
        long mode, setmode;
        unsigned long vesa_size = (unsigned long)&_binary_vesa_size;
        void *vesa_start = &_binary_vesa_start;
        vesa+=5;

        while (*vesa && *vesa != ',' && *vesa != 'x' && *vesa != ' ')
        {
            x = x*10 + *vesa++ - '0';
        }
        vesa++;
        while (*vesa && *vesa != ',' && *vesa != 'x' && *vesa != ' ')
        {
            y = y*10 + *vesa++ - '0';
        }
        vesa++;
        while (*vesa && *vesa != ',' && *vesa != 'x' && *vesa != ' ')
        {
            d = d*10 + *vesa++ - '0';
        }
        
        rkprintf("[VESA] module (@ %p) size=%d\n", &_binary_vesa_start, &_binary_vesa_size);
        memcpy((void *)0x1000, vesa_start, vesa_size);
        rkprintf("[VESA] Module installed\n");

        rkprintf("[VESA] BestModeMatch for %dx%dx%d = ",x,y,d);        
        mode = findMode(x,y,d);

        getModeInfo(mode);

        rkprintf("%x\n",mode);
        if (modeinfo->mode_attributes & 0x80)
            setmode = mode | 0x4000;
        else
            setmode = mode;
        r = setVbeMode(setmode);
        if (r == 0x004f) {
            rkprintf("\x03");
            if (controllerinfo->capabilities & 0x01)
                paletteWidth(0x0800, &palwidth);
            else
                palwidth = 6;
            memcpy(&my_vbe_mode, modeinfo, sizeof(struct vbe_mode));
            memcpy(&my_vbe_control, controllerinfo, sizeof(struct vbe_controller));
            mbinfo->vbe_mode_info = (ULONG)&my_vbe_mode;
            mbinfo->vbe_control_info = (ULONG)&my_vbe_control;
            mbinfo->flags |= MB_FLAGS_GFX;
            mbinfo->vbe_mode = mode;
        } else
            rkprintf("[VESA] mode setting error: 0x%04X\n", r);
    }
    return palwidth;
}

AROS_LH1(struct ExecBase *, open,
    AROS_LHA(ULONG, version, D0),
        struct ExecBase *, SysBase, 1, Exec)
{
    AROS_LIBFUNC_INIT

    /* I have one more opener. */
    SysBase->LibNode.lib_OpenCnt++;
    return SysBase;
    AROS_LIBFUNC_EXIT
}

AROS_LH0(BPTR, close,
    struct ExecBase *, SysBase, 2, Exec)
{
    AROS_LIBFUNC_INIT

    /* I have one fewer opener. */
    SysBase->LibNode.lib_OpenCnt--;
    return 0;
    AROS_LIBFUNC_EXIT
}

AROS_LH0I(int, null,
    struct ExecBase *, SysBase, 4, Exec)
{
    AROS_LIBFUNC_INIT
    return 0;
    AROS_LIBFUNC_EXIT
}

/*
    We temporarily redefine kprintf() so we use the real version in case
    we have one of these two fn's called before AROSSupportBase is ready.
*/

#undef kprintf
#undef rkprintf
#undef vkprintf

#define kprintf(x...)
#define rkprintf(x...)
#define vkprintf(x...)

struct Library * PrepareAROSSupportBase(void)
{
    struct AROSSupportBase *AROSSupportBase = 
        AllocMem(sizeof(struct AROSSupportBase), MEMF_CLEAR);
        
    AROSSupportBase->kprintf = (void *)kprintf;
    AROSSupportBase->rkprintf = (void *)rkprintf;
    AROSSupportBase->vkprintf = (void *)vkprintf;
    
    NEWLIST(&AROSSupportBase->AllocMemList);
    
#warning "FIXME Add code to read in the debug options"

    return (struct Library *)AROSSupportBase;
}

/* IntServer:
    This interrupt handler will send an interrupt to a series of queued
    interrupt servers. Servers should return D0 != 0 (Z clear) if they
    believe the interrupt was for them, and no further interrupts will
    be called. This will only check the value in D0 for non-m68k systems,
    however it SHOULD check the Z-flag on 68k systems.

    Hmm, in that case I would have to separate it from this file in order
    to replace it...
*/
AROS_UFH5S(void, IntServer,
    AROS_UFHA(ULONG, intMask, D0),
    AROS_UFHA(struct Custom *, custom, A0),
    AROS_UFHA(struct List *, intList, A1),
    AROS_UFHA(APTR, intCode, A5),
    AROS_UFHA(struct ExecBase *, SysBase, A6))
{
    AROS_USERFUNC_INIT

    struct Interrupt * irq;

    ForeachNode(intList, irq)
    {
        if( AROS_UFC4(int, irq->is_Code,
                AROS_UFCA(struct Custom *, custom, A0),
                AROS_UFCA(APTR, irq->is_Data, A1),
                AROS_UFCA(APTR, irq->is_Code, A5),
                AROS_UFCA(struct ExecBase *, SysBase, A6)
        ))
            break;
    }

    AROS_USERFUNC_EXIT
}