'############################################################################################################### '############################################################################################################### '### 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