git-svn-id: https://spexeah.com:8443/svn/Asuro@507 6dbc8c32-bb84-406f-8558-d1cf31a0ab0c

src/fault/ACE.pas

@@ -0,0 +1,43 @@
+{ ************************************************
+  * Asuro
+  * Unit: Drivers/ISR17
+  * Description: Alignment Check Exception
+  ************************************************
+  * Author: K Morris
+  * Contributors: 
+  ************************************************ }
+
+unit ACE;
+
+interface
+
+uses
+    util,
+    console,
+    isr_types,
+    isrmanager,
+    IDT;
+
+procedure register();
+
+implementation
+
+procedure Main();
+var
+    i : integer;
+    
+begin
+    CLI;
+    BSOD('AC', 'Alignment Check Exception.');
+    console.writestringln('Alignment Check Exception.');
+    util.halt_and_catch_fire;
+end;
+
+procedure register();
+begin
+    isrmanager.registerISR(17, @Main);
+    //memset(uint32(@Hooks[0]), 0, sizeof(pp_hook_method)*MAX_HOOKS);
+    //IDT.set_gate(17, uint32(@Main), $08, ISR_RING_0);
+end;
+
+end.

src/fault/BPE.pas

@@ -0,0 +1,43 @@
+{ ************************************************
+  * Asuro
+  * Unit: Drivers/ISR3
+  * Description: Breakpoint Exception
+  ************************************************
+  * Author: K Morris
+  * Contributors: 
+  ************************************************ }
+
+unit BPE;
+
+interface
+
+uses
+    util,
+    console,
+    isr_types,
+    isrmanager,
+    IDT;
+
+procedure register();
+
+implementation
+
+procedure Main();
+var
+    i : integer;
+    
+begin
+    CLI;
+    BSOD('BE', 'Breakpoint Exception.');
+    console.writestringln('Breakpoint Exception');
+    util.halt_and_catch_fire;
+end;
+
+procedure register();
+begin
+    isrmanager.registerISR(3, @Main);
+    //memset(uint32(@Hooks[0]), 0, sizeof(pp_hook_method)*MAX_HOOKS);
+    //IDT.set_gate(3, uint32(@Main), $08, ISR_RING_0);
+end;
+
+end.

src/fault/BTSSE.pas

@@ -0,0 +1,43 @@
+{ ************************************************
+  * Asuro
+  * Unit: Drivers/ISR10
+  * Description: Bad TSS Exception
+  ************************************************
+  * Author: K Morris
+  * Contributors: 
+  ************************************************ }
+
+unit BTSSE;
+
+interface
+
+uses
+    util,
+    console,
+    isr_types,
+    isrmanager,
+    IDT;
+
+procedure register();
+
+implementation
+
+procedure Main();
+var
+    i : integer;
+    
+begin
+    CLI;
+    BSOD('TSS', 'Bad TSS Exception.');
+    console.writestringln('Bad TSS Exception.');
+    util.halt_and_catch_fire;
+end;
+
+procedure register();
+begin
+    isrmanager.registerISR(10, @Main);
+    //memset(uint32(@Hooks[0]), 0, sizeof(pp_hook_method)*MAX_HOOKS);
+    //IDT.set_gate(10, uint32(@Main), $08, ISR_RING_0);
+end;
+
+end.

src/fault/CFE.pas

@@ -0,0 +1,43 @@
+{ ************************************************
+  * Asuro
+  * Unit: Drivers/ISR11
+  * Description: Coprocessor Fault Exception
+  ************************************************
+  * Author: K Morris
+  * Contributors: 
+  ************************************************ }
+
+unit CFE;
+
+interface
+
+uses
+    util,
+    console,
+    isr_types,
+    isrmanager,
+    IDT;
+
+procedure register();
+
+implementation
+
+procedure Main();
+var
+    i : integer;
+    
+begin
+    CLI;
+    BSOD('CF', 'Coprocessor Fault Exception.');
+    console.writestringln('Coprocessor Fault Exception.');
+    util.halt_and_catch_fire;
+end;
+
+procedure register();
+begin
+    isrmanager.registerISR(16, @Main);
+    //memset(uint32(@Hooks[0]), 0, sizeof(pp_hook_method)*MAX_HOOKS);
+    //IDT.set_gate(16, uint32(@Main), $08, ISR_RING_0);
+end;
+
+end.

src/fault/CSOE.pas

@@ -0,0 +1,43 @@
+{ ************************************************
+  * Asuro
+  * Unit: Drivers/ISR9
+  * Description: Coprocessor Seg Overrun Exception
+  ************************************************
+  * Author: K Morris
+  * Contributors: 
+  ************************************************ }
+
+unit CSOE;
+
+interface
+
+uses
+    util,
+    console,
+    isr_types,
+    isrmanager,
+    IDT;
+
+procedure register();
+
+implementation
+
+procedure Main();
+var
+    i : integer;
+    
+begin
+    CLI;
+    BSOD('CSO', 'Coprocessor Seg Overrun Exception.');
+    console.writestringln('Coprocessor Seg Overrun Exception.');
+    util.halt_and_catch_fire;
+end;
+
+procedure register();
+begin
+    isrmanager.registerISR(9, @Main);
+    //memset(uint32(@Hooks[0]), 0, sizeof(pp_hook_method)*MAX_HOOKS);
+    //IDT.set_gate(9, uint32(@Main), $08, ISR_RING_0);
+end;
+
+end.

src/fault/DBGE.pas

@@ -0,0 +1,43 @@
+{ ************************************************
+  * Asuro
+  * Unit: Drivers/ISR1
+  * Description: Debug Exception
+  ************************************************
+  * Author: K Morris
+  * Contributors: 
+  ************************************************ }
+
+unit DBGE;
+
+interface
+
+uses
+    util,
+    console,
+    isr_types,
+    isrmanager,
+    IDT;
+
+procedure register();
+
+implementation
+
+procedure Main();
+var
+    i : integer;
+    
+begin
+    CLI;
+    BSOD('DE', 'Debug Exception');
+    console.writestringln('Debug Exception.');
+    util.halt_and_catch_fire;
+end;
+
+procedure register();
+begin
+    isrmanager.registerISR(1, @Main);
+    //memset(uint32(@Hooks[0]), 0, sizeof(pp_hook_method)*MAX_HOOKS);
+    //IDT.set_gate(1, uint32(@Main), $08, ISR_RING_0);
+end;
+
+end.

src/fault/DBZ.pas

@@ -0,0 +1,43 @@
+{ ************************************************
+  * Asuro
+  * Unit: Drivers/ISR0
+  * Description: Divide-By-Zero Exception
+  ************************************************
+  * Author: K Morris
+  * Contributors: 
+  ************************************************ }
+
+unit DBZ;
+
+interface
+
+uses
+    util,
+    console,
+    isr_types,
+    isrmanager,
+    IDT;
+
+procedure register();
+
+implementation
+
+procedure Main();
+var
+    i : integer;
+
+begin
+    CLI;
+    BSOD('DBZ', 'Divide By Zero Exception.');
+    console.writestringln('Divide by Zero Exception.');
+    util.halt_and_catch_fire;
+end;
+
+procedure register();
+begin
+    isrmanager.registerISR(0, @Main);
+    //memset(uint32(@Hooks[0]), 0, sizeof(pp_hook_method)*MAX_HOOKS);
+    //IDT.set_gate(0, uint32(@Main), $08, ISR_RING_0);
+end;
+
+end.

src/fault/DFE.pas

@@ -0,0 +1,43 @@
+{ ************************************************
+  * Asuro
+  * Unit: Drivers/ISR8
+  * Description: Double Fault Exception
+  ************************************************
+  * Author: K Morris
+  * Contributors: 
+  ************************************************ }
+
+unit DFE;
+
+interface
+
+uses
+    util,
+    console,
+    isr_types,
+    isrmanager,
+    IDT;
+
+procedure register();
+
+implementation
+
+procedure Main();
+var
+    i : integer;
+    
+begin
+    CLI;
+    BSOD('DF', 'Double Fault.');
+    console.writestringln('Double Fault.');
+    util.halt_and_catch_fire;
+end;
+
+procedure register();
+begin
+    isrmanager.registerISR(8, @Main);
+    //memset(uint32(@Hooks[0]), 0, sizeof(pp_hook_method)*MAX_HOOKS);
+    //IDT.set_gate(8, uint32(@Main), $08, ISR_RING_0);
+end;
+
+end.

src/fault/GPF.pas

@@ -0,0 +1,56 @@
+{ ************************************************
+  * Asuro
+  * Unit: Drivers/ISR13
+  * Description: General Protection Fault
+  ************************************************
+  * Author: K Morris
+  * Contributors: 
+  ************************************************ }
+
+unit GPF;
+
+interface
+
+uses
+    util,
+    console,
+    isr_types,
+    isrmanager,
+    IDT;
+
+procedure register();
+
+implementation
+
+procedure Main();
+var
+    i    : uint32;
+    Regs : PRegisters;
+
+begin
+    CLI;
+    asm
+        MOV EAX, EBP
+        MOV Regs, EAX
+    end;
+    BSOD('GPF', 'General Protection Fault.');
+    console.writestringln('General Protection Fault.');
+    console.writestring('Flags: ');
+    console.writehexln(Regs^.EFlags);
+    console.writestring('EIP: ');
+    console.writehexln(Regs^.EIP);
+    console.writestring('CS: ');
+    console.writehexln(Regs^.CS);
+    console.writestring('Error Code: ');
+    console.writehexln(Regs^.ErrorCode);
+    util.halt_and_catch_fire;
+end;
+
+procedure register();
+begin
+    isrmanager.registerISR(13, @Main);
+    //memset(uint32(@Hooks[0]), 0, sizeof(pp_hook_method)*MAX_HOOKS);
+    //IDT.set_gate(13, uint32(@Main), $08, ISR_RING_0);
+end;
+
+end.

src/fault/IDOE.pas

@@ -0,0 +1,43 @@
+{ ************************************************
+  * Asuro
+  * Unit: Drivers/ISR4
+  * Description: Into Detected Overflow Exception
+  ************************************************
+  * Author: K Morris
+  * Contributors: 
+  ************************************************ }
+
+unit IDOE;
+
+interface
+
+uses
+    util,
+    console,
+    isr_types,
+    isrmanager,
+    IDT;
+
+procedure register();
+
+implementation
+
+procedure Main();
+var
+    i : integer;
+    
+begin
+    CLI;
+    BSOD('IDO', 'Into Detected Overflow Exception.');
+    console.writestringln('IDO Exception.');
+    util.halt_and_catch_fire;
+end;
+
+procedure register();
+begin
+    isrmanager.registerISR(4, @Main);
+    //memset(uint32(@Hooks[0]), 0, sizeof(pp_hook_method)*MAX_HOOKS);
+    //IDT.set_gate(4, uint32(@Main), $08, ISR_RING_0);
+end;
+
+end.

src/fault/IOPE.pas

@@ -0,0 +1,43 @@
+{ ************************************************
+  * Asuro
+  * Unit: Drivers/ISR6
+  * Description: Invalid OPCode Exception
+  ************************************************
+  * Author: K Morris
+  * Contributors: 
+  ************************************************ }
+
+unit IOPE;
+
+interface
+
+uses
+    util,
+    console,
+    isr_types,
+    isrmanager,
+    IDT;
+
+procedure register();
+
+implementation
+
+procedure Main();
+var
+    i : integer;
+    
+begin
+    CLI;
+    BSOD('IO', 'Invalid OPCode Exception.');
+    console.writestringln('Invalid OPCode Exception.');
+    util.halt_and_catch_fire;
+end;
+
+procedure register();
+begin
+    isrmanager.registerISR(6, @Main);
+    //memset(uint32(@Hooks[0]), 0, sizeof(pp_hook_method)*MAX_HOOKS);
+    //IDT.set_gate(6, uint32(@Main), $08, ISR_RING_0);
+end;
+
+end.

src/fault/MCE.pas

@@ -0,0 +1,43 @@
+{ ************************************************
+  * Asuro
+  * Unit: Drivers/ISR18
+  * Description: Machine Check Exception
+  ************************************************
+  * Author: K Morris
+  * Contributors: 
+  ************************************************ }
+
+unit MCE;
+
+interface
+
+uses
+    util,
+    console,
+    isr_types,
+    isrmanager,
+    IDT;
+
+procedure register();
+
+implementation
+
+procedure Main();
+var
+    i : integer;
+    
+begin
+    CLI;
+    BSOD('MC', 'Machine Check Exception.');
+    console.writestringln('Machine Check Exception.');
+    util.halt_and_catch_fire;
+end;
+
+procedure register();
+begin
+    isrmanager.registerISR(18, @Main);
+    //memset(uint32(@Hooks[0]), 0, sizeof(pp_hook_method)*MAX_HOOKS);
+    //IDT.set_gate(18, uint32(@Main), $08, ISR_RING_0);
+end;
+
+end.

src/fault/NCE.pas

@@ -0,0 +1,43 @@
+{ ************************************************
+  * Asuro
+  * Unit: Drivers/ISR7
+  * Description: No Coprocessor Exception
+  ************************************************
+  * Author: K Morris
+  * Contributors: 
+  ************************************************ }
+
+unit NCE;
+
+interface
+
+uses
+    util,
+    console,
+    isr_types,
+    isrmanager,
+    IDT;
+
+procedure register();
+
+implementation
+
+procedure Main();
+var
+    i : integer;
+    
+begin
+    CLI;
+    BSOD('NC', 'No Coprocessor Exception.');
+    console.writestringln('No Coprocessor Exception.');
+    util.halt_and_catch_fire;
+end;
+
+procedure register();
+begin
+    isrmanager.registerISR(7, @Main);
+    //memset(uint32(@Hooks[0]), 0, sizeof(pp_hook_method)*MAX_HOOKS);
+    //IDT.set_gate(7, uint32(@Main), $08, ISR_RING_0);
+end;
+
+end.

src/fault/NMIE.pas

@@ -0,0 +1,43 @@
+{ ************************************************
+  * Asuro
+  * Unit: Drivers/ISR2
+  * Description: Non-Maskable Interrupt Exception
+  ************************************************
+  * Author: K Morris
+  * Contributors: 
+  ************************************************ }
+
+unit NMIE;
+
+interface
+
+uses
+    util,
+    console,
+    isr_types,
+    isrmanager,
+    IDT;
+
+procedure register();
+
+implementation
+
+procedure Main();
+var
+    i : integer;
+    
+begin
+    CLI;
+    BSOD('NMI', 'Non-Maskable Interrupt Exception.');
+    console.writestringln('NMI Exception.');
+    util.halt_and_catch_fire;
+end;
+
+procedure register();
+begin
+    isrmanager.registerISR(2, @Main);
+    //memset(uint32(@Hooks[0]), 0, sizeof(pp_hook_method)*MAX_HOOKS);
+    //IDT.set_gate(2, uint32(@Main), $08, ISR_RING_0);
+end;
+
+end.

src/fault/OOBE.pas

@@ -0,0 +1,43 @@
+{ ************************************************
+  * Asuro
+  * Unit: Drivers/ISR5
+  * Description: Out of Bounds Exception
+  ************************************************
+  * Author: K Morris
+  * Contributors: 
+  ************************************************ }
+
+unit OOBE;
+
+interface
+
+uses
+    util,
+    console,
+    isr_types,
+    isrmanager,
+    IDT;
+
+procedure register();
+
+implementation
+
+procedure Main();
+var
+    i : integer;
+    
+begin
+    CLI;
+    BSOD('OOB', 'Out of Bouunds Exception.');
+    console.writestringln('OOB Exception.');
+    util.halt_and_catch_fire;
+end;
+
+procedure register();
+begin
+    isrmanager.registerISR(5, @Main);
+    //memset(uint32(@Hooks[0]), 0, sizeof(pp_hook_method)*MAX_HOOKS);
+    //IDT.set_gate(5, uint32(@Main), $08, ISR_RING_0);
+end;
+
+end.

src/fault/PF.pas

@@ -0,0 +1,43 @@
+{ ************************************************
+  * Asuro
+  * Unit: Drivers/ISR14
+  * Description: Page Fault
+  ************************************************
+  * Author: K Morris
+  * Contributors: 
+  ************************************************ }
+
+unit PF;
+
+interface
+
+uses
+    util,
+    console,
+    isr_types,
+    isrmanager,
+    IDT;
+
+procedure register();
+
+implementation
+
+procedure Main();
+var
+    i : integer;
+    
+begin
+    CLI;
+    BSOD('PF', 'Page Fault.');
+    console.writestringln('Page Fault.');
+    util.halt_and_catch_fire;
+end;
+
+procedure register();
+begin
+    isrmanager.registerISR(14, @Main);
+    //memset(uint32(@Hooks[0]), 0, sizeof(pp_hook_method)*MAX_HOOKS);
+    //IDT.set_gate(14, uint32(@Main), $08, ISR_RING_0);
+end;
+
+end.

src/fault/SFE.pas

@@ -0,0 +1,43 @@
+{ ************************************************
+  * Asuro
+  * Unit: Drivers/ISR12
+  * Description: Stack Fault Exception
+  ************************************************
+  * Author: K Morris
+  * Contributors: 
+  ************************************************ }
+
+unit SFE;
+
+interface
+
+uses
+    util,
+    console,
+    isr_types,
+    isrmanager,
+    IDT;
+
+procedure register();
+
+implementation
+
+procedure Main();
+var
+    i : integer;
+    
+begin
+    CLI;
+    BSOD('SF', 'Stack Fault Exception.');
+    console.writestringln('Stack Fault Exception.');
+    util.halt_and_catch_fire;
+end;
+
+procedure register();
+begin
+    isrmanager.registerISR(12, @Main);
+    //memset(uint32(@Hooks[0]), 0, sizeof(pp_hook_method)*MAX_HOOKS);
+    //IDT.set_gate(12, uint32(@Main), $08, ISR_RING_0);
+end;
+
+end.

src/fault/SNPE.pas

@@ -0,0 +1,43 @@
+{ ************************************************
+  * Asuro
+  * Unit: Drivers/ISR11
+  * Description: Segment Not Present Exception
+  ************************************************
+  * Author: K Morris
+  * Contributors: 
+  ************************************************ }
+
+unit SNPE;
+
+interface
+
+uses
+    util,
+    console,
+    isr_types,
+    isrmanager,
+    IDT;
+
+procedure register();
+
+implementation
+
+procedure Main();
+var
+    i : integer;
+    
+begin
+    CLI;
+    BSOD('SNS', 'Segment Not Present Exception.');
+    console.writestringln('Segment Not Present Exception.');
+    util.halt_and_catch_fire;
+end;
+
+procedure register();
+begin
+    isrmanager.registerISR(11, @Main);
+    //memset(uint32(@Hooks[0]), 0, sizeof(pp_hook_method)*MAX_HOOKS);
+    //IDT.set_gate(11, uint32(@Main), $08, ISR_RING_0);
+end;
+
+end.

src/fault/UIE.pas

@@ -0,0 +1,43 @@
+{ ************************************************
+  * Asuro
+  * Unit: Drivers/ISR15
+  * Description: Unknown Interrupt Exception
+  ************************************************
+  * Author: K Morris
+  * Contributors: 
+  ************************************************ }
+
+unit UIE;
+
+interface
+
+uses
+    util,
+    console,
+    isr_types,
+    isrmanager,
+    IDT;
+
+procedure register();
+
+implementation
+
+procedure Main();
+var
+    i : integer;
+    
+begin
+    CLI;
+    BSOD('UI', 'Unknown Interrupt Exception.');
+    console.writestringln('Unknown Interrupt Exception.');
+    util.halt_and_catch_fire;
+end;
+
+procedure register();
+begin
+    isrmanager.registerISR(15, @Main);
+    //memset(uint32(@Hooks[0]), 0, sizeof(pp_hook_method)*MAX_HOOKS);
+    //IDT.set_gate(15, uint32(@Main), $08, ISR_RING_0);
+end;
+
+end.