Buchempfehlung
Mikrocomputertechnik mit Controllern der Atmel AVR-RISC-Familie
Mikrocomputertechnik mit Controllern der Atmel AVR-RISC-Familie
Umfassend, aber leicht verständlich führt dieses Buch in die Programmierung von ATMEL AVR Mikrocontrollern ein. [Mehr Infos...]
FreeBASIC-Chat
Es sind Benutzer im FreeBASIC-Chat online.
(Stand:  )
FreeBASIC bei Twitter
Twitter FreeBASIC-Nachrichten jetzt auch über Twitter erhalten. Follow us!

fb:porticula NoPaste

Info
Info / Hilfe Liste
Übersicht / Liste Neu
Datei hochladen Suche
Quellcode suchen Download
Dateidownload

core_init.bi

Uploader:MitgliedThePuppetMaster
Datum/Zeit:26.08.2008 22:10:49

'###############################################################################################################
'###############################################################################################################
'###   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 G_CoreCMD as String





'###############################################################################################################
Private Function Core_Init() as Integer
cls

Return GURU_NoError
'Do
'   Core_KBC_CheckNewKey()
'Loop


Cls
Dim RV as Integer

RV = core_multiboot_read():             If RV <> GURU_NoError Then Print "[GURU] MultiBoot-Magic-Key not found! >"; GRUB_MultiBoot_Magic; "<": Return RV
RV = MEM_Init():                        If RV <> GURU_NoError Then Print "[GURU] Can't preinit MEMORY-MAP!": Return RV
RV = PIT_Set_IRQ0InterruptFrq(100):     If RV <> GURU_NoError Then Return RV
'core_bda_read()
asm sti

Color 9
Print "   ##############################"
Print "  ###";
Color 10
Print "   F B - C O R E  - 1   ";
Color 9
Print "###"
Print " ##############################"
Color 15
Print "    2008 By.: Martin Wiemann"
Color 7
Print ""
Print ""
PIT_WaitmsX10(50)
Print "Memorysize Low:  "; Core_MBS.V_Memsize_Low; " KB"
Print "Memorysize High: "; Core_MBS.V_Memsize_High; " KB"
Print "Memorypages:     "; G_Mem_PageCount * 8; " x4 MB"
Print ""
PIT_WaitmsX10(50)

Dim T as UByte Ptr
T = Cast(UByte Ptr, Core_MBS.V_CMDLine)
Do until *T = 0
    G_CoreCMD += Chr(*T)
    T += 1
Loop
Dim XPos as ULong
XPos = InStr(1, G_CoreCMD, " ")

Print "Core command: '"; G_CoreCMD; "'"

Int_Text_Add("Testing 'DONE'...")
Int_Text_Add_Done()
Int_Text_Add("Testing 'FAIL'...")
Int_Text_Add_Fail()
Int_Text_Add("Testing 'WARN'...")
Int_Text_Add_Warn()
Int_Text_Add("Testing 'Proc'...")
Int_Text_Add_Err("Testing 'Error' on Proc")
Int_Text_Add_Info("Testing 'Info'...")
Int_Text_Add_Light("Testing 'Light'...")
Int_Text_Add("Testing successfully!")
Int_Text_Add("")
Int_Text_Add("")
PIT_WaitmsX10(50)
Int_Text_Add_Light("INIT STARTUP SEQUENZ...")
Int_Text_Add("")


Return GURU_NoError
End Function