fb:porticula NoPaste
core.bas
Uploader: | ThePuppetMaster |
Datum/Zeit: | 26.08.2008 22:07:25 |
'###############################################################################################################
'###############################################################################################################
'### F B - C O R E
'###############################################################################################################
'###############################################################################################################
'### Version: 1.00.0
'### Revision: 0
'###############################################################################################################
'### (c) 2008 By.: /_\ DeltaLab's Germany [experimental computing]
'### Author: Martin Wiemann
'### Date of Idea: 2008.08.16 - 17:55:38
'###############################################################################################################
'### Copy('s) of this code or a part of this IS allowed!!!
'###############################################################################################################
'###############################################################################################################
Dim Shared GRUB_MultiBoot_Magic as UInteger Ptr
Dim Shared GRUB_MultiBoot_PTR as UInteger Ptr
'###############################################################################################################
#include once "core_include_rtlib.bi"
'###############################################################################################################
#include once "core_const.bi"
#include once "core_guru.bi"
'###############################################################################################################
#include once "core_io.bi"
#include once "core_gdt.bi"
#include once "core_idt.bi"
#include once "core_irq.bi"
#include once "core_pit.bi"
#include once "core_bda.bi"
#include once "core_multiboot.bi"
#include once "core_memman.bi"
'###############################################################################################################
#include once "core_init.bi"
#include once "core_run.bi"
#include once "core_term.bi"
'###############################################################################################################
GDT_Init()
IDT_Init()
IRQ_Init()
Dim RV as Integer
RV = Core_Init(): If RV <> 1 Then Core_GURU_Error(RV, "CORE_INIT", "", "")
RV = Core_Run(): If RV <> 1 Then Core_GURU_Error(RV, "CORE_RUN", "", "")
RV = Core_Term(): If RV <> 1 Then Core_GURU_Error(RV, "CORE_TERM", "", "")
'###############################################################################################################
#include once "core_kernelinit.bi"