fb:porticula NoPaste

Info / Hilfe Liste
Übersicht / Liste Neu
Datei hochladen Suche
Quellcode suchen
Dateidownload
core_guru.bi

Uploader:	ThePuppetMaster
Datum/Zeit:	26.08.2008 22:09:30
'###############################################################################################################

'###############################################################################################################

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

'###############################################################################################################











'###############################################################################################################

Private Sub Core_GURU_GetDescription(V_GuruCode as Integer, ByRef B_Desc as String)

Select Case V_GuruCode

    Case GURU_NoError:                              B_Desc = "[No Error found]"

    Case GURU_UnknowErrorInFunction:                B_Desc = "[- Unknow error in sub or function -]"

    Case GURU_Multiboot_NoMagicKey:                 B_Desc = "[Multiboot] No Magickey found!"

    Case GURU_Multiboot_NoDriveAdr:                 B_Desc = "[Multiboot] No Drive-ADR found!"

    Case GURU_MemMan_Already_Init:                  B_Desc = "[MemMan] Already equipped!"

    Case GURU_MemMan_NoFreeMemoryFound:             B_Desc = "[MemMan] No more Memory available!"

    Case GURU_MemMan_MemoryPageAllocError:          B_Desc = "[MemMan] Error by allocating memorypage!"

    Case GURU_MemMan_MemoryPageIDOutOfRange:        B_Desc = "[MemMan] Memorypage-ID out of range!"

    Case GURU_MemMan_MemoryPageAlreadyFree:         B_Desc = "[MemMan] Memorypage-ID already free!"

    Case GURU_MemMan_MemoryPageUseCountError:       B_Desc = "[MemMan] Error in counting Memorypage usage!"

    Case GURU_IRQ_IRQID_OutOfRange:                 B_Desc = "[IRQ] IRQID out of range!"

    Case GURU_IRQ_IRQID_CallbackAlrightInstalled:   B_Desc = "[IRQ] Callback for IRQID alright given. Uninstall first!"

    Case GURU_IRQ_IRQID_NoCallbackInstalled:        B_Desc = "[IRQ] Callback for IRQID not installed!"

    Case GURU_PIT_FrqOutOfRange:                    B_Desc = "[PIT] Frequency out of range!"

    Case Else:                                      B_Desc = "[ ! UNKNOW GURU-CODE / NO DESCRPTION ! ]"

End Select

End Sub









'###############################################################################################################

Private Sub Core_GURU_Error(V_GuruCode as Integer, V_ExecName as String, V_Param1 as String, V_Param2 as String, V_IDTError as UByte = 0)

'Global FATAL Error (Breakdown)

Cls

Locate 1, 0

Color 12

Print "   ###########################################"

Print "  ###";

Color 15

Print "   F A T A L - G U R U - E R R O R   ";

Color 12

Print "###"

Print " ###########################################"

Color 15



Locate 6, 0

Print "  Errorcode:   '"; V_GuruCode; "'"

If V_IDTError = 0 Then

    Dim T as String

    Core_GURU_GetDescription(V_GuruCode, T)

    Print "  Errordesc:   '"; T; "'"

Else

    Print "  Errordesc:   '";

    Color 12

    Print "CPU EXCEPTION";

    Color 15

    Print "'"

End If

Print ""

Print "  In exec of:  '"; V_ExecName; "'"

If V_Param1 <> "" Then Print "  Info-1:      '"; V_Param1; "'"

If V_Param2 <> "" Then Print "  Info-2:      '"; V_Param2; "'"

If V_Param1 = "" and V_Param2 = "" Then Print " [No params]"

Locate 18, 0

Print " Couldn't localize crashpoint, immediate shutdown is not preventable!"

Print " System was completly stopped and is waiting for reboot!"

Print " Push 'RESET' on or switch 'OFF' and 'ON' the Computer!"

Print ""

Color 9

Print " Contact 'Admin@MLN.ath.cx' to report this error!"

Print " Or goto Http://forum.qbasic.at/"

Do

Loop

End Sub











'###############################################################################################################

'System Error

Private Sub Core_SERO_Error(V_GuruCode as Integer)

If V_GuruCode <= 0 Then

    Cls



End If

End Sub